amazonka-redshift 1.6.1 → 2.0
raw patch · 506 files changed
+55436/−18290 lines, 506 filesdep +case-insensitivedep ~amazonka-coredep ~amazonka-testdep ~basesetup-changedPVP ok
version bump matches the API change (PVP)
Dependencies added: case-insensitive
Dependency ranges changed: amazonka-core, amazonka-test, base
API changes (from Hackage documentation)
- Network.AWS.Redshift: Canceled :: TableRestoreStatusType
- Network.AWS.Redshift: Cluster :: SourceType
- Network.AWS.Redshift: ClusterParameterGroup :: SourceType
- Network.AWS.Redshift: ClusterSecurityGroup :: SourceType
- Network.AWS.Redshift: ClusterSnapshot :: SourceType
- Network.AWS.Redshift: Dynamic :: ParameterApplyType
- Network.AWS.Redshift: Failed :: TableRestoreStatusType
- Network.AWS.Redshift: InProgress :: TableRestoreStatusType
- Network.AWS.Redshift: Pending :: TableRestoreStatusType
- Network.AWS.Redshift: Regular :: ReservedNodeOfferingType
- Network.AWS.Redshift: Static :: ParameterApplyType
- Network.AWS.Redshift: Succeeded :: TableRestoreStatusType
- Network.AWS.Redshift: Upgradable :: ReservedNodeOfferingType
- Network.AWS.Redshift: _AccessToSnapshotDeniedFault :: AsError a => Getting (First ServiceError) a ServiceError
- Network.AWS.Redshift: _AuthorizationAlreadyExistsFault :: AsError a => Getting (First ServiceError) a ServiceError
- Network.AWS.Redshift: _AuthorizationNotFoundFault :: AsError a => Getting (First ServiceError) a ServiceError
- Network.AWS.Redshift: _AuthorizationQuotaExceededFault :: AsError a => Getting (First ServiceError) a ServiceError
- Network.AWS.Redshift: _BucketNotFoundFault :: AsError a => Getting (First ServiceError) a ServiceError
- Network.AWS.Redshift: _ClusterAlreadyExistsFault :: AsError a => Getting (First ServiceError) a ServiceError
- Network.AWS.Redshift: _ClusterNotFoundFault :: AsError a => Getting (First ServiceError) a ServiceError
- Network.AWS.Redshift: _ClusterParameterGroupAlreadyExistsFault :: AsError a => Getting (First ServiceError) a ServiceError
- Network.AWS.Redshift: _ClusterParameterGroupNotFoundFault :: AsError a => Getting (First ServiceError) a ServiceError
- Network.AWS.Redshift: _ClusterParameterGroupQuotaExceededFault :: AsError a => Getting (First ServiceError) a ServiceError
- Network.AWS.Redshift: _ClusterQuotaExceededFault :: AsError a => Getting (First ServiceError) a ServiceError
- Network.AWS.Redshift: _ClusterSecurityGroupAlreadyExistsFault :: AsError a => Getting (First ServiceError) a ServiceError
- Network.AWS.Redshift: _ClusterSecurityGroupNotFoundFault :: AsError a => Getting (First ServiceError) a ServiceError
- Network.AWS.Redshift: _ClusterSecurityGroupQuotaExceededFault :: AsError a => Getting (First ServiceError) a ServiceError
- Network.AWS.Redshift: _ClusterSnapshotAlreadyExistsFault :: AsError a => Getting (First ServiceError) a ServiceError
- Network.AWS.Redshift: _ClusterSnapshotNotFoundFault :: AsError a => Getting (First ServiceError) a ServiceError
- Network.AWS.Redshift: _ClusterSnapshotQuotaExceededFault :: AsError a => Getting (First ServiceError) a ServiceError
- Network.AWS.Redshift: _ClusterSubnetGroupAlreadyExistsFault :: AsError a => Getting (First ServiceError) a ServiceError
- Network.AWS.Redshift: _ClusterSubnetGroupNotFoundFault :: AsError a => Getting (First ServiceError) a ServiceError
- Network.AWS.Redshift: _ClusterSubnetGroupQuotaExceededFault :: AsError a => Getting (First ServiceError) a ServiceError
- Network.AWS.Redshift: _ClusterSubnetQuotaExceededFault :: AsError a => Getting (First ServiceError) a ServiceError
- Network.AWS.Redshift: _CopyToRegionDisabledFault :: AsError a => Getting (First ServiceError) a ServiceError
- Network.AWS.Redshift: _DependentServiceRequestThrottlingFault :: AsError a => Getting (First ServiceError) a ServiceError
- Network.AWS.Redshift: _DependentServiceUnavailableFault :: AsError a => Getting (First ServiceError) a ServiceError
- Network.AWS.Redshift: _EventSubscriptionQuotaExceededFault :: AsError a => Getting (First ServiceError) a ServiceError
- Network.AWS.Redshift: _HSMClientCertificateAlreadyExistsFault :: AsError a => Getting (First ServiceError) a ServiceError
- Network.AWS.Redshift: _HSMClientCertificateNotFoundFault :: AsError a => Getting (First ServiceError) a ServiceError
- Network.AWS.Redshift: _HSMClientCertificateQuotaExceededFault :: AsError a => Getting (First ServiceError) a ServiceError
- Network.AWS.Redshift: _HSMConfigurationAlreadyExistsFault :: AsError a => Getting (First ServiceError) a ServiceError
- Network.AWS.Redshift: _HSMConfigurationNotFoundFault :: AsError a => Getting (First ServiceError) a ServiceError
- Network.AWS.Redshift: _HSMConfigurationQuotaExceededFault :: AsError a => Getting (First ServiceError) a ServiceError
- Network.AWS.Redshift: _InProgressTableRestoreQuotaExceededFault :: AsError a => Getting (First ServiceError) a ServiceError
- Network.AWS.Redshift: _IncompatibleOrderableOptions :: AsError a => Getting (First ServiceError) a ServiceError
- Network.AWS.Redshift: _InsufficientClusterCapacityFault :: AsError a => Getting (First ServiceError) a ServiceError
- Network.AWS.Redshift: _InsufficientS3BucketPolicyFault :: AsError a => Getting (First ServiceError) a ServiceError
- Network.AWS.Redshift: _InvalidClusterParameterGroupStateFault :: AsError a => Getting (First ServiceError) a ServiceError
- Network.AWS.Redshift: _InvalidClusterSecurityGroupStateFault :: AsError a => Getting (First ServiceError) a ServiceError
- Network.AWS.Redshift: _InvalidClusterSnapshotStateFault :: AsError a => Getting (First ServiceError) a ServiceError
- Network.AWS.Redshift: _InvalidClusterStateFault :: AsError a => Getting (First ServiceError) a ServiceError
- Network.AWS.Redshift: _InvalidClusterSubnetGroupStateFault :: AsError a => Getting (First ServiceError) a ServiceError
- Network.AWS.Redshift: _InvalidClusterSubnetStateFault :: AsError a => Getting (First ServiceError) a ServiceError
- Network.AWS.Redshift: _InvalidElasticIPFault :: AsError a => Getting (First ServiceError) a ServiceError
- Network.AWS.Redshift: _InvalidHSMClientCertificateStateFault :: AsError a => Getting (First ServiceError) a ServiceError
- Network.AWS.Redshift: _InvalidHSMConfigurationStateFault :: AsError a => Getting (First ServiceError) a ServiceError
- Network.AWS.Redshift: _InvalidRestoreFault :: AsError a => Getting (First ServiceError) a ServiceError
- Network.AWS.Redshift: _InvalidS3BucketNameFault :: AsError a => Getting (First ServiceError) a ServiceError
- Network.AWS.Redshift: _InvalidS3KeyPrefixFault :: AsError a => Getting (First ServiceError) a ServiceError
- Network.AWS.Redshift: _InvalidSnapshotCopyGrantStateFault :: AsError a => Getting (First ServiceError) a ServiceError
- Network.AWS.Redshift: _InvalidSubnet :: AsError a => Getting (First ServiceError) a ServiceError
- Network.AWS.Redshift: _InvalidSubscriptionStateFault :: AsError a => Getting (First ServiceError) a ServiceError
- Network.AWS.Redshift: _InvalidTableRestoreArgumentFault :: AsError a => Getting (First ServiceError) a ServiceError
- Network.AWS.Redshift: _InvalidTagFault :: AsError a => Getting (First ServiceError) a ServiceError
- Network.AWS.Redshift: _InvalidVPCNetworkStateFault :: AsError a => Getting (First ServiceError) a ServiceError
- Network.AWS.Redshift: _LimitExceededFault :: AsError a => Getting (First ServiceError) a ServiceError
- Network.AWS.Redshift: _NumberOfNodesPerClusterLimitExceededFault :: AsError a => Getting (First ServiceError) a ServiceError
- Network.AWS.Redshift: _NumberOfNodesQuotaExceededFault :: AsError a => Getting (First ServiceError) a ServiceError
- Network.AWS.Redshift: _ReservedNodeAlreadyExistsFault :: AsError a => Getting (First ServiceError) a ServiceError
- Network.AWS.Redshift: _ReservedNodeNotFoundFault :: AsError a => Getting (First ServiceError) a ServiceError
- Network.AWS.Redshift: _ReservedNodeOfferingNotFoundFault :: AsError a => Getting (First ServiceError) a ServiceError
- Network.AWS.Redshift: _ReservedNodeQuotaExceededFault :: AsError a => Getting (First ServiceError) a ServiceError
- Network.AWS.Redshift: _ResizeNotFoundFault :: AsError a => Getting (First ServiceError) a ServiceError
- Network.AWS.Redshift: _ResourceNotFoundFault :: AsError a => Getting (First ServiceError) a ServiceError
- Network.AWS.Redshift: _SNSInvalidTopicFault :: AsError a => Getting (First ServiceError) a ServiceError
- Network.AWS.Redshift: _SNSNoAuthorizationFault :: AsError a => Getting (First ServiceError) a ServiceError
- Network.AWS.Redshift: _SNSTopicARNNotFoundFault :: AsError a => Getting (First ServiceError) a ServiceError
- Network.AWS.Redshift: _SnapshotCopyAlreadyDisabledFault :: AsError a => Getting (First ServiceError) a ServiceError
- Network.AWS.Redshift: _SnapshotCopyAlreadyEnabledFault :: AsError a => Getting (First ServiceError) a ServiceError
- Network.AWS.Redshift: _SnapshotCopyDisabledFault :: AsError a => Getting (First ServiceError) a ServiceError
- Network.AWS.Redshift: _SnapshotCopyGrantAlreadyExistsFault :: AsError a => Getting (First ServiceError) a ServiceError
- Network.AWS.Redshift: _SnapshotCopyGrantNotFoundFault :: AsError a => Getting (First ServiceError) a ServiceError
- Network.AWS.Redshift: _SnapshotCopyGrantQuotaExceededFault :: AsError a => Getting (First ServiceError) a ServiceError
- Network.AWS.Redshift: _SourceNotFoundFault :: AsError a => Getting (First ServiceError) a ServiceError
- Network.AWS.Redshift: _SubnetAlreadyInUse :: AsError a => Getting (First ServiceError) a ServiceError
- Network.AWS.Redshift: _SubscriptionAlreadyExistFault :: AsError a => Getting (First ServiceError) a ServiceError
- Network.AWS.Redshift: _SubscriptionCategoryNotFoundFault :: AsError a => Getting (First ServiceError) a ServiceError
- Network.AWS.Redshift: _SubscriptionEventIdNotFoundFault :: AsError a => Getting (First ServiceError) a ServiceError
- Network.AWS.Redshift: _SubscriptionNotFoundFault :: AsError a => Getting (First ServiceError) a ServiceError
- Network.AWS.Redshift: _SubscriptionSeverityNotFoundFault :: AsError a => Getting (First ServiceError) a ServiceError
- Network.AWS.Redshift: _TableRestoreNotFoundFault :: AsError a => Getting (First ServiceError) a ServiceError
- Network.AWS.Redshift: _TagLimitExceededFault :: AsError a => Getting (First ServiceError) a ServiceError
- Network.AWS.Redshift: _UnauthorizedOperation :: AsError a => Getting (First ServiceError) a ServiceError
- Network.AWS.Redshift: _UnknownSnapshotCopyRegionFault :: AsError a => Getting (First ServiceError) a ServiceError
- Network.AWS.Redshift: _UnsupportedOperationFault :: AsError a => Getting (First ServiceError) a ServiceError
- Network.AWS.Redshift: _UnsupportedOptionFault :: AsError a => Getting (First ServiceError) a ServiceError
- Network.AWS.Redshift: accountWithRestoreAccess :: AccountWithRestoreAccess
- Network.AWS.Redshift: availabilityZone :: AvailabilityZone
- Network.AWS.Redshift: awraAccountAlias :: Lens' AccountWithRestoreAccess (Maybe Text)
- Network.AWS.Redshift: awraAccountId :: Lens' AccountWithRestoreAccess (Maybe Text)
- Network.AWS.Redshift: azName :: Lens' AvailabilityZone (Maybe Text)
- Network.AWS.Redshift: azSupportedPlatforms :: Lens' AvailabilityZone [SupportedPlatform]
- Network.AWS.Redshift: cAllowVersionUpgrade :: Lens' Cluster (Maybe Bool)
- Network.AWS.Redshift: cAutomatedSnapshotRetentionPeriod :: Lens' Cluster (Maybe Int)
- Network.AWS.Redshift: cAvailabilityZone :: Lens' Cluster (Maybe Text)
- Network.AWS.Redshift: cClusterCreateTime :: Lens' Cluster (Maybe UTCTime)
- Network.AWS.Redshift: cClusterIdentifier :: Lens' Cluster (Maybe Text)
- Network.AWS.Redshift: cClusterNodes :: Lens' Cluster [ClusterNode]
- Network.AWS.Redshift: cClusterParameterGroups :: Lens' Cluster [ClusterParameterGroupStatus]
- Network.AWS.Redshift: cClusterPublicKey :: Lens' Cluster (Maybe Text)
- Network.AWS.Redshift: cClusterRevisionNumber :: Lens' Cluster (Maybe Text)
- Network.AWS.Redshift: cClusterSecurityGroups :: Lens' Cluster [ClusterSecurityGroupMembership]
- Network.AWS.Redshift: cClusterSnapshotCopyStatus :: Lens' Cluster (Maybe ClusterSnapshotCopyStatus)
- Network.AWS.Redshift: cClusterStatus :: Lens' Cluster (Maybe Text)
- Network.AWS.Redshift: cClusterSubnetGroupName :: Lens' Cluster (Maybe Text)
- Network.AWS.Redshift: cClusterVersion :: Lens' Cluster (Maybe Text)
- Network.AWS.Redshift: cDBName :: Lens' Cluster (Maybe Text)
- Network.AWS.Redshift: cElasticIPStatus :: Lens' Cluster (Maybe ElasticIPStatus)
- Network.AWS.Redshift: cEncrypted :: Lens' Cluster (Maybe Bool)
- Network.AWS.Redshift: cEndpoint :: Lens' Cluster (Maybe Endpoint)
- Network.AWS.Redshift: cEnhancedVPCRouting :: Lens' Cluster (Maybe Bool)
- Network.AWS.Redshift: cHSMStatus :: Lens' Cluster (Maybe HSMStatus)
- Network.AWS.Redshift: cIAMRoles :: Lens' Cluster [ClusterIAMRole]
- Network.AWS.Redshift: cKMSKeyId :: Lens' Cluster (Maybe Text)
- Network.AWS.Redshift: cMasterUsername :: Lens' Cluster (Maybe Text)
- Network.AWS.Redshift: cModifyStatus :: Lens' Cluster (Maybe Text)
- Network.AWS.Redshift: cNodeType :: Lens' Cluster (Maybe Text)
- Network.AWS.Redshift: cNumberOfNodes :: Lens' Cluster (Maybe Int)
- Network.AWS.Redshift: cPendingModifiedValues :: Lens' Cluster (Maybe PendingModifiedValues)
- Network.AWS.Redshift: cPreferredMaintenanceWindow :: Lens' Cluster (Maybe Text)
- Network.AWS.Redshift: cPubliclyAccessible :: Lens' Cluster (Maybe Bool)
- Network.AWS.Redshift: cRestoreStatus :: Lens' Cluster (Maybe RestoreStatus)
- Network.AWS.Redshift: cTags :: Lens' Cluster [Tag]
- Network.AWS.Redshift: cVPCId :: Lens' Cluster (Maybe Text)
- Network.AWS.Redshift: cVPCSecurityGroups :: Lens' Cluster [VPCSecurityGroupMembership]
- Network.AWS.Redshift: cirApplyStatus :: Lens' ClusterIAMRole (Maybe Text)
- Network.AWS.Redshift: cirIAMRoleARN :: Lens' ClusterIAMRole (Maybe Text)
- Network.AWS.Redshift: cluClusterSecurityGroupName :: Lens' ClusterSecurityGroup (Maybe Text)
- Network.AWS.Redshift: cluDescription :: Lens' ClusterSecurityGroup (Maybe Text)
- Network.AWS.Redshift: cluEC2SecurityGroups :: Lens' ClusterSecurityGroup [EC2SecurityGroup]
- Network.AWS.Redshift: cluIPRanges :: Lens' ClusterSecurityGroup [IPRange]
- Network.AWS.Redshift: cluTags :: Lens' ClusterSecurityGroup [Tag]
- Network.AWS.Redshift: cluster :: Cluster
- Network.AWS.Redshift: clusterAvailable :: Wait DescribeClusters
- Network.AWS.Redshift: clusterDeleted :: Wait DescribeClusters
- Network.AWS.Redshift: clusterIAMRole :: ClusterIAMRole
- Network.AWS.Redshift: clusterNode :: ClusterNode
- Network.AWS.Redshift: clusterParameterGroup :: ClusterParameterGroup
- Network.AWS.Redshift: clusterParameterGroupNameMessage :: ClusterParameterGroupNameMessage
- Network.AWS.Redshift: clusterParameterGroupStatus :: ClusterParameterGroupStatus
- Network.AWS.Redshift: clusterParameterStatus :: ClusterParameterStatus
- Network.AWS.Redshift: clusterRestored :: Wait DescribeClusters
- Network.AWS.Redshift: clusterSecurityGroup :: ClusterSecurityGroup
- Network.AWS.Redshift: clusterSecurityGroupMembership :: ClusterSecurityGroupMembership
- Network.AWS.Redshift: clusterSnapshotCopyStatus :: ClusterSnapshotCopyStatus
- Network.AWS.Redshift: clusterSubnetGroup :: ClusterSubnetGroup
- Network.AWS.Redshift: clusterVersion :: ClusterVersion
- Network.AWS.Redshift: cnNodeRole :: Lens' ClusterNode (Maybe Text)
- Network.AWS.Redshift: cnPrivateIPAddress :: Lens' ClusterNode (Maybe Text)
- Network.AWS.Redshift: cnPublicIPAddress :: Lens' ClusterNode (Maybe Text)
- Network.AWS.Redshift: cpgDescription :: Lens' ClusterParameterGroup (Maybe Text)
- Network.AWS.Redshift: cpgParameterGroupFamily :: Lens' ClusterParameterGroup (Maybe Text)
- Network.AWS.Redshift: cpgParameterGroupName :: Lens' ClusterParameterGroup (Maybe Text)
- Network.AWS.Redshift: cpgTags :: Lens' ClusterParameterGroup [Tag]
- Network.AWS.Redshift: cpgnmParameterGroupName :: Lens' ClusterParameterGroupNameMessage (Maybe Text)
- Network.AWS.Redshift: cpgnmParameterGroupStatus :: Lens' ClusterParameterGroupNameMessage (Maybe Text)
- Network.AWS.Redshift: cpgsClusterParameterStatusList :: Lens' ClusterParameterGroupStatus [ClusterParameterStatus]
- Network.AWS.Redshift: cpgsParameterApplyStatus :: Lens' ClusterParameterGroupStatus (Maybe Text)
- Network.AWS.Redshift: cpgsParameterGroupName :: Lens' ClusterParameterGroupStatus (Maybe Text)
- Network.AWS.Redshift: cpsParameterApplyErrorDescription :: Lens' ClusterParameterStatus (Maybe Text)
- Network.AWS.Redshift: cpsParameterApplyStatus :: Lens' ClusterParameterStatus (Maybe Text)
- Network.AWS.Redshift: cpsParameterName :: Lens' ClusterParameterStatus (Maybe Text)
- Network.AWS.Redshift: cscsDestinationRegion :: Lens' ClusterSnapshotCopyStatus (Maybe Text)
- Network.AWS.Redshift: cscsRetentionPeriod :: Lens' ClusterSnapshotCopyStatus (Maybe Integer)
- Network.AWS.Redshift: cscsSnapshotCopyGrantName :: Lens' ClusterSnapshotCopyStatus (Maybe Text)
- Network.AWS.Redshift: csgClusterSubnetGroupName :: Lens' ClusterSubnetGroup (Maybe Text)
- Network.AWS.Redshift: csgDescription :: Lens' ClusterSubnetGroup (Maybe Text)
- Network.AWS.Redshift: csgSubnetGroupStatus :: Lens' ClusterSubnetGroup (Maybe Text)
- Network.AWS.Redshift: csgSubnets :: Lens' ClusterSubnetGroup [Subnet]
- Network.AWS.Redshift: csgTags :: Lens' ClusterSubnetGroup [Tag]
- Network.AWS.Redshift: csgVPCId :: Lens' ClusterSubnetGroup (Maybe Text)
- Network.AWS.Redshift: csgmClusterSecurityGroupName :: Lens' ClusterSecurityGroupMembership (Maybe Text)
- Network.AWS.Redshift: csgmStatus :: Lens' ClusterSecurityGroupMembership (Maybe Text)
- Network.AWS.Redshift: cvClusterParameterGroupFamily :: Lens' ClusterVersion (Maybe Text)
- Network.AWS.Redshift: cvClusterVersion :: Lens' ClusterVersion (Maybe Text)
- Network.AWS.Redshift: cvDescription :: Lens' ClusterVersion (Maybe Text)
- Network.AWS.Redshift: data AccountWithRestoreAccess
- Network.AWS.Redshift: data AvailabilityZone
- Network.AWS.Redshift: data Cluster
- Network.AWS.Redshift: data ClusterIAMRole
- Network.AWS.Redshift: data ClusterNode
- Network.AWS.Redshift: data ClusterParameterGroup
- Network.AWS.Redshift: data ClusterParameterGroupNameMessage
- Network.AWS.Redshift: data ClusterParameterGroupStatus
- Network.AWS.Redshift: data ClusterParameterStatus
- Network.AWS.Redshift: data ClusterSecurityGroup
- Network.AWS.Redshift: data ClusterSecurityGroupMembership
- Network.AWS.Redshift: data ClusterSnapshotCopyStatus
- Network.AWS.Redshift: data ClusterSubnetGroup
- Network.AWS.Redshift: data ClusterVersion
- Network.AWS.Redshift: data DefaultClusterParameters
- Network.AWS.Redshift: data EC2SecurityGroup
- Network.AWS.Redshift: data ElasticIPStatus
- Network.AWS.Redshift: data Endpoint
- Network.AWS.Redshift: data Event
- Network.AWS.Redshift: data EventCategoriesMap
- Network.AWS.Redshift: data EventInfoMap
- Network.AWS.Redshift: data EventSubscription
- Network.AWS.Redshift: data HSMClientCertificate
- Network.AWS.Redshift: data HSMConfiguration
- Network.AWS.Redshift: data HSMStatus
- Network.AWS.Redshift: data IPRange
- Network.AWS.Redshift: data LoggingStatus
- Network.AWS.Redshift: data OrderableClusterOption
- Network.AWS.Redshift: data Parameter
- Network.AWS.Redshift: data ParameterApplyType
- Network.AWS.Redshift: data PendingModifiedValues
- Network.AWS.Redshift: data RecurringCharge
- Network.AWS.Redshift: data ReservedNode
- Network.AWS.Redshift: data ReservedNodeOffering
- Network.AWS.Redshift: data ReservedNodeOfferingType
- Network.AWS.Redshift: data RestoreStatus
- Network.AWS.Redshift: data Snapshot
- Network.AWS.Redshift: data SnapshotCopyGrant
- Network.AWS.Redshift: data SourceType
- Network.AWS.Redshift: data Subnet
- Network.AWS.Redshift: data SupportedPlatform
- Network.AWS.Redshift: data TableRestoreStatus
- Network.AWS.Redshift: data TableRestoreStatusType
- Network.AWS.Redshift: data Tag
- Network.AWS.Redshift: data TaggedResource
- Network.AWS.Redshift: data VPCSecurityGroupMembership
- Network.AWS.Redshift: dcpMarker :: Lens' DefaultClusterParameters (Maybe Text)
- Network.AWS.Redshift: dcpParameterGroupFamily :: Lens' DefaultClusterParameters (Maybe Text)
- Network.AWS.Redshift: dcpParameters :: Lens' DefaultClusterParameters [Parameter]
- Network.AWS.Redshift: defaultClusterParameters :: DefaultClusterParameters
- Network.AWS.Redshift: eAddress :: Lens' Endpoint (Maybe Text)
- Network.AWS.Redshift: eDate :: Lens' Event (Maybe UTCTime)
- Network.AWS.Redshift: eEventCategories :: Lens' Event [Text]
- Network.AWS.Redshift: eEventId :: Lens' Event (Maybe Text)
- Network.AWS.Redshift: eMessage :: Lens' Event (Maybe Text)
- Network.AWS.Redshift: ePort :: Lens' Endpoint (Maybe Int)
- Network.AWS.Redshift: eSeverity :: Lens' Event (Maybe Text)
- Network.AWS.Redshift: eSourceIdentifier :: Lens' Event (Maybe Text)
- Network.AWS.Redshift: eSourceType :: Lens' Event (Maybe SourceType)
- Network.AWS.Redshift: ec2SecurityGroup :: EC2SecurityGroup
- Network.AWS.Redshift: ecmEvents :: Lens' EventCategoriesMap [EventInfoMap]
- Network.AWS.Redshift: ecmSourceType :: Lens' EventCategoriesMap (Maybe Text)
- Network.AWS.Redshift: eimEventCategories :: Lens' EventInfoMap [Text]
- Network.AWS.Redshift: eimEventDescription :: Lens' EventInfoMap (Maybe Text)
- Network.AWS.Redshift: eimEventId :: Lens' EventInfoMap (Maybe Text)
- Network.AWS.Redshift: eimSeverity :: Lens' EventInfoMap (Maybe Text)
- Network.AWS.Redshift: eisElasticIP :: Lens' ElasticIPStatus (Maybe Text)
- Network.AWS.Redshift: eisStatus :: Lens' ElasticIPStatus (Maybe Text)
- Network.AWS.Redshift: elasticIPStatus :: ElasticIPStatus
- Network.AWS.Redshift: endpoint :: Endpoint
- Network.AWS.Redshift: esCustSubscriptionId :: Lens' EventSubscription (Maybe Text)
- Network.AWS.Redshift: esCustomerAWSId :: Lens' EventSubscription (Maybe Text)
- Network.AWS.Redshift: esEnabled :: Lens' EventSubscription (Maybe Bool)
- Network.AWS.Redshift: esEventCategoriesList :: Lens' EventSubscription [Text]
- Network.AWS.Redshift: esSNSTopicARN :: Lens' EventSubscription (Maybe Text)
- Network.AWS.Redshift: esSeverity :: Lens' EventSubscription (Maybe Text)
- Network.AWS.Redshift: esSourceIdsList :: Lens' EventSubscription [Text]
- Network.AWS.Redshift: esSourceType :: Lens' EventSubscription (Maybe Text)
- Network.AWS.Redshift: esStatus :: Lens' EventSubscription (Maybe Text)
- Network.AWS.Redshift: esSubscriptionCreationTime :: Lens' EventSubscription (Maybe UTCTime)
- Network.AWS.Redshift: esTags :: Lens' EventSubscription [Tag]
- Network.AWS.Redshift: esgEC2SecurityGroupName :: Lens' EC2SecurityGroup (Maybe Text)
- Network.AWS.Redshift: esgEC2SecurityGroupOwnerId :: Lens' EC2SecurityGroup (Maybe Text)
- Network.AWS.Redshift: esgStatus :: Lens' EC2SecurityGroup (Maybe Text)
- Network.AWS.Redshift: esgTags :: Lens' EC2SecurityGroup [Tag]
- Network.AWS.Redshift: event :: Event
- Network.AWS.Redshift: eventCategoriesMap :: EventCategoriesMap
- Network.AWS.Redshift: eventInfoMap :: EventInfoMap
- Network.AWS.Redshift: eventSubscription :: EventSubscription
- Network.AWS.Redshift: getAccountId :: Region -> Maybe Text
- Network.AWS.Redshift: hcDescription :: Lens' HSMConfiguration (Maybe Text)
- Network.AWS.Redshift: hcHSMConfigurationIdentifier :: Lens' HSMConfiguration (Maybe Text)
- Network.AWS.Redshift: hcHSMIPAddress :: Lens' HSMConfiguration (Maybe Text)
- Network.AWS.Redshift: hcHSMPartitionName :: Lens' HSMConfiguration (Maybe Text)
- Network.AWS.Redshift: hcTags :: Lens' HSMConfiguration [Tag]
- Network.AWS.Redshift: hccHSMClientCertificateIdentifier :: Lens' HSMClientCertificate (Maybe Text)
- Network.AWS.Redshift: hccHSMClientCertificatePublicKey :: Lens' HSMClientCertificate (Maybe Text)
- Network.AWS.Redshift: hccTags :: Lens' HSMClientCertificate [Tag]
- Network.AWS.Redshift: hsHSMClientCertificateIdentifier :: Lens' HSMStatus (Maybe Text)
- Network.AWS.Redshift: hsHSMConfigurationIdentifier :: Lens' HSMStatus (Maybe Text)
- Network.AWS.Redshift: hsStatus :: Lens' HSMStatus (Maybe Text)
- Network.AWS.Redshift: hsmClientCertificate :: HSMClientCertificate
- Network.AWS.Redshift: hsmConfiguration :: HSMConfiguration
- Network.AWS.Redshift: hsmStatus :: HSMStatus
- Network.AWS.Redshift: ipRange :: IPRange
- Network.AWS.Redshift: irCIdRIP :: Lens' IPRange (Maybe Text)
- Network.AWS.Redshift: irStatus :: Lens' IPRange (Maybe Text)
- Network.AWS.Redshift: irTags :: Lens' IPRange [Tag]
- Network.AWS.Redshift: loggingStatus :: LoggingStatus
- Network.AWS.Redshift: lsBucketName :: Lens' LoggingStatus (Maybe Text)
- Network.AWS.Redshift: lsLastFailureMessage :: Lens' LoggingStatus (Maybe Text)
- Network.AWS.Redshift: lsLastFailureTime :: Lens' LoggingStatus (Maybe UTCTime)
- Network.AWS.Redshift: lsLastSuccessfulDeliveryTime :: Lens' LoggingStatus (Maybe UTCTime)
- Network.AWS.Redshift: lsLoggingEnabled :: Lens' LoggingStatus (Maybe Bool)
- Network.AWS.Redshift: lsS3KeyPrefix :: Lens' LoggingStatus (Maybe Text)
- Network.AWS.Redshift: ocoAvailabilityZones :: Lens' OrderableClusterOption [AvailabilityZone]
- Network.AWS.Redshift: ocoClusterType :: Lens' OrderableClusterOption (Maybe Text)
- Network.AWS.Redshift: ocoClusterVersion :: Lens' OrderableClusterOption (Maybe Text)
- Network.AWS.Redshift: ocoNodeType :: Lens' OrderableClusterOption (Maybe Text)
- Network.AWS.Redshift: orderableClusterOption :: OrderableClusterOption
- Network.AWS.Redshift: pAllowedValues :: Lens' Parameter (Maybe Text)
- Network.AWS.Redshift: pApplyType :: Lens' Parameter (Maybe ParameterApplyType)
- Network.AWS.Redshift: pDataType :: Lens' Parameter (Maybe Text)
- Network.AWS.Redshift: pDescription :: Lens' Parameter (Maybe Text)
- Network.AWS.Redshift: pIsModifiable :: Lens' Parameter (Maybe Bool)
- Network.AWS.Redshift: pMinimumEngineVersion :: Lens' Parameter (Maybe Text)
- Network.AWS.Redshift: pParameterName :: Lens' Parameter (Maybe Text)
- Network.AWS.Redshift: pParameterValue :: Lens' Parameter (Maybe Text)
- Network.AWS.Redshift: pSource :: Lens' Parameter (Maybe Text)
- Network.AWS.Redshift: parameter :: Parameter
- Network.AWS.Redshift: pendingModifiedValues :: PendingModifiedValues
- Network.AWS.Redshift: pmvAutomatedSnapshotRetentionPeriod :: Lens' PendingModifiedValues (Maybe Int)
- Network.AWS.Redshift: pmvClusterIdentifier :: Lens' PendingModifiedValues (Maybe Text)
- Network.AWS.Redshift: pmvClusterType :: Lens' PendingModifiedValues (Maybe Text)
- Network.AWS.Redshift: pmvClusterVersion :: Lens' PendingModifiedValues (Maybe Text)
- Network.AWS.Redshift: pmvEnhancedVPCRouting :: Lens' PendingModifiedValues (Maybe Bool)
- Network.AWS.Redshift: pmvMasterUserPassword :: Lens' PendingModifiedValues (Maybe Text)
- Network.AWS.Redshift: pmvNodeType :: Lens' PendingModifiedValues (Maybe Text)
- Network.AWS.Redshift: pmvNumberOfNodes :: Lens' PendingModifiedValues (Maybe Int)
- Network.AWS.Redshift: pmvPubliclyAccessible :: Lens' PendingModifiedValues (Maybe Bool)
- Network.AWS.Redshift: rcRecurringChargeAmount :: Lens' RecurringCharge (Maybe Double)
- Network.AWS.Redshift: rcRecurringChargeFrequency :: Lens' RecurringCharge (Maybe Text)
- Network.AWS.Redshift: recurringCharge :: RecurringCharge
- Network.AWS.Redshift: redshift :: Service
- Network.AWS.Redshift: reservedNode :: ReservedNode
- Network.AWS.Redshift: reservedNodeOffering :: ReservedNodeOffering
- Network.AWS.Redshift: restoreStatus :: RestoreStatus
- Network.AWS.Redshift: rnCurrencyCode :: Lens' ReservedNode (Maybe Text)
- Network.AWS.Redshift: rnDuration :: Lens' ReservedNode (Maybe Int)
- Network.AWS.Redshift: rnFixedPrice :: Lens' ReservedNode (Maybe Double)
- Network.AWS.Redshift: rnNodeCount :: Lens' ReservedNode (Maybe Int)
- Network.AWS.Redshift: rnNodeType :: Lens' ReservedNode (Maybe Text)
- Network.AWS.Redshift: rnOfferingType :: Lens' ReservedNode (Maybe Text)
- Network.AWS.Redshift: rnRecurringCharges :: Lens' ReservedNode [RecurringCharge]
- Network.AWS.Redshift: rnReservedNodeId :: Lens' ReservedNode (Maybe Text)
- Network.AWS.Redshift: rnReservedNodeOfferingId :: Lens' ReservedNode (Maybe Text)
- Network.AWS.Redshift: rnReservedNodeOfferingType :: Lens' ReservedNode (Maybe ReservedNodeOfferingType)
- Network.AWS.Redshift: rnStartTime :: Lens' ReservedNode (Maybe UTCTime)
- Network.AWS.Redshift: rnState :: Lens' ReservedNode (Maybe Text)
- Network.AWS.Redshift: rnUsagePrice :: Lens' ReservedNode (Maybe Double)
- Network.AWS.Redshift: rnoCurrencyCode :: Lens' ReservedNodeOffering (Maybe Text)
- Network.AWS.Redshift: rnoDuration :: Lens' ReservedNodeOffering (Maybe Int)
- Network.AWS.Redshift: rnoFixedPrice :: Lens' ReservedNodeOffering (Maybe Double)
- Network.AWS.Redshift: rnoNodeType :: Lens' ReservedNodeOffering (Maybe Text)
- Network.AWS.Redshift: rnoOfferingType :: Lens' ReservedNodeOffering (Maybe Text)
- Network.AWS.Redshift: rnoRecurringCharges :: Lens' ReservedNodeOffering [RecurringCharge]
- Network.AWS.Redshift: rnoReservedNodeOfferingId :: Lens' ReservedNodeOffering (Maybe Text)
- Network.AWS.Redshift: rnoReservedNodeOfferingType :: Lens' ReservedNodeOffering (Maybe ReservedNodeOfferingType)
- Network.AWS.Redshift: rnoUsagePrice :: Lens' ReservedNodeOffering (Maybe Double)
- Network.AWS.Redshift: rsCurrentRestoreRateInMegaBytesPerSecond :: Lens' RestoreStatus (Maybe Double)
- Network.AWS.Redshift: rsElapsedTimeInSeconds :: Lens' RestoreStatus (Maybe Integer)
- Network.AWS.Redshift: rsEstimatedTimeToCompletionInSeconds :: Lens' RestoreStatus (Maybe Integer)
- Network.AWS.Redshift: rsProgressInMegaBytes :: Lens' RestoreStatus (Maybe Integer)
- Network.AWS.Redshift: rsSnapshotSizeInMegaBytes :: Lens' RestoreStatus (Maybe Integer)
- Network.AWS.Redshift: rsStatus :: Lens' RestoreStatus (Maybe Text)
- Network.AWS.Redshift: sAccountsWithRestoreAccess :: Lens' Snapshot [AccountWithRestoreAccess]
- Network.AWS.Redshift: sActualIncrementalBackupSizeInMegaBytes :: Lens' Snapshot (Maybe Double)
- Network.AWS.Redshift: sAvailabilityZone :: Lens' Snapshot (Maybe Text)
- Network.AWS.Redshift: sBackupProgressInMegaBytes :: Lens' Snapshot (Maybe Double)
- Network.AWS.Redshift: sClusterCreateTime :: Lens' Snapshot (Maybe UTCTime)
- Network.AWS.Redshift: sClusterIdentifier :: Lens' Snapshot (Maybe Text)
- Network.AWS.Redshift: sClusterVersion :: Lens' Snapshot (Maybe Text)
- Network.AWS.Redshift: sCurrentBackupRateInMegaBytesPerSecond :: Lens' Snapshot (Maybe Double)
- Network.AWS.Redshift: sDBName :: Lens' Snapshot (Maybe Text)
- Network.AWS.Redshift: sElapsedTimeInSeconds :: Lens' Snapshot (Maybe Integer)
- Network.AWS.Redshift: sEncrypted :: Lens' Snapshot (Maybe Bool)
- Network.AWS.Redshift: sEncryptedWithHSM :: Lens' Snapshot (Maybe Bool)
- Network.AWS.Redshift: sEnhancedVPCRouting :: Lens' Snapshot (Maybe Bool)
- Network.AWS.Redshift: sEstimatedSecondsToCompletion :: Lens' Snapshot (Maybe Integer)
- Network.AWS.Redshift: sKMSKeyId :: Lens' Snapshot (Maybe Text)
- Network.AWS.Redshift: sMasterUsername :: Lens' Snapshot (Maybe Text)
- Network.AWS.Redshift: sNodeType :: Lens' Snapshot (Maybe Text)
- Network.AWS.Redshift: sNumberOfNodes :: Lens' Snapshot (Maybe Int)
- Network.AWS.Redshift: sOwnerAccount :: Lens' Snapshot (Maybe Text)
- Network.AWS.Redshift: sPort :: Lens' Snapshot (Maybe Int)
- Network.AWS.Redshift: sRestorableNodeTypes :: Lens' Snapshot [Text]
- Network.AWS.Redshift: sSnapshotCreateTime :: Lens' Snapshot (Maybe UTCTime)
- Network.AWS.Redshift: sSnapshotIdentifier :: Lens' Snapshot (Maybe Text)
- Network.AWS.Redshift: sSnapshotType :: Lens' Snapshot (Maybe Text)
- Network.AWS.Redshift: sSourceRegion :: Lens' Snapshot (Maybe Text)
- Network.AWS.Redshift: sStatus :: Lens' Snapshot (Maybe Text)
- Network.AWS.Redshift: sSubnetAvailabilityZone :: Lens' Subnet (Maybe AvailabilityZone)
- Network.AWS.Redshift: sSubnetIdentifier :: Lens' Subnet (Maybe Text)
- Network.AWS.Redshift: sSubnetStatus :: Lens' Subnet (Maybe Text)
- Network.AWS.Redshift: sTags :: Lens' Snapshot [Tag]
- Network.AWS.Redshift: sTotalBackupSizeInMegaBytes :: Lens' Snapshot (Maybe Double)
- Network.AWS.Redshift: sVPCId :: Lens' Snapshot (Maybe Text)
- Network.AWS.Redshift: scgKMSKeyId :: Lens' SnapshotCopyGrant (Maybe Text)
- Network.AWS.Redshift: scgSnapshotCopyGrantName :: Lens' SnapshotCopyGrant (Maybe Text)
- Network.AWS.Redshift: scgTags :: Lens' SnapshotCopyGrant [Tag]
- Network.AWS.Redshift: snapshot :: Snapshot
- Network.AWS.Redshift: snapshotAvailable :: Wait DescribeClusterSnapshots
- Network.AWS.Redshift: snapshotCopyGrant :: SnapshotCopyGrant
- Network.AWS.Redshift: spName :: Lens' SupportedPlatform (Maybe Text)
- Network.AWS.Redshift: subnet :: Subnet
- Network.AWS.Redshift: supportedPlatform :: SupportedPlatform
- Network.AWS.Redshift: tableRestoreStatus :: TableRestoreStatus
- Network.AWS.Redshift: tag :: Tag
- Network.AWS.Redshift: tagKey :: Lens' Tag (Maybe Text)
- Network.AWS.Redshift: tagValue :: Lens' Tag (Maybe Text)
- Network.AWS.Redshift: taggedResource :: TaggedResource
- Network.AWS.Redshift: trResourceName :: Lens' TaggedResource (Maybe Text)
- Network.AWS.Redshift: trResourceType :: Lens' TaggedResource (Maybe Text)
- Network.AWS.Redshift: trTag :: Lens' TaggedResource (Maybe Tag)
- Network.AWS.Redshift: trsClusterIdentifier :: Lens' TableRestoreStatus (Maybe Text)
- Network.AWS.Redshift: trsMessage :: Lens' TableRestoreStatus (Maybe Text)
- Network.AWS.Redshift: trsNewTableName :: Lens' TableRestoreStatus (Maybe Text)
- Network.AWS.Redshift: trsProgressInMegaBytes :: Lens' TableRestoreStatus (Maybe Integer)
- Network.AWS.Redshift: trsRequestTime :: Lens' TableRestoreStatus (Maybe UTCTime)
- Network.AWS.Redshift: trsSnapshotIdentifier :: Lens' TableRestoreStatus (Maybe Text)
- Network.AWS.Redshift: trsSourceDatabaseName :: Lens' TableRestoreStatus (Maybe Text)
- Network.AWS.Redshift: trsSourceSchemaName :: Lens' TableRestoreStatus (Maybe Text)
- Network.AWS.Redshift: trsSourceTableName :: Lens' TableRestoreStatus (Maybe Text)
- Network.AWS.Redshift: trsStatus :: Lens' TableRestoreStatus (Maybe TableRestoreStatusType)
- Network.AWS.Redshift: trsTableRestoreRequestId :: Lens' TableRestoreStatus (Maybe Text)
- Network.AWS.Redshift: trsTargetDatabaseName :: Lens' TableRestoreStatus (Maybe Text)
- Network.AWS.Redshift: trsTargetSchemaName :: Lens' TableRestoreStatus (Maybe Text)
- Network.AWS.Redshift: trsTotalDataInMegaBytes :: Lens' TableRestoreStatus (Maybe Integer)
- Network.AWS.Redshift: vpcSecurityGroupMembership :: VPCSecurityGroupMembership
- Network.AWS.Redshift: vsgmStatus :: Lens' VPCSecurityGroupMembership (Maybe Text)
- Network.AWS.Redshift: vsgmVPCSecurityGroupId :: Lens' VPCSecurityGroupMembership (Maybe Text)
- Network.AWS.Redshift.AuthorizeClusterSecurityGroupIngress: acsgiCIdRIP :: Lens' AuthorizeClusterSecurityGroupIngress (Maybe Text)
- Network.AWS.Redshift.AuthorizeClusterSecurityGroupIngress: acsgiClusterSecurityGroupName :: Lens' AuthorizeClusterSecurityGroupIngress Text
- Network.AWS.Redshift.AuthorizeClusterSecurityGroupIngress: acsgiEC2SecurityGroupName :: Lens' AuthorizeClusterSecurityGroupIngress (Maybe Text)
- Network.AWS.Redshift.AuthorizeClusterSecurityGroupIngress: acsgiEC2SecurityGroupOwnerId :: Lens' AuthorizeClusterSecurityGroupIngress (Maybe Text)
- Network.AWS.Redshift.AuthorizeClusterSecurityGroupIngress: acsgirsClusterSecurityGroup :: Lens' AuthorizeClusterSecurityGroupIngressResponse (Maybe ClusterSecurityGroup)
- Network.AWS.Redshift.AuthorizeClusterSecurityGroupIngress: acsgirsResponseStatus :: Lens' AuthorizeClusterSecurityGroupIngressResponse Int
- Network.AWS.Redshift.AuthorizeClusterSecurityGroupIngress: authorizeClusterSecurityGroupIngress :: Text -> AuthorizeClusterSecurityGroupIngress
- Network.AWS.Redshift.AuthorizeClusterSecurityGroupIngress: authorizeClusterSecurityGroupIngressResponse :: Int -> AuthorizeClusterSecurityGroupIngressResponse
- Network.AWS.Redshift.AuthorizeClusterSecurityGroupIngress: data AuthorizeClusterSecurityGroupIngress
- Network.AWS.Redshift.AuthorizeClusterSecurityGroupIngress: data AuthorizeClusterSecurityGroupIngressResponse
- Network.AWS.Redshift.AuthorizeClusterSecurityGroupIngress: instance Control.DeepSeq.NFData Network.AWS.Redshift.AuthorizeClusterSecurityGroupIngress.AuthorizeClusterSecurityGroupIngress
- Network.AWS.Redshift.AuthorizeClusterSecurityGroupIngress: instance Control.DeepSeq.NFData Network.AWS.Redshift.AuthorizeClusterSecurityGroupIngress.AuthorizeClusterSecurityGroupIngressResponse
- Network.AWS.Redshift.AuthorizeClusterSecurityGroupIngress: instance Data.Data.Data Network.AWS.Redshift.AuthorizeClusterSecurityGroupIngress.AuthorizeClusterSecurityGroupIngress
- Network.AWS.Redshift.AuthorizeClusterSecurityGroupIngress: instance Data.Data.Data Network.AWS.Redshift.AuthorizeClusterSecurityGroupIngress.AuthorizeClusterSecurityGroupIngressResponse
- Network.AWS.Redshift.AuthorizeClusterSecurityGroupIngress: instance Data.Hashable.Class.Hashable Network.AWS.Redshift.AuthorizeClusterSecurityGroupIngress.AuthorizeClusterSecurityGroupIngress
- Network.AWS.Redshift.AuthorizeClusterSecurityGroupIngress: instance GHC.Classes.Eq Network.AWS.Redshift.AuthorizeClusterSecurityGroupIngress.AuthorizeClusterSecurityGroupIngress
- Network.AWS.Redshift.AuthorizeClusterSecurityGroupIngress: instance GHC.Classes.Eq Network.AWS.Redshift.AuthorizeClusterSecurityGroupIngress.AuthorizeClusterSecurityGroupIngressResponse
- Network.AWS.Redshift.AuthorizeClusterSecurityGroupIngress: instance GHC.Generics.Generic Network.AWS.Redshift.AuthorizeClusterSecurityGroupIngress.AuthorizeClusterSecurityGroupIngress
- Network.AWS.Redshift.AuthorizeClusterSecurityGroupIngress: instance GHC.Generics.Generic Network.AWS.Redshift.AuthorizeClusterSecurityGroupIngress.AuthorizeClusterSecurityGroupIngressResponse
- Network.AWS.Redshift.AuthorizeClusterSecurityGroupIngress: instance GHC.Read.Read Network.AWS.Redshift.AuthorizeClusterSecurityGroupIngress.AuthorizeClusterSecurityGroupIngress
- Network.AWS.Redshift.AuthorizeClusterSecurityGroupIngress: instance GHC.Read.Read Network.AWS.Redshift.AuthorizeClusterSecurityGroupIngress.AuthorizeClusterSecurityGroupIngressResponse
- Network.AWS.Redshift.AuthorizeClusterSecurityGroupIngress: instance GHC.Show.Show Network.AWS.Redshift.AuthorizeClusterSecurityGroupIngress.AuthorizeClusterSecurityGroupIngress
- Network.AWS.Redshift.AuthorizeClusterSecurityGroupIngress: instance GHC.Show.Show Network.AWS.Redshift.AuthorizeClusterSecurityGroupIngress.AuthorizeClusterSecurityGroupIngressResponse
- Network.AWS.Redshift.AuthorizeClusterSecurityGroupIngress: instance Network.AWS.Data.Headers.ToHeaders Network.AWS.Redshift.AuthorizeClusterSecurityGroupIngress.AuthorizeClusterSecurityGroupIngress
- Network.AWS.Redshift.AuthorizeClusterSecurityGroupIngress: instance Network.AWS.Data.Path.ToPath Network.AWS.Redshift.AuthorizeClusterSecurityGroupIngress.AuthorizeClusterSecurityGroupIngress
- Network.AWS.Redshift.AuthorizeClusterSecurityGroupIngress: instance Network.AWS.Data.Query.ToQuery Network.AWS.Redshift.AuthorizeClusterSecurityGroupIngress.AuthorizeClusterSecurityGroupIngress
- Network.AWS.Redshift.AuthorizeClusterSecurityGroupIngress: instance Network.AWS.Types.AWSRequest Network.AWS.Redshift.AuthorizeClusterSecurityGroupIngress.AuthorizeClusterSecurityGroupIngress
- Network.AWS.Redshift.AuthorizeSnapshotAccess: asaAccountWithRestoreAccess :: Lens' AuthorizeSnapshotAccess Text
- Network.AWS.Redshift.AuthorizeSnapshotAccess: asaSnapshotClusterIdentifier :: Lens' AuthorizeSnapshotAccess (Maybe Text)
- Network.AWS.Redshift.AuthorizeSnapshotAccess: asaSnapshotIdentifier :: Lens' AuthorizeSnapshotAccess Text
- Network.AWS.Redshift.AuthorizeSnapshotAccess: asarsResponseStatus :: Lens' AuthorizeSnapshotAccessResponse Int
- Network.AWS.Redshift.AuthorizeSnapshotAccess: asarsSnapshot :: Lens' AuthorizeSnapshotAccessResponse (Maybe Snapshot)
- Network.AWS.Redshift.AuthorizeSnapshotAccess: authorizeSnapshotAccess :: Text -> Text -> AuthorizeSnapshotAccess
- Network.AWS.Redshift.AuthorizeSnapshotAccess: authorizeSnapshotAccessResponse :: Int -> AuthorizeSnapshotAccessResponse
- Network.AWS.Redshift.AuthorizeSnapshotAccess: data AuthorizeSnapshotAccess
- Network.AWS.Redshift.AuthorizeSnapshotAccess: data AuthorizeSnapshotAccessResponse
- Network.AWS.Redshift.AuthorizeSnapshotAccess: instance Control.DeepSeq.NFData Network.AWS.Redshift.AuthorizeSnapshotAccess.AuthorizeSnapshotAccess
- Network.AWS.Redshift.AuthorizeSnapshotAccess: instance Control.DeepSeq.NFData Network.AWS.Redshift.AuthorizeSnapshotAccess.AuthorizeSnapshotAccessResponse
- Network.AWS.Redshift.AuthorizeSnapshotAccess: instance Data.Data.Data Network.AWS.Redshift.AuthorizeSnapshotAccess.AuthorizeSnapshotAccess
- Network.AWS.Redshift.AuthorizeSnapshotAccess: instance Data.Data.Data Network.AWS.Redshift.AuthorizeSnapshotAccess.AuthorizeSnapshotAccessResponse
- Network.AWS.Redshift.AuthorizeSnapshotAccess: instance Data.Hashable.Class.Hashable Network.AWS.Redshift.AuthorizeSnapshotAccess.AuthorizeSnapshotAccess
- Network.AWS.Redshift.AuthorizeSnapshotAccess: instance GHC.Classes.Eq Network.AWS.Redshift.AuthorizeSnapshotAccess.AuthorizeSnapshotAccess
- Network.AWS.Redshift.AuthorizeSnapshotAccess: instance GHC.Classes.Eq Network.AWS.Redshift.AuthorizeSnapshotAccess.AuthorizeSnapshotAccessResponse
- Network.AWS.Redshift.AuthorizeSnapshotAccess: instance GHC.Generics.Generic Network.AWS.Redshift.AuthorizeSnapshotAccess.AuthorizeSnapshotAccess
- Network.AWS.Redshift.AuthorizeSnapshotAccess: instance GHC.Generics.Generic Network.AWS.Redshift.AuthorizeSnapshotAccess.AuthorizeSnapshotAccessResponse
- Network.AWS.Redshift.AuthorizeSnapshotAccess: instance GHC.Read.Read Network.AWS.Redshift.AuthorizeSnapshotAccess.AuthorizeSnapshotAccess
- Network.AWS.Redshift.AuthorizeSnapshotAccess: instance GHC.Read.Read Network.AWS.Redshift.AuthorizeSnapshotAccess.AuthorizeSnapshotAccessResponse
- Network.AWS.Redshift.AuthorizeSnapshotAccess: instance GHC.Show.Show Network.AWS.Redshift.AuthorizeSnapshotAccess.AuthorizeSnapshotAccess
- Network.AWS.Redshift.AuthorizeSnapshotAccess: instance GHC.Show.Show Network.AWS.Redshift.AuthorizeSnapshotAccess.AuthorizeSnapshotAccessResponse
- Network.AWS.Redshift.AuthorizeSnapshotAccess: instance Network.AWS.Data.Headers.ToHeaders Network.AWS.Redshift.AuthorizeSnapshotAccess.AuthorizeSnapshotAccess
- Network.AWS.Redshift.AuthorizeSnapshotAccess: instance Network.AWS.Data.Path.ToPath Network.AWS.Redshift.AuthorizeSnapshotAccess.AuthorizeSnapshotAccess
- Network.AWS.Redshift.AuthorizeSnapshotAccess: instance Network.AWS.Data.Query.ToQuery Network.AWS.Redshift.AuthorizeSnapshotAccess.AuthorizeSnapshotAccess
- Network.AWS.Redshift.AuthorizeSnapshotAccess: instance Network.AWS.Types.AWSRequest Network.AWS.Redshift.AuthorizeSnapshotAccess.AuthorizeSnapshotAccess
- Network.AWS.Redshift.CopyClusterSnapshot: ccsSourceSnapshotClusterIdentifier :: Lens' CopyClusterSnapshot (Maybe Text)
- Network.AWS.Redshift.CopyClusterSnapshot: ccsSourceSnapshotIdentifier :: Lens' CopyClusterSnapshot Text
- Network.AWS.Redshift.CopyClusterSnapshot: ccsTargetSnapshotIdentifier :: Lens' CopyClusterSnapshot Text
- Network.AWS.Redshift.CopyClusterSnapshot: ccsrsResponseStatus :: Lens' CopyClusterSnapshotResponse Int
- Network.AWS.Redshift.CopyClusterSnapshot: ccsrsSnapshot :: Lens' CopyClusterSnapshotResponse (Maybe Snapshot)
- Network.AWS.Redshift.CopyClusterSnapshot: copyClusterSnapshot :: Text -> Text -> CopyClusterSnapshot
- Network.AWS.Redshift.CopyClusterSnapshot: copyClusterSnapshotResponse :: Int -> CopyClusterSnapshotResponse
- Network.AWS.Redshift.CopyClusterSnapshot: data CopyClusterSnapshot
- Network.AWS.Redshift.CopyClusterSnapshot: data CopyClusterSnapshotResponse
- Network.AWS.Redshift.CopyClusterSnapshot: instance Control.DeepSeq.NFData Network.AWS.Redshift.CopyClusterSnapshot.CopyClusterSnapshot
- Network.AWS.Redshift.CopyClusterSnapshot: instance Control.DeepSeq.NFData Network.AWS.Redshift.CopyClusterSnapshot.CopyClusterSnapshotResponse
- Network.AWS.Redshift.CopyClusterSnapshot: instance Data.Data.Data Network.AWS.Redshift.CopyClusterSnapshot.CopyClusterSnapshot
- Network.AWS.Redshift.CopyClusterSnapshot: instance Data.Data.Data Network.AWS.Redshift.CopyClusterSnapshot.CopyClusterSnapshotResponse
- Network.AWS.Redshift.CopyClusterSnapshot: instance Data.Hashable.Class.Hashable Network.AWS.Redshift.CopyClusterSnapshot.CopyClusterSnapshot
- Network.AWS.Redshift.CopyClusterSnapshot: instance GHC.Classes.Eq Network.AWS.Redshift.CopyClusterSnapshot.CopyClusterSnapshot
- Network.AWS.Redshift.CopyClusterSnapshot: instance GHC.Classes.Eq Network.AWS.Redshift.CopyClusterSnapshot.CopyClusterSnapshotResponse
- Network.AWS.Redshift.CopyClusterSnapshot: instance GHC.Generics.Generic Network.AWS.Redshift.CopyClusterSnapshot.CopyClusterSnapshot
- Network.AWS.Redshift.CopyClusterSnapshot: instance GHC.Generics.Generic Network.AWS.Redshift.CopyClusterSnapshot.CopyClusterSnapshotResponse
- Network.AWS.Redshift.CopyClusterSnapshot: instance GHC.Read.Read Network.AWS.Redshift.CopyClusterSnapshot.CopyClusterSnapshot
- Network.AWS.Redshift.CopyClusterSnapshot: instance GHC.Read.Read Network.AWS.Redshift.CopyClusterSnapshot.CopyClusterSnapshotResponse
- Network.AWS.Redshift.CopyClusterSnapshot: instance GHC.Show.Show Network.AWS.Redshift.CopyClusterSnapshot.CopyClusterSnapshot
- Network.AWS.Redshift.CopyClusterSnapshot: instance GHC.Show.Show Network.AWS.Redshift.CopyClusterSnapshot.CopyClusterSnapshotResponse
- Network.AWS.Redshift.CopyClusterSnapshot: instance Network.AWS.Data.Headers.ToHeaders Network.AWS.Redshift.CopyClusterSnapshot.CopyClusterSnapshot
- Network.AWS.Redshift.CopyClusterSnapshot: instance Network.AWS.Data.Path.ToPath Network.AWS.Redshift.CopyClusterSnapshot.CopyClusterSnapshot
- Network.AWS.Redshift.CopyClusterSnapshot: instance Network.AWS.Data.Query.ToQuery Network.AWS.Redshift.CopyClusterSnapshot.CopyClusterSnapshot
- Network.AWS.Redshift.CopyClusterSnapshot: instance Network.AWS.Types.AWSRequest Network.AWS.Redshift.CopyClusterSnapshot.CopyClusterSnapshot
- Network.AWS.Redshift.CreateCluster: ccAdditionalInfo :: Lens' CreateCluster (Maybe Text)
- Network.AWS.Redshift.CreateCluster: ccAllowVersionUpgrade :: Lens' CreateCluster (Maybe Bool)
- Network.AWS.Redshift.CreateCluster: ccAutomatedSnapshotRetentionPeriod :: Lens' CreateCluster (Maybe Int)
- Network.AWS.Redshift.CreateCluster: ccAvailabilityZone :: Lens' CreateCluster (Maybe Text)
- Network.AWS.Redshift.CreateCluster: ccClusterIdentifier :: Lens' CreateCluster Text
- Network.AWS.Redshift.CreateCluster: ccClusterParameterGroupName :: Lens' CreateCluster (Maybe Text)
- Network.AWS.Redshift.CreateCluster: ccClusterSecurityGroups :: Lens' CreateCluster [Text]
- Network.AWS.Redshift.CreateCluster: ccClusterSubnetGroupName :: Lens' CreateCluster (Maybe Text)
- Network.AWS.Redshift.CreateCluster: ccClusterType :: Lens' CreateCluster (Maybe Text)
- Network.AWS.Redshift.CreateCluster: ccClusterVersion :: Lens' CreateCluster (Maybe Text)
- Network.AWS.Redshift.CreateCluster: ccDBName :: Lens' CreateCluster (Maybe Text)
- Network.AWS.Redshift.CreateCluster: ccElasticIP :: Lens' CreateCluster (Maybe Text)
- Network.AWS.Redshift.CreateCluster: ccEncrypted :: Lens' CreateCluster (Maybe Bool)
- Network.AWS.Redshift.CreateCluster: ccEnhancedVPCRouting :: Lens' CreateCluster (Maybe Bool)
- Network.AWS.Redshift.CreateCluster: ccHSMClientCertificateIdentifier :: Lens' CreateCluster (Maybe Text)
- Network.AWS.Redshift.CreateCluster: ccHSMConfigurationIdentifier :: Lens' CreateCluster (Maybe Text)
- Network.AWS.Redshift.CreateCluster: ccIAMRoles :: Lens' CreateCluster [Text]
- Network.AWS.Redshift.CreateCluster: ccKMSKeyId :: Lens' CreateCluster (Maybe Text)
- Network.AWS.Redshift.CreateCluster: ccMasterUserPassword :: Lens' CreateCluster Text
- Network.AWS.Redshift.CreateCluster: ccMasterUsername :: Lens' CreateCluster Text
- Network.AWS.Redshift.CreateCluster: ccNodeType :: Lens' CreateCluster Text
- Network.AWS.Redshift.CreateCluster: ccNumberOfNodes :: Lens' CreateCluster (Maybe Int)
- Network.AWS.Redshift.CreateCluster: ccPort :: Lens' CreateCluster (Maybe Int)
- Network.AWS.Redshift.CreateCluster: ccPreferredMaintenanceWindow :: Lens' CreateCluster (Maybe Text)
- Network.AWS.Redshift.CreateCluster: ccPubliclyAccessible :: Lens' CreateCluster (Maybe Bool)
- Network.AWS.Redshift.CreateCluster: ccTags :: Lens' CreateCluster [Tag]
- Network.AWS.Redshift.CreateCluster: ccVPCSecurityGroupIds :: Lens' CreateCluster [Text]
- Network.AWS.Redshift.CreateCluster: ccrsCluster :: Lens' CreateClusterResponse (Maybe Cluster)
- Network.AWS.Redshift.CreateCluster: ccrsResponseStatus :: Lens' CreateClusterResponse Int
- Network.AWS.Redshift.CreateCluster: createCluster :: Text -> Text -> Text -> Text -> CreateCluster
- Network.AWS.Redshift.CreateCluster: createClusterResponse :: Int -> CreateClusterResponse
- Network.AWS.Redshift.CreateCluster: data CreateCluster
- Network.AWS.Redshift.CreateCluster: data CreateClusterResponse
- Network.AWS.Redshift.CreateCluster: instance Control.DeepSeq.NFData Network.AWS.Redshift.CreateCluster.CreateCluster
- Network.AWS.Redshift.CreateCluster: instance Control.DeepSeq.NFData Network.AWS.Redshift.CreateCluster.CreateClusterResponse
- Network.AWS.Redshift.CreateCluster: instance Data.Data.Data Network.AWS.Redshift.CreateCluster.CreateCluster
- Network.AWS.Redshift.CreateCluster: instance Data.Data.Data Network.AWS.Redshift.CreateCluster.CreateClusterResponse
- Network.AWS.Redshift.CreateCluster: instance Data.Hashable.Class.Hashable Network.AWS.Redshift.CreateCluster.CreateCluster
- Network.AWS.Redshift.CreateCluster: instance GHC.Classes.Eq Network.AWS.Redshift.CreateCluster.CreateCluster
- Network.AWS.Redshift.CreateCluster: instance GHC.Classes.Eq Network.AWS.Redshift.CreateCluster.CreateClusterResponse
- Network.AWS.Redshift.CreateCluster: instance GHC.Generics.Generic Network.AWS.Redshift.CreateCluster.CreateCluster
- Network.AWS.Redshift.CreateCluster: instance GHC.Generics.Generic Network.AWS.Redshift.CreateCluster.CreateClusterResponse
- Network.AWS.Redshift.CreateCluster: instance GHC.Read.Read Network.AWS.Redshift.CreateCluster.CreateCluster
- Network.AWS.Redshift.CreateCluster: instance GHC.Read.Read Network.AWS.Redshift.CreateCluster.CreateClusterResponse
- Network.AWS.Redshift.CreateCluster: instance GHC.Show.Show Network.AWS.Redshift.CreateCluster.CreateCluster
- Network.AWS.Redshift.CreateCluster: instance GHC.Show.Show Network.AWS.Redshift.CreateCluster.CreateClusterResponse
- Network.AWS.Redshift.CreateCluster: instance Network.AWS.Data.Headers.ToHeaders Network.AWS.Redshift.CreateCluster.CreateCluster
- Network.AWS.Redshift.CreateCluster: instance Network.AWS.Data.Path.ToPath Network.AWS.Redshift.CreateCluster.CreateCluster
- Network.AWS.Redshift.CreateCluster: instance Network.AWS.Data.Query.ToQuery Network.AWS.Redshift.CreateCluster.CreateCluster
- Network.AWS.Redshift.CreateCluster: instance Network.AWS.Types.AWSRequest Network.AWS.Redshift.CreateCluster.CreateCluster
- Network.AWS.Redshift.CreateClusterParameterGroup: ccpgDescription :: Lens' CreateClusterParameterGroup Text
- Network.AWS.Redshift.CreateClusterParameterGroup: ccpgParameterGroupFamily :: Lens' CreateClusterParameterGroup Text
- Network.AWS.Redshift.CreateClusterParameterGroup: ccpgParameterGroupName :: Lens' CreateClusterParameterGroup Text
- Network.AWS.Redshift.CreateClusterParameterGroup: ccpgTags :: Lens' CreateClusterParameterGroup [Tag]
- Network.AWS.Redshift.CreateClusterParameterGroup: ccpgrsClusterParameterGroup :: Lens' CreateClusterParameterGroupResponse (Maybe ClusterParameterGroup)
- Network.AWS.Redshift.CreateClusterParameterGroup: ccpgrsResponseStatus :: Lens' CreateClusterParameterGroupResponse Int
- Network.AWS.Redshift.CreateClusterParameterGroup: createClusterParameterGroup :: Text -> Text -> Text -> CreateClusterParameterGroup
- Network.AWS.Redshift.CreateClusterParameterGroup: createClusterParameterGroupResponse :: Int -> CreateClusterParameterGroupResponse
- Network.AWS.Redshift.CreateClusterParameterGroup: data CreateClusterParameterGroup
- Network.AWS.Redshift.CreateClusterParameterGroup: data CreateClusterParameterGroupResponse
- Network.AWS.Redshift.CreateClusterParameterGroup: instance Control.DeepSeq.NFData Network.AWS.Redshift.CreateClusterParameterGroup.CreateClusterParameterGroup
- Network.AWS.Redshift.CreateClusterParameterGroup: instance Control.DeepSeq.NFData Network.AWS.Redshift.CreateClusterParameterGroup.CreateClusterParameterGroupResponse
- Network.AWS.Redshift.CreateClusterParameterGroup: instance Data.Data.Data Network.AWS.Redshift.CreateClusterParameterGroup.CreateClusterParameterGroup
- Network.AWS.Redshift.CreateClusterParameterGroup: instance Data.Data.Data Network.AWS.Redshift.CreateClusterParameterGroup.CreateClusterParameterGroupResponse
- Network.AWS.Redshift.CreateClusterParameterGroup: instance Data.Hashable.Class.Hashable Network.AWS.Redshift.CreateClusterParameterGroup.CreateClusterParameterGroup
- Network.AWS.Redshift.CreateClusterParameterGroup: instance GHC.Classes.Eq Network.AWS.Redshift.CreateClusterParameterGroup.CreateClusterParameterGroup
- Network.AWS.Redshift.CreateClusterParameterGroup: instance GHC.Classes.Eq Network.AWS.Redshift.CreateClusterParameterGroup.CreateClusterParameterGroupResponse
- Network.AWS.Redshift.CreateClusterParameterGroup: instance GHC.Generics.Generic Network.AWS.Redshift.CreateClusterParameterGroup.CreateClusterParameterGroup
- Network.AWS.Redshift.CreateClusterParameterGroup: instance GHC.Generics.Generic Network.AWS.Redshift.CreateClusterParameterGroup.CreateClusterParameterGroupResponse
- Network.AWS.Redshift.CreateClusterParameterGroup: instance GHC.Read.Read Network.AWS.Redshift.CreateClusterParameterGroup.CreateClusterParameterGroup
- Network.AWS.Redshift.CreateClusterParameterGroup: instance GHC.Read.Read Network.AWS.Redshift.CreateClusterParameterGroup.CreateClusterParameterGroupResponse
- Network.AWS.Redshift.CreateClusterParameterGroup: instance GHC.Show.Show Network.AWS.Redshift.CreateClusterParameterGroup.CreateClusterParameterGroup
- Network.AWS.Redshift.CreateClusterParameterGroup: instance GHC.Show.Show Network.AWS.Redshift.CreateClusterParameterGroup.CreateClusterParameterGroupResponse
- Network.AWS.Redshift.CreateClusterParameterGroup: instance Network.AWS.Data.Headers.ToHeaders Network.AWS.Redshift.CreateClusterParameterGroup.CreateClusterParameterGroup
- Network.AWS.Redshift.CreateClusterParameterGroup: instance Network.AWS.Data.Path.ToPath Network.AWS.Redshift.CreateClusterParameterGroup.CreateClusterParameterGroup
- Network.AWS.Redshift.CreateClusterParameterGroup: instance Network.AWS.Data.Query.ToQuery Network.AWS.Redshift.CreateClusterParameterGroup.CreateClusterParameterGroup
- Network.AWS.Redshift.CreateClusterParameterGroup: instance Network.AWS.Types.AWSRequest Network.AWS.Redshift.CreateClusterParameterGroup.CreateClusterParameterGroup
- Network.AWS.Redshift.CreateClusterSecurityGroup: creClusterSecurityGroupName :: Lens' CreateClusterSecurityGroup Text
- Network.AWS.Redshift.CreateClusterSecurityGroup: creDescription :: Lens' CreateClusterSecurityGroup Text
- Network.AWS.Redshift.CreateClusterSecurityGroup: creTags :: Lens' CreateClusterSecurityGroup [Tag]
- Network.AWS.Redshift.CreateClusterSecurityGroup: createClusterSecurityGroup :: Text -> Text -> CreateClusterSecurityGroup
- Network.AWS.Redshift.CreateClusterSecurityGroup: createClusterSecurityGroupResponse :: Int -> CreateClusterSecurityGroupResponse
- Network.AWS.Redshift.CreateClusterSecurityGroup: crsClusterSecurityGroup :: Lens' CreateClusterSecurityGroupResponse (Maybe ClusterSecurityGroup)
- Network.AWS.Redshift.CreateClusterSecurityGroup: crsResponseStatus :: Lens' CreateClusterSecurityGroupResponse Int
- Network.AWS.Redshift.CreateClusterSecurityGroup: data CreateClusterSecurityGroup
- Network.AWS.Redshift.CreateClusterSecurityGroup: data CreateClusterSecurityGroupResponse
- Network.AWS.Redshift.CreateClusterSecurityGroup: instance Control.DeepSeq.NFData Network.AWS.Redshift.CreateClusterSecurityGroup.CreateClusterSecurityGroup
- Network.AWS.Redshift.CreateClusterSecurityGroup: instance Control.DeepSeq.NFData Network.AWS.Redshift.CreateClusterSecurityGroup.CreateClusterSecurityGroupResponse
- Network.AWS.Redshift.CreateClusterSecurityGroup: instance Data.Data.Data Network.AWS.Redshift.CreateClusterSecurityGroup.CreateClusterSecurityGroup
- Network.AWS.Redshift.CreateClusterSecurityGroup: instance Data.Data.Data Network.AWS.Redshift.CreateClusterSecurityGroup.CreateClusterSecurityGroupResponse
- Network.AWS.Redshift.CreateClusterSecurityGroup: instance Data.Hashable.Class.Hashable Network.AWS.Redshift.CreateClusterSecurityGroup.CreateClusterSecurityGroup
- Network.AWS.Redshift.CreateClusterSecurityGroup: instance GHC.Classes.Eq Network.AWS.Redshift.CreateClusterSecurityGroup.CreateClusterSecurityGroup
- Network.AWS.Redshift.CreateClusterSecurityGroup: instance GHC.Classes.Eq Network.AWS.Redshift.CreateClusterSecurityGroup.CreateClusterSecurityGroupResponse
- Network.AWS.Redshift.CreateClusterSecurityGroup: instance GHC.Generics.Generic Network.AWS.Redshift.CreateClusterSecurityGroup.CreateClusterSecurityGroup
- Network.AWS.Redshift.CreateClusterSecurityGroup: instance GHC.Generics.Generic Network.AWS.Redshift.CreateClusterSecurityGroup.CreateClusterSecurityGroupResponse
- Network.AWS.Redshift.CreateClusterSecurityGroup: instance GHC.Read.Read Network.AWS.Redshift.CreateClusterSecurityGroup.CreateClusterSecurityGroup
- Network.AWS.Redshift.CreateClusterSecurityGroup: instance GHC.Read.Read Network.AWS.Redshift.CreateClusterSecurityGroup.CreateClusterSecurityGroupResponse
- Network.AWS.Redshift.CreateClusterSecurityGroup: instance GHC.Show.Show Network.AWS.Redshift.CreateClusterSecurityGroup.CreateClusterSecurityGroup
- Network.AWS.Redshift.CreateClusterSecurityGroup: instance GHC.Show.Show Network.AWS.Redshift.CreateClusterSecurityGroup.CreateClusterSecurityGroupResponse
- Network.AWS.Redshift.CreateClusterSecurityGroup: instance Network.AWS.Data.Headers.ToHeaders Network.AWS.Redshift.CreateClusterSecurityGroup.CreateClusterSecurityGroup
- Network.AWS.Redshift.CreateClusterSecurityGroup: instance Network.AWS.Data.Path.ToPath Network.AWS.Redshift.CreateClusterSecurityGroup.CreateClusterSecurityGroup
- Network.AWS.Redshift.CreateClusterSecurityGroup: instance Network.AWS.Data.Query.ToQuery Network.AWS.Redshift.CreateClusterSecurityGroup.CreateClusterSecurityGroup
- Network.AWS.Redshift.CreateClusterSecurityGroup: instance Network.AWS.Types.AWSRequest Network.AWS.Redshift.CreateClusterSecurityGroup.CreateClusterSecurityGroup
- Network.AWS.Redshift.CreateClusterSnapshot: ccsClusterIdentifier :: Lens' CreateClusterSnapshot Text
- Network.AWS.Redshift.CreateClusterSnapshot: ccsSnapshotIdentifier :: Lens' CreateClusterSnapshot Text
- Network.AWS.Redshift.CreateClusterSnapshot: ccsTags :: Lens' CreateClusterSnapshot [Tag]
- Network.AWS.Redshift.CreateClusterSnapshot: createClusterSnapshot :: Text -> Text -> CreateClusterSnapshot
- Network.AWS.Redshift.CreateClusterSnapshot: createClusterSnapshotResponse :: Int -> CreateClusterSnapshotResponse
- Network.AWS.Redshift.CreateClusterSnapshot: crersResponseStatus :: Lens' CreateClusterSnapshotResponse Int
- Network.AWS.Redshift.CreateClusterSnapshot: crersSnapshot :: Lens' CreateClusterSnapshotResponse (Maybe Snapshot)
- Network.AWS.Redshift.CreateClusterSnapshot: data CreateClusterSnapshot
- Network.AWS.Redshift.CreateClusterSnapshot: data CreateClusterSnapshotResponse
- Network.AWS.Redshift.CreateClusterSnapshot: instance Control.DeepSeq.NFData Network.AWS.Redshift.CreateClusterSnapshot.CreateClusterSnapshot
- Network.AWS.Redshift.CreateClusterSnapshot: instance Control.DeepSeq.NFData Network.AWS.Redshift.CreateClusterSnapshot.CreateClusterSnapshotResponse
- Network.AWS.Redshift.CreateClusterSnapshot: instance Data.Data.Data Network.AWS.Redshift.CreateClusterSnapshot.CreateClusterSnapshot
- Network.AWS.Redshift.CreateClusterSnapshot: instance Data.Data.Data Network.AWS.Redshift.CreateClusterSnapshot.CreateClusterSnapshotResponse
- Network.AWS.Redshift.CreateClusterSnapshot: instance Data.Hashable.Class.Hashable Network.AWS.Redshift.CreateClusterSnapshot.CreateClusterSnapshot
- Network.AWS.Redshift.CreateClusterSnapshot: instance GHC.Classes.Eq Network.AWS.Redshift.CreateClusterSnapshot.CreateClusterSnapshot
- Network.AWS.Redshift.CreateClusterSnapshot: instance GHC.Classes.Eq Network.AWS.Redshift.CreateClusterSnapshot.CreateClusterSnapshotResponse
- Network.AWS.Redshift.CreateClusterSnapshot: instance GHC.Generics.Generic Network.AWS.Redshift.CreateClusterSnapshot.CreateClusterSnapshot
- Network.AWS.Redshift.CreateClusterSnapshot: instance GHC.Generics.Generic Network.AWS.Redshift.CreateClusterSnapshot.CreateClusterSnapshotResponse
- Network.AWS.Redshift.CreateClusterSnapshot: instance GHC.Read.Read Network.AWS.Redshift.CreateClusterSnapshot.CreateClusterSnapshot
- Network.AWS.Redshift.CreateClusterSnapshot: instance GHC.Read.Read Network.AWS.Redshift.CreateClusterSnapshot.CreateClusterSnapshotResponse
- Network.AWS.Redshift.CreateClusterSnapshot: instance GHC.Show.Show Network.AWS.Redshift.CreateClusterSnapshot.CreateClusterSnapshot
- Network.AWS.Redshift.CreateClusterSnapshot: instance GHC.Show.Show Network.AWS.Redshift.CreateClusterSnapshot.CreateClusterSnapshotResponse
- Network.AWS.Redshift.CreateClusterSnapshot: instance Network.AWS.Data.Headers.ToHeaders Network.AWS.Redshift.CreateClusterSnapshot.CreateClusterSnapshot
- Network.AWS.Redshift.CreateClusterSnapshot: instance Network.AWS.Data.Path.ToPath Network.AWS.Redshift.CreateClusterSnapshot.CreateClusterSnapshot
- Network.AWS.Redshift.CreateClusterSnapshot: instance Network.AWS.Data.Query.ToQuery Network.AWS.Redshift.CreateClusterSnapshot.CreateClusterSnapshot
- Network.AWS.Redshift.CreateClusterSnapshot: instance Network.AWS.Types.AWSRequest Network.AWS.Redshift.CreateClusterSnapshot.CreateClusterSnapshot
- Network.AWS.Redshift.CreateClusterSubnetGroup: ccsgClusterSubnetGroupName :: Lens' CreateClusterSubnetGroup Text
- Network.AWS.Redshift.CreateClusterSubnetGroup: ccsgDescription :: Lens' CreateClusterSubnetGroup Text
- Network.AWS.Redshift.CreateClusterSubnetGroup: ccsgSubnetIds :: Lens' CreateClusterSubnetGroup [Text]
- Network.AWS.Redshift.CreateClusterSubnetGroup: ccsgTags :: Lens' CreateClusterSubnetGroup [Tag]
- Network.AWS.Redshift.CreateClusterSubnetGroup: ccsgrsClusterSubnetGroup :: Lens' CreateClusterSubnetGroupResponse (Maybe ClusterSubnetGroup)
- Network.AWS.Redshift.CreateClusterSubnetGroup: ccsgrsResponseStatus :: Lens' CreateClusterSubnetGroupResponse Int
- Network.AWS.Redshift.CreateClusterSubnetGroup: createClusterSubnetGroup :: Text -> Text -> CreateClusterSubnetGroup
- Network.AWS.Redshift.CreateClusterSubnetGroup: createClusterSubnetGroupResponse :: Int -> CreateClusterSubnetGroupResponse
- Network.AWS.Redshift.CreateClusterSubnetGroup: data CreateClusterSubnetGroup
- Network.AWS.Redshift.CreateClusterSubnetGroup: data CreateClusterSubnetGroupResponse
- Network.AWS.Redshift.CreateClusterSubnetGroup: instance Control.DeepSeq.NFData Network.AWS.Redshift.CreateClusterSubnetGroup.CreateClusterSubnetGroup
- Network.AWS.Redshift.CreateClusterSubnetGroup: instance Control.DeepSeq.NFData Network.AWS.Redshift.CreateClusterSubnetGroup.CreateClusterSubnetGroupResponse
- Network.AWS.Redshift.CreateClusterSubnetGroup: instance Data.Data.Data Network.AWS.Redshift.CreateClusterSubnetGroup.CreateClusterSubnetGroup
- Network.AWS.Redshift.CreateClusterSubnetGroup: instance Data.Data.Data Network.AWS.Redshift.CreateClusterSubnetGroup.CreateClusterSubnetGroupResponse
- Network.AWS.Redshift.CreateClusterSubnetGroup: instance Data.Hashable.Class.Hashable Network.AWS.Redshift.CreateClusterSubnetGroup.CreateClusterSubnetGroup
- Network.AWS.Redshift.CreateClusterSubnetGroup: instance GHC.Classes.Eq Network.AWS.Redshift.CreateClusterSubnetGroup.CreateClusterSubnetGroup
- Network.AWS.Redshift.CreateClusterSubnetGroup: instance GHC.Classes.Eq Network.AWS.Redshift.CreateClusterSubnetGroup.CreateClusterSubnetGroupResponse
- Network.AWS.Redshift.CreateClusterSubnetGroup: instance GHC.Generics.Generic Network.AWS.Redshift.CreateClusterSubnetGroup.CreateClusterSubnetGroup
- Network.AWS.Redshift.CreateClusterSubnetGroup: instance GHC.Generics.Generic Network.AWS.Redshift.CreateClusterSubnetGroup.CreateClusterSubnetGroupResponse
- Network.AWS.Redshift.CreateClusterSubnetGroup: instance GHC.Read.Read Network.AWS.Redshift.CreateClusterSubnetGroup.CreateClusterSubnetGroup
- Network.AWS.Redshift.CreateClusterSubnetGroup: instance GHC.Read.Read Network.AWS.Redshift.CreateClusterSubnetGroup.CreateClusterSubnetGroupResponse
- Network.AWS.Redshift.CreateClusterSubnetGroup: instance GHC.Show.Show Network.AWS.Redshift.CreateClusterSubnetGroup.CreateClusterSubnetGroup
- Network.AWS.Redshift.CreateClusterSubnetGroup: instance GHC.Show.Show Network.AWS.Redshift.CreateClusterSubnetGroup.CreateClusterSubnetGroupResponse
- Network.AWS.Redshift.CreateClusterSubnetGroup: instance Network.AWS.Data.Headers.ToHeaders Network.AWS.Redshift.CreateClusterSubnetGroup.CreateClusterSubnetGroup
- Network.AWS.Redshift.CreateClusterSubnetGroup: instance Network.AWS.Data.Path.ToPath Network.AWS.Redshift.CreateClusterSubnetGroup.CreateClusterSubnetGroup
- Network.AWS.Redshift.CreateClusterSubnetGroup: instance Network.AWS.Data.Query.ToQuery Network.AWS.Redshift.CreateClusterSubnetGroup.CreateClusterSubnetGroup
- Network.AWS.Redshift.CreateClusterSubnetGroup: instance Network.AWS.Types.AWSRequest Network.AWS.Redshift.CreateClusterSubnetGroup.CreateClusterSubnetGroup
- Network.AWS.Redshift.CreateEventSubscription: cesEnabled :: Lens' CreateEventSubscription (Maybe Bool)
- Network.AWS.Redshift.CreateEventSubscription: cesEventCategories :: Lens' CreateEventSubscription [Text]
- Network.AWS.Redshift.CreateEventSubscription: cesSNSTopicARN :: Lens' CreateEventSubscription Text
- Network.AWS.Redshift.CreateEventSubscription: cesSeverity :: Lens' CreateEventSubscription (Maybe Text)
- Network.AWS.Redshift.CreateEventSubscription: cesSourceIds :: Lens' CreateEventSubscription [Text]
- Network.AWS.Redshift.CreateEventSubscription: cesSourceType :: Lens' CreateEventSubscription (Maybe Text)
- Network.AWS.Redshift.CreateEventSubscription: cesSubscriptionName :: Lens' CreateEventSubscription Text
- Network.AWS.Redshift.CreateEventSubscription: cesTags :: Lens' CreateEventSubscription [Tag]
- Network.AWS.Redshift.CreateEventSubscription: cesrsEventSubscription :: Lens' CreateEventSubscriptionResponse (Maybe EventSubscription)
- Network.AWS.Redshift.CreateEventSubscription: cesrsResponseStatus :: Lens' CreateEventSubscriptionResponse Int
- Network.AWS.Redshift.CreateEventSubscription: createEventSubscription :: Text -> Text -> CreateEventSubscription
- Network.AWS.Redshift.CreateEventSubscription: createEventSubscriptionResponse :: Int -> CreateEventSubscriptionResponse
- Network.AWS.Redshift.CreateEventSubscription: data CreateEventSubscription
- Network.AWS.Redshift.CreateEventSubscription: data CreateEventSubscriptionResponse
- Network.AWS.Redshift.CreateEventSubscription: instance Control.DeepSeq.NFData Network.AWS.Redshift.CreateEventSubscription.CreateEventSubscription
- Network.AWS.Redshift.CreateEventSubscription: instance Control.DeepSeq.NFData Network.AWS.Redshift.CreateEventSubscription.CreateEventSubscriptionResponse
- Network.AWS.Redshift.CreateEventSubscription: instance Data.Data.Data Network.AWS.Redshift.CreateEventSubscription.CreateEventSubscription
- Network.AWS.Redshift.CreateEventSubscription: instance Data.Data.Data Network.AWS.Redshift.CreateEventSubscription.CreateEventSubscriptionResponse
- Network.AWS.Redshift.CreateEventSubscription: instance Data.Hashable.Class.Hashable Network.AWS.Redshift.CreateEventSubscription.CreateEventSubscription
- Network.AWS.Redshift.CreateEventSubscription: instance GHC.Classes.Eq Network.AWS.Redshift.CreateEventSubscription.CreateEventSubscription
- Network.AWS.Redshift.CreateEventSubscription: instance GHC.Classes.Eq Network.AWS.Redshift.CreateEventSubscription.CreateEventSubscriptionResponse
- Network.AWS.Redshift.CreateEventSubscription: instance GHC.Generics.Generic Network.AWS.Redshift.CreateEventSubscription.CreateEventSubscription
- Network.AWS.Redshift.CreateEventSubscription: instance GHC.Generics.Generic Network.AWS.Redshift.CreateEventSubscription.CreateEventSubscriptionResponse
- Network.AWS.Redshift.CreateEventSubscription: instance GHC.Read.Read Network.AWS.Redshift.CreateEventSubscription.CreateEventSubscription
- Network.AWS.Redshift.CreateEventSubscription: instance GHC.Read.Read Network.AWS.Redshift.CreateEventSubscription.CreateEventSubscriptionResponse
- Network.AWS.Redshift.CreateEventSubscription: instance GHC.Show.Show Network.AWS.Redshift.CreateEventSubscription.CreateEventSubscription
- Network.AWS.Redshift.CreateEventSubscription: instance GHC.Show.Show Network.AWS.Redshift.CreateEventSubscription.CreateEventSubscriptionResponse
- Network.AWS.Redshift.CreateEventSubscription: instance Network.AWS.Data.Headers.ToHeaders Network.AWS.Redshift.CreateEventSubscription.CreateEventSubscription
- Network.AWS.Redshift.CreateEventSubscription: instance Network.AWS.Data.Path.ToPath Network.AWS.Redshift.CreateEventSubscription.CreateEventSubscription
- Network.AWS.Redshift.CreateEventSubscription: instance Network.AWS.Data.Query.ToQuery Network.AWS.Redshift.CreateEventSubscription.CreateEventSubscription
- Network.AWS.Redshift.CreateEventSubscription: instance Network.AWS.Types.AWSRequest Network.AWS.Redshift.CreateEventSubscription.CreateEventSubscription
- Network.AWS.Redshift.CreateHSMClientCertificate: chccHSMClientCertificateIdentifier :: Lens' CreateHSMClientCertificate Text
- Network.AWS.Redshift.CreateHSMClientCertificate: chccTags :: Lens' CreateHSMClientCertificate [Tag]
- Network.AWS.Redshift.CreateHSMClientCertificate: chccrsHSMClientCertificate :: Lens' CreateHSMClientCertificateResponse (Maybe HSMClientCertificate)
- Network.AWS.Redshift.CreateHSMClientCertificate: chccrsResponseStatus :: Lens' CreateHSMClientCertificateResponse Int
- Network.AWS.Redshift.CreateHSMClientCertificate: createHSMClientCertificate :: Text -> CreateHSMClientCertificate
- Network.AWS.Redshift.CreateHSMClientCertificate: createHSMClientCertificateResponse :: Int -> CreateHSMClientCertificateResponse
- Network.AWS.Redshift.CreateHSMClientCertificate: data CreateHSMClientCertificate
- Network.AWS.Redshift.CreateHSMClientCertificate: data CreateHSMClientCertificateResponse
- Network.AWS.Redshift.CreateHSMClientCertificate: instance Control.DeepSeq.NFData Network.AWS.Redshift.CreateHSMClientCertificate.CreateHSMClientCertificate
- Network.AWS.Redshift.CreateHSMClientCertificate: instance Control.DeepSeq.NFData Network.AWS.Redshift.CreateHSMClientCertificate.CreateHSMClientCertificateResponse
- Network.AWS.Redshift.CreateHSMClientCertificate: instance Data.Data.Data Network.AWS.Redshift.CreateHSMClientCertificate.CreateHSMClientCertificate
- Network.AWS.Redshift.CreateHSMClientCertificate: instance Data.Data.Data Network.AWS.Redshift.CreateHSMClientCertificate.CreateHSMClientCertificateResponse
- Network.AWS.Redshift.CreateHSMClientCertificate: instance Data.Hashable.Class.Hashable Network.AWS.Redshift.CreateHSMClientCertificate.CreateHSMClientCertificate
- Network.AWS.Redshift.CreateHSMClientCertificate: instance GHC.Classes.Eq Network.AWS.Redshift.CreateHSMClientCertificate.CreateHSMClientCertificate
- Network.AWS.Redshift.CreateHSMClientCertificate: instance GHC.Classes.Eq Network.AWS.Redshift.CreateHSMClientCertificate.CreateHSMClientCertificateResponse
- Network.AWS.Redshift.CreateHSMClientCertificate: instance GHC.Generics.Generic Network.AWS.Redshift.CreateHSMClientCertificate.CreateHSMClientCertificate
- Network.AWS.Redshift.CreateHSMClientCertificate: instance GHC.Generics.Generic Network.AWS.Redshift.CreateHSMClientCertificate.CreateHSMClientCertificateResponse
- Network.AWS.Redshift.CreateHSMClientCertificate: instance GHC.Read.Read Network.AWS.Redshift.CreateHSMClientCertificate.CreateHSMClientCertificate
- Network.AWS.Redshift.CreateHSMClientCertificate: instance GHC.Read.Read Network.AWS.Redshift.CreateHSMClientCertificate.CreateHSMClientCertificateResponse
- Network.AWS.Redshift.CreateHSMClientCertificate: instance GHC.Show.Show Network.AWS.Redshift.CreateHSMClientCertificate.CreateHSMClientCertificate
- Network.AWS.Redshift.CreateHSMClientCertificate: instance GHC.Show.Show Network.AWS.Redshift.CreateHSMClientCertificate.CreateHSMClientCertificateResponse
- Network.AWS.Redshift.CreateHSMClientCertificate: instance Network.AWS.Data.Headers.ToHeaders Network.AWS.Redshift.CreateHSMClientCertificate.CreateHSMClientCertificate
- Network.AWS.Redshift.CreateHSMClientCertificate: instance Network.AWS.Data.Path.ToPath Network.AWS.Redshift.CreateHSMClientCertificate.CreateHSMClientCertificate
- Network.AWS.Redshift.CreateHSMClientCertificate: instance Network.AWS.Data.Query.ToQuery Network.AWS.Redshift.CreateHSMClientCertificate.CreateHSMClientCertificate
- Network.AWS.Redshift.CreateHSMClientCertificate: instance Network.AWS.Types.AWSRequest Network.AWS.Redshift.CreateHSMClientCertificate.CreateHSMClientCertificate
- Network.AWS.Redshift.CreateHSMConfiguration: chcDescription :: Lens' CreateHSMConfiguration Text
- Network.AWS.Redshift.CreateHSMConfiguration: chcHSMConfigurationIdentifier :: Lens' CreateHSMConfiguration Text
- Network.AWS.Redshift.CreateHSMConfiguration: chcHSMIPAddress :: Lens' CreateHSMConfiguration Text
- Network.AWS.Redshift.CreateHSMConfiguration: chcHSMPartitionName :: Lens' CreateHSMConfiguration Text
- Network.AWS.Redshift.CreateHSMConfiguration: chcHSMPartitionPassword :: Lens' CreateHSMConfiguration Text
- Network.AWS.Redshift.CreateHSMConfiguration: chcHSMServerPublicCertificate :: Lens' CreateHSMConfiguration Text
- Network.AWS.Redshift.CreateHSMConfiguration: chcTags :: Lens' CreateHSMConfiguration [Tag]
- Network.AWS.Redshift.CreateHSMConfiguration: chcrsHSMConfiguration :: Lens' CreateHSMConfigurationResponse (Maybe HSMConfiguration)
- Network.AWS.Redshift.CreateHSMConfiguration: chcrsResponseStatus :: Lens' CreateHSMConfigurationResponse Int
- Network.AWS.Redshift.CreateHSMConfiguration: createHSMConfiguration :: Text -> Text -> Text -> Text -> Text -> Text -> CreateHSMConfiguration
- Network.AWS.Redshift.CreateHSMConfiguration: createHSMConfigurationResponse :: Int -> CreateHSMConfigurationResponse
- Network.AWS.Redshift.CreateHSMConfiguration: data CreateHSMConfiguration
- Network.AWS.Redshift.CreateHSMConfiguration: data CreateHSMConfigurationResponse
- Network.AWS.Redshift.CreateHSMConfiguration: instance Control.DeepSeq.NFData Network.AWS.Redshift.CreateHSMConfiguration.CreateHSMConfiguration
- Network.AWS.Redshift.CreateHSMConfiguration: instance Control.DeepSeq.NFData Network.AWS.Redshift.CreateHSMConfiguration.CreateHSMConfigurationResponse
- Network.AWS.Redshift.CreateHSMConfiguration: instance Data.Data.Data Network.AWS.Redshift.CreateHSMConfiguration.CreateHSMConfiguration
- Network.AWS.Redshift.CreateHSMConfiguration: instance Data.Data.Data Network.AWS.Redshift.CreateHSMConfiguration.CreateHSMConfigurationResponse
- Network.AWS.Redshift.CreateHSMConfiguration: instance Data.Hashable.Class.Hashable Network.AWS.Redshift.CreateHSMConfiguration.CreateHSMConfiguration
- Network.AWS.Redshift.CreateHSMConfiguration: instance GHC.Classes.Eq Network.AWS.Redshift.CreateHSMConfiguration.CreateHSMConfiguration
- Network.AWS.Redshift.CreateHSMConfiguration: instance GHC.Classes.Eq Network.AWS.Redshift.CreateHSMConfiguration.CreateHSMConfigurationResponse
- Network.AWS.Redshift.CreateHSMConfiguration: instance GHC.Generics.Generic Network.AWS.Redshift.CreateHSMConfiguration.CreateHSMConfiguration
- Network.AWS.Redshift.CreateHSMConfiguration: instance GHC.Generics.Generic Network.AWS.Redshift.CreateHSMConfiguration.CreateHSMConfigurationResponse
- Network.AWS.Redshift.CreateHSMConfiguration: instance GHC.Read.Read Network.AWS.Redshift.CreateHSMConfiguration.CreateHSMConfiguration
- Network.AWS.Redshift.CreateHSMConfiguration: instance GHC.Read.Read Network.AWS.Redshift.CreateHSMConfiguration.CreateHSMConfigurationResponse
- Network.AWS.Redshift.CreateHSMConfiguration: instance GHC.Show.Show Network.AWS.Redshift.CreateHSMConfiguration.CreateHSMConfiguration
- Network.AWS.Redshift.CreateHSMConfiguration: instance GHC.Show.Show Network.AWS.Redshift.CreateHSMConfiguration.CreateHSMConfigurationResponse
- Network.AWS.Redshift.CreateHSMConfiguration: instance Network.AWS.Data.Headers.ToHeaders Network.AWS.Redshift.CreateHSMConfiguration.CreateHSMConfiguration
- Network.AWS.Redshift.CreateHSMConfiguration: instance Network.AWS.Data.Path.ToPath Network.AWS.Redshift.CreateHSMConfiguration.CreateHSMConfiguration
- Network.AWS.Redshift.CreateHSMConfiguration: instance Network.AWS.Data.Query.ToQuery Network.AWS.Redshift.CreateHSMConfiguration.CreateHSMConfiguration
- Network.AWS.Redshift.CreateHSMConfiguration: instance Network.AWS.Types.AWSRequest Network.AWS.Redshift.CreateHSMConfiguration.CreateHSMConfiguration
- Network.AWS.Redshift.CreateSnapshotCopyGrant: createSnapshotCopyGrant :: Text -> CreateSnapshotCopyGrant
- Network.AWS.Redshift.CreateSnapshotCopyGrant: createSnapshotCopyGrantResponse :: Int -> CreateSnapshotCopyGrantResponse
- Network.AWS.Redshift.CreateSnapshotCopyGrant: cscgKMSKeyId :: Lens' CreateSnapshotCopyGrant (Maybe Text)
- Network.AWS.Redshift.CreateSnapshotCopyGrant: cscgSnapshotCopyGrantName :: Lens' CreateSnapshotCopyGrant Text
- Network.AWS.Redshift.CreateSnapshotCopyGrant: cscgTags :: Lens' CreateSnapshotCopyGrant [Tag]
- Network.AWS.Redshift.CreateSnapshotCopyGrant: cscgrsResponseStatus :: Lens' CreateSnapshotCopyGrantResponse Int
- Network.AWS.Redshift.CreateSnapshotCopyGrant: cscgrsSnapshotCopyGrant :: Lens' CreateSnapshotCopyGrantResponse (Maybe SnapshotCopyGrant)
- Network.AWS.Redshift.CreateSnapshotCopyGrant: data CreateSnapshotCopyGrant
- Network.AWS.Redshift.CreateSnapshotCopyGrant: data CreateSnapshotCopyGrantResponse
- Network.AWS.Redshift.CreateSnapshotCopyGrant: instance Control.DeepSeq.NFData Network.AWS.Redshift.CreateSnapshotCopyGrant.CreateSnapshotCopyGrant
- Network.AWS.Redshift.CreateSnapshotCopyGrant: instance Control.DeepSeq.NFData Network.AWS.Redshift.CreateSnapshotCopyGrant.CreateSnapshotCopyGrantResponse
- Network.AWS.Redshift.CreateSnapshotCopyGrant: instance Data.Data.Data Network.AWS.Redshift.CreateSnapshotCopyGrant.CreateSnapshotCopyGrant
- Network.AWS.Redshift.CreateSnapshotCopyGrant: instance Data.Data.Data Network.AWS.Redshift.CreateSnapshotCopyGrant.CreateSnapshotCopyGrantResponse
- Network.AWS.Redshift.CreateSnapshotCopyGrant: instance Data.Hashable.Class.Hashable Network.AWS.Redshift.CreateSnapshotCopyGrant.CreateSnapshotCopyGrant
- Network.AWS.Redshift.CreateSnapshotCopyGrant: instance GHC.Classes.Eq Network.AWS.Redshift.CreateSnapshotCopyGrant.CreateSnapshotCopyGrant
- Network.AWS.Redshift.CreateSnapshotCopyGrant: instance GHC.Classes.Eq Network.AWS.Redshift.CreateSnapshotCopyGrant.CreateSnapshotCopyGrantResponse
- Network.AWS.Redshift.CreateSnapshotCopyGrant: instance GHC.Generics.Generic Network.AWS.Redshift.CreateSnapshotCopyGrant.CreateSnapshotCopyGrant
- Network.AWS.Redshift.CreateSnapshotCopyGrant: instance GHC.Generics.Generic Network.AWS.Redshift.CreateSnapshotCopyGrant.CreateSnapshotCopyGrantResponse
- Network.AWS.Redshift.CreateSnapshotCopyGrant: instance GHC.Read.Read Network.AWS.Redshift.CreateSnapshotCopyGrant.CreateSnapshotCopyGrant
- Network.AWS.Redshift.CreateSnapshotCopyGrant: instance GHC.Read.Read Network.AWS.Redshift.CreateSnapshotCopyGrant.CreateSnapshotCopyGrantResponse
- Network.AWS.Redshift.CreateSnapshotCopyGrant: instance GHC.Show.Show Network.AWS.Redshift.CreateSnapshotCopyGrant.CreateSnapshotCopyGrant
- Network.AWS.Redshift.CreateSnapshotCopyGrant: instance GHC.Show.Show Network.AWS.Redshift.CreateSnapshotCopyGrant.CreateSnapshotCopyGrantResponse
- Network.AWS.Redshift.CreateSnapshotCopyGrant: instance Network.AWS.Data.Headers.ToHeaders Network.AWS.Redshift.CreateSnapshotCopyGrant.CreateSnapshotCopyGrant
- Network.AWS.Redshift.CreateSnapshotCopyGrant: instance Network.AWS.Data.Path.ToPath Network.AWS.Redshift.CreateSnapshotCopyGrant.CreateSnapshotCopyGrant
- Network.AWS.Redshift.CreateSnapshotCopyGrant: instance Network.AWS.Data.Query.ToQuery Network.AWS.Redshift.CreateSnapshotCopyGrant.CreateSnapshotCopyGrant
- Network.AWS.Redshift.CreateSnapshotCopyGrant: instance Network.AWS.Types.AWSRequest Network.AWS.Redshift.CreateSnapshotCopyGrant.CreateSnapshotCopyGrant
- Network.AWS.Redshift.CreateTags: createTags :: Text -> CreateTags
- Network.AWS.Redshift.CreateTags: createTagsResponse :: CreateTagsResponse
- Network.AWS.Redshift.CreateTags: ctResourceName :: Lens' CreateTags Text
- Network.AWS.Redshift.CreateTags: ctTags :: Lens' CreateTags [Tag]
- Network.AWS.Redshift.CreateTags: data CreateTags
- Network.AWS.Redshift.CreateTags: data CreateTagsResponse
- Network.AWS.Redshift.CreateTags: instance Control.DeepSeq.NFData Network.AWS.Redshift.CreateTags.CreateTags
- Network.AWS.Redshift.CreateTags: instance Control.DeepSeq.NFData Network.AWS.Redshift.CreateTags.CreateTagsResponse
- Network.AWS.Redshift.CreateTags: instance Data.Data.Data Network.AWS.Redshift.CreateTags.CreateTags
- Network.AWS.Redshift.CreateTags: instance Data.Data.Data Network.AWS.Redshift.CreateTags.CreateTagsResponse
- Network.AWS.Redshift.CreateTags: instance Data.Hashable.Class.Hashable Network.AWS.Redshift.CreateTags.CreateTags
- Network.AWS.Redshift.CreateTags: instance GHC.Classes.Eq Network.AWS.Redshift.CreateTags.CreateTags
- Network.AWS.Redshift.CreateTags: instance GHC.Classes.Eq Network.AWS.Redshift.CreateTags.CreateTagsResponse
- Network.AWS.Redshift.CreateTags: instance GHC.Generics.Generic Network.AWS.Redshift.CreateTags.CreateTags
- Network.AWS.Redshift.CreateTags: instance GHC.Generics.Generic Network.AWS.Redshift.CreateTags.CreateTagsResponse
- Network.AWS.Redshift.CreateTags: instance GHC.Read.Read Network.AWS.Redshift.CreateTags.CreateTags
- Network.AWS.Redshift.CreateTags: instance GHC.Read.Read Network.AWS.Redshift.CreateTags.CreateTagsResponse
- Network.AWS.Redshift.CreateTags: instance GHC.Show.Show Network.AWS.Redshift.CreateTags.CreateTags
- Network.AWS.Redshift.CreateTags: instance GHC.Show.Show Network.AWS.Redshift.CreateTags.CreateTagsResponse
- Network.AWS.Redshift.CreateTags: instance Network.AWS.Data.Headers.ToHeaders Network.AWS.Redshift.CreateTags.CreateTags
- Network.AWS.Redshift.CreateTags: instance Network.AWS.Data.Path.ToPath Network.AWS.Redshift.CreateTags.CreateTags
- Network.AWS.Redshift.CreateTags: instance Network.AWS.Data.Query.ToQuery Network.AWS.Redshift.CreateTags.CreateTags
- Network.AWS.Redshift.CreateTags: instance Network.AWS.Types.AWSRequest Network.AWS.Redshift.CreateTags.CreateTags
- Network.AWS.Redshift.DeleteCluster: data DeleteCluster
- Network.AWS.Redshift.DeleteCluster: data DeleteClusterResponse
- Network.AWS.Redshift.DeleteCluster: delClusterIdentifier :: Lens' DeleteCluster Text
- Network.AWS.Redshift.DeleteCluster: delFinalClusterSnapshotIdentifier :: Lens' DeleteCluster (Maybe Text)
- Network.AWS.Redshift.DeleteCluster: delSkipFinalClusterSnapshot :: Lens' DeleteCluster (Maybe Bool)
- Network.AWS.Redshift.DeleteCluster: deleteCluster :: Text -> DeleteCluster
- Network.AWS.Redshift.DeleteCluster: deleteClusterResponse :: Int -> DeleteClusterResponse
- Network.AWS.Redshift.DeleteCluster: drsCluster :: Lens' DeleteClusterResponse (Maybe Cluster)
- Network.AWS.Redshift.DeleteCluster: drsResponseStatus :: Lens' DeleteClusterResponse Int
- Network.AWS.Redshift.DeleteCluster: instance Control.DeepSeq.NFData Network.AWS.Redshift.DeleteCluster.DeleteCluster
- Network.AWS.Redshift.DeleteCluster: instance Control.DeepSeq.NFData Network.AWS.Redshift.DeleteCluster.DeleteClusterResponse
- Network.AWS.Redshift.DeleteCluster: instance Data.Data.Data Network.AWS.Redshift.DeleteCluster.DeleteCluster
- Network.AWS.Redshift.DeleteCluster: instance Data.Data.Data Network.AWS.Redshift.DeleteCluster.DeleteClusterResponse
- Network.AWS.Redshift.DeleteCluster: instance Data.Hashable.Class.Hashable Network.AWS.Redshift.DeleteCluster.DeleteCluster
- Network.AWS.Redshift.DeleteCluster: instance GHC.Classes.Eq Network.AWS.Redshift.DeleteCluster.DeleteCluster
- Network.AWS.Redshift.DeleteCluster: instance GHC.Classes.Eq Network.AWS.Redshift.DeleteCluster.DeleteClusterResponse
- Network.AWS.Redshift.DeleteCluster: instance GHC.Generics.Generic Network.AWS.Redshift.DeleteCluster.DeleteCluster
- Network.AWS.Redshift.DeleteCluster: instance GHC.Generics.Generic Network.AWS.Redshift.DeleteCluster.DeleteClusterResponse
- Network.AWS.Redshift.DeleteCluster: instance GHC.Read.Read Network.AWS.Redshift.DeleteCluster.DeleteCluster
- Network.AWS.Redshift.DeleteCluster: instance GHC.Read.Read Network.AWS.Redshift.DeleteCluster.DeleteClusterResponse
- Network.AWS.Redshift.DeleteCluster: instance GHC.Show.Show Network.AWS.Redshift.DeleteCluster.DeleteCluster
- Network.AWS.Redshift.DeleteCluster: instance GHC.Show.Show Network.AWS.Redshift.DeleteCluster.DeleteClusterResponse
- Network.AWS.Redshift.DeleteCluster: instance Network.AWS.Data.Headers.ToHeaders Network.AWS.Redshift.DeleteCluster.DeleteCluster
- Network.AWS.Redshift.DeleteCluster: instance Network.AWS.Data.Path.ToPath Network.AWS.Redshift.DeleteCluster.DeleteCluster
- Network.AWS.Redshift.DeleteCluster: instance Network.AWS.Data.Query.ToQuery Network.AWS.Redshift.DeleteCluster.DeleteCluster
- Network.AWS.Redshift.DeleteCluster: instance Network.AWS.Types.AWSRequest Network.AWS.Redshift.DeleteCluster.DeleteCluster
- Network.AWS.Redshift.DeleteClusterParameterGroup: dParameterGroupName :: Lens' DeleteClusterParameterGroup Text
- Network.AWS.Redshift.DeleteClusterParameterGroup: data DeleteClusterParameterGroup
- Network.AWS.Redshift.DeleteClusterParameterGroup: data DeleteClusterParameterGroupResponse
- Network.AWS.Redshift.DeleteClusterParameterGroup: deleteClusterParameterGroup :: Text -> DeleteClusterParameterGroup
- Network.AWS.Redshift.DeleteClusterParameterGroup: deleteClusterParameterGroupResponse :: DeleteClusterParameterGroupResponse
- Network.AWS.Redshift.DeleteClusterParameterGroup: instance Control.DeepSeq.NFData Network.AWS.Redshift.DeleteClusterParameterGroup.DeleteClusterParameterGroup
- Network.AWS.Redshift.DeleteClusterParameterGroup: instance Control.DeepSeq.NFData Network.AWS.Redshift.DeleteClusterParameterGroup.DeleteClusterParameterGroupResponse
- Network.AWS.Redshift.DeleteClusterParameterGroup: instance Data.Data.Data Network.AWS.Redshift.DeleteClusterParameterGroup.DeleteClusterParameterGroup
- Network.AWS.Redshift.DeleteClusterParameterGroup: instance Data.Data.Data Network.AWS.Redshift.DeleteClusterParameterGroup.DeleteClusterParameterGroupResponse
- Network.AWS.Redshift.DeleteClusterParameterGroup: instance Data.Hashable.Class.Hashable Network.AWS.Redshift.DeleteClusterParameterGroup.DeleteClusterParameterGroup
- Network.AWS.Redshift.DeleteClusterParameterGroup: instance GHC.Classes.Eq Network.AWS.Redshift.DeleteClusterParameterGroup.DeleteClusterParameterGroup
- Network.AWS.Redshift.DeleteClusterParameterGroup: instance GHC.Classes.Eq Network.AWS.Redshift.DeleteClusterParameterGroup.DeleteClusterParameterGroupResponse
- Network.AWS.Redshift.DeleteClusterParameterGroup: instance GHC.Generics.Generic Network.AWS.Redshift.DeleteClusterParameterGroup.DeleteClusterParameterGroup
- Network.AWS.Redshift.DeleteClusterParameterGroup: instance GHC.Generics.Generic Network.AWS.Redshift.DeleteClusterParameterGroup.DeleteClusterParameterGroupResponse
- Network.AWS.Redshift.DeleteClusterParameterGroup: instance GHC.Read.Read Network.AWS.Redshift.DeleteClusterParameterGroup.DeleteClusterParameterGroup
- Network.AWS.Redshift.DeleteClusterParameterGroup: instance GHC.Read.Read Network.AWS.Redshift.DeleteClusterParameterGroup.DeleteClusterParameterGroupResponse
- Network.AWS.Redshift.DeleteClusterParameterGroup: instance GHC.Show.Show Network.AWS.Redshift.DeleteClusterParameterGroup.DeleteClusterParameterGroup
- Network.AWS.Redshift.DeleteClusterParameterGroup: instance GHC.Show.Show Network.AWS.Redshift.DeleteClusterParameterGroup.DeleteClusterParameterGroupResponse
- Network.AWS.Redshift.DeleteClusterParameterGroup: instance Network.AWS.Data.Headers.ToHeaders Network.AWS.Redshift.DeleteClusterParameterGroup.DeleteClusterParameterGroup
- Network.AWS.Redshift.DeleteClusterParameterGroup: instance Network.AWS.Data.Path.ToPath Network.AWS.Redshift.DeleteClusterParameterGroup.DeleteClusterParameterGroup
- Network.AWS.Redshift.DeleteClusterParameterGroup: instance Network.AWS.Data.Query.ToQuery Network.AWS.Redshift.DeleteClusterParameterGroup.DeleteClusterParameterGroup
- Network.AWS.Redshift.DeleteClusterParameterGroup: instance Network.AWS.Types.AWSRequest Network.AWS.Redshift.DeleteClusterParameterGroup.DeleteClusterParameterGroup
- Network.AWS.Redshift.DeleteClusterSecurityGroup: dClusterSecurityGroupName :: Lens' DeleteClusterSecurityGroup Text
- Network.AWS.Redshift.DeleteClusterSecurityGroup: data DeleteClusterSecurityGroup
- Network.AWS.Redshift.DeleteClusterSecurityGroup: data DeleteClusterSecurityGroupResponse
- Network.AWS.Redshift.DeleteClusterSecurityGroup: deleteClusterSecurityGroup :: Text -> DeleteClusterSecurityGroup
- Network.AWS.Redshift.DeleteClusterSecurityGroup: deleteClusterSecurityGroupResponse :: DeleteClusterSecurityGroupResponse
- Network.AWS.Redshift.DeleteClusterSecurityGroup: instance Control.DeepSeq.NFData Network.AWS.Redshift.DeleteClusterSecurityGroup.DeleteClusterSecurityGroup
- Network.AWS.Redshift.DeleteClusterSecurityGroup: instance Control.DeepSeq.NFData Network.AWS.Redshift.DeleteClusterSecurityGroup.DeleteClusterSecurityGroupResponse
- Network.AWS.Redshift.DeleteClusterSecurityGroup: instance Data.Data.Data Network.AWS.Redshift.DeleteClusterSecurityGroup.DeleteClusterSecurityGroup
- Network.AWS.Redshift.DeleteClusterSecurityGroup: instance Data.Data.Data Network.AWS.Redshift.DeleteClusterSecurityGroup.DeleteClusterSecurityGroupResponse
- Network.AWS.Redshift.DeleteClusterSecurityGroup: instance Data.Hashable.Class.Hashable Network.AWS.Redshift.DeleteClusterSecurityGroup.DeleteClusterSecurityGroup
- Network.AWS.Redshift.DeleteClusterSecurityGroup: instance GHC.Classes.Eq Network.AWS.Redshift.DeleteClusterSecurityGroup.DeleteClusterSecurityGroup
- Network.AWS.Redshift.DeleteClusterSecurityGroup: instance GHC.Classes.Eq Network.AWS.Redshift.DeleteClusterSecurityGroup.DeleteClusterSecurityGroupResponse
- Network.AWS.Redshift.DeleteClusterSecurityGroup: instance GHC.Generics.Generic Network.AWS.Redshift.DeleteClusterSecurityGroup.DeleteClusterSecurityGroup
- Network.AWS.Redshift.DeleteClusterSecurityGroup: instance GHC.Generics.Generic Network.AWS.Redshift.DeleteClusterSecurityGroup.DeleteClusterSecurityGroupResponse
- Network.AWS.Redshift.DeleteClusterSecurityGroup: instance GHC.Read.Read Network.AWS.Redshift.DeleteClusterSecurityGroup.DeleteClusterSecurityGroup
- Network.AWS.Redshift.DeleteClusterSecurityGroup: instance GHC.Read.Read Network.AWS.Redshift.DeleteClusterSecurityGroup.DeleteClusterSecurityGroupResponse
- Network.AWS.Redshift.DeleteClusterSecurityGroup: instance GHC.Show.Show Network.AWS.Redshift.DeleteClusterSecurityGroup.DeleteClusterSecurityGroup
- Network.AWS.Redshift.DeleteClusterSecurityGroup: instance GHC.Show.Show Network.AWS.Redshift.DeleteClusterSecurityGroup.DeleteClusterSecurityGroupResponse
- Network.AWS.Redshift.DeleteClusterSecurityGroup: instance Network.AWS.Data.Headers.ToHeaders Network.AWS.Redshift.DeleteClusterSecurityGroup.DeleteClusterSecurityGroup
- Network.AWS.Redshift.DeleteClusterSecurityGroup: instance Network.AWS.Data.Path.ToPath Network.AWS.Redshift.DeleteClusterSecurityGroup.DeleteClusterSecurityGroup
- Network.AWS.Redshift.DeleteClusterSecurityGroup: instance Network.AWS.Data.Query.ToQuery Network.AWS.Redshift.DeleteClusterSecurityGroup.DeleteClusterSecurityGroup
- Network.AWS.Redshift.DeleteClusterSecurityGroup: instance Network.AWS.Types.AWSRequest Network.AWS.Redshift.DeleteClusterSecurityGroup.DeleteClusterSecurityGroup
- Network.AWS.Redshift.DeleteClusterSnapshot: data DeleteClusterSnapshot
- Network.AWS.Redshift.DeleteClusterSnapshot: data DeleteClusterSnapshotResponse
- Network.AWS.Redshift.DeleteClusterSnapshot: dcsSnapshotClusterIdentifier :: Lens' DeleteClusterSnapshot (Maybe Text)
- Network.AWS.Redshift.DeleteClusterSnapshot: dcsSnapshotIdentifier :: Lens' DeleteClusterSnapshot Text
- Network.AWS.Redshift.DeleteClusterSnapshot: dcsrsResponseStatus :: Lens' DeleteClusterSnapshotResponse Int
- Network.AWS.Redshift.DeleteClusterSnapshot: dcsrsSnapshot :: Lens' DeleteClusterSnapshotResponse (Maybe Snapshot)
- Network.AWS.Redshift.DeleteClusterSnapshot: deleteClusterSnapshot :: Text -> DeleteClusterSnapshot
- Network.AWS.Redshift.DeleteClusterSnapshot: deleteClusterSnapshotResponse :: Int -> DeleteClusterSnapshotResponse
- Network.AWS.Redshift.DeleteClusterSnapshot: instance Control.DeepSeq.NFData Network.AWS.Redshift.DeleteClusterSnapshot.DeleteClusterSnapshot
- Network.AWS.Redshift.DeleteClusterSnapshot: instance Control.DeepSeq.NFData Network.AWS.Redshift.DeleteClusterSnapshot.DeleteClusterSnapshotResponse
- Network.AWS.Redshift.DeleteClusterSnapshot: instance Data.Data.Data Network.AWS.Redshift.DeleteClusterSnapshot.DeleteClusterSnapshot
- Network.AWS.Redshift.DeleteClusterSnapshot: instance Data.Data.Data Network.AWS.Redshift.DeleteClusterSnapshot.DeleteClusterSnapshotResponse
- Network.AWS.Redshift.DeleteClusterSnapshot: instance Data.Hashable.Class.Hashable Network.AWS.Redshift.DeleteClusterSnapshot.DeleteClusterSnapshot
- Network.AWS.Redshift.DeleteClusterSnapshot: instance GHC.Classes.Eq Network.AWS.Redshift.DeleteClusterSnapshot.DeleteClusterSnapshot
- Network.AWS.Redshift.DeleteClusterSnapshot: instance GHC.Classes.Eq Network.AWS.Redshift.DeleteClusterSnapshot.DeleteClusterSnapshotResponse
- Network.AWS.Redshift.DeleteClusterSnapshot: instance GHC.Generics.Generic Network.AWS.Redshift.DeleteClusterSnapshot.DeleteClusterSnapshot
- Network.AWS.Redshift.DeleteClusterSnapshot: instance GHC.Generics.Generic Network.AWS.Redshift.DeleteClusterSnapshot.DeleteClusterSnapshotResponse
- Network.AWS.Redshift.DeleteClusterSnapshot: instance GHC.Read.Read Network.AWS.Redshift.DeleteClusterSnapshot.DeleteClusterSnapshot
- Network.AWS.Redshift.DeleteClusterSnapshot: instance GHC.Read.Read Network.AWS.Redshift.DeleteClusterSnapshot.DeleteClusterSnapshotResponse
- Network.AWS.Redshift.DeleteClusterSnapshot: instance GHC.Show.Show Network.AWS.Redshift.DeleteClusterSnapshot.DeleteClusterSnapshot
- Network.AWS.Redshift.DeleteClusterSnapshot: instance GHC.Show.Show Network.AWS.Redshift.DeleteClusterSnapshot.DeleteClusterSnapshotResponse
- Network.AWS.Redshift.DeleteClusterSnapshot: instance Network.AWS.Data.Headers.ToHeaders Network.AWS.Redshift.DeleteClusterSnapshot.DeleteClusterSnapshot
- Network.AWS.Redshift.DeleteClusterSnapshot: instance Network.AWS.Data.Path.ToPath Network.AWS.Redshift.DeleteClusterSnapshot.DeleteClusterSnapshot
- Network.AWS.Redshift.DeleteClusterSnapshot: instance Network.AWS.Data.Query.ToQuery Network.AWS.Redshift.DeleteClusterSnapshot.DeleteClusterSnapshot
- Network.AWS.Redshift.DeleteClusterSnapshot: instance Network.AWS.Types.AWSRequest Network.AWS.Redshift.DeleteClusterSnapshot.DeleteClusterSnapshot
- Network.AWS.Redshift.DeleteClusterSubnetGroup: data DeleteClusterSubnetGroup
- Network.AWS.Redshift.DeleteClusterSubnetGroup: data DeleteClusterSubnetGroupResponse
- Network.AWS.Redshift.DeleteClusterSubnetGroup: dcsgClusterSubnetGroupName :: Lens' DeleteClusterSubnetGroup Text
- Network.AWS.Redshift.DeleteClusterSubnetGroup: deleteClusterSubnetGroup :: Text -> DeleteClusterSubnetGroup
- Network.AWS.Redshift.DeleteClusterSubnetGroup: deleteClusterSubnetGroupResponse :: DeleteClusterSubnetGroupResponse
- Network.AWS.Redshift.DeleteClusterSubnetGroup: instance Control.DeepSeq.NFData Network.AWS.Redshift.DeleteClusterSubnetGroup.DeleteClusterSubnetGroup
- Network.AWS.Redshift.DeleteClusterSubnetGroup: instance Control.DeepSeq.NFData Network.AWS.Redshift.DeleteClusterSubnetGroup.DeleteClusterSubnetGroupResponse
- Network.AWS.Redshift.DeleteClusterSubnetGroup: instance Data.Data.Data Network.AWS.Redshift.DeleteClusterSubnetGroup.DeleteClusterSubnetGroup
- Network.AWS.Redshift.DeleteClusterSubnetGroup: instance Data.Data.Data Network.AWS.Redshift.DeleteClusterSubnetGroup.DeleteClusterSubnetGroupResponse
- Network.AWS.Redshift.DeleteClusterSubnetGroup: instance Data.Hashable.Class.Hashable Network.AWS.Redshift.DeleteClusterSubnetGroup.DeleteClusterSubnetGroup
- Network.AWS.Redshift.DeleteClusterSubnetGroup: instance GHC.Classes.Eq Network.AWS.Redshift.DeleteClusterSubnetGroup.DeleteClusterSubnetGroup
- Network.AWS.Redshift.DeleteClusterSubnetGroup: instance GHC.Classes.Eq Network.AWS.Redshift.DeleteClusterSubnetGroup.DeleteClusterSubnetGroupResponse
- Network.AWS.Redshift.DeleteClusterSubnetGroup: instance GHC.Generics.Generic Network.AWS.Redshift.DeleteClusterSubnetGroup.DeleteClusterSubnetGroup
- Network.AWS.Redshift.DeleteClusterSubnetGroup: instance GHC.Generics.Generic Network.AWS.Redshift.DeleteClusterSubnetGroup.DeleteClusterSubnetGroupResponse
- Network.AWS.Redshift.DeleteClusterSubnetGroup: instance GHC.Read.Read Network.AWS.Redshift.DeleteClusterSubnetGroup.DeleteClusterSubnetGroup
- Network.AWS.Redshift.DeleteClusterSubnetGroup: instance GHC.Read.Read Network.AWS.Redshift.DeleteClusterSubnetGroup.DeleteClusterSubnetGroupResponse
- Network.AWS.Redshift.DeleteClusterSubnetGroup: instance GHC.Show.Show Network.AWS.Redshift.DeleteClusterSubnetGroup.DeleteClusterSubnetGroup
- Network.AWS.Redshift.DeleteClusterSubnetGroup: instance GHC.Show.Show Network.AWS.Redshift.DeleteClusterSubnetGroup.DeleteClusterSubnetGroupResponse
- Network.AWS.Redshift.DeleteClusterSubnetGroup: instance Network.AWS.Data.Headers.ToHeaders Network.AWS.Redshift.DeleteClusterSubnetGroup.DeleteClusterSubnetGroup
- Network.AWS.Redshift.DeleteClusterSubnetGroup: instance Network.AWS.Data.Path.ToPath Network.AWS.Redshift.DeleteClusterSubnetGroup.DeleteClusterSubnetGroup
- Network.AWS.Redshift.DeleteClusterSubnetGroup: instance Network.AWS.Data.Query.ToQuery Network.AWS.Redshift.DeleteClusterSubnetGroup.DeleteClusterSubnetGroup
- Network.AWS.Redshift.DeleteClusterSubnetGroup: instance Network.AWS.Types.AWSRequest Network.AWS.Redshift.DeleteClusterSubnetGroup.DeleteClusterSubnetGroup
- Network.AWS.Redshift.DeleteEventSubscription: data DeleteEventSubscription
- Network.AWS.Redshift.DeleteEventSubscription: data DeleteEventSubscriptionResponse
- Network.AWS.Redshift.DeleteEventSubscription: deleteEventSubscription :: Text -> DeleteEventSubscription
- Network.AWS.Redshift.DeleteEventSubscription: deleteEventSubscriptionResponse :: DeleteEventSubscriptionResponse
- Network.AWS.Redshift.DeleteEventSubscription: desSubscriptionName :: Lens' DeleteEventSubscription Text
- Network.AWS.Redshift.DeleteEventSubscription: instance Control.DeepSeq.NFData Network.AWS.Redshift.DeleteEventSubscription.DeleteEventSubscription
- Network.AWS.Redshift.DeleteEventSubscription: instance Control.DeepSeq.NFData Network.AWS.Redshift.DeleteEventSubscription.DeleteEventSubscriptionResponse
- Network.AWS.Redshift.DeleteEventSubscription: instance Data.Data.Data Network.AWS.Redshift.DeleteEventSubscription.DeleteEventSubscription
- Network.AWS.Redshift.DeleteEventSubscription: instance Data.Data.Data Network.AWS.Redshift.DeleteEventSubscription.DeleteEventSubscriptionResponse
- Network.AWS.Redshift.DeleteEventSubscription: instance Data.Hashable.Class.Hashable Network.AWS.Redshift.DeleteEventSubscription.DeleteEventSubscription
- Network.AWS.Redshift.DeleteEventSubscription: instance GHC.Classes.Eq Network.AWS.Redshift.DeleteEventSubscription.DeleteEventSubscription
- Network.AWS.Redshift.DeleteEventSubscription: instance GHC.Classes.Eq Network.AWS.Redshift.DeleteEventSubscription.DeleteEventSubscriptionResponse
- Network.AWS.Redshift.DeleteEventSubscription: instance GHC.Generics.Generic Network.AWS.Redshift.DeleteEventSubscription.DeleteEventSubscription
- Network.AWS.Redshift.DeleteEventSubscription: instance GHC.Generics.Generic Network.AWS.Redshift.DeleteEventSubscription.DeleteEventSubscriptionResponse
- Network.AWS.Redshift.DeleteEventSubscription: instance GHC.Read.Read Network.AWS.Redshift.DeleteEventSubscription.DeleteEventSubscription
- Network.AWS.Redshift.DeleteEventSubscription: instance GHC.Read.Read Network.AWS.Redshift.DeleteEventSubscription.DeleteEventSubscriptionResponse
- Network.AWS.Redshift.DeleteEventSubscription: instance GHC.Show.Show Network.AWS.Redshift.DeleteEventSubscription.DeleteEventSubscription
- Network.AWS.Redshift.DeleteEventSubscription: instance GHC.Show.Show Network.AWS.Redshift.DeleteEventSubscription.DeleteEventSubscriptionResponse
- Network.AWS.Redshift.DeleteEventSubscription: instance Network.AWS.Data.Headers.ToHeaders Network.AWS.Redshift.DeleteEventSubscription.DeleteEventSubscription
- Network.AWS.Redshift.DeleteEventSubscription: instance Network.AWS.Data.Path.ToPath Network.AWS.Redshift.DeleteEventSubscription.DeleteEventSubscription
- Network.AWS.Redshift.DeleteEventSubscription: instance Network.AWS.Data.Query.ToQuery Network.AWS.Redshift.DeleteEventSubscription.DeleteEventSubscription
- Network.AWS.Redshift.DeleteEventSubscription: instance Network.AWS.Types.AWSRequest Network.AWS.Redshift.DeleteEventSubscription.DeleteEventSubscription
- Network.AWS.Redshift.DeleteHSMClientCertificate: data DeleteHSMClientCertificate
- Network.AWS.Redshift.DeleteHSMClientCertificate: data DeleteHSMClientCertificateResponse
- Network.AWS.Redshift.DeleteHSMClientCertificate: deleteHSMClientCertificate :: Text -> DeleteHSMClientCertificate
- Network.AWS.Redshift.DeleteHSMClientCertificate: deleteHSMClientCertificateResponse :: DeleteHSMClientCertificateResponse
- Network.AWS.Redshift.DeleteHSMClientCertificate: dhsmccHSMClientCertificateIdentifier :: Lens' DeleteHSMClientCertificate Text
- Network.AWS.Redshift.DeleteHSMClientCertificate: instance Control.DeepSeq.NFData Network.AWS.Redshift.DeleteHSMClientCertificate.DeleteHSMClientCertificate
- Network.AWS.Redshift.DeleteHSMClientCertificate: instance Control.DeepSeq.NFData Network.AWS.Redshift.DeleteHSMClientCertificate.DeleteHSMClientCertificateResponse
- Network.AWS.Redshift.DeleteHSMClientCertificate: instance Data.Data.Data Network.AWS.Redshift.DeleteHSMClientCertificate.DeleteHSMClientCertificate
- Network.AWS.Redshift.DeleteHSMClientCertificate: instance Data.Data.Data Network.AWS.Redshift.DeleteHSMClientCertificate.DeleteHSMClientCertificateResponse
- Network.AWS.Redshift.DeleteHSMClientCertificate: instance Data.Hashable.Class.Hashable Network.AWS.Redshift.DeleteHSMClientCertificate.DeleteHSMClientCertificate
- Network.AWS.Redshift.DeleteHSMClientCertificate: instance GHC.Classes.Eq Network.AWS.Redshift.DeleteHSMClientCertificate.DeleteHSMClientCertificate
- Network.AWS.Redshift.DeleteHSMClientCertificate: instance GHC.Classes.Eq Network.AWS.Redshift.DeleteHSMClientCertificate.DeleteHSMClientCertificateResponse
- Network.AWS.Redshift.DeleteHSMClientCertificate: instance GHC.Generics.Generic Network.AWS.Redshift.DeleteHSMClientCertificate.DeleteHSMClientCertificate
- Network.AWS.Redshift.DeleteHSMClientCertificate: instance GHC.Generics.Generic Network.AWS.Redshift.DeleteHSMClientCertificate.DeleteHSMClientCertificateResponse
- Network.AWS.Redshift.DeleteHSMClientCertificate: instance GHC.Read.Read Network.AWS.Redshift.DeleteHSMClientCertificate.DeleteHSMClientCertificate
- Network.AWS.Redshift.DeleteHSMClientCertificate: instance GHC.Read.Read Network.AWS.Redshift.DeleteHSMClientCertificate.DeleteHSMClientCertificateResponse
- Network.AWS.Redshift.DeleteHSMClientCertificate: instance GHC.Show.Show Network.AWS.Redshift.DeleteHSMClientCertificate.DeleteHSMClientCertificate
- Network.AWS.Redshift.DeleteHSMClientCertificate: instance GHC.Show.Show Network.AWS.Redshift.DeleteHSMClientCertificate.DeleteHSMClientCertificateResponse
- Network.AWS.Redshift.DeleteHSMClientCertificate: instance Network.AWS.Data.Headers.ToHeaders Network.AWS.Redshift.DeleteHSMClientCertificate.DeleteHSMClientCertificate
- Network.AWS.Redshift.DeleteHSMClientCertificate: instance Network.AWS.Data.Path.ToPath Network.AWS.Redshift.DeleteHSMClientCertificate.DeleteHSMClientCertificate
- Network.AWS.Redshift.DeleteHSMClientCertificate: instance Network.AWS.Data.Query.ToQuery Network.AWS.Redshift.DeleteHSMClientCertificate.DeleteHSMClientCertificate
- Network.AWS.Redshift.DeleteHSMClientCertificate: instance Network.AWS.Types.AWSRequest Network.AWS.Redshift.DeleteHSMClientCertificate.DeleteHSMClientCertificate
- Network.AWS.Redshift.DeleteHSMConfiguration: data DeleteHSMConfiguration
- Network.AWS.Redshift.DeleteHSMConfiguration: data DeleteHSMConfigurationResponse
- Network.AWS.Redshift.DeleteHSMConfiguration: deleteHSMConfiguration :: Text -> DeleteHSMConfiguration
- Network.AWS.Redshift.DeleteHSMConfiguration: deleteHSMConfigurationResponse :: DeleteHSMConfigurationResponse
- Network.AWS.Redshift.DeleteHSMConfiguration: dhcHSMConfigurationIdentifier :: Lens' DeleteHSMConfiguration Text
- Network.AWS.Redshift.DeleteHSMConfiguration: instance Control.DeepSeq.NFData Network.AWS.Redshift.DeleteHSMConfiguration.DeleteHSMConfiguration
- Network.AWS.Redshift.DeleteHSMConfiguration: instance Control.DeepSeq.NFData Network.AWS.Redshift.DeleteHSMConfiguration.DeleteHSMConfigurationResponse
- Network.AWS.Redshift.DeleteHSMConfiguration: instance Data.Data.Data Network.AWS.Redshift.DeleteHSMConfiguration.DeleteHSMConfiguration
- Network.AWS.Redshift.DeleteHSMConfiguration: instance Data.Data.Data Network.AWS.Redshift.DeleteHSMConfiguration.DeleteHSMConfigurationResponse
- Network.AWS.Redshift.DeleteHSMConfiguration: instance Data.Hashable.Class.Hashable Network.AWS.Redshift.DeleteHSMConfiguration.DeleteHSMConfiguration
- Network.AWS.Redshift.DeleteHSMConfiguration: instance GHC.Classes.Eq Network.AWS.Redshift.DeleteHSMConfiguration.DeleteHSMConfiguration
- Network.AWS.Redshift.DeleteHSMConfiguration: instance GHC.Classes.Eq Network.AWS.Redshift.DeleteHSMConfiguration.DeleteHSMConfigurationResponse
- Network.AWS.Redshift.DeleteHSMConfiguration: instance GHC.Generics.Generic Network.AWS.Redshift.DeleteHSMConfiguration.DeleteHSMConfiguration
- Network.AWS.Redshift.DeleteHSMConfiguration: instance GHC.Generics.Generic Network.AWS.Redshift.DeleteHSMConfiguration.DeleteHSMConfigurationResponse
- Network.AWS.Redshift.DeleteHSMConfiguration: instance GHC.Read.Read Network.AWS.Redshift.DeleteHSMConfiguration.DeleteHSMConfiguration
- Network.AWS.Redshift.DeleteHSMConfiguration: instance GHC.Read.Read Network.AWS.Redshift.DeleteHSMConfiguration.DeleteHSMConfigurationResponse
- Network.AWS.Redshift.DeleteHSMConfiguration: instance GHC.Show.Show Network.AWS.Redshift.DeleteHSMConfiguration.DeleteHSMConfiguration
- Network.AWS.Redshift.DeleteHSMConfiguration: instance GHC.Show.Show Network.AWS.Redshift.DeleteHSMConfiguration.DeleteHSMConfigurationResponse
- Network.AWS.Redshift.DeleteHSMConfiguration: instance Network.AWS.Data.Headers.ToHeaders Network.AWS.Redshift.DeleteHSMConfiguration.DeleteHSMConfiguration
- Network.AWS.Redshift.DeleteHSMConfiguration: instance Network.AWS.Data.Path.ToPath Network.AWS.Redshift.DeleteHSMConfiguration.DeleteHSMConfiguration
- Network.AWS.Redshift.DeleteHSMConfiguration: instance Network.AWS.Data.Query.ToQuery Network.AWS.Redshift.DeleteHSMConfiguration.DeleteHSMConfiguration
- Network.AWS.Redshift.DeleteHSMConfiguration: instance Network.AWS.Types.AWSRequest Network.AWS.Redshift.DeleteHSMConfiguration.DeleteHSMConfiguration
- Network.AWS.Redshift.DeleteSnapshotCopyGrant: data DeleteSnapshotCopyGrant
- Network.AWS.Redshift.DeleteSnapshotCopyGrant: data DeleteSnapshotCopyGrantResponse
- Network.AWS.Redshift.DeleteSnapshotCopyGrant: deleteSnapshotCopyGrant :: Text -> DeleteSnapshotCopyGrant
- Network.AWS.Redshift.DeleteSnapshotCopyGrant: deleteSnapshotCopyGrantResponse :: DeleteSnapshotCopyGrantResponse
- Network.AWS.Redshift.DeleteSnapshotCopyGrant: dscgSnapshotCopyGrantName :: Lens' DeleteSnapshotCopyGrant Text
- Network.AWS.Redshift.DeleteSnapshotCopyGrant: instance Control.DeepSeq.NFData Network.AWS.Redshift.DeleteSnapshotCopyGrant.DeleteSnapshotCopyGrant
- Network.AWS.Redshift.DeleteSnapshotCopyGrant: instance Control.DeepSeq.NFData Network.AWS.Redshift.DeleteSnapshotCopyGrant.DeleteSnapshotCopyGrantResponse
- Network.AWS.Redshift.DeleteSnapshotCopyGrant: instance Data.Data.Data Network.AWS.Redshift.DeleteSnapshotCopyGrant.DeleteSnapshotCopyGrant
- Network.AWS.Redshift.DeleteSnapshotCopyGrant: instance Data.Data.Data Network.AWS.Redshift.DeleteSnapshotCopyGrant.DeleteSnapshotCopyGrantResponse
- Network.AWS.Redshift.DeleteSnapshotCopyGrant: instance Data.Hashable.Class.Hashable Network.AWS.Redshift.DeleteSnapshotCopyGrant.DeleteSnapshotCopyGrant
- Network.AWS.Redshift.DeleteSnapshotCopyGrant: instance GHC.Classes.Eq Network.AWS.Redshift.DeleteSnapshotCopyGrant.DeleteSnapshotCopyGrant
- Network.AWS.Redshift.DeleteSnapshotCopyGrant: instance GHC.Classes.Eq Network.AWS.Redshift.DeleteSnapshotCopyGrant.DeleteSnapshotCopyGrantResponse
- Network.AWS.Redshift.DeleteSnapshotCopyGrant: instance GHC.Generics.Generic Network.AWS.Redshift.DeleteSnapshotCopyGrant.DeleteSnapshotCopyGrant
- Network.AWS.Redshift.DeleteSnapshotCopyGrant: instance GHC.Generics.Generic Network.AWS.Redshift.DeleteSnapshotCopyGrant.DeleteSnapshotCopyGrantResponse
- Network.AWS.Redshift.DeleteSnapshotCopyGrant: instance GHC.Read.Read Network.AWS.Redshift.DeleteSnapshotCopyGrant.DeleteSnapshotCopyGrant
- Network.AWS.Redshift.DeleteSnapshotCopyGrant: instance GHC.Read.Read Network.AWS.Redshift.DeleteSnapshotCopyGrant.DeleteSnapshotCopyGrantResponse
- Network.AWS.Redshift.DeleteSnapshotCopyGrant: instance GHC.Show.Show Network.AWS.Redshift.DeleteSnapshotCopyGrant.DeleteSnapshotCopyGrant
- Network.AWS.Redshift.DeleteSnapshotCopyGrant: instance GHC.Show.Show Network.AWS.Redshift.DeleteSnapshotCopyGrant.DeleteSnapshotCopyGrantResponse
- Network.AWS.Redshift.DeleteSnapshotCopyGrant: instance Network.AWS.Data.Headers.ToHeaders Network.AWS.Redshift.DeleteSnapshotCopyGrant.DeleteSnapshotCopyGrant
- Network.AWS.Redshift.DeleteSnapshotCopyGrant: instance Network.AWS.Data.Path.ToPath Network.AWS.Redshift.DeleteSnapshotCopyGrant.DeleteSnapshotCopyGrant
- Network.AWS.Redshift.DeleteSnapshotCopyGrant: instance Network.AWS.Data.Query.ToQuery Network.AWS.Redshift.DeleteSnapshotCopyGrant.DeleteSnapshotCopyGrant
- Network.AWS.Redshift.DeleteSnapshotCopyGrant: instance Network.AWS.Types.AWSRequest Network.AWS.Redshift.DeleteSnapshotCopyGrant.DeleteSnapshotCopyGrant
- Network.AWS.Redshift.DeleteTags: data DeleteTags
- Network.AWS.Redshift.DeleteTags: data DeleteTagsResponse
- Network.AWS.Redshift.DeleteTags: deleteTags :: Text -> DeleteTags
- Network.AWS.Redshift.DeleteTags: deleteTagsResponse :: DeleteTagsResponse
- Network.AWS.Redshift.DeleteTags: dtsResourceName :: Lens' DeleteTags Text
- Network.AWS.Redshift.DeleteTags: dtsTagKeys :: Lens' DeleteTags [Text]
- Network.AWS.Redshift.DeleteTags: instance Control.DeepSeq.NFData Network.AWS.Redshift.DeleteTags.DeleteTags
- Network.AWS.Redshift.DeleteTags: instance Control.DeepSeq.NFData Network.AWS.Redshift.DeleteTags.DeleteTagsResponse
- Network.AWS.Redshift.DeleteTags: instance Data.Data.Data Network.AWS.Redshift.DeleteTags.DeleteTags
- Network.AWS.Redshift.DeleteTags: instance Data.Data.Data Network.AWS.Redshift.DeleteTags.DeleteTagsResponse
- Network.AWS.Redshift.DeleteTags: instance Data.Hashable.Class.Hashable Network.AWS.Redshift.DeleteTags.DeleteTags
- Network.AWS.Redshift.DeleteTags: instance GHC.Classes.Eq Network.AWS.Redshift.DeleteTags.DeleteTags
- Network.AWS.Redshift.DeleteTags: instance GHC.Classes.Eq Network.AWS.Redshift.DeleteTags.DeleteTagsResponse
- Network.AWS.Redshift.DeleteTags: instance GHC.Generics.Generic Network.AWS.Redshift.DeleteTags.DeleteTags
- Network.AWS.Redshift.DeleteTags: instance GHC.Generics.Generic Network.AWS.Redshift.DeleteTags.DeleteTagsResponse
- Network.AWS.Redshift.DeleteTags: instance GHC.Read.Read Network.AWS.Redshift.DeleteTags.DeleteTags
- Network.AWS.Redshift.DeleteTags: instance GHC.Read.Read Network.AWS.Redshift.DeleteTags.DeleteTagsResponse
- Network.AWS.Redshift.DeleteTags: instance GHC.Show.Show Network.AWS.Redshift.DeleteTags.DeleteTags
- Network.AWS.Redshift.DeleteTags: instance GHC.Show.Show Network.AWS.Redshift.DeleteTags.DeleteTagsResponse
- Network.AWS.Redshift.DeleteTags: instance Network.AWS.Data.Headers.ToHeaders Network.AWS.Redshift.DeleteTags.DeleteTags
- Network.AWS.Redshift.DeleteTags: instance Network.AWS.Data.Path.ToPath Network.AWS.Redshift.DeleteTags.DeleteTags
- Network.AWS.Redshift.DeleteTags: instance Network.AWS.Data.Query.ToQuery Network.AWS.Redshift.DeleteTags.DeleteTags
- Network.AWS.Redshift.DeleteTags: instance Network.AWS.Types.AWSRequest Network.AWS.Redshift.DeleteTags.DeleteTags
- Network.AWS.Redshift.DescribeClusterParameterGroups: data DescribeClusterParameterGroups
- Network.AWS.Redshift.DescribeClusterParameterGroups: data DescribeClusterParameterGroupsResponse
- Network.AWS.Redshift.DescribeClusterParameterGroups: dcpgMarker :: Lens' DescribeClusterParameterGroups (Maybe Text)
- Network.AWS.Redshift.DescribeClusterParameterGroups: dcpgMaxRecords :: Lens' DescribeClusterParameterGroups (Maybe Int)
- Network.AWS.Redshift.DescribeClusterParameterGroups: dcpgParameterGroupName :: Lens' DescribeClusterParameterGroups (Maybe Text)
- Network.AWS.Redshift.DescribeClusterParameterGroups: dcpgTagKeys :: Lens' DescribeClusterParameterGroups [Text]
- Network.AWS.Redshift.DescribeClusterParameterGroups: dcpgTagValues :: Lens' DescribeClusterParameterGroups [Text]
- Network.AWS.Redshift.DescribeClusterParameterGroups: dcpgrsMarker :: Lens' DescribeClusterParameterGroupsResponse (Maybe Text)
- Network.AWS.Redshift.DescribeClusterParameterGroups: dcpgrsParameterGroups :: Lens' DescribeClusterParameterGroupsResponse [ClusterParameterGroup]
- Network.AWS.Redshift.DescribeClusterParameterGroups: dcpgrsResponseStatus :: Lens' DescribeClusterParameterGroupsResponse Int
- Network.AWS.Redshift.DescribeClusterParameterGroups: describeClusterParameterGroups :: DescribeClusterParameterGroups
- Network.AWS.Redshift.DescribeClusterParameterGroups: describeClusterParameterGroupsResponse :: Int -> DescribeClusterParameterGroupsResponse
- Network.AWS.Redshift.DescribeClusterParameterGroups: instance Control.DeepSeq.NFData Network.AWS.Redshift.DescribeClusterParameterGroups.DescribeClusterParameterGroups
- Network.AWS.Redshift.DescribeClusterParameterGroups: instance Control.DeepSeq.NFData Network.AWS.Redshift.DescribeClusterParameterGroups.DescribeClusterParameterGroupsResponse
- Network.AWS.Redshift.DescribeClusterParameterGroups: instance Data.Data.Data Network.AWS.Redshift.DescribeClusterParameterGroups.DescribeClusterParameterGroups
- Network.AWS.Redshift.DescribeClusterParameterGroups: instance Data.Data.Data Network.AWS.Redshift.DescribeClusterParameterGroups.DescribeClusterParameterGroupsResponse
- Network.AWS.Redshift.DescribeClusterParameterGroups: instance Data.Hashable.Class.Hashable Network.AWS.Redshift.DescribeClusterParameterGroups.DescribeClusterParameterGroups
- Network.AWS.Redshift.DescribeClusterParameterGroups: instance GHC.Classes.Eq Network.AWS.Redshift.DescribeClusterParameterGroups.DescribeClusterParameterGroups
- Network.AWS.Redshift.DescribeClusterParameterGroups: instance GHC.Classes.Eq Network.AWS.Redshift.DescribeClusterParameterGroups.DescribeClusterParameterGroupsResponse
- Network.AWS.Redshift.DescribeClusterParameterGroups: instance GHC.Generics.Generic Network.AWS.Redshift.DescribeClusterParameterGroups.DescribeClusterParameterGroups
- Network.AWS.Redshift.DescribeClusterParameterGroups: instance GHC.Generics.Generic Network.AWS.Redshift.DescribeClusterParameterGroups.DescribeClusterParameterGroupsResponse
- Network.AWS.Redshift.DescribeClusterParameterGroups: instance GHC.Read.Read Network.AWS.Redshift.DescribeClusterParameterGroups.DescribeClusterParameterGroups
- Network.AWS.Redshift.DescribeClusterParameterGroups: instance GHC.Read.Read Network.AWS.Redshift.DescribeClusterParameterGroups.DescribeClusterParameterGroupsResponse
- Network.AWS.Redshift.DescribeClusterParameterGroups: instance GHC.Show.Show Network.AWS.Redshift.DescribeClusterParameterGroups.DescribeClusterParameterGroups
- Network.AWS.Redshift.DescribeClusterParameterGroups: instance GHC.Show.Show Network.AWS.Redshift.DescribeClusterParameterGroups.DescribeClusterParameterGroupsResponse
- Network.AWS.Redshift.DescribeClusterParameterGroups: instance Network.AWS.Data.Headers.ToHeaders Network.AWS.Redshift.DescribeClusterParameterGroups.DescribeClusterParameterGroups
- Network.AWS.Redshift.DescribeClusterParameterGroups: instance Network.AWS.Data.Path.ToPath Network.AWS.Redshift.DescribeClusterParameterGroups.DescribeClusterParameterGroups
- Network.AWS.Redshift.DescribeClusterParameterGroups: instance Network.AWS.Data.Query.ToQuery Network.AWS.Redshift.DescribeClusterParameterGroups.DescribeClusterParameterGroups
- Network.AWS.Redshift.DescribeClusterParameterGroups: instance Network.AWS.Pager.AWSPager Network.AWS.Redshift.DescribeClusterParameterGroups.DescribeClusterParameterGroups
- Network.AWS.Redshift.DescribeClusterParameterGroups: instance Network.AWS.Types.AWSRequest Network.AWS.Redshift.DescribeClusterParameterGroups.DescribeClusterParameterGroups
- Network.AWS.Redshift.DescribeClusterParameters: data DescribeClusterParameters
- Network.AWS.Redshift.DescribeClusterParameters: data DescribeClusterParametersResponse
- Network.AWS.Redshift.DescribeClusterParameters: dcprsMarker :: Lens' DescribeClusterParametersResponse (Maybe Text)
- Network.AWS.Redshift.DescribeClusterParameters: dcprsParameters :: Lens' DescribeClusterParametersResponse [Parameter]
- Network.AWS.Redshift.DescribeClusterParameters: dcprsResponseStatus :: Lens' DescribeClusterParametersResponse Int
- Network.AWS.Redshift.DescribeClusterParameters: dcpsMarker :: Lens' DescribeClusterParameters (Maybe Text)
- Network.AWS.Redshift.DescribeClusterParameters: dcpsMaxRecords :: Lens' DescribeClusterParameters (Maybe Int)
- Network.AWS.Redshift.DescribeClusterParameters: dcpsParameterGroupName :: Lens' DescribeClusterParameters Text
- Network.AWS.Redshift.DescribeClusterParameters: dcpsSource :: Lens' DescribeClusterParameters (Maybe Text)
- Network.AWS.Redshift.DescribeClusterParameters: describeClusterParameters :: Text -> DescribeClusterParameters
- Network.AWS.Redshift.DescribeClusterParameters: describeClusterParametersResponse :: Int -> DescribeClusterParametersResponse
- Network.AWS.Redshift.DescribeClusterParameters: instance Control.DeepSeq.NFData Network.AWS.Redshift.DescribeClusterParameters.DescribeClusterParameters
- Network.AWS.Redshift.DescribeClusterParameters: instance Control.DeepSeq.NFData Network.AWS.Redshift.DescribeClusterParameters.DescribeClusterParametersResponse
- Network.AWS.Redshift.DescribeClusterParameters: instance Data.Data.Data Network.AWS.Redshift.DescribeClusterParameters.DescribeClusterParameters
- Network.AWS.Redshift.DescribeClusterParameters: instance Data.Data.Data Network.AWS.Redshift.DescribeClusterParameters.DescribeClusterParametersResponse
- Network.AWS.Redshift.DescribeClusterParameters: instance Data.Hashable.Class.Hashable Network.AWS.Redshift.DescribeClusterParameters.DescribeClusterParameters
- Network.AWS.Redshift.DescribeClusterParameters: instance GHC.Classes.Eq Network.AWS.Redshift.DescribeClusterParameters.DescribeClusterParameters
- Network.AWS.Redshift.DescribeClusterParameters: instance GHC.Classes.Eq Network.AWS.Redshift.DescribeClusterParameters.DescribeClusterParametersResponse
- Network.AWS.Redshift.DescribeClusterParameters: instance GHC.Generics.Generic Network.AWS.Redshift.DescribeClusterParameters.DescribeClusterParameters
- Network.AWS.Redshift.DescribeClusterParameters: instance GHC.Generics.Generic Network.AWS.Redshift.DescribeClusterParameters.DescribeClusterParametersResponse
- Network.AWS.Redshift.DescribeClusterParameters: instance GHC.Read.Read Network.AWS.Redshift.DescribeClusterParameters.DescribeClusterParameters
- Network.AWS.Redshift.DescribeClusterParameters: instance GHC.Read.Read Network.AWS.Redshift.DescribeClusterParameters.DescribeClusterParametersResponse
- Network.AWS.Redshift.DescribeClusterParameters: instance GHC.Show.Show Network.AWS.Redshift.DescribeClusterParameters.DescribeClusterParameters
- Network.AWS.Redshift.DescribeClusterParameters: instance GHC.Show.Show Network.AWS.Redshift.DescribeClusterParameters.DescribeClusterParametersResponse
- Network.AWS.Redshift.DescribeClusterParameters: instance Network.AWS.Data.Headers.ToHeaders Network.AWS.Redshift.DescribeClusterParameters.DescribeClusterParameters
- Network.AWS.Redshift.DescribeClusterParameters: instance Network.AWS.Data.Path.ToPath Network.AWS.Redshift.DescribeClusterParameters.DescribeClusterParameters
- Network.AWS.Redshift.DescribeClusterParameters: instance Network.AWS.Data.Query.ToQuery Network.AWS.Redshift.DescribeClusterParameters.DescribeClusterParameters
- Network.AWS.Redshift.DescribeClusterParameters: instance Network.AWS.Pager.AWSPager Network.AWS.Redshift.DescribeClusterParameters.DescribeClusterParameters
- Network.AWS.Redshift.DescribeClusterParameters: instance Network.AWS.Types.AWSRequest Network.AWS.Redshift.DescribeClusterParameters.DescribeClusterParameters
- Network.AWS.Redshift.DescribeClusterSecurityGroups: data DescribeClusterSecurityGroups
- Network.AWS.Redshift.DescribeClusterSecurityGroups: data DescribeClusterSecurityGroupsResponse
- Network.AWS.Redshift.DescribeClusterSecurityGroups: dcsgClusterSecurityGroupName :: Lens' DescribeClusterSecurityGroups (Maybe Text)
- Network.AWS.Redshift.DescribeClusterSecurityGroups: dcsgMarker :: Lens' DescribeClusterSecurityGroups (Maybe Text)
- Network.AWS.Redshift.DescribeClusterSecurityGroups: dcsgMaxRecords :: Lens' DescribeClusterSecurityGroups (Maybe Int)
- Network.AWS.Redshift.DescribeClusterSecurityGroups: dcsgTagKeys :: Lens' DescribeClusterSecurityGroups [Text]
- Network.AWS.Redshift.DescribeClusterSecurityGroups: dcsgTagValues :: Lens' DescribeClusterSecurityGroups [Text]
- Network.AWS.Redshift.DescribeClusterSecurityGroups: dcsgsrsClusterSecurityGroups :: Lens' DescribeClusterSecurityGroupsResponse [ClusterSecurityGroup]
- Network.AWS.Redshift.DescribeClusterSecurityGroups: dcsgsrsMarker :: Lens' DescribeClusterSecurityGroupsResponse (Maybe Text)
- Network.AWS.Redshift.DescribeClusterSecurityGroups: dcsgsrsResponseStatus :: Lens' DescribeClusterSecurityGroupsResponse Int
- Network.AWS.Redshift.DescribeClusterSecurityGroups: describeClusterSecurityGroups :: DescribeClusterSecurityGroups
- Network.AWS.Redshift.DescribeClusterSecurityGroups: describeClusterSecurityGroupsResponse :: Int -> DescribeClusterSecurityGroupsResponse
- Network.AWS.Redshift.DescribeClusterSecurityGroups: instance Control.DeepSeq.NFData Network.AWS.Redshift.DescribeClusterSecurityGroups.DescribeClusterSecurityGroups
- Network.AWS.Redshift.DescribeClusterSecurityGroups: instance Control.DeepSeq.NFData Network.AWS.Redshift.DescribeClusterSecurityGroups.DescribeClusterSecurityGroupsResponse
- Network.AWS.Redshift.DescribeClusterSecurityGroups: instance Data.Data.Data Network.AWS.Redshift.DescribeClusterSecurityGroups.DescribeClusterSecurityGroups
- Network.AWS.Redshift.DescribeClusterSecurityGroups: instance Data.Data.Data Network.AWS.Redshift.DescribeClusterSecurityGroups.DescribeClusterSecurityGroupsResponse
- Network.AWS.Redshift.DescribeClusterSecurityGroups: instance Data.Hashable.Class.Hashable Network.AWS.Redshift.DescribeClusterSecurityGroups.DescribeClusterSecurityGroups
- Network.AWS.Redshift.DescribeClusterSecurityGroups: instance GHC.Classes.Eq Network.AWS.Redshift.DescribeClusterSecurityGroups.DescribeClusterSecurityGroups
- Network.AWS.Redshift.DescribeClusterSecurityGroups: instance GHC.Classes.Eq Network.AWS.Redshift.DescribeClusterSecurityGroups.DescribeClusterSecurityGroupsResponse
- Network.AWS.Redshift.DescribeClusterSecurityGroups: instance GHC.Generics.Generic Network.AWS.Redshift.DescribeClusterSecurityGroups.DescribeClusterSecurityGroups
- Network.AWS.Redshift.DescribeClusterSecurityGroups: instance GHC.Generics.Generic Network.AWS.Redshift.DescribeClusterSecurityGroups.DescribeClusterSecurityGroupsResponse
- Network.AWS.Redshift.DescribeClusterSecurityGroups: instance GHC.Read.Read Network.AWS.Redshift.DescribeClusterSecurityGroups.DescribeClusterSecurityGroups
- Network.AWS.Redshift.DescribeClusterSecurityGroups: instance GHC.Read.Read Network.AWS.Redshift.DescribeClusterSecurityGroups.DescribeClusterSecurityGroupsResponse
- Network.AWS.Redshift.DescribeClusterSecurityGroups: instance GHC.Show.Show Network.AWS.Redshift.DescribeClusterSecurityGroups.DescribeClusterSecurityGroups
- Network.AWS.Redshift.DescribeClusterSecurityGroups: instance GHC.Show.Show Network.AWS.Redshift.DescribeClusterSecurityGroups.DescribeClusterSecurityGroupsResponse
- Network.AWS.Redshift.DescribeClusterSecurityGroups: instance Network.AWS.Data.Headers.ToHeaders Network.AWS.Redshift.DescribeClusterSecurityGroups.DescribeClusterSecurityGroups
- Network.AWS.Redshift.DescribeClusterSecurityGroups: instance Network.AWS.Data.Path.ToPath Network.AWS.Redshift.DescribeClusterSecurityGroups.DescribeClusterSecurityGroups
- Network.AWS.Redshift.DescribeClusterSecurityGroups: instance Network.AWS.Data.Query.ToQuery Network.AWS.Redshift.DescribeClusterSecurityGroups.DescribeClusterSecurityGroups
- Network.AWS.Redshift.DescribeClusterSecurityGroups: instance Network.AWS.Pager.AWSPager Network.AWS.Redshift.DescribeClusterSecurityGroups.DescribeClusterSecurityGroups
- Network.AWS.Redshift.DescribeClusterSecurityGroups: instance Network.AWS.Types.AWSRequest Network.AWS.Redshift.DescribeClusterSecurityGroups.DescribeClusterSecurityGroups
- Network.AWS.Redshift.DescribeClusterSnapshots: dClusterExists :: Lens' DescribeClusterSnapshots (Maybe Bool)
- Network.AWS.Redshift.DescribeClusterSnapshots: dClusterIdentifier :: Lens' DescribeClusterSnapshots (Maybe Text)
- Network.AWS.Redshift.DescribeClusterSnapshots: dEndTime :: Lens' DescribeClusterSnapshots (Maybe UTCTime)
- Network.AWS.Redshift.DescribeClusterSnapshots: dMarker :: Lens' DescribeClusterSnapshots (Maybe Text)
- Network.AWS.Redshift.DescribeClusterSnapshots: dMaxRecords :: Lens' DescribeClusterSnapshots (Maybe Int)
- Network.AWS.Redshift.DescribeClusterSnapshots: dOwnerAccount :: Lens' DescribeClusterSnapshots (Maybe Text)
- Network.AWS.Redshift.DescribeClusterSnapshots: dSnapshotIdentifier :: Lens' DescribeClusterSnapshots (Maybe Text)
- Network.AWS.Redshift.DescribeClusterSnapshots: dSnapshotType :: Lens' DescribeClusterSnapshots (Maybe Text)
- Network.AWS.Redshift.DescribeClusterSnapshots: dStartTime :: Lens' DescribeClusterSnapshots (Maybe UTCTime)
- Network.AWS.Redshift.DescribeClusterSnapshots: dTagKeys :: Lens' DescribeClusterSnapshots [Text]
- Network.AWS.Redshift.DescribeClusterSnapshots: dTagValues :: Lens' DescribeClusterSnapshots [Text]
- Network.AWS.Redshift.DescribeClusterSnapshots: data DescribeClusterSnapshots
- Network.AWS.Redshift.DescribeClusterSnapshots: data DescribeClusterSnapshotsResponse
- Network.AWS.Redshift.DescribeClusterSnapshots: dcssrsMarker :: Lens' DescribeClusterSnapshotsResponse (Maybe Text)
- Network.AWS.Redshift.DescribeClusterSnapshots: dcssrsResponseStatus :: Lens' DescribeClusterSnapshotsResponse Int
- Network.AWS.Redshift.DescribeClusterSnapshots: dcssrsSnapshots :: Lens' DescribeClusterSnapshotsResponse [Snapshot]
- Network.AWS.Redshift.DescribeClusterSnapshots: describeClusterSnapshots :: DescribeClusterSnapshots
- Network.AWS.Redshift.DescribeClusterSnapshots: describeClusterSnapshotsResponse :: Int -> DescribeClusterSnapshotsResponse
- Network.AWS.Redshift.DescribeClusterSnapshots: instance Control.DeepSeq.NFData Network.AWS.Redshift.DescribeClusterSnapshots.DescribeClusterSnapshots
- Network.AWS.Redshift.DescribeClusterSnapshots: instance Control.DeepSeq.NFData Network.AWS.Redshift.DescribeClusterSnapshots.DescribeClusterSnapshotsResponse
- Network.AWS.Redshift.DescribeClusterSnapshots: instance Data.Data.Data Network.AWS.Redshift.DescribeClusterSnapshots.DescribeClusterSnapshots
- Network.AWS.Redshift.DescribeClusterSnapshots: instance Data.Data.Data Network.AWS.Redshift.DescribeClusterSnapshots.DescribeClusterSnapshotsResponse
- Network.AWS.Redshift.DescribeClusterSnapshots: instance Data.Hashable.Class.Hashable Network.AWS.Redshift.DescribeClusterSnapshots.DescribeClusterSnapshots
- Network.AWS.Redshift.DescribeClusterSnapshots: instance GHC.Classes.Eq Network.AWS.Redshift.DescribeClusterSnapshots.DescribeClusterSnapshots
- Network.AWS.Redshift.DescribeClusterSnapshots: instance GHC.Classes.Eq Network.AWS.Redshift.DescribeClusterSnapshots.DescribeClusterSnapshotsResponse
- Network.AWS.Redshift.DescribeClusterSnapshots: instance GHC.Generics.Generic Network.AWS.Redshift.DescribeClusterSnapshots.DescribeClusterSnapshots
- Network.AWS.Redshift.DescribeClusterSnapshots: instance GHC.Generics.Generic Network.AWS.Redshift.DescribeClusterSnapshots.DescribeClusterSnapshotsResponse
- Network.AWS.Redshift.DescribeClusterSnapshots: instance GHC.Read.Read Network.AWS.Redshift.DescribeClusterSnapshots.DescribeClusterSnapshots
- Network.AWS.Redshift.DescribeClusterSnapshots: instance GHC.Read.Read Network.AWS.Redshift.DescribeClusterSnapshots.DescribeClusterSnapshotsResponse
- Network.AWS.Redshift.DescribeClusterSnapshots: instance GHC.Show.Show Network.AWS.Redshift.DescribeClusterSnapshots.DescribeClusterSnapshots
- Network.AWS.Redshift.DescribeClusterSnapshots: instance GHC.Show.Show Network.AWS.Redshift.DescribeClusterSnapshots.DescribeClusterSnapshotsResponse
- Network.AWS.Redshift.DescribeClusterSnapshots: instance Network.AWS.Data.Headers.ToHeaders Network.AWS.Redshift.DescribeClusterSnapshots.DescribeClusterSnapshots
- Network.AWS.Redshift.DescribeClusterSnapshots: instance Network.AWS.Data.Path.ToPath Network.AWS.Redshift.DescribeClusterSnapshots.DescribeClusterSnapshots
- Network.AWS.Redshift.DescribeClusterSnapshots: instance Network.AWS.Data.Query.ToQuery Network.AWS.Redshift.DescribeClusterSnapshots.DescribeClusterSnapshots
- Network.AWS.Redshift.DescribeClusterSnapshots: instance Network.AWS.Pager.AWSPager Network.AWS.Redshift.DescribeClusterSnapshots.DescribeClusterSnapshots
- Network.AWS.Redshift.DescribeClusterSnapshots: instance Network.AWS.Types.AWSRequest Network.AWS.Redshift.DescribeClusterSnapshots.DescribeClusterSnapshots
- Network.AWS.Redshift.DescribeClusterSubnetGroups: data DescribeClusterSubnetGroups
- Network.AWS.Redshift.DescribeClusterSubnetGroups: data DescribeClusterSubnetGroupsResponse
- Network.AWS.Redshift.DescribeClusterSubnetGroups: dcsgrsClusterSubnetGroups :: Lens' DescribeClusterSubnetGroupsResponse [ClusterSubnetGroup]
- Network.AWS.Redshift.DescribeClusterSubnetGroups: dcsgrsMarker :: Lens' DescribeClusterSubnetGroupsResponse (Maybe Text)
- Network.AWS.Redshift.DescribeClusterSubnetGroups: dcsgrsResponseStatus :: Lens' DescribeClusterSubnetGroupsResponse Int
- Network.AWS.Redshift.DescribeClusterSubnetGroups: dcsgsClusterSubnetGroupName :: Lens' DescribeClusterSubnetGroups (Maybe Text)
- Network.AWS.Redshift.DescribeClusterSubnetGroups: dcsgsMarker :: Lens' DescribeClusterSubnetGroups (Maybe Text)
- Network.AWS.Redshift.DescribeClusterSubnetGroups: dcsgsMaxRecords :: Lens' DescribeClusterSubnetGroups (Maybe Int)
- Network.AWS.Redshift.DescribeClusterSubnetGroups: dcsgsTagKeys :: Lens' DescribeClusterSubnetGroups [Text]
- Network.AWS.Redshift.DescribeClusterSubnetGroups: dcsgsTagValues :: Lens' DescribeClusterSubnetGroups [Text]
- Network.AWS.Redshift.DescribeClusterSubnetGroups: describeClusterSubnetGroups :: DescribeClusterSubnetGroups
- Network.AWS.Redshift.DescribeClusterSubnetGroups: describeClusterSubnetGroupsResponse :: Int -> DescribeClusterSubnetGroupsResponse
- Network.AWS.Redshift.DescribeClusterSubnetGroups: instance Control.DeepSeq.NFData Network.AWS.Redshift.DescribeClusterSubnetGroups.DescribeClusterSubnetGroups
- Network.AWS.Redshift.DescribeClusterSubnetGroups: instance Control.DeepSeq.NFData Network.AWS.Redshift.DescribeClusterSubnetGroups.DescribeClusterSubnetGroupsResponse
- Network.AWS.Redshift.DescribeClusterSubnetGroups: instance Data.Data.Data Network.AWS.Redshift.DescribeClusterSubnetGroups.DescribeClusterSubnetGroups
- Network.AWS.Redshift.DescribeClusterSubnetGroups: instance Data.Data.Data Network.AWS.Redshift.DescribeClusterSubnetGroups.DescribeClusterSubnetGroupsResponse
- Network.AWS.Redshift.DescribeClusterSubnetGroups: instance Data.Hashable.Class.Hashable Network.AWS.Redshift.DescribeClusterSubnetGroups.DescribeClusterSubnetGroups
- Network.AWS.Redshift.DescribeClusterSubnetGroups: instance GHC.Classes.Eq Network.AWS.Redshift.DescribeClusterSubnetGroups.DescribeClusterSubnetGroups
- Network.AWS.Redshift.DescribeClusterSubnetGroups: instance GHC.Classes.Eq Network.AWS.Redshift.DescribeClusterSubnetGroups.DescribeClusterSubnetGroupsResponse
- Network.AWS.Redshift.DescribeClusterSubnetGroups: instance GHC.Generics.Generic Network.AWS.Redshift.DescribeClusterSubnetGroups.DescribeClusterSubnetGroups
- Network.AWS.Redshift.DescribeClusterSubnetGroups: instance GHC.Generics.Generic Network.AWS.Redshift.DescribeClusterSubnetGroups.DescribeClusterSubnetGroupsResponse
- Network.AWS.Redshift.DescribeClusterSubnetGroups: instance GHC.Read.Read Network.AWS.Redshift.DescribeClusterSubnetGroups.DescribeClusterSubnetGroups
- Network.AWS.Redshift.DescribeClusterSubnetGroups: instance GHC.Read.Read Network.AWS.Redshift.DescribeClusterSubnetGroups.DescribeClusterSubnetGroupsResponse
- Network.AWS.Redshift.DescribeClusterSubnetGroups: instance GHC.Show.Show Network.AWS.Redshift.DescribeClusterSubnetGroups.DescribeClusterSubnetGroups
- Network.AWS.Redshift.DescribeClusterSubnetGroups: instance GHC.Show.Show Network.AWS.Redshift.DescribeClusterSubnetGroups.DescribeClusterSubnetGroupsResponse
- Network.AWS.Redshift.DescribeClusterSubnetGroups: instance Network.AWS.Data.Headers.ToHeaders Network.AWS.Redshift.DescribeClusterSubnetGroups.DescribeClusterSubnetGroups
- Network.AWS.Redshift.DescribeClusterSubnetGroups: instance Network.AWS.Data.Path.ToPath Network.AWS.Redshift.DescribeClusterSubnetGroups.DescribeClusterSubnetGroups
- Network.AWS.Redshift.DescribeClusterSubnetGroups: instance Network.AWS.Data.Query.ToQuery Network.AWS.Redshift.DescribeClusterSubnetGroups.DescribeClusterSubnetGroups
- Network.AWS.Redshift.DescribeClusterSubnetGroups: instance Network.AWS.Pager.AWSPager Network.AWS.Redshift.DescribeClusterSubnetGroups.DescribeClusterSubnetGroups
- Network.AWS.Redshift.DescribeClusterSubnetGroups: instance Network.AWS.Types.AWSRequest Network.AWS.Redshift.DescribeClusterSubnetGroups.DescribeClusterSubnetGroups
- Network.AWS.Redshift.DescribeClusterVersions: data DescribeClusterVersions
- Network.AWS.Redshift.DescribeClusterVersions: data DescribeClusterVersionsResponse
- Network.AWS.Redshift.DescribeClusterVersions: dcvClusterParameterGroupFamily :: Lens' DescribeClusterVersions (Maybe Text)
- Network.AWS.Redshift.DescribeClusterVersions: dcvClusterVersion :: Lens' DescribeClusterVersions (Maybe Text)
- Network.AWS.Redshift.DescribeClusterVersions: dcvMarker :: Lens' DescribeClusterVersions (Maybe Text)
- Network.AWS.Redshift.DescribeClusterVersions: dcvMaxRecords :: Lens' DescribeClusterVersions (Maybe Int)
- Network.AWS.Redshift.DescribeClusterVersions: dcvrsClusterVersions :: Lens' DescribeClusterVersionsResponse [ClusterVersion]
- Network.AWS.Redshift.DescribeClusterVersions: dcvrsMarker :: Lens' DescribeClusterVersionsResponse (Maybe Text)
- Network.AWS.Redshift.DescribeClusterVersions: dcvrsResponseStatus :: Lens' DescribeClusterVersionsResponse Int
- Network.AWS.Redshift.DescribeClusterVersions: describeClusterVersions :: DescribeClusterVersions
- Network.AWS.Redshift.DescribeClusterVersions: describeClusterVersionsResponse :: Int -> DescribeClusterVersionsResponse
- Network.AWS.Redshift.DescribeClusterVersions: instance Control.DeepSeq.NFData Network.AWS.Redshift.DescribeClusterVersions.DescribeClusterVersions
- Network.AWS.Redshift.DescribeClusterVersions: instance Control.DeepSeq.NFData Network.AWS.Redshift.DescribeClusterVersions.DescribeClusterVersionsResponse
- Network.AWS.Redshift.DescribeClusterVersions: instance Data.Data.Data Network.AWS.Redshift.DescribeClusterVersions.DescribeClusterVersions
- Network.AWS.Redshift.DescribeClusterVersions: instance Data.Data.Data Network.AWS.Redshift.DescribeClusterVersions.DescribeClusterVersionsResponse
- Network.AWS.Redshift.DescribeClusterVersions: instance Data.Hashable.Class.Hashable Network.AWS.Redshift.DescribeClusterVersions.DescribeClusterVersions
- Network.AWS.Redshift.DescribeClusterVersions: instance GHC.Classes.Eq Network.AWS.Redshift.DescribeClusterVersions.DescribeClusterVersions
- Network.AWS.Redshift.DescribeClusterVersions: instance GHC.Classes.Eq Network.AWS.Redshift.DescribeClusterVersions.DescribeClusterVersionsResponse
- Network.AWS.Redshift.DescribeClusterVersions: instance GHC.Generics.Generic Network.AWS.Redshift.DescribeClusterVersions.DescribeClusterVersions
- Network.AWS.Redshift.DescribeClusterVersions: instance GHC.Generics.Generic Network.AWS.Redshift.DescribeClusterVersions.DescribeClusterVersionsResponse
- Network.AWS.Redshift.DescribeClusterVersions: instance GHC.Read.Read Network.AWS.Redshift.DescribeClusterVersions.DescribeClusterVersions
- Network.AWS.Redshift.DescribeClusterVersions: instance GHC.Read.Read Network.AWS.Redshift.DescribeClusterVersions.DescribeClusterVersionsResponse
- Network.AWS.Redshift.DescribeClusterVersions: instance GHC.Show.Show Network.AWS.Redshift.DescribeClusterVersions.DescribeClusterVersions
- Network.AWS.Redshift.DescribeClusterVersions: instance GHC.Show.Show Network.AWS.Redshift.DescribeClusterVersions.DescribeClusterVersionsResponse
- Network.AWS.Redshift.DescribeClusterVersions: instance Network.AWS.Data.Headers.ToHeaders Network.AWS.Redshift.DescribeClusterVersions.DescribeClusterVersions
- Network.AWS.Redshift.DescribeClusterVersions: instance Network.AWS.Data.Path.ToPath Network.AWS.Redshift.DescribeClusterVersions.DescribeClusterVersions
- Network.AWS.Redshift.DescribeClusterVersions: instance Network.AWS.Data.Query.ToQuery Network.AWS.Redshift.DescribeClusterVersions.DescribeClusterVersions
- Network.AWS.Redshift.DescribeClusterVersions: instance Network.AWS.Pager.AWSPager Network.AWS.Redshift.DescribeClusterVersions.DescribeClusterVersions
- Network.AWS.Redshift.DescribeClusterVersions: instance Network.AWS.Types.AWSRequest Network.AWS.Redshift.DescribeClusterVersions.DescribeClusterVersions
- Network.AWS.Redshift.DescribeClusters: data DescribeClusters
- Network.AWS.Redshift.DescribeClusters: data DescribeClustersResponse
- Network.AWS.Redshift.DescribeClusters: dcClusterIdentifier :: Lens' DescribeClusters (Maybe Text)
- Network.AWS.Redshift.DescribeClusters: dcMarker :: Lens' DescribeClusters (Maybe Text)
- Network.AWS.Redshift.DescribeClusters: dcMaxRecords :: Lens' DescribeClusters (Maybe Int)
- Network.AWS.Redshift.DescribeClusters: dcTagKeys :: Lens' DescribeClusters [Text]
- Network.AWS.Redshift.DescribeClusters: dcTagValues :: Lens' DescribeClusters [Text]
- Network.AWS.Redshift.DescribeClusters: dcrsClusters :: Lens' DescribeClustersResponse [Cluster]
- Network.AWS.Redshift.DescribeClusters: dcrsMarker :: Lens' DescribeClustersResponse (Maybe Text)
- Network.AWS.Redshift.DescribeClusters: dcrsResponseStatus :: Lens' DescribeClustersResponse Int
- Network.AWS.Redshift.DescribeClusters: describeClusters :: DescribeClusters
- Network.AWS.Redshift.DescribeClusters: describeClustersResponse :: Int -> DescribeClustersResponse
- Network.AWS.Redshift.DescribeClusters: instance Control.DeepSeq.NFData Network.AWS.Redshift.DescribeClusters.DescribeClusters
- Network.AWS.Redshift.DescribeClusters: instance Control.DeepSeq.NFData Network.AWS.Redshift.DescribeClusters.DescribeClustersResponse
- Network.AWS.Redshift.DescribeClusters: instance Data.Data.Data Network.AWS.Redshift.DescribeClusters.DescribeClusters
- Network.AWS.Redshift.DescribeClusters: instance Data.Data.Data Network.AWS.Redshift.DescribeClusters.DescribeClustersResponse
- Network.AWS.Redshift.DescribeClusters: instance Data.Hashable.Class.Hashable Network.AWS.Redshift.DescribeClusters.DescribeClusters
- Network.AWS.Redshift.DescribeClusters: instance GHC.Classes.Eq Network.AWS.Redshift.DescribeClusters.DescribeClusters
- Network.AWS.Redshift.DescribeClusters: instance GHC.Classes.Eq Network.AWS.Redshift.DescribeClusters.DescribeClustersResponse
- Network.AWS.Redshift.DescribeClusters: instance GHC.Generics.Generic Network.AWS.Redshift.DescribeClusters.DescribeClusters
- Network.AWS.Redshift.DescribeClusters: instance GHC.Generics.Generic Network.AWS.Redshift.DescribeClusters.DescribeClustersResponse
- Network.AWS.Redshift.DescribeClusters: instance GHC.Read.Read Network.AWS.Redshift.DescribeClusters.DescribeClusters
- Network.AWS.Redshift.DescribeClusters: instance GHC.Read.Read Network.AWS.Redshift.DescribeClusters.DescribeClustersResponse
- Network.AWS.Redshift.DescribeClusters: instance GHC.Show.Show Network.AWS.Redshift.DescribeClusters.DescribeClusters
- Network.AWS.Redshift.DescribeClusters: instance GHC.Show.Show Network.AWS.Redshift.DescribeClusters.DescribeClustersResponse
- Network.AWS.Redshift.DescribeClusters: instance Network.AWS.Data.Headers.ToHeaders Network.AWS.Redshift.DescribeClusters.DescribeClusters
- Network.AWS.Redshift.DescribeClusters: instance Network.AWS.Data.Path.ToPath Network.AWS.Redshift.DescribeClusters.DescribeClusters
- Network.AWS.Redshift.DescribeClusters: instance Network.AWS.Data.Query.ToQuery Network.AWS.Redshift.DescribeClusters.DescribeClusters
- Network.AWS.Redshift.DescribeClusters: instance Network.AWS.Pager.AWSPager Network.AWS.Redshift.DescribeClusters.DescribeClusters
- Network.AWS.Redshift.DescribeClusters: instance Network.AWS.Types.AWSRequest Network.AWS.Redshift.DescribeClusters.DescribeClusters
- Network.AWS.Redshift.DescribeDefaultClusterParameters: data DescribeDefaultClusterParameters
- Network.AWS.Redshift.DescribeDefaultClusterParameters: data DescribeDefaultClusterParametersResponse
- Network.AWS.Redshift.DescribeDefaultClusterParameters: ddcpMarker :: Lens' DescribeDefaultClusterParameters (Maybe Text)
- Network.AWS.Redshift.DescribeDefaultClusterParameters: ddcpMaxRecords :: Lens' DescribeDefaultClusterParameters (Maybe Int)
- Network.AWS.Redshift.DescribeDefaultClusterParameters: ddcpParameterGroupFamily :: Lens' DescribeDefaultClusterParameters Text
- Network.AWS.Redshift.DescribeDefaultClusterParameters: ddcprsDefaultClusterParameters :: Lens' DescribeDefaultClusterParametersResponse DefaultClusterParameters
- Network.AWS.Redshift.DescribeDefaultClusterParameters: ddcprsResponseStatus :: Lens' DescribeDefaultClusterParametersResponse Int
- Network.AWS.Redshift.DescribeDefaultClusterParameters: describeDefaultClusterParameters :: Text -> DescribeDefaultClusterParameters
- Network.AWS.Redshift.DescribeDefaultClusterParameters: describeDefaultClusterParametersResponse :: Int -> DefaultClusterParameters -> DescribeDefaultClusterParametersResponse
- Network.AWS.Redshift.DescribeDefaultClusterParameters: instance Control.DeepSeq.NFData Network.AWS.Redshift.DescribeDefaultClusterParameters.DescribeDefaultClusterParameters
- Network.AWS.Redshift.DescribeDefaultClusterParameters: instance Control.DeepSeq.NFData Network.AWS.Redshift.DescribeDefaultClusterParameters.DescribeDefaultClusterParametersResponse
- Network.AWS.Redshift.DescribeDefaultClusterParameters: instance Data.Data.Data Network.AWS.Redshift.DescribeDefaultClusterParameters.DescribeDefaultClusterParameters
- Network.AWS.Redshift.DescribeDefaultClusterParameters: instance Data.Data.Data Network.AWS.Redshift.DescribeDefaultClusterParameters.DescribeDefaultClusterParametersResponse
- Network.AWS.Redshift.DescribeDefaultClusterParameters: instance Data.Hashable.Class.Hashable Network.AWS.Redshift.DescribeDefaultClusterParameters.DescribeDefaultClusterParameters
- Network.AWS.Redshift.DescribeDefaultClusterParameters: instance GHC.Classes.Eq Network.AWS.Redshift.DescribeDefaultClusterParameters.DescribeDefaultClusterParameters
- Network.AWS.Redshift.DescribeDefaultClusterParameters: instance GHC.Classes.Eq Network.AWS.Redshift.DescribeDefaultClusterParameters.DescribeDefaultClusterParametersResponse
- Network.AWS.Redshift.DescribeDefaultClusterParameters: instance GHC.Generics.Generic Network.AWS.Redshift.DescribeDefaultClusterParameters.DescribeDefaultClusterParameters
- Network.AWS.Redshift.DescribeDefaultClusterParameters: instance GHC.Generics.Generic Network.AWS.Redshift.DescribeDefaultClusterParameters.DescribeDefaultClusterParametersResponse
- Network.AWS.Redshift.DescribeDefaultClusterParameters: instance GHC.Read.Read Network.AWS.Redshift.DescribeDefaultClusterParameters.DescribeDefaultClusterParameters
- Network.AWS.Redshift.DescribeDefaultClusterParameters: instance GHC.Read.Read Network.AWS.Redshift.DescribeDefaultClusterParameters.DescribeDefaultClusterParametersResponse
- Network.AWS.Redshift.DescribeDefaultClusterParameters: instance GHC.Show.Show Network.AWS.Redshift.DescribeDefaultClusterParameters.DescribeDefaultClusterParameters
- Network.AWS.Redshift.DescribeDefaultClusterParameters: instance GHC.Show.Show Network.AWS.Redshift.DescribeDefaultClusterParameters.DescribeDefaultClusterParametersResponse
- Network.AWS.Redshift.DescribeDefaultClusterParameters: instance Network.AWS.Data.Headers.ToHeaders Network.AWS.Redshift.DescribeDefaultClusterParameters.DescribeDefaultClusterParameters
- Network.AWS.Redshift.DescribeDefaultClusterParameters: instance Network.AWS.Data.Path.ToPath Network.AWS.Redshift.DescribeDefaultClusterParameters.DescribeDefaultClusterParameters
- Network.AWS.Redshift.DescribeDefaultClusterParameters: instance Network.AWS.Data.Query.ToQuery Network.AWS.Redshift.DescribeDefaultClusterParameters.DescribeDefaultClusterParameters
- Network.AWS.Redshift.DescribeDefaultClusterParameters: instance Network.AWS.Pager.AWSPager Network.AWS.Redshift.DescribeDefaultClusterParameters.DescribeDefaultClusterParameters
- Network.AWS.Redshift.DescribeDefaultClusterParameters: instance Network.AWS.Types.AWSRequest Network.AWS.Redshift.DescribeDefaultClusterParameters.DescribeDefaultClusterParameters
- Network.AWS.Redshift.DescribeEventCategories: data DescribeEventCategories
- Network.AWS.Redshift.DescribeEventCategories: data DescribeEventCategoriesResponse
- Network.AWS.Redshift.DescribeEventCategories: decSourceType :: Lens' DescribeEventCategories (Maybe Text)
- Network.AWS.Redshift.DescribeEventCategories: decrsEventCategoriesMapList :: Lens' DescribeEventCategoriesResponse [EventCategoriesMap]
- Network.AWS.Redshift.DescribeEventCategories: decrsResponseStatus :: Lens' DescribeEventCategoriesResponse Int
- Network.AWS.Redshift.DescribeEventCategories: describeEventCategories :: DescribeEventCategories
- Network.AWS.Redshift.DescribeEventCategories: describeEventCategoriesResponse :: Int -> DescribeEventCategoriesResponse
- Network.AWS.Redshift.DescribeEventCategories: instance Control.DeepSeq.NFData Network.AWS.Redshift.DescribeEventCategories.DescribeEventCategories
- Network.AWS.Redshift.DescribeEventCategories: instance Control.DeepSeq.NFData Network.AWS.Redshift.DescribeEventCategories.DescribeEventCategoriesResponse
- Network.AWS.Redshift.DescribeEventCategories: instance Data.Data.Data Network.AWS.Redshift.DescribeEventCategories.DescribeEventCategories
- Network.AWS.Redshift.DescribeEventCategories: instance Data.Data.Data Network.AWS.Redshift.DescribeEventCategories.DescribeEventCategoriesResponse
- Network.AWS.Redshift.DescribeEventCategories: instance Data.Hashable.Class.Hashable Network.AWS.Redshift.DescribeEventCategories.DescribeEventCategories
- Network.AWS.Redshift.DescribeEventCategories: instance GHC.Classes.Eq Network.AWS.Redshift.DescribeEventCategories.DescribeEventCategories
- Network.AWS.Redshift.DescribeEventCategories: instance GHC.Classes.Eq Network.AWS.Redshift.DescribeEventCategories.DescribeEventCategoriesResponse
- Network.AWS.Redshift.DescribeEventCategories: instance GHC.Generics.Generic Network.AWS.Redshift.DescribeEventCategories.DescribeEventCategories
- Network.AWS.Redshift.DescribeEventCategories: instance GHC.Generics.Generic Network.AWS.Redshift.DescribeEventCategories.DescribeEventCategoriesResponse
- Network.AWS.Redshift.DescribeEventCategories: instance GHC.Read.Read Network.AWS.Redshift.DescribeEventCategories.DescribeEventCategories
- Network.AWS.Redshift.DescribeEventCategories: instance GHC.Read.Read Network.AWS.Redshift.DescribeEventCategories.DescribeEventCategoriesResponse
- Network.AWS.Redshift.DescribeEventCategories: instance GHC.Show.Show Network.AWS.Redshift.DescribeEventCategories.DescribeEventCategories
- Network.AWS.Redshift.DescribeEventCategories: instance GHC.Show.Show Network.AWS.Redshift.DescribeEventCategories.DescribeEventCategoriesResponse
- Network.AWS.Redshift.DescribeEventCategories: instance Network.AWS.Data.Headers.ToHeaders Network.AWS.Redshift.DescribeEventCategories.DescribeEventCategories
- Network.AWS.Redshift.DescribeEventCategories: instance Network.AWS.Data.Path.ToPath Network.AWS.Redshift.DescribeEventCategories.DescribeEventCategories
- Network.AWS.Redshift.DescribeEventCategories: instance Network.AWS.Data.Query.ToQuery Network.AWS.Redshift.DescribeEventCategories.DescribeEventCategories
- Network.AWS.Redshift.DescribeEventCategories: instance Network.AWS.Types.AWSRequest Network.AWS.Redshift.DescribeEventCategories.DescribeEventCategories
- Network.AWS.Redshift.DescribeEventSubscriptions: data DescribeEventSubscriptions
- Network.AWS.Redshift.DescribeEventSubscriptions: data DescribeEventSubscriptionsResponse
- Network.AWS.Redshift.DescribeEventSubscriptions: describeEventSubscriptions :: DescribeEventSubscriptions
- Network.AWS.Redshift.DescribeEventSubscriptions: describeEventSubscriptionsResponse :: Int -> DescribeEventSubscriptionsResponse
- Network.AWS.Redshift.DescribeEventSubscriptions: desrsEventSubscriptionsList :: Lens' DescribeEventSubscriptionsResponse [EventSubscription]
- Network.AWS.Redshift.DescribeEventSubscriptions: desrsMarker :: Lens' DescribeEventSubscriptionsResponse (Maybe Text)
- Network.AWS.Redshift.DescribeEventSubscriptions: desrsResponseStatus :: Lens' DescribeEventSubscriptionsResponse Int
- Network.AWS.Redshift.DescribeEventSubscriptions: dessMarker :: Lens' DescribeEventSubscriptions (Maybe Text)
- Network.AWS.Redshift.DescribeEventSubscriptions: dessMaxRecords :: Lens' DescribeEventSubscriptions (Maybe Int)
- Network.AWS.Redshift.DescribeEventSubscriptions: dessSubscriptionName :: Lens' DescribeEventSubscriptions (Maybe Text)
- Network.AWS.Redshift.DescribeEventSubscriptions: dessTagKeys :: Lens' DescribeEventSubscriptions [Text]
- Network.AWS.Redshift.DescribeEventSubscriptions: dessTagValues :: Lens' DescribeEventSubscriptions [Text]
- Network.AWS.Redshift.DescribeEventSubscriptions: instance Control.DeepSeq.NFData Network.AWS.Redshift.DescribeEventSubscriptions.DescribeEventSubscriptions
- Network.AWS.Redshift.DescribeEventSubscriptions: instance Control.DeepSeq.NFData Network.AWS.Redshift.DescribeEventSubscriptions.DescribeEventSubscriptionsResponse
- Network.AWS.Redshift.DescribeEventSubscriptions: instance Data.Data.Data Network.AWS.Redshift.DescribeEventSubscriptions.DescribeEventSubscriptions
- Network.AWS.Redshift.DescribeEventSubscriptions: instance Data.Data.Data Network.AWS.Redshift.DescribeEventSubscriptions.DescribeEventSubscriptionsResponse
- Network.AWS.Redshift.DescribeEventSubscriptions: instance Data.Hashable.Class.Hashable Network.AWS.Redshift.DescribeEventSubscriptions.DescribeEventSubscriptions
- Network.AWS.Redshift.DescribeEventSubscriptions: instance GHC.Classes.Eq Network.AWS.Redshift.DescribeEventSubscriptions.DescribeEventSubscriptions
- Network.AWS.Redshift.DescribeEventSubscriptions: instance GHC.Classes.Eq Network.AWS.Redshift.DescribeEventSubscriptions.DescribeEventSubscriptionsResponse
- Network.AWS.Redshift.DescribeEventSubscriptions: instance GHC.Generics.Generic Network.AWS.Redshift.DescribeEventSubscriptions.DescribeEventSubscriptions
- Network.AWS.Redshift.DescribeEventSubscriptions: instance GHC.Generics.Generic Network.AWS.Redshift.DescribeEventSubscriptions.DescribeEventSubscriptionsResponse
- Network.AWS.Redshift.DescribeEventSubscriptions: instance GHC.Read.Read Network.AWS.Redshift.DescribeEventSubscriptions.DescribeEventSubscriptions
- Network.AWS.Redshift.DescribeEventSubscriptions: instance GHC.Read.Read Network.AWS.Redshift.DescribeEventSubscriptions.DescribeEventSubscriptionsResponse
- Network.AWS.Redshift.DescribeEventSubscriptions: instance GHC.Show.Show Network.AWS.Redshift.DescribeEventSubscriptions.DescribeEventSubscriptions
- Network.AWS.Redshift.DescribeEventSubscriptions: instance GHC.Show.Show Network.AWS.Redshift.DescribeEventSubscriptions.DescribeEventSubscriptionsResponse
- Network.AWS.Redshift.DescribeEventSubscriptions: instance Network.AWS.Data.Headers.ToHeaders Network.AWS.Redshift.DescribeEventSubscriptions.DescribeEventSubscriptions
- Network.AWS.Redshift.DescribeEventSubscriptions: instance Network.AWS.Data.Path.ToPath Network.AWS.Redshift.DescribeEventSubscriptions.DescribeEventSubscriptions
- Network.AWS.Redshift.DescribeEventSubscriptions: instance Network.AWS.Data.Query.ToQuery Network.AWS.Redshift.DescribeEventSubscriptions.DescribeEventSubscriptions
- Network.AWS.Redshift.DescribeEventSubscriptions: instance Network.AWS.Pager.AWSPager Network.AWS.Redshift.DescribeEventSubscriptions.DescribeEventSubscriptions
- Network.AWS.Redshift.DescribeEventSubscriptions: instance Network.AWS.Types.AWSRequest Network.AWS.Redshift.DescribeEventSubscriptions.DescribeEventSubscriptions
- Network.AWS.Redshift.DescribeEvents: data DescribeEvents
- Network.AWS.Redshift.DescribeEvents: data DescribeEventsResponse
- Network.AWS.Redshift.DescribeEvents: deDuration :: Lens' DescribeEvents (Maybe Int)
- Network.AWS.Redshift.DescribeEvents: deEndTime :: Lens' DescribeEvents (Maybe UTCTime)
- Network.AWS.Redshift.DescribeEvents: deMarker :: Lens' DescribeEvents (Maybe Text)
- Network.AWS.Redshift.DescribeEvents: deMaxRecords :: Lens' DescribeEvents (Maybe Int)
- Network.AWS.Redshift.DescribeEvents: deSourceIdentifier :: Lens' DescribeEvents (Maybe Text)
- Network.AWS.Redshift.DescribeEvents: deSourceType :: Lens' DescribeEvents (Maybe SourceType)
- Network.AWS.Redshift.DescribeEvents: deStartTime :: Lens' DescribeEvents (Maybe UTCTime)
- Network.AWS.Redshift.DescribeEvents: dersEvents :: Lens' DescribeEventsResponse [Event]
- Network.AWS.Redshift.DescribeEvents: dersMarker :: Lens' DescribeEventsResponse (Maybe Text)
- Network.AWS.Redshift.DescribeEvents: dersResponseStatus :: Lens' DescribeEventsResponse Int
- Network.AWS.Redshift.DescribeEvents: describeEvents :: DescribeEvents
- Network.AWS.Redshift.DescribeEvents: describeEventsResponse :: Int -> DescribeEventsResponse
- Network.AWS.Redshift.DescribeEvents: instance Control.DeepSeq.NFData Network.AWS.Redshift.DescribeEvents.DescribeEvents
- Network.AWS.Redshift.DescribeEvents: instance Control.DeepSeq.NFData Network.AWS.Redshift.DescribeEvents.DescribeEventsResponse
- Network.AWS.Redshift.DescribeEvents: instance Data.Data.Data Network.AWS.Redshift.DescribeEvents.DescribeEvents
- Network.AWS.Redshift.DescribeEvents: instance Data.Data.Data Network.AWS.Redshift.DescribeEvents.DescribeEventsResponse
- Network.AWS.Redshift.DescribeEvents: instance Data.Hashable.Class.Hashable Network.AWS.Redshift.DescribeEvents.DescribeEvents
- Network.AWS.Redshift.DescribeEvents: instance GHC.Classes.Eq Network.AWS.Redshift.DescribeEvents.DescribeEvents
- Network.AWS.Redshift.DescribeEvents: instance GHC.Classes.Eq Network.AWS.Redshift.DescribeEvents.DescribeEventsResponse
- Network.AWS.Redshift.DescribeEvents: instance GHC.Generics.Generic Network.AWS.Redshift.DescribeEvents.DescribeEvents
- Network.AWS.Redshift.DescribeEvents: instance GHC.Generics.Generic Network.AWS.Redshift.DescribeEvents.DescribeEventsResponse
- Network.AWS.Redshift.DescribeEvents: instance GHC.Read.Read Network.AWS.Redshift.DescribeEvents.DescribeEvents
- Network.AWS.Redshift.DescribeEvents: instance GHC.Read.Read Network.AWS.Redshift.DescribeEvents.DescribeEventsResponse
- Network.AWS.Redshift.DescribeEvents: instance GHC.Show.Show Network.AWS.Redshift.DescribeEvents.DescribeEvents
- Network.AWS.Redshift.DescribeEvents: instance GHC.Show.Show Network.AWS.Redshift.DescribeEvents.DescribeEventsResponse
- Network.AWS.Redshift.DescribeEvents: instance Network.AWS.Data.Headers.ToHeaders Network.AWS.Redshift.DescribeEvents.DescribeEvents
- Network.AWS.Redshift.DescribeEvents: instance Network.AWS.Data.Path.ToPath Network.AWS.Redshift.DescribeEvents.DescribeEvents
- Network.AWS.Redshift.DescribeEvents: instance Network.AWS.Data.Query.ToQuery Network.AWS.Redshift.DescribeEvents.DescribeEvents
- Network.AWS.Redshift.DescribeEvents: instance Network.AWS.Pager.AWSPager Network.AWS.Redshift.DescribeEvents.DescribeEvents
- Network.AWS.Redshift.DescribeEvents: instance Network.AWS.Types.AWSRequest Network.AWS.Redshift.DescribeEvents.DescribeEvents
- Network.AWS.Redshift.DescribeHSMClientCertificates: data DescribeHSMClientCertificates
- Network.AWS.Redshift.DescribeHSMClientCertificates: data DescribeHSMClientCertificatesResponse
- Network.AWS.Redshift.DescribeHSMClientCertificates: describeHSMClientCertificates :: DescribeHSMClientCertificates
- Network.AWS.Redshift.DescribeHSMClientCertificates: describeHSMClientCertificatesResponse :: Int -> DescribeHSMClientCertificatesResponse
- Network.AWS.Redshift.DescribeHSMClientCertificates: dhccHSMClientCertificateIdentifier :: Lens' DescribeHSMClientCertificates (Maybe Text)
- Network.AWS.Redshift.DescribeHSMClientCertificates: dhccMarker :: Lens' DescribeHSMClientCertificates (Maybe Text)
- Network.AWS.Redshift.DescribeHSMClientCertificates: dhccMaxRecords :: Lens' DescribeHSMClientCertificates (Maybe Int)
- Network.AWS.Redshift.DescribeHSMClientCertificates: dhccTagKeys :: Lens' DescribeHSMClientCertificates [Text]
- Network.AWS.Redshift.DescribeHSMClientCertificates: dhccTagValues :: Lens' DescribeHSMClientCertificates [Text]
- Network.AWS.Redshift.DescribeHSMClientCertificates: dhccrsHSMClientCertificates :: Lens' DescribeHSMClientCertificatesResponse [HSMClientCertificate]
- Network.AWS.Redshift.DescribeHSMClientCertificates: dhccrsMarker :: Lens' DescribeHSMClientCertificatesResponse (Maybe Text)
- Network.AWS.Redshift.DescribeHSMClientCertificates: dhccrsResponseStatus :: Lens' DescribeHSMClientCertificatesResponse Int
- Network.AWS.Redshift.DescribeHSMClientCertificates: instance Control.DeepSeq.NFData Network.AWS.Redshift.DescribeHSMClientCertificates.DescribeHSMClientCertificates
- Network.AWS.Redshift.DescribeHSMClientCertificates: instance Control.DeepSeq.NFData Network.AWS.Redshift.DescribeHSMClientCertificates.DescribeHSMClientCertificatesResponse
- Network.AWS.Redshift.DescribeHSMClientCertificates: instance Data.Data.Data Network.AWS.Redshift.DescribeHSMClientCertificates.DescribeHSMClientCertificates
- Network.AWS.Redshift.DescribeHSMClientCertificates: instance Data.Data.Data Network.AWS.Redshift.DescribeHSMClientCertificates.DescribeHSMClientCertificatesResponse
- Network.AWS.Redshift.DescribeHSMClientCertificates: instance Data.Hashable.Class.Hashable Network.AWS.Redshift.DescribeHSMClientCertificates.DescribeHSMClientCertificates
- Network.AWS.Redshift.DescribeHSMClientCertificates: instance GHC.Classes.Eq Network.AWS.Redshift.DescribeHSMClientCertificates.DescribeHSMClientCertificates
- Network.AWS.Redshift.DescribeHSMClientCertificates: instance GHC.Classes.Eq Network.AWS.Redshift.DescribeHSMClientCertificates.DescribeHSMClientCertificatesResponse
- Network.AWS.Redshift.DescribeHSMClientCertificates: instance GHC.Generics.Generic Network.AWS.Redshift.DescribeHSMClientCertificates.DescribeHSMClientCertificates
- Network.AWS.Redshift.DescribeHSMClientCertificates: instance GHC.Generics.Generic Network.AWS.Redshift.DescribeHSMClientCertificates.DescribeHSMClientCertificatesResponse
- Network.AWS.Redshift.DescribeHSMClientCertificates: instance GHC.Read.Read Network.AWS.Redshift.DescribeHSMClientCertificates.DescribeHSMClientCertificates
- Network.AWS.Redshift.DescribeHSMClientCertificates: instance GHC.Read.Read Network.AWS.Redshift.DescribeHSMClientCertificates.DescribeHSMClientCertificatesResponse
- Network.AWS.Redshift.DescribeHSMClientCertificates: instance GHC.Show.Show Network.AWS.Redshift.DescribeHSMClientCertificates.DescribeHSMClientCertificates
- Network.AWS.Redshift.DescribeHSMClientCertificates: instance GHC.Show.Show Network.AWS.Redshift.DescribeHSMClientCertificates.DescribeHSMClientCertificatesResponse
- Network.AWS.Redshift.DescribeHSMClientCertificates: instance Network.AWS.Data.Headers.ToHeaders Network.AWS.Redshift.DescribeHSMClientCertificates.DescribeHSMClientCertificates
- Network.AWS.Redshift.DescribeHSMClientCertificates: instance Network.AWS.Data.Path.ToPath Network.AWS.Redshift.DescribeHSMClientCertificates.DescribeHSMClientCertificates
- Network.AWS.Redshift.DescribeHSMClientCertificates: instance Network.AWS.Data.Query.ToQuery Network.AWS.Redshift.DescribeHSMClientCertificates.DescribeHSMClientCertificates
- Network.AWS.Redshift.DescribeHSMClientCertificates: instance Network.AWS.Pager.AWSPager Network.AWS.Redshift.DescribeHSMClientCertificates.DescribeHSMClientCertificates
- Network.AWS.Redshift.DescribeHSMClientCertificates: instance Network.AWS.Types.AWSRequest Network.AWS.Redshift.DescribeHSMClientCertificates.DescribeHSMClientCertificates
- Network.AWS.Redshift.DescribeHSMConfigurations: data DescribeHSMConfigurations
- Network.AWS.Redshift.DescribeHSMConfigurations: data DescribeHSMConfigurationsResponse
- Network.AWS.Redshift.DescribeHSMConfigurations: describeHSMConfigurations :: DescribeHSMConfigurations
- Network.AWS.Redshift.DescribeHSMConfigurations: describeHSMConfigurationsResponse :: Int -> DescribeHSMConfigurationsResponse
- Network.AWS.Redshift.DescribeHSMConfigurations: dhcrsHSMConfigurations :: Lens' DescribeHSMConfigurationsResponse [HSMConfiguration]
- Network.AWS.Redshift.DescribeHSMConfigurations: dhcrsMarker :: Lens' DescribeHSMConfigurationsResponse (Maybe Text)
- Network.AWS.Redshift.DescribeHSMConfigurations: dhcrsResponseStatus :: Lens' DescribeHSMConfigurationsResponse Int
- Network.AWS.Redshift.DescribeHSMConfigurations: dhsmcHSMConfigurationIdentifier :: Lens' DescribeHSMConfigurations (Maybe Text)
- Network.AWS.Redshift.DescribeHSMConfigurations: dhsmcMarker :: Lens' DescribeHSMConfigurations (Maybe Text)
- Network.AWS.Redshift.DescribeHSMConfigurations: dhsmcMaxRecords :: Lens' DescribeHSMConfigurations (Maybe Int)
- Network.AWS.Redshift.DescribeHSMConfigurations: dhsmcTagKeys :: Lens' DescribeHSMConfigurations [Text]
- Network.AWS.Redshift.DescribeHSMConfigurations: dhsmcTagValues :: Lens' DescribeHSMConfigurations [Text]
- Network.AWS.Redshift.DescribeHSMConfigurations: instance Control.DeepSeq.NFData Network.AWS.Redshift.DescribeHSMConfigurations.DescribeHSMConfigurations
- Network.AWS.Redshift.DescribeHSMConfigurations: instance Control.DeepSeq.NFData Network.AWS.Redshift.DescribeHSMConfigurations.DescribeHSMConfigurationsResponse
- Network.AWS.Redshift.DescribeHSMConfigurations: instance Data.Data.Data Network.AWS.Redshift.DescribeHSMConfigurations.DescribeHSMConfigurations
- Network.AWS.Redshift.DescribeHSMConfigurations: instance Data.Data.Data Network.AWS.Redshift.DescribeHSMConfigurations.DescribeHSMConfigurationsResponse
- Network.AWS.Redshift.DescribeHSMConfigurations: instance Data.Hashable.Class.Hashable Network.AWS.Redshift.DescribeHSMConfigurations.DescribeHSMConfigurations
- Network.AWS.Redshift.DescribeHSMConfigurations: instance GHC.Classes.Eq Network.AWS.Redshift.DescribeHSMConfigurations.DescribeHSMConfigurations
- Network.AWS.Redshift.DescribeHSMConfigurations: instance GHC.Classes.Eq Network.AWS.Redshift.DescribeHSMConfigurations.DescribeHSMConfigurationsResponse
- Network.AWS.Redshift.DescribeHSMConfigurations: instance GHC.Generics.Generic Network.AWS.Redshift.DescribeHSMConfigurations.DescribeHSMConfigurations
- Network.AWS.Redshift.DescribeHSMConfigurations: instance GHC.Generics.Generic Network.AWS.Redshift.DescribeHSMConfigurations.DescribeHSMConfigurationsResponse
- Network.AWS.Redshift.DescribeHSMConfigurations: instance GHC.Read.Read Network.AWS.Redshift.DescribeHSMConfigurations.DescribeHSMConfigurations
- Network.AWS.Redshift.DescribeHSMConfigurations: instance GHC.Read.Read Network.AWS.Redshift.DescribeHSMConfigurations.DescribeHSMConfigurationsResponse
- Network.AWS.Redshift.DescribeHSMConfigurations: instance GHC.Show.Show Network.AWS.Redshift.DescribeHSMConfigurations.DescribeHSMConfigurations
- Network.AWS.Redshift.DescribeHSMConfigurations: instance GHC.Show.Show Network.AWS.Redshift.DescribeHSMConfigurations.DescribeHSMConfigurationsResponse
- Network.AWS.Redshift.DescribeHSMConfigurations: instance Network.AWS.Data.Headers.ToHeaders Network.AWS.Redshift.DescribeHSMConfigurations.DescribeHSMConfigurations
- Network.AWS.Redshift.DescribeHSMConfigurations: instance Network.AWS.Data.Path.ToPath Network.AWS.Redshift.DescribeHSMConfigurations.DescribeHSMConfigurations
- Network.AWS.Redshift.DescribeHSMConfigurations: instance Network.AWS.Data.Query.ToQuery Network.AWS.Redshift.DescribeHSMConfigurations.DescribeHSMConfigurations
- Network.AWS.Redshift.DescribeHSMConfigurations: instance Network.AWS.Pager.AWSPager Network.AWS.Redshift.DescribeHSMConfigurations.DescribeHSMConfigurations
- Network.AWS.Redshift.DescribeHSMConfigurations: instance Network.AWS.Types.AWSRequest Network.AWS.Redshift.DescribeHSMConfigurations.DescribeHSMConfigurations
- Network.AWS.Redshift.DescribeLoggingStatus: data DescribeLoggingStatus
- Network.AWS.Redshift.DescribeLoggingStatus: data LoggingStatus
- Network.AWS.Redshift.DescribeLoggingStatus: describeLoggingStatus :: Text -> DescribeLoggingStatus
- Network.AWS.Redshift.DescribeLoggingStatus: dlsClusterIdentifier :: Lens' DescribeLoggingStatus Text
- Network.AWS.Redshift.DescribeLoggingStatus: instance Control.DeepSeq.NFData Network.AWS.Redshift.DescribeLoggingStatus.DescribeLoggingStatus
- Network.AWS.Redshift.DescribeLoggingStatus: instance Data.Data.Data Network.AWS.Redshift.DescribeLoggingStatus.DescribeLoggingStatus
- Network.AWS.Redshift.DescribeLoggingStatus: instance Data.Hashable.Class.Hashable Network.AWS.Redshift.DescribeLoggingStatus.DescribeLoggingStatus
- Network.AWS.Redshift.DescribeLoggingStatus: instance GHC.Classes.Eq Network.AWS.Redshift.DescribeLoggingStatus.DescribeLoggingStatus
- Network.AWS.Redshift.DescribeLoggingStatus: instance GHC.Generics.Generic Network.AWS.Redshift.DescribeLoggingStatus.DescribeLoggingStatus
- Network.AWS.Redshift.DescribeLoggingStatus: instance GHC.Read.Read Network.AWS.Redshift.DescribeLoggingStatus.DescribeLoggingStatus
- Network.AWS.Redshift.DescribeLoggingStatus: instance GHC.Show.Show Network.AWS.Redshift.DescribeLoggingStatus.DescribeLoggingStatus
- Network.AWS.Redshift.DescribeLoggingStatus: instance Network.AWS.Data.Headers.ToHeaders Network.AWS.Redshift.DescribeLoggingStatus.DescribeLoggingStatus
- Network.AWS.Redshift.DescribeLoggingStatus: instance Network.AWS.Data.Path.ToPath Network.AWS.Redshift.DescribeLoggingStatus.DescribeLoggingStatus
- Network.AWS.Redshift.DescribeLoggingStatus: instance Network.AWS.Data.Query.ToQuery Network.AWS.Redshift.DescribeLoggingStatus.DescribeLoggingStatus
- Network.AWS.Redshift.DescribeLoggingStatus: instance Network.AWS.Types.AWSRequest Network.AWS.Redshift.DescribeLoggingStatus.DescribeLoggingStatus
- Network.AWS.Redshift.DescribeLoggingStatus: loggingStatus :: LoggingStatus
- Network.AWS.Redshift.DescribeLoggingStatus: lsBucketName :: Lens' LoggingStatus (Maybe Text)
- Network.AWS.Redshift.DescribeLoggingStatus: lsLastFailureMessage :: Lens' LoggingStatus (Maybe Text)
- Network.AWS.Redshift.DescribeLoggingStatus: lsLastFailureTime :: Lens' LoggingStatus (Maybe UTCTime)
- Network.AWS.Redshift.DescribeLoggingStatus: lsLastSuccessfulDeliveryTime :: Lens' LoggingStatus (Maybe UTCTime)
- Network.AWS.Redshift.DescribeLoggingStatus: lsLoggingEnabled :: Lens' LoggingStatus (Maybe Bool)
- Network.AWS.Redshift.DescribeLoggingStatus: lsS3KeyPrefix :: Lens' LoggingStatus (Maybe Text)
- Network.AWS.Redshift.DescribeOrderableClusterOptions: data DescribeOrderableClusterOptions
- Network.AWS.Redshift.DescribeOrderableClusterOptions: data DescribeOrderableClusterOptionsResponse
- Network.AWS.Redshift.DescribeOrderableClusterOptions: describeOrderableClusterOptions :: DescribeOrderableClusterOptions
- Network.AWS.Redshift.DescribeOrderableClusterOptions: describeOrderableClusterOptionsResponse :: Int -> DescribeOrderableClusterOptionsResponse
- Network.AWS.Redshift.DescribeOrderableClusterOptions: docoClusterVersion :: Lens' DescribeOrderableClusterOptions (Maybe Text)
- Network.AWS.Redshift.DescribeOrderableClusterOptions: docoMarker :: Lens' DescribeOrderableClusterOptions (Maybe Text)
- Network.AWS.Redshift.DescribeOrderableClusterOptions: docoMaxRecords :: Lens' DescribeOrderableClusterOptions (Maybe Int)
- Network.AWS.Redshift.DescribeOrderableClusterOptions: docoNodeType :: Lens' DescribeOrderableClusterOptions (Maybe Text)
- Network.AWS.Redshift.DescribeOrderableClusterOptions: docorsMarker :: Lens' DescribeOrderableClusterOptionsResponse (Maybe Text)
- Network.AWS.Redshift.DescribeOrderableClusterOptions: docorsOrderableClusterOptions :: Lens' DescribeOrderableClusterOptionsResponse [OrderableClusterOption]
- Network.AWS.Redshift.DescribeOrderableClusterOptions: docorsResponseStatus :: Lens' DescribeOrderableClusterOptionsResponse Int
- Network.AWS.Redshift.DescribeOrderableClusterOptions: instance Control.DeepSeq.NFData Network.AWS.Redshift.DescribeOrderableClusterOptions.DescribeOrderableClusterOptions
- Network.AWS.Redshift.DescribeOrderableClusterOptions: instance Control.DeepSeq.NFData Network.AWS.Redshift.DescribeOrderableClusterOptions.DescribeOrderableClusterOptionsResponse
- Network.AWS.Redshift.DescribeOrderableClusterOptions: instance Data.Data.Data Network.AWS.Redshift.DescribeOrderableClusterOptions.DescribeOrderableClusterOptions
- Network.AWS.Redshift.DescribeOrderableClusterOptions: instance Data.Data.Data Network.AWS.Redshift.DescribeOrderableClusterOptions.DescribeOrderableClusterOptionsResponse
- Network.AWS.Redshift.DescribeOrderableClusterOptions: instance Data.Hashable.Class.Hashable Network.AWS.Redshift.DescribeOrderableClusterOptions.DescribeOrderableClusterOptions
- Network.AWS.Redshift.DescribeOrderableClusterOptions: instance GHC.Classes.Eq Network.AWS.Redshift.DescribeOrderableClusterOptions.DescribeOrderableClusterOptions
- Network.AWS.Redshift.DescribeOrderableClusterOptions: instance GHC.Classes.Eq Network.AWS.Redshift.DescribeOrderableClusterOptions.DescribeOrderableClusterOptionsResponse
- Network.AWS.Redshift.DescribeOrderableClusterOptions: instance GHC.Generics.Generic Network.AWS.Redshift.DescribeOrderableClusterOptions.DescribeOrderableClusterOptions
- Network.AWS.Redshift.DescribeOrderableClusterOptions: instance GHC.Generics.Generic Network.AWS.Redshift.DescribeOrderableClusterOptions.DescribeOrderableClusterOptionsResponse
- Network.AWS.Redshift.DescribeOrderableClusterOptions: instance GHC.Read.Read Network.AWS.Redshift.DescribeOrderableClusterOptions.DescribeOrderableClusterOptions
- Network.AWS.Redshift.DescribeOrderableClusterOptions: instance GHC.Read.Read Network.AWS.Redshift.DescribeOrderableClusterOptions.DescribeOrderableClusterOptionsResponse
- Network.AWS.Redshift.DescribeOrderableClusterOptions: instance GHC.Show.Show Network.AWS.Redshift.DescribeOrderableClusterOptions.DescribeOrderableClusterOptions
- Network.AWS.Redshift.DescribeOrderableClusterOptions: instance GHC.Show.Show Network.AWS.Redshift.DescribeOrderableClusterOptions.DescribeOrderableClusterOptionsResponse
- Network.AWS.Redshift.DescribeOrderableClusterOptions: instance Network.AWS.Data.Headers.ToHeaders Network.AWS.Redshift.DescribeOrderableClusterOptions.DescribeOrderableClusterOptions
- Network.AWS.Redshift.DescribeOrderableClusterOptions: instance Network.AWS.Data.Path.ToPath Network.AWS.Redshift.DescribeOrderableClusterOptions.DescribeOrderableClusterOptions
- Network.AWS.Redshift.DescribeOrderableClusterOptions: instance Network.AWS.Data.Query.ToQuery Network.AWS.Redshift.DescribeOrderableClusterOptions.DescribeOrderableClusterOptions
- Network.AWS.Redshift.DescribeOrderableClusterOptions: instance Network.AWS.Pager.AWSPager Network.AWS.Redshift.DescribeOrderableClusterOptions.DescribeOrderableClusterOptions
- Network.AWS.Redshift.DescribeOrderableClusterOptions: instance Network.AWS.Types.AWSRequest Network.AWS.Redshift.DescribeOrderableClusterOptions.DescribeOrderableClusterOptions
- Network.AWS.Redshift.DescribeReservedNodeOfferings: data DescribeReservedNodeOfferings
- Network.AWS.Redshift.DescribeReservedNodeOfferings: data DescribeReservedNodeOfferingsResponse
- Network.AWS.Redshift.DescribeReservedNodeOfferings: describeReservedNodeOfferings :: DescribeReservedNodeOfferings
- Network.AWS.Redshift.DescribeReservedNodeOfferings: describeReservedNodeOfferingsResponse :: Int -> DescribeReservedNodeOfferingsResponse
- Network.AWS.Redshift.DescribeReservedNodeOfferings: drnoMarker :: Lens' DescribeReservedNodeOfferings (Maybe Text)
- Network.AWS.Redshift.DescribeReservedNodeOfferings: drnoMaxRecords :: Lens' DescribeReservedNodeOfferings (Maybe Int)
- Network.AWS.Redshift.DescribeReservedNodeOfferings: drnoReservedNodeOfferingId :: Lens' DescribeReservedNodeOfferings (Maybe Text)
- Network.AWS.Redshift.DescribeReservedNodeOfferings: drnorsMarker :: Lens' DescribeReservedNodeOfferingsResponse (Maybe Text)
- Network.AWS.Redshift.DescribeReservedNodeOfferings: drnorsReservedNodeOfferings :: Lens' DescribeReservedNodeOfferingsResponse [ReservedNodeOffering]
- Network.AWS.Redshift.DescribeReservedNodeOfferings: drnorsResponseStatus :: Lens' DescribeReservedNodeOfferingsResponse Int
- Network.AWS.Redshift.DescribeReservedNodeOfferings: instance Control.DeepSeq.NFData Network.AWS.Redshift.DescribeReservedNodeOfferings.DescribeReservedNodeOfferings
- Network.AWS.Redshift.DescribeReservedNodeOfferings: instance Control.DeepSeq.NFData Network.AWS.Redshift.DescribeReservedNodeOfferings.DescribeReservedNodeOfferingsResponse
- Network.AWS.Redshift.DescribeReservedNodeOfferings: instance Data.Data.Data Network.AWS.Redshift.DescribeReservedNodeOfferings.DescribeReservedNodeOfferings
- Network.AWS.Redshift.DescribeReservedNodeOfferings: instance Data.Data.Data Network.AWS.Redshift.DescribeReservedNodeOfferings.DescribeReservedNodeOfferingsResponse
- Network.AWS.Redshift.DescribeReservedNodeOfferings: instance Data.Hashable.Class.Hashable Network.AWS.Redshift.DescribeReservedNodeOfferings.DescribeReservedNodeOfferings
- Network.AWS.Redshift.DescribeReservedNodeOfferings: instance GHC.Classes.Eq Network.AWS.Redshift.DescribeReservedNodeOfferings.DescribeReservedNodeOfferings
- Network.AWS.Redshift.DescribeReservedNodeOfferings: instance GHC.Classes.Eq Network.AWS.Redshift.DescribeReservedNodeOfferings.DescribeReservedNodeOfferingsResponse
- Network.AWS.Redshift.DescribeReservedNodeOfferings: instance GHC.Generics.Generic Network.AWS.Redshift.DescribeReservedNodeOfferings.DescribeReservedNodeOfferings
- Network.AWS.Redshift.DescribeReservedNodeOfferings: instance GHC.Generics.Generic Network.AWS.Redshift.DescribeReservedNodeOfferings.DescribeReservedNodeOfferingsResponse
- Network.AWS.Redshift.DescribeReservedNodeOfferings: instance GHC.Read.Read Network.AWS.Redshift.DescribeReservedNodeOfferings.DescribeReservedNodeOfferings
- Network.AWS.Redshift.DescribeReservedNodeOfferings: instance GHC.Read.Read Network.AWS.Redshift.DescribeReservedNodeOfferings.DescribeReservedNodeOfferingsResponse
- Network.AWS.Redshift.DescribeReservedNodeOfferings: instance GHC.Show.Show Network.AWS.Redshift.DescribeReservedNodeOfferings.DescribeReservedNodeOfferings
- Network.AWS.Redshift.DescribeReservedNodeOfferings: instance GHC.Show.Show Network.AWS.Redshift.DescribeReservedNodeOfferings.DescribeReservedNodeOfferingsResponse
- Network.AWS.Redshift.DescribeReservedNodeOfferings: instance Network.AWS.Data.Headers.ToHeaders Network.AWS.Redshift.DescribeReservedNodeOfferings.DescribeReservedNodeOfferings
- Network.AWS.Redshift.DescribeReservedNodeOfferings: instance Network.AWS.Data.Path.ToPath Network.AWS.Redshift.DescribeReservedNodeOfferings.DescribeReservedNodeOfferings
- Network.AWS.Redshift.DescribeReservedNodeOfferings: instance Network.AWS.Data.Query.ToQuery Network.AWS.Redshift.DescribeReservedNodeOfferings.DescribeReservedNodeOfferings
- Network.AWS.Redshift.DescribeReservedNodeOfferings: instance Network.AWS.Pager.AWSPager Network.AWS.Redshift.DescribeReservedNodeOfferings.DescribeReservedNodeOfferings
- Network.AWS.Redshift.DescribeReservedNodeOfferings: instance Network.AWS.Types.AWSRequest Network.AWS.Redshift.DescribeReservedNodeOfferings.DescribeReservedNodeOfferings
- Network.AWS.Redshift.DescribeReservedNodes: data DescribeReservedNodes
- Network.AWS.Redshift.DescribeReservedNodes: data DescribeReservedNodesResponse
- Network.AWS.Redshift.DescribeReservedNodes: describeReservedNodes :: DescribeReservedNodes
- Network.AWS.Redshift.DescribeReservedNodes: describeReservedNodesResponse :: Int -> DescribeReservedNodesResponse
- Network.AWS.Redshift.DescribeReservedNodes: drnMarker :: Lens' DescribeReservedNodes (Maybe Text)
- Network.AWS.Redshift.DescribeReservedNodes: drnMaxRecords :: Lens' DescribeReservedNodes (Maybe Int)
- Network.AWS.Redshift.DescribeReservedNodes: drnReservedNodeId :: Lens' DescribeReservedNodes (Maybe Text)
- Network.AWS.Redshift.DescribeReservedNodes: drnrsMarker :: Lens' DescribeReservedNodesResponse (Maybe Text)
- Network.AWS.Redshift.DescribeReservedNodes: drnrsReservedNodes :: Lens' DescribeReservedNodesResponse [ReservedNode]
- Network.AWS.Redshift.DescribeReservedNodes: drnrsResponseStatus :: Lens' DescribeReservedNodesResponse Int
- Network.AWS.Redshift.DescribeReservedNodes: instance Control.DeepSeq.NFData Network.AWS.Redshift.DescribeReservedNodes.DescribeReservedNodes
- Network.AWS.Redshift.DescribeReservedNodes: instance Control.DeepSeq.NFData Network.AWS.Redshift.DescribeReservedNodes.DescribeReservedNodesResponse
- Network.AWS.Redshift.DescribeReservedNodes: instance Data.Data.Data Network.AWS.Redshift.DescribeReservedNodes.DescribeReservedNodes
- Network.AWS.Redshift.DescribeReservedNodes: instance Data.Data.Data Network.AWS.Redshift.DescribeReservedNodes.DescribeReservedNodesResponse
- Network.AWS.Redshift.DescribeReservedNodes: instance Data.Hashable.Class.Hashable Network.AWS.Redshift.DescribeReservedNodes.DescribeReservedNodes
- Network.AWS.Redshift.DescribeReservedNodes: instance GHC.Classes.Eq Network.AWS.Redshift.DescribeReservedNodes.DescribeReservedNodes
- Network.AWS.Redshift.DescribeReservedNodes: instance GHC.Classes.Eq Network.AWS.Redshift.DescribeReservedNodes.DescribeReservedNodesResponse
- Network.AWS.Redshift.DescribeReservedNodes: instance GHC.Generics.Generic Network.AWS.Redshift.DescribeReservedNodes.DescribeReservedNodes
- Network.AWS.Redshift.DescribeReservedNodes: instance GHC.Generics.Generic Network.AWS.Redshift.DescribeReservedNodes.DescribeReservedNodesResponse
- Network.AWS.Redshift.DescribeReservedNodes: instance GHC.Read.Read Network.AWS.Redshift.DescribeReservedNodes.DescribeReservedNodes
- Network.AWS.Redshift.DescribeReservedNodes: instance GHC.Read.Read Network.AWS.Redshift.DescribeReservedNodes.DescribeReservedNodesResponse
- Network.AWS.Redshift.DescribeReservedNodes: instance GHC.Show.Show Network.AWS.Redshift.DescribeReservedNodes.DescribeReservedNodes
- Network.AWS.Redshift.DescribeReservedNodes: instance GHC.Show.Show Network.AWS.Redshift.DescribeReservedNodes.DescribeReservedNodesResponse
- Network.AWS.Redshift.DescribeReservedNodes: instance Network.AWS.Data.Headers.ToHeaders Network.AWS.Redshift.DescribeReservedNodes.DescribeReservedNodes
- Network.AWS.Redshift.DescribeReservedNodes: instance Network.AWS.Data.Path.ToPath Network.AWS.Redshift.DescribeReservedNodes.DescribeReservedNodes
- Network.AWS.Redshift.DescribeReservedNodes: instance Network.AWS.Data.Query.ToQuery Network.AWS.Redshift.DescribeReservedNodes.DescribeReservedNodes
- Network.AWS.Redshift.DescribeReservedNodes: instance Network.AWS.Pager.AWSPager Network.AWS.Redshift.DescribeReservedNodes.DescribeReservedNodes
- Network.AWS.Redshift.DescribeReservedNodes: instance Network.AWS.Types.AWSRequest Network.AWS.Redshift.DescribeReservedNodes.DescribeReservedNodes
- Network.AWS.Redshift.DescribeResize: data DescribeResize
- Network.AWS.Redshift.DescribeResize: data DescribeResizeResponse
- Network.AWS.Redshift.DescribeResize: describeResize :: Text -> DescribeResize
- Network.AWS.Redshift.DescribeResize: describeResizeResponse :: Int -> DescribeResizeResponse
- Network.AWS.Redshift.DescribeResize: drClusterIdentifier :: Lens' DescribeResize Text
- Network.AWS.Redshift.DescribeResize: drrsAvgResizeRateInMegaBytesPerSecond :: Lens' DescribeResizeResponse (Maybe Double)
- Network.AWS.Redshift.DescribeResize: drrsElapsedTimeInSeconds :: Lens' DescribeResizeResponse (Maybe Integer)
- Network.AWS.Redshift.DescribeResize: drrsEstimatedTimeToCompletionInSeconds :: Lens' DescribeResizeResponse (Maybe Integer)
- Network.AWS.Redshift.DescribeResize: drrsImportTablesCompleted :: Lens' DescribeResizeResponse [Text]
- Network.AWS.Redshift.DescribeResize: drrsImportTablesInProgress :: Lens' DescribeResizeResponse [Text]
- Network.AWS.Redshift.DescribeResize: drrsImportTablesNotStarted :: Lens' DescribeResizeResponse [Text]
- Network.AWS.Redshift.DescribeResize: drrsProgressInMegaBytes :: Lens' DescribeResizeResponse (Maybe Integer)
- Network.AWS.Redshift.DescribeResize: drrsResponseStatus :: Lens' DescribeResizeResponse Int
- Network.AWS.Redshift.DescribeResize: drrsStatus :: Lens' DescribeResizeResponse (Maybe Text)
- Network.AWS.Redshift.DescribeResize: drrsTargetClusterType :: Lens' DescribeResizeResponse (Maybe Text)
- Network.AWS.Redshift.DescribeResize: drrsTargetNodeType :: Lens' DescribeResizeResponse (Maybe Text)
- Network.AWS.Redshift.DescribeResize: drrsTargetNumberOfNodes :: Lens' DescribeResizeResponse (Maybe Int)
- Network.AWS.Redshift.DescribeResize: drrsTotalResizeDataInMegaBytes :: Lens' DescribeResizeResponse (Maybe Integer)
- Network.AWS.Redshift.DescribeResize: instance Control.DeepSeq.NFData Network.AWS.Redshift.DescribeResize.DescribeResize
- Network.AWS.Redshift.DescribeResize: instance Control.DeepSeq.NFData Network.AWS.Redshift.DescribeResize.DescribeResizeResponse
- Network.AWS.Redshift.DescribeResize: instance Data.Data.Data Network.AWS.Redshift.DescribeResize.DescribeResize
- Network.AWS.Redshift.DescribeResize: instance Data.Data.Data Network.AWS.Redshift.DescribeResize.DescribeResizeResponse
- Network.AWS.Redshift.DescribeResize: instance Data.Hashable.Class.Hashable Network.AWS.Redshift.DescribeResize.DescribeResize
- Network.AWS.Redshift.DescribeResize: instance GHC.Classes.Eq Network.AWS.Redshift.DescribeResize.DescribeResize
- Network.AWS.Redshift.DescribeResize: instance GHC.Classes.Eq Network.AWS.Redshift.DescribeResize.DescribeResizeResponse
- Network.AWS.Redshift.DescribeResize: instance GHC.Generics.Generic Network.AWS.Redshift.DescribeResize.DescribeResize
- Network.AWS.Redshift.DescribeResize: instance GHC.Generics.Generic Network.AWS.Redshift.DescribeResize.DescribeResizeResponse
- Network.AWS.Redshift.DescribeResize: instance GHC.Read.Read Network.AWS.Redshift.DescribeResize.DescribeResize
- Network.AWS.Redshift.DescribeResize: instance GHC.Read.Read Network.AWS.Redshift.DescribeResize.DescribeResizeResponse
- Network.AWS.Redshift.DescribeResize: instance GHC.Show.Show Network.AWS.Redshift.DescribeResize.DescribeResize
- Network.AWS.Redshift.DescribeResize: instance GHC.Show.Show Network.AWS.Redshift.DescribeResize.DescribeResizeResponse
- Network.AWS.Redshift.DescribeResize: instance Network.AWS.Data.Headers.ToHeaders Network.AWS.Redshift.DescribeResize.DescribeResize
- Network.AWS.Redshift.DescribeResize: instance Network.AWS.Data.Path.ToPath Network.AWS.Redshift.DescribeResize.DescribeResize
- Network.AWS.Redshift.DescribeResize: instance Network.AWS.Data.Query.ToQuery Network.AWS.Redshift.DescribeResize.DescribeResize
- Network.AWS.Redshift.DescribeResize: instance Network.AWS.Types.AWSRequest Network.AWS.Redshift.DescribeResize.DescribeResize
- Network.AWS.Redshift.DescribeSnapshotCopyGrants: data DescribeSnapshotCopyGrants
- Network.AWS.Redshift.DescribeSnapshotCopyGrants: data DescribeSnapshotCopyGrantsResponse
- Network.AWS.Redshift.DescribeSnapshotCopyGrants: describeSnapshotCopyGrants :: DescribeSnapshotCopyGrants
- Network.AWS.Redshift.DescribeSnapshotCopyGrants: describeSnapshotCopyGrantsResponse :: Int -> DescribeSnapshotCopyGrantsResponse
- Network.AWS.Redshift.DescribeSnapshotCopyGrants: dscgrsMarker :: Lens' DescribeSnapshotCopyGrantsResponse (Maybe Text)
- Network.AWS.Redshift.DescribeSnapshotCopyGrants: dscgrsResponseStatus :: Lens' DescribeSnapshotCopyGrantsResponse Int
- Network.AWS.Redshift.DescribeSnapshotCopyGrants: dscgrsSnapshotCopyGrants :: Lens' DescribeSnapshotCopyGrantsResponse [SnapshotCopyGrant]
- Network.AWS.Redshift.DescribeSnapshotCopyGrants: dscgsMarker :: Lens' DescribeSnapshotCopyGrants (Maybe Text)
- Network.AWS.Redshift.DescribeSnapshotCopyGrants: dscgsMaxRecords :: Lens' DescribeSnapshotCopyGrants (Maybe Int)
- Network.AWS.Redshift.DescribeSnapshotCopyGrants: dscgsSnapshotCopyGrantName :: Lens' DescribeSnapshotCopyGrants (Maybe Text)
- Network.AWS.Redshift.DescribeSnapshotCopyGrants: dscgsTagKeys :: Lens' DescribeSnapshotCopyGrants [Text]
- Network.AWS.Redshift.DescribeSnapshotCopyGrants: dscgsTagValues :: Lens' DescribeSnapshotCopyGrants [Text]
- Network.AWS.Redshift.DescribeSnapshotCopyGrants: instance Control.DeepSeq.NFData Network.AWS.Redshift.DescribeSnapshotCopyGrants.DescribeSnapshotCopyGrants
- Network.AWS.Redshift.DescribeSnapshotCopyGrants: instance Control.DeepSeq.NFData Network.AWS.Redshift.DescribeSnapshotCopyGrants.DescribeSnapshotCopyGrantsResponse
- Network.AWS.Redshift.DescribeSnapshotCopyGrants: instance Data.Data.Data Network.AWS.Redshift.DescribeSnapshotCopyGrants.DescribeSnapshotCopyGrants
- Network.AWS.Redshift.DescribeSnapshotCopyGrants: instance Data.Data.Data Network.AWS.Redshift.DescribeSnapshotCopyGrants.DescribeSnapshotCopyGrantsResponse
- Network.AWS.Redshift.DescribeSnapshotCopyGrants: instance Data.Hashable.Class.Hashable Network.AWS.Redshift.DescribeSnapshotCopyGrants.DescribeSnapshotCopyGrants
- Network.AWS.Redshift.DescribeSnapshotCopyGrants: instance GHC.Classes.Eq Network.AWS.Redshift.DescribeSnapshotCopyGrants.DescribeSnapshotCopyGrants
- Network.AWS.Redshift.DescribeSnapshotCopyGrants: instance GHC.Classes.Eq Network.AWS.Redshift.DescribeSnapshotCopyGrants.DescribeSnapshotCopyGrantsResponse
- Network.AWS.Redshift.DescribeSnapshotCopyGrants: instance GHC.Generics.Generic Network.AWS.Redshift.DescribeSnapshotCopyGrants.DescribeSnapshotCopyGrants
- Network.AWS.Redshift.DescribeSnapshotCopyGrants: instance GHC.Generics.Generic Network.AWS.Redshift.DescribeSnapshotCopyGrants.DescribeSnapshotCopyGrantsResponse
- Network.AWS.Redshift.DescribeSnapshotCopyGrants: instance GHC.Read.Read Network.AWS.Redshift.DescribeSnapshotCopyGrants.DescribeSnapshotCopyGrants
- Network.AWS.Redshift.DescribeSnapshotCopyGrants: instance GHC.Read.Read Network.AWS.Redshift.DescribeSnapshotCopyGrants.DescribeSnapshotCopyGrantsResponse
- Network.AWS.Redshift.DescribeSnapshotCopyGrants: instance GHC.Show.Show Network.AWS.Redshift.DescribeSnapshotCopyGrants.DescribeSnapshotCopyGrants
- Network.AWS.Redshift.DescribeSnapshotCopyGrants: instance GHC.Show.Show Network.AWS.Redshift.DescribeSnapshotCopyGrants.DescribeSnapshotCopyGrantsResponse
- Network.AWS.Redshift.DescribeSnapshotCopyGrants: instance Network.AWS.Data.Headers.ToHeaders Network.AWS.Redshift.DescribeSnapshotCopyGrants.DescribeSnapshotCopyGrants
- Network.AWS.Redshift.DescribeSnapshotCopyGrants: instance Network.AWS.Data.Path.ToPath Network.AWS.Redshift.DescribeSnapshotCopyGrants.DescribeSnapshotCopyGrants
- Network.AWS.Redshift.DescribeSnapshotCopyGrants: instance Network.AWS.Data.Query.ToQuery Network.AWS.Redshift.DescribeSnapshotCopyGrants.DescribeSnapshotCopyGrants
- Network.AWS.Redshift.DescribeSnapshotCopyGrants: instance Network.AWS.Types.AWSRequest Network.AWS.Redshift.DescribeSnapshotCopyGrants.DescribeSnapshotCopyGrants
- Network.AWS.Redshift.DescribeTableRestoreStatus: data DescribeTableRestoreStatus
- Network.AWS.Redshift.DescribeTableRestoreStatus: data DescribeTableRestoreStatusResponse
- Network.AWS.Redshift.DescribeTableRestoreStatus: describeTableRestoreStatus :: DescribeTableRestoreStatus
- Network.AWS.Redshift.DescribeTableRestoreStatus: describeTableRestoreStatusResponse :: Int -> DescribeTableRestoreStatusResponse
- Network.AWS.Redshift.DescribeTableRestoreStatus: dtrsrsMarker :: Lens' DescribeTableRestoreStatusResponse (Maybe Text)
- Network.AWS.Redshift.DescribeTableRestoreStatus: dtrsrsResponseStatus :: Lens' DescribeTableRestoreStatusResponse Int
- Network.AWS.Redshift.DescribeTableRestoreStatus: dtrsrsTableRestoreStatusDetails :: Lens' DescribeTableRestoreStatusResponse [TableRestoreStatus]
- Network.AWS.Redshift.DescribeTableRestoreStatus: dtrssClusterIdentifier :: Lens' DescribeTableRestoreStatus (Maybe Text)
- Network.AWS.Redshift.DescribeTableRestoreStatus: dtrssMarker :: Lens' DescribeTableRestoreStatus (Maybe Text)
- Network.AWS.Redshift.DescribeTableRestoreStatus: dtrssMaxRecords :: Lens' DescribeTableRestoreStatus (Maybe Int)
- Network.AWS.Redshift.DescribeTableRestoreStatus: dtrssTableRestoreRequestId :: Lens' DescribeTableRestoreStatus (Maybe Text)
- Network.AWS.Redshift.DescribeTableRestoreStatus: instance Control.DeepSeq.NFData Network.AWS.Redshift.DescribeTableRestoreStatus.DescribeTableRestoreStatus
- Network.AWS.Redshift.DescribeTableRestoreStatus: instance Control.DeepSeq.NFData Network.AWS.Redshift.DescribeTableRestoreStatus.DescribeTableRestoreStatusResponse
- Network.AWS.Redshift.DescribeTableRestoreStatus: instance Data.Data.Data Network.AWS.Redshift.DescribeTableRestoreStatus.DescribeTableRestoreStatus
- Network.AWS.Redshift.DescribeTableRestoreStatus: instance Data.Data.Data Network.AWS.Redshift.DescribeTableRestoreStatus.DescribeTableRestoreStatusResponse
- Network.AWS.Redshift.DescribeTableRestoreStatus: instance Data.Hashable.Class.Hashable Network.AWS.Redshift.DescribeTableRestoreStatus.DescribeTableRestoreStatus
- Network.AWS.Redshift.DescribeTableRestoreStatus: instance GHC.Classes.Eq Network.AWS.Redshift.DescribeTableRestoreStatus.DescribeTableRestoreStatus
- Network.AWS.Redshift.DescribeTableRestoreStatus: instance GHC.Classes.Eq Network.AWS.Redshift.DescribeTableRestoreStatus.DescribeTableRestoreStatusResponse
- Network.AWS.Redshift.DescribeTableRestoreStatus: instance GHC.Generics.Generic Network.AWS.Redshift.DescribeTableRestoreStatus.DescribeTableRestoreStatus
- Network.AWS.Redshift.DescribeTableRestoreStatus: instance GHC.Generics.Generic Network.AWS.Redshift.DescribeTableRestoreStatus.DescribeTableRestoreStatusResponse
- Network.AWS.Redshift.DescribeTableRestoreStatus: instance GHC.Read.Read Network.AWS.Redshift.DescribeTableRestoreStatus.DescribeTableRestoreStatus
- Network.AWS.Redshift.DescribeTableRestoreStatus: instance GHC.Read.Read Network.AWS.Redshift.DescribeTableRestoreStatus.DescribeTableRestoreStatusResponse
- Network.AWS.Redshift.DescribeTableRestoreStatus: instance GHC.Show.Show Network.AWS.Redshift.DescribeTableRestoreStatus.DescribeTableRestoreStatus
- Network.AWS.Redshift.DescribeTableRestoreStatus: instance GHC.Show.Show Network.AWS.Redshift.DescribeTableRestoreStatus.DescribeTableRestoreStatusResponse
- Network.AWS.Redshift.DescribeTableRestoreStatus: instance Network.AWS.Data.Headers.ToHeaders Network.AWS.Redshift.DescribeTableRestoreStatus.DescribeTableRestoreStatus
- Network.AWS.Redshift.DescribeTableRestoreStatus: instance Network.AWS.Data.Path.ToPath Network.AWS.Redshift.DescribeTableRestoreStatus.DescribeTableRestoreStatus
- Network.AWS.Redshift.DescribeTableRestoreStatus: instance Network.AWS.Data.Query.ToQuery Network.AWS.Redshift.DescribeTableRestoreStatus.DescribeTableRestoreStatus
- Network.AWS.Redshift.DescribeTableRestoreStatus: instance Network.AWS.Types.AWSRequest Network.AWS.Redshift.DescribeTableRestoreStatus.DescribeTableRestoreStatus
- Network.AWS.Redshift.DescribeTags: data DescribeTags
- Network.AWS.Redshift.DescribeTags: data DescribeTagsResponse
- Network.AWS.Redshift.DescribeTags: describeTags :: DescribeTags
- Network.AWS.Redshift.DescribeTags: describeTagsResponse :: Int -> DescribeTagsResponse
- Network.AWS.Redshift.DescribeTags: dtMarker :: Lens' DescribeTags (Maybe Text)
- Network.AWS.Redshift.DescribeTags: dtMaxRecords :: Lens' DescribeTags (Maybe Int)
- Network.AWS.Redshift.DescribeTags: dtResourceName :: Lens' DescribeTags (Maybe Text)
- Network.AWS.Redshift.DescribeTags: dtResourceType :: Lens' DescribeTags (Maybe Text)
- Network.AWS.Redshift.DescribeTags: dtTagKeys :: Lens' DescribeTags [Text]
- Network.AWS.Redshift.DescribeTags: dtTagValues :: Lens' DescribeTags [Text]
- Network.AWS.Redshift.DescribeTags: dtrsMarker :: Lens' DescribeTagsResponse (Maybe Text)
- Network.AWS.Redshift.DescribeTags: dtrsResponseStatus :: Lens' DescribeTagsResponse Int
- Network.AWS.Redshift.DescribeTags: dtrsTaggedResources :: Lens' DescribeTagsResponse [TaggedResource]
- Network.AWS.Redshift.DescribeTags: instance Control.DeepSeq.NFData Network.AWS.Redshift.DescribeTags.DescribeTags
- Network.AWS.Redshift.DescribeTags: instance Control.DeepSeq.NFData Network.AWS.Redshift.DescribeTags.DescribeTagsResponse
- Network.AWS.Redshift.DescribeTags: instance Data.Data.Data Network.AWS.Redshift.DescribeTags.DescribeTags
- Network.AWS.Redshift.DescribeTags: instance Data.Data.Data Network.AWS.Redshift.DescribeTags.DescribeTagsResponse
- Network.AWS.Redshift.DescribeTags: instance Data.Hashable.Class.Hashable Network.AWS.Redshift.DescribeTags.DescribeTags
- Network.AWS.Redshift.DescribeTags: instance GHC.Classes.Eq Network.AWS.Redshift.DescribeTags.DescribeTags
- Network.AWS.Redshift.DescribeTags: instance GHC.Classes.Eq Network.AWS.Redshift.DescribeTags.DescribeTagsResponse
- Network.AWS.Redshift.DescribeTags: instance GHC.Generics.Generic Network.AWS.Redshift.DescribeTags.DescribeTags
- Network.AWS.Redshift.DescribeTags: instance GHC.Generics.Generic Network.AWS.Redshift.DescribeTags.DescribeTagsResponse
- Network.AWS.Redshift.DescribeTags: instance GHC.Read.Read Network.AWS.Redshift.DescribeTags.DescribeTags
- Network.AWS.Redshift.DescribeTags: instance GHC.Read.Read Network.AWS.Redshift.DescribeTags.DescribeTagsResponse
- Network.AWS.Redshift.DescribeTags: instance GHC.Show.Show Network.AWS.Redshift.DescribeTags.DescribeTags
- Network.AWS.Redshift.DescribeTags: instance GHC.Show.Show Network.AWS.Redshift.DescribeTags.DescribeTagsResponse
- Network.AWS.Redshift.DescribeTags: instance Network.AWS.Data.Headers.ToHeaders Network.AWS.Redshift.DescribeTags.DescribeTags
- Network.AWS.Redshift.DescribeTags: instance Network.AWS.Data.Path.ToPath Network.AWS.Redshift.DescribeTags.DescribeTags
- Network.AWS.Redshift.DescribeTags: instance Network.AWS.Data.Query.ToQuery Network.AWS.Redshift.DescribeTags.DescribeTags
- Network.AWS.Redshift.DescribeTags: instance Network.AWS.Types.AWSRequest Network.AWS.Redshift.DescribeTags.DescribeTags
- Network.AWS.Redshift.DisableLogging: data DisableLogging
- Network.AWS.Redshift.DisableLogging: data LoggingStatus
- Network.AWS.Redshift.DisableLogging: disableLogging :: Text -> DisableLogging
- Network.AWS.Redshift.DisableLogging: dlClusterIdentifier :: Lens' DisableLogging Text
- Network.AWS.Redshift.DisableLogging: instance Control.DeepSeq.NFData Network.AWS.Redshift.DisableLogging.DisableLogging
- Network.AWS.Redshift.DisableLogging: instance Data.Data.Data Network.AWS.Redshift.DisableLogging.DisableLogging
- Network.AWS.Redshift.DisableLogging: instance Data.Hashable.Class.Hashable Network.AWS.Redshift.DisableLogging.DisableLogging
- Network.AWS.Redshift.DisableLogging: instance GHC.Classes.Eq Network.AWS.Redshift.DisableLogging.DisableLogging
- Network.AWS.Redshift.DisableLogging: instance GHC.Generics.Generic Network.AWS.Redshift.DisableLogging.DisableLogging
- Network.AWS.Redshift.DisableLogging: instance GHC.Read.Read Network.AWS.Redshift.DisableLogging.DisableLogging
- Network.AWS.Redshift.DisableLogging: instance GHC.Show.Show Network.AWS.Redshift.DisableLogging.DisableLogging
- Network.AWS.Redshift.DisableLogging: instance Network.AWS.Data.Headers.ToHeaders Network.AWS.Redshift.DisableLogging.DisableLogging
- Network.AWS.Redshift.DisableLogging: instance Network.AWS.Data.Path.ToPath Network.AWS.Redshift.DisableLogging.DisableLogging
- Network.AWS.Redshift.DisableLogging: instance Network.AWS.Data.Query.ToQuery Network.AWS.Redshift.DisableLogging.DisableLogging
- Network.AWS.Redshift.DisableLogging: instance Network.AWS.Types.AWSRequest Network.AWS.Redshift.DisableLogging.DisableLogging
- Network.AWS.Redshift.DisableLogging: loggingStatus :: LoggingStatus
- Network.AWS.Redshift.DisableLogging: lsBucketName :: Lens' LoggingStatus (Maybe Text)
- Network.AWS.Redshift.DisableLogging: lsLastFailureMessage :: Lens' LoggingStatus (Maybe Text)
- Network.AWS.Redshift.DisableLogging: lsLastFailureTime :: Lens' LoggingStatus (Maybe UTCTime)
- Network.AWS.Redshift.DisableLogging: lsLastSuccessfulDeliveryTime :: Lens' LoggingStatus (Maybe UTCTime)
- Network.AWS.Redshift.DisableLogging: lsLoggingEnabled :: Lens' LoggingStatus (Maybe Bool)
- Network.AWS.Redshift.DisableLogging: lsS3KeyPrefix :: Lens' LoggingStatus (Maybe Text)
- Network.AWS.Redshift.DisableSnapshotCopy: data DisableSnapshotCopy
- Network.AWS.Redshift.DisableSnapshotCopy: data DisableSnapshotCopyResponse
- Network.AWS.Redshift.DisableSnapshotCopy: disableSnapshotCopy :: Text -> DisableSnapshotCopy
- Network.AWS.Redshift.DisableSnapshotCopy: disableSnapshotCopyResponse :: Int -> DisableSnapshotCopyResponse
- Network.AWS.Redshift.DisableSnapshotCopy: dscClusterIdentifier :: Lens' DisableSnapshotCopy Text
- Network.AWS.Redshift.DisableSnapshotCopy: dscrsCluster :: Lens' DisableSnapshotCopyResponse (Maybe Cluster)
- Network.AWS.Redshift.DisableSnapshotCopy: dscrsResponseStatus :: Lens' DisableSnapshotCopyResponse Int
- Network.AWS.Redshift.DisableSnapshotCopy: instance Control.DeepSeq.NFData Network.AWS.Redshift.DisableSnapshotCopy.DisableSnapshotCopy
- Network.AWS.Redshift.DisableSnapshotCopy: instance Control.DeepSeq.NFData Network.AWS.Redshift.DisableSnapshotCopy.DisableSnapshotCopyResponse
- Network.AWS.Redshift.DisableSnapshotCopy: instance Data.Data.Data Network.AWS.Redshift.DisableSnapshotCopy.DisableSnapshotCopy
- Network.AWS.Redshift.DisableSnapshotCopy: instance Data.Data.Data Network.AWS.Redshift.DisableSnapshotCopy.DisableSnapshotCopyResponse
- Network.AWS.Redshift.DisableSnapshotCopy: instance Data.Hashable.Class.Hashable Network.AWS.Redshift.DisableSnapshotCopy.DisableSnapshotCopy
- Network.AWS.Redshift.DisableSnapshotCopy: instance GHC.Classes.Eq Network.AWS.Redshift.DisableSnapshotCopy.DisableSnapshotCopy
- Network.AWS.Redshift.DisableSnapshotCopy: instance GHC.Classes.Eq Network.AWS.Redshift.DisableSnapshotCopy.DisableSnapshotCopyResponse
- Network.AWS.Redshift.DisableSnapshotCopy: instance GHC.Generics.Generic Network.AWS.Redshift.DisableSnapshotCopy.DisableSnapshotCopy
- Network.AWS.Redshift.DisableSnapshotCopy: instance GHC.Generics.Generic Network.AWS.Redshift.DisableSnapshotCopy.DisableSnapshotCopyResponse
- Network.AWS.Redshift.DisableSnapshotCopy: instance GHC.Read.Read Network.AWS.Redshift.DisableSnapshotCopy.DisableSnapshotCopy
- Network.AWS.Redshift.DisableSnapshotCopy: instance GHC.Read.Read Network.AWS.Redshift.DisableSnapshotCopy.DisableSnapshotCopyResponse
- Network.AWS.Redshift.DisableSnapshotCopy: instance GHC.Show.Show Network.AWS.Redshift.DisableSnapshotCopy.DisableSnapshotCopy
- Network.AWS.Redshift.DisableSnapshotCopy: instance GHC.Show.Show Network.AWS.Redshift.DisableSnapshotCopy.DisableSnapshotCopyResponse
- Network.AWS.Redshift.DisableSnapshotCopy: instance Network.AWS.Data.Headers.ToHeaders Network.AWS.Redshift.DisableSnapshotCopy.DisableSnapshotCopy
- Network.AWS.Redshift.DisableSnapshotCopy: instance Network.AWS.Data.Path.ToPath Network.AWS.Redshift.DisableSnapshotCopy.DisableSnapshotCopy
- Network.AWS.Redshift.DisableSnapshotCopy: instance Network.AWS.Data.Query.ToQuery Network.AWS.Redshift.DisableSnapshotCopy.DisableSnapshotCopy
- Network.AWS.Redshift.DisableSnapshotCopy: instance Network.AWS.Types.AWSRequest Network.AWS.Redshift.DisableSnapshotCopy.DisableSnapshotCopy
- Network.AWS.Redshift.EnableLogging: data EnableLogging
- Network.AWS.Redshift.EnableLogging: data LoggingStatus
- Network.AWS.Redshift.EnableLogging: elBucketName :: Lens' EnableLogging Text
- Network.AWS.Redshift.EnableLogging: elClusterIdentifier :: Lens' EnableLogging Text
- Network.AWS.Redshift.EnableLogging: elS3KeyPrefix :: Lens' EnableLogging (Maybe Text)
- Network.AWS.Redshift.EnableLogging: enableLogging :: Text -> Text -> EnableLogging
- Network.AWS.Redshift.EnableLogging: instance Control.DeepSeq.NFData Network.AWS.Redshift.EnableLogging.EnableLogging
- Network.AWS.Redshift.EnableLogging: instance Data.Data.Data Network.AWS.Redshift.EnableLogging.EnableLogging
- Network.AWS.Redshift.EnableLogging: instance Data.Hashable.Class.Hashable Network.AWS.Redshift.EnableLogging.EnableLogging
- Network.AWS.Redshift.EnableLogging: instance GHC.Classes.Eq Network.AWS.Redshift.EnableLogging.EnableLogging
- Network.AWS.Redshift.EnableLogging: instance GHC.Generics.Generic Network.AWS.Redshift.EnableLogging.EnableLogging
- Network.AWS.Redshift.EnableLogging: instance GHC.Read.Read Network.AWS.Redshift.EnableLogging.EnableLogging
- Network.AWS.Redshift.EnableLogging: instance GHC.Show.Show Network.AWS.Redshift.EnableLogging.EnableLogging
- Network.AWS.Redshift.EnableLogging: instance Network.AWS.Data.Headers.ToHeaders Network.AWS.Redshift.EnableLogging.EnableLogging
- Network.AWS.Redshift.EnableLogging: instance Network.AWS.Data.Path.ToPath Network.AWS.Redshift.EnableLogging.EnableLogging
- Network.AWS.Redshift.EnableLogging: instance Network.AWS.Data.Query.ToQuery Network.AWS.Redshift.EnableLogging.EnableLogging
- Network.AWS.Redshift.EnableLogging: instance Network.AWS.Types.AWSRequest Network.AWS.Redshift.EnableLogging.EnableLogging
- Network.AWS.Redshift.EnableLogging: loggingStatus :: LoggingStatus
- Network.AWS.Redshift.EnableLogging: lsBucketName :: Lens' LoggingStatus (Maybe Text)
- Network.AWS.Redshift.EnableLogging: lsLastFailureMessage :: Lens' LoggingStatus (Maybe Text)
- Network.AWS.Redshift.EnableLogging: lsLastFailureTime :: Lens' LoggingStatus (Maybe UTCTime)
- Network.AWS.Redshift.EnableLogging: lsLastSuccessfulDeliveryTime :: Lens' LoggingStatus (Maybe UTCTime)
- Network.AWS.Redshift.EnableLogging: lsLoggingEnabled :: Lens' LoggingStatus (Maybe Bool)
- Network.AWS.Redshift.EnableLogging: lsS3KeyPrefix :: Lens' LoggingStatus (Maybe Text)
- Network.AWS.Redshift.EnableSnapshotCopy: data EnableSnapshotCopy
- Network.AWS.Redshift.EnableSnapshotCopy: data EnableSnapshotCopyResponse
- Network.AWS.Redshift.EnableSnapshotCopy: enableSnapshotCopy :: Text -> Text -> EnableSnapshotCopy
- Network.AWS.Redshift.EnableSnapshotCopy: enableSnapshotCopyResponse :: Int -> EnableSnapshotCopyResponse
- Network.AWS.Redshift.EnableSnapshotCopy: escClusterIdentifier :: Lens' EnableSnapshotCopy Text
- Network.AWS.Redshift.EnableSnapshotCopy: escDestinationRegion :: Lens' EnableSnapshotCopy Text
- Network.AWS.Redshift.EnableSnapshotCopy: escRetentionPeriod :: Lens' EnableSnapshotCopy (Maybe Int)
- Network.AWS.Redshift.EnableSnapshotCopy: escSnapshotCopyGrantName :: Lens' EnableSnapshotCopy (Maybe Text)
- Network.AWS.Redshift.EnableSnapshotCopy: escrsCluster :: Lens' EnableSnapshotCopyResponse (Maybe Cluster)
- Network.AWS.Redshift.EnableSnapshotCopy: escrsResponseStatus :: Lens' EnableSnapshotCopyResponse Int
- Network.AWS.Redshift.EnableSnapshotCopy: instance Control.DeepSeq.NFData Network.AWS.Redshift.EnableSnapshotCopy.EnableSnapshotCopy
- Network.AWS.Redshift.EnableSnapshotCopy: instance Control.DeepSeq.NFData Network.AWS.Redshift.EnableSnapshotCopy.EnableSnapshotCopyResponse
- Network.AWS.Redshift.EnableSnapshotCopy: instance Data.Data.Data Network.AWS.Redshift.EnableSnapshotCopy.EnableSnapshotCopy
- Network.AWS.Redshift.EnableSnapshotCopy: instance Data.Data.Data Network.AWS.Redshift.EnableSnapshotCopy.EnableSnapshotCopyResponse
- Network.AWS.Redshift.EnableSnapshotCopy: instance Data.Hashable.Class.Hashable Network.AWS.Redshift.EnableSnapshotCopy.EnableSnapshotCopy
- Network.AWS.Redshift.EnableSnapshotCopy: instance GHC.Classes.Eq Network.AWS.Redshift.EnableSnapshotCopy.EnableSnapshotCopy
- Network.AWS.Redshift.EnableSnapshotCopy: instance GHC.Classes.Eq Network.AWS.Redshift.EnableSnapshotCopy.EnableSnapshotCopyResponse
- Network.AWS.Redshift.EnableSnapshotCopy: instance GHC.Generics.Generic Network.AWS.Redshift.EnableSnapshotCopy.EnableSnapshotCopy
- Network.AWS.Redshift.EnableSnapshotCopy: instance GHC.Generics.Generic Network.AWS.Redshift.EnableSnapshotCopy.EnableSnapshotCopyResponse
- Network.AWS.Redshift.EnableSnapshotCopy: instance GHC.Read.Read Network.AWS.Redshift.EnableSnapshotCopy.EnableSnapshotCopy
- Network.AWS.Redshift.EnableSnapshotCopy: instance GHC.Read.Read Network.AWS.Redshift.EnableSnapshotCopy.EnableSnapshotCopyResponse
- Network.AWS.Redshift.EnableSnapshotCopy: instance GHC.Show.Show Network.AWS.Redshift.EnableSnapshotCopy.EnableSnapshotCopy
- Network.AWS.Redshift.EnableSnapshotCopy: instance GHC.Show.Show Network.AWS.Redshift.EnableSnapshotCopy.EnableSnapshotCopyResponse
- Network.AWS.Redshift.EnableSnapshotCopy: instance Network.AWS.Data.Headers.ToHeaders Network.AWS.Redshift.EnableSnapshotCopy.EnableSnapshotCopy
- Network.AWS.Redshift.EnableSnapshotCopy: instance Network.AWS.Data.Path.ToPath Network.AWS.Redshift.EnableSnapshotCopy.EnableSnapshotCopy
- Network.AWS.Redshift.EnableSnapshotCopy: instance Network.AWS.Data.Query.ToQuery Network.AWS.Redshift.EnableSnapshotCopy.EnableSnapshotCopy
- Network.AWS.Redshift.EnableSnapshotCopy: instance Network.AWS.Types.AWSRequest Network.AWS.Redshift.EnableSnapshotCopy.EnableSnapshotCopy
- Network.AWS.Redshift.GetClusterCredentials: data GetClusterCredentials
- Network.AWS.Redshift.GetClusterCredentials: data GetClusterCredentialsResponse
- Network.AWS.Redshift.GetClusterCredentials: gccAutoCreate :: Lens' GetClusterCredentials (Maybe Bool)
- Network.AWS.Redshift.GetClusterCredentials: gccClusterIdentifier :: Lens' GetClusterCredentials Text
- Network.AWS.Redshift.GetClusterCredentials: gccDBGroups :: Lens' GetClusterCredentials [Text]
- Network.AWS.Redshift.GetClusterCredentials: gccDBName :: Lens' GetClusterCredentials (Maybe Text)
- Network.AWS.Redshift.GetClusterCredentials: gccDBUser :: Lens' GetClusterCredentials Text
- Network.AWS.Redshift.GetClusterCredentials: gccDurationSeconds :: Lens' GetClusterCredentials (Maybe Int)
- Network.AWS.Redshift.GetClusterCredentials: gccrsDBPassword :: Lens' GetClusterCredentialsResponse (Maybe Text)
- Network.AWS.Redshift.GetClusterCredentials: gccrsDBUser :: Lens' GetClusterCredentialsResponse (Maybe Text)
- Network.AWS.Redshift.GetClusterCredentials: gccrsExpiration :: Lens' GetClusterCredentialsResponse (Maybe UTCTime)
- Network.AWS.Redshift.GetClusterCredentials: gccrsResponseStatus :: Lens' GetClusterCredentialsResponse Int
- Network.AWS.Redshift.GetClusterCredentials: getClusterCredentials :: Text -> Text -> GetClusterCredentials
- Network.AWS.Redshift.GetClusterCredentials: getClusterCredentialsResponse :: Int -> GetClusterCredentialsResponse
- Network.AWS.Redshift.GetClusterCredentials: instance Control.DeepSeq.NFData Network.AWS.Redshift.GetClusterCredentials.GetClusterCredentials
- Network.AWS.Redshift.GetClusterCredentials: instance Control.DeepSeq.NFData Network.AWS.Redshift.GetClusterCredentials.GetClusterCredentialsResponse
- Network.AWS.Redshift.GetClusterCredentials: instance Data.Data.Data Network.AWS.Redshift.GetClusterCredentials.GetClusterCredentials
- Network.AWS.Redshift.GetClusterCredentials: instance Data.Data.Data Network.AWS.Redshift.GetClusterCredentials.GetClusterCredentialsResponse
- Network.AWS.Redshift.GetClusterCredentials: instance Data.Hashable.Class.Hashable Network.AWS.Redshift.GetClusterCredentials.GetClusterCredentials
- Network.AWS.Redshift.GetClusterCredentials: instance GHC.Classes.Eq Network.AWS.Redshift.GetClusterCredentials.GetClusterCredentials
- Network.AWS.Redshift.GetClusterCredentials: instance GHC.Classes.Eq Network.AWS.Redshift.GetClusterCredentials.GetClusterCredentialsResponse
- Network.AWS.Redshift.GetClusterCredentials: instance GHC.Generics.Generic Network.AWS.Redshift.GetClusterCredentials.GetClusterCredentials
- Network.AWS.Redshift.GetClusterCredentials: instance GHC.Generics.Generic Network.AWS.Redshift.GetClusterCredentials.GetClusterCredentialsResponse
- Network.AWS.Redshift.GetClusterCredentials: instance GHC.Read.Read Network.AWS.Redshift.GetClusterCredentials.GetClusterCredentials
- Network.AWS.Redshift.GetClusterCredentials: instance GHC.Show.Show Network.AWS.Redshift.GetClusterCredentials.GetClusterCredentials
- Network.AWS.Redshift.GetClusterCredentials: instance GHC.Show.Show Network.AWS.Redshift.GetClusterCredentials.GetClusterCredentialsResponse
- Network.AWS.Redshift.GetClusterCredentials: instance Network.AWS.Data.Headers.ToHeaders Network.AWS.Redshift.GetClusterCredentials.GetClusterCredentials
- Network.AWS.Redshift.GetClusterCredentials: instance Network.AWS.Data.Path.ToPath Network.AWS.Redshift.GetClusterCredentials.GetClusterCredentials
- Network.AWS.Redshift.GetClusterCredentials: instance Network.AWS.Data.Query.ToQuery Network.AWS.Redshift.GetClusterCredentials.GetClusterCredentials
- Network.AWS.Redshift.GetClusterCredentials: instance Network.AWS.Types.AWSRequest Network.AWS.Redshift.GetClusterCredentials.GetClusterCredentials
- Network.AWS.Redshift.ModifyCluster: data ModifyCluster
- Network.AWS.Redshift.ModifyCluster: data ModifyClusterResponse
- Network.AWS.Redshift.ModifyCluster: instance Control.DeepSeq.NFData Network.AWS.Redshift.ModifyCluster.ModifyCluster
- Network.AWS.Redshift.ModifyCluster: instance Control.DeepSeq.NFData Network.AWS.Redshift.ModifyCluster.ModifyClusterResponse
- Network.AWS.Redshift.ModifyCluster: instance Data.Data.Data Network.AWS.Redshift.ModifyCluster.ModifyCluster
- Network.AWS.Redshift.ModifyCluster: instance Data.Data.Data Network.AWS.Redshift.ModifyCluster.ModifyClusterResponse
- Network.AWS.Redshift.ModifyCluster: instance Data.Hashable.Class.Hashable Network.AWS.Redshift.ModifyCluster.ModifyCluster
- Network.AWS.Redshift.ModifyCluster: instance GHC.Classes.Eq Network.AWS.Redshift.ModifyCluster.ModifyCluster
- Network.AWS.Redshift.ModifyCluster: instance GHC.Classes.Eq Network.AWS.Redshift.ModifyCluster.ModifyClusterResponse
- Network.AWS.Redshift.ModifyCluster: instance GHC.Generics.Generic Network.AWS.Redshift.ModifyCluster.ModifyCluster
- Network.AWS.Redshift.ModifyCluster: instance GHC.Generics.Generic Network.AWS.Redshift.ModifyCluster.ModifyClusterResponse
- Network.AWS.Redshift.ModifyCluster: instance GHC.Read.Read Network.AWS.Redshift.ModifyCluster.ModifyCluster
- Network.AWS.Redshift.ModifyCluster: instance GHC.Read.Read Network.AWS.Redshift.ModifyCluster.ModifyClusterResponse
- Network.AWS.Redshift.ModifyCluster: instance GHC.Show.Show Network.AWS.Redshift.ModifyCluster.ModifyCluster
- Network.AWS.Redshift.ModifyCluster: instance GHC.Show.Show Network.AWS.Redshift.ModifyCluster.ModifyClusterResponse
- Network.AWS.Redshift.ModifyCluster: instance Network.AWS.Data.Headers.ToHeaders Network.AWS.Redshift.ModifyCluster.ModifyCluster
- Network.AWS.Redshift.ModifyCluster: instance Network.AWS.Data.Path.ToPath Network.AWS.Redshift.ModifyCluster.ModifyCluster
- Network.AWS.Redshift.ModifyCluster: instance Network.AWS.Data.Query.ToQuery Network.AWS.Redshift.ModifyCluster.ModifyCluster
- Network.AWS.Redshift.ModifyCluster: instance Network.AWS.Types.AWSRequest Network.AWS.Redshift.ModifyCluster.ModifyCluster
- Network.AWS.Redshift.ModifyCluster: mcAllowVersionUpgrade :: Lens' ModifyCluster (Maybe Bool)
- Network.AWS.Redshift.ModifyCluster: mcAutomatedSnapshotRetentionPeriod :: Lens' ModifyCluster (Maybe Int)
- Network.AWS.Redshift.ModifyCluster: mcClusterIdentifier :: Lens' ModifyCluster Text
- Network.AWS.Redshift.ModifyCluster: mcClusterParameterGroupName :: Lens' ModifyCluster (Maybe Text)
- Network.AWS.Redshift.ModifyCluster: mcClusterSecurityGroups :: Lens' ModifyCluster [Text]
- Network.AWS.Redshift.ModifyCluster: mcClusterType :: Lens' ModifyCluster (Maybe Text)
- Network.AWS.Redshift.ModifyCluster: mcClusterVersion :: Lens' ModifyCluster (Maybe Text)
- Network.AWS.Redshift.ModifyCluster: mcElasticIP :: Lens' ModifyCluster (Maybe Text)
- Network.AWS.Redshift.ModifyCluster: mcEnhancedVPCRouting :: Lens' ModifyCluster (Maybe Bool)
- Network.AWS.Redshift.ModifyCluster: mcHSMClientCertificateIdentifier :: Lens' ModifyCluster (Maybe Text)
- Network.AWS.Redshift.ModifyCluster: mcHSMConfigurationIdentifier :: Lens' ModifyCluster (Maybe Text)
- Network.AWS.Redshift.ModifyCluster: mcMasterUserPassword :: Lens' ModifyCluster (Maybe Text)
- Network.AWS.Redshift.ModifyCluster: mcNewClusterIdentifier :: Lens' ModifyCluster (Maybe Text)
- Network.AWS.Redshift.ModifyCluster: mcNodeType :: Lens' ModifyCluster (Maybe Text)
- Network.AWS.Redshift.ModifyCluster: mcNumberOfNodes :: Lens' ModifyCluster (Maybe Int)
- Network.AWS.Redshift.ModifyCluster: mcPreferredMaintenanceWindow :: Lens' ModifyCluster (Maybe Text)
- Network.AWS.Redshift.ModifyCluster: mcPubliclyAccessible :: Lens' ModifyCluster (Maybe Bool)
- Network.AWS.Redshift.ModifyCluster: mcVPCSecurityGroupIds :: Lens' ModifyCluster [Text]
- Network.AWS.Redshift.ModifyCluster: mcrsCluster :: Lens' ModifyClusterResponse (Maybe Cluster)
- Network.AWS.Redshift.ModifyCluster: mcrsResponseStatus :: Lens' ModifyClusterResponse Int
- Network.AWS.Redshift.ModifyCluster: modifyCluster :: Text -> ModifyCluster
- Network.AWS.Redshift.ModifyCluster: modifyClusterResponse :: Int -> ModifyClusterResponse
- Network.AWS.Redshift.ModifyClusterIAMRoles: data ModifyClusterIAMRoles
- Network.AWS.Redshift.ModifyClusterIAMRoles: data ModifyClusterIAMRolesResponse
- Network.AWS.Redshift.ModifyClusterIAMRoles: instance Control.DeepSeq.NFData Network.AWS.Redshift.ModifyClusterIAMRoles.ModifyClusterIAMRoles
- Network.AWS.Redshift.ModifyClusterIAMRoles: instance Control.DeepSeq.NFData Network.AWS.Redshift.ModifyClusterIAMRoles.ModifyClusterIAMRolesResponse
- Network.AWS.Redshift.ModifyClusterIAMRoles: instance Data.Data.Data Network.AWS.Redshift.ModifyClusterIAMRoles.ModifyClusterIAMRoles
- Network.AWS.Redshift.ModifyClusterIAMRoles: instance Data.Data.Data Network.AWS.Redshift.ModifyClusterIAMRoles.ModifyClusterIAMRolesResponse
- Network.AWS.Redshift.ModifyClusterIAMRoles: instance Data.Hashable.Class.Hashable Network.AWS.Redshift.ModifyClusterIAMRoles.ModifyClusterIAMRoles
- Network.AWS.Redshift.ModifyClusterIAMRoles: instance GHC.Classes.Eq Network.AWS.Redshift.ModifyClusterIAMRoles.ModifyClusterIAMRoles
- Network.AWS.Redshift.ModifyClusterIAMRoles: instance GHC.Classes.Eq Network.AWS.Redshift.ModifyClusterIAMRoles.ModifyClusterIAMRolesResponse
- Network.AWS.Redshift.ModifyClusterIAMRoles: instance GHC.Generics.Generic Network.AWS.Redshift.ModifyClusterIAMRoles.ModifyClusterIAMRoles
- Network.AWS.Redshift.ModifyClusterIAMRoles: instance GHC.Generics.Generic Network.AWS.Redshift.ModifyClusterIAMRoles.ModifyClusterIAMRolesResponse
- Network.AWS.Redshift.ModifyClusterIAMRoles: instance GHC.Read.Read Network.AWS.Redshift.ModifyClusterIAMRoles.ModifyClusterIAMRoles
- Network.AWS.Redshift.ModifyClusterIAMRoles: instance GHC.Read.Read Network.AWS.Redshift.ModifyClusterIAMRoles.ModifyClusterIAMRolesResponse
- Network.AWS.Redshift.ModifyClusterIAMRoles: instance GHC.Show.Show Network.AWS.Redshift.ModifyClusterIAMRoles.ModifyClusterIAMRoles
- Network.AWS.Redshift.ModifyClusterIAMRoles: instance GHC.Show.Show Network.AWS.Redshift.ModifyClusterIAMRoles.ModifyClusterIAMRolesResponse
- Network.AWS.Redshift.ModifyClusterIAMRoles: instance Network.AWS.Data.Headers.ToHeaders Network.AWS.Redshift.ModifyClusterIAMRoles.ModifyClusterIAMRoles
- Network.AWS.Redshift.ModifyClusterIAMRoles: instance Network.AWS.Data.Path.ToPath Network.AWS.Redshift.ModifyClusterIAMRoles.ModifyClusterIAMRoles
- Network.AWS.Redshift.ModifyClusterIAMRoles: instance Network.AWS.Data.Query.ToQuery Network.AWS.Redshift.ModifyClusterIAMRoles.ModifyClusterIAMRoles
- Network.AWS.Redshift.ModifyClusterIAMRoles: instance Network.AWS.Types.AWSRequest Network.AWS.Redshift.ModifyClusterIAMRoles.ModifyClusterIAMRoles
- Network.AWS.Redshift.ModifyClusterIAMRoles: mcirAddIAMRoles :: Lens' ModifyClusterIAMRoles [Text]
- Network.AWS.Redshift.ModifyClusterIAMRoles: mcirClusterIdentifier :: Lens' ModifyClusterIAMRoles Text
- Network.AWS.Redshift.ModifyClusterIAMRoles: mcirRemoveIAMRoles :: Lens' ModifyClusterIAMRoles [Text]
- Network.AWS.Redshift.ModifyClusterIAMRoles: mcirrsCluster :: Lens' ModifyClusterIAMRolesResponse (Maybe Cluster)
- Network.AWS.Redshift.ModifyClusterIAMRoles: mcirrsResponseStatus :: Lens' ModifyClusterIAMRolesResponse Int
- Network.AWS.Redshift.ModifyClusterIAMRoles: modifyClusterIAMRoles :: Text -> ModifyClusterIAMRoles
- Network.AWS.Redshift.ModifyClusterIAMRoles: modifyClusterIAMRolesResponse :: Int -> ModifyClusterIAMRolesResponse
- Network.AWS.Redshift.ModifyClusterParameterGroup: clusterParameterGroupNameMessage :: ClusterParameterGroupNameMessage
- Network.AWS.Redshift.ModifyClusterParameterGroup: cpgnmParameterGroupName :: Lens' ClusterParameterGroupNameMessage (Maybe Text)
- Network.AWS.Redshift.ModifyClusterParameterGroup: cpgnmParameterGroupStatus :: Lens' ClusterParameterGroupNameMessage (Maybe Text)
- Network.AWS.Redshift.ModifyClusterParameterGroup: data ClusterParameterGroupNameMessage
- Network.AWS.Redshift.ModifyClusterParameterGroup: data ModifyClusterParameterGroup
- Network.AWS.Redshift.ModifyClusterParameterGroup: instance Control.DeepSeq.NFData Network.AWS.Redshift.ModifyClusterParameterGroup.ModifyClusterParameterGroup
- Network.AWS.Redshift.ModifyClusterParameterGroup: instance Data.Data.Data Network.AWS.Redshift.ModifyClusterParameterGroup.ModifyClusterParameterGroup
- Network.AWS.Redshift.ModifyClusterParameterGroup: instance Data.Hashable.Class.Hashable Network.AWS.Redshift.ModifyClusterParameterGroup.ModifyClusterParameterGroup
- Network.AWS.Redshift.ModifyClusterParameterGroup: instance GHC.Classes.Eq Network.AWS.Redshift.ModifyClusterParameterGroup.ModifyClusterParameterGroup
- Network.AWS.Redshift.ModifyClusterParameterGroup: instance GHC.Generics.Generic Network.AWS.Redshift.ModifyClusterParameterGroup.ModifyClusterParameterGroup
- Network.AWS.Redshift.ModifyClusterParameterGroup: instance GHC.Read.Read Network.AWS.Redshift.ModifyClusterParameterGroup.ModifyClusterParameterGroup
- Network.AWS.Redshift.ModifyClusterParameterGroup: instance GHC.Show.Show Network.AWS.Redshift.ModifyClusterParameterGroup.ModifyClusterParameterGroup
- Network.AWS.Redshift.ModifyClusterParameterGroup: instance Network.AWS.Data.Headers.ToHeaders Network.AWS.Redshift.ModifyClusterParameterGroup.ModifyClusterParameterGroup
- Network.AWS.Redshift.ModifyClusterParameterGroup: instance Network.AWS.Data.Path.ToPath Network.AWS.Redshift.ModifyClusterParameterGroup.ModifyClusterParameterGroup
- Network.AWS.Redshift.ModifyClusterParameterGroup: instance Network.AWS.Data.Query.ToQuery Network.AWS.Redshift.ModifyClusterParameterGroup.ModifyClusterParameterGroup
- Network.AWS.Redshift.ModifyClusterParameterGroup: instance Network.AWS.Types.AWSRequest Network.AWS.Redshift.ModifyClusterParameterGroup.ModifyClusterParameterGroup
- Network.AWS.Redshift.ModifyClusterParameterGroup: mcpgParameterGroupName :: Lens' ModifyClusterParameterGroup Text
- Network.AWS.Redshift.ModifyClusterParameterGroup: mcpgParameters :: Lens' ModifyClusterParameterGroup [Parameter]
- Network.AWS.Redshift.ModifyClusterParameterGroup: modifyClusterParameterGroup :: Text -> ModifyClusterParameterGroup
- Network.AWS.Redshift.ModifyClusterSubnetGroup: data ModifyClusterSubnetGroup
- Network.AWS.Redshift.ModifyClusterSubnetGroup: data ModifyClusterSubnetGroupResponse
- Network.AWS.Redshift.ModifyClusterSubnetGroup: instance Control.DeepSeq.NFData Network.AWS.Redshift.ModifyClusterSubnetGroup.ModifyClusterSubnetGroup
- Network.AWS.Redshift.ModifyClusterSubnetGroup: instance Control.DeepSeq.NFData Network.AWS.Redshift.ModifyClusterSubnetGroup.ModifyClusterSubnetGroupResponse
- Network.AWS.Redshift.ModifyClusterSubnetGroup: instance Data.Data.Data Network.AWS.Redshift.ModifyClusterSubnetGroup.ModifyClusterSubnetGroup
- Network.AWS.Redshift.ModifyClusterSubnetGroup: instance Data.Data.Data Network.AWS.Redshift.ModifyClusterSubnetGroup.ModifyClusterSubnetGroupResponse
- Network.AWS.Redshift.ModifyClusterSubnetGroup: instance Data.Hashable.Class.Hashable Network.AWS.Redshift.ModifyClusterSubnetGroup.ModifyClusterSubnetGroup
- Network.AWS.Redshift.ModifyClusterSubnetGroup: instance GHC.Classes.Eq Network.AWS.Redshift.ModifyClusterSubnetGroup.ModifyClusterSubnetGroup
- Network.AWS.Redshift.ModifyClusterSubnetGroup: instance GHC.Classes.Eq Network.AWS.Redshift.ModifyClusterSubnetGroup.ModifyClusterSubnetGroupResponse
- Network.AWS.Redshift.ModifyClusterSubnetGroup: instance GHC.Generics.Generic Network.AWS.Redshift.ModifyClusterSubnetGroup.ModifyClusterSubnetGroup
- Network.AWS.Redshift.ModifyClusterSubnetGroup: instance GHC.Generics.Generic Network.AWS.Redshift.ModifyClusterSubnetGroup.ModifyClusterSubnetGroupResponse
- Network.AWS.Redshift.ModifyClusterSubnetGroup: instance GHC.Read.Read Network.AWS.Redshift.ModifyClusterSubnetGroup.ModifyClusterSubnetGroup
- Network.AWS.Redshift.ModifyClusterSubnetGroup: instance GHC.Read.Read Network.AWS.Redshift.ModifyClusterSubnetGroup.ModifyClusterSubnetGroupResponse
- Network.AWS.Redshift.ModifyClusterSubnetGroup: instance GHC.Show.Show Network.AWS.Redshift.ModifyClusterSubnetGroup.ModifyClusterSubnetGroup
- Network.AWS.Redshift.ModifyClusterSubnetGroup: instance GHC.Show.Show Network.AWS.Redshift.ModifyClusterSubnetGroup.ModifyClusterSubnetGroupResponse
- Network.AWS.Redshift.ModifyClusterSubnetGroup: instance Network.AWS.Data.Headers.ToHeaders Network.AWS.Redshift.ModifyClusterSubnetGroup.ModifyClusterSubnetGroup
- Network.AWS.Redshift.ModifyClusterSubnetGroup: instance Network.AWS.Data.Path.ToPath Network.AWS.Redshift.ModifyClusterSubnetGroup.ModifyClusterSubnetGroup
- Network.AWS.Redshift.ModifyClusterSubnetGroup: instance Network.AWS.Data.Query.ToQuery Network.AWS.Redshift.ModifyClusterSubnetGroup.ModifyClusterSubnetGroup
- Network.AWS.Redshift.ModifyClusterSubnetGroup: instance Network.AWS.Types.AWSRequest Network.AWS.Redshift.ModifyClusterSubnetGroup.ModifyClusterSubnetGroup
- Network.AWS.Redshift.ModifyClusterSubnetGroup: mcsgClusterSubnetGroupName :: Lens' ModifyClusterSubnetGroup Text
- Network.AWS.Redshift.ModifyClusterSubnetGroup: mcsgDescription :: Lens' ModifyClusterSubnetGroup (Maybe Text)
- Network.AWS.Redshift.ModifyClusterSubnetGroup: mcsgSubnetIds :: Lens' ModifyClusterSubnetGroup [Text]
- Network.AWS.Redshift.ModifyClusterSubnetGroup: mcsgrsClusterSubnetGroup :: Lens' ModifyClusterSubnetGroupResponse (Maybe ClusterSubnetGroup)
- Network.AWS.Redshift.ModifyClusterSubnetGroup: mcsgrsResponseStatus :: Lens' ModifyClusterSubnetGroupResponse Int
- Network.AWS.Redshift.ModifyClusterSubnetGroup: modifyClusterSubnetGroup :: Text -> ModifyClusterSubnetGroup
- Network.AWS.Redshift.ModifyClusterSubnetGroup: modifyClusterSubnetGroupResponse :: Int -> ModifyClusterSubnetGroupResponse
- Network.AWS.Redshift.ModifyEventSubscription: data ModifyEventSubscription
- Network.AWS.Redshift.ModifyEventSubscription: data ModifyEventSubscriptionResponse
- Network.AWS.Redshift.ModifyEventSubscription: instance Control.DeepSeq.NFData Network.AWS.Redshift.ModifyEventSubscription.ModifyEventSubscription
- Network.AWS.Redshift.ModifyEventSubscription: instance Control.DeepSeq.NFData Network.AWS.Redshift.ModifyEventSubscription.ModifyEventSubscriptionResponse
- Network.AWS.Redshift.ModifyEventSubscription: instance Data.Data.Data Network.AWS.Redshift.ModifyEventSubscription.ModifyEventSubscription
- Network.AWS.Redshift.ModifyEventSubscription: instance Data.Data.Data Network.AWS.Redshift.ModifyEventSubscription.ModifyEventSubscriptionResponse
- Network.AWS.Redshift.ModifyEventSubscription: instance Data.Hashable.Class.Hashable Network.AWS.Redshift.ModifyEventSubscription.ModifyEventSubscription
- Network.AWS.Redshift.ModifyEventSubscription: instance GHC.Classes.Eq Network.AWS.Redshift.ModifyEventSubscription.ModifyEventSubscription
- Network.AWS.Redshift.ModifyEventSubscription: instance GHC.Classes.Eq Network.AWS.Redshift.ModifyEventSubscription.ModifyEventSubscriptionResponse
- Network.AWS.Redshift.ModifyEventSubscription: instance GHC.Generics.Generic Network.AWS.Redshift.ModifyEventSubscription.ModifyEventSubscription
- Network.AWS.Redshift.ModifyEventSubscription: instance GHC.Generics.Generic Network.AWS.Redshift.ModifyEventSubscription.ModifyEventSubscriptionResponse
- Network.AWS.Redshift.ModifyEventSubscription: instance GHC.Read.Read Network.AWS.Redshift.ModifyEventSubscription.ModifyEventSubscription
- Network.AWS.Redshift.ModifyEventSubscription: instance GHC.Read.Read Network.AWS.Redshift.ModifyEventSubscription.ModifyEventSubscriptionResponse
- Network.AWS.Redshift.ModifyEventSubscription: instance GHC.Show.Show Network.AWS.Redshift.ModifyEventSubscription.ModifyEventSubscription
- Network.AWS.Redshift.ModifyEventSubscription: instance GHC.Show.Show Network.AWS.Redshift.ModifyEventSubscription.ModifyEventSubscriptionResponse
- Network.AWS.Redshift.ModifyEventSubscription: instance Network.AWS.Data.Headers.ToHeaders Network.AWS.Redshift.ModifyEventSubscription.ModifyEventSubscription
- Network.AWS.Redshift.ModifyEventSubscription: instance Network.AWS.Data.Path.ToPath Network.AWS.Redshift.ModifyEventSubscription.ModifyEventSubscription
- Network.AWS.Redshift.ModifyEventSubscription: instance Network.AWS.Data.Query.ToQuery Network.AWS.Redshift.ModifyEventSubscription.ModifyEventSubscription
- Network.AWS.Redshift.ModifyEventSubscription: instance Network.AWS.Types.AWSRequest Network.AWS.Redshift.ModifyEventSubscription.ModifyEventSubscription
- Network.AWS.Redshift.ModifyEventSubscription: mesEnabled :: Lens' ModifyEventSubscription (Maybe Bool)
- Network.AWS.Redshift.ModifyEventSubscription: mesEventCategories :: Lens' ModifyEventSubscription [Text]
- Network.AWS.Redshift.ModifyEventSubscription: mesSNSTopicARN :: Lens' ModifyEventSubscription (Maybe Text)
- Network.AWS.Redshift.ModifyEventSubscription: mesSeverity :: Lens' ModifyEventSubscription (Maybe Text)
- Network.AWS.Redshift.ModifyEventSubscription: mesSourceIds :: Lens' ModifyEventSubscription [Text]
- Network.AWS.Redshift.ModifyEventSubscription: mesSourceType :: Lens' ModifyEventSubscription (Maybe Text)
- Network.AWS.Redshift.ModifyEventSubscription: mesSubscriptionName :: Lens' ModifyEventSubscription Text
- Network.AWS.Redshift.ModifyEventSubscription: mesrsEventSubscription :: Lens' ModifyEventSubscriptionResponse (Maybe EventSubscription)
- Network.AWS.Redshift.ModifyEventSubscription: mesrsResponseStatus :: Lens' ModifyEventSubscriptionResponse Int
- Network.AWS.Redshift.ModifyEventSubscription: modifyEventSubscription :: Text -> ModifyEventSubscription
- Network.AWS.Redshift.ModifyEventSubscription: modifyEventSubscriptionResponse :: Int -> ModifyEventSubscriptionResponse
- Network.AWS.Redshift.ModifySnapshotCopyRetentionPeriod: data ModifySnapshotCopyRetentionPeriod
- Network.AWS.Redshift.ModifySnapshotCopyRetentionPeriod: data ModifySnapshotCopyRetentionPeriodResponse
- Network.AWS.Redshift.ModifySnapshotCopyRetentionPeriod: instance Control.DeepSeq.NFData Network.AWS.Redshift.ModifySnapshotCopyRetentionPeriod.ModifySnapshotCopyRetentionPeriod
- Network.AWS.Redshift.ModifySnapshotCopyRetentionPeriod: instance Control.DeepSeq.NFData Network.AWS.Redshift.ModifySnapshotCopyRetentionPeriod.ModifySnapshotCopyRetentionPeriodResponse
- Network.AWS.Redshift.ModifySnapshotCopyRetentionPeriod: instance Data.Data.Data Network.AWS.Redshift.ModifySnapshotCopyRetentionPeriod.ModifySnapshotCopyRetentionPeriod
- Network.AWS.Redshift.ModifySnapshotCopyRetentionPeriod: instance Data.Data.Data Network.AWS.Redshift.ModifySnapshotCopyRetentionPeriod.ModifySnapshotCopyRetentionPeriodResponse
- Network.AWS.Redshift.ModifySnapshotCopyRetentionPeriod: instance Data.Hashable.Class.Hashable Network.AWS.Redshift.ModifySnapshotCopyRetentionPeriod.ModifySnapshotCopyRetentionPeriod
- Network.AWS.Redshift.ModifySnapshotCopyRetentionPeriod: instance GHC.Classes.Eq Network.AWS.Redshift.ModifySnapshotCopyRetentionPeriod.ModifySnapshotCopyRetentionPeriod
- Network.AWS.Redshift.ModifySnapshotCopyRetentionPeriod: instance GHC.Classes.Eq Network.AWS.Redshift.ModifySnapshotCopyRetentionPeriod.ModifySnapshotCopyRetentionPeriodResponse
- Network.AWS.Redshift.ModifySnapshotCopyRetentionPeriod: instance GHC.Generics.Generic Network.AWS.Redshift.ModifySnapshotCopyRetentionPeriod.ModifySnapshotCopyRetentionPeriod
- Network.AWS.Redshift.ModifySnapshotCopyRetentionPeriod: instance GHC.Generics.Generic Network.AWS.Redshift.ModifySnapshotCopyRetentionPeriod.ModifySnapshotCopyRetentionPeriodResponse
- Network.AWS.Redshift.ModifySnapshotCopyRetentionPeriod: instance GHC.Read.Read Network.AWS.Redshift.ModifySnapshotCopyRetentionPeriod.ModifySnapshotCopyRetentionPeriod
- Network.AWS.Redshift.ModifySnapshotCopyRetentionPeriod: instance GHC.Read.Read Network.AWS.Redshift.ModifySnapshotCopyRetentionPeriod.ModifySnapshotCopyRetentionPeriodResponse
- Network.AWS.Redshift.ModifySnapshotCopyRetentionPeriod: instance GHC.Show.Show Network.AWS.Redshift.ModifySnapshotCopyRetentionPeriod.ModifySnapshotCopyRetentionPeriod
- Network.AWS.Redshift.ModifySnapshotCopyRetentionPeriod: instance GHC.Show.Show Network.AWS.Redshift.ModifySnapshotCopyRetentionPeriod.ModifySnapshotCopyRetentionPeriodResponse
- Network.AWS.Redshift.ModifySnapshotCopyRetentionPeriod: instance Network.AWS.Data.Headers.ToHeaders Network.AWS.Redshift.ModifySnapshotCopyRetentionPeriod.ModifySnapshotCopyRetentionPeriod
- Network.AWS.Redshift.ModifySnapshotCopyRetentionPeriod: instance Network.AWS.Data.Path.ToPath Network.AWS.Redshift.ModifySnapshotCopyRetentionPeriod.ModifySnapshotCopyRetentionPeriod
- Network.AWS.Redshift.ModifySnapshotCopyRetentionPeriod: instance Network.AWS.Data.Query.ToQuery Network.AWS.Redshift.ModifySnapshotCopyRetentionPeriod.ModifySnapshotCopyRetentionPeriod
- Network.AWS.Redshift.ModifySnapshotCopyRetentionPeriod: instance Network.AWS.Types.AWSRequest Network.AWS.Redshift.ModifySnapshotCopyRetentionPeriod.ModifySnapshotCopyRetentionPeriod
- Network.AWS.Redshift.ModifySnapshotCopyRetentionPeriod: modifySnapshotCopyRetentionPeriod :: Text -> Int -> ModifySnapshotCopyRetentionPeriod
- Network.AWS.Redshift.ModifySnapshotCopyRetentionPeriod: modifySnapshotCopyRetentionPeriodResponse :: Int -> ModifySnapshotCopyRetentionPeriodResponse
- Network.AWS.Redshift.ModifySnapshotCopyRetentionPeriod: mscrpClusterIdentifier :: Lens' ModifySnapshotCopyRetentionPeriod Text
- Network.AWS.Redshift.ModifySnapshotCopyRetentionPeriod: mscrpRetentionPeriod :: Lens' ModifySnapshotCopyRetentionPeriod Int
- Network.AWS.Redshift.ModifySnapshotCopyRetentionPeriod: mscrprsCluster :: Lens' ModifySnapshotCopyRetentionPeriodResponse (Maybe Cluster)
- Network.AWS.Redshift.ModifySnapshotCopyRetentionPeriod: mscrprsResponseStatus :: Lens' ModifySnapshotCopyRetentionPeriodResponse Int
- Network.AWS.Redshift.PurchaseReservedNodeOffering: data PurchaseReservedNodeOffering
- Network.AWS.Redshift.PurchaseReservedNodeOffering: data PurchaseReservedNodeOfferingResponse
- Network.AWS.Redshift.PurchaseReservedNodeOffering: instance Control.DeepSeq.NFData Network.AWS.Redshift.PurchaseReservedNodeOffering.PurchaseReservedNodeOffering
- Network.AWS.Redshift.PurchaseReservedNodeOffering: instance Control.DeepSeq.NFData Network.AWS.Redshift.PurchaseReservedNodeOffering.PurchaseReservedNodeOfferingResponse
- Network.AWS.Redshift.PurchaseReservedNodeOffering: instance Data.Data.Data Network.AWS.Redshift.PurchaseReservedNodeOffering.PurchaseReservedNodeOffering
- Network.AWS.Redshift.PurchaseReservedNodeOffering: instance Data.Data.Data Network.AWS.Redshift.PurchaseReservedNodeOffering.PurchaseReservedNodeOfferingResponse
- Network.AWS.Redshift.PurchaseReservedNodeOffering: instance Data.Hashable.Class.Hashable Network.AWS.Redshift.PurchaseReservedNodeOffering.PurchaseReservedNodeOffering
- Network.AWS.Redshift.PurchaseReservedNodeOffering: instance GHC.Classes.Eq Network.AWS.Redshift.PurchaseReservedNodeOffering.PurchaseReservedNodeOffering
- Network.AWS.Redshift.PurchaseReservedNodeOffering: instance GHC.Classes.Eq Network.AWS.Redshift.PurchaseReservedNodeOffering.PurchaseReservedNodeOfferingResponse
- Network.AWS.Redshift.PurchaseReservedNodeOffering: instance GHC.Generics.Generic Network.AWS.Redshift.PurchaseReservedNodeOffering.PurchaseReservedNodeOffering
- Network.AWS.Redshift.PurchaseReservedNodeOffering: instance GHC.Generics.Generic Network.AWS.Redshift.PurchaseReservedNodeOffering.PurchaseReservedNodeOfferingResponse
- Network.AWS.Redshift.PurchaseReservedNodeOffering: instance GHC.Read.Read Network.AWS.Redshift.PurchaseReservedNodeOffering.PurchaseReservedNodeOffering
- Network.AWS.Redshift.PurchaseReservedNodeOffering: instance GHC.Read.Read Network.AWS.Redshift.PurchaseReservedNodeOffering.PurchaseReservedNodeOfferingResponse
- Network.AWS.Redshift.PurchaseReservedNodeOffering: instance GHC.Show.Show Network.AWS.Redshift.PurchaseReservedNodeOffering.PurchaseReservedNodeOffering
- Network.AWS.Redshift.PurchaseReservedNodeOffering: instance GHC.Show.Show Network.AWS.Redshift.PurchaseReservedNodeOffering.PurchaseReservedNodeOfferingResponse
- Network.AWS.Redshift.PurchaseReservedNodeOffering: instance Network.AWS.Data.Headers.ToHeaders Network.AWS.Redshift.PurchaseReservedNodeOffering.PurchaseReservedNodeOffering
- Network.AWS.Redshift.PurchaseReservedNodeOffering: instance Network.AWS.Data.Path.ToPath Network.AWS.Redshift.PurchaseReservedNodeOffering.PurchaseReservedNodeOffering
- Network.AWS.Redshift.PurchaseReservedNodeOffering: instance Network.AWS.Data.Query.ToQuery Network.AWS.Redshift.PurchaseReservedNodeOffering.PurchaseReservedNodeOffering
- Network.AWS.Redshift.PurchaseReservedNodeOffering: instance Network.AWS.Types.AWSRequest Network.AWS.Redshift.PurchaseReservedNodeOffering.PurchaseReservedNodeOffering
- Network.AWS.Redshift.PurchaseReservedNodeOffering: prnoNodeCount :: Lens' PurchaseReservedNodeOffering (Maybe Int)
- Network.AWS.Redshift.PurchaseReservedNodeOffering: prnoReservedNodeOfferingId :: Lens' PurchaseReservedNodeOffering Text
- Network.AWS.Redshift.PurchaseReservedNodeOffering: prnorsReservedNode :: Lens' PurchaseReservedNodeOfferingResponse (Maybe ReservedNode)
- Network.AWS.Redshift.PurchaseReservedNodeOffering: prnorsResponseStatus :: Lens' PurchaseReservedNodeOfferingResponse Int
- Network.AWS.Redshift.PurchaseReservedNodeOffering: purchaseReservedNodeOffering :: Text -> PurchaseReservedNodeOffering
- Network.AWS.Redshift.PurchaseReservedNodeOffering: purchaseReservedNodeOfferingResponse :: Int -> PurchaseReservedNodeOfferingResponse
- Network.AWS.Redshift.RebootCluster: data RebootCluster
- Network.AWS.Redshift.RebootCluster: data RebootClusterResponse
- Network.AWS.Redshift.RebootCluster: instance Control.DeepSeq.NFData Network.AWS.Redshift.RebootCluster.RebootCluster
- Network.AWS.Redshift.RebootCluster: instance Control.DeepSeq.NFData Network.AWS.Redshift.RebootCluster.RebootClusterResponse
- Network.AWS.Redshift.RebootCluster: instance Data.Data.Data Network.AWS.Redshift.RebootCluster.RebootCluster
- Network.AWS.Redshift.RebootCluster: instance Data.Data.Data Network.AWS.Redshift.RebootCluster.RebootClusterResponse
- Network.AWS.Redshift.RebootCluster: instance Data.Hashable.Class.Hashable Network.AWS.Redshift.RebootCluster.RebootCluster
- Network.AWS.Redshift.RebootCluster: instance GHC.Classes.Eq Network.AWS.Redshift.RebootCluster.RebootCluster
- Network.AWS.Redshift.RebootCluster: instance GHC.Classes.Eq Network.AWS.Redshift.RebootCluster.RebootClusterResponse
- Network.AWS.Redshift.RebootCluster: instance GHC.Generics.Generic Network.AWS.Redshift.RebootCluster.RebootCluster
- Network.AWS.Redshift.RebootCluster: instance GHC.Generics.Generic Network.AWS.Redshift.RebootCluster.RebootClusterResponse
- Network.AWS.Redshift.RebootCluster: instance GHC.Read.Read Network.AWS.Redshift.RebootCluster.RebootCluster
- Network.AWS.Redshift.RebootCluster: instance GHC.Read.Read Network.AWS.Redshift.RebootCluster.RebootClusterResponse
- Network.AWS.Redshift.RebootCluster: instance GHC.Show.Show Network.AWS.Redshift.RebootCluster.RebootCluster
- Network.AWS.Redshift.RebootCluster: instance GHC.Show.Show Network.AWS.Redshift.RebootCluster.RebootClusterResponse
- Network.AWS.Redshift.RebootCluster: instance Network.AWS.Data.Headers.ToHeaders Network.AWS.Redshift.RebootCluster.RebootCluster
- Network.AWS.Redshift.RebootCluster: instance Network.AWS.Data.Path.ToPath Network.AWS.Redshift.RebootCluster.RebootCluster
- Network.AWS.Redshift.RebootCluster: instance Network.AWS.Data.Query.ToQuery Network.AWS.Redshift.RebootCluster.RebootCluster
- Network.AWS.Redshift.RebootCluster: instance Network.AWS.Types.AWSRequest Network.AWS.Redshift.RebootCluster.RebootCluster
- Network.AWS.Redshift.RebootCluster: rcClusterIdentifier :: Lens' RebootCluster Text
- Network.AWS.Redshift.RebootCluster: rcrsCluster :: Lens' RebootClusterResponse (Maybe Cluster)
- Network.AWS.Redshift.RebootCluster: rcrsResponseStatus :: Lens' RebootClusterResponse Int
- Network.AWS.Redshift.RebootCluster: rebootCluster :: Text -> RebootCluster
- Network.AWS.Redshift.RebootCluster: rebootClusterResponse :: Int -> RebootClusterResponse
- Network.AWS.Redshift.ResetClusterParameterGroup: clusterParameterGroupNameMessage :: ClusterParameterGroupNameMessage
- Network.AWS.Redshift.ResetClusterParameterGroup: cpgnmParameterGroupName :: Lens' ClusterParameterGroupNameMessage (Maybe Text)
- Network.AWS.Redshift.ResetClusterParameterGroup: cpgnmParameterGroupStatus :: Lens' ClusterParameterGroupNameMessage (Maybe Text)
- Network.AWS.Redshift.ResetClusterParameterGroup: data ClusterParameterGroupNameMessage
- Network.AWS.Redshift.ResetClusterParameterGroup: data ResetClusterParameterGroup
- Network.AWS.Redshift.ResetClusterParameterGroup: instance Control.DeepSeq.NFData Network.AWS.Redshift.ResetClusterParameterGroup.ResetClusterParameterGroup
- Network.AWS.Redshift.ResetClusterParameterGroup: instance Data.Data.Data Network.AWS.Redshift.ResetClusterParameterGroup.ResetClusterParameterGroup
- Network.AWS.Redshift.ResetClusterParameterGroup: instance Data.Hashable.Class.Hashable Network.AWS.Redshift.ResetClusterParameterGroup.ResetClusterParameterGroup
- Network.AWS.Redshift.ResetClusterParameterGroup: instance GHC.Classes.Eq Network.AWS.Redshift.ResetClusterParameterGroup.ResetClusterParameterGroup
- Network.AWS.Redshift.ResetClusterParameterGroup: instance GHC.Generics.Generic Network.AWS.Redshift.ResetClusterParameterGroup.ResetClusterParameterGroup
- Network.AWS.Redshift.ResetClusterParameterGroup: instance GHC.Read.Read Network.AWS.Redshift.ResetClusterParameterGroup.ResetClusterParameterGroup
- Network.AWS.Redshift.ResetClusterParameterGroup: instance GHC.Show.Show Network.AWS.Redshift.ResetClusterParameterGroup.ResetClusterParameterGroup
- Network.AWS.Redshift.ResetClusterParameterGroup: instance Network.AWS.Data.Headers.ToHeaders Network.AWS.Redshift.ResetClusterParameterGroup.ResetClusterParameterGroup
- Network.AWS.Redshift.ResetClusterParameterGroup: instance Network.AWS.Data.Path.ToPath Network.AWS.Redshift.ResetClusterParameterGroup.ResetClusterParameterGroup
- Network.AWS.Redshift.ResetClusterParameterGroup: instance Network.AWS.Data.Query.ToQuery Network.AWS.Redshift.ResetClusterParameterGroup.ResetClusterParameterGroup
- Network.AWS.Redshift.ResetClusterParameterGroup: instance Network.AWS.Types.AWSRequest Network.AWS.Redshift.ResetClusterParameterGroup.ResetClusterParameterGroup
- Network.AWS.Redshift.ResetClusterParameterGroup: rcpgParameterGroupName :: Lens' ResetClusterParameterGroup Text
- Network.AWS.Redshift.ResetClusterParameterGroup: rcpgParameters :: Lens' ResetClusterParameterGroup [Parameter]
- Network.AWS.Redshift.ResetClusterParameterGroup: rcpgResetAllParameters :: Lens' ResetClusterParameterGroup (Maybe Bool)
- Network.AWS.Redshift.ResetClusterParameterGroup: resetClusterParameterGroup :: Text -> ResetClusterParameterGroup
- Network.AWS.Redshift.RestoreFromClusterSnapshot: data RestoreFromClusterSnapshot
- Network.AWS.Redshift.RestoreFromClusterSnapshot: data RestoreFromClusterSnapshotResponse
- Network.AWS.Redshift.RestoreFromClusterSnapshot: instance Control.DeepSeq.NFData Network.AWS.Redshift.RestoreFromClusterSnapshot.RestoreFromClusterSnapshot
- Network.AWS.Redshift.RestoreFromClusterSnapshot: instance Control.DeepSeq.NFData Network.AWS.Redshift.RestoreFromClusterSnapshot.RestoreFromClusterSnapshotResponse
- Network.AWS.Redshift.RestoreFromClusterSnapshot: instance Data.Data.Data Network.AWS.Redshift.RestoreFromClusterSnapshot.RestoreFromClusterSnapshot
- Network.AWS.Redshift.RestoreFromClusterSnapshot: instance Data.Data.Data Network.AWS.Redshift.RestoreFromClusterSnapshot.RestoreFromClusterSnapshotResponse
- Network.AWS.Redshift.RestoreFromClusterSnapshot: instance Data.Hashable.Class.Hashable Network.AWS.Redshift.RestoreFromClusterSnapshot.RestoreFromClusterSnapshot
- Network.AWS.Redshift.RestoreFromClusterSnapshot: instance GHC.Classes.Eq Network.AWS.Redshift.RestoreFromClusterSnapshot.RestoreFromClusterSnapshot
- Network.AWS.Redshift.RestoreFromClusterSnapshot: instance GHC.Classes.Eq Network.AWS.Redshift.RestoreFromClusterSnapshot.RestoreFromClusterSnapshotResponse
- Network.AWS.Redshift.RestoreFromClusterSnapshot: instance GHC.Generics.Generic Network.AWS.Redshift.RestoreFromClusterSnapshot.RestoreFromClusterSnapshot
- Network.AWS.Redshift.RestoreFromClusterSnapshot: instance GHC.Generics.Generic Network.AWS.Redshift.RestoreFromClusterSnapshot.RestoreFromClusterSnapshotResponse
- Network.AWS.Redshift.RestoreFromClusterSnapshot: instance GHC.Read.Read Network.AWS.Redshift.RestoreFromClusterSnapshot.RestoreFromClusterSnapshot
- Network.AWS.Redshift.RestoreFromClusterSnapshot: instance GHC.Read.Read Network.AWS.Redshift.RestoreFromClusterSnapshot.RestoreFromClusterSnapshotResponse
- Network.AWS.Redshift.RestoreFromClusterSnapshot: instance GHC.Show.Show Network.AWS.Redshift.RestoreFromClusterSnapshot.RestoreFromClusterSnapshot
- Network.AWS.Redshift.RestoreFromClusterSnapshot: instance GHC.Show.Show Network.AWS.Redshift.RestoreFromClusterSnapshot.RestoreFromClusterSnapshotResponse
- Network.AWS.Redshift.RestoreFromClusterSnapshot: instance Network.AWS.Data.Headers.ToHeaders Network.AWS.Redshift.RestoreFromClusterSnapshot.RestoreFromClusterSnapshot
- Network.AWS.Redshift.RestoreFromClusterSnapshot: instance Network.AWS.Data.Path.ToPath Network.AWS.Redshift.RestoreFromClusterSnapshot.RestoreFromClusterSnapshot
- Network.AWS.Redshift.RestoreFromClusterSnapshot: instance Network.AWS.Data.Query.ToQuery Network.AWS.Redshift.RestoreFromClusterSnapshot.RestoreFromClusterSnapshot
- Network.AWS.Redshift.RestoreFromClusterSnapshot: instance Network.AWS.Types.AWSRequest Network.AWS.Redshift.RestoreFromClusterSnapshot.RestoreFromClusterSnapshot
- Network.AWS.Redshift.RestoreFromClusterSnapshot: restoreFromClusterSnapshot :: Text -> Text -> RestoreFromClusterSnapshot
- Network.AWS.Redshift.RestoreFromClusterSnapshot: restoreFromClusterSnapshotResponse :: Int -> RestoreFromClusterSnapshotResponse
- Network.AWS.Redshift.RestoreFromClusterSnapshot: rfcsAdditionalInfo :: Lens' RestoreFromClusterSnapshot (Maybe Text)
- Network.AWS.Redshift.RestoreFromClusterSnapshot: rfcsAllowVersionUpgrade :: Lens' RestoreFromClusterSnapshot (Maybe Bool)
- Network.AWS.Redshift.RestoreFromClusterSnapshot: rfcsAutomatedSnapshotRetentionPeriod :: Lens' RestoreFromClusterSnapshot (Maybe Int)
- Network.AWS.Redshift.RestoreFromClusterSnapshot: rfcsAvailabilityZone :: Lens' RestoreFromClusterSnapshot (Maybe Text)
- Network.AWS.Redshift.RestoreFromClusterSnapshot: rfcsClusterIdentifier :: Lens' RestoreFromClusterSnapshot Text
- Network.AWS.Redshift.RestoreFromClusterSnapshot: rfcsClusterParameterGroupName :: Lens' RestoreFromClusterSnapshot (Maybe Text)
- Network.AWS.Redshift.RestoreFromClusterSnapshot: rfcsClusterSecurityGroups :: Lens' RestoreFromClusterSnapshot [Text]
- Network.AWS.Redshift.RestoreFromClusterSnapshot: rfcsClusterSubnetGroupName :: Lens' RestoreFromClusterSnapshot (Maybe Text)
- Network.AWS.Redshift.RestoreFromClusterSnapshot: rfcsElasticIP :: Lens' RestoreFromClusterSnapshot (Maybe Text)
- Network.AWS.Redshift.RestoreFromClusterSnapshot: rfcsEnhancedVPCRouting :: Lens' RestoreFromClusterSnapshot (Maybe Bool)
- Network.AWS.Redshift.RestoreFromClusterSnapshot: rfcsHSMClientCertificateIdentifier :: Lens' RestoreFromClusterSnapshot (Maybe Text)
- Network.AWS.Redshift.RestoreFromClusterSnapshot: rfcsHSMConfigurationIdentifier :: Lens' RestoreFromClusterSnapshot (Maybe Text)
- Network.AWS.Redshift.RestoreFromClusterSnapshot: rfcsIAMRoles :: Lens' RestoreFromClusterSnapshot [Text]
- Network.AWS.Redshift.RestoreFromClusterSnapshot: rfcsKMSKeyId :: Lens' RestoreFromClusterSnapshot (Maybe Text)
- Network.AWS.Redshift.RestoreFromClusterSnapshot: rfcsNodeType :: Lens' RestoreFromClusterSnapshot (Maybe Text)
- Network.AWS.Redshift.RestoreFromClusterSnapshot: rfcsOwnerAccount :: Lens' RestoreFromClusterSnapshot (Maybe Text)
- Network.AWS.Redshift.RestoreFromClusterSnapshot: rfcsPort :: Lens' RestoreFromClusterSnapshot (Maybe Int)
- Network.AWS.Redshift.RestoreFromClusterSnapshot: rfcsPreferredMaintenanceWindow :: Lens' RestoreFromClusterSnapshot (Maybe Text)
- Network.AWS.Redshift.RestoreFromClusterSnapshot: rfcsPubliclyAccessible :: Lens' RestoreFromClusterSnapshot (Maybe Bool)
- Network.AWS.Redshift.RestoreFromClusterSnapshot: rfcsSnapshotClusterIdentifier :: Lens' RestoreFromClusterSnapshot (Maybe Text)
- Network.AWS.Redshift.RestoreFromClusterSnapshot: rfcsSnapshotIdentifier :: Lens' RestoreFromClusterSnapshot Text
- Network.AWS.Redshift.RestoreFromClusterSnapshot: rfcsVPCSecurityGroupIds :: Lens' RestoreFromClusterSnapshot [Text]
- Network.AWS.Redshift.RestoreFromClusterSnapshot: rfcsrsCluster :: Lens' RestoreFromClusterSnapshotResponse (Maybe Cluster)
- Network.AWS.Redshift.RestoreFromClusterSnapshot: rfcsrsResponseStatus :: Lens' RestoreFromClusterSnapshotResponse Int
- Network.AWS.Redshift.RestoreTableFromClusterSnapshot: data RestoreTableFromClusterSnapshot
- Network.AWS.Redshift.RestoreTableFromClusterSnapshot: data RestoreTableFromClusterSnapshotResponse
- Network.AWS.Redshift.RestoreTableFromClusterSnapshot: instance Control.DeepSeq.NFData Network.AWS.Redshift.RestoreTableFromClusterSnapshot.RestoreTableFromClusterSnapshot
- Network.AWS.Redshift.RestoreTableFromClusterSnapshot: instance Control.DeepSeq.NFData Network.AWS.Redshift.RestoreTableFromClusterSnapshot.RestoreTableFromClusterSnapshotResponse
- Network.AWS.Redshift.RestoreTableFromClusterSnapshot: instance Data.Data.Data Network.AWS.Redshift.RestoreTableFromClusterSnapshot.RestoreTableFromClusterSnapshot
- Network.AWS.Redshift.RestoreTableFromClusterSnapshot: instance Data.Data.Data Network.AWS.Redshift.RestoreTableFromClusterSnapshot.RestoreTableFromClusterSnapshotResponse
- Network.AWS.Redshift.RestoreTableFromClusterSnapshot: instance Data.Hashable.Class.Hashable Network.AWS.Redshift.RestoreTableFromClusterSnapshot.RestoreTableFromClusterSnapshot
- Network.AWS.Redshift.RestoreTableFromClusterSnapshot: instance GHC.Classes.Eq Network.AWS.Redshift.RestoreTableFromClusterSnapshot.RestoreTableFromClusterSnapshot
- Network.AWS.Redshift.RestoreTableFromClusterSnapshot: instance GHC.Classes.Eq Network.AWS.Redshift.RestoreTableFromClusterSnapshot.RestoreTableFromClusterSnapshotResponse
- Network.AWS.Redshift.RestoreTableFromClusterSnapshot: instance GHC.Generics.Generic Network.AWS.Redshift.RestoreTableFromClusterSnapshot.RestoreTableFromClusterSnapshot
- Network.AWS.Redshift.RestoreTableFromClusterSnapshot: instance GHC.Generics.Generic Network.AWS.Redshift.RestoreTableFromClusterSnapshot.RestoreTableFromClusterSnapshotResponse
- Network.AWS.Redshift.RestoreTableFromClusterSnapshot: instance GHC.Read.Read Network.AWS.Redshift.RestoreTableFromClusterSnapshot.RestoreTableFromClusterSnapshot
- Network.AWS.Redshift.RestoreTableFromClusterSnapshot: instance GHC.Read.Read Network.AWS.Redshift.RestoreTableFromClusterSnapshot.RestoreTableFromClusterSnapshotResponse
- Network.AWS.Redshift.RestoreTableFromClusterSnapshot: instance GHC.Show.Show Network.AWS.Redshift.RestoreTableFromClusterSnapshot.RestoreTableFromClusterSnapshot
- Network.AWS.Redshift.RestoreTableFromClusterSnapshot: instance GHC.Show.Show Network.AWS.Redshift.RestoreTableFromClusterSnapshot.RestoreTableFromClusterSnapshotResponse
- Network.AWS.Redshift.RestoreTableFromClusterSnapshot: instance Network.AWS.Data.Headers.ToHeaders Network.AWS.Redshift.RestoreTableFromClusterSnapshot.RestoreTableFromClusterSnapshot
- Network.AWS.Redshift.RestoreTableFromClusterSnapshot: instance Network.AWS.Data.Path.ToPath Network.AWS.Redshift.RestoreTableFromClusterSnapshot.RestoreTableFromClusterSnapshot
- Network.AWS.Redshift.RestoreTableFromClusterSnapshot: instance Network.AWS.Data.Query.ToQuery Network.AWS.Redshift.RestoreTableFromClusterSnapshot.RestoreTableFromClusterSnapshot
- Network.AWS.Redshift.RestoreTableFromClusterSnapshot: instance Network.AWS.Types.AWSRequest Network.AWS.Redshift.RestoreTableFromClusterSnapshot.RestoreTableFromClusterSnapshot
- Network.AWS.Redshift.RestoreTableFromClusterSnapshot: restoreTableFromClusterSnapshot :: Text -> Text -> Text -> Text -> Text -> RestoreTableFromClusterSnapshot
- Network.AWS.Redshift.RestoreTableFromClusterSnapshot: restoreTableFromClusterSnapshotResponse :: Int -> RestoreTableFromClusterSnapshotResponse
- Network.AWS.Redshift.RestoreTableFromClusterSnapshot: rtfcsClusterIdentifier :: Lens' RestoreTableFromClusterSnapshot Text
- Network.AWS.Redshift.RestoreTableFromClusterSnapshot: rtfcsNewTableName :: Lens' RestoreTableFromClusterSnapshot Text
- Network.AWS.Redshift.RestoreTableFromClusterSnapshot: rtfcsSnapshotIdentifier :: Lens' RestoreTableFromClusterSnapshot Text
- Network.AWS.Redshift.RestoreTableFromClusterSnapshot: rtfcsSourceDatabaseName :: Lens' RestoreTableFromClusterSnapshot Text
- Network.AWS.Redshift.RestoreTableFromClusterSnapshot: rtfcsSourceSchemaName :: Lens' RestoreTableFromClusterSnapshot (Maybe Text)
- Network.AWS.Redshift.RestoreTableFromClusterSnapshot: rtfcsSourceTableName :: Lens' RestoreTableFromClusterSnapshot Text
- Network.AWS.Redshift.RestoreTableFromClusterSnapshot: rtfcsTargetDatabaseName :: Lens' RestoreTableFromClusterSnapshot (Maybe Text)
- Network.AWS.Redshift.RestoreTableFromClusterSnapshot: rtfcsTargetSchemaName :: Lens' RestoreTableFromClusterSnapshot (Maybe Text)
- Network.AWS.Redshift.RestoreTableFromClusterSnapshot: rtfcsrsResponseStatus :: Lens' RestoreTableFromClusterSnapshotResponse Int
- Network.AWS.Redshift.RestoreTableFromClusterSnapshot: rtfcsrsTableRestoreStatus :: Lens' RestoreTableFromClusterSnapshotResponse (Maybe TableRestoreStatus)
- Network.AWS.Redshift.RevokeClusterSecurityGroupIngress: data RevokeClusterSecurityGroupIngress
- Network.AWS.Redshift.RevokeClusterSecurityGroupIngress: data RevokeClusterSecurityGroupIngressResponse
- Network.AWS.Redshift.RevokeClusterSecurityGroupIngress: instance Control.DeepSeq.NFData Network.AWS.Redshift.RevokeClusterSecurityGroupIngress.RevokeClusterSecurityGroupIngress
- Network.AWS.Redshift.RevokeClusterSecurityGroupIngress: instance Control.DeepSeq.NFData Network.AWS.Redshift.RevokeClusterSecurityGroupIngress.RevokeClusterSecurityGroupIngressResponse
- Network.AWS.Redshift.RevokeClusterSecurityGroupIngress: instance Data.Data.Data Network.AWS.Redshift.RevokeClusterSecurityGroupIngress.RevokeClusterSecurityGroupIngress
- Network.AWS.Redshift.RevokeClusterSecurityGroupIngress: instance Data.Data.Data Network.AWS.Redshift.RevokeClusterSecurityGroupIngress.RevokeClusterSecurityGroupIngressResponse
- Network.AWS.Redshift.RevokeClusterSecurityGroupIngress: instance Data.Hashable.Class.Hashable Network.AWS.Redshift.RevokeClusterSecurityGroupIngress.RevokeClusterSecurityGroupIngress
- Network.AWS.Redshift.RevokeClusterSecurityGroupIngress: instance GHC.Classes.Eq Network.AWS.Redshift.RevokeClusterSecurityGroupIngress.RevokeClusterSecurityGroupIngress
- Network.AWS.Redshift.RevokeClusterSecurityGroupIngress: instance GHC.Classes.Eq Network.AWS.Redshift.RevokeClusterSecurityGroupIngress.RevokeClusterSecurityGroupIngressResponse
- Network.AWS.Redshift.RevokeClusterSecurityGroupIngress: instance GHC.Generics.Generic Network.AWS.Redshift.RevokeClusterSecurityGroupIngress.RevokeClusterSecurityGroupIngress
- Network.AWS.Redshift.RevokeClusterSecurityGroupIngress: instance GHC.Generics.Generic Network.AWS.Redshift.RevokeClusterSecurityGroupIngress.RevokeClusterSecurityGroupIngressResponse
- Network.AWS.Redshift.RevokeClusterSecurityGroupIngress: instance GHC.Read.Read Network.AWS.Redshift.RevokeClusterSecurityGroupIngress.RevokeClusterSecurityGroupIngress
- Network.AWS.Redshift.RevokeClusterSecurityGroupIngress: instance GHC.Read.Read Network.AWS.Redshift.RevokeClusterSecurityGroupIngress.RevokeClusterSecurityGroupIngressResponse
- Network.AWS.Redshift.RevokeClusterSecurityGroupIngress: instance GHC.Show.Show Network.AWS.Redshift.RevokeClusterSecurityGroupIngress.RevokeClusterSecurityGroupIngress
- Network.AWS.Redshift.RevokeClusterSecurityGroupIngress: instance GHC.Show.Show Network.AWS.Redshift.RevokeClusterSecurityGroupIngress.RevokeClusterSecurityGroupIngressResponse
- Network.AWS.Redshift.RevokeClusterSecurityGroupIngress: instance Network.AWS.Data.Headers.ToHeaders Network.AWS.Redshift.RevokeClusterSecurityGroupIngress.RevokeClusterSecurityGroupIngress
- Network.AWS.Redshift.RevokeClusterSecurityGroupIngress: instance Network.AWS.Data.Path.ToPath Network.AWS.Redshift.RevokeClusterSecurityGroupIngress.RevokeClusterSecurityGroupIngress
- Network.AWS.Redshift.RevokeClusterSecurityGroupIngress: instance Network.AWS.Data.Query.ToQuery Network.AWS.Redshift.RevokeClusterSecurityGroupIngress.RevokeClusterSecurityGroupIngress
- Network.AWS.Redshift.RevokeClusterSecurityGroupIngress: instance Network.AWS.Types.AWSRequest Network.AWS.Redshift.RevokeClusterSecurityGroupIngress.RevokeClusterSecurityGroupIngress
- Network.AWS.Redshift.RevokeClusterSecurityGroupIngress: rcsgiCIdRIP :: Lens' RevokeClusterSecurityGroupIngress (Maybe Text)
- Network.AWS.Redshift.RevokeClusterSecurityGroupIngress: rcsgiClusterSecurityGroupName :: Lens' RevokeClusterSecurityGroupIngress Text
- Network.AWS.Redshift.RevokeClusterSecurityGroupIngress: rcsgiEC2SecurityGroupName :: Lens' RevokeClusterSecurityGroupIngress (Maybe Text)
- Network.AWS.Redshift.RevokeClusterSecurityGroupIngress: rcsgiEC2SecurityGroupOwnerId :: Lens' RevokeClusterSecurityGroupIngress (Maybe Text)
- Network.AWS.Redshift.RevokeClusterSecurityGroupIngress: rcsgirsClusterSecurityGroup :: Lens' RevokeClusterSecurityGroupIngressResponse (Maybe ClusterSecurityGroup)
- Network.AWS.Redshift.RevokeClusterSecurityGroupIngress: rcsgirsResponseStatus :: Lens' RevokeClusterSecurityGroupIngressResponse Int
- Network.AWS.Redshift.RevokeClusterSecurityGroupIngress: revokeClusterSecurityGroupIngress :: Text -> RevokeClusterSecurityGroupIngress
- Network.AWS.Redshift.RevokeClusterSecurityGroupIngress: revokeClusterSecurityGroupIngressResponse :: Int -> RevokeClusterSecurityGroupIngressResponse
- Network.AWS.Redshift.RevokeSnapshotAccess: data RevokeSnapshotAccess
- Network.AWS.Redshift.RevokeSnapshotAccess: data RevokeSnapshotAccessResponse
- Network.AWS.Redshift.RevokeSnapshotAccess: instance Control.DeepSeq.NFData Network.AWS.Redshift.RevokeSnapshotAccess.RevokeSnapshotAccess
- Network.AWS.Redshift.RevokeSnapshotAccess: instance Control.DeepSeq.NFData Network.AWS.Redshift.RevokeSnapshotAccess.RevokeSnapshotAccessResponse
- Network.AWS.Redshift.RevokeSnapshotAccess: instance Data.Data.Data Network.AWS.Redshift.RevokeSnapshotAccess.RevokeSnapshotAccess
- Network.AWS.Redshift.RevokeSnapshotAccess: instance Data.Data.Data Network.AWS.Redshift.RevokeSnapshotAccess.RevokeSnapshotAccessResponse
- Network.AWS.Redshift.RevokeSnapshotAccess: instance Data.Hashable.Class.Hashable Network.AWS.Redshift.RevokeSnapshotAccess.RevokeSnapshotAccess
- Network.AWS.Redshift.RevokeSnapshotAccess: instance GHC.Classes.Eq Network.AWS.Redshift.RevokeSnapshotAccess.RevokeSnapshotAccess
- Network.AWS.Redshift.RevokeSnapshotAccess: instance GHC.Classes.Eq Network.AWS.Redshift.RevokeSnapshotAccess.RevokeSnapshotAccessResponse
- Network.AWS.Redshift.RevokeSnapshotAccess: instance GHC.Generics.Generic Network.AWS.Redshift.RevokeSnapshotAccess.RevokeSnapshotAccess
- Network.AWS.Redshift.RevokeSnapshotAccess: instance GHC.Generics.Generic Network.AWS.Redshift.RevokeSnapshotAccess.RevokeSnapshotAccessResponse
- Network.AWS.Redshift.RevokeSnapshotAccess: instance GHC.Read.Read Network.AWS.Redshift.RevokeSnapshotAccess.RevokeSnapshotAccess
- Network.AWS.Redshift.RevokeSnapshotAccess: instance GHC.Read.Read Network.AWS.Redshift.RevokeSnapshotAccess.RevokeSnapshotAccessResponse
- Network.AWS.Redshift.RevokeSnapshotAccess: instance GHC.Show.Show Network.AWS.Redshift.RevokeSnapshotAccess.RevokeSnapshotAccess
- Network.AWS.Redshift.RevokeSnapshotAccess: instance GHC.Show.Show Network.AWS.Redshift.RevokeSnapshotAccess.RevokeSnapshotAccessResponse
- Network.AWS.Redshift.RevokeSnapshotAccess: instance Network.AWS.Data.Headers.ToHeaders Network.AWS.Redshift.RevokeSnapshotAccess.RevokeSnapshotAccess
- Network.AWS.Redshift.RevokeSnapshotAccess: instance Network.AWS.Data.Path.ToPath Network.AWS.Redshift.RevokeSnapshotAccess.RevokeSnapshotAccess
- Network.AWS.Redshift.RevokeSnapshotAccess: instance Network.AWS.Data.Query.ToQuery Network.AWS.Redshift.RevokeSnapshotAccess.RevokeSnapshotAccess
- Network.AWS.Redshift.RevokeSnapshotAccess: instance Network.AWS.Types.AWSRequest Network.AWS.Redshift.RevokeSnapshotAccess.RevokeSnapshotAccess
- Network.AWS.Redshift.RevokeSnapshotAccess: revokeSnapshotAccess :: Text -> Text -> RevokeSnapshotAccess
- Network.AWS.Redshift.RevokeSnapshotAccess: revokeSnapshotAccessResponse :: Int -> RevokeSnapshotAccessResponse
- Network.AWS.Redshift.RevokeSnapshotAccess: rsaAccountWithRestoreAccess :: Lens' RevokeSnapshotAccess Text
- Network.AWS.Redshift.RevokeSnapshotAccess: rsaSnapshotClusterIdentifier :: Lens' RevokeSnapshotAccess (Maybe Text)
- Network.AWS.Redshift.RevokeSnapshotAccess: rsaSnapshotIdentifier :: Lens' RevokeSnapshotAccess Text
- Network.AWS.Redshift.RevokeSnapshotAccess: rsarsResponseStatus :: Lens' RevokeSnapshotAccessResponse Int
- Network.AWS.Redshift.RevokeSnapshotAccess: rsarsSnapshot :: Lens' RevokeSnapshotAccessResponse (Maybe Snapshot)
- Network.AWS.Redshift.RotateEncryptionKey: data RotateEncryptionKey
- Network.AWS.Redshift.RotateEncryptionKey: data RotateEncryptionKeyResponse
- Network.AWS.Redshift.RotateEncryptionKey: instance Control.DeepSeq.NFData Network.AWS.Redshift.RotateEncryptionKey.RotateEncryptionKey
- Network.AWS.Redshift.RotateEncryptionKey: instance Control.DeepSeq.NFData Network.AWS.Redshift.RotateEncryptionKey.RotateEncryptionKeyResponse
- Network.AWS.Redshift.RotateEncryptionKey: instance Data.Data.Data Network.AWS.Redshift.RotateEncryptionKey.RotateEncryptionKey
- Network.AWS.Redshift.RotateEncryptionKey: instance Data.Data.Data Network.AWS.Redshift.RotateEncryptionKey.RotateEncryptionKeyResponse
- Network.AWS.Redshift.RotateEncryptionKey: instance Data.Hashable.Class.Hashable Network.AWS.Redshift.RotateEncryptionKey.RotateEncryptionKey
- Network.AWS.Redshift.RotateEncryptionKey: instance GHC.Classes.Eq Network.AWS.Redshift.RotateEncryptionKey.RotateEncryptionKey
- Network.AWS.Redshift.RotateEncryptionKey: instance GHC.Classes.Eq Network.AWS.Redshift.RotateEncryptionKey.RotateEncryptionKeyResponse
- Network.AWS.Redshift.RotateEncryptionKey: instance GHC.Generics.Generic Network.AWS.Redshift.RotateEncryptionKey.RotateEncryptionKey
- Network.AWS.Redshift.RotateEncryptionKey: instance GHC.Generics.Generic Network.AWS.Redshift.RotateEncryptionKey.RotateEncryptionKeyResponse
- Network.AWS.Redshift.RotateEncryptionKey: instance GHC.Read.Read Network.AWS.Redshift.RotateEncryptionKey.RotateEncryptionKey
- Network.AWS.Redshift.RotateEncryptionKey: instance GHC.Read.Read Network.AWS.Redshift.RotateEncryptionKey.RotateEncryptionKeyResponse
- Network.AWS.Redshift.RotateEncryptionKey: instance GHC.Show.Show Network.AWS.Redshift.RotateEncryptionKey.RotateEncryptionKey
- Network.AWS.Redshift.RotateEncryptionKey: instance GHC.Show.Show Network.AWS.Redshift.RotateEncryptionKey.RotateEncryptionKeyResponse
- Network.AWS.Redshift.RotateEncryptionKey: instance Network.AWS.Data.Headers.ToHeaders Network.AWS.Redshift.RotateEncryptionKey.RotateEncryptionKey
- Network.AWS.Redshift.RotateEncryptionKey: instance Network.AWS.Data.Path.ToPath Network.AWS.Redshift.RotateEncryptionKey.RotateEncryptionKey
- Network.AWS.Redshift.RotateEncryptionKey: instance Network.AWS.Data.Query.ToQuery Network.AWS.Redshift.RotateEncryptionKey.RotateEncryptionKey
- Network.AWS.Redshift.RotateEncryptionKey: instance Network.AWS.Types.AWSRequest Network.AWS.Redshift.RotateEncryptionKey.RotateEncryptionKey
- Network.AWS.Redshift.RotateEncryptionKey: rekClusterIdentifier :: Lens' RotateEncryptionKey Text
- Network.AWS.Redshift.RotateEncryptionKey: rekrsCluster :: Lens' RotateEncryptionKeyResponse (Maybe Cluster)
- Network.AWS.Redshift.RotateEncryptionKey: rekrsResponseStatus :: Lens' RotateEncryptionKeyResponse Int
- Network.AWS.Redshift.RotateEncryptionKey: rotateEncryptionKey :: Text -> RotateEncryptionKey
- Network.AWS.Redshift.RotateEncryptionKey: rotateEncryptionKeyResponse :: Int -> RotateEncryptionKeyResponse
- Network.AWS.Redshift.Types: Canceled :: TableRestoreStatusType
- Network.AWS.Redshift.Types: Cluster :: SourceType
- Network.AWS.Redshift.Types: ClusterParameterGroup :: SourceType
- Network.AWS.Redshift.Types: ClusterSecurityGroup :: SourceType
- Network.AWS.Redshift.Types: ClusterSnapshot :: SourceType
- Network.AWS.Redshift.Types: Dynamic :: ParameterApplyType
- Network.AWS.Redshift.Types: Failed :: TableRestoreStatusType
- Network.AWS.Redshift.Types: InProgress :: TableRestoreStatusType
- Network.AWS.Redshift.Types: Pending :: TableRestoreStatusType
- Network.AWS.Redshift.Types: Regular :: ReservedNodeOfferingType
- Network.AWS.Redshift.Types: Static :: ParameterApplyType
- Network.AWS.Redshift.Types: Succeeded :: TableRestoreStatusType
- Network.AWS.Redshift.Types: Upgradable :: ReservedNodeOfferingType
- Network.AWS.Redshift.Types: _AccessToSnapshotDeniedFault :: AsError a => Getting (First ServiceError) a ServiceError
- Network.AWS.Redshift.Types: _AuthorizationAlreadyExistsFault :: AsError a => Getting (First ServiceError) a ServiceError
- Network.AWS.Redshift.Types: _AuthorizationNotFoundFault :: AsError a => Getting (First ServiceError) a ServiceError
- Network.AWS.Redshift.Types: _AuthorizationQuotaExceededFault :: AsError a => Getting (First ServiceError) a ServiceError
- Network.AWS.Redshift.Types: _BucketNotFoundFault :: AsError a => Getting (First ServiceError) a ServiceError
- Network.AWS.Redshift.Types: _ClusterAlreadyExistsFault :: AsError a => Getting (First ServiceError) a ServiceError
- Network.AWS.Redshift.Types: _ClusterNotFoundFault :: AsError a => Getting (First ServiceError) a ServiceError
- Network.AWS.Redshift.Types: _ClusterParameterGroupAlreadyExistsFault :: AsError a => Getting (First ServiceError) a ServiceError
- Network.AWS.Redshift.Types: _ClusterParameterGroupNotFoundFault :: AsError a => Getting (First ServiceError) a ServiceError
- Network.AWS.Redshift.Types: _ClusterParameterGroupQuotaExceededFault :: AsError a => Getting (First ServiceError) a ServiceError
- Network.AWS.Redshift.Types: _ClusterQuotaExceededFault :: AsError a => Getting (First ServiceError) a ServiceError
- Network.AWS.Redshift.Types: _ClusterSecurityGroupAlreadyExistsFault :: AsError a => Getting (First ServiceError) a ServiceError
- Network.AWS.Redshift.Types: _ClusterSecurityGroupNotFoundFault :: AsError a => Getting (First ServiceError) a ServiceError
- Network.AWS.Redshift.Types: _ClusterSecurityGroupQuotaExceededFault :: AsError a => Getting (First ServiceError) a ServiceError
- Network.AWS.Redshift.Types: _ClusterSnapshotAlreadyExistsFault :: AsError a => Getting (First ServiceError) a ServiceError
- Network.AWS.Redshift.Types: _ClusterSnapshotNotFoundFault :: AsError a => Getting (First ServiceError) a ServiceError
- Network.AWS.Redshift.Types: _ClusterSnapshotQuotaExceededFault :: AsError a => Getting (First ServiceError) a ServiceError
- Network.AWS.Redshift.Types: _ClusterSubnetGroupAlreadyExistsFault :: AsError a => Getting (First ServiceError) a ServiceError
- Network.AWS.Redshift.Types: _ClusterSubnetGroupNotFoundFault :: AsError a => Getting (First ServiceError) a ServiceError
- Network.AWS.Redshift.Types: _ClusterSubnetGroupQuotaExceededFault :: AsError a => Getting (First ServiceError) a ServiceError
- Network.AWS.Redshift.Types: _ClusterSubnetQuotaExceededFault :: AsError a => Getting (First ServiceError) a ServiceError
- Network.AWS.Redshift.Types: _CopyToRegionDisabledFault :: AsError a => Getting (First ServiceError) a ServiceError
- Network.AWS.Redshift.Types: _DependentServiceRequestThrottlingFault :: AsError a => Getting (First ServiceError) a ServiceError
- Network.AWS.Redshift.Types: _DependentServiceUnavailableFault :: AsError a => Getting (First ServiceError) a ServiceError
- Network.AWS.Redshift.Types: _EventSubscriptionQuotaExceededFault :: AsError a => Getting (First ServiceError) a ServiceError
- Network.AWS.Redshift.Types: _HSMClientCertificateAlreadyExistsFault :: AsError a => Getting (First ServiceError) a ServiceError
- Network.AWS.Redshift.Types: _HSMClientCertificateNotFoundFault :: AsError a => Getting (First ServiceError) a ServiceError
- Network.AWS.Redshift.Types: _HSMClientCertificateQuotaExceededFault :: AsError a => Getting (First ServiceError) a ServiceError
- Network.AWS.Redshift.Types: _HSMConfigurationAlreadyExistsFault :: AsError a => Getting (First ServiceError) a ServiceError
- Network.AWS.Redshift.Types: _HSMConfigurationNotFoundFault :: AsError a => Getting (First ServiceError) a ServiceError
- Network.AWS.Redshift.Types: _HSMConfigurationQuotaExceededFault :: AsError a => Getting (First ServiceError) a ServiceError
- Network.AWS.Redshift.Types: _InProgressTableRestoreQuotaExceededFault :: AsError a => Getting (First ServiceError) a ServiceError
- Network.AWS.Redshift.Types: _IncompatibleOrderableOptions :: AsError a => Getting (First ServiceError) a ServiceError
- Network.AWS.Redshift.Types: _InsufficientClusterCapacityFault :: AsError a => Getting (First ServiceError) a ServiceError
- Network.AWS.Redshift.Types: _InsufficientS3BucketPolicyFault :: AsError a => Getting (First ServiceError) a ServiceError
- Network.AWS.Redshift.Types: _InvalidClusterParameterGroupStateFault :: AsError a => Getting (First ServiceError) a ServiceError
- Network.AWS.Redshift.Types: _InvalidClusterSecurityGroupStateFault :: AsError a => Getting (First ServiceError) a ServiceError
- Network.AWS.Redshift.Types: _InvalidClusterSnapshotStateFault :: AsError a => Getting (First ServiceError) a ServiceError
- Network.AWS.Redshift.Types: _InvalidClusterStateFault :: AsError a => Getting (First ServiceError) a ServiceError
- Network.AWS.Redshift.Types: _InvalidClusterSubnetGroupStateFault :: AsError a => Getting (First ServiceError) a ServiceError
- Network.AWS.Redshift.Types: _InvalidClusterSubnetStateFault :: AsError a => Getting (First ServiceError) a ServiceError
- Network.AWS.Redshift.Types: _InvalidElasticIPFault :: AsError a => Getting (First ServiceError) a ServiceError
- Network.AWS.Redshift.Types: _InvalidHSMClientCertificateStateFault :: AsError a => Getting (First ServiceError) a ServiceError
- Network.AWS.Redshift.Types: _InvalidHSMConfigurationStateFault :: AsError a => Getting (First ServiceError) a ServiceError
- Network.AWS.Redshift.Types: _InvalidRestoreFault :: AsError a => Getting (First ServiceError) a ServiceError
- Network.AWS.Redshift.Types: _InvalidS3BucketNameFault :: AsError a => Getting (First ServiceError) a ServiceError
- Network.AWS.Redshift.Types: _InvalidS3KeyPrefixFault :: AsError a => Getting (First ServiceError) a ServiceError
- Network.AWS.Redshift.Types: _InvalidSnapshotCopyGrantStateFault :: AsError a => Getting (First ServiceError) a ServiceError
- Network.AWS.Redshift.Types: _InvalidSubnet :: AsError a => Getting (First ServiceError) a ServiceError
- Network.AWS.Redshift.Types: _InvalidSubscriptionStateFault :: AsError a => Getting (First ServiceError) a ServiceError
- Network.AWS.Redshift.Types: _InvalidTableRestoreArgumentFault :: AsError a => Getting (First ServiceError) a ServiceError
- Network.AWS.Redshift.Types: _InvalidTagFault :: AsError a => Getting (First ServiceError) a ServiceError
- Network.AWS.Redshift.Types: _InvalidVPCNetworkStateFault :: AsError a => Getting (First ServiceError) a ServiceError
- Network.AWS.Redshift.Types: _LimitExceededFault :: AsError a => Getting (First ServiceError) a ServiceError
- Network.AWS.Redshift.Types: _NumberOfNodesPerClusterLimitExceededFault :: AsError a => Getting (First ServiceError) a ServiceError
- Network.AWS.Redshift.Types: _NumberOfNodesQuotaExceededFault :: AsError a => Getting (First ServiceError) a ServiceError
- Network.AWS.Redshift.Types: _ReservedNodeAlreadyExistsFault :: AsError a => Getting (First ServiceError) a ServiceError
- Network.AWS.Redshift.Types: _ReservedNodeNotFoundFault :: AsError a => Getting (First ServiceError) a ServiceError
- Network.AWS.Redshift.Types: _ReservedNodeOfferingNotFoundFault :: AsError a => Getting (First ServiceError) a ServiceError
- Network.AWS.Redshift.Types: _ReservedNodeQuotaExceededFault :: AsError a => Getting (First ServiceError) a ServiceError
- Network.AWS.Redshift.Types: _ResizeNotFoundFault :: AsError a => Getting (First ServiceError) a ServiceError
- Network.AWS.Redshift.Types: _ResourceNotFoundFault :: AsError a => Getting (First ServiceError) a ServiceError
- Network.AWS.Redshift.Types: _SNSInvalidTopicFault :: AsError a => Getting (First ServiceError) a ServiceError
- Network.AWS.Redshift.Types: _SNSNoAuthorizationFault :: AsError a => Getting (First ServiceError) a ServiceError
- Network.AWS.Redshift.Types: _SNSTopicARNNotFoundFault :: AsError a => Getting (First ServiceError) a ServiceError
- Network.AWS.Redshift.Types: _SnapshotCopyAlreadyDisabledFault :: AsError a => Getting (First ServiceError) a ServiceError
- Network.AWS.Redshift.Types: _SnapshotCopyAlreadyEnabledFault :: AsError a => Getting (First ServiceError) a ServiceError
- Network.AWS.Redshift.Types: _SnapshotCopyDisabledFault :: AsError a => Getting (First ServiceError) a ServiceError
- Network.AWS.Redshift.Types: _SnapshotCopyGrantAlreadyExistsFault :: AsError a => Getting (First ServiceError) a ServiceError
- Network.AWS.Redshift.Types: _SnapshotCopyGrantNotFoundFault :: AsError a => Getting (First ServiceError) a ServiceError
- Network.AWS.Redshift.Types: _SnapshotCopyGrantQuotaExceededFault :: AsError a => Getting (First ServiceError) a ServiceError
- Network.AWS.Redshift.Types: _SourceNotFoundFault :: AsError a => Getting (First ServiceError) a ServiceError
- Network.AWS.Redshift.Types: _SubnetAlreadyInUse :: AsError a => Getting (First ServiceError) a ServiceError
- Network.AWS.Redshift.Types: _SubscriptionAlreadyExistFault :: AsError a => Getting (First ServiceError) a ServiceError
- Network.AWS.Redshift.Types: _SubscriptionCategoryNotFoundFault :: AsError a => Getting (First ServiceError) a ServiceError
- Network.AWS.Redshift.Types: _SubscriptionEventIdNotFoundFault :: AsError a => Getting (First ServiceError) a ServiceError
- Network.AWS.Redshift.Types: _SubscriptionNotFoundFault :: AsError a => Getting (First ServiceError) a ServiceError
- Network.AWS.Redshift.Types: _SubscriptionSeverityNotFoundFault :: AsError a => Getting (First ServiceError) a ServiceError
- Network.AWS.Redshift.Types: _TableRestoreNotFoundFault :: AsError a => Getting (First ServiceError) a ServiceError
- Network.AWS.Redshift.Types: _TagLimitExceededFault :: AsError a => Getting (First ServiceError) a ServiceError
- Network.AWS.Redshift.Types: _UnauthorizedOperation :: AsError a => Getting (First ServiceError) a ServiceError
- Network.AWS.Redshift.Types: _UnknownSnapshotCopyRegionFault :: AsError a => Getting (First ServiceError) a ServiceError
- Network.AWS.Redshift.Types: _UnsupportedOperationFault :: AsError a => Getting (First ServiceError) a ServiceError
- Network.AWS.Redshift.Types: _UnsupportedOptionFault :: AsError a => Getting (First ServiceError) a ServiceError
- Network.AWS.Redshift.Types: accountWithRestoreAccess :: AccountWithRestoreAccess
- Network.AWS.Redshift.Types: availabilityZone :: AvailabilityZone
- Network.AWS.Redshift.Types: awraAccountAlias :: Lens' AccountWithRestoreAccess (Maybe Text)
- Network.AWS.Redshift.Types: awraAccountId :: Lens' AccountWithRestoreAccess (Maybe Text)
- Network.AWS.Redshift.Types: azName :: Lens' AvailabilityZone (Maybe Text)
- Network.AWS.Redshift.Types: azSupportedPlatforms :: Lens' AvailabilityZone [SupportedPlatform]
- Network.AWS.Redshift.Types: cAllowVersionUpgrade :: Lens' Cluster (Maybe Bool)
- Network.AWS.Redshift.Types: cAutomatedSnapshotRetentionPeriod :: Lens' Cluster (Maybe Int)
- Network.AWS.Redshift.Types: cAvailabilityZone :: Lens' Cluster (Maybe Text)
- Network.AWS.Redshift.Types: cClusterCreateTime :: Lens' Cluster (Maybe UTCTime)
- Network.AWS.Redshift.Types: cClusterIdentifier :: Lens' Cluster (Maybe Text)
- Network.AWS.Redshift.Types: cClusterNodes :: Lens' Cluster [ClusterNode]
- Network.AWS.Redshift.Types: cClusterParameterGroups :: Lens' Cluster [ClusterParameterGroupStatus]
- Network.AWS.Redshift.Types: cClusterPublicKey :: Lens' Cluster (Maybe Text)
- Network.AWS.Redshift.Types: cClusterRevisionNumber :: Lens' Cluster (Maybe Text)
- Network.AWS.Redshift.Types: cClusterSecurityGroups :: Lens' Cluster [ClusterSecurityGroupMembership]
- Network.AWS.Redshift.Types: cClusterSnapshotCopyStatus :: Lens' Cluster (Maybe ClusterSnapshotCopyStatus)
- Network.AWS.Redshift.Types: cClusterStatus :: Lens' Cluster (Maybe Text)
- Network.AWS.Redshift.Types: cClusterSubnetGroupName :: Lens' Cluster (Maybe Text)
- Network.AWS.Redshift.Types: cClusterVersion :: Lens' Cluster (Maybe Text)
- Network.AWS.Redshift.Types: cDBName :: Lens' Cluster (Maybe Text)
- Network.AWS.Redshift.Types: cElasticIPStatus :: Lens' Cluster (Maybe ElasticIPStatus)
- Network.AWS.Redshift.Types: cEncrypted :: Lens' Cluster (Maybe Bool)
- Network.AWS.Redshift.Types: cEndpoint :: Lens' Cluster (Maybe Endpoint)
- Network.AWS.Redshift.Types: cEnhancedVPCRouting :: Lens' Cluster (Maybe Bool)
- Network.AWS.Redshift.Types: cHSMStatus :: Lens' Cluster (Maybe HSMStatus)
- Network.AWS.Redshift.Types: cIAMRoles :: Lens' Cluster [ClusterIAMRole]
- Network.AWS.Redshift.Types: cKMSKeyId :: Lens' Cluster (Maybe Text)
- Network.AWS.Redshift.Types: cMasterUsername :: Lens' Cluster (Maybe Text)
- Network.AWS.Redshift.Types: cModifyStatus :: Lens' Cluster (Maybe Text)
- Network.AWS.Redshift.Types: cNodeType :: Lens' Cluster (Maybe Text)
- Network.AWS.Redshift.Types: cNumberOfNodes :: Lens' Cluster (Maybe Int)
- Network.AWS.Redshift.Types: cPendingModifiedValues :: Lens' Cluster (Maybe PendingModifiedValues)
- Network.AWS.Redshift.Types: cPreferredMaintenanceWindow :: Lens' Cluster (Maybe Text)
- Network.AWS.Redshift.Types: cPubliclyAccessible :: Lens' Cluster (Maybe Bool)
- Network.AWS.Redshift.Types: cRestoreStatus :: Lens' Cluster (Maybe RestoreStatus)
- Network.AWS.Redshift.Types: cTags :: Lens' Cluster [Tag]
- Network.AWS.Redshift.Types: cVPCId :: Lens' Cluster (Maybe Text)
- Network.AWS.Redshift.Types: cVPCSecurityGroups :: Lens' Cluster [VPCSecurityGroupMembership]
- Network.AWS.Redshift.Types: cirApplyStatus :: Lens' ClusterIAMRole (Maybe Text)
- Network.AWS.Redshift.Types: cirIAMRoleARN :: Lens' ClusterIAMRole (Maybe Text)
- Network.AWS.Redshift.Types: cluClusterSecurityGroupName :: Lens' ClusterSecurityGroup (Maybe Text)
- Network.AWS.Redshift.Types: cluDescription :: Lens' ClusterSecurityGroup (Maybe Text)
- Network.AWS.Redshift.Types: cluEC2SecurityGroups :: Lens' ClusterSecurityGroup [EC2SecurityGroup]
- Network.AWS.Redshift.Types: cluIPRanges :: Lens' ClusterSecurityGroup [IPRange]
- Network.AWS.Redshift.Types: cluTags :: Lens' ClusterSecurityGroup [Tag]
- Network.AWS.Redshift.Types: cluster :: Cluster
- Network.AWS.Redshift.Types: clusterIAMRole :: ClusterIAMRole
- Network.AWS.Redshift.Types: clusterNode :: ClusterNode
- Network.AWS.Redshift.Types: clusterParameterGroup :: ClusterParameterGroup
- Network.AWS.Redshift.Types: clusterParameterGroupNameMessage :: ClusterParameterGroupNameMessage
- Network.AWS.Redshift.Types: clusterParameterGroupStatus :: ClusterParameterGroupStatus
- Network.AWS.Redshift.Types: clusterParameterStatus :: ClusterParameterStatus
- Network.AWS.Redshift.Types: clusterSecurityGroup :: ClusterSecurityGroup
- Network.AWS.Redshift.Types: clusterSecurityGroupMembership :: ClusterSecurityGroupMembership
- Network.AWS.Redshift.Types: clusterSnapshotCopyStatus :: ClusterSnapshotCopyStatus
- Network.AWS.Redshift.Types: clusterSubnetGroup :: ClusterSubnetGroup
- Network.AWS.Redshift.Types: clusterVersion :: ClusterVersion
- Network.AWS.Redshift.Types: cnNodeRole :: Lens' ClusterNode (Maybe Text)
- Network.AWS.Redshift.Types: cnPrivateIPAddress :: Lens' ClusterNode (Maybe Text)
- Network.AWS.Redshift.Types: cnPublicIPAddress :: Lens' ClusterNode (Maybe Text)
- Network.AWS.Redshift.Types: cpgDescription :: Lens' ClusterParameterGroup (Maybe Text)
- Network.AWS.Redshift.Types: cpgParameterGroupFamily :: Lens' ClusterParameterGroup (Maybe Text)
- Network.AWS.Redshift.Types: cpgParameterGroupName :: Lens' ClusterParameterGroup (Maybe Text)
- Network.AWS.Redshift.Types: cpgTags :: Lens' ClusterParameterGroup [Tag]
- Network.AWS.Redshift.Types: cpgnmParameterGroupName :: Lens' ClusterParameterGroupNameMessage (Maybe Text)
- Network.AWS.Redshift.Types: cpgnmParameterGroupStatus :: Lens' ClusterParameterGroupNameMessage (Maybe Text)
- Network.AWS.Redshift.Types: cpgsClusterParameterStatusList :: Lens' ClusterParameterGroupStatus [ClusterParameterStatus]
- Network.AWS.Redshift.Types: cpgsParameterApplyStatus :: Lens' ClusterParameterGroupStatus (Maybe Text)
- Network.AWS.Redshift.Types: cpgsParameterGroupName :: Lens' ClusterParameterGroupStatus (Maybe Text)
- Network.AWS.Redshift.Types: cpsParameterApplyErrorDescription :: Lens' ClusterParameterStatus (Maybe Text)
- Network.AWS.Redshift.Types: cpsParameterApplyStatus :: Lens' ClusterParameterStatus (Maybe Text)
- Network.AWS.Redshift.Types: cpsParameterName :: Lens' ClusterParameterStatus (Maybe Text)
- Network.AWS.Redshift.Types: cscsDestinationRegion :: Lens' ClusterSnapshotCopyStatus (Maybe Text)
- Network.AWS.Redshift.Types: cscsRetentionPeriod :: Lens' ClusterSnapshotCopyStatus (Maybe Integer)
- Network.AWS.Redshift.Types: cscsSnapshotCopyGrantName :: Lens' ClusterSnapshotCopyStatus (Maybe Text)
- Network.AWS.Redshift.Types: csgClusterSubnetGroupName :: Lens' ClusterSubnetGroup (Maybe Text)
- Network.AWS.Redshift.Types: csgDescription :: Lens' ClusterSubnetGroup (Maybe Text)
- Network.AWS.Redshift.Types: csgSubnetGroupStatus :: Lens' ClusterSubnetGroup (Maybe Text)
- Network.AWS.Redshift.Types: csgSubnets :: Lens' ClusterSubnetGroup [Subnet]
- Network.AWS.Redshift.Types: csgTags :: Lens' ClusterSubnetGroup [Tag]
- Network.AWS.Redshift.Types: csgVPCId :: Lens' ClusterSubnetGroup (Maybe Text)
- Network.AWS.Redshift.Types: csgmClusterSecurityGroupName :: Lens' ClusterSecurityGroupMembership (Maybe Text)
- Network.AWS.Redshift.Types: csgmStatus :: Lens' ClusterSecurityGroupMembership (Maybe Text)
- Network.AWS.Redshift.Types: cvClusterParameterGroupFamily :: Lens' ClusterVersion (Maybe Text)
- Network.AWS.Redshift.Types: cvClusterVersion :: Lens' ClusterVersion (Maybe Text)
- Network.AWS.Redshift.Types: cvDescription :: Lens' ClusterVersion (Maybe Text)
- Network.AWS.Redshift.Types: data AccountWithRestoreAccess
- Network.AWS.Redshift.Types: data AvailabilityZone
- Network.AWS.Redshift.Types: data Cluster
- Network.AWS.Redshift.Types: data ClusterIAMRole
- Network.AWS.Redshift.Types: data ClusterNode
- Network.AWS.Redshift.Types: data ClusterParameterGroup
- Network.AWS.Redshift.Types: data ClusterParameterGroupNameMessage
- Network.AWS.Redshift.Types: data ClusterParameterGroupStatus
- Network.AWS.Redshift.Types: data ClusterParameterStatus
- Network.AWS.Redshift.Types: data ClusterSecurityGroup
- Network.AWS.Redshift.Types: data ClusterSecurityGroupMembership
- Network.AWS.Redshift.Types: data ClusterSnapshotCopyStatus
- Network.AWS.Redshift.Types: data ClusterSubnetGroup
- Network.AWS.Redshift.Types: data ClusterVersion
- Network.AWS.Redshift.Types: data DefaultClusterParameters
- Network.AWS.Redshift.Types: data EC2SecurityGroup
- Network.AWS.Redshift.Types: data ElasticIPStatus
- Network.AWS.Redshift.Types: data Endpoint
- Network.AWS.Redshift.Types: data Event
- Network.AWS.Redshift.Types: data EventCategoriesMap
- Network.AWS.Redshift.Types: data EventInfoMap
- Network.AWS.Redshift.Types: data EventSubscription
- Network.AWS.Redshift.Types: data HSMClientCertificate
- Network.AWS.Redshift.Types: data HSMConfiguration
- Network.AWS.Redshift.Types: data HSMStatus
- Network.AWS.Redshift.Types: data IPRange
- Network.AWS.Redshift.Types: data LoggingStatus
- Network.AWS.Redshift.Types: data OrderableClusterOption
- Network.AWS.Redshift.Types: data Parameter
- Network.AWS.Redshift.Types: data ParameterApplyType
- Network.AWS.Redshift.Types: data PendingModifiedValues
- Network.AWS.Redshift.Types: data RecurringCharge
- Network.AWS.Redshift.Types: data ReservedNode
- Network.AWS.Redshift.Types: data ReservedNodeOffering
- Network.AWS.Redshift.Types: data ReservedNodeOfferingType
- Network.AWS.Redshift.Types: data RestoreStatus
- Network.AWS.Redshift.Types: data Snapshot
- Network.AWS.Redshift.Types: data SnapshotCopyGrant
- Network.AWS.Redshift.Types: data SourceType
- Network.AWS.Redshift.Types: data Subnet
- Network.AWS.Redshift.Types: data SupportedPlatform
- Network.AWS.Redshift.Types: data TableRestoreStatus
- Network.AWS.Redshift.Types: data TableRestoreStatusType
- Network.AWS.Redshift.Types: data Tag
- Network.AWS.Redshift.Types: data TaggedResource
- Network.AWS.Redshift.Types: data VPCSecurityGroupMembership
- Network.AWS.Redshift.Types: dcpMarker :: Lens' DefaultClusterParameters (Maybe Text)
- Network.AWS.Redshift.Types: dcpParameterGroupFamily :: Lens' DefaultClusterParameters (Maybe Text)
- Network.AWS.Redshift.Types: dcpParameters :: Lens' DefaultClusterParameters [Parameter]
- Network.AWS.Redshift.Types: defaultClusterParameters :: DefaultClusterParameters
- Network.AWS.Redshift.Types: eAddress :: Lens' Endpoint (Maybe Text)
- Network.AWS.Redshift.Types: eDate :: Lens' Event (Maybe UTCTime)
- Network.AWS.Redshift.Types: eEventCategories :: Lens' Event [Text]
- Network.AWS.Redshift.Types: eEventId :: Lens' Event (Maybe Text)
- Network.AWS.Redshift.Types: eMessage :: Lens' Event (Maybe Text)
- Network.AWS.Redshift.Types: ePort :: Lens' Endpoint (Maybe Int)
- Network.AWS.Redshift.Types: eSeverity :: Lens' Event (Maybe Text)
- Network.AWS.Redshift.Types: eSourceIdentifier :: Lens' Event (Maybe Text)
- Network.AWS.Redshift.Types: eSourceType :: Lens' Event (Maybe SourceType)
- Network.AWS.Redshift.Types: ec2SecurityGroup :: EC2SecurityGroup
- Network.AWS.Redshift.Types: ecmEvents :: Lens' EventCategoriesMap [EventInfoMap]
- Network.AWS.Redshift.Types: ecmSourceType :: Lens' EventCategoriesMap (Maybe Text)
- Network.AWS.Redshift.Types: eimEventCategories :: Lens' EventInfoMap [Text]
- Network.AWS.Redshift.Types: eimEventDescription :: Lens' EventInfoMap (Maybe Text)
- Network.AWS.Redshift.Types: eimEventId :: Lens' EventInfoMap (Maybe Text)
- Network.AWS.Redshift.Types: eimSeverity :: Lens' EventInfoMap (Maybe Text)
- Network.AWS.Redshift.Types: eisElasticIP :: Lens' ElasticIPStatus (Maybe Text)
- Network.AWS.Redshift.Types: eisStatus :: Lens' ElasticIPStatus (Maybe Text)
- Network.AWS.Redshift.Types: elasticIPStatus :: ElasticIPStatus
- Network.AWS.Redshift.Types: endpoint :: Endpoint
- Network.AWS.Redshift.Types: esCustSubscriptionId :: Lens' EventSubscription (Maybe Text)
- Network.AWS.Redshift.Types: esCustomerAWSId :: Lens' EventSubscription (Maybe Text)
- Network.AWS.Redshift.Types: esEnabled :: Lens' EventSubscription (Maybe Bool)
- Network.AWS.Redshift.Types: esEventCategoriesList :: Lens' EventSubscription [Text]
- Network.AWS.Redshift.Types: esSNSTopicARN :: Lens' EventSubscription (Maybe Text)
- Network.AWS.Redshift.Types: esSeverity :: Lens' EventSubscription (Maybe Text)
- Network.AWS.Redshift.Types: esSourceIdsList :: Lens' EventSubscription [Text]
- Network.AWS.Redshift.Types: esSourceType :: Lens' EventSubscription (Maybe Text)
- Network.AWS.Redshift.Types: esStatus :: Lens' EventSubscription (Maybe Text)
- Network.AWS.Redshift.Types: esSubscriptionCreationTime :: Lens' EventSubscription (Maybe UTCTime)
- Network.AWS.Redshift.Types: esTags :: Lens' EventSubscription [Tag]
- Network.AWS.Redshift.Types: esgEC2SecurityGroupName :: Lens' EC2SecurityGroup (Maybe Text)
- Network.AWS.Redshift.Types: esgEC2SecurityGroupOwnerId :: Lens' EC2SecurityGroup (Maybe Text)
- Network.AWS.Redshift.Types: esgStatus :: Lens' EC2SecurityGroup (Maybe Text)
- Network.AWS.Redshift.Types: esgTags :: Lens' EC2SecurityGroup [Tag]
- Network.AWS.Redshift.Types: event :: Event
- Network.AWS.Redshift.Types: eventCategoriesMap :: EventCategoriesMap
- Network.AWS.Redshift.Types: eventInfoMap :: EventInfoMap
- Network.AWS.Redshift.Types: eventSubscription :: EventSubscription
- Network.AWS.Redshift.Types: getAccountId :: Region -> Maybe Text
- Network.AWS.Redshift.Types: hcDescription :: Lens' HSMConfiguration (Maybe Text)
- Network.AWS.Redshift.Types: hcHSMConfigurationIdentifier :: Lens' HSMConfiguration (Maybe Text)
- Network.AWS.Redshift.Types: hcHSMIPAddress :: Lens' HSMConfiguration (Maybe Text)
- Network.AWS.Redshift.Types: hcHSMPartitionName :: Lens' HSMConfiguration (Maybe Text)
- Network.AWS.Redshift.Types: hcTags :: Lens' HSMConfiguration [Tag]
- Network.AWS.Redshift.Types: hccHSMClientCertificateIdentifier :: Lens' HSMClientCertificate (Maybe Text)
- Network.AWS.Redshift.Types: hccHSMClientCertificatePublicKey :: Lens' HSMClientCertificate (Maybe Text)
- Network.AWS.Redshift.Types: hccTags :: Lens' HSMClientCertificate [Tag]
- Network.AWS.Redshift.Types: hsHSMClientCertificateIdentifier :: Lens' HSMStatus (Maybe Text)
- Network.AWS.Redshift.Types: hsHSMConfigurationIdentifier :: Lens' HSMStatus (Maybe Text)
- Network.AWS.Redshift.Types: hsStatus :: Lens' HSMStatus (Maybe Text)
- Network.AWS.Redshift.Types: hsmClientCertificate :: HSMClientCertificate
- Network.AWS.Redshift.Types: hsmConfiguration :: HSMConfiguration
- Network.AWS.Redshift.Types: hsmStatus :: HSMStatus
- Network.AWS.Redshift.Types: ipRange :: IPRange
- Network.AWS.Redshift.Types: irCIdRIP :: Lens' IPRange (Maybe Text)
- Network.AWS.Redshift.Types: irStatus :: Lens' IPRange (Maybe Text)
- Network.AWS.Redshift.Types: irTags :: Lens' IPRange [Tag]
- Network.AWS.Redshift.Types: loggingStatus :: LoggingStatus
- Network.AWS.Redshift.Types: lsBucketName :: Lens' LoggingStatus (Maybe Text)
- Network.AWS.Redshift.Types: lsLastFailureMessage :: Lens' LoggingStatus (Maybe Text)
- Network.AWS.Redshift.Types: lsLastFailureTime :: Lens' LoggingStatus (Maybe UTCTime)
- Network.AWS.Redshift.Types: lsLastSuccessfulDeliveryTime :: Lens' LoggingStatus (Maybe UTCTime)
- Network.AWS.Redshift.Types: lsLoggingEnabled :: Lens' LoggingStatus (Maybe Bool)
- Network.AWS.Redshift.Types: lsS3KeyPrefix :: Lens' LoggingStatus (Maybe Text)
- Network.AWS.Redshift.Types: ocoAvailabilityZones :: Lens' OrderableClusterOption [AvailabilityZone]
- Network.AWS.Redshift.Types: ocoClusterType :: Lens' OrderableClusterOption (Maybe Text)
- Network.AWS.Redshift.Types: ocoClusterVersion :: Lens' OrderableClusterOption (Maybe Text)
- Network.AWS.Redshift.Types: ocoNodeType :: Lens' OrderableClusterOption (Maybe Text)
- Network.AWS.Redshift.Types: orderableClusterOption :: OrderableClusterOption
- Network.AWS.Redshift.Types: pAllowedValues :: Lens' Parameter (Maybe Text)
- Network.AWS.Redshift.Types: pApplyType :: Lens' Parameter (Maybe ParameterApplyType)
- Network.AWS.Redshift.Types: pDataType :: Lens' Parameter (Maybe Text)
- Network.AWS.Redshift.Types: pDescription :: Lens' Parameter (Maybe Text)
- Network.AWS.Redshift.Types: pIsModifiable :: Lens' Parameter (Maybe Bool)
- Network.AWS.Redshift.Types: pMinimumEngineVersion :: Lens' Parameter (Maybe Text)
- Network.AWS.Redshift.Types: pParameterName :: Lens' Parameter (Maybe Text)
- Network.AWS.Redshift.Types: pParameterValue :: Lens' Parameter (Maybe Text)
- Network.AWS.Redshift.Types: pSource :: Lens' Parameter (Maybe Text)
- Network.AWS.Redshift.Types: parameter :: Parameter
- Network.AWS.Redshift.Types: pendingModifiedValues :: PendingModifiedValues
- Network.AWS.Redshift.Types: pmvAutomatedSnapshotRetentionPeriod :: Lens' PendingModifiedValues (Maybe Int)
- Network.AWS.Redshift.Types: pmvClusterIdentifier :: Lens' PendingModifiedValues (Maybe Text)
- Network.AWS.Redshift.Types: pmvClusterType :: Lens' PendingModifiedValues (Maybe Text)
- Network.AWS.Redshift.Types: pmvClusterVersion :: Lens' PendingModifiedValues (Maybe Text)
- Network.AWS.Redshift.Types: pmvEnhancedVPCRouting :: Lens' PendingModifiedValues (Maybe Bool)
- Network.AWS.Redshift.Types: pmvMasterUserPassword :: Lens' PendingModifiedValues (Maybe Text)
- Network.AWS.Redshift.Types: pmvNodeType :: Lens' PendingModifiedValues (Maybe Text)
- Network.AWS.Redshift.Types: pmvNumberOfNodes :: Lens' PendingModifiedValues (Maybe Int)
- Network.AWS.Redshift.Types: pmvPubliclyAccessible :: Lens' PendingModifiedValues (Maybe Bool)
- Network.AWS.Redshift.Types: rcRecurringChargeAmount :: Lens' RecurringCharge (Maybe Double)
- Network.AWS.Redshift.Types: rcRecurringChargeFrequency :: Lens' RecurringCharge (Maybe Text)
- Network.AWS.Redshift.Types: recurringCharge :: RecurringCharge
- Network.AWS.Redshift.Types: redshift :: Service
- Network.AWS.Redshift.Types: reservedNode :: ReservedNode
- Network.AWS.Redshift.Types: reservedNodeOffering :: ReservedNodeOffering
- Network.AWS.Redshift.Types: restoreStatus :: RestoreStatus
- Network.AWS.Redshift.Types: rnCurrencyCode :: Lens' ReservedNode (Maybe Text)
- Network.AWS.Redshift.Types: rnDuration :: Lens' ReservedNode (Maybe Int)
- Network.AWS.Redshift.Types: rnFixedPrice :: Lens' ReservedNode (Maybe Double)
- Network.AWS.Redshift.Types: rnNodeCount :: Lens' ReservedNode (Maybe Int)
- Network.AWS.Redshift.Types: rnNodeType :: Lens' ReservedNode (Maybe Text)
- Network.AWS.Redshift.Types: rnOfferingType :: Lens' ReservedNode (Maybe Text)
- Network.AWS.Redshift.Types: rnRecurringCharges :: Lens' ReservedNode [RecurringCharge]
- Network.AWS.Redshift.Types: rnReservedNodeId :: Lens' ReservedNode (Maybe Text)
- Network.AWS.Redshift.Types: rnReservedNodeOfferingId :: Lens' ReservedNode (Maybe Text)
- Network.AWS.Redshift.Types: rnReservedNodeOfferingType :: Lens' ReservedNode (Maybe ReservedNodeOfferingType)
- Network.AWS.Redshift.Types: rnStartTime :: Lens' ReservedNode (Maybe UTCTime)
- Network.AWS.Redshift.Types: rnState :: Lens' ReservedNode (Maybe Text)
- Network.AWS.Redshift.Types: rnUsagePrice :: Lens' ReservedNode (Maybe Double)
- Network.AWS.Redshift.Types: rnoCurrencyCode :: Lens' ReservedNodeOffering (Maybe Text)
- Network.AWS.Redshift.Types: rnoDuration :: Lens' ReservedNodeOffering (Maybe Int)
- Network.AWS.Redshift.Types: rnoFixedPrice :: Lens' ReservedNodeOffering (Maybe Double)
- Network.AWS.Redshift.Types: rnoNodeType :: Lens' ReservedNodeOffering (Maybe Text)
- Network.AWS.Redshift.Types: rnoOfferingType :: Lens' ReservedNodeOffering (Maybe Text)
- Network.AWS.Redshift.Types: rnoRecurringCharges :: Lens' ReservedNodeOffering [RecurringCharge]
- Network.AWS.Redshift.Types: rnoReservedNodeOfferingId :: Lens' ReservedNodeOffering (Maybe Text)
- Network.AWS.Redshift.Types: rnoReservedNodeOfferingType :: Lens' ReservedNodeOffering (Maybe ReservedNodeOfferingType)
- Network.AWS.Redshift.Types: rnoUsagePrice :: Lens' ReservedNodeOffering (Maybe Double)
- Network.AWS.Redshift.Types: rsCurrentRestoreRateInMegaBytesPerSecond :: Lens' RestoreStatus (Maybe Double)
- Network.AWS.Redshift.Types: rsElapsedTimeInSeconds :: Lens' RestoreStatus (Maybe Integer)
- Network.AWS.Redshift.Types: rsEstimatedTimeToCompletionInSeconds :: Lens' RestoreStatus (Maybe Integer)
- Network.AWS.Redshift.Types: rsProgressInMegaBytes :: Lens' RestoreStatus (Maybe Integer)
- Network.AWS.Redshift.Types: rsSnapshotSizeInMegaBytes :: Lens' RestoreStatus (Maybe Integer)
- Network.AWS.Redshift.Types: rsStatus :: Lens' RestoreStatus (Maybe Text)
- Network.AWS.Redshift.Types: sAccountsWithRestoreAccess :: Lens' Snapshot [AccountWithRestoreAccess]
- Network.AWS.Redshift.Types: sActualIncrementalBackupSizeInMegaBytes :: Lens' Snapshot (Maybe Double)
- Network.AWS.Redshift.Types: sAvailabilityZone :: Lens' Snapshot (Maybe Text)
- Network.AWS.Redshift.Types: sBackupProgressInMegaBytes :: Lens' Snapshot (Maybe Double)
- Network.AWS.Redshift.Types: sClusterCreateTime :: Lens' Snapshot (Maybe UTCTime)
- Network.AWS.Redshift.Types: sClusterIdentifier :: Lens' Snapshot (Maybe Text)
- Network.AWS.Redshift.Types: sClusterVersion :: Lens' Snapshot (Maybe Text)
- Network.AWS.Redshift.Types: sCurrentBackupRateInMegaBytesPerSecond :: Lens' Snapshot (Maybe Double)
- Network.AWS.Redshift.Types: sDBName :: Lens' Snapshot (Maybe Text)
- Network.AWS.Redshift.Types: sElapsedTimeInSeconds :: Lens' Snapshot (Maybe Integer)
- Network.AWS.Redshift.Types: sEncrypted :: Lens' Snapshot (Maybe Bool)
- Network.AWS.Redshift.Types: sEncryptedWithHSM :: Lens' Snapshot (Maybe Bool)
- Network.AWS.Redshift.Types: sEnhancedVPCRouting :: Lens' Snapshot (Maybe Bool)
- Network.AWS.Redshift.Types: sEstimatedSecondsToCompletion :: Lens' Snapshot (Maybe Integer)
- Network.AWS.Redshift.Types: sKMSKeyId :: Lens' Snapshot (Maybe Text)
- Network.AWS.Redshift.Types: sMasterUsername :: Lens' Snapshot (Maybe Text)
- Network.AWS.Redshift.Types: sNodeType :: Lens' Snapshot (Maybe Text)
- Network.AWS.Redshift.Types: sNumberOfNodes :: Lens' Snapshot (Maybe Int)
- Network.AWS.Redshift.Types: sOwnerAccount :: Lens' Snapshot (Maybe Text)
- Network.AWS.Redshift.Types: sPort :: Lens' Snapshot (Maybe Int)
- Network.AWS.Redshift.Types: sRestorableNodeTypes :: Lens' Snapshot [Text]
- Network.AWS.Redshift.Types: sSnapshotCreateTime :: Lens' Snapshot (Maybe UTCTime)
- Network.AWS.Redshift.Types: sSnapshotIdentifier :: Lens' Snapshot (Maybe Text)
- Network.AWS.Redshift.Types: sSnapshotType :: Lens' Snapshot (Maybe Text)
- Network.AWS.Redshift.Types: sSourceRegion :: Lens' Snapshot (Maybe Text)
- Network.AWS.Redshift.Types: sStatus :: Lens' Snapshot (Maybe Text)
- Network.AWS.Redshift.Types: sSubnetAvailabilityZone :: Lens' Subnet (Maybe AvailabilityZone)
- Network.AWS.Redshift.Types: sSubnetIdentifier :: Lens' Subnet (Maybe Text)
- Network.AWS.Redshift.Types: sSubnetStatus :: Lens' Subnet (Maybe Text)
- Network.AWS.Redshift.Types: sTags :: Lens' Snapshot [Tag]
- Network.AWS.Redshift.Types: sTotalBackupSizeInMegaBytes :: Lens' Snapshot (Maybe Double)
- Network.AWS.Redshift.Types: sVPCId :: Lens' Snapshot (Maybe Text)
- Network.AWS.Redshift.Types: scgKMSKeyId :: Lens' SnapshotCopyGrant (Maybe Text)
- Network.AWS.Redshift.Types: scgSnapshotCopyGrantName :: Lens' SnapshotCopyGrant (Maybe Text)
- Network.AWS.Redshift.Types: scgTags :: Lens' SnapshotCopyGrant [Tag]
- Network.AWS.Redshift.Types: snapshot :: Snapshot
- Network.AWS.Redshift.Types: snapshotCopyGrant :: SnapshotCopyGrant
- Network.AWS.Redshift.Types: spName :: Lens' SupportedPlatform (Maybe Text)
- Network.AWS.Redshift.Types: subnet :: Subnet
- Network.AWS.Redshift.Types: supportedPlatform :: SupportedPlatform
- Network.AWS.Redshift.Types: tableRestoreStatus :: TableRestoreStatus
- Network.AWS.Redshift.Types: tag :: Tag
- Network.AWS.Redshift.Types: tagKey :: Lens' Tag (Maybe Text)
- Network.AWS.Redshift.Types: tagValue :: Lens' Tag (Maybe Text)
- Network.AWS.Redshift.Types: taggedResource :: TaggedResource
- Network.AWS.Redshift.Types: trResourceName :: Lens' TaggedResource (Maybe Text)
- Network.AWS.Redshift.Types: trResourceType :: Lens' TaggedResource (Maybe Text)
- Network.AWS.Redshift.Types: trTag :: Lens' TaggedResource (Maybe Tag)
- Network.AWS.Redshift.Types: trsClusterIdentifier :: Lens' TableRestoreStatus (Maybe Text)
- Network.AWS.Redshift.Types: trsMessage :: Lens' TableRestoreStatus (Maybe Text)
- Network.AWS.Redshift.Types: trsNewTableName :: Lens' TableRestoreStatus (Maybe Text)
- Network.AWS.Redshift.Types: trsProgressInMegaBytes :: Lens' TableRestoreStatus (Maybe Integer)
- Network.AWS.Redshift.Types: trsRequestTime :: Lens' TableRestoreStatus (Maybe UTCTime)
- Network.AWS.Redshift.Types: trsSnapshotIdentifier :: Lens' TableRestoreStatus (Maybe Text)
- Network.AWS.Redshift.Types: trsSourceDatabaseName :: Lens' TableRestoreStatus (Maybe Text)
- Network.AWS.Redshift.Types: trsSourceSchemaName :: Lens' TableRestoreStatus (Maybe Text)
- Network.AWS.Redshift.Types: trsSourceTableName :: Lens' TableRestoreStatus (Maybe Text)
- Network.AWS.Redshift.Types: trsStatus :: Lens' TableRestoreStatus (Maybe TableRestoreStatusType)
- Network.AWS.Redshift.Types: trsTableRestoreRequestId :: Lens' TableRestoreStatus (Maybe Text)
- Network.AWS.Redshift.Types: trsTargetDatabaseName :: Lens' TableRestoreStatus (Maybe Text)
- Network.AWS.Redshift.Types: trsTargetSchemaName :: Lens' TableRestoreStatus (Maybe Text)
- Network.AWS.Redshift.Types: trsTotalDataInMegaBytes :: Lens' TableRestoreStatus (Maybe Integer)
- Network.AWS.Redshift.Types: vpcSecurityGroupMembership :: VPCSecurityGroupMembership
- Network.AWS.Redshift.Types: vsgmStatus :: Lens' VPCSecurityGroupMembership (Maybe Text)
- Network.AWS.Redshift.Types: vsgmVPCSecurityGroupId :: Lens' VPCSecurityGroupMembership (Maybe Text)
- Network.AWS.Redshift.Waiters: clusterAvailable :: Wait DescribeClusters
- Network.AWS.Redshift.Waiters: clusterDeleted :: Wait DescribeClusters
- Network.AWS.Redshift.Waiters: clusterRestored :: Wait DescribeClusters
- Network.AWS.Redshift.Waiters: snapshotAvailable :: Wait DescribeClusterSnapshots
+ Amazonka.Redshift: AcceptReservedNodeExchange' :: Text -> Text -> AcceptReservedNodeExchange
+ Amazonka.Redshift: AcceptReservedNodeExchangeResponse' :: Maybe ReservedNode -> Int -> AcceptReservedNodeExchangeResponse
+ Amazonka.Redshift: AccountAttribute' :: Maybe Text -> Maybe [AttributeValueTarget] -> AccountAttribute
+ Amazonka.Redshift: AccountWithRestoreAccess' :: Maybe Text -> Maybe Text -> AccountWithRestoreAccess
+ Amazonka.Redshift: ActionType' :: Text -> ActionType
+ Amazonka.Redshift: AddPartner' :: Text -> Text -> Text -> Text -> AddPartner
+ Amazonka.Redshift: AquaConfiguration' :: Maybe AquaConfigurationStatus -> Maybe AquaStatus -> AquaConfiguration
+ Amazonka.Redshift: AquaConfigurationStatus' :: Text -> AquaConfigurationStatus
+ Amazonka.Redshift: AquaStatus' :: Text -> AquaStatus
+ Amazonka.Redshift: AssociateDataShareConsumer' :: Maybe Bool -> Maybe Text -> Maybe Text -> Text -> AssociateDataShareConsumer
+ Amazonka.Redshift: AttributeValueTarget' :: Maybe Text -> AttributeValueTarget
+ Amazonka.Redshift: AuthenticationProfile' :: Maybe Text -> Maybe Text -> AuthenticationProfile
+ Amazonka.Redshift: AuthorizationStatus' :: Text -> AuthorizationStatus
+ Amazonka.Redshift: AuthorizeClusterSecurityGroupIngress' :: Maybe Text -> Maybe Text -> Maybe Text -> Text -> AuthorizeClusterSecurityGroupIngress
+ Amazonka.Redshift: AuthorizeClusterSecurityGroupIngressResponse' :: Maybe ClusterSecurityGroup -> Int -> AuthorizeClusterSecurityGroupIngressResponse
+ Amazonka.Redshift: AuthorizeDataShare' :: Text -> Text -> AuthorizeDataShare
+ Amazonka.Redshift: AuthorizeEndpointAccess' :: Maybe Text -> Maybe [Text] -> Text -> AuthorizeEndpointAccess
+ Amazonka.Redshift: AuthorizeSnapshotAccess' :: Maybe Text -> Maybe Text -> Maybe Text -> Text -> AuthorizeSnapshotAccess
+ Amazonka.Redshift: AuthorizeSnapshotAccessResponse' :: Maybe Snapshot -> Int -> AuthorizeSnapshotAccessResponse
+ Amazonka.Redshift: AvailabilityZone' :: Maybe Text -> Maybe [SupportedPlatform] -> AvailabilityZone
+ Amazonka.Redshift: BatchDeleteClusterSnapshots' :: [DeleteClusterSnapshotMessage] -> BatchDeleteClusterSnapshots
+ Amazonka.Redshift: BatchDeleteClusterSnapshotsResponse' :: Maybe [SnapshotErrorMessage] -> Maybe [Text] -> Int -> BatchDeleteClusterSnapshotsResponse
+ Amazonka.Redshift: BatchModifyClusterSnapshots' :: Maybe Bool -> Maybe Int -> [Text] -> BatchModifyClusterSnapshots
+ Amazonka.Redshift: BatchModifyClusterSnapshotsResponse' :: Maybe [SnapshotErrorMessage] -> Maybe [Text] -> Int -> BatchModifyClusterSnapshotsResponse
+ Amazonka.Redshift: CancelResize' :: Text -> CancelResize
+ Amazonka.Redshift: Cluster' :: Maybe Bool -> Maybe AquaConfiguration -> Maybe Int -> Maybe Text -> Maybe Text -> Maybe Text -> Maybe ISO8601 -> Maybe Text -> Maybe Text -> Maybe [ClusterNode] -> Maybe [ClusterParameterGroupStatus] -> Maybe Text -> Maybe Text -> Maybe [ClusterSecurityGroupMembership] -> Maybe ClusterSnapshotCopyStatus -> Maybe Text -> Maybe Text -> Maybe Text -> Maybe Text -> Maybe DataTransferProgress -> Maybe Text -> Maybe [DeferredMaintenanceWindow] -> Maybe ElasticIpStatus -> Maybe Text -> Maybe Bool -> Maybe Endpoint -> Maybe Bool -> Maybe ISO8601 -> Maybe Text -> Maybe HsmStatus -> Maybe [ClusterIamRole] -> Maybe Text -> Maybe Text -> Maybe Int -> Maybe Text -> Maybe Text -> Maybe ISO8601 -> Maybe Text -> Maybe Int -> Maybe [Text] -> Maybe PendingModifiedValues -> Maybe Text -> Maybe Bool -> Maybe ReservedNodeExchangeStatus -> Maybe ResizeInfo -> Maybe RestoreStatus -> Maybe Text -> Maybe ScheduleState -> Maybe [Tag] -> Maybe Integer -> Maybe Text -> Maybe [VpcSecurityGroupMembership] -> Cluster
+ Amazonka.Redshift: ClusterAssociatedToSchedule' :: Maybe Text -> Maybe ScheduleState -> ClusterAssociatedToSchedule
+ Amazonka.Redshift: ClusterDbRevision' :: Maybe Text -> Maybe Text -> Maybe ISO8601 -> Maybe [RevisionTarget] -> ClusterDbRevision
+ Amazonka.Redshift: ClusterIamRole' :: Maybe Text -> Maybe Text -> ClusterIamRole
+ Amazonka.Redshift: ClusterNode' :: Maybe Text -> Maybe Text -> Maybe Text -> ClusterNode
+ Amazonka.Redshift: ClusterParameterGroup' :: Maybe Text -> Maybe Text -> Maybe Text -> Maybe [Tag] -> ClusterParameterGroup
+ Amazonka.Redshift: ClusterParameterGroupNameMessage' :: Maybe Text -> Maybe Text -> ClusterParameterGroupNameMessage
+ Amazonka.Redshift: ClusterParameterGroupStatus' :: Maybe [ClusterParameterStatus] -> Maybe Text -> Maybe Text -> ClusterParameterGroupStatus
+ Amazonka.Redshift: ClusterParameterStatus' :: Maybe Text -> Maybe Text -> Maybe Text -> ClusterParameterStatus
+ Amazonka.Redshift: ClusterSecurityGroup' :: Maybe Text -> Maybe Text -> Maybe [EC2SecurityGroup] -> Maybe [IPRange] -> Maybe [Tag] -> ClusterSecurityGroup
+ Amazonka.Redshift: ClusterSecurityGroupMembership' :: Maybe Text -> Maybe Text -> ClusterSecurityGroupMembership
+ Amazonka.Redshift: ClusterSnapshotCopyStatus' :: Maybe Text -> Maybe Int -> Maybe Integer -> Maybe Text -> ClusterSnapshotCopyStatus
+ Amazonka.Redshift: ClusterSubnetGroup' :: Maybe Text -> Maybe Text -> Maybe Text -> Maybe [Subnet] -> Maybe [Tag] -> Maybe Text -> ClusterSubnetGroup
+ Amazonka.Redshift: ClusterVersion' :: Maybe Text -> Maybe Text -> Maybe Text -> ClusterVersion
+ Amazonka.Redshift: CopyClusterSnapshot' :: Maybe Int -> Maybe Text -> Text -> Text -> CopyClusterSnapshot
+ Amazonka.Redshift: CopyClusterSnapshotResponse' :: Maybe Snapshot -> Int -> CopyClusterSnapshotResponse
+ Amazonka.Redshift: CreateAuthenticationProfile' :: Text -> Text -> CreateAuthenticationProfile
+ Amazonka.Redshift: CreateAuthenticationProfileResponse' :: Maybe Text -> Maybe Text -> Int -> CreateAuthenticationProfileResponse
+ Amazonka.Redshift: CreateCluster' :: Maybe Text -> Maybe Bool -> Maybe AquaConfigurationStatus -> Maybe Int -> Maybe Text -> Maybe Bool -> Maybe Text -> Maybe [Text] -> Maybe Text -> Maybe Text -> Maybe Text -> Maybe Text -> Maybe Text -> Maybe Text -> Maybe Bool -> Maybe Bool -> Maybe Text -> Maybe Text -> Maybe [Text] -> Maybe Text -> Maybe Text -> Maybe Text -> Maybe Int -> Maybe Int -> Maybe Int -> Maybe Text -> Maybe Bool -> Maybe Text -> Maybe [Tag] -> Maybe [Text] -> Text -> Text -> Text -> Text -> CreateCluster
+ Amazonka.Redshift: CreateClusterParameterGroup' :: Maybe [Tag] -> Text -> Text -> Text -> CreateClusterParameterGroup
+ Amazonka.Redshift: CreateClusterParameterGroupResponse' :: Maybe ClusterParameterGroup -> Int -> CreateClusterParameterGroupResponse
+ Amazonka.Redshift: CreateClusterResponse' :: Maybe Cluster -> Int -> CreateClusterResponse
+ Amazonka.Redshift: CreateClusterSecurityGroup' :: Maybe [Tag] -> Text -> Text -> CreateClusterSecurityGroup
+ Amazonka.Redshift: CreateClusterSecurityGroupResponse' :: Maybe ClusterSecurityGroup -> Int -> CreateClusterSecurityGroupResponse
+ Amazonka.Redshift: CreateClusterSnapshot' :: Maybe Int -> Maybe [Tag] -> Text -> Text -> CreateClusterSnapshot
+ Amazonka.Redshift: CreateClusterSnapshotResponse' :: Maybe Snapshot -> Int -> CreateClusterSnapshotResponse
+ Amazonka.Redshift: CreateClusterSubnetGroup' :: Maybe [Tag] -> Text -> Text -> [Text] -> CreateClusterSubnetGroup
+ Amazonka.Redshift: CreateClusterSubnetGroupResponse' :: Maybe ClusterSubnetGroup -> Int -> CreateClusterSubnetGroupResponse
+ Amazonka.Redshift: CreateEndpointAccess' :: Maybe Text -> Maybe Text -> Maybe [Text] -> Text -> Text -> CreateEndpointAccess
+ Amazonka.Redshift: CreateEventSubscription' :: Maybe Bool -> Maybe [Text] -> Maybe Text -> Maybe [Text] -> Maybe Text -> Maybe [Tag] -> Text -> Text -> CreateEventSubscription
+ Amazonka.Redshift: CreateEventSubscriptionResponse' :: Maybe EventSubscription -> Int -> CreateEventSubscriptionResponse
+ Amazonka.Redshift: CreateHsmClientCertificate' :: Maybe [Tag] -> Text -> CreateHsmClientCertificate
+ Amazonka.Redshift: CreateHsmClientCertificateResponse' :: Maybe HsmClientCertificate -> Int -> CreateHsmClientCertificateResponse
+ Amazonka.Redshift: CreateHsmConfiguration' :: Maybe [Tag] -> Text -> Text -> Text -> Text -> Text -> Text -> CreateHsmConfiguration
+ Amazonka.Redshift: CreateHsmConfigurationResponse' :: Maybe HsmConfiguration -> Int -> CreateHsmConfigurationResponse
+ Amazonka.Redshift: CreateScheduledAction' :: Maybe Bool -> Maybe ISO8601 -> Maybe Text -> Maybe ISO8601 -> Text -> ScheduledActionType -> Text -> Text -> CreateScheduledAction
+ Amazonka.Redshift: CreateSnapshotCopyGrant' :: Maybe Text -> Maybe [Tag] -> Text -> CreateSnapshotCopyGrant
+ Amazonka.Redshift: CreateSnapshotCopyGrantResponse' :: Maybe SnapshotCopyGrant -> Int -> CreateSnapshotCopyGrantResponse
+ Amazonka.Redshift: CreateSnapshotSchedule' :: Maybe Bool -> Maybe Int -> Maybe [Text] -> Maybe Text -> Maybe Text -> Maybe [Tag] -> CreateSnapshotSchedule
+ Amazonka.Redshift: CreateTags' :: Text -> [Tag] -> CreateTags
+ Amazonka.Redshift: CreateTagsResponse' :: CreateTagsResponse
+ Amazonka.Redshift: CreateUsageLimit' :: Maybe UsageLimitBreachAction -> Maybe UsageLimitPeriod -> Maybe [Tag] -> Text -> UsageLimitFeatureType -> UsageLimitLimitType -> Integer -> CreateUsageLimit
+ Amazonka.Redshift: DataShare' :: Maybe Bool -> Maybe Text -> Maybe [DataShareAssociation] -> Maybe Text -> Maybe Text -> DataShare
+ Amazonka.Redshift: DataShareAssociation' :: Maybe Text -> Maybe Text -> Maybe ISO8601 -> Maybe DataShareStatus -> Maybe ISO8601 -> DataShareAssociation
+ Amazonka.Redshift: DataShareStatus' :: Text -> DataShareStatus
+ Amazonka.Redshift: DataShareStatusForConsumer' :: Text -> DataShareStatusForConsumer
+ Amazonka.Redshift: DataShareStatusForProducer' :: Text -> DataShareStatusForProducer
+ Amazonka.Redshift: DataTransferProgress' :: Maybe Double -> Maybe Integer -> Maybe Integer -> Maybe Integer -> Maybe Text -> Maybe Integer -> DataTransferProgress
+ Amazonka.Redshift: DeauthorizeDataShare' :: Text -> Text -> DeauthorizeDataShare
+ Amazonka.Redshift: DefaultClusterParameters' :: Maybe Text -> Maybe Text -> Maybe [Parameter] -> DefaultClusterParameters
+ Amazonka.Redshift: DeferredMaintenanceWindow' :: Maybe ISO8601 -> Maybe Text -> Maybe ISO8601 -> DeferredMaintenanceWindow
+ Amazonka.Redshift: DeleteAuthenticationProfile' :: Text -> DeleteAuthenticationProfile
+ Amazonka.Redshift: DeleteAuthenticationProfileResponse' :: Maybe Text -> Int -> DeleteAuthenticationProfileResponse
+ Amazonka.Redshift: DeleteCluster' :: Maybe Text -> Maybe Int -> Maybe Bool -> Text -> DeleteCluster
+ Amazonka.Redshift: DeleteClusterParameterGroup' :: Text -> DeleteClusterParameterGroup
+ Amazonka.Redshift: DeleteClusterParameterGroupResponse' :: DeleteClusterParameterGroupResponse
+ Amazonka.Redshift: DeleteClusterResponse' :: Maybe Cluster -> Int -> DeleteClusterResponse
+ Amazonka.Redshift: DeleteClusterSecurityGroup' :: Text -> DeleteClusterSecurityGroup
+ Amazonka.Redshift: DeleteClusterSecurityGroupResponse' :: DeleteClusterSecurityGroupResponse
+ Amazonka.Redshift: DeleteClusterSnapshot' :: Maybe Text -> Text -> DeleteClusterSnapshot
+ Amazonka.Redshift: DeleteClusterSnapshotMessage' :: Maybe Text -> Text -> DeleteClusterSnapshotMessage
+ Amazonka.Redshift: DeleteClusterSnapshotResponse' :: Maybe Snapshot -> Int -> DeleteClusterSnapshotResponse
+ Amazonka.Redshift: DeleteClusterSubnetGroup' :: Text -> DeleteClusterSubnetGroup
+ Amazonka.Redshift: DeleteClusterSubnetGroupResponse' :: DeleteClusterSubnetGroupResponse
+ Amazonka.Redshift: DeleteEndpointAccess' :: Text -> DeleteEndpointAccess
+ Amazonka.Redshift: DeleteEventSubscription' :: Text -> DeleteEventSubscription
+ Amazonka.Redshift: DeleteEventSubscriptionResponse' :: DeleteEventSubscriptionResponse
+ Amazonka.Redshift: DeleteHsmClientCertificate' :: Text -> DeleteHsmClientCertificate
+ Amazonka.Redshift: DeleteHsmClientCertificateResponse' :: DeleteHsmClientCertificateResponse
+ Amazonka.Redshift: DeleteHsmConfiguration' :: Text -> DeleteHsmConfiguration
+ Amazonka.Redshift: DeleteHsmConfigurationResponse' :: DeleteHsmConfigurationResponse
+ Amazonka.Redshift: DeletePartner' :: Text -> Text -> Text -> Text -> DeletePartner
+ Amazonka.Redshift: DeleteScheduledAction' :: Text -> DeleteScheduledAction
+ Amazonka.Redshift: DeleteScheduledActionResponse' :: DeleteScheduledActionResponse
+ Amazonka.Redshift: DeleteSnapshotCopyGrant' :: Text -> DeleteSnapshotCopyGrant
+ Amazonka.Redshift: DeleteSnapshotCopyGrantResponse' :: DeleteSnapshotCopyGrantResponse
+ Amazonka.Redshift: DeleteSnapshotSchedule' :: Text -> DeleteSnapshotSchedule
+ Amazonka.Redshift: DeleteSnapshotScheduleResponse' :: DeleteSnapshotScheduleResponse
+ Amazonka.Redshift: DeleteTags' :: Text -> [Text] -> DeleteTags
+ Amazonka.Redshift: DeleteTagsResponse' :: DeleteTagsResponse
+ Amazonka.Redshift: DeleteUsageLimit' :: Text -> DeleteUsageLimit
+ Amazonka.Redshift: DeleteUsageLimitResponse' :: DeleteUsageLimitResponse
+ Amazonka.Redshift: DescribeAccountAttributes' :: Maybe [Text] -> DescribeAccountAttributes
+ Amazonka.Redshift: DescribeAccountAttributesResponse' :: Maybe [AccountAttribute] -> Int -> DescribeAccountAttributesResponse
+ Amazonka.Redshift: DescribeAuthenticationProfiles' :: Maybe Text -> DescribeAuthenticationProfiles
+ Amazonka.Redshift: DescribeAuthenticationProfilesResponse' :: Maybe [AuthenticationProfile] -> Int -> DescribeAuthenticationProfilesResponse
+ Amazonka.Redshift: DescribeClusterDbRevisions' :: Maybe Text -> Maybe Text -> Maybe Int -> DescribeClusterDbRevisions
+ Amazonka.Redshift: DescribeClusterDbRevisionsResponse' :: Maybe [ClusterDbRevision] -> Maybe Text -> Int -> DescribeClusterDbRevisionsResponse
+ Amazonka.Redshift: DescribeClusterParameterGroups' :: Maybe Text -> Maybe Int -> Maybe Text -> Maybe [Text] -> Maybe [Text] -> DescribeClusterParameterGroups
+ Amazonka.Redshift: DescribeClusterParameterGroupsResponse' :: Maybe Text -> Maybe [ClusterParameterGroup] -> Int -> DescribeClusterParameterGroupsResponse
+ Amazonka.Redshift: DescribeClusterParameters' :: Maybe Text -> Maybe Int -> Maybe Text -> Text -> DescribeClusterParameters
+ Amazonka.Redshift: DescribeClusterParametersResponse' :: Maybe Text -> Maybe [Parameter] -> Int -> DescribeClusterParametersResponse
+ Amazonka.Redshift: DescribeClusterSecurityGroups' :: Maybe Text -> Maybe Text -> Maybe Int -> Maybe [Text] -> Maybe [Text] -> DescribeClusterSecurityGroups
+ Amazonka.Redshift: DescribeClusterSecurityGroupsResponse' :: Maybe [ClusterSecurityGroup] -> Maybe Text -> Int -> DescribeClusterSecurityGroupsResponse
+ Amazonka.Redshift: DescribeClusterSnapshots' :: Maybe Bool -> Maybe Text -> Maybe ISO8601 -> Maybe Text -> Maybe Int -> Maybe Text -> Maybe Text -> Maybe Text -> Maybe Text -> Maybe [SnapshotSortingEntity] -> Maybe ISO8601 -> Maybe [Text] -> Maybe [Text] -> DescribeClusterSnapshots
+ Amazonka.Redshift: DescribeClusterSnapshotsResponse' :: Maybe Text -> Maybe [Snapshot] -> Int -> DescribeClusterSnapshotsResponse
+ Amazonka.Redshift: DescribeClusterSubnetGroups' :: Maybe Text -> Maybe Text -> Maybe Int -> Maybe [Text] -> Maybe [Text] -> DescribeClusterSubnetGroups
+ Amazonka.Redshift: DescribeClusterSubnetGroupsResponse' :: Maybe [ClusterSubnetGroup] -> Maybe Text -> Int -> DescribeClusterSubnetGroupsResponse
+ Amazonka.Redshift: DescribeClusterTracks' :: Maybe Text -> Maybe Text -> Maybe Int -> DescribeClusterTracks
+ Amazonka.Redshift: DescribeClusterTracksResponse' :: Maybe [MaintenanceTrack] -> Maybe Text -> Int -> DescribeClusterTracksResponse
+ Amazonka.Redshift: DescribeClusterVersions' :: Maybe Text -> Maybe Text -> Maybe Text -> Maybe Int -> DescribeClusterVersions
+ Amazonka.Redshift: DescribeClusterVersionsResponse' :: Maybe [ClusterVersion] -> Maybe Text -> Int -> DescribeClusterVersionsResponse
+ Amazonka.Redshift: DescribeClusters' :: Maybe Text -> Maybe Text -> Maybe Int -> Maybe [Text] -> Maybe [Text] -> DescribeClusters
+ Amazonka.Redshift: DescribeClustersResponse' :: Maybe [Cluster] -> Maybe Text -> Int -> DescribeClustersResponse
+ Amazonka.Redshift: DescribeDataShares' :: Maybe Text -> Maybe Text -> Maybe Int -> DescribeDataShares
+ Amazonka.Redshift: DescribeDataSharesForConsumer' :: Maybe Text -> Maybe Text -> Maybe Int -> Maybe DataShareStatusForConsumer -> DescribeDataSharesForConsumer
+ Amazonka.Redshift: DescribeDataSharesForConsumerResponse' :: Maybe [DataShare] -> Maybe Text -> Int -> DescribeDataSharesForConsumerResponse
+ Amazonka.Redshift: DescribeDataSharesForProducer' :: Maybe Text -> Maybe Int -> Maybe Text -> Maybe DataShareStatusForProducer -> DescribeDataSharesForProducer
+ Amazonka.Redshift: DescribeDataSharesForProducerResponse' :: Maybe [DataShare] -> Maybe Text -> Int -> DescribeDataSharesForProducerResponse
+ Amazonka.Redshift: DescribeDataSharesResponse' :: Maybe [DataShare] -> Maybe Text -> Int -> DescribeDataSharesResponse
+ Amazonka.Redshift: DescribeDefaultClusterParameters' :: Maybe Text -> Maybe Int -> Text -> DescribeDefaultClusterParameters
+ Amazonka.Redshift: DescribeDefaultClusterParametersResponse' :: Int -> DefaultClusterParameters -> DescribeDefaultClusterParametersResponse
+ Amazonka.Redshift: DescribeEndpointAccess' :: Maybe Text -> Maybe Text -> Maybe Text -> Maybe Int -> Maybe Text -> Maybe Text -> DescribeEndpointAccess
+ Amazonka.Redshift: DescribeEndpointAccessResponse' :: Maybe [EndpointAccess] -> Maybe Text -> Int -> DescribeEndpointAccessResponse
+ Amazonka.Redshift: DescribeEndpointAuthorization' :: Maybe Text -> Maybe Text -> Maybe Bool -> Maybe Text -> Maybe Int -> DescribeEndpointAuthorization
+ Amazonka.Redshift: DescribeEndpointAuthorizationResponse' :: Maybe [EndpointAuthorization] -> Maybe Text -> Int -> DescribeEndpointAuthorizationResponse
+ Amazonka.Redshift: DescribeEventCategories' :: Maybe Text -> DescribeEventCategories
+ Amazonka.Redshift: DescribeEventCategoriesResponse' :: Maybe [EventCategoriesMap] -> Int -> DescribeEventCategoriesResponse
+ Amazonka.Redshift: DescribeEventSubscriptions' :: Maybe Text -> Maybe Int -> Maybe Text -> Maybe [Text] -> Maybe [Text] -> DescribeEventSubscriptions
+ Amazonka.Redshift: DescribeEventSubscriptionsResponse' :: Maybe [EventSubscription] -> Maybe Text -> Int -> DescribeEventSubscriptionsResponse
+ Amazonka.Redshift: DescribeEvents' :: Maybe Int -> Maybe ISO8601 -> Maybe Text -> Maybe Int -> Maybe Text -> Maybe SourceType -> Maybe ISO8601 -> DescribeEvents
+ Amazonka.Redshift: DescribeEventsResponse' :: Maybe [Event] -> Maybe Text -> Int -> DescribeEventsResponse
+ Amazonka.Redshift: DescribeHsmClientCertificates' :: Maybe Text -> Maybe Text -> Maybe Int -> Maybe [Text] -> Maybe [Text] -> DescribeHsmClientCertificates
+ Amazonka.Redshift: DescribeHsmClientCertificatesResponse' :: Maybe [HsmClientCertificate] -> Maybe Text -> Int -> DescribeHsmClientCertificatesResponse
+ Amazonka.Redshift: DescribeHsmConfigurations' :: Maybe Text -> Maybe Text -> Maybe Int -> Maybe [Text] -> Maybe [Text] -> DescribeHsmConfigurations
+ Amazonka.Redshift: DescribeHsmConfigurationsResponse' :: Maybe [HsmConfiguration] -> Maybe Text -> Int -> DescribeHsmConfigurationsResponse
+ Amazonka.Redshift: DescribeLoggingStatus' :: Text -> DescribeLoggingStatus
+ Amazonka.Redshift: DescribeNodeConfigurationOptions' :: Maybe Text -> Maybe [NodeConfigurationOptionsFilter] -> Maybe Text -> Maybe Int -> Maybe Text -> Maybe Text -> Maybe Text -> ActionType -> DescribeNodeConfigurationOptions
+ Amazonka.Redshift: DescribeNodeConfigurationOptionsResponse' :: Maybe Text -> Maybe [NodeConfigurationOption] -> Int -> DescribeNodeConfigurationOptionsResponse
+ Amazonka.Redshift: DescribeOrderableClusterOptions' :: Maybe Text -> Maybe Text -> Maybe Int -> Maybe Text -> DescribeOrderableClusterOptions
+ Amazonka.Redshift: DescribeOrderableClusterOptionsResponse' :: Maybe Text -> Maybe [OrderableClusterOption] -> Int -> DescribeOrderableClusterOptionsResponse
+ Amazonka.Redshift: DescribePartners' :: Maybe Text -> Maybe Text -> Text -> Text -> DescribePartners
+ Amazonka.Redshift: DescribePartnersResponse' :: Maybe [PartnerIntegrationInfo] -> Int -> DescribePartnersResponse
+ Amazonka.Redshift: DescribeReservedNodeExchangeStatus' :: Maybe Text -> Maybe Int -> Maybe Text -> Maybe Text -> DescribeReservedNodeExchangeStatus
+ Amazonka.Redshift: DescribeReservedNodeExchangeStatusResponse' :: Maybe Text -> Maybe [ReservedNodeExchangeStatus] -> Int -> DescribeReservedNodeExchangeStatusResponse
+ Amazonka.Redshift: DescribeReservedNodeOfferings' :: Maybe Text -> Maybe Int -> Maybe Text -> DescribeReservedNodeOfferings
+ Amazonka.Redshift: DescribeReservedNodeOfferingsResponse' :: Maybe Text -> Maybe [ReservedNodeOffering] -> Int -> DescribeReservedNodeOfferingsResponse
+ Amazonka.Redshift: DescribeReservedNodes' :: Maybe Text -> Maybe Int -> Maybe Text -> DescribeReservedNodes
+ Amazonka.Redshift: DescribeReservedNodesResponse' :: Maybe Text -> Maybe [ReservedNode] -> Int -> DescribeReservedNodesResponse
+ Amazonka.Redshift: DescribeResize' :: Text -> DescribeResize
+ Amazonka.Redshift: DescribeScheduledActions' :: Maybe Bool -> Maybe ISO8601 -> Maybe [ScheduledActionFilter] -> Maybe Text -> Maybe Int -> Maybe Text -> Maybe ISO8601 -> Maybe ScheduledActionTypeValues -> DescribeScheduledActions
+ Amazonka.Redshift: DescribeScheduledActionsResponse' :: Maybe Text -> Maybe [ScheduledAction] -> Int -> DescribeScheduledActionsResponse
+ Amazonka.Redshift: DescribeSnapshotCopyGrants' :: Maybe Text -> Maybe Int -> Maybe Text -> Maybe [Text] -> Maybe [Text] -> DescribeSnapshotCopyGrants
+ Amazonka.Redshift: DescribeSnapshotCopyGrantsResponse' :: Maybe Text -> Maybe [SnapshotCopyGrant] -> Int -> DescribeSnapshotCopyGrantsResponse
+ Amazonka.Redshift: DescribeSnapshotSchedules' :: Maybe Text -> Maybe Text -> Maybe Int -> Maybe Text -> Maybe [Text] -> Maybe [Text] -> DescribeSnapshotSchedules
+ Amazonka.Redshift: DescribeSnapshotSchedulesResponse' :: Maybe Text -> Maybe [SnapshotSchedule] -> Int -> DescribeSnapshotSchedulesResponse
+ Amazonka.Redshift: DescribeStorage' :: DescribeStorage
+ Amazonka.Redshift: DescribeStorageResponse' :: Maybe Double -> Maybe Double -> Int -> DescribeStorageResponse
+ Amazonka.Redshift: DescribeTableRestoreStatus' :: Maybe Text -> Maybe Text -> Maybe Int -> Maybe Text -> DescribeTableRestoreStatus
+ Amazonka.Redshift: DescribeTableRestoreStatusResponse' :: Maybe Text -> Maybe [TableRestoreStatus] -> Int -> DescribeTableRestoreStatusResponse
+ Amazonka.Redshift: DescribeTags' :: Maybe Text -> Maybe Int -> Maybe Text -> Maybe Text -> Maybe [Text] -> Maybe [Text] -> DescribeTags
+ Amazonka.Redshift: DescribeTagsResponse' :: Maybe Text -> Maybe [TaggedResource] -> Int -> DescribeTagsResponse
+ Amazonka.Redshift: DescribeUsageLimits' :: Maybe Text -> Maybe UsageLimitFeatureType -> Maybe Text -> Maybe Int -> Maybe [Text] -> Maybe [Text] -> Maybe Text -> DescribeUsageLimits
+ Amazonka.Redshift: DescribeUsageLimitsResponse' :: Maybe Text -> Maybe [UsageLimit] -> Int -> DescribeUsageLimitsResponse
+ Amazonka.Redshift: DisableLogging' :: Text -> DisableLogging
+ Amazonka.Redshift: DisableSnapshotCopy' :: Text -> DisableSnapshotCopy
+ Amazonka.Redshift: DisableSnapshotCopyResponse' :: Maybe Cluster -> Int -> DisableSnapshotCopyResponse
+ Amazonka.Redshift: DisassociateDataShareConsumer' :: Maybe Text -> Maybe Text -> Maybe Bool -> Text -> DisassociateDataShareConsumer
+ Amazonka.Redshift: EC2SecurityGroup' :: Maybe Text -> Maybe Text -> Maybe Text -> Maybe [Tag] -> EC2SecurityGroup
+ Amazonka.Redshift: ElasticIpStatus' :: Maybe Text -> Maybe Text -> ElasticIpStatus
+ Amazonka.Redshift: EnableLogging' :: Maybe Text -> Maybe LogDestinationType -> Maybe [Text] -> Maybe Text -> Text -> EnableLogging
+ Amazonka.Redshift: EnableSnapshotCopy' :: Maybe Int -> Maybe Int -> Maybe Text -> Text -> Text -> EnableSnapshotCopy
+ Amazonka.Redshift: EnableSnapshotCopyResponse' :: Maybe Cluster -> Int -> EnableSnapshotCopyResponse
+ Amazonka.Redshift: Endpoint' :: Maybe Text -> Maybe Int -> Maybe [VpcEndpoint] -> Endpoint
+ Amazonka.Redshift: EndpointAccess' :: Maybe Text -> Maybe Text -> Maybe ISO8601 -> Maybe Text -> Maybe Text -> Maybe Int -> Maybe Text -> Maybe Text -> Maybe VpcEndpoint -> Maybe [VpcSecurityGroupMembership] -> EndpointAccess
+ Amazonka.Redshift: EndpointAuthorization' :: Maybe Bool -> Maybe [Text] -> Maybe ISO8601 -> Maybe Text -> Maybe Text -> Maybe Int -> Maybe Text -> Maybe Text -> Maybe AuthorizationStatus -> EndpointAuthorization
+ Amazonka.Redshift: Event' :: Maybe ISO8601 -> Maybe [Text] -> Maybe Text -> Maybe Text -> Maybe Text -> Maybe Text -> Maybe SourceType -> Event
+ Amazonka.Redshift: EventCategoriesMap' :: Maybe [EventInfoMap] -> Maybe Text -> EventCategoriesMap
+ Amazonka.Redshift: EventInfoMap' :: Maybe [Text] -> Maybe Text -> Maybe Text -> Maybe Text -> EventInfoMap
+ Amazonka.Redshift: EventSubscription' :: Maybe Text -> Maybe Text -> Maybe Bool -> Maybe [Text] -> Maybe Text -> Maybe Text -> Maybe [Text] -> Maybe Text -> Maybe Text -> Maybe ISO8601 -> Maybe [Tag] -> EventSubscription
+ Amazonka.Redshift: GetClusterCredentials' :: Maybe Bool -> Maybe [Text] -> Maybe Text -> Maybe Int -> Text -> Text -> GetClusterCredentials
+ Amazonka.Redshift: GetClusterCredentialsResponse' :: Maybe (Sensitive Text) -> Maybe Text -> Maybe ISO8601 -> Int -> GetClusterCredentialsResponse
+ Amazonka.Redshift: GetClusterCredentialsWithIAM' :: Maybe Text -> Maybe Int -> Text -> GetClusterCredentialsWithIAM
+ Amazonka.Redshift: GetClusterCredentialsWithIAMResponse' :: Maybe (Sensitive Text) -> Maybe Text -> Maybe ISO8601 -> Maybe ISO8601 -> Int -> GetClusterCredentialsWithIAMResponse
+ Amazonka.Redshift: GetReservedNodeExchangeConfigurationOptions' :: Maybe Text -> Maybe Text -> Maybe Int -> Maybe Text -> ReservedNodeExchangeActionType -> GetReservedNodeExchangeConfigurationOptions
+ Amazonka.Redshift: GetReservedNodeExchangeConfigurationOptionsResponse' :: Maybe Text -> Maybe [ReservedNodeConfigurationOption] -> Int -> GetReservedNodeExchangeConfigurationOptionsResponse
+ Amazonka.Redshift: GetReservedNodeExchangeOfferings' :: Maybe Text -> Maybe Int -> Text -> GetReservedNodeExchangeOfferings
+ Amazonka.Redshift: GetReservedNodeExchangeOfferingsResponse' :: Maybe Text -> Maybe [ReservedNodeOffering] -> Int -> GetReservedNodeExchangeOfferingsResponse
+ Amazonka.Redshift: HsmClientCertificate' :: Maybe Text -> Maybe Text -> Maybe [Tag] -> HsmClientCertificate
+ Amazonka.Redshift: HsmConfiguration' :: Maybe Text -> Maybe Text -> Maybe Text -> Maybe Text -> Maybe [Tag] -> HsmConfiguration
+ Amazonka.Redshift: HsmStatus' :: Maybe Text -> Maybe Text -> Maybe Text -> HsmStatus
+ Amazonka.Redshift: IPRange' :: Maybe Text -> Maybe Text -> Maybe [Tag] -> IPRange
+ Amazonka.Redshift: LogDestinationType' :: Text -> LogDestinationType
+ Amazonka.Redshift: LoggingStatus' :: Maybe Text -> Maybe Text -> Maybe ISO8601 -> Maybe ISO8601 -> Maybe LogDestinationType -> Maybe [Text] -> Maybe Bool -> Maybe Text -> LoggingStatus
+ Amazonka.Redshift: MaintenanceTrack' :: Maybe Text -> Maybe Text -> Maybe [UpdateTarget] -> MaintenanceTrack
+ Amazonka.Redshift: Mode' :: Text -> Mode
+ Amazonka.Redshift: ModifyAquaConfiguration' :: Maybe AquaConfigurationStatus -> Text -> ModifyAquaConfiguration
+ Amazonka.Redshift: ModifyAquaConfigurationResponse' :: Maybe AquaConfiguration -> Int -> ModifyAquaConfigurationResponse
+ Amazonka.Redshift: ModifyAuthenticationProfile' :: Text -> Text -> ModifyAuthenticationProfile
+ Amazonka.Redshift: ModifyAuthenticationProfileResponse' :: Maybe Text -> Maybe Text -> Int -> ModifyAuthenticationProfileResponse
+ Amazonka.Redshift: ModifyCluster' :: Maybe Bool -> Maybe Int -> Maybe Text -> Maybe Bool -> Maybe Text -> Maybe [Text] -> Maybe Text -> Maybe Text -> Maybe Text -> Maybe Bool -> Maybe Bool -> Maybe Text -> Maybe Text -> Maybe Text -> Maybe Text -> Maybe Int -> Maybe Text -> Maybe Text -> Maybe Text -> Maybe Int -> Maybe Int -> Maybe Text -> Maybe Bool -> Maybe [Text] -> Text -> ModifyCluster
+ Amazonka.Redshift: ModifyClusterDbRevision' :: Text -> Text -> ModifyClusterDbRevision
+ Amazonka.Redshift: ModifyClusterDbRevisionResponse' :: Maybe Cluster -> Int -> ModifyClusterDbRevisionResponse
+ Amazonka.Redshift: ModifyClusterIamRoles' :: Maybe [Text] -> Maybe Text -> Maybe [Text] -> Text -> ModifyClusterIamRoles
+ Amazonka.Redshift: ModifyClusterIamRolesResponse' :: Maybe Cluster -> Int -> ModifyClusterIamRolesResponse
+ Amazonka.Redshift: ModifyClusterMaintenance' :: Maybe Bool -> Maybe Int -> Maybe ISO8601 -> Maybe Text -> Maybe ISO8601 -> Text -> ModifyClusterMaintenance
+ Amazonka.Redshift: ModifyClusterMaintenanceResponse' :: Maybe Cluster -> Int -> ModifyClusterMaintenanceResponse
+ Amazonka.Redshift: ModifyClusterParameterGroup' :: Text -> [Parameter] -> ModifyClusterParameterGroup
+ Amazonka.Redshift: ModifyClusterResponse' :: Maybe Cluster -> Int -> ModifyClusterResponse
+ Amazonka.Redshift: ModifyClusterSnapshot' :: Maybe Bool -> Maybe Int -> Text -> ModifyClusterSnapshot
+ Amazonka.Redshift: ModifyClusterSnapshotResponse' :: Maybe Snapshot -> Int -> ModifyClusterSnapshotResponse
+ Amazonka.Redshift: ModifyClusterSnapshotSchedule' :: Maybe Bool -> Maybe Text -> Text -> ModifyClusterSnapshotSchedule
+ Amazonka.Redshift: ModifyClusterSnapshotScheduleResponse' :: ModifyClusterSnapshotScheduleResponse
+ Amazonka.Redshift: ModifyClusterSubnetGroup' :: Maybe Text -> Text -> [Text] -> ModifyClusterSubnetGroup
+ Amazonka.Redshift: ModifyClusterSubnetGroupResponse' :: Maybe ClusterSubnetGroup -> Int -> ModifyClusterSubnetGroupResponse
+ Amazonka.Redshift: ModifyEndpointAccess' :: Maybe [Text] -> Text -> ModifyEndpointAccess
+ Amazonka.Redshift: ModifyEventSubscription' :: Maybe Bool -> Maybe [Text] -> Maybe Text -> Maybe Text -> Maybe [Text] -> Maybe Text -> Text -> ModifyEventSubscription
+ Amazonka.Redshift: ModifyEventSubscriptionResponse' :: Maybe EventSubscription -> Int -> ModifyEventSubscriptionResponse
+ Amazonka.Redshift: ModifyScheduledAction' :: Maybe Bool -> Maybe ISO8601 -> Maybe Text -> Maybe Text -> Maybe Text -> Maybe ISO8601 -> Maybe ScheduledActionType -> Text -> ModifyScheduledAction
+ Amazonka.Redshift: ModifySnapshotCopyRetentionPeriod' :: Maybe Bool -> Text -> Int -> ModifySnapshotCopyRetentionPeriod
+ Amazonka.Redshift: ModifySnapshotCopyRetentionPeriodResponse' :: Maybe Cluster -> Int -> ModifySnapshotCopyRetentionPeriodResponse
+ Amazonka.Redshift: ModifySnapshotSchedule' :: Text -> [Text] -> ModifySnapshotSchedule
+ Amazonka.Redshift: ModifyUsageLimit' :: Maybe Integer -> Maybe UsageLimitBreachAction -> Text -> ModifyUsageLimit
+ Amazonka.Redshift: NetworkInterface' :: Maybe Text -> Maybe Text -> Maybe Text -> Maybe Text -> NetworkInterface
+ Amazonka.Redshift: NodeConfigurationOption' :: Maybe Double -> Maybe Mode -> Maybe Text -> Maybe Int -> NodeConfigurationOption
+ Amazonka.Redshift: NodeConfigurationOptionsFilter' :: Maybe NodeConfigurationOptionsFilterName -> Maybe OperatorType -> Maybe [Text] -> NodeConfigurationOptionsFilter
+ Amazonka.Redshift: NodeConfigurationOptionsFilterName' :: Text -> NodeConfigurationOptionsFilterName
+ Amazonka.Redshift: OperatorType' :: Text -> OperatorType
+ Amazonka.Redshift: OrderableClusterOption' :: Maybe [AvailabilityZone] -> Maybe Text -> Maybe Text -> Maybe Text -> OrderableClusterOption
+ Amazonka.Redshift: Parameter' :: Maybe Text -> Maybe ParameterApplyType -> Maybe Text -> Maybe Text -> Maybe Bool -> Maybe Text -> Maybe Text -> Maybe Text -> Maybe Text -> Parameter
+ Amazonka.Redshift: ParameterApplyType' :: Text -> ParameterApplyType
+ Amazonka.Redshift: PartnerIntegrationInfo' :: Maybe ISO8601 -> Maybe Text -> Maybe Text -> Maybe PartnerIntegrationStatus -> Maybe Text -> Maybe ISO8601 -> PartnerIntegrationInfo
+ Amazonka.Redshift: PartnerIntegrationInputMessage' :: Text -> Text -> Text -> Text -> PartnerIntegrationInputMessage
+ Amazonka.Redshift: PartnerIntegrationOutputMessage' :: Maybe Text -> Maybe Text -> PartnerIntegrationOutputMessage
+ Amazonka.Redshift: PartnerIntegrationStatus' :: Text -> PartnerIntegrationStatus
+ Amazonka.Redshift: PauseCluster' :: Text -> PauseCluster
+ Amazonka.Redshift: PauseClusterMessage' :: Text -> PauseClusterMessage
+ Amazonka.Redshift: PauseClusterResponse' :: Maybe Cluster -> Int -> PauseClusterResponse
+ Amazonka.Redshift: PendingModifiedValues' :: Maybe Int -> Maybe Text -> Maybe Text -> Maybe Text -> Maybe Text -> Maybe Bool -> Maybe Text -> Maybe Text -> Maybe Text -> Maybe Int -> Maybe Bool -> PendingModifiedValues
+ Amazonka.Redshift: PurchaseReservedNodeOffering' :: Maybe Int -> Text -> PurchaseReservedNodeOffering
+ Amazonka.Redshift: PurchaseReservedNodeOfferingResponse' :: Maybe ReservedNode -> Int -> PurchaseReservedNodeOfferingResponse
+ Amazonka.Redshift: RebootCluster' :: Text -> RebootCluster
+ Amazonka.Redshift: RebootClusterResponse' :: Maybe Cluster -> Int -> RebootClusterResponse
+ Amazonka.Redshift: RecurringCharge' :: Maybe Double -> Maybe Text -> RecurringCharge
+ Amazonka.Redshift: RejectDataShare' :: Text -> RejectDataShare
+ Amazonka.Redshift: ReservedNode' :: Maybe Text -> Maybe Int -> Maybe Double -> Maybe Int -> Maybe Text -> Maybe Text -> Maybe [RecurringCharge] -> Maybe Text -> Maybe Text -> Maybe ReservedNodeOfferingType -> Maybe ISO8601 -> Maybe Text -> Maybe Double -> ReservedNode
+ Amazonka.Redshift: ReservedNodeConfigurationOption' :: Maybe ReservedNode -> Maybe Int -> Maybe ReservedNodeOffering -> ReservedNodeConfigurationOption
+ Amazonka.Redshift: ReservedNodeExchangeActionType' :: Text -> ReservedNodeExchangeActionType
+ Amazonka.Redshift: ReservedNodeExchangeStatus' :: Maybe ISO8601 -> Maybe Text -> Maybe Int -> Maybe Text -> Maybe Text -> Maybe ReservedNodeExchangeStatusType -> Maybe Int -> Maybe Text -> Maybe Text -> ReservedNodeExchangeStatus
+ Amazonka.Redshift: ReservedNodeExchangeStatusType' :: Text -> ReservedNodeExchangeStatusType
+ Amazonka.Redshift: ReservedNodeOffering' :: Maybe Text -> Maybe Int -> Maybe Double -> Maybe Text -> Maybe Text -> Maybe [RecurringCharge] -> Maybe Text -> Maybe ReservedNodeOfferingType -> Maybe Double -> ReservedNodeOffering
+ Amazonka.Redshift: ReservedNodeOfferingType' :: Text -> ReservedNodeOfferingType
+ Amazonka.Redshift: ResetClusterParameterGroup' :: Maybe [Parameter] -> Maybe Bool -> Text -> ResetClusterParameterGroup
+ Amazonka.Redshift: ResizeCluster' :: Maybe Bool -> Maybe Text -> Maybe Text -> Maybe Int -> Maybe Text -> Maybe Text -> Text -> ResizeCluster
+ Amazonka.Redshift: ResizeClusterMessage' :: Maybe Bool -> Maybe Text -> Maybe Text -> Maybe Int -> Maybe Text -> Maybe Text -> Text -> ResizeClusterMessage
+ Amazonka.Redshift: ResizeClusterResponse' :: Maybe Cluster -> Int -> ResizeClusterResponse
+ Amazonka.Redshift: ResizeInfo' :: Maybe Bool -> Maybe Text -> ResizeInfo
+ Amazonka.Redshift: ResizeProgressMessage' :: Maybe Double -> Maybe Double -> Maybe Integer -> Maybe Integer -> Maybe [Text] -> Maybe [Text] -> Maybe [Text] -> Maybe Text -> Maybe Integer -> Maybe Text -> Maybe Text -> Maybe Text -> Maybe Text -> Maybe Text -> Maybe Int -> Maybe Integer -> ResizeProgressMessage
+ Amazonka.Redshift: RestoreFromClusterSnapshot' :: Maybe Text -> Maybe Bool -> Maybe AquaConfigurationStatus -> Maybe Int -> Maybe Text -> Maybe Bool -> Maybe Text -> Maybe [Text] -> Maybe Text -> Maybe Text -> Maybe Text -> Maybe Bool -> Maybe Bool -> Maybe Text -> Maybe Text -> Maybe [Text] -> Maybe Text -> Maybe Text -> Maybe Int -> Maybe Text -> Maybe Int -> Maybe Text -> Maybe Int -> Maybe Text -> Maybe Bool -> Maybe Text -> Maybe Text -> Maybe Text -> Maybe Text -> Maybe Text -> Maybe Text -> Maybe [Text] -> Text -> RestoreFromClusterSnapshot
+ Amazonka.Redshift: RestoreFromClusterSnapshotResponse' :: Maybe Cluster -> Int -> RestoreFromClusterSnapshotResponse
+ Amazonka.Redshift: RestoreStatus' :: Maybe Double -> Maybe Integer -> Maybe Integer -> Maybe Integer -> Maybe Integer -> Maybe Text -> RestoreStatus
+ Amazonka.Redshift: RestoreTableFromClusterSnapshot' :: Maybe Bool -> Maybe Text -> Maybe Text -> Maybe Text -> Text -> Text -> Text -> Text -> Text -> RestoreTableFromClusterSnapshot
+ Amazonka.Redshift: RestoreTableFromClusterSnapshotResponse' :: Maybe TableRestoreStatus -> Int -> RestoreTableFromClusterSnapshotResponse
+ Amazonka.Redshift: ResumeCluster' :: Text -> ResumeCluster
+ Amazonka.Redshift: ResumeClusterMessage' :: Text -> ResumeClusterMessage
+ Amazonka.Redshift: ResumeClusterResponse' :: Maybe Cluster -> Int -> ResumeClusterResponse
+ Amazonka.Redshift: RevisionTarget' :: Maybe Text -> Maybe ISO8601 -> Maybe Text -> RevisionTarget
+ Amazonka.Redshift: RevokeClusterSecurityGroupIngress' :: Maybe Text -> Maybe Text -> Maybe Text -> Text -> RevokeClusterSecurityGroupIngress
+ Amazonka.Redshift: RevokeClusterSecurityGroupIngressResponse' :: Maybe ClusterSecurityGroup -> Int -> RevokeClusterSecurityGroupIngressResponse
+ Amazonka.Redshift: RevokeEndpointAccess' :: Maybe Text -> Maybe Text -> Maybe Bool -> Maybe [Text] -> RevokeEndpointAccess
+ Amazonka.Redshift: RevokeSnapshotAccess' :: Maybe Text -> Maybe Text -> Maybe Text -> Text -> RevokeSnapshotAccess
+ Amazonka.Redshift: RevokeSnapshotAccessResponse' :: Maybe Snapshot -> Int -> RevokeSnapshotAccessResponse
+ Amazonka.Redshift: RotateEncryptionKey' :: Text -> RotateEncryptionKey
+ Amazonka.Redshift: RotateEncryptionKeyResponse' :: Maybe Cluster -> Int -> RotateEncryptionKeyResponse
+ Amazonka.Redshift: ScheduleState' :: Text -> ScheduleState
+ Amazonka.Redshift: ScheduledAction' :: Maybe ISO8601 -> Maybe Text -> Maybe [ISO8601] -> Maybe Text -> Maybe Text -> Maybe Text -> Maybe ISO8601 -> Maybe ScheduledActionState -> Maybe ScheduledActionType -> ScheduledAction
+ Amazonka.Redshift: ScheduledActionFilter' :: ScheduledActionFilterName -> [Text] -> ScheduledActionFilter
+ Amazonka.Redshift: ScheduledActionFilterName' :: Text -> ScheduledActionFilterName
+ Amazonka.Redshift: ScheduledActionState' :: Text -> ScheduledActionState
+ Amazonka.Redshift: ScheduledActionType' :: Maybe PauseClusterMessage -> Maybe ResizeClusterMessage -> Maybe ResumeClusterMessage -> ScheduledActionType
+ Amazonka.Redshift: ScheduledActionTypeValues' :: Text -> ScheduledActionTypeValues
+ Amazonka.Redshift: Snapshot' :: Maybe [AccountWithRestoreAccess] -> Maybe Double -> Maybe Text -> Maybe Double -> Maybe ISO8601 -> Maybe Text -> Maybe Text -> Maybe Double -> Maybe Text -> Maybe Integer -> Maybe Bool -> Maybe Bool -> Maybe Text -> Maybe Bool -> Maybe Integer -> Maybe Text -> Maybe Text -> Maybe Int -> Maybe Int -> Maybe Text -> Maybe Text -> Maybe Int -> Maybe Text -> Maybe Int -> Maybe [Text] -> Maybe ISO8601 -> Maybe Text -> Maybe ISO8601 -> Maybe Text -> Maybe Text -> Maybe Text -> Maybe [Tag] -> Maybe Double -> Maybe Text -> Snapshot
+ Amazonka.Redshift: SnapshotAttributeToSortBy' :: Text -> SnapshotAttributeToSortBy
+ Amazonka.Redshift: SnapshotCopyGrant' :: Maybe Text -> Maybe Text -> Maybe [Tag] -> SnapshotCopyGrant
+ Amazonka.Redshift: SnapshotErrorMessage' :: Maybe Text -> Maybe Text -> Maybe Text -> Maybe Text -> SnapshotErrorMessage
+ Amazonka.Redshift: SnapshotSchedule' :: Maybe Int -> Maybe [ClusterAssociatedToSchedule] -> Maybe [ISO8601] -> Maybe [Text] -> Maybe Text -> Maybe Text -> Maybe [Tag] -> SnapshotSchedule
+ Amazonka.Redshift: SnapshotSortingEntity' :: Maybe SortByOrder -> SnapshotAttributeToSortBy -> SnapshotSortingEntity
+ Amazonka.Redshift: SortByOrder' :: Text -> SortByOrder
+ Amazonka.Redshift: SourceType' :: Text -> SourceType
+ Amazonka.Redshift: Subnet' :: Maybe AvailabilityZone -> Maybe Text -> Maybe Text -> Subnet
+ Amazonka.Redshift: SupportedOperation' :: Maybe Text -> SupportedOperation
+ Amazonka.Redshift: SupportedPlatform' :: Maybe Text -> SupportedPlatform
+ Amazonka.Redshift: TableRestoreStatus' :: Maybe Text -> Maybe Text -> Maybe Text -> Maybe Integer -> Maybe ISO8601 -> Maybe Text -> Maybe Text -> Maybe Text -> Maybe Text -> Maybe TableRestoreStatusType -> Maybe Text -> Maybe Text -> Maybe Text -> Maybe Integer -> TableRestoreStatus
+ Amazonka.Redshift: TableRestoreStatusType' :: Text -> TableRestoreStatusType
+ Amazonka.Redshift: Tag' :: Maybe Text -> Maybe Text -> Tag
+ Amazonka.Redshift: TaggedResource' :: Maybe Text -> Maybe Text -> Maybe Tag -> TaggedResource
+ Amazonka.Redshift: UpdatePartnerStatus' :: Maybe Text -> Text -> Text -> Text -> Text -> PartnerIntegrationStatus -> UpdatePartnerStatus
+ Amazonka.Redshift: UpdateTarget' :: Maybe Text -> Maybe Text -> Maybe [SupportedOperation] -> UpdateTarget
+ Amazonka.Redshift: UsageLimit' :: Maybe Integer -> Maybe UsageLimitBreachAction -> Maybe Text -> Maybe UsageLimitFeatureType -> Maybe UsageLimitLimitType -> Maybe UsageLimitPeriod -> Maybe [Tag] -> Maybe Text -> UsageLimit
+ Amazonka.Redshift: UsageLimitBreachAction' :: Text -> UsageLimitBreachAction
+ Amazonka.Redshift: UsageLimitFeatureType' :: Text -> UsageLimitFeatureType
+ Amazonka.Redshift: UsageLimitLimitType' :: Text -> UsageLimitLimitType
+ Amazonka.Redshift: UsageLimitPeriod' :: Text -> UsageLimitPeriod
+ Amazonka.Redshift: VpcEndpoint' :: Maybe [NetworkInterface] -> Maybe Text -> Maybe Text -> VpcEndpoint
+ Amazonka.Redshift: VpcSecurityGroupMembership' :: Maybe Text -> Maybe Text -> VpcSecurityGroupMembership
+ Amazonka.Redshift: [fromActionType] :: ActionType -> Text
+ Amazonka.Redshift: [fromAquaConfigurationStatus] :: AquaConfigurationStatus -> Text
+ Amazonka.Redshift: [fromAquaStatus] :: AquaStatus -> Text
+ Amazonka.Redshift: [fromAuthorizationStatus] :: AuthorizationStatus -> Text
+ Amazonka.Redshift: [fromDataShareStatusForConsumer] :: DataShareStatusForConsumer -> Text
+ Amazonka.Redshift: [fromDataShareStatusForProducer] :: DataShareStatusForProducer -> Text
+ Amazonka.Redshift: [fromDataShareStatus] :: DataShareStatus -> Text
+ Amazonka.Redshift: [fromLogDestinationType] :: LogDestinationType -> Text
+ Amazonka.Redshift: [fromMode] :: Mode -> Text
+ Amazonka.Redshift: [fromNodeConfigurationOptionsFilterName] :: NodeConfigurationOptionsFilterName -> Text
+ Amazonka.Redshift: [fromOperatorType] :: OperatorType -> Text
+ Amazonka.Redshift: [fromParameterApplyType] :: ParameterApplyType -> Text
+ Amazonka.Redshift: [fromPartnerIntegrationStatus] :: PartnerIntegrationStatus -> Text
+ Amazonka.Redshift: [fromReservedNodeExchangeActionType] :: ReservedNodeExchangeActionType -> Text
+ Amazonka.Redshift: [fromReservedNodeExchangeStatusType] :: ReservedNodeExchangeStatusType -> Text
+ Amazonka.Redshift: [fromReservedNodeOfferingType] :: ReservedNodeOfferingType -> Text
+ Amazonka.Redshift: [fromScheduleState] :: ScheduleState -> Text
+ Amazonka.Redshift: [fromScheduledActionFilterName] :: ScheduledActionFilterName -> Text
+ Amazonka.Redshift: [fromScheduledActionState] :: ScheduledActionState -> Text
+ Amazonka.Redshift: [fromScheduledActionTypeValues] :: ScheduledActionTypeValues -> Text
+ Amazonka.Redshift: [fromSnapshotAttributeToSortBy] :: SnapshotAttributeToSortBy -> Text
+ Amazonka.Redshift: [fromSortByOrder] :: SortByOrder -> Text
+ Amazonka.Redshift: [fromSourceType] :: SourceType -> Text
+ Amazonka.Redshift: [fromTableRestoreStatusType] :: TableRestoreStatusType -> Text
+ Amazonka.Redshift: [fromUsageLimitBreachAction] :: UsageLimitBreachAction -> Text
+ Amazonka.Redshift: [fromUsageLimitFeatureType] :: UsageLimitFeatureType -> Text
+ Amazonka.Redshift: [fromUsageLimitLimitType] :: UsageLimitLimitType -> Text
+ Amazonka.Redshift: [fromUsageLimitPeriod] :: UsageLimitPeriod -> Text
+ Amazonka.Redshift: _AccessToClusterDeniedFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift: _AccessToSnapshotDeniedFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift: _AuthenticationProfileAlreadyExistsFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift: _AuthenticationProfileNotFoundFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift: _AuthenticationProfileQuotaExceededFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift: _AuthorizationAlreadyExistsFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift: _AuthorizationNotFoundFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift: _AuthorizationQuotaExceededFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift: _BatchDeleteRequestSizeExceededFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift: _BatchModifyClusterSnapshotsLimitExceededFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift: _BucketNotFoundFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift: _ClusterAlreadyExistsFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift: _ClusterNotFoundFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift: _ClusterOnLatestRevisionFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift: _ClusterParameterGroupAlreadyExistsFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift: _ClusterParameterGroupNotFoundFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift: _ClusterParameterGroupQuotaExceededFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift: _ClusterQuotaExceededFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift: _ClusterSecurityGroupAlreadyExistsFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift: _ClusterSecurityGroupNotFoundFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift: _ClusterSecurityGroupQuotaExceededFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift: _ClusterSnapshotAlreadyExistsFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift: _ClusterSnapshotNotFoundFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift: _ClusterSnapshotQuotaExceededFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift: _ClusterSubnetGroupAlreadyExistsFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift: _ClusterSubnetGroupNotFoundFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift: _ClusterSubnetGroupQuotaExceededFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift: _ClusterSubnetQuotaExceededFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift: _CopyToRegionDisabledFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift: _DependentServiceRequestThrottlingFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift: _DependentServiceUnavailableFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift: _EndpointAlreadyExistsFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift: _EndpointAuthorizationAlreadyExistsFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift: _EndpointAuthorizationNotFoundFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift: _EndpointAuthorizationsPerClusterLimitExceededFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift: _EndpointNotFoundFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift: _EndpointsPerAuthorizationLimitExceededFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift: _EndpointsPerClusterLimitExceededFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift: _EventSubscriptionQuotaExceededFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift: _HsmClientCertificateAlreadyExistsFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift: _HsmClientCertificateNotFoundFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift: _HsmClientCertificateQuotaExceededFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift: _HsmConfigurationAlreadyExistsFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift: _HsmConfigurationNotFoundFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift: _HsmConfigurationQuotaExceededFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift: _InProgressTableRestoreQuotaExceededFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift: _IncompatibleOrderableOptions :: AsError a => Fold a ServiceError
+ Amazonka.Redshift: _InsufficientClusterCapacityFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift: _InsufficientS3BucketPolicyFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift: _InvalidAuthenticationProfileRequestFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift: _InvalidAuthorizationStateFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift: _InvalidClusterParameterGroupStateFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift: _InvalidClusterSecurityGroupStateFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift: _InvalidClusterSnapshotScheduleStateFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift: _InvalidClusterSnapshotStateFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift: _InvalidClusterStateFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift: _InvalidClusterSubnetGroupStateFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift: _InvalidClusterSubnetStateFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift: _InvalidClusterTrackFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift: _InvalidDataShareFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift: _InvalidElasticIpFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift: _InvalidEndpointStateFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift: _InvalidHsmClientCertificateStateFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift: _InvalidHsmConfigurationStateFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift: _InvalidNamespaceFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift: _InvalidReservedNodeStateFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift: _InvalidRestoreFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift: _InvalidRetentionPeriodFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift: _InvalidS3BucketNameFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift: _InvalidS3KeyPrefixFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift: _InvalidScheduleFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift: _InvalidScheduledActionFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift: _InvalidSnapshotCopyGrantStateFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift: _InvalidSubnet :: AsError a => Fold a ServiceError
+ Amazonka.Redshift: _InvalidSubscriptionStateFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift: _InvalidTableRestoreArgumentFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift: _InvalidTagFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift: _InvalidUsageLimitFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift: _InvalidVPCNetworkStateFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift: _LimitExceededFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift: _NumberOfNodesPerClusterLimitExceededFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift: _NumberOfNodesQuotaExceededFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift: _PartnerNotFoundFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift: _ReservedNodeAlreadyExistsFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift: _ReservedNodeAlreadyMigratedFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift: _ReservedNodeExchangeNotFoundFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift: _ReservedNodeNotFoundFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift: _ReservedNodeOfferingNotFoundFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift: _ReservedNodeQuotaExceededFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift: _ResizeNotFoundFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift: _ResourceNotFoundFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift: _SNSInvalidTopicFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift: _SNSNoAuthorizationFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift: _SNSTopicArnNotFoundFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift: _ScheduleDefinitionTypeUnsupportedFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift: _ScheduledActionAlreadyExistsFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift: _ScheduledActionNotFoundFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift: _ScheduledActionQuotaExceededFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift: _ScheduledActionTypeUnsupportedFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift: _SnapshotCopyAlreadyDisabledFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift: _SnapshotCopyAlreadyEnabledFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift: _SnapshotCopyDisabledFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift: _SnapshotCopyGrantAlreadyExistsFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift: _SnapshotCopyGrantNotFoundFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift: _SnapshotCopyGrantQuotaExceededFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift: _SnapshotScheduleAlreadyExistsFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift: _SnapshotScheduleNotFoundFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift: _SnapshotScheduleQuotaExceededFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift: _SnapshotScheduleUpdateInProgressFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift: _SourceNotFoundFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift: _SubnetAlreadyInUse :: AsError a => Fold a ServiceError
+ Amazonka.Redshift: _SubscriptionAlreadyExistFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift: _SubscriptionCategoryNotFoundFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift: _SubscriptionEventIdNotFoundFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift: _SubscriptionNotFoundFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift: _SubscriptionSeverityNotFoundFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift: _TableLimitExceededFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift: _TableRestoreNotFoundFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift: _TagLimitExceededFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift: _UnauthorizedOperation :: AsError a => Fold a ServiceError
+ Amazonka.Redshift: _UnauthorizedPartnerIntegrationFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift: _UnknownSnapshotCopyRegionFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift: _UnsupportedOperationFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift: _UnsupportedOptionFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift: _UsageLimitAlreadyExistsFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift: _UsageLimitNotFoundFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift: data AcceptReservedNodeExchange
+ Amazonka.Redshift: data AcceptReservedNodeExchangeResponse
+ Amazonka.Redshift: data AccountAttribute
+ Amazonka.Redshift: data AccountWithRestoreAccess
+ Amazonka.Redshift: data AddPartner
+ Amazonka.Redshift: data AquaConfiguration
+ Amazonka.Redshift: data AssociateDataShareConsumer
+ Amazonka.Redshift: data AttributeValueTarget
+ Amazonka.Redshift: data AuthenticationProfile
+ Amazonka.Redshift: data AuthorizeClusterSecurityGroupIngress
+ Amazonka.Redshift: data AuthorizeClusterSecurityGroupIngressResponse
+ Amazonka.Redshift: data AuthorizeDataShare
+ Amazonka.Redshift: data AuthorizeEndpointAccess
+ Amazonka.Redshift: data AuthorizeSnapshotAccess
+ Amazonka.Redshift: data AuthorizeSnapshotAccessResponse
+ Amazonka.Redshift: data AvailabilityZone
+ Amazonka.Redshift: data BatchDeleteClusterSnapshots
+ Amazonka.Redshift: data BatchDeleteClusterSnapshotsResponse
+ Amazonka.Redshift: data BatchModifyClusterSnapshots
+ Amazonka.Redshift: data BatchModifyClusterSnapshotsResponse
+ Amazonka.Redshift: data CancelResize
+ Amazonka.Redshift: data Cluster
+ Amazonka.Redshift: data ClusterAssociatedToSchedule
+ Amazonka.Redshift: data ClusterDbRevision
+ Amazonka.Redshift: data ClusterIamRole
+ Amazonka.Redshift: data ClusterNode
+ Amazonka.Redshift: data ClusterParameterGroup
+ Amazonka.Redshift: data ClusterParameterGroupNameMessage
+ Amazonka.Redshift: data ClusterParameterGroupStatus
+ Amazonka.Redshift: data ClusterParameterStatus
+ Amazonka.Redshift: data ClusterSecurityGroup
+ Amazonka.Redshift: data ClusterSecurityGroupMembership
+ Amazonka.Redshift: data ClusterSnapshotCopyStatus
+ Amazonka.Redshift: data ClusterSubnetGroup
+ Amazonka.Redshift: data ClusterVersion
+ Amazonka.Redshift: data CopyClusterSnapshot
+ Amazonka.Redshift: data CopyClusterSnapshotResponse
+ Amazonka.Redshift: data CreateAuthenticationProfile
+ Amazonka.Redshift: data CreateAuthenticationProfileResponse
+ Amazonka.Redshift: data CreateCluster
+ Amazonka.Redshift: data CreateClusterParameterGroup
+ Amazonka.Redshift: data CreateClusterParameterGroupResponse
+ Amazonka.Redshift: data CreateClusterResponse
+ Amazonka.Redshift: data CreateClusterSecurityGroup
+ Amazonka.Redshift: data CreateClusterSecurityGroupResponse
+ Amazonka.Redshift: data CreateClusterSnapshot
+ Amazonka.Redshift: data CreateClusterSnapshotResponse
+ Amazonka.Redshift: data CreateClusterSubnetGroup
+ Amazonka.Redshift: data CreateClusterSubnetGroupResponse
+ Amazonka.Redshift: data CreateEndpointAccess
+ Amazonka.Redshift: data CreateEventSubscription
+ Amazonka.Redshift: data CreateEventSubscriptionResponse
+ Amazonka.Redshift: data CreateHsmClientCertificate
+ Amazonka.Redshift: data CreateHsmClientCertificateResponse
+ Amazonka.Redshift: data CreateHsmConfiguration
+ Amazonka.Redshift: data CreateHsmConfigurationResponse
+ Amazonka.Redshift: data CreateScheduledAction
+ Amazonka.Redshift: data CreateSnapshotCopyGrant
+ Amazonka.Redshift: data CreateSnapshotCopyGrantResponse
+ Amazonka.Redshift: data CreateSnapshotSchedule
+ Amazonka.Redshift: data CreateTags
+ Amazonka.Redshift: data CreateTagsResponse
+ Amazonka.Redshift: data CreateUsageLimit
+ Amazonka.Redshift: data DataShare
+ Amazonka.Redshift: data DataShareAssociation
+ Amazonka.Redshift: data DataTransferProgress
+ Amazonka.Redshift: data DeauthorizeDataShare
+ Amazonka.Redshift: data DefaultClusterParameters
+ Amazonka.Redshift: data DeferredMaintenanceWindow
+ Amazonka.Redshift: data DeleteAuthenticationProfile
+ Amazonka.Redshift: data DeleteAuthenticationProfileResponse
+ Amazonka.Redshift: data DeleteCluster
+ Amazonka.Redshift: data DeleteClusterParameterGroup
+ Amazonka.Redshift: data DeleteClusterParameterGroupResponse
+ Amazonka.Redshift: data DeleteClusterResponse
+ Amazonka.Redshift: data DeleteClusterSecurityGroup
+ Amazonka.Redshift: data DeleteClusterSecurityGroupResponse
+ Amazonka.Redshift: data DeleteClusterSnapshot
+ Amazonka.Redshift: data DeleteClusterSnapshotMessage
+ Amazonka.Redshift: data DeleteClusterSnapshotResponse
+ Amazonka.Redshift: data DeleteClusterSubnetGroup
+ Amazonka.Redshift: data DeleteClusterSubnetGroupResponse
+ Amazonka.Redshift: data DeleteEndpointAccess
+ Amazonka.Redshift: data DeleteEventSubscription
+ Amazonka.Redshift: data DeleteEventSubscriptionResponse
+ Amazonka.Redshift: data DeleteHsmClientCertificate
+ Amazonka.Redshift: data DeleteHsmClientCertificateResponse
+ Amazonka.Redshift: data DeleteHsmConfiguration
+ Amazonka.Redshift: data DeleteHsmConfigurationResponse
+ Amazonka.Redshift: data DeletePartner
+ Amazonka.Redshift: data DeleteScheduledAction
+ Amazonka.Redshift: data DeleteScheduledActionResponse
+ Amazonka.Redshift: data DeleteSnapshotCopyGrant
+ Amazonka.Redshift: data DeleteSnapshotCopyGrantResponse
+ Amazonka.Redshift: data DeleteSnapshotSchedule
+ Amazonka.Redshift: data DeleteSnapshotScheduleResponse
+ Amazonka.Redshift: data DeleteTags
+ Amazonka.Redshift: data DeleteTagsResponse
+ Amazonka.Redshift: data DeleteUsageLimit
+ Amazonka.Redshift: data DeleteUsageLimitResponse
+ Amazonka.Redshift: data DescribeAccountAttributes
+ Amazonka.Redshift: data DescribeAccountAttributesResponse
+ Amazonka.Redshift: data DescribeAuthenticationProfiles
+ Amazonka.Redshift: data DescribeAuthenticationProfilesResponse
+ Amazonka.Redshift: data DescribeClusterDbRevisions
+ Amazonka.Redshift: data DescribeClusterDbRevisionsResponse
+ Amazonka.Redshift: data DescribeClusterParameterGroups
+ Amazonka.Redshift: data DescribeClusterParameterGroupsResponse
+ Amazonka.Redshift: data DescribeClusterParameters
+ Amazonka.Redshift: data DescribeClusterParametersResponse
+ Amazonka.Redshift: data DescribeClusterSecurityGroups
+ Amazonka.Redshift: data DescribeClusterSecurityGroupsResponse
+ Amazonka.Redshift: data DescribeClusterSnapshots
+ Amazonka.Redshift: data DescribeClusterSnapshotsResponse
+ Amazonka.Redshift: data DescribeClusterSubnetGroups
+ Amazonka.Redshift: data DescribeClusterSubnetGroupsResponse
+ Amazonka.Redshift: data DescribeClusterTracks
+ Amazonka.Redshift: data DescribeClusterTracksResponse
+ Amazonka.Redshift: data DescribeClusterVersions
+ Amazonka.Redshift: data DescribeClusterVersionsResponse
+ Amazonka.Redshift: data DescribeClusters
+ Amazonka.Redshift: data DescribeClustersResponse
+ Amazonka.Redshift: data DescribeDataShares
+ Amazonka.Redshift: data DescribeDataSharesForConsumer
+ Amazonka.Redshift: data DescribeDataSharesForConsumerResponse
+ Amazonka.Redshift: data DescribeDataSharesForProducer
+ Amazonka.Redshift: data DescribeDataSharesForProducerResponse
+ Amazonka.Redshift: data DescribeDataSharesResponse
+ Amazonka.Redshift: data DescribeDefaultClusterParameters
+ Amazonka.Redshift: data DescribeDefaultClusterParametersResponse
+ Amazonka.Redshift: data DescribeEndpointAccess
+ Amazonka.Redshift: data DescribeEndpointAccessResponse
+ Amazonka.Redshift: data DescribeEndpointAuthorization
+ Amazonka.Redshift: data DescribeEndpointAuthorizationResponse
+ Amazonka.Redshift: data DescribeEventCategories
+ Amazonka.Redshift: data DescribeEventCategoriesResponse
+ Amazonka.Redshift: data DescribeEventSubscriptions
+ Amazonka.Redshift: data DescribeEventSubscriptionsResponse
+ Amazonka.Redshift: data DescribeEvents
+ Amazonka.Redshift: data DescribeEventsResponse
+ Amazonka.Redshift: data DescribeHsmClientCertificates
+ Amazonka.Redshift: data DescribeHsmClientCertificatesResponse
+ Amazonka.Redshift: data DescribeHsmConfigurations
+ Amazonka.Redshift: data DescribeHsmConfigurationsResponse
+ Amazonka.Redshift: data DescribeLoggingStatus
+ Amazonka.Redshift: data DescribeNodeConfigurationOptions
+ Amazonka.Redshift: data DescribeNodeConfigurationOptionsResponse
+ Amazonka.Redshift: data DescribeOrderableClusterOptions
+ Amazonka.Redshift: data DescribeOrderableClusterOptionsResponse
+ Amazonka.Redshift: data DescribePartners
+ Amazonka.Redshift: data DescribePartnersResponse
+ Amazonka.Redshift: data DescribeReservedNodeExchangeStatus
+ Amazonka.Redshift: data DescribeReservedNodeExchangeStatusResponse
+ Amazonka.Redshift: data DescribeReservedNodeOfferings
+ Amazonka.Redshift: data DescribeReservedNodeOfferingsResponse
+ Amazonka.Redshift: data DescribeReservedNodes
+ Amazonka.Redshift: data DescribeReservedNodesResponse
+ Amazonka.Redshift: data DescribeResize
+ Amazonka.Redshift: data DescribeScheduledActions
+ Amazonka.Redshift: data DescribeScheduledActionsResponse
+ Amazonka.Redshift: data DescribeSnapshotCopyGrants
+ Amazonka.Redshift: data DescribeSnapshotCopyGrantsResponse
+ Amazonka.Redshift: data DescribeSnapshotSchedules
+ Amazonka.Redshift: data DescribeSnapshotSchedulesResponse
+ Amazonka.Redshift: data DescribeStorage
+ Amazonka.Redshift: data DescribeStorageResponse
+ Amazonka.Redshift: data DescribeTableRestoreStatus
+ Amazonka.Redshift: data DescribeTableRestoreStatusResponse
+ Amazonka.Redshift: data DescribeTags
+ Amazonka.Redshift: data DescribeTagsResponse
+ Amazonka.Redshift: data DescribeUsageLimits
+ Amazonka.Redshift: data DescribeUsageLimitsResponse
+ Amazonka.Redshift: data DisableLogging
+ Amazonka.Redshift: data DisableSnapshotCopy
+ Amazonka.Redshift: data DisableSnapshotCopyResponse
+ Amazonka.Redshift: data DisassociateDataShareConsumer
+ Amazonka.Redshift: data EC2SecurityGroup
+ Amazonka.Redshift: data ElasticIpStatus
+ Amazonka.Redshift: data EnableLogging
+ Amazonka.Redshift: data EnableSnapshotCopy
+ Amazonka.Redshift: data EnableSnapshotCopyResponse
+ Amazonka.Redshift: data Endpoint
+ Amazonka.Redshift: data EndpointAccess
+ Amazonka.Redshift: data EndpointAuthorization
+ Amazonka.Redshift: data Event
+ Amazonka.Redshift: data EventCategoriesMap
+ Amazonka.Redshift: data EventInfoMap
+ Amazonka.Redshift: data EventSubscription
+ Amazonka.Redshift: data GetClusterCredentials
+ Amazonka.Redshift: data GetClusterCredentialsResponse
+ Amazonka.Redshift: data GetClusterCredentialsWithIAM
+ Amazonka.Redshift: data GetClusterCredentialsWithIAMResponse
+ Amazonka.Redshift: data GetReservedNodeExchangeConfigurationOptions
+ Amazonka.Redshift: data GetReservedNodeExchangeConfigurationOptionsResponse
+ Amazonka.Redshift: data GetReservedNodeExchangeOfferings
+ Amazonka.Redshift: data GetReservedNodeExchangeOfferingsResponse
+ Amazonka.Redshift: data HsmClientCertificate
+ Amazonka.Redshift: data HsmConfiguration
+ Amazonka.Redshift: data HsmStatus
+ Amazonka.Redshift: data IPRange
+ Amazonka.Redshift: data LoggingStatus
+ Amazonka.Redshift: data MaintenanceTrack
+ Amazonka.Redshift: data ModifyAquaConfiguration
+ Amazonka.Redshift: data ModifyAquaConfigurationResponse
+ Amazonka.Redshift: data ModifyAuthenticationProfile
+ Amazonka.Redshift: data ModifyAuthenticationProfileResponse
+ Amazonka.Redshift: data ModifyCluster
+ Amazonka.Redshift: data ModifyClusterDbRevision
+ Amazonka.Redshift: data ModifyClusterDbRevisionResponse
+ Amazonka.Redshift: data ModifyClusterIamRoles
+ Amazonka.Redshift: data ModifyClusterIamRolesResponse
+ Amazonka.Redshift: data ModifyClusterMaintenance
+ Amazonka.Redshift: data ModifyClusterMaintenanceResponse
+ Amazonka.Redshift: data ModifyClusterParameterGroup
+ Amazonka.Redshift: data ModifyClusterResponse
+ Amazonka.Redshift: data ModifyClusterSnapshot
+ Amazonka.Redshift: data ModifyClusterSnapshotResponse
+ Amazonka.Redshift: data ModifyClusterSnapshotSchedule
+ Amazonka.Redshift: data ModifyClusterSnapshotScheduleResponse
+ Amazonka.Redshift: data ModifyClusterSubnetGroup
+ Amazonka.Redshift: data ModifyClusterSubnetGroupResponse
+ Amazonka.Redshift: data ModifyEndpointAccess
+ Amazonka.Redshift: data ModifyEventSubscription
+ Amazonka.Redshift: data ModifyEventSubscriptionResponse
+ Amazonka.Redshift: data ModifyScheduledAction
+ Amazonka.Redshift: data ModifySnapshotCopyRetentionPeriod
+ Amazonka.Redshift: data ModifySnapshotCopyRetentionPeriodResponse
+ Amazonka.Redshift: data ModifySnapshotSchedule
+ Amazonka.Redshift: data ModifyUsageLimit
+ Amazonka.Redshift: data NetworkInterface
+ Amazonka.Redshift: data NodeConfigurationOption
+ Amazonka.Redshift: data NodeConfigurationOptionsFilter
+ Amazonka.Redshift: data OrderableClusterOption
+ Amazonka.Redshift: data Parameter
+ Amazonka.Redshift: data PartnerIntegrationInfo
+ Amazonka.Redshift: data PartnerIntegrationInputMessage
+ Amazonka.Redshift: data PartnerIntegrationOutputMessage
+ Amazonka.Redshift: data PauseCluster
+ Amazonka.Redshift: data PauseClusterMessage
+ Amazonka.Redshift: data PauseClusterResponse
+ Amazonka.Redshift: data PendingModifiedValues
+ Amazonka.Redshift: data PurchaseReservedNodeOffering
+ Amazonka.Redshift: data PurchaseReservedNodeOfferingResponse
+ Amazonka.Redshift: data RebootCluster
+ Amazonka.Redshift: data RebootClusterResponse
+ Amazonka.Redshift: data RecurringCharge
+ Amazonka.Redshift: data RejectDataShare
+ Amazonka.Redshift: data ReservedNode
+ Amazonka.Redshift: data ReservedNodeConfigurationOption
+ Amazonka.Redshift: data ReservedNodeExchangeStatus
+ Amazonka.Redshift: data ReservedNodeOffering
+ Amazonka.Redshift: data ResetClusterParameterGroup
+ Amazonka.Redshift: data ResizeCluster
+ Amazonka.Redshift: data ResizeClusterMessage
+ Amazonka.Redshift: data ResizeClusterResponse
+ Amazonka.Redshift: data ResizeInfo
+ Amazonka.Redshift: data ResizeProgressMessage
+ Amazonka.Redshift: data RestoreFromClusterSnapshot
+ Amazonka.Redshift: data RestoreFromClusterSnapshotResponse
+ Amazonka.Redshift: data RestoreStatus
+ Amazonka.Redshift: data RestoreTableFromClusterSnapshot
+ Amazonka.Redshift: data RestoreTableFromClusterSnapshotResponse
+ Amazonka.Redshift: data ResumeCluster
+ Amazonka.Redshift: data ResumeClusterMessage
+ Amazonka.Redshift: data ResumeClusterResponse
+ Amazonka.Redshift: data RevisionTarget
+ Amazonka.Redshift: data RevokeClusterSecurityGroupIngress
+ Amazonka.Redshift: data RevokeClusterSecurityGroupIngressResponse
+ Amazonka.Redshift: data RevokeEndpointAccess
+ Amazonka.Redshift: data RevokeSnapshotAccess
+ Amazonka.Redshift: data RevokeSnapshotAccessResponse
+ Amazonka.Redshift: data RotateEncryptionKey
+ Amazonka.Redshift: data RotateEncryptionKeyResponse
+ Amazonka.Redshift: data ScheduledAction
+ Amazonka.Redshift: data ScheduledActionFilter
+ Amazonka.Redshift: data ScheduledActionType
+ Amazonka.Redshift: data Snapshot
+ Amazonka.Redshift: data SnapshotCopyGrant
+ Amazonka.Redshift: data SnapshotErrorMessage
+ Amazonka.Redshift: data SnapshotSchedule
+ Amazonka.Redshift: data SnapshotSortingEntity
+ Amazonka.Redshift: data Subnet
+ Amazonka.Redshift: data SupportedOperation
+ Amazonka.Redshift: data SupportedPlatform
+ Amazonka.Redshift: data TableRestoreStatus
+ Amazonka.Redshift: data Tag
+ Amazonka.Redshift: data TaggedResource
+ Amazonka.Redshift: data UpdatePartnerStatus
+ Amazonka.Redshift: data UpdateTarget
+ Amazonka.Redshift: data UsageLimit
+ Amazonka.Redshift: data VpcEndpoint
+ Amazonka.Redshift: data VpcSecurityGroupMembership
+ Amazonka.Redshift: defaultService :: Service
+ Amazonka.Redshift: newAcceptReservedNodeExchange :: Text -> Text -> AcceptReservedNodeExchange
+ Amazonka.Redshift: newAcceptReservedNodeExchangeResponse :: Int -> AcceptReservedNodeExchangeResponse
+ Amazonka.Redshift: newAccountAttribute :: AccountAttribute
+ Amazonka.Redshift: newAccountWithRestoreAccess :: AccountWithRestoreAccess
+ Amazonka.Redshift: newAddPartner :: Text -> Text -> Text -> Text -> AddPartner
+ Amazonka.Redshift: newAquaConfiguration :: AquaConfiguration
+ Amazonka.Redshift: newAssociateDataShareConsumer :: Text -> AssociateDataShareConsumer
+ Amazonka.Redshift: newAttributeValueTarget :: AttributeValueTarget
+ Amazonka.Redshift: newAuthenticationProfile :: AuthenticationProfile
+ Amazonka.Redshift: newAuthorizeClusterSecurityGroupIngress :: Text -> AuthorizeClusterSecurityGroupIngress
+ Amazonka.Redshift: newAuthorizeClusterSecurityGroupIngressResponse :: Int -> AuthorizeClusterSecurityGroupIngressResponse
+ Amazonka.Redshift: newAuthorizeDataShare :: Text -> Text -> AuthorizeDataShare
+ Amazonka.Redshift: newAuthorizeEndpointAccess :: Text -> AuthorizeEndpointAccess
+ Amazonka.Redshift: newAuthorizeSnapshotAccess :: Text -> AuthorizeSnapshotAccess
+ Amazonka.Redshift: newAuthorizeSnapshotAccessResponse :: Int -> AuthorizeSnapshotAccessResponse
+ Amazonka.Redshift: newAvailabilityZone :: AvailabilityZone
+ Amazonka.Redshift: newBatchDeleteClusterSnapshots :: BatchDeleteClusterSnapshots
+ Amazonka.Redshift: newBatchDeleteClusterSnapshotsResponse :: Int -> BatchDeleteClusterSnapshotsResponse
+ Amazonka.Redshift: newBatchModifyClusterSnapshots :: BatchModifyClusterSnapshots
+ Amazonka.Redshift: newBatchModifyClusterSnapshotsResponse :: Int -> BatchModifyClusterSnapshotsResponse
+ Amazonka.Redshift: newCancelResize :: Text -> CancelResize
+ Amazonka.Redshift: newCluster :: Cluster
+ Amazonka.Redshift: newClusterAssociatedToSchedule :: ClusterAssociatedToSchedule
+ Amazonka.Redshift: newClusterAvailable :: Wait DescribeClusters
+ Amazonka.Redshift: newClusterDbRevision :: ClusterDbRevision
+ Amazonka.Redshift: newClusterDeleted :: Wait DescribeClusters
+ Amazonka.Redshift: newClusterIamRole :: ClusterIamRole
+ Amazonka.Redshift: newClusterNode :: ClusterNode
+ Amazonka.Redshift: newClusterParameterGroup :: ClusterParameterGroup
+ Amazonka.Redshift: newClusterParameterGroupNameMessage :: ClusterParameterGroupNameMessage
+ Amazonka.Redshift: newClusterParameterGroupStatus :: ClusterParameterGroupStatus
+ Amazonka.Redshift: newClusterParameterStatus :: ClusterParameterStatus
+ Amazonka.Redshift: newClusterRestored :: Wait DescribeClusters
+ Amazonka.Redshift: newClusterSecurityGroup :: ClusterSecurityGroup
+ Amazonka.Redshift: newClusterSecurityGroupMembership :: ClusterSecurityGroupMembership
+ Amazonka.Redshift: newClusterSnapshotCopyStatus :: ClusterSnapshotCopyStatus
+ Amazonka.Redshift: newClusterSubnetGroup :: ClusterSubnetGroup
+ Amazonka.Redshift: newClusterVersion :: ClusterVersion
+ Amazonka.Redshift: newCopyClusterSnapshot :: Text -> Text -> CopyClusterSnapshot
+ Amazonka.Redshift: newCopyClusterSnapshotResponse :: Int -> CopyClusterSnapshotResponse
+ Amazonka.Redshift: newCreateAuthenticationProfile :: Text -> Text -> CreateAuthenticationProfile
+ Amazonka.Redshift: newCreateAuthenticationProfileResponse :: Int -> CreateAuthenticationProfileResponse
+ Amazonka.Redshift: newCreateCluster :: Text -> Text -> Text -> Text -> CreateCluster
+ Amazonka.Redshift: newCreateClusterParameterGroup :: Text -> Text -> Text -> CreateClusterParameterGroup
+ Amazonka.Redshift: newCreateClusterParameterGroupResponse :: Int -> CreateClusterParameterGroupResponse
+ Amazonka.Redshift: newCreateClusterResponse :: Int -> CreateClusterResponse
+ Amazonka.Redshift: newCreateClusterSecurityGroup :: Text -> Text -> CreateClusterSecurityGroup
+ Amazonka.Redshift: newCreateClusterSecurityGroupResponse :: Int -> CreateClusterSecurityGroupResponse
+ Amazonka.Redshift: newCreateClusterSnapshot :: Text -> Text -> CreateClusterSnapshot
+ Amazonka.Redshift: newCreateClusterSnapshotResponse :: Int -> CreateClusterSnapshotResponse
+ Amazonka.Redshift: newCreateClusterSubnetGroup :: Text -> Text -> CreateClusterSubnetGroup
+ Amazonka.Redshift: newCreateClusterSubnetGroupResponse :: Int -> CreateClusterSubnetGroupResponse
+ Amazonka.Redshift: newCreateEndpointAccess :: Text -> Text -> CreateEndpointAccess
+ Amazonka.Redshift: newCreateEventSubscription :: Text -> Text -> CreateEventSubscription
+ Amazonka.Redshift: newCreateEventSubscriptionResponse :: Int -> CreateEventSubscriptionResponse
+ Amazonka.Redshift: newCreateHsmClientCertificate :: Text -> CreateHsmClientCertificate
+ Amazonka.Redshift: newCreateHsmClientCertificateResponse :: Int -> CreateHsmClientCertificateResponse
+ Amazonka.Redshift: newCreateHsmConfiguration :: Text -> Text -> Text -> Text -> Text -> Text -> CreateHsmConfiguration
+ Amazonka.Redshift: newCreateHsmConfigurationResponse :: Int -> CreateHsmConfigurationResponse
+ Amazonka.Redshift: newCreateScheduledAction :: Text -> ScheduledActionType -> Text -> Text -> CreateScheduledAction
+ Amazonka.Redshift: newCreateSnapshotCopyGrant :: Text -> CreateSnapshotCopyGrant
+ Amazonka.Redshift: newCreateSnapshotCopyGrantResponse :: Int -> CreateSnapshotCopyGrantResponse
+ Amazonka.Redshift: newCreateSnapshotSchedule :: CreateSnapshotSchedule
+ Amazonka.Redshift: newCreateTags :: Text -> CreateTags
+ Amazonka.Redshift: newCreateTagsResponse :: CreateTagsResponse
+ Amazonka.Redshift: newCreateUsageLimit :: Text -> UsageLimitFeatureType -> UsageLimitLimitType -> Integer -> CreateUsageLimit
+ Amazonka.Redshift: newDataShare :: DataShare
+ Amazonka.Redshift: newDataShareAssociation :: DataShareAssociation
+ Amazonka.Redshift: newDataTransferProgress :: DataTransferProgress
+ Amazonka.Redshift: newDeauthorizeDataShare :: Text -> Text -> DeauthorizeDataShare
+ Amazonka.Redshift: newDefaultClusterParameters :: DefaultClusterParameters
+ Amazonka.Redshift: newDeferredMaintenanceWindow :: DeferredMaintenanceWindow
+ Amazonka.Redshift: newDeleteAuthenticationProfile :: Text -> DeleteAuthenticationProfile
+ Amazonka.Redshift: newDeleteAuthenticationProfileResponse :: Int -> DeleteAuthenticationProfileResponse
+ Amazonka.Redshift: newDeleteCluster :: Text -> DeleteCluster
+ Amazonka.Redshift: newDeleteClusterParameterGroup :: Text -> DeleteClusterParameterGroup
+ Amazonka.Redshift: newDeleteClusterParameterGroupResponse :: DeleteClusterParameterGroupResponse
+ Amazonka.Redshift: newDeleteClusterResponse :: Int -> DeleteClusterResponse
+ Amazonka.Redshift: newDeleteClusterSecurityGroup :: Text -> DeleteClusterSecurityGroup
+ Amazonka.Redshift: newDeleteClusterSecurityGroupResponse :: DeleteClusterSecurityGroupResponse
+ Amazonka.Redshift: newDeleteClusterSnapshot :: Text -> DeleteClusterSnapshot
+ Amazonka.Redshift: newDeleteClusterSnapshotMessage :: Text -> DeleteClusterSnapshotMessage
+ Amazonka.Redshift: newDeleteClusterSnapshotResponse :: Int -> DeleteClusterSnapshotResponse
+ Amazonka.Redshift: newDeleteClusterSubnetGroup :: Text -> DeleteClusterSubnetGroup
+ Amazonka.Redshift: newDeleteClusterSubnetGroupResponse :: DeleteClusterSubnetGroupResponse
+ Amazonka.Redshift: newDeleteEndpointAccess :: Text -> DeleteEndpointAccess
+ Amazonka.Redshift: newDeleteEventSubscription :: Text -> DeleteEventSubscription
+ Amazonka.Redshift: newDeleteEventSubscriptionResponse :: DeleteEventSubscriptionResponse
+ Amazonka.Redshift: newDeleteHsmClientCertificate :: Text -> DeleteHsmClientCertificate
+ Amazonka.Redshift: newDeleteHsmClientCertificateResponse :: DeleteHsmClientCertificateResponse
+ Amazonka.Redshift: newDeleteHsmConfiguration :: Text -> DeleteHsmConfiguration
+ Amazonka.Redshift: newDeleteHsmConfigurationResponse :: DeleteHsmConfigurationResponse
+ Amazonka.Redshift: newDeletePartner :: Text -> Text -> Text -> Text -> DeletePartner
+ Amazonka.Redshift: newDeleteScheduledAction :: Text -> DeleteScheduledAction
+ Amazonka.Redshift: newDeleteScheduledActionResponse :: DeleteScheduledActionResponse
+ Amazonka.Redshift: newDeleteSnapshotCopyGrant :: Text -> DeleteSnapshotCopyGrant
+ Amazonka.Redshift: newDeleteSnapshotCopyGrantResponse :: DeleteSnapshotCopyGrantResponse
+ Amazonka.Redshift: newDeleteSnapshotSchedule :: Text -> DeleteSnapshotSchedule
+ Amazonka.Redshift: newDeleteSnapshotScheduleResponse :: DeleteSnapshotScheduleResponse
+ Amazonka.Redshift: newDeleteTags :: Text -> DeleteTags
+ Amazonka.Redshift: newDeleteTagsResponse :: DeleteTagsResponse
+ Amazonka.Redshift: newDeleteUsageLimit :: Text -> DeleteUsageLimit
+ Amazonka.Redshift: newDeleteUsageLimitResponse :: DeleteUsageLimitResponse
+ Amazonka.Redshift: newDescribeAccountAttributes :: DescribeAccountAttributes
+ Amazonka.Redshift: newDescribeAccountAttributesResponse :: Int -> DescribeAccountAttributesResponse
+ Amazonka.Redshift: newDescribeAuthenticationProfiles :: DescribeAuthenticationProfiles
+ Amazonka.Redshift: newDescribeAuthenticationProfilesResponse :: Int -> DescribeAuthenticationProfilesResponse
+ Amazonka.Redshift: newDescribeClusterDbRevisions :: DescribeClusterDbRevisions
+ Amazonka.Redshift: newDescribeClusterDbRevisionsResponse :: Int -> DescribeClusterDbRevisionsResponse
+ Amazonka.Redshift: newDescribeClusterParameterGroups :: DescribeClusterParameterGroups
+ Amazonka.Redshift: newDescribeClusterParameterGroupsResponse :: Int -> DescribeClusterParameterGroupsResponse
+ Amazonka.Redshift: newDescribeClusterParameters :: Text -> DescribeClusterParameters
+ Amazonka.Redshift: newDescribeClusterParametersResponse :: Int -> DescribeClusterParametersResponse
+ Amazonka.Redshift: newDescribeClusterSecurityGroups :: DescribeClusterSecurityGroups
+ Amazonka.Redshift: newDescribeClusterSecurityGroupsResponse :: Int -> DescribeClusterSecurityGroupsResponse
+ Amazonka.Redshift: newDescribeClusterSnapshots :: DescribeClusterSnapshots
+ Amazonka.Redshift: newDescribeClusterSnapshotsResponse :: Int -> DescribeClusterSnapshotsResponse
+ Amazonka.Redshift: newDescribeClusterSubnetGroups :: DescribeClusterSubnetGroups
+ Amazonka.Redshift: newDescribeClusterSubnetGroupsResponse :: Int -> DescribeClusterSubnetGroupsResponse
+ Amazonka.Redshift: newDescribeClusterTracks :: DescribeClusterTracks
+ Amazonka.Redshift: newDescribeClusterTracksResponse :: Int -> DescribeClusterTracksResponse
+ Amazonka.Redshift: newDescribeClusterVersions :: DescribeClusterVersions
+ Amazonka.Redshift: newDescribeClusterVersionsResponse :: Int -> DescribeClusterVersionsResponse
+ Amazonka.Redshift: newDescribeClusters :: DescribeClusters
+ Amazonka.Redshift: newDescribeClustersResponse :: Int -> DescribeClustersResponse
+ Amazonka.Redshift: newDescribeDataShares :: DescribeDataShares
+ Amazonka.Redshift: newDescribeDataSharesForConsumer :: DescribeDataSharesForConsumer
+ Amazonka.Redshift: newDescribeDataSharesForConsumerResponse :: Int -> DescribeDataSharesForConsumerResponse
+ Amazonka.Redshift: newDescribeDataSharesForProducer :: DescribeDataSharesForProducer
+ Amazonka.Redshift: newDescribeDataSharesForProducerResponse :: Int -> DescribeDataSharesForProducerResponse
+ Amazonka.Redshift: newDescribeDataSharesResponse :: Int -> DescribeDataSharesResponse
+ Amazonka.Redshift: newDescribeDefaultClusterParameters :: Text -> DescribeDefaultClusterParameters
+ Amazonka.Redshift: newDescribeDefaultClusterParametersResponse :: Int -> DefaultClusterParameters -> DescribeDefaultClusterParametersResponse
+ Amazonka.Redshift: newDescribeEndpointAccess :: DescribeEndpointAccess
+ Amazonka.Redshift: newDescribeEndpointAccessResponse :: Int -> DescribeEndpointAccessResponse
+ Amazonka.Redshift: newDescribeEndpointAuthorization :: DescribeEndpointAuthorization
+ Amazonka.Redshift: newDescribeEndpointAuthorizationResponse :: Int -> DescribeEndpointAuthorizationResponse
+ Amazonka.Redshift: newDescribeEventCategories :: DescribeEventCategories
+ Amazonka.Redshift: newDescribeEventCategoriesResponse :: Int -> DescribeEventCategoriesResponse
+ Amazonka.Redshift: newDescribeEventSubscriptions :: DescribeEventSubscriptions
+ Amazonka.Redshift: newDescribeEventSubscriptionsResponse :: Int -> DescribeEventSubscriptionsResponse
+ Amazonka.Redshift: newDescribeEvents :: DescribeEvents
+ Amazonka.Redshift: newDescribeEventsResponse :: Int -> DescribeEventsResponse
+ Amazonka.Redshift: newDescribeHsmClientCertificates :: DescribeHsmClientCertificates
+ Amazonka.Redshift: newDescribeHsmClientCertificatesResponse :: Int -> DescribeHsmClientCertificatesResponse
+ Amazonka.Redshift: newDescribeHsmConfigurations :: DescribeHsmConfigurations
+ Amazonka.Redshift: newDescribeHsmConfigurationsResponse :: Int -> DescribeHsmConfigurationsResponse
+ Amazonka.Redshift: newDescribeLoggingStatus :: Text -> DescribeLoggingStatus
+ Amazonka.Redshift: newDescribeNodeConfigurationOptions :: ActionType -> DescribeNodeConfigurationOptions
+ Amazonka.Redshift: newDescribeNodeConfigurationOptionsResponse :: Int -> DescribeNodeConfigurationOptionsResponse
+ Amazonka.Redshift: newDescribeOrderableClusterOptions :: DescribeOrderableClusterOptions
+ Amazonka.Redshift: newDescribeOrderableClusterOptionsResponse :: Int -> DescribeOrderableClusterOptionsResponse
+ Amazonka.Redshift: newDescribePartners :: Text -> Text -> DescribePartners
+ Amazonka.Redshift: newDescribePartnersResponse :: Int -> DescribePartnersResponse
+ Amazonka.Redshift: newDescribeReservedNodeExchangeStatus :: DescribeReservedNodeExchangeStatus
+ Amazonka.Redshift: newDescribeReservedNodeExchangeStatusResponse :: Int -> DescribeReservedNodeExchangeStatusResponse
+ Amazonka.Redshift: newDescribeReservedNodeOfferings :: DescribeReservedNodeOfferings
+ Amazonka.Redshift: newDescribeReservedNodeOfferingsResponse :: Int -> DescribeReservedNodeOfferingsResponse
+ Amazonka.Redshift: newDescribeReservedNodes :: DescribeReservedNodes
+ Amazonka.Redshift: newDescribeReservedNodesResponse :: Int -> DescribeReservedNodesResponse
+ Amazonka.Redshift: newDescribeResize :: Text -> DescribeResize
+ Amazonka.Redshift: newDescribeScheduledActions :: DescribeScheduledActions
+ Amazonka.Redshift: newDescribeScheduledActionsResponse :: Int -> DescribeScheduledActionsResponse
+ Amazonka.Redshift: newDescribeSnapshotCopyGrants :: DescribeSnapshotCopyGrants
+ Amazonka.Redshift: newDescribeSnapshotCopyGrantsResponse :: Int -> DescribeSnapshotCopyGrantsResponse
+ Amazonka.Redshift: newDescribeSnapshotSchedules :: DescribeSnapshotSchedules
+ Amazonka.Redshift: newDescribeSnapshotSchedulesResponse :: Int -> DescribeSnapshotSchedulesResponse
+ Amazonka.Redshift: newDescribeStorage :: DescribeStorage
+ Amazonka.Redshift: newDescribeStorageResponse :: Int -> DescribeStorageResponse
+ Amazonka.Redshift: newDescribeTableRestoreStatus :: DescribeTableRestoreStatus
+ Amazonka.Redshift: newDescribeTableRestoreStatusResponse :: Int -> DescribeTableRestoreStatusResponse
+ Amazonka.Redshift: newDescribeTags :: DescribeTags
+ Amazonka.Redshift: newDescribeTagsResponse :: Int -> DescribeTagsResponse
+ Amazonka.Redshift: newDescribeUsageLimits :: DescribeUsageLimits
+ Amazonka.Redshift: newDescribeUsageLimitsResponse :: Int -> DescribeUsageLimitsResponse
+ Amazonka.Redshift: newDisableLogging :: Text -> DisableLogging
+ Amazonka.Redshift: newDisableSnapshotCopy :: Text -> DisableSnapshotCopy
+ Amazonka.Redshift: newDisableSnapshotCopyResponse :: Int -> DisableSnapshotCopyResponse
+ Amazonka.Redshift: newDisassociateDataShareConsumer :: Text -> DisassociateDataShareConsumer
+ Amazonka.Redshift: newEC2SecurityGroup :: EC2SecurityGroup
+ Amazonka.Redshift: newElasticIpStatus :: ElasticIpStatus
+ Amazonka.Redshift: newEnableLogging :: Text -> EnableLogging
+ Amazonka.Redshift: newEnableSnapshotCopy :: Text -> Text -> EnableSnapshotCopy
+ Amazonka.Redshift: newEnableSnapshotCopyResponse :: Int -> EnableSnapshotCopyResponse
+ Amazonka.Redshift: newEndpoint :: Endpoint
+ Amazonka.Redshift: newEndpointAccess :: EndpointAccess
+ Amazonka.Redshift: newEndpointAuthorization :: EndpointAuthorization
+ Amazonka.Redshift: newEvent :: Event
+ Amazonka.Redshift: newEventCategoriesMap :: EventCategoriesMap
+ Amazonka.Redshift: newEventInfoMap :: EventInfoMap
+ Amazonka.Redshift: newEventSubscription :: EventSubscription
+ Amazonka.Redshift: newGetClusterCredentials :: Text -> Text -> GetClusterCredentials
+ Amazonka.Redshift: newGetClusterCredentialsResponse :: Int -> GetClusterCredentialsResponse
+ Amazonka.Redshift: newGetClusterCredentialsWithIAM :: Text -> GetClusterCredentialsWithIAM
+ Amazonka.Redshift: newGetClusterCredentialsWithIAMResponse :: Int -> GetClusterCredentialsWithIAMResponse
+ Amazonka.Redshift: newGetReservedNodeExchangeConfigurationOptions :: ReservedNodeExchangeActionType -> GetReservedNodeExchangeConfigurationOptions
+ Amazonka.Redshift: newGetReservedNodeExchangeConfigurationOptionsResponse :: Int -> GetReservedNodeExchangeConfigurationOptionsResponse
+ Amazonka.Redshift: newGetReservedNodeExchangeOfferings :: Text -> GetReservedNodeExchangeOfferings
+ Amazonka.Redshift: newGetReservedNodeExchangeOfferingsResponse :: Int -> GetReservedNodeExchangeOfferingsResponse
+ Amazonka.Redshift: newHsmClientCertificate :: HsmClientCertificate
+ Amazonka.Redshift: newHsmConfiguration :: HsmConfiguration
+ Amazonka.Redshift: newHsmStatus :: HsmStatus
+ Amazonka.Redshift: newIPRange :: IPRange
+ Amazonka.Redshift: newLoggingStatus :: LoggingStatus
+ Amazonka.Redshift: newMaintenanceTrack :: MaintenanceTrack
+ Amazonka.Redshift: newModifyAquaConfiguration :: Text -> ModifyAquaConfiguration
+ Amazonka.Redshift: newModifyAquaConfigurationResponse :: Int -> ModifyAquaConfigurationResponse
+ Amazonka.Redshift: newModifyAuthenticationProfile :: Text -> Text -> ModifyAuthenticationProfile
+ Amazonka.Redshift: newModifyAuthenticationProfileResponse :: Int -> ModifyAuthenticationProfileResponse
+ Amazonka.Redshift: newModifyCluster :: Text -> ModifyCluster
+ Amazonka.Redshift: newModifyClusterDbRevision :: Text -> Text -> ModifyClusterDbRevision
+ Amazonka.Redshift: newModifyClusterDbRevisionResponse :: Int -> ModifyClusterDbRevisionResponse
+ Amazonka.Redshift: newModifyClusterIamRoles :: Text -> ModifyClusterIamRoles
+ Amazonka.Redshift: newModifyClusterIamRolesResponse :: Int -> ModifyClusterIamRolesResponse
+ Amazonka.Redshift: newModifyClusterMaintenance :: Text -> ModifyClusterMaintenance
+ Amazonka.Redshift: newModifyClusterMaintenanceResponse :: Int -> ModifyClusterMaintenanceResponse
+ Amazonka.Redshift: newModifyClusterParameterGroup :: Text -> ModifyClusterParameterGroup
+ Amazonka.Redshift: newModifyClusterResponse :: Int -> ModifyClusterResponse
+ Amazonka.Redshift: newModifyClusterSnapshot :: Text -> ModifyClusterSnapshot
+ Amazonka.Redshift: newModifyClusterSnapshotResponse :: Int -> ModifyClusterSnapshotResponse
+ Amazonka.Redshift: newModifyClusterSnapshotSchedule :: Text -> ModifyClusterSnapshotSchedule
+ Amazonka.Redshift: newModifyClusterSnapshotScheduleResponse :: ModifyClusterSnapshotScheduleResponse
+ Amazonka.Redshift: newModifyClusterSubnetGroup :: Text -> ModifyClusterSubnetGroup
+ Amazonka.Redshift: newModifyClusterSubnetGroupResponse :: Int -> ModifyClusterSubnetGroupResponse
+ Amazonka.Redshift: newModifyEndpointAccess :: Text -> ModifyEndpointAccess
+ Amazonka.Redshift: newModifyEventSubscription :: Text -> ModifyEventSubscription
+ Amazonka.Redshift: newModifyEventSubscriptionResponse :: Int -> ModifyEventSubscriptionResponse
+ Amazonka.Redshift: newModifyScheduledAction :: Text -> ModifyScheduledAction
+ Amazonka.Redshift: newModifySnapshotCopyRetentionPeriod :: Text -> Int -> ModifySnapshotCopyRetentionPeriod
+ Amazonka.Redshift: newModifySnapshotCopyRetentionPeriodResponse :: Int -> ModifySnapshotCopyRetentionPeriodResponse
+ Amazonka.Redshift: newModifySnapshotSchedule :: Text -> ModifySnapshotSchedule
+ Amazonka.Redshift: newModifyUsageLimit :: Text -> ModifyUsageLimit
+ Amazonka.Redshift: newNetworkInterface :: NetworkInterface
+ Amazonka.Redshift: newNodeConfigurationOption :: NodeConfigurationOption
+ Amazonka.Redshift: newNodeConfigurationOptionsFilter :: NodeConfigurationOptionsFilter
+ Amazonka.Redshift: newOrderableClusterOption :: OrderableClusterOption
+ Amazonka.Redshift: newParameter :: Parameter
+ Amazonka.Redshift: newPartnerIntegrationInfo :: PartnerIntegrationInfo
+ Amazonka.Redshift: newPartnerIntegrationInputMessage :: Text -> Text -> Text -> Text -> PartnerIntegrationInputMessage
+ Amazonka.Redshift: newPartnerIntegrationOutputMessage :: PartnerIntegrationOutputMessage
+ Amazonka.Redshift: newPauseCluster :: Text -> PauseCluster
+ Amazonka.Redshift: newPauseClusterMessage :: Text -> PauseClusterMessage
+ Amazonka.Redshift: newPauseClusterResponse :: Int -> PauseClusterResponse
+ Amazonka.Redshift: newPendingModifiedValues :: PendingModifiedValues
+ Amazonka.Redshift: newPurchaseReservedNodeOffering :: Text -> PurchaseReservedNodeOffering
+ Amazonka.Redshift: newPurchaseReservedNodeOfferingResponse :: Int -> PurchaseReservedNodeOfferingResponse
+ Amazonka.Redshift: newRebootCluster :: Text -> RebootCluster
+ Amazonka.Redshift: newRebootClusterResponse :: Int -> RebootClusterResponse
+ Amazonka.Redshift: newRecurringCharge :: RecurringCharge
+ Amazonka.Redshift: newRejectDataShare :: Text -> RejectDataShare
+ Amazonka.Redshift: newReservedNode :: ReservedNode
+ Amazonka.Redshift: newReservedNodeConfigurationOption :: ReservedNodeConfigurationOption
+ Amazonka.Redshift: newReservedNodeExchangeStatus :: ReservedNodeExchangeStatus
+ Amazonka.Redshift: newReservedNodeOffering :: ReservedNodeOffering
+ Amazonka.Redshift: newResetClusterParameterGroup :: Text -> ResetClusterParameterGroup
+ Amazonka.Redshift: newResizeCluster :: Text -> ResizeCluster
+ Amazonka.Redshift: newResizeClusterMessage :: Text -> ResizeClusterMessage
+ Amazonka.Redshift: newResizeClusterResponse :: Int -> ResizeClusterResponse
+ Amazonka.Redshift: newResizeInfo :: ResizeInfo
+ Amazonka.Redshift: newResizeProgressMessage :: ResizeProgressMessage
+ Amazonka.Redshift: newRestoreFromClusterSnapshot :: Text -> RestoreFromClusterSnapshot
+ Amazonka.Redshift: newRestoreFromClusterSnapshotResponse :: Int -> RestoreFromClusterSnapshotResponse
+ Amazonka.Redshift: newRestoreStatus :: RestoreStatus
+ Amazonka.Redshift: newRestoreTableFromClusterSnapshot :: Text -> Text -> Text -> Text -> Text -> RestoreTableFromClusterSnapshot
+ Amazonka.Redshift: newRestoreTableFromClusterSnapshotResponse :: Int -> RestoreTableFromClusterSnapshotResponse
+ Amazonka.Redshift: newResumeCluster :: Text -> ResumeCluster
+ Amazonka.Redshift: newResumeClusterMessage :: Text -> ResumeClusterMessage
+ Amazonka.Redshift: newResumeClusterResponse :: Int -> ResumeClusterResponse
+ Amazonka.Redshift: newRevisionTarget :: RevisionTarget
+ Amazonka.Redshift: newRevokeClusterSecurityGroupIngress :: Text -> RevokeClusterSecurityGroupIngress
+ Amazonka.Redshift: newRevokeClusterSecurityGroupIngressResponse :: Int -> RevokeClusterSecurityGroupIngressResponse
+ Amazonka.Redshift: newRevokeEndpointAccess :: RevokeEndpointAccess
+ Amazonka.Redshift: newRevokeSnapshotAccess :: Text -> RevokeSnapshotAccess
+ Amazonka.Redshift: newRevokeSnapshotAccessResponse :: Int -> RevokeSnapshotAccessResponse
+ Amazonka.Redshift: newRotateEncryptionKey :: Text -> RotateEncryptionKey
+ Amazonka.Redshift: newRotateEncryptionKeyResponse :: Int -> RotateEncryptionKeyResponse
+ Amazonka.Redshift: newScheduledAction :: ScheduledAction
+ Amazonka.Redshift: newScheduledActionFilter :: ScheduledActionFilterName -> ScheduledActionFilter
+ Amazonka.Redshift: newScheduledActionType :: ScheduledActionType
+ Amazonka.Redshift: newSnapshot :: Snapshot
+ Amazonka.Redshift: newSnapshotAvailable :: Wait DescribeClusterSnapshots
+ Amazonka.Redshift: newSnapshotCopyGrant :: SnapshotCopyGrant
+ Amazonka.Redshift: newSnapshotErrorMessage :: SnapshotErrorMessage
+ Amazonka.Redshift: newSnapshotSchedule :: SnapshotSchedule
+ Amazonka.Redshift: newSnapshotSortingEntity :: SnapshotAttributeToSortBy -> SnapshotSortingEntity
+ Amazonka.Redshift: newSubnet :: Subnet
+ Amazonka.Redshift: newSupportedOperation :: SupportedOperation
+ Amazonka.Redshift: newSupportedPlatform :: SupportedPlatform
+ Amazonka.Redshift: newTableRestoreStatus :: TableRestoreStatus
+ Amazonka.Redshift: newTag :: Tag
+ Amazonka.Redshift: newTaggedResource :: TaggedResource
+ Amazonka.Redshift: newUpdatePartnerStatus :: Text -> Text -> Text -> Text -> PartnerIntegrationStatus -> UpdatePartnerStatus
+ Amazonka.Redshift: newUpdateTarget :: UpdateTarget
+ Amazonka.Redshift: newUsageLimit :: UsageLimit
+ Amazonka.Redshift: newVpcEndpoint :: VpcEndpoint
+ Amazonka.Redshift: newVpcSecurityGroupMembership :: VpcSecurityGroupMembership
+ Amazonka.Redshift: newtype ActionType
+ Amazonka.Redshift: newtype AquaConfigurationStatus
+ Amazonka.Redshift: newtype AquaStatus
+ Amazonka.Redshift: newtype AuthorizationStatus
+ Amazonka.Redshift: newtype DataShareStatus
+ Amazonka.Redshift: newtype DataShareStatusForConsumer
+ Amazonka.Redshift: newtype DataShareStatusForProducer
+ Amazonka.Redshift: newtype LogDestinationType
+ Amazonka.Redshift: newtype Mode
+ Amazonka.Redshift: newtype NodeConfigurationOptionsFilterName
+ Amazonka.Redshift: newtype OperatorType
+ Amazonka.Redshift: newtype ParameterApplyType
+ Amazonka.Redshift: newtype PartnerIntegrationStatus
+ Amazonka.Redshift: newtype ReservedNodeExchangeActionType
+ Amazonka.Redshift: newtype ReservedNodeExchangeStatusType
+ Amazonka.Redshift: newtype ReservedNodeOfferingType
+ Amazonka.Redshift: newtype ScheduleState
+ Amazonka.Redshift: newtype ScheduledActionFilterName
+ Amazonka.Redshift: newtype ScheduledActionState
+ Amazonka.Redshift: newtype ScheduledActionTypeValues
+ Amazonka.Redshift: newtype SnapshotAttributeToSortBy
+ Amazonka.Redshift: newtype SortByOrder
+ Amazonka.Redshift: newtype SourceType
+ Amazonka.Redshift: newtype TableRestoreStatusType
+ Amazonka.Redshift: newtype UsageLimitBreachAction
+ Amazonka.Redshift: newtype UsageLimitFeatureType
+ Amazonka.Redshift: newtype UsageLimitLimitType
+ Amazonka.Redshift: newtype UsageLimitPeriod
+ Amazonka.Redshift: pattern ActionType_Recommend_node_config :: ActionType
+ Amazonka.Redshift: pattern ActionType_Resize_cluster :: ActionType
+ Amazonka.Redshift: pattern ActionType_Restore_cluster :: ActionType
+ Amazonka.Redshift: pattern AquaConfigurationStatus_Auto :: AquaConfigurationStatus
+ Amazonka.Redshift: pattern AquaConfigurationStatus_Disabled :: AquaConfigurationStatus
+ Amazonka.Redshift: pattern AquaConfigurationStatus_Enabled :: AquaConfigurationStatus
+ Amazonka.Redshift: pattern AquaStatus_Applying :: AquaStatus
+ Amazonka.Redshift: pattern AquaStatus_Disabled :: AquaStatus
+ Amazonka.Redshift: pattern AquaStatus_Enabled :: AquaStatus
+ Amazonka.Redshift: pattern AuthorizationStatus_Authorized :: AuthorizationStatus
+ Amazonka.Redshift: pattern AuthorizationStatus_Revoking :: AuthorizationStatus
+ Amazonka.Redshift: pattern DataShareStatusForConsumer_ACTIVE :: DataShareStatusForConsumer
+ Amazonka.Redshift: pattern DataShareStatusForConsumer_AVAILABLE :: DataShareStatusForConsumer
+ Amazonka.Redshift: pattern DataShareStatusForProducer_ACTIVE :: DataShareStatusForProducer
+ Amazonka.Redshift: pattern DataShareStatusForProducer_AUTHORIZED :: DataShareStatusForProducer
+ Amazonka.Redshift: pattern DataShareStatusForProducer_DEAUTHORIZED :: DataShareStatusForProducer
+ Amazonka.Redshift: pattern DataShareStatusForProducer_PENDING_AUTHORIZATION :: DataShareStatusForProducer
+ Amazonka.Redshift: pattern DataShareStatusForProducer_REJECTED :: DataShareStatusForProducer
+ Amazonka.Redshift: pattern DataShareStatus_ACTIVE :: DataShareStatus
+ Amazonka.Redshift: pattern DataShareStatus_AUTHORIZED :: DataShareStatus
+ Amazonka.Redshift: pattern DataShareStatus_AVAILABLE :: DataShareStatus
+ Amazonka.Redshift: pattern DataShareStatus_DEAUTHORIZED :: DataShareStatus
+ Amazonka.Redshift: pattern DataShareStatus_PENDING_AUTHORIZATION :: DataShareStatus
+ Amazonka.Redshift: pattern DataShareStatus_REJECTED :: DataShareStatus
+ Amazonka.Redshift: pattern LogDestinationType_Cloudwatch :: LogDestinationType
+ Amazonka.Redshift: pattern LogDestinationType_S3 :: LogDestinationType
+ Amazonka.Redshift: pattern Mode_High_performance :: Mode
+ Amazonka.Redshift: pattern Mode_Standard :: Mode
+ Amazonka.Redshift: pattern NodeConfigurationOptionsFilterName_EstimatedDiskUtilizationPercent :: NodeConfigurationOptionsFilterName
+ Amazonka.Redshift: pattern NodeConfigurationOptionsFilterName_Mode :: NodeConfigurationOptionsFilterName
+ Amazonka.Redshift: pattern NodeConfigurationOptionsFilterName_NodeType :: NodeConfigurationOptionsFilterName
+ Amazonka.Redshift: pattern NodeConfigurationOptionsFilterName_NumberOfNodes :: NodeConfigurationOptionsFilterName
+ Amazonka.Redshift: pattern OperatorType_Between :: OperatorType
+ Amazonka.Redshift: pattern OperatorType_Eq :: OperatorType
+ Amazonka.Redshift: pattern OperatorType_Ge :: OperatorType
+ Amazonka.Redshift: pattern OperatorType_Gt :: OperatorType
+ Amazonka.Redshift: pattern OperatorType_In :: OperatorType
+ Amazonka.Redshift: pattern OperatorType_Le :: OperatorType
+ Amazonka.Redshift: pattern OperatorType_Lt :: OperatorType
+ Amazonka.Redshift: pattern ParameterApplyType_Dynamic :: ParameterApplyType
+ Amazonka.Redshift: pattern ParameterApplyType_Static :: ParameterApplyType
+ Amazonka.Redshift: pattern PartnerIntegrationStatus_Active :: PartnerIntegrationStatus
+ Amazonka.Redshift: pattern PartnerIntegrationStatus_ConnectionFailure :: PartnerIntegrationStatus
+ Amazonka.Redshift: pattern PartnerIntegrationStatus_Inactive :: PartnerIntegrationStatus
+ Amazonka.Redshift: pattern PartnerIntegrationStatus_RuntimeFailure :: PartnerIntegrationStatus
+ Amazonka.Redshift: pattern ReservedNodeExchangeActionType_Resize_cluster :: ReservedNodeExchangeActionType
+ Amazonka.Redshift: pattern ReservedNodeExchangeActionType_Restore_cluster :: ReservedNodeExchangeActionType
+ Amazonka.Redshift: pattern ReservedNodeExchangeStatusType_FAILED :: ReservedNodeExchangeStatusType
+ Amazonka.Redshift: pattern ReservedNodeExchangeStatusType_IN_PROGRESS :: ReservedNodeExchangeStatusType
+ Amazonka.Redshift: pattern ReservedNodeExchangeStatusType_PENDING :: ReservedNodeExchangeStatusType
+ Amazonka.Redshift: pattern ReservedNodeExchangeStatusType_REQUESTED :: ReservedNodeExchangeStatusType
+ Amazonka.Redshift: pattern ReservedNodeExchangeStatusType_RETRYING :: ReservedNodeExchangeStatusType
+ Amazonka.Redshift: pattern ReservedNodeExchangeStatusType_SUCCEEDED :: ReservedNodeExchangeStatusType
+ Amazonka.Redshift: pattern ReservedNodeOfferingType_Regular :: ReservedNodeOfferingType
+ Amazonka.Redshift: pattern ReservedNodeOfferingType_Upgradable :: ReservedNodeOfferingType
+ Amazonka.Redshift: pattern ScheduleState_ACTIVE :: ScheduleState
+ Amazonka.Redshift: pattern ScheduleState_FAILED :: ScheduleState
+ Amazonka.Redshift: pattern ScheduleState_MODIFYING :: ScheduleState
+ Amazonka.Redshift: pattern ScheduledActionFilterName_Cluster_identifier :: ScheduledActionFilterName
+ Amazonka.Redshift: pattern ScheduledActionFilterName_Iam_role :: ScheduledActionFilterName
+ Amazonka.Redshift: pattern ScheduledActionState_ACTIVE :: ScheduledActionState
+ Amazonka.Redshift: pattern ScheduledActionState_DISABLED :: ScheduledActionState
+ Amazonka.Redshift: pattern ScheduledActionTypeValues_PauseCluster :: ScheduledActionTypeValues
+ Amazonka.Redshift: pattern ScheduledActionTypeValues_ResizeCluster :: ScheduledActionTypeValues
+ Amazonka.Redshift: pattern ScheduledActionTypeValues_ResumeCluster :: ScheduledActionTypeValues
+ Amazonka.Redshift: pattern SnapshotAttributeToSortBy_CREATE_TIME :: SnapshotAttributeToSortBy
+ Amazonka.Redshift: pattern SnapshotAttributeToSortBy_SOURCE_TYPE :: SnapshotAttributeToSortBy
+ Amazonka.Redshift: pattern SnapshotAttributeToSortBy_TOTAL_SIZE :: SnapshotAttributeToSortBy
+ Amazonka.Redshift: pattern SortByOrder_ASC :: SortByOrder
+ Amazonka.Redshift: pattern SortByOrder_DESC :: SortByOrder
+ Amazonka.Redshift: pattern SourceType_Cluster :: SourceType
+ Amazonka.Redshift: pattern SourceType_Cluster_parameter_group :: SourceType
+ Amazonka.Redshift: pattern SourceType_Cluster_security_group :: SourceType
+ Amazonka.Redshift: pattern SourceType_Cluster_snapshot :: SourceType
+ Amazonka.Redshift: pattern SourceType_Scheduled_action :: SourceType
+ Amazonka.Redshift: pattern TableRestoreStatusType_CANCELED :: TableRestoreStatusType
+ Amazonka.Redshift: pattern TableRestoreStatusType_FAILED :: TableRestoreStatusType
+ Amazonka.Redshift: pattern TableRestoreStatusType_IN_PROGRESS :: TableRestoreStatusType
+ Amazonka.Redshift: pattern TableRestoreStatusType_PENDING :: TableRestoreStatusType
+ Amazonka.Redshift: pattern TableRestoreStatusType_SUCCEEDED :: TableRestoreStatusType
+ Amazonka.Redshift: pattern UsageLimitBreachAction_Disable :: UsageLimitBreachAction
+ Amazonka.Redshift: pattern UsageLimitBreachAction_Emit_metric :: UsageLimitBreachAction
+ Amazonka.Redshift: pattern UsageLimitBreachAction_Log :: UsageLimitBreachAction
+ Amazonka.Redshift: pattern UsageLimitFeatureType_Concurrency_scaling :: UsageLimitFeatureType
+ Amazonka.Redshift: pattern UsageLimitFeatureType_Cross_region_datasharing :: UsageLimitFeatureType
+ Amazonka.Redshift: pattern UsageLimitFeatureType_Spectrum :: UsageLimitFeatureType
+ Amazonka.Redshift: pattern UsageLimitLimitType_Data_scanned :: UsageLimitLimitType
+ Amazonka.Redshift: pattern UsageLimitLimitType_Time :: UsageLimitLimitType
+ Amazonka.Redshift: pattern UsageLimitPeriod_Daily :: UsageLimitPeriod
+ Amazonka.Redshift: pattern UsageLimitPeriod_Monthly :: UsageLimitPeriod
+ Amazonka.Redshift: pattern UsageLimitPeriod_Weekly :: UsageLimitPeriod
+ Amazonka.Redshift.AcceptReservedNodeExchange: AcceptReservedNodeExchange' :: Text -> Text -> AcceptReservedNodeExchange
+ Amazonka.Redshift.AcceptReservedNodeExchange: AcceptReservedNodeExchangeResponse' :: Maybe ReservedNode -> Int -> AcceptReservedNodeExchangeResponse
+ Amazonka.Redshift.AcceptReservedNodeExchange: [$sel:exchangedReservedNode:AcceptReservedNodeExchangeResponse'] :: AcceptReservedNodeExchangeResponse -> Maybe ReservedNode
+ Amazonka.Redshift.AcceptReservedNodeExchange: [$sel:httpStatus:AcceptReservedNodeExchangeResponse'] :: AcceptReservedNodeExchangeResponse -> Int
+ Amazonka.Redshift.AcceptReservedNodeExchange: [$sel:reservedNodeId:AcceptReservedNodeExchange'] :: AcceptReservedNodeExchange -> Text
+ Amazonka.Redshift.AcceptReservedNodeExchange: [$sel:targetReservedNodeOfferingId:AcceptReservedNodeExchange'] :: AcceptReservedNodeExchange -> Text
+ Amazonka.Redshift.AcceptReservedNodeExchange: acceptReservedNodeExchangeResponse_exchangedReservedNode :: Lens' AcceptReservedNodeExchangeResponse (Maybe ReservedNode)
+ Amazonka.Redshift.AcceptReservedNodeExchange: acceptReservedNodeExchangeResponse_httpStatus :: Lens' AcceptReservedNodeExchangeResponse Int
+ Amazonka.Redshift.AcceptReservedNodeExchange: acceptReservedNodeExchange_reservedNodeId :: Lens' AcceptReservedNodeExchange Text
+ Amazonka.Redshift.AcceptReservedNodeExchange: acceptReservedNodeExchange_targetReservedNodeOfferingId :: Lens' AcceptReservedNodeExchange Text
+ Amazonka.Redshift.AcceptReservedNodeExchange: data AcceptReservedNodeExchange
+ Amazonka.Redshift.AcceptReservedNodeExchange: data AcceptReservedNodeExchangeResponse
+ Amazonka.Redshift.AcceptReservedNodeExchange: instance Amazonka.Data.Headers.ToHeaders Amazonka.Redshift.AcceptReservedNodeExchange.AcceptReservedNodeExchange
+ Amazonka.Redshift.AcceptReservedNodeExchange: instance Amazonka.Data.Path.ToPath Amazonka.Redshift.AcceptReservedNodeExchange.AcceptReservedNodeExchange
+ Amazonka.Redshift.AcceptReservedNodeExchange: instance Amazonka.Data.Query.ToQuery Amazonka.Redshift.AcceptReservedNodeExchange.AcceptReservedNodeExchange
+ Amazonka.Redshift.AcceptReservedNodeExchange: instance Amazonka.Types.AWSRequest Amazonka.Redshift.AcceptReservedNodeExchange.AcceptReservedNodeExchange
+ Amazonka.Redshift.AcceptReservedNodeExchange: instance Control.DeepSeq.NFData Amazonka.Redshift.AcceptReservedNodeExchange.AcceptReservedNodeExchange
+ Amazonka.Redshift.AcceptReservedNodeExchange: instance Control.DeepSeq.NFData Amazonka.Redshift.AcceptReservedNodeExchange.AcceptReservedNodeExchangeResponse
+ Amazonka.Redshift.AcceptReservedNodeExchange: instance Data.Hashable.Class.Hashable Amazonka.Redshift.AcceptReservedNodeExchange.AcceptReservedNodeExchange
+ Amazonka.Redshift.AcceptReservedNodeExchange: instance GHC.Classes.Eq Amazonka.Redshift.AcceptReservedNodeExchange.AcceptReservedNodeExchange
+ Amazonka.Redshift.AcceptReservedNodeExchange: instance GHC.Classes.Eq Amazonka.Redshift.AcceptReservedNodeExchange.AcceptReservedNodeExchangeResponse
+ Amazonka.Redshift.AcceptReservedNodeExchange: instance GHC.Generics.Generic Amazonka.Redshift.AcceptReservedNodeExchange.AcceptReservedNodeExchange
+ Amazonka.Redshift.AcceptReservedNodeExchange: instance GHC.Generics.Generic Amazonka.Redshift.AcceptReservedNodeExchange.AcceptReservedNodeExchangeResponse
+ Amazonka.Redshift.AcceptReservedNodeExchange: instance GHC.Read.Read Amazonka.Redshift.AcceptReservedNodeExchange.AcceptReservedNodeExchange
+ Amazonka.Redshift.AcceptReservedNodeExchange: instance GHC.Read.Read Amazonka.Redshift.AcceptReservedNodeExchange.AcceptReservedNodeExchangeResponse
+ Amazonka.Redshift.AcceptReservedNodeExchange: instance GHC.Show.Show Amazonka.Redshift.AcceptReservedNodeExchange.AcceptReservedNodeExchange
+ Amazonka.Redshift.AcceptReservedNodeExchange: instance GHC.Show.Show Amazonka.Redshift.AcceptReservedNodeExchange.AcceptReservedNodeExchangeResponse
+ Amazonka.Redshift.AcceptReservedNodeExchange: newAcceptReservedNodeExchange :: Text -> Text -> AcceptReservedNodeExchange
+ Amazonka.Redshift.AcceptReservedNodeExchange: newAcceptReservedNodeExchangeResponse :: Int -> AcceptReservedNodeExchangeResponse
+ Amazonka.Redshift.AddPartner: AddPartner' :: Text -> Text -> Text -> Text -> AddPartner
+ Amazonka.Redshift.AddPartner: PartnerIntegrationOutputMessage' :: Maybe Text -> Maybe Text -> PartnerIntegrationOutputMessage
+ Amazonka.Redshift.AddPartner: [$sel:accountId:AddPartner'] :: AddPartner -> Text
+ Amazonka.Redshift.AddPartner: [$sel:clusterIdentifier:AddPartner'] :: AddPartner -> Text
+ Amazonka.Redshift.AddPartner: [$sel:databaseName:AddPartner'] :: AddPartner -> Text
+ Amazonka.Redshift.AddPartner: [$sel:databaseName:PartnerIntegrationOutputMessage'] :: PartnerIntegrationOutputMessage -> Maybe Text
+ Amazonka.Redshift.AddPartner: [$sel:partnerName:AddPartner'] :: AddPartner -> Text
+ Amazonka.Redshift.AddPartner: [$sel:partnerName:PartnerIntegrationOutputMessage'] :: PartnerIntegrationOutputMessage -> Maybe Text
+ Amazonka.Redshift.AddPartner: addPartner_accountId :: Lens' AddPartner Text
+ Amazonka.Redshift.AddPartner: addPartner_clusterIdentifier :: Lens' AddPartner Text
+ Amazonka.Redshift.AddPartner: addPartner_databaseName :: Lens' AddPartner Text
+ Amazonka.Redshift.AddPartner: addPartner_partnerName :: Lens' AddPartner Text
+ Amazonka.Redshift.AddPartner: data AddPartner
+ Amazonka.Redshift.AddPartner: data PartnerIntegrationOutputMessage
+ Amazonka.Redshift.AddPartner: instance Amazonka.Data.Headers.ToHeaders Amazonka.Redshift.AddPartner.AddPartner
+ Amazonka.Redshift.AddPartner: instance Amazonka.Data.Path.ToPath Amazonka.Redshift.AddPartner.AddPartner
+ Amazonka.Redshift.AddPartner: instance Amazonka.Data.Query.ToQuery Amazonka.Redshift.AddPartner.AddPartner
+ Amazonka.Redshift.AddPartner: instance Amazonka.Types.AWSRequest Amazonka.Redshift.AddPartner.AddPartner
+ Amazonka.Redshift.AddPartner: instance Control.DeepSeq.NFData Amazonka.Redshift.AddPartner.AddPartner
+ Amazonka.Redshift.AddPartner: instance Data.Hashable.Class.Hashable Amazonka.Redshift.AddPartner.AddPartner
+ Amazonka.Redshift.AddPartner: instance GHC.Classes.Eq Amazonka.Redshift.AddPartner.AddPartner
+ Amazonka.Redshift.AddPartner: instance GHC.Generics.Generic Amazonka.Redshift.AddPartner.AddPartner
+ Amazonka.Redshift.AddPartner: instance GHC.Read.Read Amazonka.Redshift.AddPartner.AddPartner
+ Amazonka.Redshift.AddPartner: instance GHC.Show.Show Amazonka.Redshift.AddPartner.AddPartner
+ Amazonka.Redshift.AddPartner: newAddPartner :: Text -> Text -> Text -> Text -> AddPartner
+ Amazonka.Redshift.AddPartner: newPartnerIntegrationOutputMessage :: PartnerIntegrationOutputMessage
+ Amazonka.Redshift.AddPartner: partnerIntegrationOutputMessage_databaseName :: Lens' PartnerIntegrationOutputMessage (Maybe Text)
+ Amazonka.Redshift.AddPartner: partnerIntegrationOutputMessage_partnerName :: Lens' PartnerIntegrationOutputMessage (Maybe Text)
+ Amazonka.Redshift.AssociateDataShareConsumer: AssociateDataShareConsumer' :: Maybe Bool -> Maybe Text -> Maybe Text -> Text -> AssociateDataShareConsumer
+ Amazonka.Redshift.AssociateDataShareConsumer: DataShare' :: Maybe Bool -> Maybe Text -> Maybe [DataShareAssociation] -> Maybe Text -> Maybe Text -> DataShare
+ Amazonka.Redshift.AssociateDataShareConsumer: [$sel:allowPubliclyAccessibleConsumers:DataShare'] :: DataShare -> Maybe Bool
+ Amazonka.Redshift.AssociateDataShareConsumer: [$sel:associateEntireAccount:AssociateDataShareConsumer'] :: AssociateDataShareConsumer -> Maybe Bool
+ Amazonka.Redshift.AssociateDataShareConsumer: [$sel:consumerArn:AssociateDataShareConsumer'] :: AssociateDataShareConsumer -> Maybe Text
+ Amazonka.Redshift.AssociateDataShareConsumer: [$sel:consumerRegion:AssociateDataShareConsumer'] :: AssociateDataShareConsumer -> Maybe Text
+ Amazonka.Redshift.AssociateDataShareConsumer: [$sel:dataShareArn:AssociateDataShareConsumer'] :: AssociateDataShareConsumer -> Text
+ Amazonka.Redshift.AssociateDataShareConsumer: [$sel:dataShareArn:DataShare'] :: DataShare -> Maybe Text
+ Amazonka.Redshift.AssociateDataShareConsumer: [$sel:dataShareAssociations:DataShare'] :: DataShare -> Maybe [DataShareAssociation]
+ Amazonka.Redshift.AssociateDataShareConsumer: [$sel:managedBy:DataShare'] :: DataShare -> Maybe Text
+ Amazonka.Redshift.AssociateDataShareConsumer: [$sel:producerArn:DataShare'] :: DataShare -> Maybe Text
+ Amazonka.Redshift.AssociateDataShareConsumer: associateDataShareConsumer_associateEntireAccount :: Lens' AssociateDataShareConsumer (Maybe Bool)
+ Amazonka.Redshift.AssociateDataShareConsumer: associateDataShareConsumer_consumerArn :: Lens' AssociateDataShareConsumer (Maybe Text)
+ Amazonka.Redshift.AssociateDataShareConsumer: associateDataShareConsumer_consumerRegion :: Lens' AssociateDataShareConsumer (Maybe Text)
+ Amazonka.Redshift.AssociateDataShareConsumer: associateDataShareConsumer_dataShareArn :: Lens' AssociateDataShareConsumer Text
+ Amazonka.Redshift.AssociateDataShareConsumer: data AssociateDataShareConsumer
+ Amazonka.Redshift.AssociateDataShareConsumer: data DataShare
+ Amazonka.Redshift.AssociateDataShareConsumer: dataShare_allowPubliclyAccessibleConsumers :: Lens' DataShare (Maybe Bool)
+ Amazonka.Redshift.AssociateDataShareConsumer: dataShare_dataShareArn :: Lens' DataShare (Maybe Text)
+ Amazonka.Redshift.AssociateDataShareConsumer: dataShare_dataShareAssociations :: Lens' DataShare (Maybe [DataShareAssociation])
+ Amazonka.Redshift.AssociateDataShareConsumer: dataShare_managedBy :: Lens' DataShare (Maybe Text)
+ Amazonka.Redshift.AssociateDataShareConsumer: dataShare_producerArn :: Lens' DataShare (Maybe Text)
+ Amazonka.Redshift.AssociateDataShareConsumer: instance Amazonka.Data.Headers.ToHeaders Amazonka.Redshift.AssociateDataShareConsumer.AssociateDataShareConsumer
+ Amazonka.Redshift.AssociateDataShareConsumer: instance Amazonka.Data.Path.ToPath Amazonka.Redshift.AssociateDataShareConsumer.AssociateDataShareConsumer
+ Amazonka.Redshift.AssociateDataShareConsumer: instance Amazonka.Data.Query.ToQuery Amazonka.Redshift.AssociateDataShareConsumer.AssociateDataShareConsumer
+ Amazonka.Redshift.AssociateDataShareConsumer: instance Amazonka.Types.AWSRequest Amazonka.Redshift.AssociateDataShareConsumer.AssociateDataShareConsumer
+ Amazonka.Redshift.AssociateDataShareConsumer: instance Control.DeepSeq.NFData Amazonka.Redshift.AssociateDataShareConsumer.AssociateDataShareConsumer
+ Amazonka.Redshift.AssociateDataShareConsumer: instance Data.Hashable.Class.Hashable Amazonka.Redshift.AssociateDataShareConsumer.AssociateDataShareConsumer
+ Amazonka.Redshift.AssociateDataShareConsumer: instance GHC.Classes.Eq Amazonka.Redshift.AssociateDataShareConsumer.AssociateDataShareConsumer
+ Amazonka.Redshift.AssociateDataShareConsumer: instance GHC.Generics.Generic Amazonka.Redshift.AssociateDataShareConsumer.AssociateDataShareConsumer
+ Amazonka.Redshift.AssociateDataShareConsumer: instance GHC.Read.Read Amazonka.Redshift.AssociateDataShareConsumer.AssociateDataShareConsumer
+ Amazonka.Redshift.AssociateDataShareConsumer: instance GHC.Show.Show Amazonka.Redshift.AssociateDataShareConsumer.AssociateDataShareConsumer
+ Amazonka.Redshift.AssociateDataShareConsumer: newAssociateDataShareConsumer :: Text -> AssociateDataShareConsumer
+ Amazonka.Redshift.AssociateDataShareConsumer: newDataShare :: DataShare
+ Amazonka.Redshift.AuthorizeClusterSecurityGroupIngress: AuthorizeClusterSecurityGroupIngress' :: Maybe Text -> Maybe Text -> Maybe Text -> Text -> AuthorizeClusterSecurityGroupIngress
+ Amazonka.Redshift.AuthorizeClusterSecurityGroupIngress: AuthorizeClusterSecurityGroupIngressResponse' :: Maybe ClusterSecurityGroup -> Int -> AuthorizeClusterSecurityGroupIngressResponse
+ Amazonka.Redshift.AuthorizeClusterSecurityGroupIngress: [$sel:cidrip:AuthorizeClusterSecurityGroupIngress'] :: AuthorizeClusterSecurityGroupIngress -> Maybe Text
+ Amazonka.Redshift.AuthorizeClusterSecurityGroupIngress: [$sel:clusterSecurityGroup:AuthorizeClusterSecurityGroupIngressResponse'] :: AuthorizeClusterSecurityGroupIngressResponse -> Maybe ClusterSecurityGroup
+ Amazonka.Redshift.AuthorizeClusterSecurityGroupIngress: [$sel:clusterSecurityGroupName:AuthorizeClusterSecurityGroupIngress'] :: AuthorizeClusterSecurityGroupIngress -> Text
+ Amazonka.Redshift.AuthorizeClusterSecurityGroupIngress: [$sel:eC2SecurityGroupName:AuthorizeClusterSecurityGroupIngress'] :: AuthorizeClusterSecurityGroupIngress -> Maybe Text
+ Amazonka.Redshift.AuthorizeClusterSecurityGroupIngress: [$sel:eC2SecurityGroupOwnerId:AuthorizeClusterSecurityGroupIngress'] :: AuthorizeClusterSecurityGroupIngress -> Maybe Text
+ Amazonka.Redshift.AuthorizeClusterSecurityGroupIngress: [$sel:httpStatus:AuthorizeClusterSecurityGroupIngressResponse'] :: AuthorizeClusterSecurityGroupIngressResponse -> Int
+ Amazonka.Redshift.AuthorizeClusterSecurityGroupIngress: authorizeClusterSecurityGroupIngressResponse_clusterSecurityGroup :: Lens' AuthorizeClusterSecurityGroupIngressResponse (Maybe ClusterSecurityGroup)
+ Amazonka.Redshift.AuthorizeClusterSecurityGroupIngress: authorizeClusterSecurityGroupIngressResponse_httpStatus :: Lens' AuthorizeClusterSecurityGroupIngressResponse Int
+ Amazonka.Redshift.AuthorizeClusterSecurityGroupIngress: authorizeClusterSecurityGroupIngress_cidrip :: Lens' AuthorizeClusterSecurityGroupIngress (Maybe Text)
+ Amazonka.Redshift.AuthorizeClusterSecurityGroupIngress: authorizeClusterSecurityGroupIngress_clusterSecurityGroupName :: Lens' AuthorizeClusterSecurityGroupIngress Text
+ Amazonka.Redshift.AuthorizeClusterSecurityGroupIngress: authorizeClusterSecurityGroupIngress_eC2SecurityGroupName :: Lens' AuthorizeClusterSecurityGroupIngress (Maybe Text)
+ Amazonka.Redshift.AuthorizeClusterSecurityGroupIngress: authorizeClusterSecurityGroupIngress_eC2SecurityGroupOwnerId :: Lens' AuthorizeClusterSecurityGroupIngress (Maybe Text)
+ Amazonka.Redshift.AuthorizeClusterSecurityGroupIngress: data AuthorizeClusterSecurityGroupIngress
+ Amazonka.Redshift.AuthorizeClusterSecurityGroupIngress: data AuthorizeClusterSecurityGroupIngressResponse
+ Amazonka.Redshift.AuthorizeClusterSecurityGroupIngress: instance Amazonka.Data.Headers.ToHeaders Amazonka.Redshift.AuthorizeClusterSecurityGroupIngress.AuthorizeClusterSecurityGroupIngress
+ Amazonka.Redshift.AuthorizeClusterSecurityGroupIngress: instance Amazonka.Data.Path.ToPath Amazonka.Redshift.AuthorizeClusterSecurityGroupIngress.AuthorizeClusterSecurityGroupIngress
+ Amazonka.Redshift.AuthorizeClusterSecurityGroupIngress: instance Amazonka.Data.Query.ToQuery Amazonka.Redshift.AuthorizeClusterSecurityGroupIngress.AuthorizeClusterSecurityGroupIngress
+ Amazonka.Redshift.AuthorizeClusterSecurityGroupIngress: instance Amazonka.Types.AWSRequest Amazonka.Redshift.AuthorizeClusterSecurityGroupIngress.AuthorizeClusterSecurityGroupIngress
+ Amazonka.Redshift.AuthorizeClusterSecurityGroupIngress: instance Control.DeepSeq.NFData Amazonka.Redshift.AuthorizeClusterSecurityGroupIngress.AuthorizeClusterSecurityGroupIngress
+ Amazonka.Redshift.AuthorizeClusterSecurityGroupIngress: instance Control.DeepSeq.NFData Amazonka.Redshift.AuthorizeClusterSecurityGroupIngress.AuthorizeClusterSecurityGroupIngressResponse
+ Amazonka.Redshift.AuthorizeClusterSecurityGroupIngress: instance Data.Hashable.Class.Hashable Amazonka.Redshift.AuthorizeClusterSecurityGroupIngress.AuthorizeClusterSecurityGroupIngress
+ Amazonka.Redshift.AuthorizeClusterSecurityGroupIngress: instance GHC.Classes.Eq Amazonka.Redshift.AuthorizeClusterSecurityGroupIngress.AuthorizeClusterSecurityGroupIngress
+ Amazonka.Redshift.AuthorizeClusterSecurityGroupIngress: instance GHC.Classes.Eq Amazonka.Redshift.AuthorizeClusterSecurityGroupIngress.AuthorizeClusterSecurityGroupIngressResponse
+ Amazonka.Redshift.AuthorizeClusterSecurityGroupIngress: instance GHC.Generics.Generic Amazonka.Redshift.AuthorizeClusterSecurityGroupIngress.AuthorizeClusterSecurityGroupIngress
+ Amazonka.Redshift.AuthorizeClusterSecurityGroupIngress: instance GHC.Generics.Generic Amazonka.Redshift.AuthorizeClusterSecurityGroupIngress.AuthorizeClusterSecurityGroupIngressResponse
+ Amazonka.Redshift.AuthorizeClusterSecurityGroupIngress: instance GHC.Read.Read Amazonka.Redshift.AuthorizeClusterSecurityGroupIngress.AuthorizeClusterSecurityGroupIngress
+ Amazonka.Redshift.AuthorizeClusterSecurityGroupIngress: instance GHC.Read.Read Amazonka.Redshift.AuthorizeClusterSecurityGroupIngress.AuthorizeClusterSecurityGroupIngressResponse
+ Amazonka.Redshift.AuthorizeClusterSecurityGroupIngress: instance GHC.Show.Show Amazonka.Redshift.AuthorizeClusterSecurityGroupIngress.AuthorizeClusterSecurityGroupIngress
+ Amazonka.Redshift.AuthorizeClusterSecurityGroupIngress: instance GHC.Show.Show Amazonka.Redshift.AuthorizeClusterSecurityGroupIngress.AuthorizeClusterSecurityGroupIngressResponse
+ Amazonka.Redshift.AuthorizeClusterSecurityGroupIngress: newAuthorizeClusterSecurityGroupIngress :: Text -> AuthorizeClusterSecurityGroupIngress
+ Amazonka.Redshift.AuthorizeClusterSecurityGroupIngress: newAuthorizeClusterSecurityGroupIngressResponse :: Int -> AuthorizeClusterSecurityGroupIngressResponse
+ Amazonka.Redshift.AuthorizeDataShare: AuthorizeDataShare' :: Text -> Text -> AuthorizeDataShare
+ Amazonka.Redshift.AuthorizeDataShare: DataShare' :: Maybe Bool -> Maybe Text -> Maybe [DataShareAssociation] -> Maybe Text -> Maybe Text -> DataShare
+ Amazonka.Redshift.AuthorizeDataShare: [$sel:allowPubliclyAccessibleConsumers:DataShare'] :: DataShare -> Maybe Bool
+ Amazonka.Redshift.AuthorizeDataShare: [$sel:consumerIdentifier:AuthorizeDataShare'] :: AuthorizeDataShare -> Text
+ Amazonka.Redshift.AuthorizeDataShare: [$sel:dataShareArn:AuthorizeDataShare'] :: AuthorizeDataShare -> Text
+ Amazonka.Redshift.AuthorizeDataShare: [$sel:dataShareArn:DataShare'] :: DataShare -> Maybe Text
+ Amazonka.Redshift.AuthorizeDataShare: [$sel:dataShareAssociations:DataShare'] :: DataShare -> Maybe [DataShareAssociation]
+ Amazonka.Redshift.AuthorizeDataShare: [$sel:managedBy:DataShare'] :: DataShare -> Maybe Text
+ Amazonka.Redshift.AuthorizeDataShare: [$sel:producerArn:DataShare'] :: DataShare -> Maybe Text
+ Amazonka.Redshift.AuthorizeDataShare: authorizeDataShare_consumerIdentifier :: Lens' AuthorizeDataShare Text
+ Amazonka.Redshift.AuthorizeDataShare: authorizeDataShare_dataShareArn :: Lens' AuthorizeDataShare Text
+ Amazonka.Redshift.AuthorizeDataShare: data AuthorizeDataShare
+ Amazonka.Redshift.AuthorizeDataShare: data DataShare
+ Amazonka.Redshift.AuthorizeDataShare: dataShare_allowPubliclyAccessibleConsumers :: Lens' DataShare (Maybe Bool)
+ Amazonka.Redshift.AuthorizeDataShare: dataShare_dataShareArn :: Lens' DataShare (Maybe Text)
+ Amazonka.Redshift.AuthorizeDataShare: dataShare_dataShareAssociations :: Lens' DataShare (Maybe [DataShareAssociation])
+ Amazonka.Redshift.AuthorizeDataShare: dataShare_managedBy :: Lens' DataShare (Maybe Text)
+ Amazonka.Redshift.AuthorizeDataShare: dataShare_producerArn :: Lens' DataShare (Maybe Text)
+ Amazonka.Redshift.AuthorizeDataShare: instance Amazonka.Data.Headers.ToHeaders Amazonka.Redshift.AuthorizeDataShare.AuthorizeDataShare
+ Amazonka.Redshift.AuthorizeDataShare: instance Amazonka.Data.Path.ToPath Amazonka.Redshift.AuthorizeDataShare.AuthorizeDataShare
+ Amazonka.Redshift.AuthorizeDataShare: instance Amazonka.Data.Query.ToQuery Amazonka.Redshift.AuthorizeDataShare.AuthorizeDataShare
+ Amazonka.Redshift.AuthorizeDataShare: instance Amazonka.Types.AWSRequest Amazonka.Redshift.AuthorizeDataShare.AuthorizeDataShare
+ Amazonka.Redshift.AuthorizeDataShare: instance Control.DeepSeq.NFData Amazonka.Redshift.AuthorizeDataShare.AuthorizeDataShare
+ Amazonka.Redshift.AuthorizeDataShare: instance Data.Hashable.Class.Hashable Amazonka.Redshift.AuthorizeDataShare.AuthorizeDataShare
+ Amazonka.Redshift.AuthorizeDataShare: instance GHC.Classes.Eq Amazonka.Redshift.AuthorizeDataShare.AuthorizeDataShare
+ Amazonka.Redshift.AuthorizeDataShare: instance GHC.Generics.Generic Amazonka.Redshift.AuthorizeDataShare.AuthorizeDataShare
+ Amazonka.Redshift.AuthorizeDataShare: instance GHC.Read.Read Amazonka.Redshift.AuthorizeDataShare.AuthorizeDataShare
+ Amazonka.Redshift.AuthorizeDataShare: instance GHC.Show.Show Amazonka.Redshift.AuthorizeDataShare.AuthorizeDataShare
+ Amazonka.Redshift.AuthorizeDataShare: newAuthorizeDataShare :: Text -> Text -> AuthorizeDataShare
+ Amazonka.Redshift.AuthorizeDataShare: newDataShare :: DataShare
+ Amazonka.Redshift.AuthorizeEndpointAccess: AuthorizeEndpointAccess' :: Maybe Text -> Maybe [Text] -> Text -> AuthorizeEndpointAccess
+ Amazonka.Redshift.AuthorizeEndpointAccess: EndpointAuthorization' :: Maybe Bool -> Maybe [Text] -> Maybe ISO8601 -> Maybe Text -> Maybe Text -> Maybe Int -> Maybe Text -> Maybe Text -> Maybe AuthorizationStatus -> EndpointAuthorization
+ Amazonka.Redshift.AuthorizeEndpointAccess: [$sel:account:AuthorizeEndpointAccess'] :: AuthorizeEndpointAccess -> Text
+ Amazonka.Redshift.AuthorizeEndpointAccess: [$sel:allowedAllVPCs:EndpointAuthorization'] :: EndpointAuthorization -> Maybe Bool
+ Amazonka.Redshift.AuthorizeEndpointAccess: [$sel:allowedVPCs:EndpointAuthorization'] :: EndpointAuthorization -> Maybe [Text]
+ Amazonka.Redshift.AuthorizeEndpointAccess: [$sel:authorizeTime:EndpointAuthorization'] :: EndpointAuthorization -> Maybe ISO8601
+ Amazonka.Redshift.AuthorizeEndpointAccess: [$sel:clusterIdentifier:AuthorizeEndpointAccess'] :: AuthorizeEndpointAccess -> Maybe Text
+ Amazonka.Redshift.AuthorizeEndpointAccess: [$sel:clusterIdentifier:EndpointAuthorization'] :: EndpointAuthorization -> Maybe Text
+ Amazonka.Redshift.AuthorizeEndpointAccess: [$sel:clusterStatus:EndpointAuthorization'] :: EndpointAuthorization -> Maybe Text
+ Amazonka.Redshift.AuthorizeEndpointAccess: [$sel:endpointCount:EndpointAuthorization'] :: EndpointAuthorization -> Maybe Int
+ Amazonka.Redshift.AuthorizeEndpointAccess: [$sel:grantee:EndpointAuthorization'] :: EndpointAuthorization -> Maybe Text
+ Amazonka.Redshift.AuthorizeEndpointAccess: [$sel:grantor:EndpointAuthorization'] :: EndpointAuthorization -> Maybe Text
+ Amazonka.Redshift.AuthorizeEndpointAccess: [$sel:status:EndpointAuthorization'] :: EndpointAuthorization -> Maybe AuthorizationStatus
+ Amazonka.Redshift.AuthorizeEndpointAccess: [$sel:vpcIds:AuthorizeEndpointAccess'] :: AuthorizeEndpointAccess -> Maybe [Text]
+ Amazonka.Redshift.AuthorizeEndpointAccess: authorizeEndpointAccess_account :: Lens' AuthorizeEndpointAccess Text
+ Amazonka.Redshift.AuthorizeEndpointAccess: authorizeEndpointAccess_clusterIdentifier :: Lens' AuthorizeEndpointAccess (Maybe Text)
+ Amazonka.Redshift.AuthorizeEndpointAccess: authorizeEndpointAccess_vpcIds :: Lens' AuthorizeEndpointAccess (Maybe [Text])
+ Amazonka.Redshift.AuthorizeEndpointAccess: data AuthorizeEndpointAccess
+ Amazonka.Redshift.AuthorizeEndpointAccess: data EndpointAuthorization
+ Amazonka.Redshift.AuthorizeEndpointAccess: endpointAuthorization_allowedAllVPCs :: Lens' EndpointAuthorization (Maybe Bool)
+ Amazonka.Redshift.AuthorizeEndpointAccess: endpointAuthorization_allowedVPCs :: Lens' EndpointAuthorization (Maybe [Text])
+ Amazonka.Redshift.AuthorizeEndpointAccess: endpointAuthorization_authorizeTime :: Lens' EndpointAuthorization (Maybe UTCTime)
+ Amazonka.Redshift.AuthorizeEndpointAccess: endpointAuthorization_clusterIdentifier :: Lens' EndpointAuthorization (Maybe Text)
+ Amazonka.Redshift.AuthorizeEndpointAccess: endpointAuthorization_clusterStatus :: Lens' EndpointAuthorization (Maybe Text)
+ Amazonka.Redshift.AuthorizeEndpointAccess: endpointAuthorization_endpointCount :: Lens' EndpointAuthorization (Maybe Int)
+ Amazonka.Redshift.AuthorizeEndpointAccess: endpointAuthorization_grantee :: Lens' EndpointAuthorization (Maybe Text)
+ Amazonka.Redshift.AuthorizeEndpointAccess: endpointAuthorization_grantor :: Lens' EndpointAuthorization (Maybe Text)
+ Amazonka.Redshift.AuthorizeEndpointAccess: endpointAuthorization_status :: Lens' EndpointAuthorization (Maybe AuthorizationStatus)
+ Amazonka.Redshift.AuthorizeEndpointAccess: instance Amazonka.Data.Headers.ToHeaders Amazonka.Redshift.AuthorizeEndpointAccess.AuthorizeEndpointAccess
+ Amazonka.Redshift.AuthorizeEndpointAccess: instance Amazonka.Data.Path.ToPath Amazonka.Redshift.AuthorizeEndpointAccess.AuthorizeEndpointAccess
+ Amazonka.Redshift.AuthorizeEndpointAccess: instance Amazonka.Data.Query.ToQuery Amazonka.Redshift.AuthorizeEndpointAccess.AuthorizeEndpointAccess
+ Amazonka.Redshift.AuthorizeEndpointAccess: instance Amazonka.Types.AWSRequest Amazonka.Redshift.AuthorizeEndpointAccess.AuthorizeEndpointAccess
+ Amazonka.Redshift.AuthorizeEndpointAccess: instance Control.DeepSeq.NFData Amazonka.Redshift.AuthorizeEndpointAccess.AuthorizeEndpointAccess
+ Amazonka.Redshift.AuthorizeEndpointAccess: instance Data.Hashable.Class.Hashable Amazonka.Redshift.AuthorizeEndpointAccess.AuthorizeEndpointAccess
+ Amazonka.Redshift.AuthorizeEndpointAccess: instance GHC.Classes.Eq Amazonka.Redshift.AuthorizeEndpointAccess.AuthorizeEndpointAccess
+ Amazonka.Redshift.AuthorizeEndpointAccess: instance GHC.Generics.Generic Amazonka.Redshift.AuthorizeEndpointAccess.AuthorizeEndpointAccess
+ Amazonka.Redshift.AuthorizeEndpointAccess: instance GHC.Read.Read Amazonka.Redshift.AuthorizeEndpointAccess.AuthorizeEndpointAccess
+ Amazonka.Redshift.AuthorizeEndpointAccess: instance GHC.Show.Show Amazonka.Redshift.AuthorizeEndpointAccess.AuthorizeEndpointAccess
+ Amazonka.Redshift.AuthorizeEndpointAccess: newAuthorizeEndpointAccess :: Text -> AuthorizeEndpointAccess
+ Amazonka.Redshift.AuthorizeEndpointAccess: newEndpointAuthorization :: EndpointAuthorization
+ Amazonka.Redshift.AuthorizeSnapshotAccess: AuthorizeSnapshotAccess' :: Maybe Text -> Maybe Text -> Maybe Text -> Text -> AuthorizeSnapshotAccess
+ Amazonka.Redshift.AuthorizeSnapshotAccess: AuthorizeSnapshotAccessResponse' :: Maybe Snapshot -> Int -> AuthorizeSnapshotAccessResponse
+ Amazonka.Redshift.AuthorizeSnapshotAccess: [$sel:accountWithRestoreAccess:AuthorizeSnapshotAccess'] :: AuthorizeSnapshotAccess -> Text
+ Amazonka.Redshift.AuthorizeSnapshotAccess: [$sel:httpStatus:AuthorizeSnapshotAccessResponse'] :: AuthorizeSnapshotAccessResponse -> Int
+ Amazonka.Redshift.AuthorizeSnapshotAccess: [$sel:snapshot:AuthorizeSnapshotAccessResponse'] :: AuthorizeSnapshotAccessResponse -> Maybe Snapshot
+ Amazonka.Redshift.AuthorizeSnapshotAccess: [$sel:snapshotArn:AuthorizeSnapshotAccess'] :: AuthorizeSnapshotAccess -> Maybe Text
+ Amazonka.Redshift.AuthorizeSnapshotAccess: [$sel:snapshotClusterIdentifier:AuthorizeSnapshotAccess'] :: AuthorizeSnapshotAccess -> Maybe Text
+ Amazonka.Redshift.AuthorizeSnapshotAccess: [$sel:snapshotIdentifier:AuthorizeSnapshotAccess'] :: AuthorizeSnapshotAccess -> Maybe Text
+ Amazonka.Redshift.AuthorizeSnapshotAccess: authorizeSnapshotAccessResponse_httpStatus :: Lens' AuthorizeSnapshotAccessResponse Int
+ Amazonka.Redshift.AuthorizeSnapshotAccess: authorizeSnapshotAccessResponse_snapshot :: Lens' AuthorizeSnapshotAccessResponse (Maybe Snapshot)
+ Amazonka.Redshift.AuthorizeSnapshotAccess: authorizeSnapshotAccess_accountWithRestoreAccess :: Lens' AuthorizeSnapshotAccess Text
+ Amazonka.Redshift.AuthorizeSnapshotAccess: authorizeSnapshotAccess_snapshotArn :: Lens' AuthorizeSnapshotAccess (Maybe Text)
+ Amazonka.Redshift.AuthorizeSnapshotAccess: authorizeSnapshotAccess_snapshotClusterIdentifier :: Lens' AuthorizeSnapshotAccess (Maybe Text)
+ Amazonka.Redshift.AuthorizeSnapshotAccess: authorizeSnapshotAccess_snapshotIdentifier :: Lens' AuthorizeSnapshotAccess (Maybe Text)
+ Amazonka.Redshift.AuthorizeSnapshotAccess: data AuthorizeSnapshotAccess
+ Amazonka.Redshift.AuthorizeSnapshotAccess: data AuthorizeSnapshotAccessResponse
+ Amazonka.Redshift.AuthorizeSnapshotAccess: instance Amazonka.Data.Headers.ToHeaders Amazonka.Redshift.AuthorizeSnapshotAccess.AuthorizeSnapshotAccess
+ Amazonka.Redshift.AuthorizeSnapshotAccess: instance Amazonka.Data.Path.ToPath Amazonka.Redshift.AuthorizeSnapshotAccess.AuthorizeSnapshotAccess
+ Amazonka.Redshift.AuthorizeSnapshotAccess: instance Amazonka.Data.Query.ToQuery Amazonka.Redshift.AuthorizeSnapshotAccess.AuthorizeSnapshotAccess
+ Amazonka.Redshift.AuthorizeSnapshotAccess: instance Amazonka.Types.AWSRequest Amazonka.Redshift.AuthorizeSnapshotAccess.AuthorizeSnapshotAccess
+ Amazonka.Redshift.AuthorizeSnapshotAccess: instance Control.DeepSeq.NFData Amazonka.Redshift.AuthorizeSnapshotAccess.AuthorizeSnapshotAccess
+ Amazonka.Redshift.AuthorizeSnapshotAccess: instance Control.DeepSeq.NFData Amazonka.Redshift.AuthorizeSnapshotAccess.AuthorizeSnapshotAccessResponse
+ Amazonka.Redshift.AuthorizeSnapshotAccess: instance Data.Hashable.Class.Hashable Amazonka.Redshift.AuthorizeSnapshotAccess.AuthorizeSnapshotAccess
+ Amazonka.Redshift.AuthorizeSnapshotAccess: instance GHC.Classes.Eq Amazonka.Redshift.AuthorizeSnapshotAccess.AuthorizeSnapshotAccess
+ Amazonka.Redshift.AuthorizeSnapshotAccess: instance GHC.Classes.Eq Amazonka.Redshift.AuthorizeSnapshotAccess.AuthorizeSnapshotAccessResponse
+ Amazonka.Redshift.AuthorizeSnapshotAccess: instance GHC.Generics.Generic Amazonka.Redshift.AuthorizeSnapshotAccess.AuthorizeSnapshotAccess
+ Amazonka.Redshift.AuthorizeSnapshotAccess: instance GHC.Generics.Generic Amazonka.Redshift.AuthorizeSnapshotAccess.AuthorizeSnapshotAccessResponse
+ Amazonka.Redshift.AuthorizeSnapshotAccess: instance GHC.Read.Read Amazonka.Redshift.AuthorizeSnapshotAccess.AuthorizeSnapshotAccess
+ Amazonka.Redshift.AuthorizeSnapshotAccess: instance GHC.Read.Read Amazonka.Redshift.AuthorizeSnapshotAccess.AuthorizeSnapshotAccessResponse
+ Amazonka.Redshift.AuthorizeSnapshotAccess: instance GHC.Show.Show Amazonka.Redshift.AuthorizeSnapshotAccess.AuthorizeSnapshotAccess
+ Amazonka.Redshift.AuthorizeSnapshotAccess: instance GHC.Show.Show Amazonka.Redshift.AuthorizeSnapshotAccess.AuthorizeSnapshotAccessResponse
+ Amazonka.Redshift.AuthorizeSnapshotAccess: newAuthorizeSnapshotAccess :: Text -> AuthorizeSnapshotAccess
+ Amazonka.Redshift.AuthorizeSnapshotAccess: newAuthorizeSnapshotAccessResponse :: Int -> AuthorizeSnapshotAccessResponse
+ Amazonka.Redshift.BatchDeleteClusterSnapshots: BatchDeleteClusterSnapshots' :: [DeleteClusterSnapshotMessage] -> BatchDeleteClusterSnapshots
+ Amazonka.Redshift.BatchDeleteClusterSnapshots: BatchDeleteClusterSnapshotsResponse' :: Maybe [SnapshotErrorMessage] -> Maybe [Text] -> Int -> BatchDeleteClusterSnapshotsResponse
+ Amazonka.Redshift.BatchDeleteClusterSnapshots: [$sel:errors:BatchDeleteClusterSnapshotsResponse'] :: BatchDeleteClusterSnapshotsResponse -> Maybe [SnapshotErrorMessage]
+ Amazonka.Redshift.BatchDeleteClusterSnapshots: [$sel:httpStatus:BatchDeleteClusterSnapshotsResponse'] :: BatchDeleteClusterSnapshotsResponse -> Int
+ Amazonka.Redshift.BatchDeleteClusterSnapshots: [$sel:identifiers:BatchDeleteClusterSnapshots'] :: BatchDeleteClusterSnapshots -> [DeleteClusterSnapshotMessage]
+ Amazonka.Redshift.BatchDeleteClusterSnapshots: [$sel:resources:BatchDeleteClusterSnapshotsResponse'] :: BatchDeleteClusterSnapshotsResponse -> Maybe [Text]
+ Amazonka.Redshift.BatchDeleteClusterSnapshots: batchDeleteClusterSnapshotsResponse_errors :: Lens' BatchDeleteClusterSnapshotsResponse (Maybe [SnapshotErrorMessage])
+ Amazonka.Redshift.BatchDeleteClusterSnapshots: batchDeleteClusterSnapshotsResponse_httpStatus :: Lens' BatchDeleteClusterSnapshotsResponse Int
+ Amazonka.Redshift.BatchDeleteClusterSnapshots: batchDeleteClusterSnapshotsResponse_resources :: Lens' BatchDeleteClusterSnapshotsResponse (Maybe [Text])
+ Amazonka.Redshift.BatchDeleteClusterSnapshots: batchDeleteClusterSnapshots_identifiers :: Lens' BatchDeleteClusterSnapshots [DeleteClusterSnapshotMessage]
+ Amazonka.Redshift.BatchDeleteClusterSnapshots: data BatchDeleteClusterSnapshots
+ Amazonka.Redshift.BatchDeleteClusterSnapshots: data BatchDeleteClusterSnapshotsResponse
+ Amazonka.Redshift.BatchDeleteClusterSnapshots: instance Amazonka.Data.Headers.ToHeaders Amazonka.Redshift.BatchDeleteClusterSnapshots.BatchDeleteClusterSnapshots
+ Amazonka.Redshift.BatchDeleteClusterSnapshots: instance Amazonka.Data.Path.ToPath Amazonka.Redshift.BatchDeleteClusterSnapshots.BatchDeleteClusterSnapshots
+ Amazonka.Redshift.BatchDeleteClusterSnapshots: instance Amazonka.Data.Query.ToQuery Amazonka.Redshift.BatchDeleteClusterSnapshots.BatchDeleteClusterSnapshots
+ Amazonka.Redshift.BatchDeleteClusterSnapshots: instance Amazonka.Types.AWSRequest Amazonka.Redshift.BatchDeleteClusterSnapshots.BatchDeleteClusterSnapshots
+ Amazonka.Redshift.BatchDeleteClusterSnapshots: instance Control.DeepSeq.NFData Amazonka.Redshift.BatchDeleteClusterSnapshots.BatchDeleteClusterSnapshots
+ Amazonka.Redshift.BatchDeleteClusterSnapshots: instance Control.DeepSeq.NFData Amazonka.Redshift.BatchDeleteClusterSnapshots.BatchDeleteClusterSnapshotsResponse
+ Amazonka.Redshift.BatchDeleteClusterSnapshots: instance Data.Hashable.Class.Hashable Amazonka.Redshift.BatchDeleteClusterSnapshots.BatchDeleteClusterSnapshots
+ Amazonka.Redshift.BatchDeleteClusterSnapshots: instance GHC.Classes.Eq Amazonka.Redshift.BatchDeleteClusterSnapshots.BatchDeleteClusterSnapshots
+ Amazonka.Redshift.BatchDeleteClusterSnapshots: instance GHC.Classes.Eq Amazonka.Redshift.BatchDeleteClusterSnapshots.BatchDeleteClusterSnapshotsResponse
+ Amazonka.Redshift.BatchDeleteClusterSnapshots: instance GHC.Generics.Generic Amazonka.Redshift.BatchDeleteClusterSnapshots.BatchDeleteClusterSnapshots
+ Amazonka.Redshift.BatchDeleteClusterSnapshots: instance GHC.Generics.Generic Amazonka.Redshift.BatchDeleteClusterSnapshots.BatchDeleteClusterSnapshotsResponse
+ Amazonka.Redshift.BatchDeleteClusterSnapshots: instance GHC.Read.Read Amazonka.Redshift.BatchDeleteClusterSnapshots.BatchDeleteClusterSnapshots
+ Amazonka.Redshift.BatchDeleteClusterSnapshots: instance GHC.Read.Read Amazonka.Redshift.BatchDeleteClusterSnapshots.BatchDeleteClusterSnapshotsResponse
+ Amazonka.Redshift.BatchDeleteClusterSnapshots: instance GHC.Show.Show Amazonka.Redshift.BatchDeleteClusterSnapshots.BatchDeleteClusterSnapshots
+ Amazonka.Redshift.BatchDeleteClusterSnapshots: instance GHC.Show.Show Amazonka.Redshift.BatchDeleteClusterSnapshots.BatchDeleteClusterSnapshotsResponse
+ Amazonka.Redshift.BatchDeleteClusterSnapshots: newBatchDeleteClusterSnapshots :: BatchDeleteClusterSnapshots
+ Amazonka.Redshift.BatchDeleteClusterSnapshots: newBatchDeleteClusterSnapshotsResponse :: Int -> BatchDeleteClusterSnapshotsResponse
+ Amazonka.Redshift.BatchModifyClusterSnapshots: BatchModifyClusterSnapshots' :: Maybe Bool -> Maybe Int -> [Text] -> BatchModifyClusterSnapshots
+ Amazonka.Redshift.BatchModifyClusterSnapshots: BatchModifyClusterSnapshotsResponse' :: Maybe [SnapshotErrorMessage] -> Maybe [Text] -> Int -> BatchModifyClusterSnapshotsResponse
+ Amazonka.Redshift.BatchModifyClusterSnapshots: [$sel:errors:BatchModifyClusterSnapshotsResponse'] :: BatchModifyClusterSnapshotsResponse -> Maybe [SnapshotErrorMessage]
+ Amazonka.Redshift.BatchModifyClusterSnapshots: [$sel:force:BatchModifyClusterSnapshots'] :: BatchModifyClusterSnapshots -> Maybe Bool
+ Amazonka.Redshift.BatchModifyClusterSnapshots: [$sel:httpStatus:BatchModifyClusterSnapshotsResponse'] :: BatchModifyClusterSnapshotsResponse -> Int
+ Amazonka.Redshift.BatchModifyClusterSnapshots: [$sel:manualSnapshotRetentionPeriod:BatchModifyClusterSnapshots'] :: BatchModifyClusterSnapshots -> Maybe Int
+ Amazonka.Redshift.BatchModifyClusterSnapshots: [$sel:resources:BatchModifyClusterSnapshotsResponse'] :: BatchModifyClusterSnapshotsResponse -> Maybe [Text]
+ Amazonka.Redshift.BatchModifyClusterSnapshots: [$sel:snapshotIdentifierList:BatchModifyClusterSnapshots'] :: BatchModifyClusterSnapshots -> [Text]
+ Amazonka.Redshift.BatchModifyClusterSnapshots: batchModifyClusterSnapshotsResponse_errors :: Lens' BatchModifyClusterSnapshotsResponse (Maybe [SnapshotErrorMessage])
+ Amazonka.Redshift.BatchModifyClusterSnapshots: batchModifyClusterSnapshotsResponse_httpStatus :: Lens' BatchModifyClusterSnapshotsResponse Int
+ Amazonka.Redshift.BatchModifyClusterSnapshots: batchModifyClusterSnapshotsResponse_resources :: Lens' BatchModifyClusterSnapshotsResponse (Maybe [Text])
+ Amazonka.Redshift.BatchModifyClusterSnapshots: batchModifyClusterSnapshots_force :: Lens' BatchModifyClusterSnapshots (Maybe Bool)
+ Amazonka.Redshift.BatchModifyClusterSnapshots: batchModifyClusterSnapshots_manualSnapshotRetentionPeriod :: Lens' BatchModifyClusterSnapshots (Maybe Int)
+ Amazonka.Redshift.BatchModifyClusterSnapshots: batchModifyClusterSnapshots_snapshotIdentifierList :: Lens' BatchModifyClusterSnapshots [Text]
+ Amazonka.Redshift.BatchModifyClusterSnapshots: data BatchModifyClusterSnapshots
+ Amazonka.Redshift.BatchModifyClusterSnapshots: data BatchModifyClusterSnapshotsResponse
+ Amazonka.Redshift.BatchModifyClusterSnapshots: instance Amazonka.Data.Headers.ToHeaders Amazonka.Redshift.BatchModifyClusterSnapshots.BatchModifyClusterSnapshots
+ Amazonka.Redshift.BatchModifyClusterSnapshots: instance Amazonka.Data.Path.ToPath Amazonka.Redshift.BatchModifyClusterSnapshots.BatchModifyClusterSnapshots
+ Amazonka.Redshift.BatchModifyClusterSnapshots: instance Amazonka.Data.Query.ToQuery Amazonka.Redshift.BatchModifyClusterSnapshots.BatchModifyClusterSnapshots
+ Amazonka.Redshift.BatchModifyClusterSnapshots: instance Amazonka.Types.AWSRequest Amazonka.Redshift.BatchModifyClusterSnapshots.BatchModifyClusterSnapshots
+ Amazonka.Redshift.BatchModifyClusterSnapshots: instance Control.DeepSeq.NFData Amazonka.Redshift.BatchModifyClusterSnapshots.BatchModifyClusterSnapshots
+ Amazonka.Redshift.BatchModifyClusterSnapshots: instance Control.DeepSeq.NFData Amazonka.Redshift.BatchModifyClusterSnapshots.BatchModifyClusterSnapshotsResponse
+ Amazonka.Redshift.BatchModifyClusterSnapshots: instance Data.Hashable.Class.Hashable Amazonka.Redshift.BatchModifyClusterSnapshots.BatchModifyClusterSnapshots
+ Amazonka.Redshift.BatchModifyClusterSnapshots: instance GHC.Classes.Eq Amazonka.Redshift.BatchModifyClusterSnapshots.BatchModifyClusterSnapshots
+ Amazonka.Redshift.BatchModifyClusterSnapshots: instance GHC.Classes.Eq Amazonka.Redshift.BatchModifyClusterSnapshots.BatchModifyClusterSnapshotsResponse
+ Amazonka.Redshift.BatchModifyClusterSnapshots: instance GHC.Generics.Generic Amazonka.Redshift.BatchModifyClusterSnapshots.BatchModifyClusterSnapshots
+ Amazonka.Redshift.BatchModifyClusterSnapshots: instance GHC.Generics.Generic Amazonka.Redshift.BatchModifyClusterSnapshots.BatchModifyClusterSnapshotsResponse
+ Amazonka.Redshift.BatchModifyClusterSnapshots: instance GHC.Read.Read Amazonka.Redshift.BatchModifyClusterSnapshots.BatchModifyClusterSnapshots
+ Amazonka.Redshift.BatchModifyClusterSnapshots: instance GHC.Read.Read Amazonka.Redshift.BatchModifyClusterSnapshots.BatchModifyClusterSnapshotsResponse
+ Amazonka.Redshift.BatchModifyClusterSnapshots: instance GHC.Show.Show Amazonka.Redshift.BatchModifyClusterSnapshots.BatchModifyClusterSnapshots
+ Amazonka.Redshift.BatchModifyClusterSnapshots: instance GHC.Show.Show Amazonka.Redshift.BatchModifyClusterSnapshots.BatchModifyClusterSnapshotsResponse
+ Amazonka.Redshift.BatchModifyClusterSnapshots: newBatchModifyClusterSnapshots :: BatchModifyClusterSnapshots
+ Amazonka.Redshift.BatchModifyClusterSnapshots: newBatchModifyClusterSnapshotsResponse :: Int -> BatchModifyClusterSnapshotsResponse
+ Amazonka.Redshift.CancelResize: CancelResize' :: Text -> CancelResize
+ Amazonka.Redshift.CancelResize: ResizeProgressMessage' :: Maybe Double -> Maybe Double -> Maybe Integer -> Maybe Integer -> Maybe [Text] -> Maybe [Text] -> Maybe [Text] -> Maybe Text -> Maybe Integer -> Maybe Text -> Maybe Text -> Maybe Text -> Maybe Text -> Maybe Text -> Maybe Int -> Maybe Integer -> ResizeProgressMessage
+ Amazonka.Redshift.CancelResize: [$sel:avgResizeRateInMegaBytesPerSecond:ResizeProgressMessage'] :: ResizeProgressMessage -> Maybe Double
+ Amazonka.Redshift.CancelResize: [$sel:clusterIdentifier:CancelResize'] :: CancelResize -> Text
+ Amazonka.Redshift.CancelResize: [$sel:dataTransferProgressPercent:ResizeProgressMessage'] :: ResizeProgressMessage -> Maybe Double
+ Amazonka.Redshift.CancelResize: [$sel:elapsedTimeInSeconds:ResizeProgressMessage'] :: ResizeProgressMessage -> Maybe Integer
+ Amazonka.Redshift.CancelResize: [$sel:estimatedTimeToCompletionInSeconds:ResizeProgressMessage'] :: ResizeProgressMessage -> Maybe Integer
+ Amazonka.Redshift.CancelResize: [$sel:importTablesCompleted:ResizeProgressMessage'] :: ResizeProgressMessage -> Maybe [Text]
+ Amazonka.Redshift.CancelResize: [$sel:importTablesInProgress:ResizeProgressMessage'] :: ResizeProgressMessage -> Maybe [Text]
+ Amazonka.Redshift.CancelResize: [$sel:importTablesNotStarted:ResizeProgressMessage'] :: ResizeProgressMessage -> Maybe [Text]
+ Amazonka.Redshift.CancelResize: [$sel:message:ResizeProgressMessage'] :: ResizeProgressMessage -> Maybe Text
+ Amazonka.Redshift.CancelResize: [$sel:progressInMegaBytes:ResizeProgressMessage'] :: ResizeProgressMessage -> Maybe Integer
+ Amazonka.Redshift.CancelResize: [$sel:resizeType:ResizeProgressMessage'] :: ResizeProgressMessage -> Maybe Text
+ Amazonka.Redshift.CancelResize: [$sel:status:ResizeProgressMessage'] :: ResizeProgressMessage -> Maybe Text
+ Amazonka.Redshift.CancelResize: [$sel:targetClusterType:ResizeProgressMessage'] :: ResizeProgressMessage -> Maybe Text
+ Amazonka.Redshift.CancelResize: [$sel:targetEncryptionType:ResizeProgressMessage'] :: ResizeProgressMessage -> Maybe Text
+ Amazonka.Redshift.CancelResize: [$sel:targetNodeType:ResizeProgressMessage'] :: ResizeProgressMessage -> Maybe Text
+ Amazonka.Redshift.CancelResize: [$sel:targetNumberOfNodes:ResizeProgressMessage'] :: ResizeProgressMessage -> Maybe Int
+ Amazonka.Redshift.CancelResize: [$sel:totalResizeDataInMegaBytes:ResizeProgressMessage'] :: ResizeProgressMessage -> Maybe Integer
+ Amazonka.Redshift.CancelResize: cancelResize_clusterIdentifier :: Lens' CancelResize Text
+ Amazonka.Redshift.CancelResize: data CancelResize
+ Amazonka.Redshift.CancelResize: data ResizeProgressMessage
+ Amazonka.Redshift.CancelResize: instance Amazonka.Data.Headers.ToHeaders Amazonka.Redshift.CancelResize.CancelResize
+ Amazonka.Redshift.CancelResize: instance Amazonka.Data.Path.ToPath Amazonka.Redshift.CancelResize.CancelResize
+ Amazonka.Redshift.CancelResize: instance Amazonka.Data.Query.ToQuery Amazonka.Redshift.CancelResize.CancelResize
+ Amazonka.Redshift.CancelResize: instance Amazonka.Types.AWSRequest Amazonka.Redshift.CancelResize.CancelResize
+ Amazonka.Redshift.CancelResize: instance Control.DeepSeq.NFData Amazonka.Redshift.CancelResize.CancelResize
+ Amazonka.Redshift.CancelResize: instance Data.Hashable.Class.Hashable Amazonka.Redshift.CancelResize.CancelResize
+ Amazonka.Redshift.CancelResize: instance GHC.Classes.Eq Amazonka.Redshift.CancelResize.CancelResize
+ Amazonka.Redshift.CancelResize: instance GHC.Generics.Generic Amazonka.Redshift.CancelResize.CancelResize
+ Amazonka.Redshift.CancelResize: instance GHC.Read.Read Amazonka.Redshift.CancelResize.CancelResize
+ Amazonka.Redshift.CancelResize: instance GHC.Show.Show Amazonka.Redshift.CancelResize.CancelResize
+ Amazonka.Redshift.CancelResize: newCancelResize :: Text -> CancelResize
+ Amazonka.Redshift.CancelResize: newResizeProgressMessage :: ResizeProgressMessage
+ Amazonka.Redshift.CancelResize: resizeProgressMessage_avgResizeRateInMegaBytesPerSecond :: Lens' ResizeProgressMessage (Maybe Double)
+ Amazonka.Redshift.CancelResize: resizeProgressMessage_dataTransferProgressPercent :: Lens' ResizeProgressMessage (Maybe Double)
+ Amazonka.Redshift.CancelResize: resizeProgressMessage_elapsedTimeInSeconds :: Lens' ResizeProgressMessage (Maybe Integer)
+ Amazonka.Redshift.CancelResize: resizeProgressMessage_estimatedTimeToCompletionInSeconds :: Lens' ResizeProgressMessage (Maybe Integer)
+ Amazonka.Redshift.CancelResize: resizeProgressMessage_importTablesCompleted :: Lens' ResizeProgressMessage (Maybe [Text])
+ Amazonka.Redshift.CancelResize: resizeProgressMessage_importTablesInProgress :: Lens' ResizeProgressMessage (Maybe [Text])
+ Amazonka.Redshift.CancelResize: resizeProgressMessage_importTablesNotStarted :: Lens' ResizeProgressMessage (Maybe [Text])
+ Amazonka.Redshift.CancelResize: resizeProgressMessage_message :: Lens' ResizeProgressMessage (Maybe Text)
+ Amazonka.Redshift.CancelResize: resizeProgressMessage_progressInMegaBytes :: Lens' ResizeProgressMessage (Maybe Integer)
+ Amazonka.Redshift.CancelResize: resizeProgressMessage_resizeType :: Lens' ResizeProgressMessage (Maybe Text)
+ Amazonka.Redshift.CancelResize: resizeProgressMessage_status :: Lens' ResizeProgressMessage (Maybe Text)
+ Amazonka.Redshift.CancelResize: resizeProgressMessage_targetClusterType :: Lens' ResizeProgressMessage (Maybe Text)
+ Amazonka.Redshift.CancelResize: resizeProgressMessage_targetEncryptionType :: Lens' ResizeProgressMessage (Maybe Text)
+ Amazonka.Redshift.CancelResize: resizeProgressMessage_targetNodeType :: Lens' ResizeProgressMessage (Maybe Text)
+ Amazonka.Redshift.CancelResize: resizeProgressMessage_targetNumberOfNodes :: Lens' ResizeProgressMessage (Maybe Int)
+ Amazonka.Redshift.CancelResize: resizeProgressMessage_totalResizeDataInMegaBytes :: Lens' ResizeProgressMessage (Maybe Integer)
+ Amazonka.Redshift.CopyClusterSnapshot: CopyClusterSnapshot' :: Maybe Int -> Maybe Text -> Text -> Text -> CopyClusterSnapshot
+ Amazonka.Redshift.CopyClusterSnapshot: CopyClusterSnapshotResponse' :: Maybe Snapshot -> Int -> CopyClusterSnapshotResponse
+ Amazonka.Redshift.CopyClusterSnapshot: [$sel:httpStatus:CopyClusterSnapshotResponse'] :: CopyClusterSnapshotResponse -> Int
+ Amazonka.Redshift.CopyClusterSnapshot: [$sel:manualSnapshotRetentionPeriod:CopyClusterSnapshot'] :: CopyClusterSnapshot -> Maybe Int
+ Amazonka.Redshift.CopyClusterSnapshot: [$sel:snapshot:CopyClusterSnapshotResponse'] :: CopyClusterSnapshotResponse -> Maybe Snapshot
+ Amazonka.Redshift.CopyClusterSnapshot: [$sel:sourceSnapshotClusterIdentifier:CopyClusterSnapshot'] :: CopyClusterSnapshot -> Maybe Text
+ Amazonka.Redshift.CopyClusterSnapshot: [$sel:sourceSnapshotIdentifier:CopyClusterSnapshot'] :: CopyClusterSnapshot -> Text
+ Amazonka.Redshift.CopyClusterSnapshot: [$sel:targetSnapshotIdentifier:CopyClusterSnapshot'] :: CopyClusterSnapshot -> Text
+ Amazonka.Redshift.CopyClusterSnapshot: copyClusterSnapshotResponse_httpStatus :: Lens' CopyClusterSnapshotResponse Int
+ Amazonka.Redshift.CopyClusterSnapshot: copyClusterSnapshotResponse_snapshot :: Lens' CopyClusterSnapshotResponse (Maybe Snapshot)
+ Amazonka.Redshift.CopyClusterSnapshot: copyClusterSnapshot_manualSnapshotRetentionPeriod :: Lens' CopyClusterSnapshot (Maybe Int)
+ Amazonka.Redshift.CopyClusterSnapshot: copyClusterSnapshot_sourceSnapshotClusterIdentifier :: Lens' CopyClusterSnapshot (Maybe Text)
+ Amazonka.Redshift.CopyClusterSnapshot: copyClusterSnapshot_sourceSnapshotIdentifier :: Lens' CopyClusterSnapshot Text
+ Amazonka.Redshift.CopyClusterSnapshot: copyClusterSnapshot_targetSnapshotIdentifier :: Lens' CopyClusterSnapshot Text
+ Amazonka.Redshift.CopyClusterSnapshot: data CopyClusterSnapshot
+ Amazonka.Redshift.CopyClusterSnapshot: data CopyClusterSnapshotResponse
+ Amazonka.Redshift.CopyClusterSnapshot: instance Amazonka.Data.Headers.ToHeaders Amazonka.Redshift.CopyClusterSnapshot.CopyClusterSnapshot
+ Amazonka.Redshift.CopyClusterSnapshot: instance Amazonka.Data.Path.ToPath Amazonka.Redshift.CopyClusterSnapshot.CopyClusterSnapshot
+ Amazonka.Redshift.CopyClusterSnapshot: instance Amazonka.Data.Query.ToQuery Amazonka.Redshift.CopyClusterSnapshot.CopyClusterSnapshot
+ Amazonka.Redshift.CopyClusterSnapshot: instance Amazonka.Types.AWSRequest Amazonka.Redshift.CopyClusterSnapshot.CopyClusterSnapshot
+ Amazonka.Redshift.CopyClusterSnapshot: instance Control.DeepSeq.NFData Amazonka.Redshift.CopyClusterSnapshot.CopyClusterSnapshot
+ Amazonka.Redshift.CopyClusterSnapshot: instance Control.DeepSeq.NFData Amazonka.Redshift.CopyClusterSnapshot.CopyClusterSnapshotResponse
+ Amazonka.Redshift.CopyClusterSnapshot: instance Data.Hashable.Class.Hashable Amazonka.Redshift.CopyClusterSnapshot.CopyClusterSnapshot
+ Amazonka.Redshift.CopyClusterSnapshot: instance GHC.Classes.Eq Amazonka.Redshift.CopyClusterSnapshot.CopyClusterSnapshot
+ Amazonka.Redshift.CopyClusterSnapshot: instance GHC.Classes.Eq Amazonka.Redshift.CopyClusterSnapshot.CopyClusterSnapshotResponse
+ Amazonka.Redshift.CopyClusterSnapshot: instance GHC.Generics.Generic Amazonka.Redshift.CopyClusterSnapshot.CopyClusterSnapshot
+ Amazonka.Redshift.CopyClusterSnapshot: instance GHC.Generics.Generic Amazonka.Redshift.CopyClusterSnapshot.CopyClusterSnapshotResponse
+ Amazonka.Redshift.CopyClusterSnapshot: instance GHC.Read.Read Amazonka.Redshift.CopyClusterSnapshot.CopyClusterSnapshot
+ Amazonka.Redshift.CopyClusterSnapshot: instance GHC.Read.Read Amazonka.Redshift.CopyClusterSnapshot.CopyClusterSnapshotResponse
+ Amazonka.Redshift.CopyClusterSnapshot: instance GHC.Show.Show Amazonka.Redshift.CopyClusterSnapshot.CopyClusterSnapshot
+ Amazonka.Redshift.CopyClusterSnapshot: instance GHC.Show.Show Amazonka.Redshift.CopyClusterSnapshot.CopyClusterSnapshotResponse
+ Amazonka.Redshift.CopyClusterSnapshot: newCopyClusterSnapshot :: Text -> Text -> CopyClusterSnapshot
+ Amazonka.Redshift.CopyClusterSnapshot: newCopyClusterSnapshotResponse :: Int -> CopyClusterSnapshotResponse
+ Amazonka.Redshift.CreateAuthenticationProfile: CreateAuthenticationProfile' :: Text -> Text -> CreateAuthenticationProfile
+ Amazonka.Redshift.CreateAuthenticationProfile: CreateAuthenticationProfileResponse' :: Maybe Text -> Maybe Text -> Int -> CreateAuthenticationProfileResponse
+ Amazonka.Redshift.CreateAuthenticationProfile: [$sel:authenticationProfileContent:CreateAuthenticationProfile'] :: CreateAuthenticationProfile -> Text
+ Amazonka.Redshift.CreateAuthenticationProfile: [$sel:authenticationProfileContent:CreateAuthenticationProfileResponse'] :: CreateAuthenticationProfileResponse -> Maybe Text
+ Amazonka.Redshift.CreateAuthenticationProfile: [$sel:authenticationProfileName:CreateAuthenticationProfile'] :: CreateAuthenticationProfile -> Text
+ Amazonka.Redshift.CreateAuthenticationProfile: [$sel:authenticationProfileName:CreateAuthenticationProfileResponse'] :: CreateAuthenticationProfileResponse -> Maybe Text
+ Amazonka.Redshift.CreateAuthenticationProfile: [$sel:httpStatus:CreateAuthenticationProfileResponse'] :: CreateAuthenticationProfileResponse -> Int
+ Amazonka.Redshift.CreateAuthenticationProfile: createAuthenticationProfileResponse_authenticationProfileContent :: Lens' CreateAuthenticationProfileResponse (Maybe Text)
+ Amazonka.Redshift.CreateAuthenticationProfile: createAuthenticationProfileResponse_authenticationProfileName :: Lens' CreateAuthenticationProfileResponse (Maybe Text)
+ Amazonka.Redshift.CreateAuthenticationProfile: createAuthenticationProfileResponse_httpStatus :: Lens' CreateAuthenticationProfileResponse Int
+ Amazonka.Redshift.CreateAuthenticationProfile: createAuthenticationProfile_authenticationProfileContent :: Lens' CreateAuthenticationProfile Text
+ Amazonka.Redshift.CreateAuthenticationProfile: createAuthenticationProfile_authenticationProfileName :: Lens' CreateAuthenticationProfile Text
+ Amazonka.Redshift.CreateAuthenticationProfile: data CreateAuthenticationProfile
+ Amazonka.Redshift.CreateAuthenticationProfile: data CreateAuthenticationProfileResponse
+ Amazonka.Redshift.CreateAuthenticationProfile: instance Amazonka.Data.Headers.ToHeaders Amazonka.Redshift.CreateAuthenticationProfile.CreateAuthenticationProfile
+ Amazonka.Redshift.CreateAuthenticationProfile: instance Amazonka.Data.Path.ToPath Amazonka.Redshift.CreateAuthenticationProfile.CreateAuthenticationProfile
+ Amazonka.Redshift.CreateAuthenticationProfile: instance Amazonka.Data.Query.ToQuery Amazonka.Redshift.CreateAuthenticationProfile.CreateAuthenticationProfile
+ Amazonka.Redshift.CreateAuthenticationProfile: instance Amazonka.Types.AWSRequest Amazonka.Redshift.CreateAuthenticationProfile.CreateAuthenticationProfile
+ Amazonka.Redshift.CreateAuthenticationProfile: instance Control.DeepSeq.NFData Amazonka.Redshift.CreateAuthenticationProfile.CreateAuthenticationProfile
+ Amazonka.Redshift.CreateAuthenticationProfile: instance Control.DeepSeq.NFData Amazonka.Redshift.CreateAuthenticationProfile.CreateAuthenticationProfileResponse
+ Amazonka.Redshift.CreateAuthenticationProfile: instance Data.Hashable.Class.Hashable Amazonka.Redshift.CreateAuthenticationProfile.CreateAuthenticationProfile
+ Amazonka.Redshift.CreateAuthenticationProfile: instance GHC.Classes.Eq Amazonka.Redshift.CreateAuthenticationProfile.CreateAuthenticationProfile
+ Amazonka.Redshift.CreateAuthenticationProfile: instance GHC.Classes.Eq Amazonka.Redshift.CreateAuthenticationProfile.CreateAuthenticationProfileResponse
+ Amazonka.Redshift.CreateAuthenticationProfile: instance GHC.Generics.Generic Amazonka.Redshift.CreateAuthenticationProfile.CreateAuthenticationProfile
+ Amazonka.Redshift.CreateAuthenticationProfile: instance GHC.Generics.Generic Amazonka.Redshift.CreateAuthenticationProfile.CreateAuthenticationProfileResponse
+ Amazonka.Redshift.CreateAuthenticationProfile: instance GHC.Read.Read Amazonka.Redshift.CreateAuthenticationProfile.CreateAuthenticationProfile
+ Amazonka.Redshift.CreateAuthenticationProfile: instance GHC.Read.Read Amazonka.Redshift.CreateAuthenticationProfile.CreateAuthenticationProfileResponse
+ Amazonka.Redshift.CreateAuthenticationProfile: instance GHC.Show.Show Amazonka.Redshift.CreateAuthenticationProfile.CreateAuthenticationProfile
+ Amazonka.Redshift.CreateAuthenticationProfile: instance GHC.Show.Show Amazonka.Redshift.CreateAuthenticationProfile.CreateAuthenticationProfileResponse
+ Amazonka.Redshift.CreateAuthenticationProfile: newCreateAuthenticationProfile :: Text -> Text -> CreateAuthenticationProfile
+ Amazonka.Redshift.CreateAuthenticationProfile: newCreateAuthenticationProfileResponse :: Int -> CreateAuthenticationProfileResponse
+ Amazonka.Redshift.CreateCluster: CreateCluster' :: Maybe Text -> Maybe Bool -> Maybe AquaConfigurationStatus -> Maybe Int -> Maybe Text -> Maybe Bool -> Maybe Text -> Maybe [Text] -> Maybe Text -> Maybe Text -> Maybe Text -> Maybe Text -> Maybe Text -> Maybe Text -> Maybe Bool -> Maybe Bool -> Maybe Text -> Maybe Text -> Maybe [Text] -> Maybe Text -> Maybe Text -> Maybe Text -> Maybe Int -> Maybe Int -> Maybe Int -> Maybe Text -> Maybe Bool -> Maybe Text -> Maybe [Tag] -> Maybe [Text] -> Text -> Text -> Text -> Text -> CreateCluster
+ Amazonka.Redshift.CreateCluster: CreateClusterResponse' :: Maybe Cluster -> Int -> CreateClusterResponse
+ Amazonka.Redshift.CreateCluster: [$sel:additionalInfo:CreateCluster'] :: CreateCluster -> Maybe Text
+ Amazonka.Redshift.CreateCluster: [$sel:allowVersionUpgrade:CreateCluster'] :: CreateCluster -> Maybe Bool
+ Amazonka.Redshift.CreateCluster: [$sel:aquaConfigurationStatus:CreateCluster'] :: CreateCluster -> Maybe AquaConfigurationStatus
+ Amazonka.Redshift.CreateCluster: [$sel:automatedSnapshotRetentionPeriod:CreateCluster'] :: CreateCluster -> Maybe Int
+ Amazonka.Redshift.CreateCluster: [$sel:availabilityZone:CreateCluster'] :: CreateCluster -> Maybe Text
+ Amazonka.Redshift.CreateCluster: [$sel:availabilityZoneRelocation:CreateCluster'] :: CreateCluster -> Maybe Bool
+ Amazonka.Redshift.CreateCluster: [$sel:cluster:CreateClusterResponse'] :: CreateClusterResponse -> Maybe Cluster
+ Amazonka.Redshift.CreateCluster: [$sel:clusterIdentifier:CreateCluster'] :: CreateCluster -> Text
+ Amazonka.Redshift.CreateCluster: [$sel:clusterParameterGroupName:CreateCluster'] :: CreateCluster -> Maybe Text
+ Amazonka.Redshift.CreateCluster: [$sel:clusterSecurityGroups:CreateCluster'] :: CreateCluster -> Maybe [Text]
+ Amazonka.Redshift.CreateCluster: [$sel:clusterSubnetGroupName:CreateCluster'] :: CreateCluster -> Maybe Text
+ Amazonka.Redshift.CreateCluster: [$sel:clusterType:CreateCluster'] :: CreateCluster -> Maybe Text
+ Amazonka.Redshift.CreateCluster: [$sel:clusterVersion:CreateCluster'] :: CreateCluster -> Maybe Text
+ Amazonka.Redshift.CreateCluster: [$sel:dbName:CreateCluster'] :: CreateCluster -> Maybe Text
+ Amazonka.Redshift.CreateCluster: [$sel:defaultIamRoleArn:CreateCluster'] :: CreateCluster -> Maybe Text
+ Amazonka.Redshift.CreateCluster: [$sel:elasticIp:CreateCluster'] :: CreateCluster -> Maybe Text
+ Amazonka.Redshift.CreateCluster: [$sel:encrypted:CreateCluster'] :: CreateCluster -> Maybe Bool
+ Amazonka.Redshift.CreateCluster: [$sel:enhancedVpcRouting:CreateCluster'] :: CreateCluster -> Maybe Bool
+ Amazonka.Redshift.CreateCluster: [$sel:hsmClientCertificateIdentifier:CreateCluster'] :: CreateCluster -> Maybe Text
+ Amazonka.Redshift.CreateCluster: [$sel:hsmConfigurationIdentifier:CreateCluster'] :: CreateCluster -> Maybe Text
+ Amazonka.Redshift.CreateCluster: [$sel:httpStatus:CreateClusterResponse'] :: CreateClusterResponse -> Int
+ Amazonka.Redshift.CreateCluster: [$sel:iamRoles:CreateCluster'] :: CreateCluster -> Maybe [Text]
+ Amazonka.Redshift.CreateCluster: [$sel:kmsKeyId:CreateCluster'] :: CreateCluster -> Maybe Text
+ Amazonka.Redshift.CreateCluster: [$sel:loadSampleData:CreateCluster'] :: CreateCluster -> Maybe Text
+ Amazonka.Redshift.CreateCluster: [$sel:maintenanceTrackName:CreateCluster'] :: CreateCluster -> Maybe Text
+ Amazonka.Redshift.CreateCluster: [$sel:manualSnapshotRetentionPeriod:CreateCluster'] :: CreateCluster -> Maybe Int
+ Amazonka.Redshift.CreateCluster: [$sel:masterUserPassword:CreateCluster'] :: CreateCluster -> Text
+ Amazonka.Redshift.CreateCluster: [$sel:masterUsername:CreateCluster'] :: CreateCluster -> Text
+ Amazonka.Redshift.CreateCluster: [$sel:nodeType:CreateCluster'] :: CreateCluster -> Text
+ Amazonka.Redshift.CreateCluster: [$sel:numberOfNodes:CreateCluster'] :: CreateCluster -> Maybe Int
+ Amazonka.Redshift.CreateCluster: [$sel:port:CreateCluster'] :: CreateCluster -> Maybe Int
+ Amazonka.Redshift.CreateCluster: [$sel:preferredMaintenanceWindow:CreateCluster'] :: CreateCluster -> Maybe Text
+ Amazonka.Redshift.CreateCluster: [$sel:publiclyAccessible:CreateCluster'] :: CreateCluster -> Maybe Bool
+ Amazonka.Redshift.CreateCluster: [$sel:snapshotScheduleIdentifier:CreateCluster'] :: CreateCluster -> Maybe Text
+ Amazonka.Redshift.CreateCluster: [$sel:tags:CreateCluster'] :: CreateCluster -> Maybe [Tag]
+ Amazonka.Redshift.CreateCluster: [$sel:vpcSecurityGroupIds:CreateCluster'] :: CreateCluster -> Maybe [Text]
+ Amazonka.Redshift.CreateCluster: createClusterResponse_cluster :: Lens' CreateClusterResponse (Maybe Cluster)
+ Amazonka.Redshift.CreateCluster: createClusterResponse_httpStatus :: Lens' CreateClusterResponse Int
+ Amazonka.Redshift.CreateCluster: createCluster_additionalInfo :: Lens' CreateCluster (Maybe Text)
+ Amazonka.Redshift.CreateCluster: createCluster_allowVersionUpgrade :: Lens' CreateCluster (Maybe Bool)
+ Amazonka.Redshift.CreateCluster: createCluster_aquaConfigurationStatus :: Lens' CreateCluster (Maybe AquaConfigurationStatus)
+ Amazonka.Redshift.CreateCluster: createCluster_automatedSnapshotRetentionPeriod :: Lens' CreateCluster (Maybe Int)
+ Amazonka.Redshift.CreateCluster: createCluster_availabilityZone :: Lens' CreateCluster (Maybe Text)
+ Amazonka.Redshift.CreateCluster: createCluster_availabilityZoneRelocation :: Lens' CreateCluster (Maybe Bool)
+ Amazonka.Redshift.CreateCluster: createCluster_clusterIdentifier :: Lens' CreateCluster Text
+ Amazonka.Redshift.CreateCluster: createCluster_clusterParameterGroupName :: Lens' CreateCluster (Maybe Text)
+ Amazonka.Redshift.CreateCluster: createCluster_clusterSecurityGroups :: Lens' CreateCluster (Maybe [Text])
+ Amazonka.Redshift.CreateCluster: createCluster_clusterSubnetGroupName :: Lens' CreateCluster (Maybe Text)
+ Amazonka.Redshift.CreateCluster: createCluster_clusterType :: Lens' CreateCluster (Maybe Text)
+ Amazonka.Redshift.CreateCluster: createCluster_clusterVersion :: Lens' CreateCluster (Maybe Text)
+ Amazonka.Redshift.CreateCluster: createCluster_dbName :: Lens' CreateCluster (Maybe Text)
+ Amazonka.Redshift.CreateCluster: createCluster_defaultIamRoleArn :: Lens' CreateCluster (Maybe Text)
+ Amazonka.Redshift.CreateCluster: createCluster_elasticIp :: Lens' CreateCluster (Maybe Text)
+ Amazonka.Redshift.CreateCluster: createCluster_encrypted :: Lens' CreateCluster (Maybe Bool)
+ Amazonka.Redshift.CreateCluster: createCluster_enhancedVpcRouting :: Lens' CreateCluster (Maybe Bool)
+ Amazonka.Redshift.CreateCluster: createCluster_hsmClientCertificateIdentifier :: Lens' CreateCluster (Maybe Text)
+ Amazonka.Redshift.CreateCluster: createCluster_hsmConfigurationIdentifier :: Lens' CreateCluster (Maybe Text)
+ Amazonka.Redshift.CreateCluster: createCluster_iamRoles :: Lens' CreateCluster (Maybe [Text])
+ Amazonka.Redshift.CreateCluster: createCluster_kmsKeyId :: Lens' CreateCluster (Maybe Text)
+ Amazonka.Redshift.CreateCluster: createCluster_loadSampleData :: Lens' CreateCluster (Maybe Text)
+ Amazonka.Redshift.CreateCluster: createCluster_maintenanceTrackName :: Lens' CreateCluster (Maybe Text)
+ Amazonka.Redshift.CreateCluster: createCluster_manualSnapshotRetentionPeriod :: Lens' CreateCluster (Maybe Int)
+ Amazonka.Redshift.CreateCluster: createCluster_masterUserPassword :: Lens' CreateCluster Text
+ Amazonka.Redshift.CreateCluster: createCluster_masterUsername :: Lens' CreateCluster Text
+ Amazonka.Redshift.CreateCluster: createCluster_nodeType :: Lens' CreateCluster Text
+ Amazonka.Redshift.CreateCluster: createCluster_numberOfNodes :: Lens' CreateCluster (Maybe Int)
+ Amazonka.Redshift.CreateCluster: createCluster_port :: Lens' CreateCluster (Maybe Int)
+ Amazonka.Redshift.CreateCluster: createCluster_preferredMaintenanceWindow :: Lens' CreateCluster (Maybe Text)
+ Amazonka.Redshift.CreateCluster: createCluster_publiclyAccessible :: Lens' CreateCluster (Maybe Bool)
+ Amazonka.Redshift.CreateCluster: createCluster_snapshotScheduleIdentifier :: Lens' CreateCluster (Maybe Text)
+ Amazonka.Redshift.CreateCluster: createCluster_tags :: Lens' CreateCluster (Maybe [Tag])
+ Amazonka.Redshift.CreateCluster: createCluster_vpcSecurityGroupIds :: Lens' CreateCluster (Maybe [Text])
+ Amazonka.Redshift.CreateCluster: data CreateCluster
+ Amazonka.Redshift.CreateCluster: data CreateClusterResponse
+ Amazonka.Redshift.CreateCluster: instance Amazonka.Data.Headers.ToHeaders Amazonka.Redshift.CreateCluster.CreateCluster
+ Amazonka.Redshift.CreateCluster: instance Amazonka.Data.Path.ToPath Amazonka.Redshift.CreateCluster.CreateCluster
+ Amazonka.Redshift.CreateCluster: instance Amazonka.Data.Query.ToQuery Amazonka.Redshift.CreateCluster.CreateCluster
+ Amazonka.Redshift.CreateCluster: instance Amazonka.Types.AWSRequest Amazonka.Redshift.CreateCluster.CreateCluster
+ Amazonka.Redshift.CreateCluster: instance Control.DeepSeq.NFData Amazonka.Redshift.CreateCluster.CreateCluster
+ Amazonka.Redshift.CreateCluster: instance Control.DeepSeq.NFData Amazonka.Redshift.CreateCluster.CreateClusterResponse
+ Amazonka.Redshift.CreateCluster: instance Data.Hashable.Class.Hashable Amazonka.Redshift.CreateCluster.CreateCluster
+ Amazonka.Redshift.CreateCluster: instance GHC.Classes.Eq Amazonka.Redshift.CreateCluster.CreateCluster
+ Amazonka.Redshift.CreateCluster: instance GHC.Classes.Eq Amazonka.Redshift.CreateCluster.CreateClusterResponse
+ Amazonka.Redshift.CreateCluster: instance GHC.Generics.Generic Amazonka.Redshift.CreateCluster.CreateCluster
+ Amazonka.Redshift.CreateCluster: instance GHC.Generics.Generic Amazonka.Redshift.CreateCluster.CreateClusterResponse
+ Amazonka.Redshift.CreateCluster: instance GHC.Read.Read Amazonka.Redshift.CreateCluster.CreateCluster
+ Amazonka.Redshift.CreateCluster: instance GHC.Read.Read Amazonka.Redshift.CreateCluster.CreateClusterResponse
+ Amazonka.Redshift.CreateCluster: instance GHC.Show.Show Amazonka.Redshift.CreateCluster.CreateCluster
+ Amazonka.Redshift.CreateCluster: instance GHC.Show.Show Amazonka.Redshift.CreateCluster.CreateClusterResponse
+ Amazonka.Redshift.CreateCluster: newCreateCluster :: Text -> Text -> Text -> Text -> CreateCluster
+ Amazonka.Redshift.CreateCluster: newCreateClusterResponse :: Int -> CreateClusterResponse
+ Amazonka.Redshift.CreateClusterParameterGroup: CreateClusterParameterGroup' :: Maybe [Tag] -> Text -> Text -> Text -> CreateClusterParameterGroup
+ Amazonka.Redshift.CreateClusterParameterGroup: CreateClusterParameterGroupResponse' :: Maybe ClusterParameterGroup -> Int -> CreateClusterParameterGroupResponse
+ Amazonka.Redshift.CreateClusterParameterGroup: [$sel:clusterParameterGroup:CreateClusterParameterGroupResponse'] :: CreateClusterParameterGroupResponse -> Maybe ClusterParameterGroup
+ Amazonka.Redshift.CreateClusterParameterGroup: [$sel:description:CreateClusterParameterGroup'] :: CreateClusterParameterGroup -> Text
+ Amazonka.Redshift.CreateClusterParameterGroup: [$sel:httpStatus:CreateClusterParameterGroupResponse'] :: CreateClusterParameterGroupResponse -> Int
+ Amazonka.Redshift.CreateClusterParameterGroup: [$sel:parameterGroupFamily:CreateClusterParameterGroup'] :: CreateClusterParameterGroup -> Text
+ Amazonka.Redshift.CreateClusterParameterGroup: [$sel:parameterGroupName:CreateClusterParameterGroup'] :: CreateClusterParameterGroup -> Text
+ Amazonka.Redshift.CreateClusterParameterGroup: [$sel:tags:CreateClusterParameterGroup'] :: CreateClusterParameterGroup -> Maybe [Tag]
+ Amazonka.Redshift.CreateClusterParameterGroup: createClusterParameterGroupResponse_clusterParameterGroup :: Lens' CreateClusterParameterGroupResponse (Maybe ClusterParameterGroup)
+ Amazonka.Redshift.CreateClusterParameterGroup: createClusterParameterGroupResponse_httpStatus :: Lens' CreateClusterParameterGroupResponse Int
+ Amazonka.Redshift.CreateClusterParameterGroup: createClusterParameterGroup_description :: Lens' CreateClusterParameterGroup Text
+ Amazonka.Redshift.CreateClusterParameterGroup: createClusterParameterGroup_parameterGroupFamily :: Lens' CreateClusterParameterGroup Text
+ Amazonka.Redshift.CreateClusterParameterGroup: createClusterParameterGroup_parameterGroupName :: Lens' CreateClusterParameterGroup Text
+ Amazonka.Redshift.CreateClusterParameterGroup: createClusterParameterGroup_tags :: Lens' CreateClusterParameterGroup (Maybe [Tag])
+ Amazonka.Redshift.CreateClusterParameterGroup: data CreateClusterParameterGroup
+ Amazonka.Redshift.CreateClusterParameterGroup: data CreateClusterParameterGroupResponse
+ Amazonka.Redshift.CreateClusterParameterGroup: instance Amazonka.Data.Headers.ToHeaders Amazonka.Redshift.CreateClusterParameterGroup.CreateClusterParameterGroup
+ Amazonka.Redshift.CreateClusterParameterGroup: instance Amazonka.Data.Path.ToPath Amazonka.Redshift.CreateClusterParameterGroup.CreateClusterParameterGroup
+ Amazonka.Redshift.CreateClusterParameterGroup: instance Amazonka.Data.Query.ToQuery Amazonka.Redshift.CreateClusterParameterGroup.CreateClusterParameterGroup
+ Amazonka.Redshift.CreateClusterParameterGroup: instance Amazonka.Types.AWSRequest Amazonka.Redshift.CreateClusterParameterGroup.CreateClusterParameterGroup
+ Amazonka.Redshift.CreateClusterParameterGroup: instance Control.DeepSeq.NFData Amazonka.Redshift.CreateClusterParameterGroup.CreateClusterParameterGroup
+ Amazonka.Redshift.CreateClusterParameterGroup: instance Control.DeepSeq.NFData Amazonka.Redshift.CreateClusterParameterGroup.CreateClusterParameterGroupResponse
+ Amazonka.Redshift.CreateClusterParameterGroup: instance Data.Hashable.Class.Hashable Amazonka.Redshift.CreateClusterParameterGroup.CreateClusterParameterGroup
+ Amazonka.Redshift.CreateClusterParameterGroup: instance GHC.Classes.Eq Amazonka.Redshift.CreateClusterParameterGroup.CreateClusterParameterGroup
+ Amazonka.Redshift.CreateClusterParameterGroup: instance GHC.Classes.Eq Amazonka.Redshift.CreateClusterParameterGroup.CreateClusterParameterGroupResponse
+ Amazonka.Redshift.CreateClusterParameterGroup: instance GHC.Generics.Generic Amazonka.Redshift.CreateClusterParameterGroup.CreateClusterParameterGroup
+ Amazonka.Redshift.CreateClusterParameterGroup: instance GHC.Generics.Generic Amazonka.Redshift.CreateClusterParameterGroup.CreateClusterParameterGroupResponse
+ Amazonka.Redshift.CreateClusterParameterGroup: instance GHC.Read.Read Amazonka.Redshift.CreateClusterParameterGroup.CreateClusterParameterGroup
+ Amazonka.Redshift.CreateClusterParameterGroup: instance GHC.Read.Read Amazonka.Redshift.CreateClusterParameterGroup.CreateClusterParameterGroupResponse
+ Amazonka.Redshift.CreateClusterParameterGroup: instance GHC.Show.Show Amazonka.Redshift.CreateClusterParameterGroup.CreateClusterParameterGroup
+ Amazonka.Redshift.CreateClusterParameterGroup: instance GHC.Show.Show Amazonka.Redshift.CreateClusterParameterGroup.CreateClusterParameterGroupResponse
+ Amazonka.Redshift.CreateClusterParameterGroup: newCreateClusterParameterGroup :: Text -> Text -> Text -> CreateClusterParameterGroup
+ Amazonka.Redshift.CreateClusterParameterGroup: newCreateClusterParameterGroupResponse :: Int -> CreateClusterParameterGroupResponse
+ Amazonka.Redshift.CreateClusterSecurityGroup: CreateClusterSecurityGroup' :: Maybe [Tag] -> Text -> Text -> CreateClusterSecurityGroup
+ Amazonka.Redshift.CreateClusterSecurityGroup: CreateClusterSecurityGroupResponse' :: Maybe ClusterSecurityGroup -> Int -> CreateClusterSecurityGroupResponse
+ Amazonka.Redshift.CreateClusterSecurityGroup: [$sel:clusterSecurityGroup:CreateClusterSecurityGroupResponse'] :: CreateClusterSecurityGroupResponse -> Maybe ClusterSecurityGroup
+ Amazonka.Redshift.CreateClusterSecurityGroup: [$sel:clusterSecurityGroupName:CreateClusterSecurityGroup'] :: CreateClusterSecurityGroup -> Text
+ Amazonka.Redshift.CreateClusterSecurityGroup: [$sel:description:CreateClusterSecurityGroup'] :: CreateClusterSecurityGroup -> Text
+ Amazonka.Redshift.CreateClusterSecurityGroup: [$sel:httpStatus:CreateClusterSecurityGroupResponse'] :: CreateClusterSecurityGroupResponse -> Int
+ Amazonka.Redshift.CreateClusterSecurityGroup: [$sel:tags:CreateClusterSecurityGroup'] :: CreateClusterSecurityGroup -> Maybe [Tag]
+ Amazonka.Redshift.CreateClusterSecurityGroup: createClusterSecurityGroupResponse_clusterSecurityGroup :: Lens' CreateClusterSecurityGroupResponse (Maybe ClusterSecurityGroup)
+ Amazonka.Redshift.CreateClusterSecurityGroup: createClusterSecurityGroupResponse_httpStatus :: Lens' CreateClusterSecurityGroupResponse Int
+ Amazonka.Redshift.CreateClusterSecurityGroup: createClusterSecurityGroup_clusterSecurityGroupName :: Lens' CreateClusterSecurityGroup Text
+ Amazonka.Redshift.CreateClusterSecurityGroup: createClusterSecurityGroup_description :: Lens' CreateClusterSecurityGroup Text
+ Amazonka.Redshift.CreateClusterSecurityGroup: createClusterSecurityGroup_tags :: Lens' CreateClusterSecurityGroup (Maybe [Tag])
+ Amazonka.Redshift.CreateClusterSecurityGroup: data CreateClusterSecurityGroup
+ Amazonka.Redshift.CreateClusterSecurityGroup: data CreateClusterSecurityGroupResponse
+ Amazonka.Redshift.CreateClusterSecurityGroup: instance Amazonka.Data.Headers.ToHeaders Amazonka.Redshift.CreateClusterSecurityGroup.CreateClusterSecurityGroup
+ Amazonka.Redshift.CreateClusterSecurityGroup: instance Amazonka.Data.Path.ToPath Amazonka.Redshift.CreateClusterSecurityGroup.CreateClusterSecurityGroup
+ Amazonka.Redshift.CreateClusterSecurityGroup: instance Amazonka.Data.Query.ToQuery Amazonka.Redshift.CreateClusterSecurityGroup.CreateClusterSecurityGroup
+ Amazonka.Redshift.CreateClusterSecurityGroup: instance Amazonka.Types.AWSRequest Amazonka.Redshift.CreateClusterSecurityGroup.CreateClusterSecurityGroup
+ Amazonka.Redshift.CreateClusterSecurityGroup: instance Control.DeepSeq.NFData Amazonka.Redshift.CreateClusterSecurityGroup.CreateClusterSecurityGroup
+ Amazonka.Redshift.CreateClusterSecurityGroup: instance Control.DeepSeq.NFData Amazonka.Redshift.CreateClusterSecurityGroup.CreateClusterSecurityGroupResponse
+ Amazonka.Redshift.CreateClusterSecurityGroup: instance Data.Hashable.Class.Hashable Amazonka.Redshift.CreateClusterSecurityGroup.CreateClusterSecurityGroup
+ Amazonka.Redshift.CreateClusterSecurityGroup: instance GHC.Classes.Eq Amazonka.Redshift.CreateClusterSecurityGroup.CreateClusterSecurityGroup
+ Amazonka.Redshift.CreateClusterSecurityGroup: instance GHC.Classes.Eq Amazonka.Redshift.CreateClusterSecurityGroup.CreateClusterSecurityGroupResponse
+ Amazonka.Redshift.CreateClusterSecurityGroup: instance GHC.Generics.Generic Amazonka.Redshift.CreateClusterSecurityGroup.CreateClusterSecurityGroup
+ Amazonka.Redshift.CreateClusterSecurityGroup: instance GHC.Generics.Generic Amazonka.Redshift.CreateClusterSecurityGroup.CreateClusterSecurityGroupResponse
+ Amazonka.Redshift.CreateClusterSecurityGroup: instance GHC.Read.Read Amazonka.Redshift.CreateClusterSecurityGroup.CreateClusterSecurityGroup
+ Amazonka.Redshift.CreateClusterSecurityGroup: instance GHC.Read.Read Amazonka.Redshift.CreateClusterSecurityGroup.CreateClusterSecurityGroupResponse
+ Amazonka.Redshift.CreateClusterSecurityGroup: instance GHC.Show.Show Amazonka.Redshift.CreateClusterSecurityGroup.CreateClusterSecurityGroup
+ Amazonka.Redshift.CreateClusterSecurityGroup: instance GHC.Show.Show Amazonka.Redshift.CreateClusterSecurityGroup.CreateClusterSecurityGroupResponse
+ Amazonka.Redshift.CreateClusterSecurityGroup: newCreateClusterSecurityGroup :: Text -> Text -> CreateClusterSecurityGroup
+ Amazonka.Redshift.CreateClusterSecurityGroup: newCreateClusterSecurityGroupResponse :: Int -> CreateClusterSecurityGroupResponse
+ Amazonka.Redshift.CreateClusterSnapshot: CreateClusterSnapshot' :: Maybe Int -> Maybe [Tag] -> Text -> Text -> CreateClusterSnapshot
+ Amazonka.Redshift.CreateClusterSnapshot: CreateClusterSnapshotResponse' :: Maybe Snapshot -> Int -> CreateClusterSnapshotResponse
+ Amazonka.Redshift.CreateClusterSnapshot: [$sel:clusterIdentifier:CreateClusterSnapshot'] :: CreateClusterSnapshot -> Text
+ Amazonka.Redshift.CreateClusterSnapshot: [$sel:httpStatus:CreateClusterSnapshotResponse'] :: CreateClusterSnapshotResponse -> Int
+ Amazonka.Redshift.CreateClusterSnapshot: [$sel:manualSnapshotRetentionPeriod:CreateClusterSnapshot'] :: CreateClusterSnapshot -> Maybe Int
+ Amazonka.Redshift.CreateClusterSnapshot: [$sel:snapshot:CreateClusterSnapshotResponse'] :: CreateClusterSnapshotResponse -> Maybe Snapshot
+ Amazonka.Redshift.CreateClusterSnapshot: [$sel:snapshotIdentifier:CreateClusterSnapshot'] :: CreateClusterSnapshot -> Text
+ Amazonka.Redshift.CreateClusterSnapshot: [$sel:tags:CreateClusterSnapshot'] :: CreateClusterSnapshot -> Maybe [Tag]
+ Amazonka.Redshift.CreateClusterSnapshot: createClusterSnapshotResponse_httpStatus :: Lens' CreateClusterSnapshotResponse Int
+ Amazonka.Redshift.CreateClusterSnapshot: createClusterSnapshotResponse_snapshot :: Lens' CreateClusterSnapshotResponse (Maybe Snapshot)
+ Amazonka.Redshift.CreateClusterSnapshot: createClusterSnapshot_clusterIdentifier :: Lens' CreateClusterSnapshot Text
+ Amazonka.Redshift.CreateClusterSnapshot: createClusterSnapshot_manualSnapshotRetentionPeriod :: Lens' CreateClusterSnapshot (Maybe Int)
+ Amazonka.Redshift.CreateClusterSnapshot: createClusterSnapshot_snapshotIdentifier :: Lens' CreateClusterSnapshot Text
+ Amazonka.Redshift.CreateClusterSnapshot: createClusterSnapshot_tags :: Lens' CreateClusterSnapshot (Maybe [Tag])
+ Amazonka.Redshift.CreateClusterSnapshot: data CreateClusterSnapshot
+ Amazonka.Redshift.CreateClusterSnapshot: data CreateClusterSnapshotResponse
+ Amazonka.Redshift.CreateClusterSnapshot: instance Amazonka.Data.Headers.ToHeaders Amazonka.Redshift.CreateClusterSnapshot.CreateClusterSnapshot
+ Amazonka.Redshift.CreateClusterSnapshot: instance Amazonka.Data.Path.ToPath Amazonka.Redshift.CreateClusterSnapshot.CreateClusterSnapshot
+ Amazonka.Redshift.CreateClusterSnapshot: instance Amazonka.Data.Query.ToQuery Amazonka.Redshift.CreateClusterSnapshot.CreateClusterSnapshot
+ Amazonka.Redshift.CreateClusterSnapshot: instance Amazonka.Types.AWSRequest Amazonka.Redshift.CreateClusterSnapshot.CreateClusterSnapshot
+ Amazonka.Redshift.CreateClusterSnapshot: instance Control.DeepSeq.NFData Amazonka.Redshift.CreateClusterSnapshot.CreateClusterSnapshot
+ Amazonka.Redshift.CreateClusterSnapshot: instance Control.DeepSeq.NFData Amazonka.Redshift.CreateClusterSnapshot.CreateClusterSnapshotResponse
+ Amazonka.Redshift.CreateClusterSnapshot: instance Data.Hashable.Class.Hashable Amazonka.Redshift.CreateClusterSnapshot.CreateClusterSnapshot
+ Amazonka.Redshift.CreateClusterSnapshot: instance GHC.Classes.Eq Amazonka.Redshift.CreateClusterSnapshot.CreateClusterSnapshot
+ Amazonka.Redshift.CreateClusterSnapshot: instance GHC.Classes.Eq Amazonka.Redshift.CreateClusterSnapshot.CreateClusterSnapshotResponse
+ Amazonka.Redshift.CreateClusterSnapshot: instance GHC.Generics.Generic Amazonka.Redshift.CreateClusterSnapshot.CreateClusterSnapshot
+ Amazonka.Redshift.CreateClusterSnapshot: instance GHC.Generics.Generic Amazonka.Redshift.CreateClusterSnapshot.CreateClusterSnapshotResponse
+ Amazonka.Redshift.CreateClusterSnapshot: instance GHC.Read.Read Amazonka.Redshift.CreateClusterSnapshot.CreateClusterSnapshot
+ Amazonka.Redshift.CreateClusterSnapshot: instance GHC.Read.Read Amazonka.Redshift.CreateClusterSnapshot.CreateClusterSnapshotResponse
+ Amazonka.Redshift.CreateClusterSnapshot: instance GHC.Show.Show Amazonka.Redshift.CreateClusterSnapshot.CreateClusterSnapshot
+ Amazonka.Redshift.CreateClusterSnapshot: instance GHC.Show.Show Amazonka.Redshift.CreateClusterSnapshot.CreateClusterSnapshotResponse
+ Amazonka.Redshift.CreateClusterSnapshot: newCreateClusterSnapshot :: Text -> Text -> CreateClusterSnapshot
+ Amazonka.Redshift.CreateClusterSnapshot: newCreateClusterSnapshotResponse :: Int -> CreateClusterSnapshotResponse
+ Amazonka.Redshift.CreateClusterSubnetGroup: CreateClusterSubnetGroup' :: Maybe [Tag] -> Text -> Text -> [Text] -> CreateClusterSubnetGroup
+ Amazonka.Redshift.CreateClusterSubnetGroup: CreateClusterSubnetGroupResponse' :: Maybe ClusterSubnetGroup -> Int -> CreateClusterSubnetGroupResponse
+ Amazonka.Redshift.CreateClusterSubnetGroup: [$sel:clusterSubnetGroup:CreateClusterSubnetGroupResponse'] :: CreateClusterSubnetGroupResponse -> Maybe ClusterSubnetGroup
+ Amazonka.Redshift.CreateClusterSubnetGroup: [$sel:clusterSubnetGroupName:CreateClusterSubnetGroup'] :: CreateClusterSubnetGroup -> Text
+ Amazonka.Redshift.CreateClusterSubnetGroup: [$sel:description:CreateClusterSubnetGroup'] :: CreateClusterSubnetGroup -> Text
+ Amazonka.Redshift.CreateClusterSubnetGroup: [$sel:httpStatus:CreateClusterSubnetGroupResponse'] :: CreateClusterSubnetGroupResponse -> Int
+ Amazonka.Redshift.CreateClusterSubnetGroup: [$sel:subnetIds:CreateClusterSubnetGroup'] :: CreateClusterSubnetGroup -> [Text]
+ Amazonka.Redshift.CreateClusterSubnetGroup: [$sel:tags:CreateClusterSubnetGroup'] :: CreateClusterSubnetGroup -> Maybe [Tag]
+ Amazonka.Redshift.CreateClusterSubnetGroup: createClusterSubnetGroupResponse_clusterSubnetGroup :: Lens' CreateClusterSubnetGroupResponse (Maybe ClusterSubnetGroup)
+ Amazonka.Redshift.CreateClusterSubnetGroup: createClusterSubnetGroupResponse_httpStatus :: Lens' CreateClusterSubnetGroupResponse Int
+ Amazonka.Redshift.CreateClusterSubnetGroup: createClusterSubnetGroup_clusterSubnetGroupName :: Lens' CreateClusterSubnetGroup Text
+ Amazonka.Redshift.CreateClusterSubnetGroup: createClusterSubnetGroup_description :: Lens' CreateClusterSubnetGroup Text
+ Amazonka.Redshift.CreateClusterSubnetGroup: createClusterSubnetGroup_subnetIds :: Lens' CreateClusterSubnetGroup [Text]
+ Amazonka.Redshift.CreateClusterSubnetGroup: createClusterSubnetGroup_tags :: Lens' CreateClusterSubnetGroup (Maybe [Tag])
+ Amazonka.Redshift.CreateClusterSubnetGroup: data CreateClusterSubnetGroup
+ Amazonka.Redshift.CreateClusterSubnetGroup: data CreateClusterSubnetGroupResponse
+ Amazonka.Redshift.CreateClusterSubnetGroup: instance Amazonka.Data.Headers.ToHeaders Amazonka.Redshift.CreateClusterSubnetGroup.CreateClusterSubnetGroup
+ Amazonka.Redshift.CreateClusterSubnetGroup: instance Amazonka.Data.Path.ToPath Amazonka.Redshift.CreateClusterSubnetGroup.CreateClusterSubnetGroup
+ Amazonka.Redshift.CreateClusterSubnetGroup: instance Amazonka.Data.Query.ToQuery Amazonka.Redshift.CreateClusterSubnetGroup.CreateClusterSubnetGroup
+ Amazonka.Redshift.CreateClusterSubnetGroup: instance Amazonka.Types.AWSRequest Amazonka.Redshift.CreateClusterSubnetGroup.CreateClusterSubnetGroup
+ Amazonka.Redshift.CreateClusterSubnetGroup: instance Control.DeepSeq.NFData Amazonka.Redshift.CreateClusterSubnetGroup.CreateClusterSubnetGroup
+ Amazonka.Redshift.CreateClusterSubnetGroup: instance Control.DeepSeq.NFData Amazonka.Redshift.CreateClusterSubnetGroup.CreateClusterSubnetGroupResponse
+ Amazonka.Redshift.CreateClusterSubnetGroup: instance Data.Hashable.Class.Hashable Amazonka.Redshift.CreateClusterSubnetGroup.CreateClusterSubnetGroup
+ Amazonka.Redshift.CreateClusterSubnetGroup: instance GHC.Classes.Eq Amazonka.Redshift.CreateClusterSubnetGroup.CreateClusterSubnetGroup
+ Amazonka.Redshift.CreateClusterSubnetGroup: instance GHC.Classes.Eq Amazonka.Redshift.CreateClusterSubnetGroup.CreateClusterSubnetGroupResponse
+ Amazonka.Redshift.CreateClusterSubnetGroup: instance GHC.Generics.Generic Amazonka.Redshift.CreateClusterSubnetGroup.CreateClusterSubnetGroup
+ Amazonka.Redshift.CreateClusterSubnetGroup: instance GHC.Generics.Generic Amazonka.Redshift.CreateClusterSubnetGroup.CreateClusterSubnetGroupResponse
+ Amazonka.Redshift.CreateClusterSubnetGroup: instance GHC.Read.Read Amazonka.Redshift.CreateClusterSubnetGroup.CreateClusterSubnetGroup
+ Amazonka.Redshift.CreateClusterSubnetGroup: instance GHC.Read.Read Amazonka.Redshift.CreateClusterSubnetGroup.CreateClusterSubnetGroupResponse
+ Amazonka.Redshift.CreateClusterSubnetGroup: instance GHC.Show.Show Amazonka.Redshift.CreateClusterSubnetGroup.CreateClusterSubnetGroup
+ Amazonka.Redshift.CreateClusterSubnetGroup: instance GHC.Show.Show Amazonka.Redshift.CreateClusterSubnetGroup.CreateClusterSubnetGroupResponse
+ Amazonka.Redshift.CreateClusterSubnetGroup: newCreateClusterSubnetGroup :: Text -> Text -> CreateClusterSubnetGroup
+ Amazonka.Redshift.CreateClusterSubnetGroup: newCreateClusterSubnetGroupResponse :: Int -> CreateClusterSubnetGroupResponse
+ Amazonka.Redshift.CreateEndpointAccess: CreateEndpointAccess' :: Maybe Text -> Maybe Text -> Maybe [Text] -> Text -> Text -> CreateEndpointAccess
+ Amazonka.Redshift.CreateEndpointAccess: EndpointAccess' :: Maybe Text -> Maybe Text -> Maybe ISO8601 -> Maybe Text -> Maybe Text -> Maybe Int -> Maybe Text -> Maybe Text -> Maybe VpcEndpoint -> Maybe [VpcSecurityGroupMembership] -> EndpointAccess
+ Amazonka.Redshift.CreateEndpointAccess: [$sel:address:EndpointAccess'] :: EndpointAccess -> Maybe Text
+ Amazonka.Redshift.CreateEndpointAccess: [$sel:clusterIdentifier:CreateEndpointAccess'] :: CreateEndpointAccess -> Maybe Text
+ Amazonka.Redshift.CreateEndpointAccess: [$sel:clusterIdentifier:EndpointAccess'] :: EndpointAccess -> Maybe Text
+ Amazonka.Redshift.CreateEndpointAccess: [$sel:endpointCreateTime:EndpointAccess'] :: EndpointAccess -> Maybe ISO8601
+ Amazonka.Redshift.CreateEndpointAccess: [$sel:endpointName:CreateEndpointAccess'] :: CreateEndpointAccess -> Text
+ Amazonka.Redshift.CreateEndpointAccess: [$sel:endpointName:EndpointAccess'] :: EndpointAccess -> Maybe Text
+ Amazonka.Redshift.CreateEndpointAccess: [$sel:endpointStatus:EndpointAccess'] :: EndpointAccess -> Maybe Text
+ Amazonka.Redshift.CreateEndpointAccess: [$sel:port:EndpointAccess'] :: EndpointAccess -> Maybe Int
+ Amazonka.Redshift.CreateEndpointAccess: [$sel:resourceOwner:CreateEndpointAccess'] :: CreateEndpointAccess -> Maybe Text
+ Amazonka.Redshift.CreateEndpointAccess: [$sel:resourceOwner:EndpointAccess'] :: EndpointAccess -> Maybe Text
+ Amazonka.Redshift.CreateEndpointAccess: [$sel:subnetGroupName:CreateEndpointAccess'] :: CreateEndpointAccess -> Text
+ Amazonka.Redshift.CreateEndpointAccess: [$sel:subnetGroupName:EndpointAccess'] :: EndpointAccess -> Maybe Text
+ Amazonka.Redshift.CreateEndpointAccess: [$sel:vpcEndpoint:EndpointAccess'] :: EndpointAccess -> Maybe VpcEndpoint
+ Amazonka.Redshift.CreateEndpointAccess: [$sel:vpcSecurityGroupIds:CreateEndpointAccess'] :: CreateEndpointAccess -> Maybe [Text]
+ Amazonka.Redshift.CreateEndpointAccess: [$sel:vpcSecurityGroups:EndpointAccess'] :: EndpointAccess -> Maybe [VpcSecurityGroupMembership]
+ Amazonka.Redshift.CreateEndpointAccess: createEndpointAccess_clusterIdentifier :: Lens' CreateEndpointAccess (Maybe Text)
+ Amazonka.Redshift.CreateEndpointAccess: createEndpointAccess_endpointName :: Lens' CreateEndpointAccess Text
+ Amazonka.Redshift.CreateEndpointAccess: createEndpointAccess_resourceOwner :: Lens' CreateEndpointAccess (Maybe Text)
+ Amazonka.Redshift.CreateEndpointAccess: createEndpointAccess_subnetGroupName :: Lens' CreateEndpointAccess Text
+ Amazonka.Redshift.CreateEndpointAccess: createEndpointAccess_vpcSecurityGroupIds :: Lens' CreateEndpointAccess (Maybe [Text])
+ Amazonka.Redshift.CreateEndpointAccess: data CreateEndpointAccess
+ Amazonka.Redshift.CreateEndpointAccess: data EndpointAccess
+ Amazonka.Redshift.CreateEndpointAccess: endpointAccess_address :: Lens' EndpointAccess (Maybe Text)
+ Amazonka.Redshift.CreateEndpointAccess: endpointAccess_clusterIdentifier :: Lens' EndpointAccess (Maybe Text)
+ Amazonka.Redshift.CreateEndpointAccess: endpointAccess_endpointCreateTime :: Lens' EndpointAccess (Maybe UTCTime)
+ Amazonka.Redshift.CreateEndpointAccess: endpointAccess_endpointName :: Lens' EndpointAccess (Maybe Text)
+ Amazonka.Redshift.CreateEndpointAccess: endpointAccess_endpointStatus :: Lens' EndpointAccess (Maybe Text)
+ Amazonka.Redshift.CreateEndpointAccess: endpointAccess_port :: Lens' EndpointAccess (Maybe Int)
+ Amazonka.Redshift.CreateEndpointAccess: endpointAccess_resourceOwner :: Lens' EndpointAccess (Maybe Text)
+ Amazonka.Redshift.CreateEndpointAccess: endpointAccess_subnetGroupName :: Lens' EndpointAccess (Maybe Text)
+ Amazonka.Redshift.CreateEndpointAccess: endpointAccess_vpcEndpoint :: Lens' EndpointAccess (Maybe VpcEndpoint)
+ Amazonka.Redshift.CreateEndpointAccess: endpointAccess_vpcSecurityGroups :: Lens' EndpointAccess (Maybe [VpcSecurityGroupMembership])
+ Amazonka.Redshift.CreateEndpointAccess: instance Amazonka.Data.Headers.ToHeaders Amazonka.Redshift.CreateEndpointAccess.CreateEndpointAccess
+ Amazonka.Redshift.CreateEndpointAccess: instance Amazonka.Data.Path.ToPath Amazonka.Redshift.CreateEndpointAccess.CreateEndpointAccess
+ Amazonka.Redshift.CreateEndpointAccess: instance Amazonka.Data.Query.ToQuery Amazonka.Redshift.CreateEndpointAccess.CreateEndpointAccess
+ Amazonka.Redshift.CreateEndpointAccess: instance Amazonka.Types.AWSRequest Amazonka.Redshift.CreateEndpointAccess.CreateEndpointAccess
+ Amazonka.Redshift.CreateEndpointAccess: instance Control.DeepSeq.NFData Amazonka.Redshift.CreateEndpointAccess.CreateEndpointAccess
+ Amazonka.Redshift.CreateEndpointAccess: instance Data.Hashable.Class.Hashable Amazonka.Redshift.CreateEndpointAccess.CreateEndpointAccess
+ Amazonka.Redshift.CreateEndpointAccess: instance GHC.Classes.Eq Amazonka.Redshift.CreateEndpointAccess.CreateEndpointAccess
+ Amazonka.Redshift.CreateEndpointAccess: instance GHC.Generics.Generic Amazonka.Redshift.CreateEndpointAccess.CreateEndpointAccess
+ Amazonka.Redshift.CreateEndpointAccess: instance GHC.Read.Read Amazonka.Redshift.CreateEndpointAccess.CreateEndpointAccess
+ Amazonka.Redshift.CreateEndpointAccess: instance GHC.Show.Show Amazonka.Redshift.CreateEndpointAccess.CreateEndpointAccess
+ Amazonka.Redshift.CreateEndpointAccess: newCreateEndpointAccess :: Text -> Text -> CreateEndpointAccess
+ Amazonka.Redshift.CreateEndpointAccess: newEndpointAccess :: EndpointAccess
+ Amazonka.Redshift.CreateEventSubscription: CreateEventSubscription' :: Maybe Bool -> Maybe [Text] -> Maybe Text -> Maybe [Text] -> Maybe Text -> Maybe [Tag] -> Text -> Text -> CreateEventSubscription
+ Amazonka.Redshift.CreateEventSubscription: CreateEventSubscriptionResponse' :: Maybe EventSubscription -> Int -> CreateEventSubscriptionResponse
+ Amazonka.Redshift.CreateEventSubscription: [$sel:enabled:CreateEventSubscription'] :: CreateEventSubscription -> Maybe Bool
+ Amazonka.Redshift.CreateEventSubscription: [$sel:eventCategories:CreateEventSubscription'] :: CreateEventSubscription -> Maybe [Text]
+ Amazonka.Redshift.CreateEventSubscription: [$sel:eventSubscription:CreateEventSubscriptionResponse'] :: CreateEventSubscriptionResponse -> Maybe EventSubscription
+ Amazonka.Redshift.CreateEventSubscription: [$sel:httpStatus:CreateEventSubscriptionResponse'] :: CreateEventSubscriptionResponse -> Int
+ Amazonka.Redshift.CreateEventSubscription: [$sel:severity:CreateEventSubscription'] :: CreateEventSubscription -> Maybe Text
+ Amazonka.Redshift.CreateEventSubscription: [$sel:snsTopicArn:CreateEventSubscription'] :: CreateEventSubscription -> Text
+ Amazonka.Redshift.CreateEventSubscription: [$sel:sourceIds:CreateEventSubscription'] :: CreateEventSubscription -> Maybe [Text]
+ Amazonka.Redshift.CreateEventSubscription: [$sel:sourceType:CreateEventSubscription'] :: CreateEventSubscription -> Maybe Text
+ Amazonka.Redshift.CreateEventSubscription: [$sel:subscriptionName:CreateEventSubscription'] :: CreateEventSubscription -> Text
+ Amazonka.Redshift.CreateEventSubscription: [$sel:tags:CreateEventSubscription'] :: CreateEventSubscription -> Maybe [Tag]
+ Amazonka.Redshift.CreateEventSubscription: createEventSubscriptionResponse_eventSubscription :: Lens' CreateEventSubscriptionResponse (Maybe EventSubscription)
+ Amazonka.Redshift.CreateEventSubscription: createEventSubscriptionResponse_httpStatus :: Lens' CreateEventSubscriptionResponse Int
+ Amazonka.Redshift.CreateEventSubscription: createEventSubscription_enabled :: Lens' CreateEventSubscription (Maybe Bool)
+ Amazonka.Redshift.CreateEventSubscription: createEventSubscription_eventCategories :: Lens' CreateEventSubscription (Maybe [Text])
+ Amazonka.Redshift.CreateEventSubscription: createEventSubscription_severity :: Lens' CreateEventSubscription (Maybe Text)
+ Amazonka.Redshift.CreateEventSubscription: createEventSubscription_snsTopicArn :: Lens' CreateEventSubscription Text
+ Amazonka.Redshift.CreateEventSubscription: createEventSubscription_sourceIds :: Lens' CreateEventSubscription (Maybe [Text])
+ Amazonka.Redshift.CreateEventSubscription: createEventSubscription_sourceType :: Lens' CreateEventSubscription (Maybe Text)
+ Amazonka.Redshift.CreateEventSubscription: createEventSubscription_subscriptionName :: Lens' CreateEventSubscription Text
+ Amazonka.Redshift.CreateEventSubscription: createEventSubscription_tags :: Lens' CreateEventSubscription (Maybe [Tag])
+ Amazonka.Redshift.CreateEventSubscription: data CreateEventSubscription
+ Amazonka.Redshift.CreateEventSubscription: data CreateEventSubscriptionResponse
+ Amazonka.Redshift.CreateEventSubscription: instance Amazonka.Data.Headers.ToHeaders Amazonka.Redshift.CreateEventSubscription.CreateEventSubscription
+ Amazonka.Redshift.CreateEventSubscription: instance Amazonka.Data.Path.ToPath Amazonka.Redshift.CreateEventSubscription.CreateEventSubscription
+ Amazonka.Redshift.CreateEventSubscription: instance Amazonka.Data.Query.ToQuery Amazonka.Redshift.CreateEventSubscription.CreateEventSubscription
+ Amazonka.Redshift.CreateEventSubscription: instance Amazonka.Types.AWSRequest Amazonka.Redshift.CreateEventSubscription.CreateEventSubscription
+ Amazonka.Redshift.CreateEventSubscription: instance Control.DeepSeq.NFData Amazonka.Redshift.CreateEventSubscription.CreateEventSubscription
+ Amazonka.Redshift.CreateEventSubscription: instance Control.DeepSeq.NFData Amazonka.Redshift.CreateEventSubscription.CreateEventSubscriptionResponse
+ Amazonka.Redshift.CreateEventSubscription: instance Data.Hashable.Class.Hashable Amazonka.Redshift.CreateEventSubscription.CreateEventSubscription
+ Amazonka.Redshift.CreateEventSubscription: instance GHC.Classes.Eq Amazonka.Redshift.CreateEventSubscription.CreateEventSubscription
+ Amazonka.Redshift.CreateEventSubscription: instance GHC.Classes.Eq Amazonka.Redshift.CreateEventSubscription.CreateEventSubscriptionResponse
+ Amazonka.Redshift.CreateEventSubscription: instance GHC.Generics.Generic Amazonka.Redshift.CreateEventSubscription.CreateEventSubscription
+ Amazonka.Redshift.CreateEventSubscription: instance GHC.Generics.Generic Amazonka.Redshift.CreateEventSubscription.CreateEventSubscriptionResponse
+ Amazonka.Redshift.CreateEventSubscription: instance GHC.Read.Read Amazonka.Redshift.CreateEventSubscription.CreateEventSubscription
+ Amazonka.Redshift.CreateEventSubscription: instance GHC.Read.Read Amazonka.Redshift.CreateEventSubscription.CreateEventSubscriptionResponse
+ Amazonka.Redshift.CreateEventSubscription: instance GHC.Show.Show Amazonka.Redshift.CreateEventSubscription.CreateEventSubscription
+ Amazonka.Redshift.CreateEventSubscription: instance GHC.Show.Show Amazonka.Redshift.CreateEventSubscription.CreateEventSubscriptionResponse
+ Amazonka.Redshift.CreateEventSubscription: newCreateEventSubscription :: Text -> Text -> CreateEventSubscription
+ Amazonka.Redshift.CreateEventSubscription: newCreateEventSubscriptionResponse :: Int -> CreateEventSubscriptionResponse
+ Amazonka.Redshift.CreateHsmClientCertificate: CreateHsmClientCertificate' :: Maybe [Tag] -> Text -> CreateHsmClientCertificate
+ Amazonka.Redshift.CreateHsmClientCertificate: CreateHsmClientCertificateResponse' :: Maybe HsmClientCertificate -> Int -> CreateHsmClientCertificateResponse
+ Amazonka.Redshift.CreateHsmClientCertificate: [$sel:hsmClientCertificate:CreateHsmClientCertificateResponse'] :: CreateHsmClientCertificateResponse -> Maybe HsmClientCertificate
+ Amazonka.Redshift.CreateHsmClientCertificate: [$sel:hsmClientCertificateIdentifier:CreateHsmClientCertificate'] :: CreateHsmClientCertificate -> Text
+ Amazonka.Redshift.CreateHsmClientCertificate: [$sel:httpStatus:CreateHsmClientCertificateResponse'] :: CreateHsmClientCertificateResponse -> Int
+ Amazonka.Redshift.CreateHsmClientCertificate: [$sel:tags:CreateHsmClientCertificate'] :: CreateHsmClientCertificate -> Maybe [Tag]
+ Amazonka.Redshift.CreateHsmClientCertificate: createHsmClientCertificateResponse_hsmClientCertificate :: Lens' CreateHsmClientCertificateResponse (Maybe HsmClientCertificate)
+ Amazonka.Redshift.CreateHsmClientCertificate: createHsmClientCertificateResponse_httpStatus :: Lens' CreateHsmClientCertificateResponse Int
+ Amazonka.Redshift.CreateHsmClientCertificate: createHsmClientCertificate_hsmClientCertificateIdentifier :: Lens' CreateHsmClientCertificate Text
+ Amazonka.Redshift.CreateHsmClientCertificate: createHsmClientCertificate_tags :: Lens' CreateHsmClientCertificate (Maybe [Tag])
+ Amazonka.Redshift.CreateHsmClientCertificate: data CreateHsmClientCertificate
+ Amazonka.Redshift.CreateHsmClientCertificate: data CreateHsmClientCertificateResponse
+ Amazonka.Redshift.CreateHsmClientCertificate: instance Amazonka.Data.Headers.ToHeaders Amazonka.Redshift.CreateHsmClientCertificate.CreateHsmClientCertificate
+ Amazonka.Redshift.CreateHsmClientCertificate: instance Amazonka.Data.Path.ToPath Amazonka.Redshift.CreateHsmClientCertificate.CreateHsmClientCertificate
+ Amazonka.Redshift.CreateHsmClientCertificate: instance Amazonka.Data.Query.ToQuery Amazonka.Redshift.CreateHsmClientCertificate.CreateHsmClientCertificate
+ Amazonka.Redshift.CreateHsmClientCertificate: instance Amazonka.Types.AWSRequest Amazonka.Redshift.CreateHsmClientCertificate.CreateHsmClientCertificate
+ Amazonka.Redshift.CreateHsmClientCertificate: instance Control.DeepSeq.NFData Amazonka.Redshift.CreateHsmClientCertificate.CreateHsmClientCertificate
+ Amazonka.Redshift.CreateHsmClientCertificate: instance Control.DeepSeq.NFData Amazonka.Redshift.CreateHsmClientCertificate.CreateHsmClientCertificateResponse
+ Amazonka.Redshift.CreateHsmClientCertificate: instance Data.Hashable.Class.Hashable Amazonka.Redshift.CreateHsmClientCertificate.CreateHsmClientCertificate
+ Amazonka.Redshift.CreateHsmClientCertificate: instance GHC.Classes.Eq Amazonka.Redshift.CreateHsmClientCertificate.CreateHsmClientCertificate
+ Amazonka.Redshift.CreateHsmClientCertificate: instance GHC.Classes.Eq Amazonka.Redshift.CreateHsmClientCertificate.CreateHsmClientCertificateResponse
+ Amazonka.Redshift.CreateHsmClientCertificate: instance GHC.Generics.Generic Amazonka.Redshift.CreateHsmClientCertificate.CreateHsmClientCertificate
+ Amazonka.Redshift.CreateHsmClientCertificate: instance GHC.Generics.Generic Amazonka.Redshift.CreateHsmClientCertificate.CreateHsmClientCertificateResponse
+ Amazonka.Redshift.CreateHsmClientCertificate: instance GHC.Read.Read Amazonka.Redshift.CreateHsmClientCertificate.CreateHsmClientCertificate
+ Amazonka.Redshift.CreateHsmClientCertificate: instance GHC.Read.Read Amazonka.Redshift.CreateHsmClientCertificate.CreateHsmClientCertificateResponse
+ Amazonka.Redshift.CreateHsmClientCertificate: instance GHC.Show.Show Amazonka.Redshift.CreateHsmClientCertificate.CreateHsmClientCertificate
+ Amazonka.Redshift.CreateHsmClientCertificate: instance GHC.Show.Show Amazonka.Redshift.CreateHsmClientCertificate.CreateHsmClientCertificateResponse
+ Amazonka.Redshift.CreateHsmClientCertificate: newCreateHsmClientCertificate :: Text -> CreateHsmClientCertificate
+ Amazonka.Redshift.CreateHsmClientCertificate: newCreateHsmClientCertificateResponse :: Int -> CreateHsmClientCertificateResponse
+ Amazonka.Redshift.CreateHsmConfiguration: CreateHsmConfiguration' :: Maybe [Tag] -> Text -> Text -> Text -> Text -> Text -> Text -> CreateHsmConfiguration
+ Amazonka.Redshift.CreateHsmConfiguration: CreateHsmConfigurationResponse' :: Maybe HsmConfiguration -> Int -> CreateHsmConfigurationResponse
+ Amazonka.Redshift.CreateHsmConfiguration: [$sel:description:CreateHsmConfiguration'] :: CreateHsmConfiguration -> Text
+ Amazonka.Redshift.CreateHsmConfiguration: [$sel:hsmConfiguration:CreateHsmConfigurationResponse'] :: CreateHsmConfigurationResponse -> Maybe HsmConfiguration
+ Amazonka.Redshift.CreateHsmConfiguration: [$sel:hsmConfigurationIdentifier:CreateHsmConfiguration'] :: CreateHsmConfiguration -> Text
+ Amazonka.Redshift.CreateHsmConfiguration: [$sel:hsmIpAddress:CreateHsmConfiguration'] :: CreateHsmConfiguration -> Text
+ Amazonka.Redshift.CreateHsmConfiguration: [$sel:hsmPartitionName:CreateHsmConfiguration'] :: CreateHsmConfiguration -> Text
+ Amazonka.Redshift.CreateHsmConfiguration: [$sel:hsmPartitionPassword:CreateHsmConfiguration'] :: CreateHsmConfiguration -> Text
+ Amazonka.Redshift.CreateHsmConfiguration: [$sel:hsmServerPublicCertificate:CreateHsmConfiguration'] :: CreateHsmConfiguration -> Text
+ Amazonka.Redshift.CreateHsmConfiguration: [$sel:httpStatus:CreateHsmConfigurationResponse'] :: CreateHsmConfigurationResponse -> Int
+ Amazonka.Redshift.CreateHsmConfiguration: [$sel:tags:CreateHsmConfiguration'] :: CreateHsmConfiguration -> Maybe [Tag]
+ Amazonka.Redshift.CreateHsmConfiguration: createHsmConfigurationResponse_hsmConfiguration :: Lens' CreateHsmConfigurationResponse (Maybe HsmConfiguration)
+ Amazonka.Redshift.CreateHsmConfiguration: createHsmConfigurationResponse_httpStatus :: Lens' CreateHsmConfigurationResponse Int
+ Amazonka.Redshift.CreateHsmConfiguration: createHsmConfiguration_description :: Lens' CreateHsmConfiguration Text
+ Amazonka.Redshift.CreateHsmConfiguration: createHsmConfiguration_hsmConfigurationIdentifier :: Lens' CreateHsmConfiguration Text
+ Amazonka.Redshift.CreateHsmConfiguration: createHsmConfiguration_hsmIpAddress :: Lens' CreateHsmConfiguration Text
+ Amazonka.Redshift.CreateHsmConfiguration: createHsmConfiguration_hsmPartitionName :: Lens' CreateHsmConfiguration Text
+ Amazonka.Redshift.CreateHsmConfiguration: createHsmConfiguration_hsmPartitionPassword :: Lens' CreateHsmConfiguration Text
+ Amazonka.Redshift.CreateHsmConfiguration: createHsmConfiguration_hsmServerPublicCertificate :: Lens' CreateHsmConfiguration Text
+ Amazonka.Redshift.CreateHsmConfiguration: createHsmConfiguration_tags :: Lens' CreateHsmConfiguration (Maybe [Tag])
+ Amazonka.Redshift.CreateHsmConfiguration: data CreateHsmConfiguration
+ Amazonka.Redshift.CreateHsmConfiguration: data CreateHsmConfigurationResponse
+ Amazonka.Redshift.CreateHsmConfiguration: instance Amazonka.Data.Headers.ToHeaders Amazonka.Redshift.CreateHsmConfiguration.CreateHsmConfiguration
+ Amazonka.Redshift.CreateHsmConfiguration: instance Amazonka.Data.Path.ToPath Amazonka.Redshift.CreateHsmConfiguration.CreateHsmConfiguration
+ Amazonka.Redshift.CreateHsmConfiguration: instance Amazonka.Data.Query.ToQuery Amazonka.Redshift.CreateHsmConfiguration.CreateHsmConfiguration
+ Amazonka.Redshift.CreateHsmConfiguration: instance Amazonka.Types.AWSRequest Amazonka.Redshift.CreateHsmConfiguration.CreateHsmConfiguration
+ Amazonka.Redshift.CreateHsmConfiguration: instance Control.DeepSeq.NFData Amazonka.Redshift.CreateHsmConfiguration.CreateHsmConfiguration
+ Amazonka.Redshift.CreateHsmConfiguration: instance Control.DeepSeq.NFData Amazonka.Redshift.CreateHsmConfiguration.CreateHsmConfigurationResponse
+ Amazonka.Redshift.CreateHsmConfiguration: instance Data.Hashable.Class.Hashable Amazonka.Redshift.CreateHsmConfiguration.CreateHsmConfiguration
+ Amazonka.Redshift.CreateHsmConfiguration: instance GHC.Classes.Eq Amazonka.Redshift.CreateHsmConfiguration.CreateHsmConfiguration
+ Amazonka.Redshift.CreateHsmConfiguration: instance GHC.Classes.Eq Amazonka.Redshift.CreateHsmConfiguration.CreateHsmConfigurationResponse
+ Amazonka.Redshift.CreateHsmConfiguration: instance GHC.Generics.Generic Amazonka.Redshift.CreateHsmConfiguration.CreateHsmConfiguration
+ Amazonka.Redshift.CreateHsmConfiguration: instance GHC.Generics.Generic Amazonka.Redshift.CreateHsmConfiguration.CreateHsmConfigurationResponse
+ Amazonka.Redshift.CreateHsmConfiguration: instance GHC.Read.Read Amazonka.Redshift.CreateHsmConfiguration.CreateHsmConfiguration
+ Amazonka.Redshift.CreateHsmConfiguration: instance GHC.Read.Read Amazonka.Redshift.CreateHsmConfiguration.CreateHsmConfigurationResponse
+ Amazonka.Redshift.CreateHsmConfiguration: instance GHC.Show.Show Amazonka.Redshift.CreateHsmConfiguration.CreateHsmConfiguration
+ Amazonka.Redshift.CreateHsmConfiguration: instance GHC.Show.Show Amazonka.Redshift.CreateHsmConfiguration.CreateHsmConfigurationResponse
+ Amazonka.Redshift.CreateHsmConfiguration: newCreateHsmConfiguration :: Text -> Text -> Text -> Text -> Text -> Text -> CreateHsmConfiguration
+ Amazonka.Redshift.CreateHsmConfiguration: newCreateHsmConfigurationResponse :: Int -> CreateHsmConfigurationResponse
+ Amazonka.Redshift.CreateScheduledAction: CreateScheduledAction' :: Maybe Bool -> Maybe ISO8601 -> Maybe Text -> Maybe ISO8601 -> Text -> ScheduledActionType -> Text -> Text -> CreateScheduledAction
+ Amazonka.Redshift.CreateScheduledAction: ScheduledAction' :: Maybe ISO8601 -> Maybe Text -> Maybe [ISO8601] -> Maybe Text -> Maybe Text -> Maybe Text -> Maybe ISO8601 -> Maybe ScheduledActionState -> Maybe ScheduledActionType -> ScheduledAction
+ Amazonka.Redshift.CreateScheduledAction: [$sel:enable:CreateScheduledAction'] :: CreateScheduledAction -> Maybe Bool
+ Amazonka.Redshift.CreateScheduledAction: [$sel:endTime:CreateScheduledAction'] :: CreateScheduledAction -> Maybe ISO8601
+ Amazonka.Redshift.CreateScheduledAction: [$sel:endTime:ScheduledAction'] :: ScheduledAction -> Maybe ISO8601
+ Amazonka.Redshift.CreateScheduledAction: [$sel:iamRole:CreateScheduledAction'] :: CreateScheduledAction -> Text
+ Amazonka.Redshift.CreateScheduledAction: [$sel:iamRole:ScheduledAction'] :: ScheduledAction -> Maybe Text
+ Amazonka.Redshift.CreateScheduledAction: [$sel:nextInvocations:ScheduledAction'] :: ScheduledAction -> Maybe [ISO8601]
+ Amazonka.Redshift.CreateScheduledAction: [$sel:schedule:CreateScheduledAction'] :: CreateScheduledAction -> Text
+ Amazonka.Redshift.CreateScheduledAction: [$sel:schedule:ScheduledAction'] :: ScheduledAction -> Maybe Text
+ Amazonka.Redshift.CreateScheduledAction: [$sel:scheduledActionDescription:CreateScheduledAction'] :: CreateScheduledAction -> Maybe Text
+ Amazonka.Redshift.CreateScheduledAction: [$sel:scheduledActionDescription:ScheduledAction'] :: ScheduledAction -> Maybe Text
+ Amazonka.Redshift.CreateScheduledAction: [$sel:scheduledActionName:CreateScheduledAction'] :: CreateScheduledAction -> Text
+ Amazonka.Redshift.CreateScheduledAction: [$sel:scheduledActionName:ScheduledAction'] :: ScheduledAction -> Maybe Text
+ Amazonka.Redshift.CreateScheduledAction: [$sel:startTime:CreateScheduledAction'] :: CreateScheduledAction -> Maybe ISO8601
+ Amazonka.Redshift.CreateScheduledAction: [$sel:startTime:ScheduledAction'] :: ScheduledAction -> Maybe ISO8601
+ Amazonka.Redshift.CreateScheduledAction: [$sel:state:ScheduledAction'] :: ScheduledAction -> Maybe ScheduledActionState
+ Amazonka.Redshift.CreateScheduledAction: [$sel:targetAction:CreateScheduledAction'] :: CreateScheduledAction -> ScheduledActionType
+ Amazonka.Redshift.CreateScheduledAction: [$sel:targetAction:ScheduledAction'] :: ScheduledAction -> Maybe ScheduledActionType
+ Amazonka.Redshift.CreateScheduledAction: createScheduledAction_enable :: Lens' CreateScheduledAction (Maybe Bool)
+ Amazonka.Redshift.CreateScheduledAction: createScheduledAction_endTime :: Lens' CreateScheduledAction (Maybe UTCTime)
+ Amazonka.Redshift.CreateScheduledAction: createScheduledAction_iamRole :: Lens' CreateScheduledAction Text
+ Amazonka.Redshift.CreateScheduledAction: createScheduledAction_schedule :: Lens' CreateScheduledAction Text
+ Amazonka.Redshift.CreateScheduledAction: createScheduledAction_scheduledActionDescription :: Lens' CreateScheduledAction (Maybe Text)
+ Amazonka.Redshift.CreateScheduledAction: createScheduledAction_scheduledActionName :: Lens' CreateScheduledAction Text
+ Amazonka.Redshift.CreateScheduledAction: createScheduledAction_startTime :: Lens' CreateScheduledAction (Maybe UTCTime)
+ Amazonka.Redshift.CreateScheduledAction: createScheduledAction_targetAction :: Lens' CreateScheduledAction ScheduledActionType
+ Amazonka.Redshift.CreateScheduledAction: data CreateScheduledAction
+ Amazonka.Redshift.CreateScheduledAction: data ScheduledAction
+ Amazonka.Redshift.CreateScheduledAction: instance Amazonka.Data.Headers.ToHeaders Amazonka.Redshift.CreateScheduledAction.CreateScheduledAction
+ Amazonka.Redshift.CreateScheduledAction: instance Amazonka.Data.Path.ToPath Amazonka.Redshift.CreateScheduledAction.CreateScheduledAction
+ Amazonka.Redshift.CreateScheduledAction: instance Amazonka.Data.Query.ToQuery Amazonka.Redshift.CreateScheduledAction.CreateScheduledAction
+ Amazonka.Redshift.CreateScheduledAction: instance Amazonka.Types.AWSRequest Amazonka.Redshift.CreateScheduledAction.CreateScheduledAction
+ Amazonka.Redshift.CreateScheduledAction: instance Control.DeepSeq.NFData Amazonka.Redshift.CreateScheduledAction.CreateScheduledAction
+ Amazonka.Redshift.CreateScheduledAction: instance Data.Hashable.Class.Hashable Amazonka.Redshift.CreateScheduledAction.CreateScheduledAction
+ Amazonka.Redshift.CreateScheduledAction: instance GHC.Classes.Eq Amazonka.Redshift.CreateScheduledAction.CreateScheduledAction
+ Amazonka.Redshift.CreateScheduledAction: instance GHC.Generics.Generic Amazonka.Redshift.CreateScheduledAction.CreateScheduledAction
+ Amazonka.Redshift.CreateScheduledAction: instance GHC.Read.Read Amazonka.Redshift.CreateScheduledAction.CreateScheduledAction
+ Amazonka.Redshift.CreateScheduledAction: instance GHC.Show.Show Amazonka.Redshift.CreateScheduledAction.CreateScheduledAction
+ Amazonka.Redshift.CreateScheduledAction: newCreateScheduledAction :: Text -> ScheduledActionType -> Text -> Text -> CreateScheduledAction
+ Amazonka.Redshift.CreateScheduledAction: newScheduledAction :: ScheduledAction
+ Amazonka.Redshift.CreateScheduledAction: scheduledAction_endTime :: Lens' ScheduledAction (Maybe UTCTime)
+ Amazonka.Redshift.CreateScheduledAction: scheduledAction_iamRole :: Lens' ScheduledAction (Maybe Text)
+ Amazonka.Redshift.CreateScheduledAction: scheduledAction_nextInvocations :: Lens' ScheduledAction (Maybe [UTCTime])
+ Amazonka.Redshift.CreateScheduledAction: scheduledAction_schedule :: Lens' ScheduledAction (Maybe Text)
+ Amazonka.Redshift.CreateScheduledAction: scheduledAction_scheduledActionDescription :: Lens' ScheduledAction (Maybe Text)
+ Amazonka.Redshift.CreateScheduledAction: scheduledAction_scheduledActionName :: Lens' ScheduledAction (Maybe Text)
+ Amazonka.Redshift.CreateScheduledAction: scheduledAction_startTime :: Lens' ScheduledAction (Maybe UTCTime)
+ Amazonka.Redshift.CreateScheduledAction: scheduledAction_state :: Lens' ScheduledAction (Maybe ScheduledActionState)
+ Amazonka.Redshift.CreateScheduledAction: scheduledAction_targetAction :: Lens' ScheduledAction (Maybe ScheduledActionType)
+ Amazonka.Redshift.CreateSnapshotCopyGrant: CreateSnapshotCopyGrant' :: Maybe Text -> Maybe [Tag] -> Text -> CreateSnapshotCopyGrant
+ Amazonka.Redshift.CreateSnapshotCopyGrant: CreateSnapshotCopyGrantResponse' :: Maybe SnapshotCopyGrant -> Int -> CreateSnapshotCopyGrantResponse
+ Amazonka.Redshift.CreateSnapshotCopyGrant: [$sel:httpStatus:CreateSnapshotCopyGrantResponse'] :: CreateSnapshotCopyGrantResponse -> Int
+ Amazonka.Redshift.CreateSnapshotCopyGrant: [$sel:kmsKeyId:CreateSnapshotCopyGrant'] :: CreateSnapshotCopyGrant -> Maybe Text
+ Amazonka.Redshift.CreateSnapshotCopyGrant: [$sel:snapshotCopyGrant:CreateSnapshotCopyGrantResponse'] :: CreateSnapshotCopyGrantResponse -> Maybe SnapshotCopyGrant
+ Amazonka.Redshift.CreateSnapshotCopyGrant: [$sel:snapshotCopyGrantName:CreateSnapshotCopyGrant'] :: CreateSnapshotCopyGrant -> Text
+ Amazonka.Redshift.CreateSnapshotCopyGrant: [$sel:tags:CreateSnapshotCopyGrant'] :: CreateSnapshotCopyGrant -> Maybe [Tag]
+ Amazonka.Redshift.CreateSnapshotCopyGrant: createSnapshotCopyGrantResponse_httpStatus :: Lens' CreateSnapshotCopyGrantResponse Int
+ Amazonka.Redshift.CreateSnapshotCopyGrant: createSnapshotCopyGrantResponse_snapshotCopyGrant :: Lens' CreateSnapshotCopyGrantResponse (Maybe SnapshotCopyGrant)
+ Amazonka.Redshift.CreateSnapshotCopyGrant: createSnapshotCopyGrant_kmsKeyId :: Lens' CreateSnapshotCopyGrant (Maybe Text)
+ Amazonka.Redshift.CreateSnapshotCopyGrant: createSnapshotCopyGrant_snapshotCopyGrantName :: Lens' CreateSnapshotCopyGrant Text
+ Amazonka.Redshift.CreateSnapshotCopyGrant: createSnapshotCopyGrant_tags :: Lens' CreateSnapshotCopyGrant (Maybe [Tag])
+ Amazonka.Redshift.CreateSnapshotCopyGrant: data CreateSnapshotCopyGrant
+ Amazonka.Redshift.CreateSnapshotCopyGrant: data CreateSnapshotCopyGrantResponse
+ Amazonka.Redshift.CreateSnapshotCopyGrant: instance Amazonka.Data.Headers.ToHeaders Amazonka.Redshift.CreateSnapshotCopyGrant.CreateSnapshotCopyGrant
+ Amazonka.Redshift.CreateSnapshotCopyGrant: instance Amazonka.Data.Path.ToPath Amazonka.Redshift.CreateSnapshotCopyGrant.CreateSnapshotCopyGrant
+ Amazonka.Redshift.CreateSnapshotCopyGrant: instance Amazonka.Data.Query.ToQuery Amazonka.Redshift.CreateSnapshotCopyGrant.CreateSnapshotCopyGrant
+ Amazonka.Redshift.CreateSnapshotCopyGrant: instance Amazonka.Types.AWSRequest Amazonka.Redshift.CreateSnapshotCopyGrant.CreateSnapshotCopyGrant
+ Amazonka.Redshift.CreateSnapshotCopyGrant: instance Control.DeepSeq.NFData Amazonka.Redshift.CreateSnapshotCopyGrant.CreateSnapshotCopyGrant
+ Amazonka.Redshift.CreateSnapshotCopyGrant: instance Control.DeepSeq.NFData Amazonka.Redshift.CreateSnapshotCopyGrant.CreateSnapshotCopyGrantResponse
+ Amazonka.Redshift.CreateSnapshotCopyGrant: instance Data.Hashable.Class.Hashable Amazonka.Redshift.CreateSnapshotCopyGrant.CreateSnapshotCopyGrant
+ Amazonka.Redshift.CreateSnapshotCopyGrant: instance GHC.Classes.Eq Amazonka.Redshift.CreateSnapshotCopyGrant.CreateSnapshotCopyGrant
+ Amazonka.Redshift.CreateSnapshotCopyGrant: instance GHC.Classes.Eq Amazonka.Redshift.CreateSnapshotCopyGrant.CreateSnapshotCopyGrantResponse
+ Amazonka.Redshift.CreateSnapshotCopyGrant: instance GHC.Generics.Generic Amazonka.Redshift.CreateSnapshotCopyGrant.CreateSnapshotCopyGrant
+ Amazonka.Redshift.CreateSnapshotCopyGrant: instance GHC.Generics.Generic Amazonka.Redshift.CreateSnapshotCopyGrant.CreateSnapshotCopyGrantResponse
+ Amazonka.Redshift.CreateSnapshotCopyGrant: instance GHC.Read.Read Amazonka.Redshift.CreateSnapshotCopyGrant.CreateSnapshotCopyGrant
+ Amazonka.Redshift.CreateSnapshotCopyGrant: instance GHC.Read.Read Amazonka.Redshift.CreateSnapshotCopyGrant.CreateSnapshotCopyGrantResponse
+ Amazonka.Redshift.CreateSnapshotCopyGrant: instance GHC.Show.Show Amazonka.Redshift.CreateSnapshotCopyGrant.CreateSnapshotCopyGrant
+ Amazonka.Redshift.CreateSnapshotCopyGrant: instance GHC.Show.Show Amazonka.Redshift.CreateSnapshotCopyGrant.CreateSnapshotCopyGrantResponse
+ Amazonka.Redshift.CreateSnapshotCopyGrant: newCreateSnapshotCopyGrant :: Text -> CreateSnapshotCopyGrant
+ Amazonka.Redshift.CreateSnapshotCopyGrant: newCreateSnapshotCopyGrantResponse :: Int -> CreateSnapshotCopyGrantResponse
+ Amazonka.Redshift.CreateSnapshotSchedule: CreateSnapshotSchedule' :: Maybe Bool -> Maybe Int -> Maybe [Text] -> Maybe Text -> Maybe Text -> Maybe [Tag] -> CreateSnapshotSchedule
+ Amazonka.Redshift.CreateSnapshotSchedule: SnapshotSchedule' :: Maybe Int -> Maybe [ClusterAssociatedToSchedule] -> Maybe [ISO8601] -> Maybe [Text] -> Maybe Text -> Maybe Text -> Maybe [Tag] -> SnapshotSchedule
+ Amazonka.Redshift.CreateSnapshotSchedule: [$sel:associatedClusterCount:SnapshotSchedule'] :: SnapshotSchedule -> Maybe Int
+ Amazonka.Redshift.CreateSnapshotSchedule: [$sel:associatedClusters:SnapshotSchedule'] :: SnapshotSchedule -> Maybe [ClusterAssociatedToSchedule]
+ Amazonka.Redshift.CreateSnapshotSchedule: [$sel:dryRun:CreateSnapshotSchedule'] :: CreateSnapshotSchedule -> Maybe Bool
+ Amazonka.Redshift.CreateSnapshotSchedule: [$sel:nextInvocations:CreateSnapshotSchedule'] :: CreateSnapshotSchedule -> Maybe Int
+ Amazonka.Redshift.CreateSnapshotSchedule: [$sel:nextInvocations:SnapshotSchedule'] :: SnapshotSchedule -> Maybe [ISO8601]
+ Amazonka.Redshift.CreateSnapshotSchedule: [$sel:scheduleDefinitions:CreateSnapshotSchedule'] :: CreateSnapshotSchedule -> Maybe [Text]
+ Amazonka.Redshift.CreateSnapshotSchedule: [$sel:scheduleDefinitions:SnapshotSchedule'] :: SnapshotSchedule -> Maybe [Text]
+ Amazonka.Redshift.CreateSnapshotSchedule: [$sel:scheduleDescription:CreateSnapshotSchedule'] :: CreateSnapshotSchedule -> Maybe Text
+ Amazonka.Redshift.CreateSnapshotSchedule: [$sel:scheduleDescription:SnapshotSchedule'] :: SnapshotSchedule -> Maybe Text
+ Amazonka.Redshift.CreateSnapshotSchedule: [$sel:scheduleIdentifier:CreateSnapshotSchedule'] :: CreateSnapshotSchedule -> Maybe Text
+ Amazonka.Redshift.CreateSnapshotSchedule: [$sel:scheduleIdentifier:SnapshotSchedule'] :: SnapshotSchedule -> Maybe Text
+ Amazonka.Redshift.CreateSnapshotSchedule: [$sel:tags:CreateSnapshotSchedule'] :: CreateSnapshotSchedule -> Maybe [Tag]
+ Amazonka.Redshift.CreateSnapshotSchedule: [$sel:tags:SnapshotSchedule'] :: SnapshotSchedule -> Maybe [Tag]
+ Amazonka.Redshift.CreateSnapshotSchedule: createSnapshotSchedule_dryRun :: Lens' CreateSnapshotSchedule (Maybe Bool)
+ Amazonka.Redshift.CreateSnapshotSchedule: createSnapshotSchedule_nextInvocations :: Lens' CreateSnapshotSchedule (Maybe Int)
+ Amazonka.Redshift.CreateSnapshotSchedule: createSnapshotSchedule_scheduleDefinitions :: Lens' CreateSnapshotSchedule (Maybe [Text])
+ Amazonka.Redshift.CreateSnapshotSchedule: createSnapshotSchedule_scheduleDescription :: Lens' CreateSnapshotSchedule (Maybe Text)
+ Amazonka.Redshift.CreateSnapshotSchedule: createSnapshotSchedule_scheduleIdentifier :: Lens' CreateSnapshotSchedule (Maybe Text)
+ Amazonka.Redshift.CreateSnapshotSchedule: createSnapshotSchedule_tags :: Lens' CreateSnapshotSchedule (Maybe [Tag])
+ Amazonka.Redshift.CreateSnapshotSchedule: data CreateSnapshotSchedule
+ Amazonka.Redshift.CreateSnapshotSchedule: data SnapshotSchedule
+ Amazonka.Redshift.CreateSnapshotSchedule: instance Amazonka.Data.Headers.ToHeaders Amazonka.Redshift.CreateSnapshotSchedule.CreateSnapshotSchedule
+ Amazonka.Redshift.CreateSnapshotSchedule: instance Amazonka.Data.Path.ToPath Amazonka.Redshift.CreateSnapshotSchedule.CreateSnapshotSchedule
+ Amazonka.Redshift.CreateSnapshotSchedule: instance Amazonka.Data.Query.ToQuery Amazonka.Redshift.CreateSnapshotSchedule.CreateSnapshotSchedule
+ Amazonka.Redshift.CreateSnapshotSchedule: instance Amazonka.Types.AWSRequest Amazonka.Redshift.CreateSnapshotSchedule.CreateSnapshotSchedule
+ Amazonka.Redshift.CreateSnapshotSchedule: instance Control.DeepSeq.NFData Amazonka.Redshift.CreateSnapshotSchedule.CreateSnapshotSchedule
+ Amazonka.Redshift.CreateSnapshotSchedule: instance Data.Hashable.Class.Hashable Amazonka.Redshift.CreateSnapshotSchedule.CreateSnapshotSchedule
+ Amazonka.Redshift.CreateSnapshotSchedule: instance GHC.Classes.Eq Amazonka.Redshift.CreateSnapshotSchedule.CreateSnapshotSchedule
+ Amazonka.Redshift.CreateSnapshotSchedule: instance GHC.Generics.Generic Amazonka.Redshift.CreateSnapshotSchedule.CreateSnapshotSchedule
+ Amazonka.Redshift.CreateSnapshotSchedule: instance GHC.Read.Read Amazonka.Redshift.CreateSnapshotSchedule.CreateSnapshotSchedule
+ Amazonka.Redshift.CreateSnapshotSchedule: instance GHC.Show.Show Amazonka.Redshift.CreateSnapshotSchedule.CreateSnapshotSchedule
+ Amazonka.Redshift.CreateSnapshotSchedule: newCreateSnapshotSchedule :: CreateSnapshotSchedule
+ Amazonka.Redshift.CreateSnapshotSchedule: newSnapshotSchedule :: SnapshotSchedule
+ Amazonka.Redshift.CreateSnapshotSchedule: snapshotSchedule_associatedClusterCount :: Lens' SnapshotSchedule (Maybe Int)
+ Amazonka.Redshift.CreateSnapshotSchedule: snapshotSchedule_associatedClusters :: Lens' SnapshotSchedule (Maybe [ClusterAssociatedToSchedule])
+ Amazonka.Redshift.CreateSnapshotSchedule: snapshotSchedule_nextInvocations :: Lens' SnapshotSchedule (Maybe [UTCTime])
+ Amazonka.Redshift.CreateSnapshotSchedule: snapshotSchedule_scheduleDefinitions :: Lens' SnapshotSchedule (Maybe [Text])
+ Amazonka.Redshift.CreateSnapshotSchedule: snapshotSchedule_scheduleDescription :: Lens' SnapshotSchedule (Maybe Text)
+ Amazonka.Redshift.CreateSnapshotSchedule: snapshotSchedule_scheduleIdentifier :: Lens' SnapshotSchedule (Maybe Text)
+ Amazonka.Redshift.CreateSnapshotSchedule: snapshotSchedule_tags :: Lens' SnapshotSchedule (Maybe [Tag])
+ Amazonka.Redshift.CreateTags: CreateTags' :: Text -> [Tag] -> CreateTags
+ Amazonka.Redshift.CreateTags: CreateTagsResponse' :: CreateTagsResponse
+ Amazonka.Redshift.CreateTags: [$sel:resourceName:CreateTags'] :: CreateTags -> Text
+ Amazonka.Redshift.CreateTags: [$sel:tags:CreateTags'] :: CreateTags -> [Tag]
+ Amazonka.Redshift.CreateTags: createTags_resourceName :: Lens' CreateTags Text
+ Amazonka.Redshift.CreateTags: createTags_tags :: Lens' CreateTags [Tag]
+ Amazonka.Redshift.CreateTags: data CreateTags
+ Amazonka.Redshift.CreateTags: data CreateTagsResponse
+ Amazonka.Redshift.CreateTags: instance Amazonka.Data.Headers.ToHeaders Amazonka.Redshift.CreateTags.CreateTags
+ Amazonka.Redshift.CreateTags: instance Amazonka.Data.Path.ToPath Amazonka.Redshift.CreateTags.CreateTags
+ Amazonka.Redshift.CreateTags: instance Amazonka.Data.Query.ToQuery Amazonka.Redshift.CreateTags.CreateTags
+ Amazonka.Redshift.CreateTags: instance Amazonka.Types.AWSRequest Amazonka.Redshift.CreateTags.CreateTags
+ Amazonka.Redshift.CreateTags: instance Control.DeepSeq.NFData Amazonka.Redshift.CreateTags.CreateTags
+ Amazonka.Redshift.CreateTags: instance Control.DeepSeq.NFData Amazonka.Redshift.CreateTags.CreateTagsResponse
+ Amazonka.Redshift.CreateTags: instance Data.Hashable.Class.Hashable Amazonka.Redshift.CreateTags.CreateTags
+ Amazonka.Redshift.CreateTags: instance GHC.Classes.Eq Amazonka.Redshift.CreateTags.CreateTags
+ Amazonka.Redshift.CreateTags: instance GHC.Classes.Eq Amazonka.Redshift.CreateTags.CreateTagsResponse
+ Amazonka.Redshift.CreateTags: instance GHC.Generics.Generic Amazonka.Redshift.CreateTags.CreateTags
+ Amazonka.Redshift.CreateTags: instance GHC.Generics.Generic Amazonka.Redshift.CreateTags.CreateTagsResponse
+ Amazonka.Redshift.CreateTags: instance GHC.Read.Read Amazonka.Redshift.CreateTags.CreateTags
+ Amazonka.Redshift.CreateTags: instance GHC.Read.Read Amazonka.Redshift.CreateTags.CreateTagsResponse
+ Amazonka.Redshift.CreateTags: instance GHC.Show.Show Amazonka.Redshift.CreateTags.CreateTags
+ Amazonka.Redshift.CreateTags: instance GHC.Show.Show Amazonka.Redshift.CreateTags.CreateTagsResponse
+ Amazonka.Redshift.CreateTags: newCreateTags :: Text -> CreateTags
+ Amazonka.Redshift.CreateTags: newCreateTagsResponse :: CreateTagsResponse
+ Amazonka.Redshift.CreateUsageLimit: CreateUsageLimit' :: Maybe UsageLimitBreachAction -> Maybe UsageLimitPeriod -> Maybe [Tag] -> Text -> UsageLimitFeatureType -> UsageLimitLimitType -> Integer -> CreateUsageLimit
+ Amazonka.Redshift.CreateUsageLimit: UsageLimit' :: Maybe Integer -> Maybe UsageLimitBreachAction -> Maybe Text -> Maybe UsageLimitFeatureType -> Maybe UsageLimitLimitType -> Maybe UsageLimitPeriod -> Maybe [Tag] -> Maybe Text -> UsageLimit
+ Amazonka.Redshift.CreateUsageLimit: [$sel:amount:CreateUsageLimit'] :: CreateUsageLimit -> Integer
+ Amazonka.Redshift.CreateUsageLimit: [$sel:amount:UsageLimit'] :: UsageLimit -> Maybe Integer
+ Amazonka.Redshift.CreateUsageLimit: [$sel:breachAction:CreateUsageLimit'] :: CreateUsageLimit -> Maybe UsageLimitBreachAction
+ Amazonka.Redshift.CreateUsageLimit: [$sel:breachAction:UsageLimit'] :: UsageLimit -> Maybe UsageLimitBreachAction
+ Amazonka.Redshift.CreateUsageLimit: [$sel:clusterIdentifier:CreateUsageLimit'] :: CreateUsageLimit -> Text
+ Amazonka.Redshift.CreateUsageLimit: [$sel:clusterIdentifier:UsageLimit'] :: UsageLimit -> Maybe Text
+ Amazonka.Redshift.CreateUsageLimit: [$sel:featureType:CreateUsageLimit'] :: CreateUsageLimit -> UsageLimitFeatureType
+ Amazonka.Redshift.CreateUsageLimit: [$sel:featureType:UsageLimit'] :: UsageLimit -> Maybe UsageLimitFeatureType
+ Amazonka.Redshift.CreateUsageLimit: [$sel:limitType:CreateUsageLimit'] :: CreateUsageLimit -> UsageLimitLimitType
+ Amazonka.Redshift.CreateUsageLimit: [$sel:limitType:UsageLimit'] :: UsageLimit -> Maybe UsageLimitLimitType
+ Amazonka.Redshift.CreateUsageLimit: [$sel:period:CreateUsageLimit'] :: CreateUsageLimit -> Maybe UsageLimitPeriod
+ Amazonka.Redshift.CreateUsageLimit: [$sel:period:UsageLimit'] :: UsageLimit -> Maybe UsageLimitPeriod
+ Amazonka.Redshift.CreateUsageLimit: [$sel:tags:CreateUsageLimit'] :: CreateUsageLimit -> Maybe [Tag]
+ Amazonka.Redshift.CreateUsageLimit: [$sel:tags:UsageLimit'] :: UsageLimit -> Maybe [Tag]
+ Amazonka.Redshift.CreateUsageLimit: [$sel:usageLimitId:UsageLimit'] :: UsageLimit -> Maybe Text
+ Amazonka.Redshift.CreateUsageLimit: createUsageLimit_amount :: Lens' CreateUsageLimit Integer
+ Amazonka.Redshift.CreateUsageLimit: createUsageLimit_breachAction :: Lens' CreateUsageLimit (Maybe UsageLimitBreachAction)
+ Amazonka.Redshift.CreateUsageLimit: createUsageLimit_clusterIdentifier :: Lens' CreateUsageLimit Text
+ Amazonka.Redshift.CreateUsageLimit: createUsageLimit_featureType :: Lens' CreateUsageLimit UsageLimitFeatureType
+ Amazonka.Redshift.CreateUsageLimit: createUsageLimit_limitType :: Lens' CreateUsageLimit UsageLimitLimitType
+ Amazonka.Redshift.CreateUsageLimit: createUsageLimit_period :: Lens' CreateUsageLimit (Maybe UsageLimitPeriod)
+ Amazonka.Redshift.CreateUsageLimit: createUsageLimit_tags :: Lens' CreateUsageLimit (Maybe [Tag])
+ Amazonka.Redshift.CreateUsageLimit: data CreateUsageLimit
+ Amazonka.Redshift.CreateUsageLimit: data UsageLimit
+ Amazonka.Redshift.CreateUsageLimit: instance Amazonka.Data.Headers.ToHeaders Amazonka.Redshift.CreateUsageLimit.CreateUsageLimit
+ Amazonka.Redshift.CreateUsageLimit: instance Amazonka.Data.Path.ToPath Amazonka.Redshift.CreateUsageLimit.CreateUsageLimit
+ Amazonka.Redshift.CreateUsageLimit: instance Amazonka.Data.Query.ToQuery Amazonka.Redshift.CreateUsageLimit.CreateUsageLimit
+ Amazonka.Redshift.CreateUsageLimit: instance Amazonka.Types.AWSRequest Amazonka.Redshift.CreateUsageLimit.CreateUsageLimit
+ Amazonka.Redshift.CreateUsageLimit: instance Control.DeepSeq.NFData Amazonka.Redshift.CreateUsageLimit.CreateUsageLimit
+ Amazonka.Redshift.CreateUsageLimit: instance Data.Hashable.Class.Hashable Amazonka.Redshift.CreateUsageLimit.CreateUsageLimit
+ Amazonka.Redshift.CreateUsageLimit: instance GHC.Classes.Eq Amazonka.Redshift.CreateUsageLimit.CreateUsageLimit
+ Amazonka.Redshift.CreateUsageLimit: instance GHC.Generics.Generic Amazonka.Redshift.CreateUsageLimit.CreateUsageLimit
+ Amazonka.Redshift.CreateUsageLimit: instance GHC.Read.Read Amazonka.Redshift.CreateUsageLimit.CreateUsageLimit
+ Amazonka.Redshift.CreateUsageLimit: instance GHC.Show.Show Amazonka.Redshift.CreateUsageLimit.CreateUsageLimit
+ Amazonka.Redshift.CreateUsageLimit: newCreateUsageLimit :: Text -> UsageLimitFeatureType -> UsageLimitLimitType -> Integer -> CreateUsageLimit
+ Amazonka.Redshift.CreateUsageLimit: newUsageLimit :: UsageLimit
+ Amazonka.Redshift.CreateUsageLimit: usageLimit_amount :: Lens' UsageLimit (Maybe Integer)
+ Amazonka.Redshift.CreateUsageLimit: usageLimit_breachAction :: Lens' UsageLimit (Maybe UsageLimitBreachAction)
+ Amazonka.Redshift.CreateUsageLimit: usageLimit_clusterIdentifier :: Lens' UsageLimit (Maybe Text)
+ Amazonka.Redshift.CreateUsageLimit: usageLimit_featureType :: Lens' UsageLimit (Maybe UsageLimitFeatureType)
+ Amazonka.Redshift.CreateUsageLimit: usageLimit_limitType :: Lens' UsageLimit (Maybe UsageLimitLimitType)
+ Amazonka.Redshift.CreateUsageLimit: usageLimit_period :: Lens' UsageLimit (Maybe UsageLimitPeriod)
+ Amazonka.Redshift.CreateUsageLimit: usageLimit_tags :: Lens' UsageLimit (Maybe [Tag])
+ Amazonka.Redshift.CreateUsageLimit: usageLimit_usageLimitId :: Lens' UsageLimit (Maybe Text)
+ Amazonka.Redshift.DeauthorizeDataShare: DataShare' :: Maybe Bool -> Maybe Text -> Maybe [DataShareAssociation] -> Maybe Text -> Maybe Text -> DataShare
+ Amazonka.Redshift.DeauthorizeDataShare: DeauthorizeDataShare' :: Text -> Text -> DeauthorizeDataShare
+ Amazonka.Redshift.DeauthorizeDataShare: [$sel:allowPubliclyAccessibleConsumers:DataShare'] :: DataShare -> Maybe Bool
+ Amazonka.Redshift.DeauthorizeDataShare: [$sel:consumerIdentifier:DeauthorizeDataShare'] :: DeauthorizeDataShare -> Text
+ Amazonka.Redshift.DeauthorizeDataShare: [$sel:dataShareArn:DataShare'] :: DataShare -> Maybe Text
+ Amazonka.Redshift.DeauthorizeDataShare: [$sel:dataShareArn:DeauthorizeDataShare'] :: DeauthorizeDataShare -> Text
+ Amazonka.Redshift.DeauthorizeDataShare: [$sel:dataShareAssociations:DataShare'] :: DataShare -> Maybe [DataShareAssociation]
+ Amazonka.Redshift.DeauthorizeDataShare: [$sel:managedBy:DataShare'] :: DataShare -> Maybe Text
+ Amazonka.Redshift.DeauthorizeDataShare: [$sel:producerArn:DataShare'] :: DataShare -> Maybe Text
+ Amazonka.Redshift.DeauthorizeDataShare: data DataShare
+ Amazonka.Redshift.DeauthorizeDataShare: data DeauthorizeDataShare
+ Amazonka.Redshift.DeauthorizeDataShare: dataShare_allowPubliclyAccessibleConsumers :: Lens' DataShare (Maybe Bool)
+ Amazonka.Redshift.DeauthorizeDataShare: dataShare_dataShareArn :: Lens' DataShare (Maybe Text)
+ Amazonka.Redshift.DeauthorizeDataShare: dataShare_dataShareAssociations :: Lens' DataShare (Maybe [DataShareAssociation])
+ Amazonka.Redshift.DeauthorizeDataShare: dataShare_managedBy :: Lens' DataShare (Maybe Text)
+ Amazonka.Redshift.DeauthorizeDataShare: dataShare_producerArn :: Lens' DataShare (Maybe Text)
+ Amazonka.Redshift.DeauthorizeDataShare: deauthorizeDataShare_consumerIdentifier :: Lens' DeauthorizeDataShare Text
+ Amazonka.Redshift.DeauthorizeDataShare: deauthorizeDataShare_dataShareArn :: Lens' DeauthorizeDataShare Text
+ Amazonka.Redshift.DeauthorizeDataShare: instance Amazonka.Data.Headers.ToHeaders Amazonka.Redshift.DeauthorizeDataShare.DeauthorizeDataShare
+ Amazonka.Redshift.DeauthorizeDataShare: instance Amazonka.Data.Path.ToPath Amazonka.Redshift.DeauthorizeDataShare.DeauthorizeDataShare
+ Amazonka.Redshift.DeauthorizeDataShare: instance Amazonka.Data.Query.ToQuery Amazonka.Redshift.DeauthorizeDataShare.DeauthorizeDataShare
+ Amazonka.Redshift.DeauthorizeDataShare: instance Amazonka.Types.AWSRequest Amazonka.Redshift.DeauthorizeDataShare.DeauthorizeDataShare
+ Amazonka.Redshift.DeauthorizeDataShare: instance Control.DeepSeq.NFData Amazonka.Redshift.DeauthorizeDataShare.DeauthorizeDataShare
+ Amazonka.Redshift.DeauthorizeDataShare: instance Data.Hashable.Class.Hashable Amazonka.Redshift.DeauthorizeDataShare.DeauthorizeDataShare
+ Amazonka.Redshift.DeauthorizeDataShare: instance GHC.Classes.Eq Amazonka.Redshift.DeauthorizeDataShare.DeauthorizeDataShare
+ Amazonka.Redshift.DeauthorizeDataShare: instance GHC.Generics.Generic Amazonka.Redshift.DeauthorizeDataShare.DeauthorizeDataShare
+ Amazonka.Redshift.DeauthorizeDataShare: instance GHC.Read.Read Amazonka.Redshift.DeauthorizeDataShare.DeauthorizeDataShare
+ Amazonka.Redshift.DeauthorizeDataShare: instance GHC.Show.Show Amazonka.Redshift.DeauthorizeDataShare.DeauthorizeDataShare
+ Amazonka.Redshift.DeauthorizeDataShare: newDataShare :: DataShare
+ Amazonka.Redshift.DeauthorizeDataShare: newDeauthorizeDataShare :: Text -> Text -> DeauthorizeDataShare
+ Amazonka.Redshift.DeleteAuthenticationProfile: DeleteAuthenticationProfile' :: Text -> DeleteAuthenticationProfile
+ Amazonka.Redshift.DeleteAuthenticationProfile: DeleteAuthenticationProfileResponse' :: Maybe Text -> Int -> DeleteAuthenticationProfileResponse
+ Amazonka.Redshift.DeleteAuthenticationProfile: [$sel:authenticationProfileName:DeleteAuthenticationProfile'] :: DeleteAuthenticationProfile -> Text
+ Amazonka.Redshift.DeleteAuthenticationProfile: [$sel:authenticationProfileName:DeleteAuthenticationProfileResponse'] :: DeleteAuthenticationProfileResponse -> Maybe Text
+ Amazonka.Redshift.DeleteAuthenticationProfile: [$sel:httpStatus:DeleteAuthenticationProfileResponse'] :: DeleteAuthenticationProfileResponse -> Int
+ Amazonka.Redshift.DeleteAuthenticationProfile: data DeleteAuthenticationProfile
+ Amazonka.Redshift.DeleteAuthenticationProfile: data DeleteAuthenticationProfileResponse
+ Amazonka.Redshift.DeleteAuthenticationProfile: deleteAuthenticationProfileResponse_authenticationProfileName :: Lens' DeleteAuthenticationProfileResponse (Maybe Text)
+ Amazonka.Redshift.DeleteAuthenticationProfile: deleteAuthenticationProfileResponse_httpStatus :: Lens' DeleteAuthenticationProfileResponse Int
+ Amazonka.Redshift.DeleteAuthenticationProfile: deleteAuthenticationProfile_authenticationProfileName :: Lens' DeleteAuthenticationProfile Text
+ Amazonka.Redshift.DeleteAuthenticationProfile: instance Amazonka.Data.Headers.ToHeaders Amazonka.Redshift.DeleteAuthenticationProfile.DeleteAuthenticationProfile
+ Amazonka.Redshift.DeleteAuthenticationProfile: instance Amazonka.Data.Path.ToPath Amazonka.Redshift.DeleteAuthenticationProfile.DeleteAuthenticationProfile
+ Amazonka.Redshift.DeleteAuthenticationProfile: instance Amazonka.Data.Query.ToQuery Amazonka.Redshift.DeleteAuthenticationProfile.DeleteAuthenticationProfile
+ Amazonka.Redshift.DeleteAuthenticationProfile: instance Amazonka.Types.AWSRequest Amazonka.Redshift.DeleteAuthenticationProfile.DeleteAuthenticationProfile
+ Amazonka.Redshift.DeleteAuthenticationProfile: instance Control.DeepSeq.NFData Amazonka.Redshift.DeleteAuthenticationProfile.DeleteAuthenticationProfile
+ Amazonka.Redshift.DeleteAuthenticationProfile: instance Control.DeepSeq.NFData Amazonka.Redshift.DeleteAuthenticationProfile.DeleteAuthenticationProfileResponse
+ Amazonka.Redshift.DeleteAuthenticationProfile: instance Data.Hashable.Class.Hashable Amazonka.Redshift.DeleteAuthenticationProfile.DeleteAuthenticationProfile
+ Amazonka.Redshift.DeleteAuthenticationProfile: instance GHC.Classes.Eq Amazonka.Redshift.DeleteAuthenticationProfile.DeleteAuthenticationProfile
+ Amazonka.Redshift.DeleteAuthenticationProfile: instance GHC.Classes.Eq Amazonka.Redshift.DeleteAuthenticationProfile.DeleteAuthenticationProfileResponse
+ Amazonka.Redshift.DeleteAuthenticationProfile: instance GHC.Generics.Generic Amazonka.Redshift.DeleteAuthenticationProfile.DeleteAuthenticationProfile
+ Amazonka.Redshift.DeleteAuthenticationProfile: instance GHC.Generics.Generic Amazonka.Redshift.DeleteAuthenticationProfile.DeleteAuthenticationProfileResponse
+ Amazonka.Redshift.DeleteAuthenticationProfile: instance GHC.Read.Read Amazonka.Redshift.DeleteAuthenticationProfile.DeleteAuthenticationProfile
+ Amazonka.Redshift.DeleteAuthenticationProfile: instance GHC.Read.Read Amazonka.Redshift.DeleteAuthenticationProfile.DeleteAuthenticationProfileResponse
+ Amazonka.Redshift.DeleteAuthenticationProfile: instance GHC.Show.Show Amazonka.Redshift.DeleteAuthenticationProfile.DeleteAuthenticationProfile
+ Amazonka.Redshift.DeleteAuthenticationProfile: instance GHC.Show.Show Amazonka.Redshift.DeleteAuthenticationProfile.DeleteAuthenticationProfileResponse
+ Amazonka.Redshift.DeleteAuthenticationProfile: newDeleteAuthenticationProfile :: Text -> DeleteAuthenticationProfile
+ Amazonka.Redshift.DeleteAuthenticationProfile: newDeleteAuthenticationProfileResponse :: Int -> DeleteAuthenticationProfileResponse
+ Amazonka.Redshift.DeleteCluster: DeleteCluster' :: Maybe Text -> Maybe Int -> Maybe Bool -> Text -> DeleteCluster
+ Amazonka.Redshift.DeleteCluster: DeleteClusterResponse' :: Maybe Cluster -> Int -> DeleteClusterResponse
+ Amazonka.Redshift.DeleteCluster: [$sel:cluster:DeleteClusterResponse'] :: DeleteClusterResponse -> Maybe Cluster
+ Amazonka.Redshift.DeleteCluster: [$sel:clusterIdentifier:DeleteCluster'] :: DeleteCluster -> Text
+ Amazonka.Redshift.DeleteCluster: [$sel:finalClusterSnapshotIdentifier:DeleteCluster'] :: DeleteCluster -> Maybe Text
+ Amazonka.Redshift.DeleteCluster: [$sel:finalClusterSnapshotRetentionPeriod:DeleteCluster'] :: DeleteCluster -> Maybe Int
+ Amazonka.Redshift.DeleteCluster: [$sel:httpStatus:DeleteClusterResponse'] :: DeleteClusterResponse -> Int
+ Amazonka.Redshift.DeleteCluster: [$sel:skipFinalClusterSnapshot:DeleteCluster'] :: DeleteCluster -> Maybe Bool
+ Amazonka.Redshift.DeleteCluster: data DeleteCluster
+ Amazonka.Redshift.DeleteCluster: data DeleteClusterResponse
+ Amazonka.Redshift.DeleteCluster: deleteClusterResponse_cluster :: Lens' DeleteClusterResponse (Maybe Cluster)
+ Amazonka.Redshift.DeleteCluster: deleteClusterResponse_httpStatus :: Lens' DeleteClusterResponse Int
+ Amazonka.Redshift.DeleteCluster: deleteCluster_clusterIdentifier :: Lens' DeleteCluster Text
+ Amazonka.Redshift.DeleteCluster: deleteCluster_finalClusterSnapshotIdentifier :: Lens' DeleteCluster (Maybe Text)
+ Amazonka.Redshift.DeleteCluster: deleteCluster_finalClusterSnapshotRetentionPeriod :: Lens' DeleteCluster (Maybe Int)
+ Amazonka.Redshift.DeleteCluster: deleteCluster_skipFinalClusterSnapshot :: Lens' DeleteCluster (Maybe Bool)
+ Amazonka.Redshift.DeleteCluster: instance Amazonka.Data.Headers.ToHeaders Amazonka.Redshift.DeleteCluster.DeleteCluster
+ Amazonka.Redshift.DeleteCluster: instance Amazonka.Data.Path.ToPath Amazonka.Redshift.DeleteCluster.DeleteCluster
+ Amazonka.Redshift.DeleteCluster: instance Amazonka.Data.Query.ToQuery Amazonka.Redshift.DeleteCluster.DeleteCluster
+ Amazonka.Redshift.DeleteCluster: instance Amazonka.Types.AWSRequest Amazonka.Redshift.DeleteCluster.DeleteCluster
+ Amazonka.Redshift.DeleteCluster: instance Control.DeepSeq.NFData Amazonka.Redshift.DeleteCluster.DeleteCluster
+ Amazonka.Redshift.DeleteCluster: instance Control.DeepSeq.NFData Amazonka.Redshift.DeleteCluster.DeleteClusterResponse
+ Amazonka.Redshift.DeleteCluster: instance Data.Hashable.Class.Hashable Amazonka.Redshift.DeleteCluster.DeleteCluster
+ Amazonka.Redshift.DeleteCluster: instance GHC.Classes.Eq Amazonka.Redshift.DeleteCluster.DeleteCluster
+ Amazonka.Redshift.DeleteCluster: instance GHC.Classes.Eq Amazonka.Redshift.DeleteCluster.DeleteClusterResponse
+ Amazonka.Redshift.DeleteCluster: instance GHC.Generics.Generic Amazonka.Redshift.DeleteCluster.DeleteCluster
+ Amazonka.Redshift.DeleteCluster: instance GHC.Generics.Generic Amazonka.Redshift.DeleteCluster.DeleteClusterResponse
+ Amazonka.Redshift.DeleteCluster: instance GHC.Read.Read Amazonka.Redshift.DeleteCluster.DeleteCluster
+ Amazonka.Redshift.DeleteCluster: instance GHC.Read.Read Amazonka.Redshift.DeleteCluster.DeleteClusterResponse
+ Amazonka.Redshift.DeleteCluster: instance GHC.Show.Show Amazonka.Redshift.DeleteCluster.DeleteCluster
+ Amazonka.Redshift.DeleteCluster: instance GHC.Show.Show Amazonka.Redshift.DeleteCluster.DeleteClusterResponse
+ Amazonka.Redshift.DeleteCluster: newDeleteCluster :: Text -> DeleteCluster
+ Amazonka.Redshift.DeleteCluster: newDeleteClusterResponse :: Int -> DeleteClusterResponse
+ Amazonka.Redshift.DeleteClusterParameterGroup: DeleteClusterParameterGroup' :: Text -> DeleteClusterParameterGroup
+ Amazonka.Redshift.DeleteClusterParameterGroup: DeleteClusterParameterGroupResponse' :: DeleteClusterParameterGroupResponse
+ Amazonka.Redshift.DeleteClusterParameterGroup: [$sel:parameterGroupName:DeleteClusterParameterGroup'] :: DeleteClusterParameterGroup -> Text
+ Amazonka.Redshift.DeleteClusterParameterGroup: data DeleteClusterParameterGroup
+ Amazonka.Redshift.DeleteClusterParameterGroup: data DeleteClusterParameterGroupResponse
+ Amazonka.Redshift.DeleteClusterParameterGroup: deleteClusterParameterGroup_parameterGroupName :: Lens' DeleteClusterParameterGroup Text
+ Amazonka.Redshift.DeleteClusterParameterGroup: instance Amazonka.Data.Headers.ToHeaders Amazonka.Redshift.DeleteClusterParameterGroup.DeleteClusterParameterGroup
+ Amazonka.Redshift.DeleteClusterParameterGroup: instance Amazonka.Data.Path.ToPath Amazonka.Redshift.DeleteClusterParameterGroup.DeleteClusterParameterGroup
+ Amazonka.Redshift.DeleteClusterParameterGroup: instance Amazonka.Data.Query.ToQuery Amazonka.Redshift.DeleteClusterParameterGroup.DeleteClusterParameterGroup
+ Amazonka.Redshift.DeleteClusterParameterGroup: instance Amazonka.Types.AWSRequest Amazonka.Redshift.DeleteClusterParameterGroup.DeleteClusterParameterGroup
+ Amazonka.Redshift.DeleteClusterParameterGroup: instance Control.DeepSeq.NFData Amazonka.Redshift.DeleteClusterParameterGroup.DeleteClusterParameterGroup
+ Amazonka.Redshift.DeleteClusterParameterGroup: instance Control.DeepSeq.NFData Amazonka.Redshift.DeleteClusterParameterGroup.DeleteClusterParameterGroupResponse
+ Amazonka.Redshift.DeleteClusterParameterGroup: instance Data.Hashable.Class.Hashable Amazonka.Redshift.DeleteClusterParameterGroup.DeleteClusterParameterGroup
+ Amazonka.Redshift.DeleteClusterParameterGroup: instance GHC.Classes.Eq Amazonka.Redshift.DeleteClusterParameterGroup.DeleteClusterParameterGroup
+ Amazonka.Redshift.DeleteClusterParameterGroup: instance GHC.Classes.Eq Amazonka.Redshift.DeleteClusterParameterGroup.DeleteClusterParameterGroupResponse
+ Amazonka.Redshift.DeleteClusterParameterGroup: instance GHC.Generics.Generic Amazonka.Redshift.DeleteClusterParameterGroup.DeleteClusterParameterGroup
+ Amazonka.Redshift.DeleteClusterParameterGroup: instance GHC.Generics.Generic Amazonka.Redshift.DeleteClusterParameterGroup.DeleteClusterParameterGroupResponse
+ Amazonka.Redshift.DeleteClusterParameterGroup: instance GHC.Read.Read Amazonka.Redshift.DeleteClusterParameterGroup.DeleteClusterParameterGroup
+ Amazonka.Redshift.DeleteClusterParameterGroup: instance GHC.Read.Read Amazonka.Redshift.DeleteClusterParameterGroup.DeleteClusterParameterGroupResponse
+ Amazonka.Redshift.DeleteClusterParameterGroup: instance GHC.Show.Show Amazonka.Redshift.DeleteClusterParameterGroup.DeleteClusterParameterGroup
+ Amazonka.Redshift.DeleteClusterParameterGroup: instance GHC.Show.Show Amazonka.Redshift.DeleteClusterParameterGroup.DeleteClusterParameterGroupResponse
+ Amazonka.Redshift.DeleteClusterParameterGroup: newDeleteClusterParameterGroup :: Text -> DeleteClusterParameterGroup
+ Amazonka.Redshift.DeleteClusterParameterGroup: newDeleteClusterParameterGroupResponse :: DeleteClusterParameterGroupResponse
+ Amazonka.Redshift.DeleteClusterSecurityGroup: DeleteClusterSecurityGroup' :: Text -> DeleteClusterSecurityGroup
+ Amazonka.Redshift.DeleteClusterSecurityGroup: DeleteClusterSecurityGroupResponse' :: DeleteClusterSecurityGroupResponse
+ Amazonka.Redshift.DeleteClusterSecurityGroup: [$sel:clusterSecurityGroupName:DeleteClusterSecurityGroup'] :: DeleteClusterSecurityGroup -> Text
+ Amazonka.Redshift.DeleteClusterSecurityGroup: data DeleteClusterSecurityGroup
+ Amazonka.Redshift.DeleteClusterSecurityGroup: data DeleteClusterSecurityGroupResponse
+ Amazonka.Redshift.DeleteClusterSecurityGroup: deleteClusterSecurityGroup_clusterSecurityGroupName :: Lens' DeleteClusterSecurityGroup Text
+ Amazonka.Redshift.DeleteClusterSecurityGroup: instance Amazonka.Data.Headers.ToHeaders Amazonka.Redshift.DeleteClusterSecurityGroup.DeleteClusterSecurityGroup
+ Amazonka.Redshift.DeleteClusterSecurityGroup: instance Amazonka.Data.Path.ToPath Amazonka.Redshift.DeleteClusterSecurityGroup.DeleteClusterSecurityGroup
+ Amazonka.Redshift.DeleteClusterSecurityGroup: instance Amazonka.Data.Query.ToQuery Amazonka.Redshift.DeleteClusterSecurityGroup.DeleteClusterSecurityGroup
+ Amazonka.Redshift.DeleteClusterSecurityGroup: instance Amazonka.Types.AWSRequest Amazonka.Redshift.DeleteClusterSecurityGroup.DeleteClusterSecurityGroup
+ Amazonka.Redshift.DeleteClusterSecurityGroup: instance Control.DeepSeq.NFData Amazonka.Redshift.DeleteClusterSecurityGroup.DeleteClusterSecurityGroup
+ Amazonka.Redshift.DeleteClusterSecurityGroup: instance Control.DeepSeq.NFData Amazonka.Redshift.DeleteClusterSecurityGroup.DeleteClusterSecurityGroupResponse
+ Amazonka.Redshift.DeleteClusterSecurityGroup: instance Data.Hashable.Class.Hashable Amazonka.Redshift.DeleteClusterSecurityGroup.DeleteClusterSecurityGroup
+ Amazonka.Redshift.DeleteClusterSecurityGroup: instance GHC.Classes.Eq Amazonka.Redshift.DeleteClusterSecurityGroup.DeleteClusterSecurityGroup
+ Amazonka.Redshift.DeleteClusterSecurityGroup: instance GHC.Classes.Eq Amazonka.Redshift.DeleteClusterSecurityGroup.DeleteClusterSecurityGroupResponse
+ Amazonka.Redshift.DeleteClusterSecurityGroup: instance GHC.Generics.Generic Amazonka.Redshift.DeleteClusterSecurityGroup.DeleteClusterSecurityGroup
+ Amazonka.Redshift.DeleteClusterSecurityGroup: instance GHC.Generics.Generic Amazonka.Redshift.DeleteClusterSecurityGroup.DeleteClusterSecurityGroupResponse
+ Amazonka.Redshift.DeleteClusterSecurityGroup: instance GHC.Read.Read Amazonka.Redshift.DeleteClusterSecurityGroup.DeleteClusterSecurityGroup
+ Amazonka.Redshift.DeleteClusterSecurityGroup: instance GHC.Read.Read Amazonka.Redshift.DeleteClusterSecurityGroup.DeleteClusterSecurityGroupResponse
+ Amazonka.Redshift.DeleteClusterSecurityGroup: instance GHC.Show.Show Amazonka.Redshift.DeleteClusterSecurityGroup.DeleteClusterSecurityGroup
+ Amazonka.Redshift.DeleteClusterSecurityGroup: instance GHC.Show.Show Amazonka.Redshift.DeleteClusterSecurityGroup.DeleteClusterSecurityGroupResponse
+ Amazonka.Redshift.DeleteClusterSecurityGroup: newDeleteClusterSecurityGroup :: Text -> DeleteClusterSecurityGroup
+ Amazonka.Redshift.DeleteClusterSecurityGroup: newDeleteClusterSecurityGroupResponse :: DeleteClusterSecurityGroupResponse
+ Amazonka.Redshift.DeleteClusterSnapshot: DeleteClusterSnapshot' :: Maybe Text -> Text -> DeleteClusterSnapshot
+ Amazonka.Redshift.DeleteClusterSnapshot: DeleteClusterSnapshotResponse' :: Maybe Snapshot -> Int -> DeleteClusterSnapshotResponse
+ Amazonka.Redshift.DeleteClusterSnapshot: [$sel:httpStatus:DeleteClusterSnapshotResponse'] :: DeleteClusterSnapshotResponse -> Int
+ Amazonka.Redshift.DeleteClusterSnapshot: [$sel:snapshot:DeleteClusterSnapshotResponse'] :: DeleteClusterSnapshotResponse -> Maybe Snapshot
+ Amazonka.Redshift.DeleteClusterSnapshot: [$sel:snapshotClusterIdentifier:DeleteClusterSnapshot'] :: DeleteClusterSnapshot -> Maybe Text
+ Amazonka.Redshift.DeleteClusterSnapshot: [$sel:snapshotIdentifier:DeleteClusterSnapshot'] :: DeleteClusterSnapshot -> Text
+ Amazonka.Redshift.DeleteClusterSnapshot: data DeleteClusterSnapshot
+ Amazonka.Redshift.DeleteClusterSnapshot: data DeleteClusterSnapshotResponse
+ Amazonka.Redshift.DeleteClusterSnapshot: deleteClusterSnapshotResponse_httpStatus :: Lens' DeleteClusterSnapshotResponse Int
+ Amazonka.Redshift.DeleteClusterSnapshot: deleteClusterSnapshotResponse_snapshot :: Lens' DeleteClusterSnapshotResponse (Maybe Snapshot)
+ Amazonka.Redshift.DeleteClusterSnapshot: deleteClusterSnapshot_snapshotClusterIdentifier :: Lens' DeleteClusterSnapshot (Maybe Text)
+ Amazonka.Redshift.DeleteClusterSnapshot: deleteClusterSnapshot_snapshotIdentifier :: Lens' DeleteClusterSnapshot Text
+ Amazonka.Redshift.DeleteClusterSnapshot: instance Amazonka.Data.Headers.ToHeaders Amazonka.Redshift.DeleteClusterSnapshot.DeleteClusterSnapshot
+ Amazonka.Redshift.DeleteClusterSnapshot: instance Amazonka.Data.Path.ToPath Amazonka.Redshift.DeleteClusterSnapshot.DeleteClusterSnapshot
+ Amazonka.Redshift.DeleteClusterSnapshot: instance Amazonka.Data.Query.ToQuery Amazonka.Redshift.DeleteClusterSnapshot.DeleteClusterSnapshot
+ Amazonka.Redshift.DeleteClusterSnapshot: instance Amazonka.Types.AWSRequest Amazonka.Redshift.DeleteClusterSnapshot.DeleteClusterSnapshot
+ Amazonka.Redshift.DeleteClusterSnapshot: instance Control.DeepSeq.NFData Amazonka.Redshift.DeleteClusterSnapshot.DeleteClusterSnapshot
+ Amazonka.Redshift.DeleteClusterSnapshot: instance Control.DeepSeq.NFData Amazonka.Redshift.DeleteClusterSnapshot.DeleteClusterSnapshotResponse
+ Amazonka.Redshift.DeleteClusterSnapshot: instance Data.Hashable.Class.Hashable Amazonka.Redshift.DeleteClusterSnapshot.DeleteClusterSnapshot
+ Amazonka.Redshift.DeleteClusterSnapshot: instance GHC.Classes.Eq Amazonka.Redshift.DeleteClusterSnapshot.DeleteClusterSnapshot
+ Amazonka.Redshift.DeleteClusterSnapshot: instance GHC.Classes.Eq Amazonka.Redshift.DeleteClusterSnapshot.DeleteClusterSnapshotResponse
+ Amazonka.Redshift.DeleteClusterSnapshot: instance GHC.Generics.Generic Amazonka.Redshift.DeleteClusterSnapshot.DeleteClusterSnapshot
+ Amazonka.Redshift.DeleteClusterSnapshot: instance GHC.Generics.Generic Amazonka.Redshift.DeleteClusterSnapshot.DeleteClusterSnapshotResponse
+ Amazonka.Redshift.DeleteClusterSnapshot: instance GHC.Read.Read Amazonka.Redshift.DeleteClusterSnapshot.DeleteClusterSnapshot
+ Amazonka.Redshift.DeleteClusterSnapshot: instance GHC.Read.Read Amazonka.Redshift.DeleteClusterSnapshot.DeleteClusterSnapshotResponse
+ Amazonka.Redshift.DeleteClusterSnapshot: instance GHC.Show.Show Amazonka.Redshift.DeleteClusterSnapshot.DeleteClusterSnapshot
+ Amazonka.Redshift.DeleteClusterSnapshot: instance GHC.Show.Show Amazonka.Redshift.DeleteClusterSnapshot.DeleteClusterSnapshotResponse
+ Amazonka.Redshift.DeleteClusterSnapshot: newDeleteClusterSnapshot :: Text -> DeleteClusterSnapshot
+ Amazonka.Redshift.DeleteClusterSnapshot: newDeleteClusterSnapshotResponse :: Int -> DeleteClusterSnapshotResponse
+ Amazonka.Redshift.DeleteClusterSubnetGroup: DeleteClusterSubnetGroup' :: Text -> DeleteClusterSubnetGroup
+ Amazonka.Redshift.DeleteClusterSubnetGroup: DeleteClusterSubnetGroupResponse' :: DeleteClusterSubnetGroupResponse
+ Amazonka.Redshift.DeleteClusterSubnetGroup: [$sel:clusterSubnetGroupName:DeleteClusterSubnetGroup'] :: DeleteClusterSubnetGroup -> Text
+ Amazonka.Redshift.DeleteClusterSubnetGroup: data DeleteClusterSubnetGroup
+ Amazonka.Redshift.DeleteClusterSubnetGroup: data DeleteClusterSubnetGroupResponse
+ Amazonka.Redshift.DeleteClusterSubnetGroup: deleteClusterSubnetGroup_clusterSubnetGroupName :: Lens' DeleteClusterSubnetGroup Text
+ Amazonka.Redshift.DeleteClusterSubnetGroup: instance Amazonka.Data.Headers.ToHeaders Amazonka.Redshift.DeleteClusterSubnetGroup.DeleteClusterSubnetGroup
+ Amazonka.Redshift.DeleteClusterSubnetGroup: instance Amazonka.Data.Path.ToPath Amazonka.Redshift.DeleteClusterSubnetGroup.DeleteClusterSubnetGroup
+ Amazonka.Redshift.DeleteClusterSubnetGroup: instance Amazonka.Data.Query.ToQuery Amazonka.Redshift.DeleteClusterSubnetGroup.DeleteClusterSubnetGroup
+ Amazonka.Redshift.DeleteClusterSubnetGroup: instance Amazonka.Types.AWSRequest Amazonka.Redshift.DeleteClusterSubnetGroup.DeleteClusterSubnetGroup
+ Amazonka.Redshift.DeleteClusterSubnetGroup: instance Control.DeepSeq.NFData Amazonka.Redshift.DeleteClusterSubnetGroup.DeleteClusterSubnetGroup
+ Amazonka.Redshift.DeleteClusterSubnetGroup: instance Control.DeepSeq.NFData Amazonka.Redshift.DeleteClusterSubnetGroup.DeleteClusterSubnetGroupResponse
+ Amazonka.Redshift.DeleteClusterSubnetGroup: instance Data.Hashable.Class.Hashable Amazonka.Redshift.DeleteClusterSubnetGroup.DeleteClusterSubnetGroup
+ Amazonka.Redshift.DeleteClusterSubnetGroup: instance GHC.Classes.Eq Amazonka.Redshift.DeleteClusterSubnetGroup.DeleteClusterSubnetGroup
+ Amazonka.Redshift.DeleteClusterSubnetGroup: instance GHC.Classes.Eq Amazonka.Redshift.DeleteClusterSubnetGroup.DeleteClusterSubnetGroupResponse
+ Amazonka.Redshift.DeleteClusterSubnetGroup: instance GHC.Generics.Generic Amazonka.Redshift.DeleteClusterSubnetGroup.DeleteClusterSubnetGroup
+ Amazonka.Redshift.DeleteClusterSubnetGroup: instance GHC.Generics.Generic Amazonka.Redshift.DeleteClusterSubnetGroup.DeleteClusterSubnetGroupResponse
+ Amazonka.Redshift.DeleteClusterSubnetGroup: instance GHC.Read.Read Amazonka.Redshift.DeleteClusterSubnetGroup.DeleteClusterSubnetGroup
+ Amazonka.Redshift.DeleteClusterSubnetGroup: instance GHC.Read.Read Amazonka.Redshift.DeleteClusterSubnetGroup.DeleteClusterSubnetGroupResponse
+ Amazonka.Redshift.DeleteClusterSubnetGroup: instance GHC.Show.Show Amazonka.Redshift.DeleteClusterSubnetGroup.DeleteClusterSubnetGroup
+ Amazonka.Redshift.DeleteClusterSubnetGroup: instance GHC.Show.Show Amazonka.Redshift.DeleteClusterSubnetGroup.DeleteClusterSubnetGroupResponse
+ Amazonka.Redshift.DeleteClusterSubnetGroup: newDeleteClusterSubnetGroup :: Text -> DeleteClusterSubnetGroup
+ Amazonka.Redshift.DeleteClusterSubnetGroup: newDeleteClusterSubnetGroupResponse :: DeleteClusterSubnetGroupResponse
+ Amazonka.Redshift.DeleteEndpointAccess: DeleteEndpointAccess' :: Text -> DeleteEndpointAccess
+ Amazonka.Redshift.DeleteEndpointAccess: EndpointAccess' :: Maybe Text -> Maybe Text -> Maybe ISO8601 -> Maybe Text -> Maybe Text -> Maybe Int -> Maybe Text -> Maybe Text -> Maybe VpcEndpoint -> Maybe [VpcSecurityGroupMembership] -> EndpointAccess
+ Amazonka.Redshift.DeleteEndpointAccess: [$sel:address:EndpointAccess'] :: EndpointAccess -> Maybe Text
+ Amazonka.Redshift.DeleteEndpointAccess: [$sel:clusterIdentifier:EndpointAccess'] :: EndpointAccess -> Maybe Text
+ Amazonka.Redshift.DeleteEndpointAccess: [$sel:endpointCreateTime:EndpointAccess'] :: EndpointAccess -> Maybe ISO8601
+ Amazonka.Redshift.DeleteEndpointAccess: [$sel:endpointName:DeleteEndpointAccess'] :: DeleteEndpointAccess -> Text
+ Amazonka.Redshift.DeleteEndpointAccess: [$sel:endpointName:EndpointAccess'] :: EndpointAccess -> Maybe Text
+ Amazonka.Redshift.DeleteEndpointAccess: [$sel:endpointStatus:EndpointAccess'] :: EndpointAccess -> Maybe Text
+ Amazonka.Redshift.DeleteEndpointAccess: [$sel:port:EndpointAccess'] :: EndpointAccess -> Maybe Int
+ Amazonka.Redshift.DeleteEndpointAccess: [$sel:resourceOwner:EndpointAccess'] :: EndpointAccess -> Maybe Text
+ Amazonka.Redshift.DeleteEndpointAccess: [$sel:subnetGroupName:EndpointAccess'] :: EndpointAccess -> Maybe Text
+ Amazonka.Redshift.DeleteEndpointAccess: [$sel:vpcEndpoint:EndpointAccess'] :: EndpointAccess -> Maybe VpcEndpoint
+ Amazonka.Redshift.DeleteEndpointAccess: [$sel:vpcSecurityGroups:EndpointAccess'] :: EndpointAccess -> Maybe [VpcSecurityGroupMembership]
+ Amazonka.Redshift.DeleteEndpointAccess: data DeleteEndpointAccess
+ Amazonka.Redshift.DeleteEndpointAccess: data EndpointAccess
+ Amazonka.Redshift.DeleteEndpointAccess: deleteEndpointAccess_endpointName :: Lens' DeleteEndpointAccess Text
+ Amazonka.Redshift.DeleteEndpointAccess: endpointAccess_address :: Lens' EndpointAccess (Maybe Text)
+ Amazonka.Redshift.DeleteEndpointAccess: endpointAccess_clusterIdentifier :: Lens' EndpointAccess (Maybe Text)
+ Amazonka.Redshift.DeleteEndpointAccess: endpointAccess_endpointCreateTime :: Lens' EndpointAccess (Maybe UTCTime)
+ Amazonka.Redshift.DeleteEndpointAccess: endpointAccess_endpointName :: Lens' EndpointAccess (Maybe Text)
+ Amazonka.Redshift.DeleteEndpointAccess: endpointAccess_endpointStatus :: Lens' EndpointAccess (Maybe Text)
+ Amazonka.Redshift.DeleteEndpointAccess: endpointAccess_port :: Lens' EndpointAccess (Maybe Int)
+ Amazonka.Redshift.DeleteEndpointAccess: endpointAccess_resourceOwner :: Lens' EndpointAccess (Maybe Text)
+ Amazonka.Redshift.DeleteEndpointAccess: endpointAccess_subnetGroupName :: Lens' EndpointAccess (Maybe Text)
+ Amazonka.Redshift.DeleteEndpointAccess: endpointAccess_vpcEndpoint :: Lens' EndpointAccess (Maybe VpcEndpoint)
+ Amazonka.Redshift.DeleteEndpointAccess: endpointAccess_vpcSecurityGroups :: Lens' EndpointAccess (Maybe [VpcSecurityGroupMembership])
+ Amazonka.Redshift.DeleteEndpointAccess: instance Amazonka.Data.Headers.ToHeaders Amazonka.Redshift.DeleteEndpointAccess.DeleteEndpointAccess
+ Amazonka.Redshift.DeleteEndpointAccess: instance Amazonka.Data.Path.ToPath Amazonka.Redshift.DeleteEndpointAccess.DeleteEndpointAccess
+ Amazonka.Redshift.DeleteEndpointAccess: instance Amazonka.Data.Query.ToQuery Amazonka.Redshift.DeleteEndpointAccess.DeleteEndpointAccess
+ Amazonka.Redshift.DeleteEndpointAccess: instance Amazonka.Types.AWSRequest Amazonka.Redshift.DeleteEndpointAccess.DeleteEndpointAccess
+ Amazonka.Redshift.DeleteEndpointAccess: instance Control.DeepSeq.NFData Amazonka.Redshift.DeleteEndpointAccess.DeleteEndpointAccess
+ Amazonka.Redshift.DeleteEndpointAccess: instance Data.Hashable.Class.Hashable Amazonka.Redshift.DeleteEndpointAccess.DeleteEndpointAccess
+ Amazonka.Redshift.DeleteEndpointAccess: instance GHC.Classes.Eq Amazonka.Redshift.DeleteEndpointAccess.DeleteEndpointAccess
+ Amazonka.Redshift.DeleteEndpointAccess: instance GHC.Generics.Generic Amazonka.Redshift.DeleteEndpointAccess.DeleteEndpointAccess
+ Amazonka.Redshift.DeleteEndpointAccess: instance GHC.Read.Read Amazonka.Redshift.DeleteEndpointAccess.DeleteEndpointAccess
+ Amazonka.Redshift.DeleteEndpointAccess: instance GHC.Show.Show Amazonka.Redshift.DeleteEndpointAccess.DeleteEndpointAccess
+ Amazonka.Redshift.DeleteEndpointAccess: newDeleteEndpointAccess :: Text -> DeleteEndpointAccess
+ Amazonka.Redshift.DeleteEndpointAccess: newEndpointAccess :: EndpointAccess
+ Amazonka.Redshift.DeleteEventSubscription: DeleteEventSubscription' :: Text -> DeleteEventSubscription
+ Amazonka.Redshift.DeleteEventSubscription: DeleteEventSubscriptionResponse' :: DeleteEventSubscriptionResponse
+ Amazonka.Redshift.DeleteEventSubscription: [$sel:subscriptionName:DeleteEventSubscription'] :: DeleteEventSubscription -> Text
+ Amazonka.Redshift.DeleteEventSubscription: data DeleteEventSubscription
+ Amazonka.Redshift.DeleteEventSubscription: data DeleteEventSubscriptionResponse
+ Amazonka.Redshift.DeleteEventSubscription: deleteEventSubscription_subscriptionName :: Lens' DeleteEventSubscription Text
+ Amazonka.Redshift.DeleteEventSubscription: instance Amazonka.Data.Headers.ToHeaders Amazonka.Redshift.DeleteEventSubscription.DeleteEventSubscription
+ Amazonka.Redshift.DeleteEventSubscription: instance Amazonka.Data.Path.ToPath Amazonka.Redshift.DeleteEventSubscription.DeleteEventSubscription
+ Amazonka.Redshift.DeleteEventSubscription: instance Amazonka.Data.Query.ToQuery Amazonka.Redshift.DeleteEventSubscription.DeleteEventSubscription
+ Amazonka.Redshift.DeleteEventSubscription: instance Amazonka.Types.AWSRequest Amazonka.Redshift.DeleteEventSubscription.DeleteEventSubscription
+ Amazonka.Redshift.DeleteEventSubscription: instance Control.DeepSeq.NFData Amazonka.Redshift.DeleteEventSubscription.DeleteEventSubscription
+ Amazonka.Redshift.DeleteEventSubscription: instance Control.DeepSeq.NFData Amazonka.Redshift.DeleteEventSubscription.DeleteEventSubscriptionResponse
+ Amazonka.Redshift.DeleteEventSubscription: instance Data.Hashable.Class.Hashable Amazonka.Redshift.DeleteEventSubscription.DeleteEventSubscription
+ Amazonka.Redshift.DeleteEventSubscription: instance GHC.Classes.Eq Amazonka.Redshift.DeleteEventSubscription.DeleteEventSubscription
+ Amazonka.Redshift.DeleteEventSubscription: instance GHC.Classes.Eq Amazonka.Redshift.DeleteEventSubscription.DeleteEventSubscriptionResponse
+ Amazonka.Redshift.DeleteEventSubscription: instance GHC.Generics.Generic Amazonka.Redshift.DeleteEventSubscription.DeleteEventSubscription
+ Amazonka.Redshift.DeleteEventSubscription: instance GHC.Generics.Generic Amazonka.Redshift.DeleteEventSubscription.DeleteEventSubscriptionResponse
+ Amazonka.Redshift.DeleteEventSubscription: instance GHC.Read.Read Amazonka.Redshift.DeleteEventSubscription.DeleteEventSubscription
+ Amazonka.Redshift.DeleteEventSubscription: instance GHC.Read.Read Amazonka.Redshift.DeleteEventSubscription.DeleteEventSubscriptionResponse
+ Amazonka.Redshift.DeleteEventSubscription: instance GHC.Show.Show Amazonka.Redshift.DeleteEventSubscription.DeleteEventSubscription
+ Amazonka.Redshift.DeleteEventSubscription: instance GHC.Show.Show Amazonka.Redshift.DeleteEventSubscription.DeleteEventSubscriptionResponse
+ Amazonka.Redshift.DeleteEventSubscription: newDeleteEventSubscription :: Text -> DeleteEventSubscription
+ Amazonka.Redshift.DeleteEventSubscription: newDeleteEventSubscriptionResponse :: DeleteEventSubscriptionResponse
+ Amazonka.Redshift.DeleteHsmClientCertificate: DeleteHsmClientCertificate' :: Text -> DeleteHsmClientCertificate
+ Amazonka.Redshift.DeleteHsmClientCertificate: DeleteHsmClientCertificateResponse' :: DeleteHsmClientCertificateResponse
+ Amazonka.Redshift.DeleteHsmClientCertificate: [$sel:hsmClientCertificateIdentifier:DeleteHsmClientCertificate'] :: DeleteHsmClientCertificate -> Text
+ Amazonka.Redshift.DeleteHsmClientCertificate: data DeleteHsmClientCertificate
+ Amazonka.Redshift.DeleteHsmClientCertificate: data DeleteHsmClientCertificateResponse
+ Amazonka.Redshift.DeleteHsmClientCertificate: deleteHsmClientCertificate_hsmClientCertificateIdentifier :: Lens' DeleteHsmClientCertificate Text
+ Amazonka.Redshift.DeleteHsmClientCertificate: instance Amazonka.Data.Headers.ToHeaders Amazonka.Redshift.DeleteHsmClientCertificate.DeleteHsmClientCertificate
+ Amazonka.Redshift.DeleteHsmClientCertificate: instance Amazonka.Data.Path.ToPath Amazonka.Redshift.DeleteHsmClientCertificate.DeleteHsmClientCertificate
+ Amazonka.Redshift.DeleteHsmClientCertificate: instance Amazonka.Data.Query.ToQuery Amazonka.Redshift.DeleteHsmClientCertificate.DeleteHsmClientCertificate
+ Amazonka.Redshift.DeleteHsmClientCertificate: instance Amazonka.Types.AWSRequest Amazonka.Redshift.DeleteHsmClientCertificate.DeleteHsmClientCertificate
+ Amazonka.Redshift.DeleteHsmClientCertificate: instance Control.DeepSeq.NFData Amazonka.Redshift.DeleteHsmClientCertificate.DeleteHsmClientCertificate
+ Amazonka.Redshift.DeleteHsmClientCertificate: instance Control.DeepSeq.NFData Amazonka.Redshift.DeleteHsmClientCertificate.DeleteHsmClientCertificateResponse
+ Amazonka.Redshift.DeleteHsmClientCertificate: instance Data.Hashable.Class.Hashable Amazonka.Redshift.DeleteHsmClientCertificate.DeleteHsmClientCertificate
+ Amazonka.Redshift.DeleteHsmClientCertificate: instance GHC.Classes.Eq Amazonka.Redshift.DeleteHsmClientCertificate.DeleteHsmClientCertificate
+ Amazonka.Redshift.DeleteHsmClientCertificate: instance GHC.Classes.Eq Amazonka.Redshift.DeleteHsmClientCertificate.DeleteHsmClientCertificateResponse
+ Amazonka.Redshift.DeleteHsmClientCertificate: instance GHC.Generics.Generic Amazonka.Redshift.DeleteHsmClientCertificate.DeleteHsmClientCertificate
+ Amazonka.Redshift.DeleteHsmClientCertificate: instance GHC.Generics.Generic Amazonka.Redshift.DeleteHsmClientCertificate.DeleteHsmClientCertificateResponse
+ Amazonka.Redshift.DeleteHsmClientCertificate: instance GHC.Read.Read Amazonka.Redshift.DeleteHsmClientCertificate.DeleteHsmClientCertificate
+ Amazonka.Redshift.DeleteHsmClientCertificate: instance GHC.Read.Read Amazonka.Redshift.DeleteHsmClientCertificate.DeleteHsmClientCertificateResponse
+ Amazonka.Redshift.DeleteHsmClientCertificate: instance GHC.Show.Show Amazonka.Redshift.DeleteHsmClientCertificate.DeleteHsmClientCertificate
+ Amazonka.Redshift.DeleteHsmClientCertificate: instance GHC.Show.Show Amazonka.Redshift.DeleteHsmClientCertificate.DeleteHsmClientCertificateResponse
+ Amazonka.Redshift.DeleteHsmClientCertificate: newDeleteHsmClientCertificate :: Text -> DeleteHsmClientCertificate
+ Amazonka.Redshift.DeleteHsmClientCertificate: newDeleteHsmClientCertificateResponse :: DeleteHsmClientCertificateResponse
+ Amazonka.Redshift.DeleteHsmConfiguration: DeleteHsmConfiguration' :: Text -> DeleteHsmConfiguration
+ Amazonka.Redshift.DeleteHsmConfiguration: DeleteHsmConfigurationResponse' :: DeleteHsmConfigurationResponse
+ Amazonka.Redshift.DeleteHsmConfiguration: [$sel:hsmConfigurationIdentifier:DeleteHsmConfiguration'] :: DeleteHsmConfiguration -> Text
+ Amazonka.Redshift.DeleteHsmConfiguration: data DeleteHsmConfiguration
+ Amazonka.Redshift.DeleteHsmConfiguration: data DeleteHsmConfigurationResponse
+ Amazonka.Redshift.DeleteHsmConfiguration: deleteHsmConfiguration_hsmConfigurationIdentifier :: Lens' DeleteHsmConfiguration Text
+ Amazonka.Redshift.DeleteHsmConfiguration: instance Amazonka.Data.Headers.ToHeaders Amazonka.Redshift.DeleteHsmConfiguration.DeleteHsmConfiguration
+ Amazonka.Redshift.DeleteHsmConfiguration: instance Amazonka.Data.Path.ToPath Amazonka.Redshift.DeleteHsmConfiguration.DeleteHsmConfiguration
+ Amazonka.Redshift.DeleteHsmConfiguration: instance Amazonka.Data.Query.ToQuery Amazonka.Redshift.DeleteHsmConfiguration.DeleteHsmConfiguration
+ Amazonka.Redshift.DeleteHsmConfiguration: instance Amazonka.Types.AWSRequest Amazonka.Redshift.DeleteHsmConfiguration.DeleteHsmConfiguration
+ Amazonka.Redshift.DeleteHsmConfiguration: instance Control.DeepSeq.NFData Amazonka.Redshift.DeleteHsmConfiguration.DeleteHsmConfiguration
+ Amazonka.Redshift.DeleteHsmConfiguration: instance Control.DeepSeq.NFData Amazonka.Redshift.DeleteHsmConfiguration.DeleteHsmConfigurationResponse
+ Amazonka.Redshift.DeleteHsmConfiguration: instance Data.Hashable.Class.Hashable Amazonka.Redshift.DeleteHsmConfiguration.DeleteHsmConfiguration
+ Amazonka.Redshift.DeleteHsmConfiguration: instance GHC.Classes.Eq Amazonka.Redshift.DeleteHsmConfiguration.DeleteHsmConfiguration
+ Amazonka.Redshift.DeleteHsmConfiguration: instance GHC.Classes.Eq Amazonka.Redshift.DeleteHsmConfiguration.DeleteHsmConfigurationResponse
+ Amazonka.Redshift.DeleteHsmConfiguration: instance GHC.Generics.Generic Amazonka.Redshift.DeleteHsmConfiguration.DeleteHsmConfiguration
+ Amazonka.Redshift.DeleteHsmConfiguration: instance GHC.Generics.Generic Amazonka.Redshift.DeleteHsmConfiguration.DeleteHsmConfigurationResponse
+ Amazonka.Redshift.DeleteHsmConfiguration: instance GHC.Read.Read Amazonka.Redshift.DeleteHsmConfiguration.DeleteHsmConfiguration
+ Amazonka.Redshift.DeleteHsmConfiguration: instance GHC.Read.Read Amazonka.Redshift.DeleteHsmConfiguration.DeleteHsmConfigurationResponse
+ Amazonka.Redshift.DeleteHsmConfiguration: instance GHC.Show.Show Amazonka.Redshift.DeleteHsmConfiguration.DeleteHsmConfiguration
+ Amazonka.Redshift.DeleteHsmConfiguration: instance GHC.Show.Show Amazonka.Redshift.DeleteHsmConfiguration.DeleteHsmConfigurationResponse
+ Amazonka.Redshift.DeleteHsmConfiguration: newDeleteHsmConfiguration :: Text -> DeleteHsmConfiguration
+ Amazonka.Redshift.DeleteHsmConfiguration: newDeleteHsmConfigurationResponse :: DeleteHsmConfigurationResponse
+ Amazonka.Redshift.DeletePartner: DeletePartner' :: Text -> Text -> Text -> Text -> DeletePartner
+ Amazonka.Redshift.DeletePartner: PartnerIntegrationOutputMessage' :: Maybe Text -> Maybe Text -> PartnerIntegrationOutputMessage
+ Amazonka.Redshift.DeletePartner: [$sel:accountId:DeletePartner'] :: DeletePartner -> Text
+ Amazonka.Redshift.DeletePartner: [$sel:clusterIdentifier:DeletePartner'] :: DeletePartner -> Text
+ Amazonka.Redshift.DeletePartner: [$sel:databaseName:DeletePartner'] :: DeletePartner -> Text
+ Amazonka.Redshift.DeletePartner: [$sel:databaseName:PartnerIntegrationOutputMessage'] :: PartnerIntegrationOutputMessage -> Maybe Text
+ Amazonka.Redshift.DeletePartner: [$sel:partnerName:DeletePartner'] :: DeletePartner -> Text
+ Amazonka.Redshift.DeletePartner: [$sel:partnerName:PartnerIntegrationOutputMessage'] :: PartnerIntegrationOutputMessage -> Maybe Text
+ Amazonka.Redshift.DeletePartner: data DeletePartner
+ Amazonka.Redshift.DeletePartner: data PartnerIntegrationOutputMessage
+ Amazonka.Redshift.DeletePartner: deletePartner_accountId :: Lens' DeletePartner Text
+ Amazonka.Redshift.DeletePartner: deletePartner_clusterIdentifier :: Lens' DeletePartner Text
+ Amazonka.Redshift.DeletePartner: deletePartner_databaseName :: Lens' DeletePartner Text
+ Amazonka.Redshift.DeletePartner: deletePartner_partnerName :: Lens' DeletePartner Text
+ Amazonka.Redshift.DeletePartner: instance Amazonka.Data.Headers.ToHeaders Amazonka.Redshift.DeletePartner.DeletePartner
+ Amazonka.Redshift.DeletePartner: instance Amazonka.Data.Path.ToPath Amazonka.Redshift.DeletePartner.DeletePartner
+ Amazonka.Redshift.DeletePartner: instance Amazonka.Data.Query.ToQuery Amazonka.Redshift.DeletePartner.DeletePartner
+ Amazonka.Redshift.DeletePartner: instance Amazonka.Types.AWSRequest Amazonka.Redshift.DeletePartner.DeletePartner
+ Amazonka.Redshift.DeletePartner: instance Control.DeepSeq.NFData Amazonka.Redshift.DeletePartner.DeletePartner
+ Amazonka.Redshift.DeletePartner: instance Data.Hashable.Class.Hashable Amazonka.Redshift.DeletePartner.DeletePartner
+ Amazonka.Redshift.DeletePartner: instance GHC.Classes.Eq Amazonka.Redshift.DeletePartner.DeletePartner
+ Amazonka.Redshift.DeletePartner: instance GHC.Generics.Generic Amazonka.Redshift.DeletePartner.DeletePartner
+ Amazonka.Redshift.DeletePartner: instance GHC.Read.Read Amazonka.Redshift.DeletePartner.DeletePartner
+ Amazonka.Redshift.DeletePartner: instance GHC.Show.Show Amazonka.Redshift.DeletePartner.DeletePartner
+ Amazonka.Redshift.DeletePartner: newDeletePartner :: Text -> Text -> Text -> Text -> DeletePartner
+ Amazonka.Redshift.DeletePartner: newPartnerIntegrationOutputMessage :: PartnerIntegrationOutputMessage
+ Amazonka.Redshift.DeletePartner: partnerIntegrationOutputMessage_databaseName :: Lens' PartnerIntegrationOutputMessage (Maybe Text)
+ Amazonka.Redshift.DeletePartner: partnerIntegrationOutputMessage_partnerName :: Lens' PartnerIntegrationOutputMessage (Maybe Text)
+ Amazonka.Redshift.DeleteScheduledAction: DeleteScheduledAction' :: Text -> DeleteScheduledAction
+ Amazonka.Redshift.DeleteScheduledAction: DeleteScheduledActionResponse' :: DeleteScheduledActionResponse
+ Amazonka.Redshift.DeleteScheduledAction: [$sel:scheduledActionName:DeleteScheduledAction'] :: DeleteScheduledAction -> Text
+ Amazonka.Redshift.DeleteScheduledAction: data DeleteScheduledAction
+ Amazonka.Redshift.DeleteScheduledAction: data DeleteScheduledActionResponse
+ Amazonka.Redshift.DeleteScheduledAction: deleteScheduledAction_scheduledActionName :: Lens' DeleteScheduledAction Text
+ Amazonka.Redshift.DeleteScheduledAction: instance Amazonka.Data.Headers.ToHeaders Amazonka.Redshift.DeleteScheduledAction.DeleteScheduledAction
+ Amazonka.Redshift.DeleteScheduledAction: instance Amazonka.Data.Path.ToPath Amazonka.Redshift.DeleteScheduledAction.DeleteScheduledAction
+ Amazonka.Redshift.DeleteScheduledAction: instance Amazonka.Data.Query.ToQuery Amazonka.Redshift.DeleteScheduledAction.DeleteScheduledAction
+ Amazonka.Redshift.DeleteScheduledAction: instance Amazonka.Types.AWSRequest Amazonka.Redshift.DeleteScheduledAction.DeleteScheduledAction
+ Amazonka.Redshift.DeleteScheduledAction: instance Control.DeepSeq.NFData Amazonka.Redshift.DeleteScheduledAction.DeleteScheduledAction
+ Amazonka.Redshift.DeleteScheduledAction: instance Control.DeepSeq.NFData Amazonka.Redshift.DeleteScheduledAction.DeleteScheduledActionResponse
+ Amazonka.Redshift.DeleteScheduledAction: instance Data.Hashable.Class.Hashable Amazonka.Redshift.DeleteScheduledAction.DeleteScheduledAction
+ Amazonka.Redshift.DeleteScheduledAction: instance GHC.Classes.Eq Amazonka.Redshift.DeleteScheduledAction.DeleteScheduledAction
+ Amazonka.Redshift.DeleteScheduledAction: instance GHC.Classes.Eq Amazonka.Redshift.DeleteScheduledAction.DeleteScheduledActionResponse
+ Amazonka.Redshift.DeleteScheduledAction: instance GHC.Generics.Generic Amazonka.Redshift.DeleteScheduledAction.DeleteScheduledAction
+ Amazonka.Redshift.DeleteScheduledAction: instance GHC.Generics.Generic Amazonka.Redshift.DeleteScheduledAction.DeleteScheduledActionResponse
+ Amazonka.Redshift.DeleteScheduledAction: instance GHC.Read.Read Amazonka.Redshift.DeleteScheduledAction.DeleteScheduledAction
+ Amazonka.Redshift.DeleteScheduledAction: instance GHC.Read.Read Amazonka.Redshift.DeleteScheduledAction.DeleteScheduledActionResponse
+ Amazonka.Redshift.DeleteScheduledAction: instance GHC.Show.Show Amazonka.Redshift.DeleteScheduledAction.DeleteScheduledAction
+ Amazonka.Redshift.DeleteScheduledAction: instance GHC.Show.Show Amazonka.Redshift.DeleteScheduledAction.DeleteScheduledActionResponse
+ Amazonka.Redshift.DeleteScheduledAction: newDeleteScheduledAction :: Text -> DeleteScheduledAction
+ Amazonka.Redshift.DeleteScheduledAction: newDeleteScheduledActionResponse :: DeleteScheduledActionResponse
+ Amazonka.Redshift.DeleteSnapshotCopyGrant: DeleteSnapshotCopyGrant' :: Text -> DeleteSnapshotCopyGrant
+ Amazonka.Redshift.DeleteSnapshotCopyGrant: DeleteSnapshotCopyGrantResponse' :: DeleteSnapshotCopyGrantResponse
+ Amazonka.Redshift.DeleteSnapshotCopyGrant: [$sel:snapshotCopyGrantName:DeleteSnapshotCopyGrant'] :: DeleteSnapshotCopyGrant -> Text
+ Amazonka.Redshift.DeleteSnapshotCopyGrant: data DeleteSnapshotCopyGrant
+ Amazonka.Redshift.DeleteSnapshotCopyGrant: data DeleteSnapshotCopyGrantResponse
+ Amazonka.Redshift.DeleteSnapshotCopyGrant: deleteSnapshotCopyGrant_snapshotCopyGrantName :: Lens' DeleteSnapshotCopyGrant Text
+ Amazonka.Redshift.DeleteSnapshotCopyGrant: instance Amazonka.Data.Headers.ToHeaders Amazonka.Redshift.DeleteSnapshotCopyGrant.DeleteSnapshotCopyGrant
+ Amazonka.Redshift.DeleteSnapshotCopyGrant: instance Amazonka.Data.Path.ToPath Amazonka.Redshift.DeleteSnapshotCopyGrant.DeleteSnapshotCopyGrant
+ Amazonka.Redshift.DeleteSnapshotCopyGrant: instance Amazonka.Data.Query.ToQuery Amazonka.Redshift.DeleteSnapshotCopyGrant.DeleteSnapshotCopyGrant
+ Amazonka.Redshift.DeleteSnapshotCopyGrant: instance Amazonka.Types.AWSRequest Amazonka.Redshift.DeleteSnapshotCopyGrant.DeleteSnapshotCopyGrant
+ Amazonka.Redshift.DeleteSnapshotCopyGrant: instance Control.DeepSeq.NFData Amazonka.Redshift.DeleteSnapshotCopyGrant.DeleteSnapshotCopyGrant
+ Amazonka.Redshift.DeleteSnapshotCopyGrant: instance Control.DeepSeq.NFData Amazonka.Redshift.DeleteSnapshotCopyGrant.DeleteSnapshotCopyGrantResponse
+ Amazonka.Redshift.DeleteSnapshotCopyGrant: instance Data.Hashable.Class.Hashable Amazonka.Redshift.DeleteSnapshotCopyGrant.DeleteSnapshotCopyGrant
+ Amazonka.Redshift.DeleteSnapshotCopyGrant: instance GHC.Classes.Eq Amazonka.Redshift.DeleteSnapshotCopyGrant.DeleteSnapshotCopyGrant
+ Amazonka.Redshift.DeleteSnapshotCopyGrant: instance GHC.Classes.Eq Amazonka.Redshift.DeleteSnapshotCopyGrant.DeleteSnapshotCopyGrantResponse
+ Amazonka.Redshift.DeleteSnapshotCopyGrant: instance GHC.Generics.Generic Amazonka.Redshift.DeleteSnapshotCopyGrant.DeleteSnapshotCopyGrant
+ Amazonka.Redshift.DeleteSnapshotCopyGrant: instance GHC.Generics.Generic Amazonka.Redshift.DeleteSnapshotCopyGrant.DeleteSnapshotCopyGrantResponse
+ Amazonka.Redshift.DeleteSnapshotCopyGrant: instance GHC.Read.Read Amazonka.Redshift.DeleteSnapshotCopyGrant.DeleteSnapshotCopyGrant
+ Amazonka.Redshift.DeleteSnapshotCopyGrant: instance GHC.Read.Read Amazonka.Redshift.DeleteSnapshotCopyGrant.DeleteSnapshotCopyGrantResponse
+ Amazonka.Redshift.DeleteSnapshotCopyGrant: instance GHC.Show.Show Amazonka.Redshift.DeleteSnapshotCopyGrant.DeleteSnapshotCopyGrant
+ Amazonka.Redshift.DeleteSnapshotCopyGrant: instance GHC.Show.Show Amazonka.Redshift.DeleteSnapshotCopyGrant.DeleteSnapshotCopyGrantResponse
+ Amazonka.Redshift.DeleteSnapshotCopyGrant: newDeleteSnapshotCopyGrant :: Text -> DeleteSnapshotCopyGrant
+ Amazonka.Redshift.DeleteSnapshotCopyGrant: newDeleteSnapshotCopyGrantResponse :: DeleteSnapshotCopyGrantResponse
+ Amazonka.Redshift.DeleteSnapshotSchedule: DeleteSnapshotSchedule' :: Text -> DeleteSnapshotSchedule
+ Amazonka.Redshift.DeleteSnapshotSchedule: DeleteSnapshotScheduleResponse' :: DeleteSnapshotScheduleResponse
+ Amazonka.Redshift.DeleteSnapshotSchedule: [$sel:scheduleIdentifier:DeleteSnapshotSchedule'] :: DeleteSnapshotSchedule -> Text
+ Amazonka.Redshift.DeleteSnapshotSchedule: data DeleteSnapshotSchedule
+ Amazonka.Redshift.DeleteSnapshotSchedule: data DeleteSnapshotScheduleResponse
+ Amazonka.Redshift.DeleteSnapshotSchedule: deleteSnapshotSchedule_scheduleIdentifier :: Lens' DeleteSnapshotSchedule Text
+ Amazonka.Redshift.DeleteSnapshotSchedule: instance Amazonka.Data.Headers.ToHeaders Amazonka.Redshift.DeleteSnapshotSchedule.DeleteSnapshotSchedule
+ Amazonka.Redshift.DeleteSnapshotSchedule: instance Amazonka.Data.Path.ToPath Amazonka.Redshift.DeleteSnapshotSchedule.DeleteSnapshotSchedule
+ Amazonka.Redshift.DeleteSnapshotSchedule: instance Amazonka.Data.Query.ToQuery Amazonka.Redshift.DeleteSnapshotSchedule.DeleteSnapshotSchedule
+ Amazonka.Redshift.DeleteSnapshotSchedule: instance Amazonka.Types.AWSRequest Amazonka.Redshift.DeleteSnapshotSchedule.DeleteSnapshotSchedule
+ Amazonka.Redshift.DeleteSnapshotSchedule: instance Control.DeepSeq.NFData Amazonka.Redshift.DeleteSnapshotSchedule.DeleteSnapshotSchedule
+ Amazonka.Redshift.DeleteSnapshotSchedule: instance Control.DeepSeq.NFData Amazonka.Redshift.DeleteSnapshotSchedule.DeleteSnapshotScheduleResponse
+ Amazonka.Redshift.DeleteSnapshotSchedule: instance Data.Hashable.Class.Hashable Amazonka.Redshift.DeleteSnapshotSchedule.DeleteSnapshotSchedule
+ Amazonka.Redshift.DeleteSnapshotSchedule: instance GHC.Classes.Eq Amazonka.Redshift.DeleteSnapshotSchedule.DeleteSnapshotSchedule
+ Amazonka.Redshift.DeleteSnapshotSchedule: instance GHC.Classes.Eq Amazonka.Redshift.DeleteSnapshotSchedule.DeleteSnapshotScheduleResponse
+ Amazonka.Redshift.DeleteSnapshotSchedule: instance GHC.Generics.Generic Amazonka.Redshift.DeleteSnapshotSchedule.DeleteSnapshotSchedule
+ Amazonka.Redshift.DeleteSnapshotSchedule: instance GHC.Generics.Generic Amazonka.Redshift.DeleteSnapshotSchedule.DeleteSnapshotScheduleResponse
+ Amazonka.Redshift.DeleteSnapshotSchedule: instance GHC.Read.Read Amazonka.Redshift.DeleteSnapshotSchedule.DeleteSnapshotSchedule
+ Amazonka.Redshift.DeleteSnapshotSchedule: instance GHC.Read.Read Amazonka.Redshift.DeleteSnapshotSchedule.DeleteSnapshotScheduleResponse
+ Amazonka.Redshift.DeleteSnapshotSchedule: instance GHC.Show.Show Amazonka.Redshift.DeleteSnapshotSchedule.DeleteSnapshotSchedule
+ Amazonka.Redshift.DeleteSnapshotSchedule: instance GHC.Show.Show Amazonka.Redshift.DeleteSnapshotSchedule.DeleteSnapshotScheduleResponse
+ Amazonka.Redshift.DeleteSnapshotSchedule: newDeleteSnapshotSchedule :: Text -> DeleteSnapshotSchedule
+ Amazonka.Redshift.DeleteSnapshotSchedule: newDeleteSnapshotScheduleResponse :: DeleteSnapshotScheduleResponse
+ Amazonka.Redshift.DeleteTags: DeleteTags' :: Text -> [Text] -> DeleteTags
+ Amazonka.Redshift.DeleteTags: DeleteTagsResponse' :: DeleteTagsResponse
+ Amazonka.Redshift.DeleteTags: [$sel:resourceName:DeleteTags'] :: DeleteTags -> Text
+ Amazonka.Redshift.DeleteTags: [$sel:tagKeys:DeleteTags'] :: DeleteTags -> [Text]
+ Amazonka.Redshift.DeleteTags: data DeleteTags
+ Amazonka.Redshift.DeleteTags: data DeleteTagsResponse
+ Amazonka.Redshift.DeleteTags: deleteTags_resourceName :: Lens' DeleteTags Text
+ Amazonka.Redshift.DeleteTags: deleteTags_tagKeys :: Lens' DeleteTags [Text]
+ Amazonka.Redshift.DeleteTags: instance Amazonka.Data.Headers.ToHeaders Amazonka.Redshift.DeleteTags.DeleteTags
+ Amazonka.Redshift.DeleteTags: instance Amazonka.Data.Path.ToPath Amazonka.Redshift.DeleteTags.DeleteTags
+ Amazonka.Redshift.DeleteTags: instance Amazonka.Data.Query.ToQuery Amazonka.Redshift.DeleteTags.DeleteTags
+ Amazonka.Redshift.DeleteTags: instance Amazonka.Types.AWSRequest Amazonka.Redshift.DeleteTags.DeleteTags
+ Amazonka.Redshift.DeleteTags: instance Control.DeepSeq.NFData Amazonka.Redshift.DeleteTags.DeleteTags
+ Amazonka.Redshift.DeleteTags: instance Control.DeepSeq.NFData Amazonka.Redshift.DeleteTags.DeleteTagsResponse
+ Amazonka.Redshift.DeleteTags: instance Data.Hashable.Class.Hashable Amazonka.Redshift.DeleteTags.DeleteTags
+ Amazonka.Redshift.DeleteTags: instance GHC.Classes.Eq Amazonka.Redshift.DeleteTags.DeleteTags
+ Amazonka.Redshift.DeleteTags: instance GHC.Classes.Eq Amazonka.Redshift.DeleteTags.DeleteTagsResponse
+ Amazonka.Redshift.DeleteTags: instance GHC.Generics.Generic Amazonka.Redshift.DeleteTags.DeleteTags
+ Amazonka.Redshift.DeleteTags: instance GHC.Generics.Generic Amazonka.Redshift.DeleteTags.DeleteTagsResponse
+ Amazonka.Redshift.DeleteTags: instance GHC.Read.Read Amazonka.Redshift.DeleteTags.DeleteTags
+ Amazonka.Redshift.DeleteTags: instance GHC.Read.Read Amazonka.Redshift.DeleteTags.DeleteTagsResponse
+ Amazonka.Redshift.DeleteTags: instance GHC.Show.Show Amazonka.Redshift.DeleteTags.DeleteTags
+ Amazonka.Redshift.DeleteTags: instance GHC.Show.Show Amazonka.Redshift.DeleteTags.DeleteTagsResponse
+ Amazonka.Redshift.DeleteTags: newDeleteTags :: Text -> DeleteTags
+ Amazonka.Redshift.DeleteTags: newDeleteTagsResponse :: DeleteTagsResponse
+ Amazonka.Redshift.DeleteUsageLimit: DeleteUsageLimit' :: Text -> DeleteUsageLimit
+ Amazonka.Redshift.DeleteUsageLimit: DeleteUsageLimitResponse' :: DeleteUsageLimitResponse
+ Amazonka.Redshift.DeleteUsageLimit: [$sel:usageLimitId:DeleteUsageLimit'] :: DeleteUsageLimit -> Text
+ Amazonka.Redshift.DeleteUsageLimit: data DeleteUsageLimit
+ Amazonka.Redshift.DeleteUsageLimit: data DeleteUsageLimitResponse
+ Amazonka.Redshift.DeleteUsageLimit: deleteUsageLimit_usageLimitId :: Lens' DeleteUsageLimit Text
+ Amazonka.Redshift.DeleteUsageLimit: instance Amazonka.Data.Headers.ToHeaders Amazonka.Redshift.DeleteUsageLimit.DeleteUsageLimit
+ Amazonka.Redshift.DeleteUsageLimit: instance Amazonka.Data.Path.ToPath Amazonka.Redshift.DeleteUsageLimit.DeleteUsageLimit
+ Amazonka.Redshift.DeleteUsageLimit: instance Amazonka.Data.Query.ToQuery Amazonka.Redshift.DeleteUsageLimit.DeleteUsageLimit
+ Amazonka.Redshift.DeleteUsageLimit: instance Amazonka.Types.AWSRequest Amazonka.Redshift.DeleteUsageLimit.DeleteUsageLimit
+ Amazonka.Redshift.DeleteUsageLimit: instance Control.DeepSeq.NFData Amazonka.Redshift.DeleteUsageLimit.DeleteUsageLimit
+ Amazonka.Redshift.DeleteUsageLimit: instance Control.DeepSeq.NFData Amazonka.Redshift.DeleteUsageLimit.DeleteUsageLimitResponse
+ Amazonka.Redshift.DeleteUsageLimit: instance Data.Hashable.Class.Hashable Amazonka.Redshift.DeleteUsageLimit.DeleteUsageLimit
+ Amazonka.Redshift.DeleteUsageLimit: instance GHC.Classes.Eq Amazonka.Redshift.DeleteUsageLimit.DeleteUsageLimit
+ Amazonka.Redshift.DeleteUsageLimit: instance GHC.Classes.Eq Amazonka.Redshift.DeleteUsageLimit.DeleteUsageLimitResponse
+ Amazonka.Redshift.DeleteUsageLimit: instance GHC.Generics.Generic Amazonka.Redshift.DeleteUsageLimit.DeleteUsageLimit
+ Amazonka.Redshift.DeleteUsageLimit: instance GHC.Generics.Generic Amazonka.Redshift.DeleteUsageLimit.DeleteUsageLimitResponse
+ Amazonka.Redshift.DeleteUsageLimit: instance GHC.Read.Read Amazonka.Redshift.DeleteUsageLimit.DeleteUsageLimit
+ Amazonka.Redshift.DeleteUsageLimit: instance GHC.Read.Read Amazonka.Redshift.DeleteUsageLimit.DeleteUsageLimitResponse
+ Amazonka.Redshift.DeleteUsageLimit: instance GHC.Show.Show Amazonka.Redshift.DeleteUsageLimit.DeleteUsageLimit
+ Amazonka.Redshift.DeleteUsageLimit: instance GHC.Show.Show Amazonka.Redshift.DeleteUsageLimit.DeleteUsageLimitResponse
+ Amazonka.Redshift.DeleteUsageLimit: newDeleteUsageLimit :: Text -> DeleteUsageLimit
+ Amazonka.Redshift.DeleteUsageLimit: newDeleteUsageLimitResponse :: DeleteUsageLimitResponse
+ Amazonka.Redshift.DescribeAccountAttributes: DescribeAccountAttributes' :: Maybe [Text] -> DescribeAccountAttributes
+ Amazonka.Redshift.DescribeAccountAttributes: DescribeAccountAttributesResponse' :: Maybe [AccountAttribute] -> Int -> DescribeAccountAttributesResponse
+ Amazonka.Redshift.DescribeAccountAttributes: [$sel:accountAttributes:DescribeAccountAttributesResponse'] :: DescribeAccountAttributesResponse -> Maybe [AccountAttribute]
+ Amazonka.Redshift.DescribeAccountAttributes: [$sel:attributeNames:DescribeAccountAttributes'] :: DescribeAccountAttributes -> Maybe [Text]
+ Amazonka.Redshift.DescribeAccountAttributes: [$sel:httpStatus:DescribeAccountAttributesResponse'] :: DescribeAccountAttributesResponse -> Int
+ Amazonka.Redshift.DescribeAccountAttributes: data DescribeAccountAttributes
+ Amazonka.Redshift.DescribeAccountAttributes: data DescribeAccountAttributesResponse
+ Amazonka.Redshift.DescribeAccountAttributes: describeAccountAttributesResponse_accountAttributes :: Lens' DescribeAccountAttributesResponse (Maybe [AccountAttribute])
+ Amazonka.Redshift.DescribeAccountAttributes: describeAccountAttributesResponse_httpStatus :: Lens' DescribeAccountAttributesResponse Int
+ Amazonka.Redshift.DescribeAccountAttributes: describeAccountAttributes_attributeNames :: Lens' DescribeAccountAttributes (Maybe [Text])
+ Amazonka.Redshift.DescribeAccountAttributes: instance Amazonka.Data.Headers.ToHeaders Amazonka.Redshift.DescribeAccountAttributes.DescribeAccountAttributes
+ Amazonka.Redshift.DescribeAccountAttributes: instance Amazonka.Data.Path.ToPath Amazonka.Redshift.DescribeAccountAttributes.DescribeAccountAttributes
+ Amazonka.Redshift.DescribeAccountAttributes: instance Amazonka.Data.Query.ToQuery Amazonka.Redshift.DescribeAccountAttributes.DescribeAccountAttributes
+ Amazonka.Redshift.DescribeAccountAttributes: instance Amazonka.Types.AWSRequest Amazonka.Redshift.DescribeAccountAttributes.DescribeAccountAttributes
+ Amazonka.Redshift.DescribeAccountAttributes: instance Control.DeepSeq.NFData Amazonka.Redshift.DescribeAccountAttributes.DescribeAccountAttributes
+ Amazonka.Redshift.DescribeAccountAttributes: instance Control.DeepSeq.NFData Amazonka.Redshift.DescribeAccountAttributes.DescribeAccountAttributesResponse
+ Amazonka.Redshift.DescribeAccountAttributes: instance Data.Hashable.Class.Hashable Amazonka.Redshift.DescribeAccountAttributes.DescribeAccountAttributes
+ Amazonka.Redshift.DescribeAccountAttributes: instance GHC.Classes.Eq Amazonka.Redshift.DescribeAccountAttributes.DescribeAccountAttributes
+ Amazonka.Redshift.DescribeAccountAttributes: instance GHC.Classes.Eq Amazonka.Redshift.DescribeAccountAttributes.DescribeAccountAttributesResponse
+ Amazonka.Redshift.DescribeAccountAttributes: instance GHC.Generics.Generic Amazonka.Redshift.DescribeAccountAttributes.DescribeAccountAttributes
+ Amazonka.Redshift.DescribeAccountAttributes: instance GHC.Generics.Generic Amazonka.Redshift.DescribeAccountAttributes.DescribeAccountAttributesResponse
+ Amazonka.Redshift.DescribeAccountAttributes: instance GHC.Read.Read Amazonka.Redshift.DescribeAccountAttributes.DescribeAccountAttributes
+ Amazonka.Redshift.DescribeAccountAttributes: instance GHC.Read.Read Amazonka.Redshift.DescribeAccountAttributes.DescribeAccountAttributesResponse
+ Amazonka.Redshift.DescribeAccountAttributes: instance GHC.Show.Show Amazonka.Redshift.DescribeAccountAttributes.DescribeAccountAttributes
+ Amazonka.Redshift.DescribeAccountAttributes: instance GHC.Show.Show Amazonka.Redshift.DescribeAccountAttributes.DescribeAccountAttributesResponse
+ Amazonka.Redshift.DescribeAccountAttributes: newDescribeAccountAttributes :: DescribeAccountAttributes
+ Amazonka.Redshift.DescribeAccountAttributes: newDescribeAccountAttributesResponse :: Int -> DescribeAccountAttributesResponse
+ Amazonka.Redshift.DescribeAuthenticationProfiles: DescribeAuthenticationProfiles' :: Maybe Text -> DescribeAuthenticationProfiles
+ Amazonka.Redshift.DescribeAuthenticationProfiles: DescribeAuthenticationProfilesResponse' :: Maybe [AuthenticationProfile] -> Int -> DescribeAuthenticationProfilesResponse
+ Amazonka.Redshift.DescribeAuthenticationProfiles: [$sel:authenticationProfileName:DescribeAuthenticationProfiles'] :: DescribeAuthenticationProfiles -> Maybe Text
+ Amazonka.Redshift.DescribeAuthenticationProfiles: [$sel:authenticationProfiles:DescribeAuthenticationProfilesResponse'] :: DescribeAuthenticationProfilesResponse -> Maybe [AuthenticationProfile]
+ Amazonka.Redshift.DescribeAuthenticationProfiles: [$sel:httpStatus:DescribeAuthenticationProfilesResponse'] :: DescribeAuthenticationProfilesResponse -> Int
+ Amazonka.Redshift.DescribeAuthenticationProfiles: data DescribeAuthenticationProfiles
+ Amazonka.Redshift.DescribeAuthenticationProfiles: data DescribeAuthenticationProfilesResponse
+ Amazonka.Redshift.DescribeAuthenticationProfiles: describeAuthenticationProfilesResponse_authenticationProfiles :: Lens' DescribeAuthenticationProfilesResponse (Maybe [AuthenticationProfile])
+ Amazonka.Redshift.DescribeAuthenticationProfiles: describeAuthenticationProfilesResponse_httpStatus :: Lens' DescribeAuthenticationProfilesResponse Int
+ Amazonka.Redshift.DescribeAuthenticationProfiles: describeAuthenticationProfiles_authenticationProfileName :: Lens' DescribeAuthenticationProfiles (Maybe Text)
+ Amazonka.Redshift.DescribeAuthenticationProfiles: instance Amazonka.Data.Headers.ToHeaders Amazonka.Redshift.DescribeAuthenticationProfiles.DescribeAuthenticationProfiles
+ Amazonka.Redshift.DescribeAuthenticationProfiles: instance Amazonka.Data.Path.ToPath Amazonka.Redshift.DescribeAuthenticationProfiles.DescribeAuthenticationProfiles
+ Amazonka.Redshift.DescribeAuthenticationProfiles: instance Amazonka.Data.Query.ToQuery Amazonka.Redshift.DescribeAuthenticationProfiles.DescribeAuthenticationProfiles
+ Amazonka.Redshift.DescribeAuthenticationProfiles: instance Amazonka.Types.AWSRequest Amazonka.Redshift.DescribeAuthenticationProfiles.DescribeAuthenticationProfiles
+ Amazonka.Redshift.DescribeAuthenticationProfiles: instance Control.DeepSeq.NFData Amazonka.Redshift.DescribeAuthenticationProfiles.DescribeAuthenticationProfiles
+ Amazonka.Redshift.DescribeAuthenticationProfiles: instance Control.DeepSeq.NFData Amazonka.Redshift.DescribeAuthenticationProfiles.DescribeAuthenticationProfilesResponse
+ Amazonka.Redshift.DescribeAuthenticationProfiles: instance Data.Hashable.Class.Hashable Amazonka.Redshift.DescribeAuthenticationProfiles.DescribeAuthenticationProfiles
+ Amazonka.Redshift.DescribeAuthenticationProfiles: instance GHC.Classes.Eq Amazonka.Redshift.DescribeAuthenticationProfiles.DescribeAuthenticationProfiles
+ Amazonka.Redshift.DescribeAuthenticationProfiles: instance GHC.Classes.Eq Amazonka.Redshift.DescribeAuthenticationProfiles.DescribeAuthenticationProfilesResponse
+ Amazonka.Redshift.DescribeAuthenticationProfiles: instance GHC.Generics.Generic Amazonka.Redshift.DescribeAuthenticationProfiles.DescribeAuthenticationProfiles
+ Amazonka.Redshift.DescribeAuthenticationProfiles: instance GHC.Generics.Generic Amazonka.Redshift.DescribeAuthenticationProfiles.DescribeAuthenticationProfilesResponse
+ Amazonka.Redshift.DescribeAuthenticationProfiles: instance GHC.Read.Read Amazonka.Redshift.DescribeAuthenticationProfiles.DescribeAuthenticationProfiles
+ Amazonka.Redshift.DescribeAuthenticationProfiles: instance GHC.Read.Read Amazonka.Redshift.DescribeAuthenticationProfiles.DescribeAuthenticationProfilesResponse
+ Amazonka.Redshift.DescribeAuthenticationProfiles: instance GHC.Show.Show Amazonka.Redshift.DescribeAuthenticationProfiles.DescribeAuthenticationProfiles
+ Amazonka.Redshift.DescribeAuthenticationProfiles: instance GHC.Show.Show Amazonka.Redshift.DescribeAuthenticationProfiles.DescribeAuthenticationProfilesResponse
+ Amazonka.Redshift.DescribeAuthenticationProfiles: newDescribeAuthenticationProfiles :: DescribeAuthenticationProfiles
+ Amazonka.Redshift.DescribeAuthenticationProfiles: newDescribeAuthenticationProfilesResponse :: Int -> DescribeAuthenticationProfilesResponse
+ Amazonka.Redshift.DescribeClusterDbRevisions: DescribeClusterDbRevisions' :: Maybe Text -> Maybe Text -> Maybe Int -> DescribeClusterDbRevisions
+ Amazonka.Redshift.DescribeClusterDbRevisions: DescribeClusterDbRevisionsResponse' :: Maybe [ClusterDbRevision] -> Maybe Text -> Int -> DescribeClusterDbRevisionsResponse
+ Amazonka.Redshift.DescribeClusterDbRevisions: [$sel:clusterDbRevisions:DescribeClusterDbRevisionsResponse'] :: DescribeClusterDbRevisionsResponse -> Maybe [ClusterDbRevision]
+ Amazonka.Redshift.DescribeClusterDbRevisions: [$sel:clusterIdentifier:DescribeClusterDbRevisions'] :: DescribeClusterDbRevisions -> Maybe Text
+ Amazonka.Redshift.DescribeClusterDbRevisions: [$sel:httpStatus:DescribeClusterDbRevisionsResponse'] :: DescribeClusterDbRevisionsResponse -> Int
+ Amazonka.Redshift.DescribeClusterDbRevisions: [$sel:marker:DescribeClusterDbRevisions'] :: DescribeClusterDbRevisions -> Maybe Text
+ Amazonka.Redshift.DescribeClusterDbRevisions: [$sel:marker:DescribeClusterDbRevisionsResponse'] :: DescribeClusterDbRevisionsResponse -> Maybe Text
+ Amazonka.Redshift.DescribeClusterDbRevisions: [$sel:maxRecords:DescribeClusterDbRevisions'] :: DescribeClusterDbRevisions -> Maybe Int
+ Amazonka.Redshift.DescribeClusterDbRevisions: data DescribeClusterDbRevisions
+ Amazonka.Redshift.DescribeClusterDbRevisions: data DescribeClusterDbRevisionsResponse
+ Amazonka.Redshift.DescribeClusterDbRevisions: describeClusterDbRevisionsResponse_clusterDbRevisions :: Lens' DescribeClusterDbRevisionsResponse (Maybe [ClusterDbRevision])
+ Amazonka.Redshift.DescribeClusterDbRevisions: describeClusterDbRevisionsResponse_httpStatus :: Lens' DescribeClusterDbRevisionsResponse Int
+ Amazonka.Redshift.DescribeClusterDbRevisions: describeClusterDbRevisionsResponse_marker :: Lens' DescribeClusterDbRevisionsResponse (Maybe Text)
+ Amazonka.Redshift.DescribeClusterDbRevisions: describeClusterDbRevisions_clusterIdentifier :: Lens' DescribeClusterDbRevisions (Maybe Text)
+ Amazonka.Redshift.DescribeClusterDbRevisions: describeClusterDbRevisions_marker :: Lens' DescribeClusterDbRevisions (Maybe Text)
+ Amazonka.Redshift.DescribeClusterDbRevisions: describeClusterDbRevisions_maxRecords :: Lens' DescribeClusterDbRevisions (Maybe Int)
+ Amazonka.Redshift.DescribeClusterDbRevisions: instance Amazonka.Data.Headers.ToHeaders Amazonka.Redshift.DescribeClusterDbRevisions.DescribeClusterDbRevisions
+ Amazonka.Redshift.DescribeClusterDbRevisions: instance Amazonka.Data.Path.ToPath Amazonka.Redshift.DescribeClusterDbRevisions.DescribeClusterDbRevisions
+ Amazonka.Redshift.DescribeClusterDbRevisions: instance Amazonka.Data.Query.ToQuery Amazonka.Redshift.DescribeClusterDbRevisions.DescribeClusterDbRevisions
+ Amazonka.Redshift.DescribeClusterDbRevisions: instance Amazonka.Pager.AWSPager Amazonka.Redshift.DescribeClusterDbRevisions.DescribeClusterDbRevisions
+ Amazonka.Redshift.DescribeClusterDbRevisions: instance Amazonka.Types.AWSRequest Amazonka.Redshift.DescribeClusterDbRevisions.DescribeClusterDbRevisions
+ Amazonka.Redshift.DescribeClusterDbRevisions: instance Control.DeepSeq.NFData Amazonka.Redshift.DescribeClusterDbRevisions.DescribeClusterDbRevisions
+ Amazonka.Redshift.DescribeClusterDbRevisions: instance Control.DeepSeq.NFData Amazonka.Redshift.DescribeClusterDbRevisions.DescribeClusterDbRevisionsResponse
+ Amazonka.Redshift.DescribeClusterDbRevisions: instance Data.Hashable.Class.Hashable Amazonka.Redshift.DescribeClusterDbRevisions.DescribeClusterDbRevisions
+ Amazonka.Redshift.DescribeClusterDbRevisions: instance GHC.Classes.Eq Amazonka.Redshift.DescribeClusterDbRevisions.DescribeClusterDbRevisions
+ Amazonka.Redshift.DescribeClusterDbRevisions: instance GHC.Classes.Eq Amazonka.Redshift.DescribeClusterDbRevisions.DescribeClusterDbRevisionsResponse
+ Amazonka.Redshift.DescribeClusterDbRevisions: instance GHC.Generics.Generic Amazonka.Redshift.DescribeClusterDbRevisions.DescribeClusterDbRevisions
+ Amazonka.Redshift.DescribeClusterDbRevisions: instance GHC.Generics.Generic Amazonka.Redshift.DescribeClusterDbRevisions.DescribeClusterDbRevisionsResponse
+ Amazonka.Redshift.DescribeClusterDbRevisions: instance GHC.Read.Read Amazonka.Redshift.DescribeClusterDbRevisions.DescribeClusterDbRevisions
+ Amazonka.Redshift.DescribeClusterDbRevisions: instance GHC.Read.Read Amazonka.Redshift.DescribeClusterDbRevisions.DescribeClusterDbRevisionsResponse
+ Amazonka.Redshift.DescribeClusterDbRevisions: instance GHC.Show.Show Amazonka.Redshift.DescribeClusterDbRevisions.DescribeClusterDbRevisions
+ Amazonka.Redshift.DescribeClusterDbRevisions: instance GHC.Show.Show Amazonka.Redshift.DescribeClusterDbRevisions.DescribeClusterDbRevisionsResponse
+ Amazonka.Redshift.DescribeClusterDbRevisions: newDescribeClusterDbRevisions :: DescribeClusterDbRevisions
+ Amazonka.Redshift.DescribeClusterDbRevisions: newDescribeClusterDbRevisionsResponse :: Int -> DescribeClusterDbRevisionsResponse
+ Amazonka.Redshift.DescribeClusterParameterGroups: DescribeClusterParameterGroups' :: Maybe Text -> Maybe Int -> Maybe Text -> Maybe [Text] -> Maybe [Text] -> DescribeClusterParameterGroups
+ Amazonka.Redshift.DescribeClusterParameterGroups: DescribeClusterParameterGroupsResponse' :: Maybe Text -> Maybe [ClusterParameterGroup] -> Int -> DescribeClusterParameterGroupsResponse
+ Amazonka.Redshift.DescribeClusterParameterGroups: [$sel:httpStatus:DescribeClusterParameterGroupsResponse'] :: DescribeClusterParameterGroupsResponse -> Int
+ Amazonka.Redshift.DescribeClusterParameterGroups: [$sel:marker:DescribeClusterParameterGroups'] :: DescribeClusterParameterGroups -> Maybe Text
+ Amazonka.Redshift.DescribeClusterParameterGroups: [$sel:marker:DescribeClusterParameterGroupsResponse'] :: DescribeClusterParameterGroupsResponse -> Maybe Text
+ Amazonka.Redshift.DescribeClusterParameterGroups: [$sel:maxRecords:DescribeClusterParameterGroups'] :: DescribeClusterParameterGroups -> Maybe Int
+ Amazonka.Redshift.DescribeClusterParameterGroups: [$sel:parameterGroupName:DescribeClusterParameterGroups'] :: DescribeClusterParameterGroups -> Maybe Text
+ Amazonka.Redshift.DescribeClusterParameterGroups: [$sel:parameterGroups:DescribeClusterParameterGroupsResponse'] :: DescribeClusterParameterGroupsResponse -> Maybe [ClusterParameterGroup]
+ Amazonka.Redshift.DescribeClusterParameterGroups: [$sel:tagKeys:DescribeClusterParameterGroups'] :: DescribeClusterParameterGroups -> Maybe [Text]
+ Amazonka.Redshift.DescribeClusterParameterGroups: [$sel:tagValues:DescribeClusterParameterGroups'] :: DescribeClusterParameterGroups -> Maybe [Text]
+ Amazonka.Redshift.DescribeClusterParameterGroups: data DescribeClusterParameterGroups
+ Amazonka.Redshift.DescribeClusterParameterGroups: data DescribeClusterParameterGroupsResponse
+ Amazonka.Redshift.DescribeClusterParameterGroups: describeClusterParameterGroupsResponse_httpStatus :: Lens' DescribeClusterParameterGroupsResponse Int
+ Amazonka.Redshift.DescribeClusterParameterGroups: describeClusterParameterGroupsResponse_marker :: Lens' DescribeClusterParameterGroupsResponse (Maybe Text)
+ Amazonka.Redshift.DescribeClusterParameterGroups: describeClusterParameterGroupsResponse_parameterGroups :: Lens' DescribeClusterParameterGroupsResponse (Maybe [ClusterParameterGroup])
+ Amazonka.Redshift.DescribeClusterParameterGroups: describeClusterParameterGroups_marker :: Lens' DescribeClusterParameterGroups (Maybe Text)
+ Amazonka.Redshift.DescribeClusterParameterGroups: describeClusterParameterGroups_maxRecords :: Lens' DescribeClusterParameterGroups (Maybe Int)
+ Amazonka.Redshift.DescribeClusterParameterGroups: describeClusterParameterGroups_parameterGroupName :: Lens' DescribeClusterParameterGroups (Maybe Text)
+ Amazonka.Redshift.DescribeClusterParameterGroups: describeClusterParameterGroups_tagKeys :: Lens' DescribeClusterParameterGroups (Maybe [Text])
+ Amazonka.Redshift.DescribeClusterParameterGroups: describeClusterParameterGroups_tagValues :: Lens' DescribeClusterParameterGroups (Maybe [Text])
+ Amazonka.Redshift.DescribeClusterParameterGroups: instance Amazonka.Data.Headers.ToHeaders Amazonka.Redshift.DescribeClusterParameterGroups.DescribeClusterParameterGroups
+ Amazonka.Redshift.DescribeClusterParameterGroups: instance Amazonka.Data.Path.ToPath Amazonka.Redshift.DescribeClusterParameterGroups.DescribeClusterParameterGroups
+ Amazonka.Redshift.DescribeClusterParameterGroups: instance Amazonka.Data.Query.ToQuery Amazonka.Redshift.DescribeClusterParameterGroups.DescribeClusterParameterGroups
+ Amazonka.Redshift.DescribeClusterParameterGroups: instance Amazonka.Pager.AWSPager Amazonka.Redshift.DescribeClusterParameterGroups.DescribeClusterParameterGroups
+ Amazonka.Redshift.DescribeClusterParameterGroups: instance Amazonka.Types.AWSRequest Amazonka.Redshift.DescribeClusterParameterGroups.DescribeClusterParameterGroups
+ Amazonka.Redshift.DescribeClusterParameterGroups: instance Control.DeepSeq.NFData Amazonka.Redshift.DescribeClusterParameterGroups.DescribeClusterParameterGroups
+ Amazonka.Redshift.DescribeClusterParameterGroups: instance Control.DeepSeq.NFData Amazonka.Redshift.DescribeClusterParameterGroups.DescribeClusterParameterGroupsResponse
+ Amazonka.Redshift.DescribeClusterParameterGroups: instance Data.Hashable.Class.Hashable Amazonka.Redshift.DescribeClusterParameterGroups.DescribeClusterParameterGroups
+ Amazonka.Redshift.DescribeClusterParameterGroups: instance GHC.Classes.Eq Amazonka.Redshift.DescribeClusterParameterGroups.DescribeClusterParameterGroups
+ Amazonka.Redshift.DescribeClusterParameterGroups: instance GHC.Classes.Eq Amazonka.Redshift.DescribeClusterParameterGroups.DescribeClusterParameterGroupsResponse
+ Amazonka.Redshift.DescribeClusterParameterGroups: instance GHC.Generics.Generic Amazonka.Redshift.DescribeClusterParameterGroups.DescribeClusterParameterGroups
+ Amazonka.Redshift.DescribeClusterParameterGroups: instance GHC.Generics.Generic Amazonka.Redshift.DescribeClusterParameterGroups.DescribeClusterParameterGroupsResponse
+ Amazonka.Redshift.DescribeClusterParameterGroups: instance GHC.Read.Read Amazonka.Redshift.DescribeClusterParameterGroups.DescribeClusterParameterGroups
+ Amazonka.Redshift.DescribeClusterParameterGroups: instance GHC.Read.Read Amazonka.Redshift.DescribeClusterParameterGroups.DescribeClusterParameterGroupsResponse
+ Amazonka.Redshift.DescribeClusterParameterGroups: instance GHC.Show.Show Amazonka.Redshift.DescribeClusterParameterGroups.DescribeClusterParameterGroups
+ Amazonka.Redshift.DescribeClusterParameterGroups: instance GHC.Show.Show Amazonka.Redshift.DescribeClusterParameterGroups.DescribeClusterParameterGroupsResponse
+ Amazonka.Redshift.DescribeClusterParameterGroups: newDescribeClusterParameterGroups :: DescribeClusterParameterGroups
+ Amazonka.Redshift.DescribeClusterParameterGroups: newDescribeClusterParameterGroupsResponse :: Int -> DescribeClusterParameterGroupsResponse
+ Amazonka.Redshift.DescribeClusterParameters: DescribeClusterParameters' :: Maybe Text -> Maybe Int -> Maybe Text -> Text -> DescribeClusterParameters
+ Amazonka.Redshift.DescribeClusterParameters: DescribeClusterParametersResponse' :: Maybe Text -> Maybe [Parameter] -> Int -> DescribeClusterParametersResponse
+ Amazonka.Redshift.DescribeClusterParameters: [$sel:httpStatus:DescribeClusterParametersResponse'] :: DescribeClusterParametersResponse -> Int
+ Amazonka.Redshift.DescribeClusterParameters: [$sel:marker:DescribeClusterParameters'] :: DescribeClusterParameters -> Maybe Text
+ Amazonka.Redshift.DescribeClusterParameters: [$sel:marker:DescribeClusterParametersResponse'] :: DescribeClusterParametersResponse -> Maybe Text
+ Amazonka.Redshift.DescribeClusterParameters: [$sel:maxRecords:DescribeClusterParameters'] :: DescribeClusterParameters -> Maybe Int
+ Amazonka.Redshift.DescribeClusterParameters: [$sel:parameterGroupName:DescribeClusterParameters'] :: DescribeClusterParameters -> Text
+ Amazonka.Redshift.DescribeClusterParameters: [$sel:parameters:DescribeClusterParametersResponse'] :: DescribeClusterParametersResponse -> Maybe [Parameter]
+ Amazonka.Redshift.DescribeClusterParameters: [$sel:source:DescribeClusterParameters'] :: DescribeClusterParameters -> Maybe Text
+ Amazonka.Redshift.DescribeClusterParameters: data DescribeClusterParameters
+ Amazonka.Redshift.DescribeClusterParameters: data DescribeClusterParametersResponse
+ Amazonka.Redshift.DescribeClusterParameters: describeClusterParametersResponse_httpStatus :: Lens' DescribeClusterParametersResponse Int
+ Amazonka.Redshift.DescribeClusterParameters: describeClusterParametersResponse_marker :: Lens' DescribeClusterParametersResponse (Maybe Text)
+ Amazonka.Redshift.DescribeClusterParameters: describeClusterParametersResponse_parameters :: Lens' DescribeClusterParametersResponse (Maybe [Parameter])
+ Amazonka.Redshift.DescribeClusterParameters: describeClusterParameters_marker :: Lens' DescribeClusterParameters (Maybe Text)
+ Amazonka.Redshift.DescribeClusterParameters: describeClusterParameters_maxRecords :: Lens' DescribeClusterParameters (Maybe Int)
+ Amazonka.Redshift.DescribeClusterParameters: describeClusterParameters_parameterGroupName :: Lens' DescribeClusterParameters Text
+ Amazonka.Redshift.DescribeClusterParameters: describeClusterParameters_source :: Lens' DescribeClusterParameters (Maybe Text)
+ Amazonka.Redshift.DescribeClusterParameters: instance Amazonka.Data.Headers.ToHeaders Amazonka.Redshift.DescribeClusterParameters.DescribeClusterParameters
+ Amazonka.Redshift.DescribeClusterParameters: instance Amazonka.Data.Path.ToPath Amazonka.Redshift.DescribeClusterParameters.DescribeClusterParameters
+ Amazonka.Redshift.DescribeClusterParameters: instance Amazonka.Data.Query.ToQuery Amazonka.Redshift.DescribeClusterParameters.DescribeClusterParameters
+ Amazonka.Redshift.DescribeClusterParameters: instance Amazonka.Pager.AWSPager Amazonka.Redshift.DescribeClusterParameters.DescribeClusterParameters
+ Amazonka.Redshift.DescribeClusterParameters: instance Amazonka.Types.AWSRequest Amazonka.Redshift.DescribeClusterParameters.DescribeClusterParameters
+ Amazonka.Redshift.DescribeClusterParameters: instance Control.DeepSeq.NFData Amazonka.Redshift.DescribeClusterParameters.DescribeClusterParameters
+ Amazonka.Redshift.DescribeClusterParameters: instance Control.DeepSeq.NFData Amazonka.Redshift.DescribeClusterParameters.DescribeClusterParametersResponse
+ Amazonka.Redshift.DescribeClusterParameters: instance Data.Hashable.Class.Hashable Amazonka.Redshift.DescribeClusterParameters.DescribeClusterParameters
+ Amazonka.Redshift.DescribeClusterParameters: instance GHC.Classes.Eq Amazonka.Redshift.DescribeClusterParameters.DescribeClusterParameters
+ Amazonka.Redshift.DescribeClusterParameters: instance GHC.Classes.Eq Amazonka.Redshift.DescribeClusterParameters.DescribeClusterParametersResponse
+ Amazonka.Redshift.DescribeClusterParameters: instance GHC.Generics.Generic Amazonka.Redshift.DescribeClusterParameters.DescribeClusterParameters
+ Amazonka.Redshift.DescribeClusterParameters: instance GHC.Generics.Generic Amazonka.Redshift.DescribeClusterParameters.DescribeClusterParametersResponse
+ Amazonka.Redshift.DescribeClusterParameters: instance GHC.Read.Read Amazonka.Redshift.DescribeClusterParameters.DescribeClusterParameters
+ Amazonka.Redshift.DescribeClusterParameters: instance GHC.Read.Read Amazonka.Redshift.DescribeClusterParameters.DescribeClusterParametersResponse
+ Amazonka.Redshift.DescribeClusterParameters: instance GHC.Show.Show Amazonka.Redshift.DescribeClusterParameters.DescribeClusterParameters
+ Amazonka.Redshift.DescribeClusterParameters: instance GHC.Show.Show Amazonka.Redshift.DescribeClusterParameters.DescribeClusterParametersResponse
+ Amazonka.Redshift.DescribeClusterParameters: newDescribeClusterParameters :: Text -> DescribeClusterParameters
+ Amazonka.Redshift.DescribeClusterParameters: newDescribeClusterParametersResponse :: Int -> DescribeClusterParametersResponse
+ Amazonka.Redshift.DescribeClusterSecurityGroups: DescribeClusterSecurityGroups' :: Maybe Text -> Maybe Text -> Maybe Int -> Maybe [Text] -> Maybe [Text] -> DescribeClusterSecurityGroups
+ Amazonka.Redshift.DescribeClusterSecurityGroups: DescribeClusterSecurityGroupsResponse' :: Maybe [ClusterSecurityGroup] -> Maybe Text -> Int -> DescribeClusterSecurityGroupsResponse
+ Amazonka.Redshift.DescribeClusterSecurityGroups: [$sel:clusterSecurityGroupName:DescribeClusterSecurityGroups'] :: DescribeClusterSecurityGroups -> Maybe Text
+ Amazonka.Redshift.DescribeClusterSecurityGroups: [$sel:clusterSecurityGroups:DescribeClusterSecurityGroupsResponse'] :: DescribeClusterSecurityGroupsResponse -> Maybe [ClusterSecurityGroup]
+ Amazonka.Redshift.DescribeClusterSecurityGroups: [$sel:httpStatus:DescribeClusterSecurityGroupsResponse'] :: DescribeClusterSecurityGroupsResponse -> Int
+ Amazonka.Redshift.DescribeClusterSecurityGroups: [$sel:marker:DescribeClusterSecurityGroups'] :: DescribeClusterSecurityGroups -> Maybe Text
+ Amazonka.Redshift.DescribeClusterSecurityGroups: [$sel:marker:DescribeClusterSecurityGroupsResponse'] :: DescribeClusterSecurityGroupsResponse -> Maybe Text
+ Amazonka.Redshift.DescribeClusterSecurityGroups: [$sel:maxRecords:DescribeClusterSecurityGroups'] :: DescribeClusterSecurityGroups -> Maybe Int
+ Amazonka.Redshift.DescribeClusterSecurityGroups: [$sel:tagKeys:DescribeClusterSecurityGroups'] :: DescribeClusterSecurityGroups -> Maybe [Text]
+ Amazonka.Redshift.DescribeClusterSecurityGroups: [$sel:tagValues:DescribeClusterSecurityGroups'] :: DescribeClusterSecurityGroups -> Maybe [Text]
+ Amazonka.Redshift.DescribeClusterSecurityGroups: data DescribeClusterSecurityGroups
+ Amazonka.Redshift.DescribeClusterSecurityGroups: data DescribeClusterSecurityGroupsResponse
+ Amazonka.Redshift.DescribeClusterSecurityGroups: describeClusterSecurityGroupsResponse_clusterSecurityGroups :: Lens' DescribeClusterSecurityGroupsResponse (Maybe [ClusterSecurityGroup])
+ Amazonka.Redshift.DescribeClusterSecurityGroups: describeClusterSecurityGroupsResponse_httpStatus :: Lens' DescribeClusterSecurityGroupsResponse Int
+ Amazonka.Redshift.DescribeClusterSecurityGroups: describeClusterSecurityGroupsResponse_marker :: Lens' DescribeClusterSecurityGroupsResponse (Maybe Text)
+ Amazonka.Redshift.DescribeClusterSecurityGroups: describeClusterSecurityGroups_clusterSecurityGroupName :: Lens' DescribeClusterSecurityGroups (Maybe Text)
+ Amazonka.Redshift.DescribeClusterSecurityGroups: describeClusterSecurityGroups_marker :: Lens' DescribeClusterSecurityGroups (Maybe Text)
+ Amazonka.Redshift.DescribeClusterSecurityGroups: describeClusterSecurityGroups_maxRecords :: Lens' DescribeClusterSecurityGroups (Maybe Int)
+ Amazonka.Redshift.DescribeClusterSecurityGroups: describeClusterSecurityGroups_tagKeys :: Lens' DescribeClusterSecurityGroups (Maybe [Text])
+ Amazonka.Redshift.DescribeClusterSecurityGroups: describeClusterSecurityGroups_tagValues :: Lens' DescribeClusterSecurityGroups (Maybe [Text])
+ Amazonka.Redshift.DescribeClusterSecurityGroups: instance Amazonka.Data.Headers.ToHeaders Amazonka.Redshift.DescribeClusterSecurityGroups.DescribeClusterSecurityGroups
+ Amazonka.Redshift.DescribeClusterSecurityGroups: instance Amazonka.Data.Path.ToPath Amazonka.Redshift.DescribeClusterSecurityGroups.DescribeClusterSecurityGroups
+ Amazonka.Redshift.DescribeClusterSecurityGroups: instance Amazonka.Data.Query.ToQuery Amazonka.Redshift.DescribeClusterSecurityGroups.DescribeClusterSecurityGroups
+ Amazonka.Redshift.DescribeClusterSecurityGroups: instance Amazonka.Pager.AWSPager Amazonka.Redshift.DescribeClusterSecurityGroups.DescribeClusterSecurityGroups
+ Amazonka.Redshift.DescribeClusterSecurityGroups: instance Amazonka.Types.AWSRequest Amazonka.Redshift.DescribeClusterSecurityGroups.DescribeClusterSecurityGroups
+ Amazonka.Redshift.DescribeClusterSecurityGroups: instance Control.DeepSeq.NFData Amazonka.Redshift.DescribeClusterSecurityGroups.DescribeClusterSecurityGroups
+ Amazonka.Redshift.DescribeClusterSecurityGroups: instance Control.DeepSeq.NFData Amazonka.Redshift.DescribeClusterSecurityGroups.DescribeClusterSecurityGroupsResponse
+ Amazonka.Redshift.DescribeClusterSecurityGroups: instance Data.Hashable.Class.Hashable Amazonka.Redshift.DescribeClusterSecurityGroups.DescribeClusterSecurityGroups
+ Amazonka.Redshift.DescribeClusterSecurityGroups: instance GHC.Classes.Eq Amazonka.Redshift.DescribeClusterSecurityGroups.DescribeClusterSecurityGroups
+ Amazonka.Redshift.DescribeClusterSecurityGroups: instance GHC.Classes.Eq Amazonka.Redshift.DescribeClusterSecurityGroups.DescribeClusterSecurityGroupsResponse
+ Amazonka.Redshift.DescribeClusterSecurityGroups: instance GHC.Generics.Generic Amazonka.Redshift.DescribeClusterSecurityGroups.DescribeClusterSecurityGroups
+ Amazonka.Redshift.DescribeClusterSecurityGroups: instance GHC.Generics.Generic Amazonka.Redshift.DescribeClusterSecurityGroups.DescribeClusterSecurityGroupsResponse
+ Amazonka.Redshift.DescribeClusterSecurityGroups: instance GHC.Read.Read Amazonka.Redshift.DescribeClusterSecurityGroups.DescribeClusterSecurityGroups
+ Amazonka.Redshift.DescribeClusterSecurityGroups: instance GHC.Read.Read Amazonka.Redshift.DescribeClusterSecurityGroups.DescribeClusterSecurityGroupsResponse
+ Amazonka.Redshift.DescribeClusterSecurityGroups: instance GHC.Show.Show Amazonka.Redshift.DescribeClusterSecurityGroups.DescribeClusterSecurityGroups
+ Amazonka.Redshift.DescribeClusterSecurityGroups: instance GHC.Show.Show Amazonka.Redshift.DescribeClusterSecurityGroups.DescribeClusterSecurityGroupsResponse
+ Amazonka.Redshift.DescribeClusterSecurityGroups: newDescribeClusterSecurityGroups :: DescribeClusterSecurityGroups
+ Amazonka.Redshift.DescribeClusterSecurityGroups: newDescribeClusterSecurityGroupsResponse :: Int -> DescribeClusterSecurityGroupsResponse
+ Amazonka.Redshift.DescribeClusterSnapshots: DescribeClusterSnapshots' :: Maybe Bool -> Maybe Text -> Maybe ISO8601 -> Maybe Text -> Maybe Int -> Maybe Text -> Maybe Text -> Maybe Text -> Maybe Text -> Maybe [SnapshotSortingEntity] -> Maybe ISO8601 -> Maybe [Text] -> Maybe [Text] -> DescribeClusterSnapshots
+ Amazonka.Redshift.DescribeClusterSnapshots: DescribeClusterSnapshotsResponse' :: Maybe Text -> Maybe [Snapshot] -> Int -> DescribeClusterSnapshotsResponse
+ Amazonka.Redshift.DescribeClusterSnapshots: [$sel:clusterExists:DescribeClusterSnapshots'] :: DescribeClusterSnapshots -> Maybe Bool
+ Amazonka.Redshift.DescribeClusterSnapshots: [$sel:clusterIdentifier:DescribeClusterSnapshots'] :: DescribeClusterSnapshots -> Maybe Text
+ Amazonka.Redshift.DescribeClusterSnapshots: [$sel:endTime:DescribeClusterSnapshots'] :: DescribeClusterSnapshots -> Maybe ISO8601
+ Amazonka.Redshift.DescribeClusterSnapshots: [$sel:httpStatus:DescribeClusterSnapshotsResponse'] :: DescribeClusterSnapshotsResponse -> Int
+ Amazonka.Redshift.DescribeClusterSnapshots: [$sel:marker:DescribeClusterSnapshots'] :: DescribeClusterSnapshots -> Maybe Text
+ Amazonka.Redshift.DescribeClusterSnapshots: [$sel:marker:DescribeClusterSnapshotsResponse'] :: DescribeClusterSnapshotsResponse -> Maybe Text
+ Amazonka.Redshift.DescribeClusterSnapshots: [$sel:maxRecords:DescribeClusterSnapshots'] :: DescribeClusterSnapshots -> Maybe Int
+ Amazonka.Redshift.DescribeClusterSnapshots: [$sel:ownerAccount:DescribeClusterSnapshots'] :: DescribeClusterSnapshots -> Maybe Text
+ Amazonka.Redshift.DescribeClusterSnapshots: [$sel:snapshotArn:DescribeClusterSnapshots'] :: DescribeClusterSnapshots -> Maybe Text
+ Amazonka.Redshift.DescribeClusterSnapshots: [$sel:snapshotIdentifier:DescribeClusterSnapshots'] :: DescribeClusterSnapshots -> Maybe Text
+ Amazonka.Redshift.DescribeClusterSnapshots: [$sel:snapshotType:DescribeClusterSnapshots'] :: DescribeClusterSnapshots -> Maybe Text
+ Amazonka.Redshift.DescribeClusterSnapshots: [$sel:snapshots:DescribeClusterSnapshotsResponse'] :: DescribeClusterSnapshotsResponse -> Maybe [Snapshot]
+ Amazonka.Redshift.DescribeClusterSnapshots: [$sel:sortingEntities:DescribeClusterSnapshots'] :: DescribeClusterSnapshots -> Maybe [SnapshotSortingEntity]
+ Amazonka.Redshift.DescribeClusterSnapshots: [$sel:startTime:DescribeClusterSnapshots'] :: DescribeClusterSnapshots -> Maybe ISO8601
+ Amazonka.Redshift.DescribeClusterSnapshots: [$sel:tagKeys:DescribeClusterSnapshots'] :: DescribeClusterSnapshots -> Maybe [Text]
+ Amazonka.Redshift.DescribeClusterSnapshots: [$sel:tagValues:DescribeClusterSnapshots'] :: DescribeClusterSnapshots -> Maybe [Text]
+ Amazonka.Redshift.DescribeClusterSnapshots: data DescribeClusterSnapshots
+ Amazonka.Redshift.DescribeClusterSnapshots: data DescribeClusterSnapshotsResponse
+ Amazonka.Redshift.DescribeClusterSnapshots: describeClusterSnapshotsResponse_httpStatus :: Lens' DescribeClusterSnapshotsResponse Int
+ Amazonka.Redshift.DescribeClusterSnapshots: describeClusterSnapshotsResponse_marker :: Lens' DescribeClusterSnapshotsResponse (Maybe Text)
+ Amazonka.Redshift.DescribeClusterSnapshots: describeClusterSnapshotsResponse_snapshots :: Lens' DescribeClusterSnapshotsResponse (Maybe [Snapshot])
+ Amazonka.Redshift.DescribeClusterSnapshots: describeClusterSnapshots_clusterExists :: Lens' DescribeClusterSnapshots (Maybe Bool)
+ Amazonka.Redshift.DescribeClusterSnapshots: describeClusterSnapshots_clusterIdentifier :: Lens' DescribeClusterSnapshots (Maybe Text)
+ Amazonka.Redshift.DescribeClusterSnapshots: describeClusterSnapshots_endTime :: Lens' DescribeClusterSnapshots (Maybe UTCTime)
+ Amazonka.Redshift.DescribeClusterSnapshots: describeClusterSnapshots_marker :: Lens' DescribeClusterSnapshots (Maybe Text)
+ Amazonka.Redshift.DescribeClusterSnapshots: describeClusterSnapshots_maxRecords :: Lens' DescribeClusterSnapshots (Maybe Int)
+ Amazonka.Redshift.DescribeClusterSnapshots: describeClusterSnapshots_ownerAccount :: Lens' DescribeClusterSnapshots (Maybe Text)
+ Amazonka.Redshift.DescribeClusterSnapshots: describeClusterSnapshots_snapshotArn :: Lens' DescribeClusterSnapshots (Maybe Text)
+ Amazonka.Redshift.DescribeClusterSnapshots: describeClusterSnapshots_snapshotIdentifier :: Lens' DescribeClusterSnapshots (Maybe Text)
+ Amazonka.Redshift.DescribeClusterSnapshots: describeClusterSnapshots_snapshotType :: Lens' DescribeClusterSnapshots (Maybe Text)
+ Amazonka.Redshift.DescribeClusterSnapshots: describeClusterSnapshots_sortingEntities :: Lens' DescribeClusterSnapshots (Maybe [SnapshotSortingEntity])
+ Amazonka.Redshift.DescribeClusterSnapshots: describeClusterSnapshots_startTime :: Lens' DescribeClusterSnapshots (Maybe UTCTime)
+ Amazonka.Redshift.DescribeClusterSnapshots: describeClusterSnapshots_tagKeys :: Lens' DescribeClusterSnapshots (Maybe [Text])
+ Amazonka.Redshift.DescribeClusterSnapshots: describeClusterSnapshots_tagValues :: Lens' DescribeClusterSnapshots (Maybe [Text])
+ Amazonka.Redshift.DescribeClusterSnapshots: instance Amazonka.Data.Headers.ToHeaders Amazonka.Redshift.DescribeClusterSnapshots.DescribeClusterSnapshots
+ Amazonka.Redshift.DescribeClusterSnapshots: instance Amazonka.Data.Path.ToPath Amazonka.Redshift.DescribeClusterSnapshots.DescribeClusterSnapshots
+ Amazonka.Redshift.DescribeClusterSnapshots: instance Amazonka.Data.Query.ToQuery Amazonka.Redshift.DescribeClusterSnapshots.DescribeClusterSnapshots
+ Amazonka.Redshift.DescribeClusterSnapshots: instance Amazonka.Pager.AWSPager Amazonka.Redshift.DescribeClusterSnapshots.DescribeClusterSnapshots
+ Amazonka.Redshift.DescribeClusterSnapshots: instance Amazonka.Types.AWSRequest Amazonka.Redshift.DescribeClusterSnapshots.DescribeClusterSnapshots
+ Amazonka.Redshift.DescribeClusterSnapshots: instance Control.DeepSeq.NFData Amazonka.Redshift.DescribeClusterSnapshots.DescribeClusterSnapshots
+ Amazonka.Redshift.DescribeClusterSnapshots: instance Control.DeepSeq.NFData Amazonka.Redshift.DescribeClusterSnapshots.DescribeClusterSnapshotsResponse
+ Amazonka.Redshift.DescribeClusterSnapshots: instance Data.Hashable.Class.Hashable Amazonka.Redshift.DescribeClusterSnapshots.DescribeClusterSnapshots
+ Amazonka.Redshift.DescribeClusterSnapshots: instance GHC.Classes.Eq Amazonka.Redshift.DescribeClusterSnapshots.DescribeClusterSnapshots
+ Amazonka.Redshift.DescribeClusterSnapshots: instance GHC.Classes.Eq Amazonka.Redshift.DescribeClusterSnapshots.DescribeClusterSnapshotsResponse
+ Amazonka.Redshift.DescribeClusterSnapshots: instance GHC.Generics.Generic Amazonka.Redshift.DescribeClusterSnapshots.DescribeClusterSnapshots
+ Amazonka.Redshift.DescribeClusterSnapshots: instance GHC.Generics.Generic Amazonka.Redshift.DescribeClusterSnapshots.DescribeClusterSnapshotsResponse
+ Amazonka.Redshift.DescribeClusterSnapshots: instance GHC.Read.Read Amazonka.Redshift.DescribeClusterSnapshots.DescribeClusterSnapshots
+ Amazonka.Redshift.DescribeClusterSnapshots: instance GHC.Read.Read Amazonka.Redshift.DescribeClusterSnapshots.DescribeClusterSnapshotsResponse
+ Amazonka.Redshift.DescribeClusterSnapshots: instance GHC.Show.Show Amazonka.Redshift.DescribeClusterSnapshots.DescribeClusterSnapshots
+ Amazonka.Redshift.DescribeClusterSnapshots: instance GHC.Show.Show Amazonka.Redshift.DescribeClusterSnapshots.DescribeClusterSnapshotsResponse
+ Amazonka.Redshift.DescribeClusterSnapshots: newDescribeClusterSnapshots :: DescribeClusterSnapshots
+ Amazonka.Redshift.DescribeClusterSnapshots: newDescribeClusterSnapshotsResponse :: Int -> DescribeClusterSnapshotsResponse
+ Amazonka.Redshift.DescribeClusterSubnetGroups: DescribeClusterSubnetGroups' :: Maybe Text -> Maybe Text -> Maybe Int -> Maybe [Text] -> Maybe [Text] -> DescribeClusterSubnetGroups
+ Amazonka.Redshift.DescribeClusterSubnetGroups: DescribeClusterSubnetGroupsResponse' :: Maybe [ClusterSubnetGroup] -> Maybe Text -> Int -> DescribeClusterSubnetGroupsResponse
+ Amazonka.Redshift.DescribeClusterSubnetGroups: [$sel:clusterSubnetGroupName:DescribeClusterSubnetGroups'] :: DescribeClusterSubnetGroups -> Maybe Text
+ Amazonka.Redshift.DescribeClusterSubnetGroups: [$sel:clusterSubnetGroups:DescribeClusterSubnetGroupsResponse'] :: DescribeClusterSubnetGroupsResponse -> Maybe [ClusterSubnetGroup]
+ Amazonka.Redshift.DescribeClusterSubnetGroups: [$sel:httpStatus:DescribeClusterSubnetGroupsResponse'] :: DescribeClusterSubnetGroupsResponse -> Int
+ Amazonka.Redshift.DescribeClusterSubnetGroups: [$sel:marker:DescribeClusterSubnetGroups'] :: DescribeClusterSubnetGroups -> Maybe Text
+ Amazonka.Redshift.DescribeClusterSubnetGroups: [$sel:marker:DescribeClusterSubnetGroupsResponse'] :: DescribeClusterSubnetGroupsResponse -> Maybe Text
+ Amazonka.Redshift.DescribeClusterSubnetGroups: [$sel:maxRecords:DescribeClusterSubnetGroups'] :: DescribeClusterSubnetGroups -> Maybe Int
+ Amazonka.Redshift.DescribeClusterSubnetGroups: [$sel:tagKeys:DescribeClusterSubnetGroups'] :: DescribeClusterSubnetGroups -> Maybe [Text]
+ Amazonka.Redshift.DescribeClusterSubnetGroups: [$sel:tagValues:DescribeClusterSubnetGroups'] :: DescribeClusterSubnetGroups -> Maybe [Text]
+ Amazonka.Redshift.DescribeClusterSubnetGroups: data DescribeClusterSubnetGroups
+ Amazonka.Redshift.DescribeClusterSubnetGroups: data DescribeClusterSubnetGroupsResponse
+ Amazonka.Redshift.DescribeClusterSubnetGroups: describeClusterSubnetGroupsResponse_clusterSubnetGroups :: Lens' DescribeClusterSubnetGroupsResponse (Maybe [ClusterSubnetGroup])
+ Amazonka.Redshift.DescribeClusterSubnetGroups: describeClusterSubnetGroupsResponse_httpStatus :: Lens' DescribeClusterSubnetGroupsResponse Int
+ Amazonka.Redshift.DescribeClusterSubnetGroups: describeClusterSubnetGroupsResponse_marker :: Lens' DescribeClusterSubnetGroupsResponse (Maybe Text)
+ Amazonka.Redshift.DescribeClusterSubnetGroups: describeClusterSubnetGroups_clusterSubnetGroupName :: Lens' DescribeClusterSubnetGroups (Maybe Text)
+ Amazonka.Redshift.DescribeClusterSubnetGroups: describeClusterSubnetGroups_marker :: Lens' DescribeClusterSubnetGroups (Maybe Text)
+ Amazonka.Redshift.DescribeClusterSubnetGroups: describeClusterSubnetGroups_maxRecords :: Lens' DescribeClusterSubnetGroups (Maybe Int)
+ Amazonka.Redshift.DescribeClusterSubnetGroups: describeClusterSubnetGroups_tagKeys :: Lens' DescribeClusterSubnetGroups (Maybe [Text])
+ Amazonka.Redshift.DescribeClusterSubnetGroups: describeClusterSubnetGroups_tagValues :: Lens' DescribeClusterSubnetGroups (Maybe [Text])
+ Amazonka.Redshift.DescribeClusterSubnetGroups: instance Amazonka.Data.Headers.ToHeaders Amazonka.Redshift.DescribeClusterSubnetGroups.DescribeClusterSubnetGroups
+ Amazonka.Redshift.DescribeClusterSubnetGroups: instance Amazonka.Data.Path.ToPath Amazonka.Redshift.DescribeClusterSubnetGroups.DescribeClusterSubnetGroups
+ Amazonka.Redshift.DescribeClusterSubnetGroups: instance Amazonka.Data.Query.ToQuery Amazonka.Redshift.DescribeClusterSubnetGroups.DescribeClusterSubnetGroups
+ Amazonka.Redshift.DescribeClusterSubnetGroups: instance Amazonka.Pager.AWSPager Amazonka.Redshift.DescribeClusterSubnetGroups.DescribeClusterSubnetGroups
+ Amazonka.Redshift.DescribeClusterSubnetGroups: instance Amazonka.Types.AWSRequest Amazonka.Redshift.DescribeClusterSubnetGroups.DescribeClusterSubnetGroups
+ Amazonka.Redshift.DescribeClusterSubnetGroups: instance Control.DeepSeq.NFData Amazonka.Redshift.DescribeClusterSubnetGroups.DescribeClusterSubnetGroups
+ Amazonka.Redshift.DescribeClusterSubnetGroups: instance Control.DeepSeq.NFData Amazonka.Redshift.DescribeClusterSubnetGroups.DescribeClusterSubnetGroupsResponse
+ Amazonka.Redshift.DescribeClusterSubnetGroups: instance Data.Hashable.Class.Hashable Amazonka.Redshift.DescribeClusterSubnetGroups.DescribeClusterSubnetGroups
+ Amazonka.Redshift.DescribeClusterSubnetGroups: instance GHC.Classes.Eq Amazonka.Redshift.DescribeClusterSubnetGroups.DescribeClusterSubnetGroups
+ Amazonka.Redshift.DescribeClusterSubnetGroups: instance GHC.Classes.Eq Amazonka.Redshift.DescribeClusterSubnetGroups.DescribeClusterSubnetGroupsResponse
+ Amazonka.Redshift.DescribeClusterSubnetGroups: instance GHC.Generics.Generic Amazonka.Redshift.DescribeClusterSubnetGroups.DescribeClusterSubnetGroups
+ Amazonka.Redshift.DescribeClusterSubnetGroups: instance GHC.Generics.Generic Amazonka.Redshift.DescribeClusterSubnetGroups.DescribeClusterSubnetGroupsResponse
+ Amazonka.Redshift.DescribeClusterSubnetGroups: instance GHC.Read.Read Amazonka.Redshift.DescribeClusterSubnetGroups.DescribeClusterSubnetGroups
+ Amazonka.Redshift.DescribeClusterSubnetGroups: instance GHC.Read.Read Amazonka.Redshift.DescribeClusterSubnetGroups.DescribeClusterSubnetGroupsResponse
+ Amazonka.Redshift.DescribeClusterSubnetGroups: instance GHC.Show.Show Amazonka.Redshift.DescribeClusterSubnetGroups.DescribeClusterSubnetGroups
+ Amazonka.Redshift.DescribeClusterSubnetGroups: instance GHC.Show.Show Amazonka.Redshift.DescribeClusterSubnetGroups.DescribeClusterSubnetGroupsResponse
+ Amazonka.Redshift.DescribeClusterSubnetGroups: newDescribeClusterSubnetGroups :: DescribeClusterSubnetGroups
+ Amazonka.Redshift.DescribeClusterSubnetGroups: newDescribeClusterSubnetGroupsResponse :: Int -> DescribeClusterSubnetGroupsResponse
+ Amazonka.Redshift.DescribeClusterTracks: DescribeClusterTracks' :: Maybe Text -> Maybe Text -> Maybe Int -> DescribeClusterTracks
+ Amazonka.Redshift.DescribeClusterTracks: DescribeClusterTracksResponse' :: Maybe [MaintenanceTrack] -> Maybe Text -> Int -> DescribeClusterTracksResponse
+ Amazonka.Redshift.DescribeClusterTracks: [$sel:httpStatus:DescribeClusterTracksResponse'] :: DescribeClusterTracksResponse -> Int
+ Amazonka.Redshift.DescribeClusterTracks: [$sel:maintenanceTrackName:DescribeClusterTracks'] :: DescribeClusterTracks -> Maybe Text
+ Amazonka.Redshift.DescribeClusterTracks: [$sel:maintenanceTracks:DescribeClusterTracksResponse'] :: DescribeClusterTracksResponse -> Maybe [MaintenanceTrack]
+ Amazonka.Redshift.DescribeClusterTracks: [$sel:marker:DescribeClusterTracks'] :: DescribeClusterTracks -> Maybe Text
+ Amazonka.Redshift.DescribeClusterTracks: [$sel:marker:DescribeClusterTracksResponse'] :: DescribeClusterTracksResponse -> Maybe Text
+ Amazonka.Redshift.DescribeClusterTracks: [$sel:maxRecords:DescribeClusterTracks'] :: DescribeClusterTracks -> Maybe Int
+ Amazonka.Redshift.DescribeClusterTracks: data DescribeClusterTracks
+ Amazonka.Redshift.DescribeClusterTracks: data DescribeClusterTracksResponse
+ Amazonka.Redshift.DescribeClusterTracks: describeClusterTracksResponse_httpStatus :: Lens' DescribeClusterTracksResponse Int
+ Amazonka.Redshift.DescribeClusterTracks: describeClusterTracksResponse_maintenanceTracks :: Lens' DescribeClusterTracksResponse (Maybe [MaintenanceTrack])
+ Amazonka.Redshift.DescribeClusterTracks: describeClusterTracksResponse_marker :: Lens' DescribeClusterTracksResponse (Maybe Text)
+ Amazonka.Redshift.DescribeClusterTracks: describeClusterTracks_maintenanceTrackName :: Lens' DescribeClusterTracks (Maybe Text)
+ Amazonka.Redshift.DescribeClusterTracks: describeClusterTracks_marker :: Lens' DescribeClusterTracks (Maybe Text)
+ Amazonka.Redshift.DescribeClusterTracks: describeClusterTracks_maxRecords :: Lens' DescribeClusterTracks (Maybe Int)
+ Amazonka.Redshift.DescribeClusterTracks: instance Amazonka.Data.Headers.ToHeaders Amazonka.Redshift.DescribeClusterTracks.DescribeClusterTracks
+ Amazonka.Redshift.DescribeClusterTracks: instance Amazonka.Data.Path.ToPath Amazonka.Redshift.DescribeClusterTracks.DescribeClusterTracks
+ Amazonka.Redshift.DescribeClusterTracks: instance Amazonka.Data.Query.ToQuery Amazonka.Redshift.DescribeClusterTracks.DescribeClusterTracks
+ Amazonka.Redshift.DescribeClusterTracks: instance Amazonka.Pager.AWSPager Amazonka.Redshift.DescribeClusterTracks.DescribeClusterTracks
+ Amazonka.Redshift.DescribeClusterTracks: instance Amazonka.Types.AWSRequest Amazonka.Redshift.DescribeClusterTracks.DescribeClusterTracks
+ Amazonka.Redshift.DescribeClusterTracks: instance Control.DeepSeq.NFData Amazonka.Redshift.DescribeClusterTracks.DescribeClusterTracks
+ Amazonka.Redshift.DescribeClusterTracks: instance Control.DeepSeq.NFData Amazonka.Redshift.DescribeClusterTracks.DescribeClusterTracksResponse
+ Amazonka.Redshift.DescribeClusterTracks: instance Data.Hashable.Class.Hashable Amazonka.Redshift.DescribeClusterTracks.DescribeClusterTracks
+ Amazonka.Redshift.DescribeClusterTracks: instance GHC.Classes.Eq Amazonka.Redshift.DescribeClusterTracks.DescribeClusterTracks
+ Amazonka.Redshift.DescribeClusterTracks: instance GHC.Classes.Eq Amazonka.Redshift.DescribeClusterTracks.DescribeClusterTracksResponse
+ Amazonka.Redshift.DescribeClusterTracks: instance GHC.Generics.Generic Amazonka.Redshift.DescribeClusterTracks.DescribeClusterTracks
+ Amazonka.Redshift.DescribeClusterTracks: instance GHC.Generics.Generic Amazonka.Redshift.DescribeClusterTracks.DescribeClusterTracksResponse
+ Amazonka.Redshift.DescribeClusterTracks: instance GHC.Read.Read Amazonka.Redshift.DescribeClusterTracks.DescribeClusterTracks
+ Amazonka.Redshift.DescribeClusterTracks: instance GHC.Read.Read Amazonka.Redshift.DescribeClusterTracks.DescribeClusterTracksResponse
+ Amazonka.Redshift.DescribeClusterTracks: instance GHC.Show.Show Amazonka.Redshift.DescribeClusterTracks.DescribeClusterTracks
+ Amazonka.Redshift.DescribeClusterTracks: instance GHC.Show.Show Amazonka.Redshift.DescribeClusterTracks.DescribeClusterTracksResponse
+ Amazonka.Redshift.DescribeClusterTracks: newDescribeClusterTracks :: DescribeClusterTracks
+ Amazonka.Redshift.DescribeClusterTracks: newDescribeClusterTracksResponse :: Int -> DescribeClusterTracksResponse
+ Amazonka.Redshift.DescribeClusterVersions: DescribeClusterVersions' :: Maybe Text -> Maybe Text -> Maybe Text -> Maybe Int -> DescribeClusterVersions
+ Amazonka.Redshift.DescribeClusterVersions: DescribeClusterVersionsResponse' :: Maybe [ClusterVersion] -> Maybe Text -> Int -> DescribeClusterVersionsResponse
+ Amazonka.Redshift.DescribeClusterVersions: [$sel:clusterParameterGroupFamily:DescribeClusterVersions'] :: DescribeClusterVersions -> Maybe Text
+ Amazonka.Redshift.DescribeClusterVersions: [$sel:clusterVersion:DescribeClusterVersions'] :: DescribeClusterVersions -> Maybe Text
+ Amazonka.Redshift.DescribeClusterVersions: [$sel:clusterVersions:DescribeClusterVersionsResponse'] :: DescribeClusterVersionsResponse -> Maybe [ClusterVersion]
+ Amazonka.Redshift.DescribeClusterVersions: [$sel:httpStatus:DescribeClusterVersionsResponse'] :: DescribeClusterVersionsResponse -> Int
+ Amazonka.Redshift.DescribeClusterVersions: [$sel:marker:DescribeClusterVersions'] :: DescribeClusterVersions -> Maybe Text
+ Amazonka.Redshift.DescribeClusterVersions: [$sel:marker:DescribeClusterVersionsResponse'] :: DescribeClusterVersionsResponse -> Maybe Text
+ Amazonka.Redshift.DescribeClusterVersions: [$sel:maxRecords:DescribeClusterVersions'] :: DescribeClusterVersions -> Maybe Int
+ Amazonka.Redshift.DescribeClusterVersions: data DescribeClusterVersions
+ Amazonka.Redshift.DescribeClusterVersions: data DescribeClusterVersionsResponse
+ Amazonka.Redshift.DescribeClusterVersions: describeClusterVersionsResponse_clusterVersions :: Lens' DescribeClusterVersionsResponse (Maybe [ClusterVersion])
+ Amazonka.Redshift.DescribeClusterVersions: describeClusterVersionsResponse_httpStatus :: Lens' DescribeClusterVersionsResponse Int
+ Amazonka.Redshift.DescribeClusterVersions: describeClusterVersionsResponse_marker :: Lens' DescribeClusterVersionsResponse (Maybe Text)
+ Amazonka.Redshift.DescribeClusterVersions: describeClusterVersions_clusterParameterGroupFamily :: Lens' DescribeClusterVersions (Maybe Text)
+ Amazonka.Redshift.DescribeClusterVersions: describeClusterVersions_clusterVersion :: Lens' DescribeClusterVersions (Maybe Text)
+ Amazonka.Redshift.DescribeClusterVersions: describeClusterVersions_marker :: Lens' DescribeClusterVersions (Maybe Text)
+ Amazonka.Redshift.DescribeClusterVersions: describeClusterVersions_maxRecords :: Lens' DescribeClusterVersions (Maybe Int)
+ Amazonka.Redshift.DescribeClusterVersions: instance Amazonka.Data.Headers.ToHeaders Amazonka.Redshift.DescribeClusterVersions.DescribeClusterVersions
+ Amazonka.Redshift.DescribeClusterVersions: instance Amazonka.Data.Path.ToPath Amazonka.Redshift.DescribeClusterVersions.DescribeClusterVersions
+ Amazonka.Redshift.DescribeClusterVersions: instance Amazonka.Data.Query.ToQuery Amazonka.Redshift.DescribeClusterVersions.DescribeClusterVersions
+ Amazonka.Redshift.DescribeClusterVersions: instance Amazonka.Pager.AWSPager Amazonka.Redshift.DescribeClusterVersions.DescribeClusterVersions
+ Amazonka.Redshift.DescribeClusterVersions: instance Amazonka.Types.AWSRequest Amazonka.Redshift.DescribeClusterVersions.DescribeClusterVersions
+ Amazonka.Redshift.DescribeClusterVersions: instance Control.DeepSeq.NFData Amazonka.Redshift.DescribeClusterVersions.DescribeClusterVersions
+ Amazonka.Redshift.DescribeClusterVersions: instance Control.DeepSeq.NFData Amazonka.Redshift.DescribeClusterVersions.DescribeClusterVersionsResponse
+ Amazonka.Redshift.DescribeClusterVersions: instance Data.Hashable.Class.Hashable Amazonka.Redshift.DescribeClusterVersions.DescribeClusterVersions
+ Amazonka.Redshift.DescribeClusterVersions: instance GHC.Classes.Eq Amazonka.Redshift.DescribeClusterVersions.DescribeClusterVersions
+ Amazonka.Redshift.DescribeClusterVersions: instance GHC.Classes.Eq Amazonka.Redshift.DescribeClusterVersions.DescribeClusterVersionsResponse
+ Amazonka.Redshift.DescribeClusterVersions: instance GHC.Generics.Generic Amazonka.Redshift.DescribeClusterVersions.DescribeClusterVersions
+ Amazonka.Redshift.DescribeClusterVersions: instance GHC.Generics.Generic Amazonka.Redshift.DescribeClusterVersions.DescribeClusterVersionsResponse
+ Amazonka.Redshift.DescribeClusterVersions: instance GHC.Read.Read Amazonka.Redshift.DescribeClusterVersions.DescribeClusterVersions
+ Amazonka.Redshift.DescribeClusterVersions: instance GHC.Read.Read Amazonka.Redshift.DescribeClusterVersions.DescribeClusterVersionsResponse
+ Amazonka.Redshift.DescribeClusterVersions: instance GHC.Show.Show Amazonka.Redshift.DescribeClusterVersions.DescribeClusterVersions
+ Amazonka.Redshift.DescribeClusterVersions: instance GHC.Show.Show Amazonka.Redshift.DescribeClusterVersions.DescribeClusterVersionsResponse
+ Amazonka.Redshift.DescribeClusterVersions: newDescribeClusterVersions :: DescribeClusterVersions
+ Amazonka.Redshift.DescribeClusterVersions: newDescribeClusterVersionsResponse :: Int -> DescribeClusterVersionsResponse
+ Amazonka.Redshift.DescribeClusters: DescribeClusters' :: Maybe Text -> Maybe Text -> Maybe Int -> Maybe [Text] -> Maybe [Text] -> DescribeClusters
+ Amazonka.Redshift.DescribeClusters: DescribeClustersResponse' :: Maybe [Cluster] -> Maybe Text -> Int -> DescribeClustersResponse
+ Amazonka.Redshift.DescribeClusters: [$sel:clusterIdentifier:DescribeClusters'] :: DescribeClusters -> Maybe Text
+ Amazonka.Redshift.DescribeClusters: [$sel:clusters:DescribeClustersResponse'] :: DescribeClustersResponse -> Maybe [Cluster]
+ Amazonka.Redshift.DescribeClusters: [$sel:httpStatus:DescribeClustersResponse'] :: DescribeClustersResponse -> Int
+ Amazonka.Redshift.DescribeClusters: [$sel:marker:DescribeClusters'] :: DescribeClusters -> Maybe Text
+ Amazonka.Redshift.DescribeClusters: [$sel:marker:DescribeClustersResponse'] :: DescribeClustersResponse -> Maybe Text
+ Amazonka.Redshift.DescribeClusters: [$sel:maxRecords:DescribeClusters'] :: DescribeClusters -> Maybe Int
+ Amazonka.Redshift.DescribeClusters: [$sel:tagKeys:DescribeClusters'] :: DescribeClusters -> Maybe [Text]
+ Amazonka.Redshift.DescribeClusters: [$sel:tagValues:DescribeClusters'] :: DescribeClusters -> Maybe [Text]
+ Amazonka.Redshift.DescribeClusters: data DescribeClusters
+ Amazonka.Redshift.DescribeClusters: data DescribeClustersResponse
+ Amazonka.Redshift.DescribeClusters: describeClustersResponse_clusters :: Lens' DescribeClustersResponse (Maybe [Cluster])
+ Amazonka.Redshift.DescribeClusters: describeClustersResponse_httpStatus :: Lens' DescribeClustersResponse Int
+ Amazonka.Redshift.DescribeClusters: describeClustersResponse_marker :: Lens' DescribeClustersResponse (Maybe Text)
+ Amazonka.Redshift.DescribeClusters: describeClusters_clusterIdentifier :: Lens' DescribeClusters (Maybe Text)
+ Amazonka.Redshift.DescribeClusters: describeClusters_marker :: Lens' DescribeClusters (Maybe Text)
+ Amazonka.Redshift.DescribeClusters: describeClusters_maxRecords :: Lens' DescribeClusters (Maybe Int)
+ Amazonka.Redshift.DescribeClusters: describeClusters_tagKeys :: Lens' DescribeClusters (Maybe [Text])
+ Amazonka.Redshift.DescribeClusters: describeClusters_tagValues :: Lens' DescribeClusters (Maybe [Text])
+ Amazonka.Redshift.DescribeClusters: instance Amazonka.Data.Headers.ToHeaders Amazonka.Redshift.DescribeClusters.DescribeClusters
+ Amazonka.Redshift.DescribeClusters: instance Amazonka.Data.Path.ToPath Amazonka.Redshift.DescribeClusters.DescribeClusters
+ Amazonka.Redshift.DescribeClusters: instance Amazonka.Data.Query.ToQuery Amazonka.Redshift.DescribeClusters.DescribeClusters
+ Amazonka.Redshift.DescribeClusters: instance Amazonka.Pager.AWSPager Amazonka.Redshift.DescribeClusters.DescribeClusters
+ Amazonka.Redshift.DescribeClusters: instance Amazonka.Types.AWSRequest Amazonka.Redshift.DescribeClusters.DescribeClusters
+ Amazonka.Redshift.DescribeClusters: instance Control.DeepSeq.NFData Amazonka.Redshift.DescribeClusters.DescribeClusters
+ Amazonka.Redshift.DescribeClusters: instance Control.DeepSeq.NFData Amazonka.Redshift.DescribeClusters.DescribeClustersResponse
+ Amazonka.Redshift.DescribeClusters: instance Data.Hashable.Class.Hashable Amazonka.Redshift.DescribeClusters.DescribeClusters
+ Amazonka.Redshift.DescribeClusters: instance GHC.Classes.Eq Amazonka.Redshift.DescribeClusters.DescribeClusters
+ Amazonka.Redshift.DescribeClusters: instance GHC.Classes.Eq Amazonka.Redshift.DescribeClusters.DescribeClustersResponse
+ Amazonka.Redshift.DescribeClusters: instance GHC.Generics.Generic Amazonka.Redshift.DescribeClusters.DescribeClusters
+ Amazonka.Redshift.DescribeClusters: instance GHC.Generics.Generic Amazonka.Redshift.DescribeClusters.DescribeClustersResponse
+ Amazonka.Redshift.DescribeClusters: instance GHC.Read.Read Amazonka.Redshift.DescribeClusters.DescribeClusters
+ Amazonka.Redshift.DescribeClusters: instance GHC.Read.Read Amazonka.Redshift.DescribeClusters.DescribeClustersResponse
+ Amazonka.Redshift.DescribeClusters: instance GHC.Show.Show Amazonka.Redshift.DescribeClusters.DescribeClusters
+ Amazonka.Redshift.DescribeClusters: instance GHC.Show.Show Amazonka.Redshift.DescribeClusters.DescribeClustersResponse
+ Amazonka.Redshift.DescribeClusters: newDescribeClusters :: DescribeClusters
+ Amazonka.Redshift.DescribeClusters: newDescribeClustersResponse :: Int -> DescribeClustersResponse
+ Amazonka.Redshift.DescribeDataShares: DescribeDataShares' :: Maybe Text -> Maybe Text -> Maybe Int -> DescribeDataShares
+ Amazonka.Redshift.DescribeDataShares: DescribeDataSharesResponse' :: Maybe [DataShare] -> Maybe Text -> Int -> DescribeDataSharesResponse
+ Amazonka.Redshift.DescribeDataShares: [$sel:dataShareArn:DescribeDataShares'] :: DescribeDataShares -> Maybe Text
+ Amazonka.Redshift.DescribeDataShares: [$sel:dataShares:DescribeDataSharesResponse'] :: DescribeDataSharesResponse -> Maybe [DataShare]
+ Amazonka.Redshift.DescribeDataShares: [$sel:httpStatus:DescribeDataSharesResponse'] :: DescribeDataSharesResponse -> Int
+ Amazonka.Redshift.DescribeDataShares: [$sel:marker:DescribeDataShares'] :: DescribeDataShares -> Maybe Text
+ Amazonka.Redshift.DescribeDataShares: [$sel:marker:DescribeDataSharesResponse'] :: DescribeDataSharesResponse -> Maybe Text
+ Amazonka.Redshift.DescribeDataShares: [$sel:maxRecords:DescribeDataShares'] :: DescribeDataShares -> Maybe Int
+ Amazonka.Redshift.DescribeDataShares: data DescribeDataShares
+ Amazonka.Redshift.DescribeDataShares: data DescribeDataSharesResponse
+ Amazonka.Redshift.DescribeDataShares: describeDataSharesResponse_dataShares :: Lens' DescribeDataSharesResponse (Maybe [DataShare])
+ Amazonka.Redshift.DescribeDataShares: describeDataSharesResponse_httpStatus :: Lens' DescribeDataSharesResponse Int
+ Amazonka.Redshift.DescribeDataShares: describeDataSharesResponse_marker :: Lens' DescribeDataSharesResponse (Maybe Text)
+ Amazonka.Redshift.DescribeDataShares: describeDataShares_dataShareArn :: Lens' DescribeDataShares (Maybe Text)
+ Amazonka.Redshift.DescribeDataShares: describeDataShares_marker :: Lens' DescribeDataShares (Maybe Text)
+ Amazonka.Redshift.DescribeDataShares: describeDataShares_maxRecords :: Lens' DescribeDataShares (Maybe Int)
+ Amazonka.Redshift.DescribeDataShares: instance Amazonka.Data.Headers.ToHeaders Amazonka.Redshift.DescribeDataShares.DescribeDataShares
+ Amazonka.Redshift.DescribeDataShares: instance Amazonka.Data.Path.ToPath Amazonka.Redshift.DescribeDataShares.DescribeDataShares
+ Amazonka.Redshift.DescribeDataShares: instance Amazonka.Data.Query.ToQuery Amazonka.Redshift.DescribeDataShares.DescribeDataShares
+ Amazonka.Redshift.DescribeDataShares: instance Amazonka.Pager.AWSPager Amazonka.Redshift.DescribeDataShares.DescribeDataShares
+ Amazonka.Redshift.DescribeDataShares: instance Amazonka.Types.AWSRequest Amazonka.Redshift.DescribeDataShares.DescribeDataShares
+ Amazonka.Redshift.DescribeDataShares: instance Control.DeepSeq.NFData Amazonka.Redshift.DescribeDataShares.DescribeDataShares
+ Amazonka.Redshift.DescribeDataShares: instance Control.DeepSeq.NFData Amazonka.Redshift.DescribeDataShares.DescribeDataSharesResponse
+ Amazonka.Redshift.DescribeDataShares: instance Data.Hashable.Class.Hashable Amazonka.Redshift.DescribeDataShares.DescribeDataShares
+ Amazonka.Redshift.DescribeDataShares: instance GHC.Classes.Eq Amazonka.Redshift.DescribeDataShares.DescribeDataShares
+ Amazonka.Redshift.DescribeDataShares: instance GHC.Classes.Eq Amazonka.Redshift.DescribeDataShares.DescribeDataSharesResponse
+ Amazonka.Redshift.DescribeDataShares: instance GHC.Generics.Generic Amazonka.Redshift.DescribeDataShares.DescribeDataShares
+ Amazonka.Redshift.DescribeDataShares: instance GHC.Generics.Generic Amazonka.Redshift.DescribeDataShares.DescribeDataSharesResponse
+ Amazonka.Redshift.DescribeDataShares: instance GHC.Read.Read Amazonka.Redshift.DescribeDataShares.DescribeDataShares
+ Amazonka.Redshift.DescribeDataShares: instance GHC.Read.Read Amazonka.Redshift.DescribeDataShares.DescribeDataSharesResponse
+ Amazonka.Redshift.DescribeDataShares: instance GHC.Show.Show Amazonka.Redshift.DescribeDataShares.DescribeDataShares
+ Amazonka.Redshift.DescribeDataShares: instance GHC.Show.Show Amazonka.Redshift.DescribeDataShares.DescribeDataSharesResponse
+ Amazonka.Redshift.DescribeDataShares: newDescribeDataShares :: DescribeDataShares
+ Amazonka.Redshift.DescribeDataShares: newDescribeDataSharesResponse :: Int -> DescribeDataSharesResponse
+ Amazonka.Redshift.DescribeDataSharesForConsumer: DescribeDataSharesForConsumer' :: Maybe Text -> Maybe Text -> Maybe Int -> Maybe DataShareStatusForConsumer -> DescribeDataSharesForConsumer
+ Amazonka.Redshift.DescribeDataSharesForConsumer: DescribeDataSharesForConsumerResponse' :: Maybe [DataShare] -> Maybe Text -> Int -> DescribeDataSharesForConsumerResponse
+ Amazonka.Redshift.DescribeDataSharesForConsumer: [$sel:consumerArn:DescribeDataSharesForConsumer'] :: DescribeDataSharesForConsumer -> Maybe Text
+ Amazonka.Redshift.DescribeDataSharesForConsumer: [$sel:dataShares:DescribeDataSharesForConsumerResponse'] :: DescribeDataSharesForConsumerResponse -> Maybe [DataShare]
+ Amazonka.Redshift.DescribeDataSharesForConsumer: [$sel:httpStatus:DescribeDataSharesForConsumerResponse'] :: DescribeDataSharesForConsumerResponse -> Int
+ Amazonka.Redshift.DescribeDataSharesForConsumer: [$sel:marker:DescribeDataSharesForConsumer'] :: DescribeDataSharesForConsumer -> Maybe Text
+ Amazonka.Redshift.DescribeDataSharesForConsumer: [$sel:marker:DescribeDataSharesForConsumerResponse'] :: DescribeDataSharesForConsumerResponse -> Maybe Text
+ Amazonka.Redshift.DescribeDataSharesForConsumer: [$sel:maxRecords:DescribeDataSharesForConsumer'] :: DescribeDataSharesForConsumer -> Maybe Int
+ Amazonka.Redshift.DescribeDataSharesForConsumer: [$sel:status:DescribeDataSharesForConsumer'] :: DescribeDataSharesForConsumer -> Maybe DataShareStatusForConsumer
+ Amazonka.Redshift.DescribeDataSharesForConsumer: data DescribeDataSharesForConsumer
+ Amazonka.Redshift.DescribeDataSharesForConsumer: data DescribeDataSharesForConsumerResponse
+ Amazonka.Redshift.DescribeDataSharesForConsumer: describeDataSharesForConsumerResponse_dataShares :: Lens' DescribeDataSharesForConsumerResponse (Maybe [DataShare])
+ Amazonka.Redshift.DescribeDataSharesForConsumer: describeDataSharesForConsumerResponse_httpStatus :: Lens' DescribeDataSharesForConsumerResponse Int
+ Amazonka.Redshift.DescribeDataSharesForConsumer: describeDataSharesForConsumerResponse_marker :: Lens' DescribeDataSharesForConsumerResponse (Maybe Text)
+ Amazonka.Redshift.DescribeDataSharesForConsumer: describeDataSharesForConsumer_consumerArn :: Lens' DescribeDataSharesForConsumer (Maybe Text)
+ Amazonka.Redshift.DescribeDataSharesForConsumer: describeDataSharesForConsumer_marker :: Lens' DescribeDataSharesForConsumer (Maybe Text)
+ Amazonka.Redshift.DescribeDataSharesForConsumer: describeDataSharesForConsumer_maxRecords :: Lens' DescribeDataSharesForConsumer (Maybe Int)
+ Amazonka.Redshift.DescribeDataSharesForConsumer: describeDataSharesForConsumer_status :: Lens' DescribeDataSharesForConsumer (Maybe DataShareStatusForConsumer)
+ Amazonka.Redshift.DescribeDataSharesForConsumer: instance Amazonka.Data.Headers.ToHeaders Amazonka.Redshift.DescribeDataSharesForConsumer.DescribeDataSharesForConsumer
+ Amazonka.Redshift.DescribeDataSharesForConsumer: instance Amazonka.Data.Path.ToPath Amazonka.Redshift.DescribeDataSharesForConsumer.DescribeDataSharesForConsumer
+ Amazonka.Redshift.DescribeDataSharesForConsumer: instance Amazonka.Data.Query.ToQuery Amazonka.Redshift.DescribeDataSharesForConsumer.DescribeDataSharesForConsumer
+ Amazonka.Redshift.DescribeDataSharesForConsumer: instance Amazonka.Pager.AWSPager Amazonka.Redshift.DescribeDataSharesForConsumer.DescribeDataSharesForConsumer
+ Amazonka.Redshift.DescribeDataSharesForConsumer: instance Amazonka.Types.AWSRequest Amazonka.Redshift.DescribeDataSharesForConsumer.DescribeDataSharesForConsumer
+ Amazonka.Redshift.DescribeDataSharesForConsumer: instance Control.DeepSeq.NFData Amazonka.Redshift.DescribeDataSharesForConsumer.DescribeDataSharesForConsumer
+ Amazonka.Redshift.DescribeDataSharesForConsumer: instance Control.DeepSeq.NFData Amazonka.Redshift.DescribeDataSharesForConsumer.DescribeDataSharesForConsumerResponse
+ Amazonka.Redshift.DescribeDataSharesForConsumer: instance Data.Hashable.Class.Hashable Amazonka.Redshift.DescribeDataSharesForConsumer.DescribeDataSharesForConsumer
+ Amazonka.Redshift.DescribeDataSharesForConsumer: instance GHC.Classes.Eq Amazonka.Redshift.DescribeDataSharesForConsumer.DescribeDataSharesForConsumer
+ Amazonka.Redshift.DescribeDataSharesForConsumer: instance GHC.Classes.Eq Amazonka.Redshift.DescribeDataSharesForConsumer.DescribeDataSharesForConsumerResponse
+ Amazonka.Redshift.DescribeDataSharesForConsumer: instance GHC.Generics.Generic Amazonka.Redshift.DescribeDataSharesForConsumer.DescribeDataSharesForConsumer
+ Amazonka.Redshift.DescribeDataSharesForConsumer: instance GHC.Generics.Generic Amazonka.Redshift.DescribeDataSharesForConsumer.DescribeDataSharesForConsumerResponse
+ Amazonka.Redshift.DescribeDataSharesForConsumer: instance GHC.Read.Read Amazonka.Redshift.DescribeDataSharesForConsumer.DescribeDataSharesForConsumer
+ Amazonka.Redshift.DescribeDataSharesForConsumer: instance GHC.Read.Read Amazonka.Redshift.DescribeDataSharesForConsumer.DescribeDataSharesForConsumerResponse
+ Amazonka.Redshift.DescribeDataSharesForConsumer: instance GHC.Show.Show Amazonka.Redshift.DescribeDataSharesForConsumer.DescribeDataSharesForConsumer
+ Amazonka.Redshift.DescribeDataSharesForConsumer: instance GHC.Show.Show Amazonka.Redshift.DescribeDataSharesForConsumer.DescribeDataSharesForConsumerResponse
+ Amazonka.Redshift.DescribeDataSharesForConsumer: newDescribeDataSharesForConsumer :: DescribeDataSharesForConsumer
+ Amazonka.Redshift.DescribeDataSharesForConsumer: newDescribeDataSharesForConsumerResponse :: Int -> DescribeDataSharesForConsumerResponse
+ Amazonka.Redshift.DescribeDataSharesForProducer: DescribeDataSharesForProducer' :: Maybe Text -> Maybe Int -> Maybe Text -> Maybe DataShareStatusForProducer -> DescribeDataSharesForProducer
+ Amazonka.Redshift.DescribeDataSharesForProducer: DescribeDataSharesForProducerResponse' :: Maybe [DataShare] -> Maybe Text -> Int -> DescribeDataSharesForProducerResponse
+ Amazonka.Redshift.DescribeDataSharesForProducer: [$sel:dataShares:DescribeDataSharesForProducerResponse'] :: DescribeDataSharesForProducerResponse -> Maybe [DataShare]
+ Amazonka.Redshift.DescribeDataSharesForProducer: [$sel:httpStatus:DescribeDataSharesForProducerResponse'] :: DescribeDataSharesForProducerResponse -> Int
+ Amazonka.Redshift.DescribeDataSharesForProducer: [$sel:marker:DescribeDataSharesForProducer'] :: DescribeDataSharesForProducer -> Maybe Text
+ Amazonka.Redshift.DescribeDataSharesForProducer: [$sel:marker:DescribeDataSharesForProducerResponse'] :: DescribeDataSharesForProducerResponse -> Maybe Text
+ Amazonka.Redshift.DescribeDataSharesForProducer: [$sel:maxRecords:DescribeDataSharesForProducer'] :: DescribeDataSharesForProducer -> Maybe Int
+ Amazonka.Redshift.DescribeDataSharesForProducer: [$sel:producerArn:DescribeDataSharesForProducer'] :: DescribeDataSharesForProducer -> Maybe Text
+ Amazonka.Redshift.DescribeDataSharesForProducer: [$sel:status:DescribeDataSharesForProducer'] :: DescribeDataSharesForProducer -> Maybe DataShareStatusForProducer
+ Amazonka.Redshift.DescribeDataSharesForProducer: data DescribeDataSharesForProducer
+ Amazonka.Redshift.DescribeDataSharesForProducer: data DescribeDataSharesForProducerResponse
+ Amazonka.Redshift.DescribeDataSharesForProducer: describeDataSharesForProducerResponse_dataShares :: Lens' DescribeDataSharesForProducerResponse (Maybe [DataShare])
+ Amazonka.Redshift.DescribeDataSharesForProducer: describeDataSharesForProducerResponse_httpStatus :: Lens' DescribeDataSharesForProducerResponse Int
+ Amazonka.Redshift.DescribeDataSharesForProducer: describeDataSharesForProducerResponse_marker :: Lens' DescribeDataSharesForProducerResponse (Maybe Text)
+ Amazonka.Redshift.DescribeDataSharesForProducer: describeDataSharesForProducer_marker :: Lens' DescribeDataSharesForProducer (Maybe Text)
+ Amazonka.Redshift.DescribeDataSharesForProducer: describeDataSharesForProducer_maxRecords :: Lens' DescribeDataSharesForProducer (Maybe Int)
+ Amazonka.Redshift.DescribeDataSharesForProducer: describeDataSharesForProducer_producerArn :: Lens' DescribeDataSharesForProducer (Maybe Text)
+ Amazonka.Redshift.DescribeDataSharesForProducer: describeDataSharesForProducer_status :: Lens' DescribeDataSharesForProducer (Maybe DataShareStatusForProducer)
+ Amazonka.Redshift.DescribeDataSharesForProducer: instance Amazonka.Data.Headers.ToHeaders Amazonka.Redshift.DescribeDataSharesForProducer.DescribeDataSharesForProducer
+ Amazonka.Redshift.DescribeDataSharesForProducer: instance Amazonka.Data.Path.ToPath Amazonka.Redshift.DescribeDataSharesForProducer.DescribeDataSharesForProducer
+ Amazonka.Redshift.DescribeDataSharesForProducer: instance Amazonka.Data.Query.ToQuery Amazonka.Redshift.DescribeDataSharesForProducer.DescribeDataSharesForProducer
+ Amazonka.Redshift.DescribeDataSharesForProducer: instance Amazonka.Pager.AWSPager Amazonka.Redshift.DescribeDataSharesForProducer.DescribeDataSharesForProducer
+ Amazonka.Redshift.DescribeDataSharesForProducer: instance Amazonka.Types.AWSRequest Amazonka.Redshift.DescribeDataSharesForProducer.DescribeDataSharesForProducer
+ Amazonka.Redshift.DescribeDataSharesForProducer: instance Control.DeepSeq.NFData Amazonka.Redshift.DescribeDataSharesForProducer.DescribeDataSharesForProducer
+ Amazonka.Redshift.DescribeDataSharesForProducer: instance Control.DeepSeq.NFData Amazonka.Redshift.DescribeDataSharesForProducer.DescribeDataSharesForProducerResponse
+ Amazonka.Redshift.DescribeDataSharesForProducer: instance Data.Hashable.Class.Hashable Amazonka.Redshift.DescribeDataSharesForProducer.DescribeDataSharesForProducer
+ Amazonka.Redshift.DescribeDataSharesForProducer: instance GHC.Classes.Eq Amazonka.Redshift.DescribeDataSharesForProducer.DescribeDataSharesForProducer
+ Amazonka.Redshift.DescribeDataSharesForProducer: instance GHC.Classes.Eq Amazonka.Redshift.DescribeDataSharesForProducer.DescribeDataSharesForProducerResponse
+ Amazonka.Redshift.DescribeDataSharesForProducer: instance GHC.Generics.Generic Amazonka.Redshift.DescribeDataSharesForProducer.DescribeDataSharesForProducer
+ Amazonka.Redshift.DescribeDataSharesForProducer: instance GHC.Generics.Generic Amazonka.Redshift.DescribeDataSharesForProducer.DescribeDataSharesForProducerResponse
+ Amazonka.Redshift.DescribeDataSharesForProducer: instance GHC.Read.Read Amazonka.Redshift.DescribeDataSharesForProducer.DescribeDataSharesForProducer
+ Amazonka.Redshift.DescribeDataSharesForProducer: instance GHC.Read.Read Amazonka.Redshift.DescribeDataSharesForProducer.DescribeDataSharesForProducerResponse
+ Amazonka.Redshift.DescribeDataSharesForProducer: instance GHC.Show.Show Amazonka.Redshift.DescribeDataSharesForProducer.DescribeDataSharesForProducer
+ Amazonka.Redshift.DescribeDataSharesForProducer: instance GHC.Show.Show Amazonka.Redshift.DescribeDataSharesForProducer.DescribeDataSharesForProducerResponse
+ Amazonka.Redshift.DescribeDataSharesForProducer: newDescribeDataSharesForProducer :: DescribeDataSharesForProducer
+ Amazonka.Redshift.DescribeDataSharesForProducer: newDescribeDataSharesForProducerResponse :: Int -> DescribeDataSharesForProducerResponse
+ Amazonka.Redshift.DescribeDefaultClusterParameters: DescribeDefaultClusterParameters' :: Maybe Text -> Maybe Int -> Text -> DescribeDefaultClusterParameters
+ Amazonka.Redshift.DescribeDefaultClusterParameters: DescribeDefaultClusterParametersResponse' :: Int -> DefaultClusterParameters -> DescribeDefaultClusterParametersResponse
+ Amazonka.Redshift.DescribeDefaultClusterParameters: [$sel:defaultClusterParameters:DescribeDefaultClusterParametersResponse'] :: DescribeDefaultClusterParametersResponse -> DefaultClusterParameters
+ Amazonka.Redshift.DescribeDefaultClusterParameters: [$sel:httpStatus:DescribeDefaultClusterParametersResponse'] :: DescribeDefaultClusterParametersResponse -> Int
+ Amazonka.Redshift.DescribeDefaultClusterParameters: [$sel:marker:DescribeDefaultClusterParameters'] :: DescribeDefaultClusterParameters -> Maybe Text
+ Amazonka.Redshift.DescribeDefaultClusterParameters: [$sel:maxRecords:DescribeDefaultClusterParameters'] :: DescribeDefaultClusterParameters -> Maybe Int
+ Amazonka.Redshift.DescribeDefaultClusterParameters: [$sel:parameterGroupFamily:DescribeDefaultClusterParameters'] :: DescribeDefaultClusterParameters -> Text
+ Amazonka.Redshift.DescribeDefaultClusterParameters: data DescribeDefaultClusterParameters
+ Amazonka.Redshift.DescribeDefaultClusterParameters: data DescribeDefaultClusterParametersResponse
+ Amazonka.Redshift.DescribeDefaultClusterParameters: describeDefaultClusterParametersResponse_defaultClusterParameters :: Lens' DescribeDefaultClusterParametersResponse DefaultClusterParameters
+ Amazonka.Redshift.DescribeDefaultClusterParameters: describeDefaultClusterParametersResponse_httpStatus :: Lens' DescribeDefaultClusterParametersResponse Int
+ Amazonka.Redshift.DescribeDefaultClusterParameters: describeDefaultClusterParameters_marker :: Lens' DescribeDefaultClusterParameters (Maybe Text)
+ Amazonka.Redshift.DescribeDefaultClusterParameters: describeDefaultClusterParameters_maxRecords :: Lens' DescribeDefaultClusterParameters (Maybe Int)
+ Amazonka.Redshift.DescribeDefaultClusterParameters: describeDefaultClusterParameters_parameterGroupFamily :: Lens' DescribeDefaultClusterParameters Text
+ Amazonka.Redshift.DescribeDefaultClusterParameters: instance Amazonka.Data.Headers.ToHeaders Amazonka.Redshift.DescribeDefaultClusterParameters.DescribeDefaultClusterParameters
+ Amazonka.Redshift.DescribeDefaultClusterParameters: instance Amazonka.Data.Path.ToPath Amazonka.Redshift.DescribeDefaultClusterParameters.DescribeDefaultClusterParameters
+ Amazonka.Redshift.DescribeDefaultClusterParameters: instance Amazonka.Data.Query.ToQuery Amazonka.Redshift.DescribeDefaultClusterParameters.DescribeDefaultClusterParameters
+ Amazonka.Redshift.DescribeDefaultClusterParameters: instance Amazonka.Pager.AWSPager Amazonka.Redshift.DescribeDefaultClusterParameters.DescribeDefaultClusterParameters
+ Amazonka.Redshift.DescribeDefaultClusterParameters: instance Amazonka.Types.AWSRequest Amazonka.Redshift.DescribeDefaultClusterParameters.DescribeDefaultClusterParameters
+ Amazonka.Redshift.DescribeDefaultClusterParameters: instance Control.DeepSeq.NFData Amazonka.Redshift.DescribeDefaultClusterParameters.DescribeDefaultClusterParameters
+ Amazonka.Redshift.DescribeDefaultClusterParameters: instance Control.DeepSeq.NFData Amazonka.Redshift.DescribeDefaultClusterParameters.DescribeDefaultClusterParametersResponse
+ Amazonka.Redshift.DescribeDefaultClusterParameters: instance Data.Hashable.Class.Hashable Amazonka.Redshift.DescribeDefaultClusterParameters.DescribeDefaultClusterParameters
+ Amazonka.Redshift.DescribeDefaultClusterParameters: instance GHC.Classes.Eq Amazonka.Redshift.DescribeDefaultClusterParameters.DescribeDefaultClusterParameters
+ Amazonka.Redshift.DescribeDefaultClusterParameters: instance GHC.Classes.Eq Amazonka.Redshift.DescribeDefaultClusterParameters.DescribeDefaultClusterParametersResponse
+ Amazonka.Redshift.DescribeDefaultClusterParameters: instance GHC.Generics.Generic Amazonka.Redshift.DescribeDefaultClusterParameters.DescribeDefaultClusterParameters
+ Amazonka.Redshift.DescribeDefaultClusterParameters: instance GHC.Generics.Generic Amazonka.Redshift.DescribeDefaultClusterParameters.DescribeDefaultClusterParametersResponse
+ Amazonka.Redshift.DescribeDefaultClusterParameters: instance GHC.Read.Read Amazonka.Redshift.DescribeDefaultClusterParameters.DescribeDefaultClusterParameters
+ Amazonka.Redshift.DescribeDefaultClusterParameters: instance GHC.Read.Read Amazonka.Redshift.DescribeDefaultClusterParameters.DescribeDefaultClusterParametersResponse
+ Amazonka.Redshift.DescribeDefaultClusterParameters: instance GHC.Show.Show Amazonka.Redshift.DescribeDefaultClusterParameters.DescribeDefaultClusterParameters
+ Amazonka.Redshift.DescribeDefaultClusterParameters: instance GHC.Show.Show Amazonka.Redshift.DescribeDefaultClusterParameters.DescribeDefaultClusterParametersResponse
+ Amazonka.Redshift.DescribeDefaultClusterParameters: newDescribeDefaultClusterParameters :: Text -> DescribeDefaultClusterParameters
+ Amazonka.Redshift.DescribeDefaultClusterParameters: newDescribeDefaultClusterParametersResponse :: Int -> DefaultClusterParameters -> DescribeDefaultClusterParametersResponse
+ Amazonka.Redshift.DescribeEndpointAccess: DescribeEndpointAccess' :: Maybe Text -> Maybe Text -> Maybe Text -> Maybe Int -> Maybe Text -> Maybe Text -> DescribeEndpointAccess
+ Amazonka.Redshift.DescribeEndpointAccess: DescribeEndpointAccessResponse' :: Maybe [EndpointAccess] -> Maybe Text -> Int -> DescribeEndpointAccessResponse
+ Amazonka.Redshift.DescribeEndpointAccess: [$sel:clusterIdentifier:DescribeEndpointAccess'] :: DescribeEndpointAccess -> Maybe Text
+ Amazonka.Redshift.DescribeEndpointAccess: [$sel:endpointAccessList:DescribeEndpointAccessResponse'] :: DescribeEndpointAccessResponse -> Maybe [EndpointAccess]
+ Amazonka.Redshift.DescribeEndpointAccess: [$sel:endpointName:DescribeEndpointAccess'] :: DescribeEndpointAccess -> Maybe Text
+ Amazonka.Redshift.DescribeEndpointAccess: [$sel:httpStatus:DescribeEndpointAccessResponse'] :: DescribeEndpointAccessResponse -> Int
+ Amazonka.Redshift.DescribeEndpointAccess: [$sel:marker:DescribeEndpointAccess'] :: DescribeEndpointAccess -> Maybe Text
+ Amazonka.Redshift.DescribeEndpointAccess: [$sel:marker:DescribeEndpointAccessResponse'] :: DescribeEndpointAccessResponse -> Maybe Text
+ Amazonka.Redshift.DescribeEndpointAccess: [$sel:maxRecords:DescribeEndpointAccess'] :: DescribeEndpointAccess -> Maybe Int
+ Amazonka.Redshift.DescribeEndpointAccess: [$sel:resourceOwner:DescribeEndpointAccess'] :: DescribeEndpointAccess -> Maybe Text
+ Amazonka.Redshift.DescribeEndpointAccess: [$sel:vpcId:DescribeEndpointAccess'] :: DescribeEndpointAccess -> Maybe Text
+ Amazonka.Redshift.DescribeEndpointAccess: data DescribeEndpointAccess
+ Amazonka.Redshift.DescribeEndpointAccess: data DescribeEndpointAccessResponse
+ Amazonka.Redshift.DescribeEndpointAccess: describeEndpointAccessResponse_endpointAccessList :: Lens' DescribeEndpointAccessResponse (Maybe [EndpointAccess])
+ Amazonka.Redshift.DescribeEndpointAccess: describeEndpointAccessResponse_httpStatus :: Lens' DescribeEndpointAccessResponse Int
+ Amazonka.Redshift.DescribeEndpointAccess: describeEndpointAccessResponse_marker :: Lens' DescribeEndpointAccessResponse (Maybe Text)
+ Amazonka.Redshift.DescribeEndpointAccess: describeEndpointAccess_clusterIdentifier :: Lens' DescribeEndpointAccess (Maybe Text)
+ Amazonka.Redshift.DescribeEndpointAccess: describeEndpointAccess_endpointName :: Lens' DescribeEndpointAccess (Maybe Text)
+ Amazonka.Redshift.DescribeEndpointAccess: describeEndpointAccess_marker :: Lens' DescribeEndpointAccess (Maybe Text)
+ Amazonka.Redshift.DescribeEndpointAccess: describeEndpointAccess_maxRecords :: Lens' DescribeEndpointAccess (Maybe Int)
+ Amazonka.Redshift.DescribeEndpointAccess: describeEndpointAccess_resourceOwner :: Lens' DescribeEndpointAccess (Maybe Text)
+ Amazonka.Redshift.DescribeEndpointAccess: describeEndpointAccess_vpcId :: Lens' DescribeEndpointAccess (Maybe Text)
+ Amazonka.Redshift.DescribeEndpointAccess: instance Amazonka.Data.Headers.ToHeaders Amazonka.Redshift.DescribeEndpointAccess.DescribeEndpointAccess
+ Amazonka.Redshift.DescribeEndpointAccess: instance Amazonka.Data.Path.ToPath Amazonka.Redshift.DescribeEndpointAccess.DescribeEndpointAccess
+ Amazonka.Redshift.DescribeEndpointAccess: instance Amazonka.Data.Query.ToQuery Amazonka.Redshift.DescribeEndpointAccess.DescribeEndpointAccess
+ Amazonka.Redshift.DescribeEndpointAccess: instance Amazonka.Pager.AWSPager Amazonka.Redshift.DescribeEndpointAccess.DescribeEndpointAccess
+ Amazonka.Redshift.DescribeEndpointAccess: instance Amazonka.Types.AWSRequest Amazonka.Redshift.DescribeEndpointAccess.DescribeEndpointAccess
+ Amazonka.Redshift.DescribeEndpointAccess: instance Control.DeepSeq.NFData Amazonka.Redshift.DescribeEndpointAccess.DescribeEndpointAccess
+ Amazonka.Redshift.DescribeEndpointAccess: instance Control.DeepSeq.NFData Amazonka.Redshift.DescribeEndpointAccess.DescribeEndpointAccessResponse
+ Amazonka.Redshift.DescribeEndpointAccess: instance Data.Hashable.Class.Hashable Amazonka.Redshift.DescribeEndpointAccess.DescribeEndpointAccess
+ Amazonka.Redshift.DescribeEndpointAccess: instance GHC.Classes.Eq Amazonka.Redshift.DescribeEndpointAccess.DescribeEndpointAccess
+ Amazonka.Redshift.DescribeEndpointAccess: instance GHC.Classes.Eq Amazonka.Redshift.DescribeEndpointAccess.DescribeEndpointAccessResponse
+ Amazonka.Redshift.DescribeEndpointAccess: instance GHC.Generics.Generic Amazonka.Redshift.DescribeEndpointAccess.DescribeEndpointAccess
+ Amazonka.Redshift.DescribeEndpointAccess: instance GHC.Generics.Generic Amazonka.Redshift.DescribeEndpointAccess.DescribeEndpointAccessResponse
+ Amazonka.Redshift.DescribeEndpointAccess: instance GHC.Read.Read Amazonka.Redshift.DescribeEndpointAccess.DescribeEndpointAccess
+ Amazonka.Redshift.DescribeEndpointAccess: instance GHC.Read.Read Amazonka.Redshift.DescribeEndpointAccess.DescribeEndpointAccessResponse
+ Amazonka.Redshift.DescribeEndpointAccess: instance GHC.Show.Show Amazonka.Redshift.DescribeEndpointAccess.DescribeEndpointAccess
+ Amazonka.Redshift.DescribeEndpointAccess: instance GHC.Show.Show Amazonka.Redshift.DescribeEndpointAccess.DescribeEndpointAccessResponse
+ Amazonka.Redshift.DescribeEndpointAccess: newDescribeEndpointAccess :: DescribeEndpointAccess
+ Amazonka.Redshift.DescribeEndpointAccess: newDescribeEndpointAccessResponse :: Int -> DescribeEndpointAccessResponse
+ Amazonka.Redshift.DescribeEndpointAuthorization: DescribeEndpointAuthorization' :: Maybe Text -> Maybe Text -> Maybe Bool -> Maybe Text -> Maybe Int -> DescribeEndpointAuthorization
+ Amazonka.Redshift.DescribeEndpointAuthorization: DescribeEndpointAuthorizationResponse' :: Maybe [EndpointAuthorization] -> Maybe Text -> Int -> DescribeEndpointAuthorizationResponse
+ Amazonka.Redshift.DescribeEndpointAuthorization: [$sel:account:DescribeEndpointAuthorization'] :: DescribeEndpointAuthorization -> Maybe Text
+ Amazonka.Redshift.DescribeEndpointAuthorization: [$sel:clusterIdentifier:DescribeEndpointAuthorization'] :: DescribeEndpointAuthorization -> Maybe Text
+ Amazonka.Redshift.DescribeEndpointAuthorization: [$sel:endpointAuthorizationList:DescribeEndpointAuthorizationResponse'] :: DescribeEndpointAuthorizationResponse -> Maybe [EndpointAuthorization]
+ Amazonka.Redshift.DescribeEndpointAuthorization: [$sel:grantee:DescribeEndpointAuthorization'] :: DescribeEndpointAuthorization -> Maybe Bool
+ Amazonka.Redshift.DescribeEndpointAuthorization: [$sel:httpStatus:DescribeEndpointAuthorizationResponse'] :: DescribeEndpointAuthorizationResponse -> Int
+ Amazonka.Redshift.DescribeEndpointAuthorization: [$sel:marker:DescribeEndpointAuthorization'] :: DescribeEndpointAuthorization -> Maybe Text
+ Amazonka.Redshift.DescribeEndpointAuthorization: [$sel:marker:DescribeEndpointAuthorizationResponse'] :: DescribeEndpointAuthorizationResponse -> Maybe Text
+ Amazonka.Redshift.DescribeEndpointAuthorization: [$sel:maxRecords:DescribeEndpointAuthorization'] :: DescribeEndpointAuthorization -> Maybe Int
+ Amazonka.Redshift.DescribeEndpointAuthorization: data DescribeEndpointAuthorization
+ Amazonka.Redshift.DescribeEndpointAuthorization: data DescribeEndpointAuthorizationResponse
+ Amazonka.Redshift.DescribeEndpointAuthorization: describeEndpointAuthorizationResponse_endpointAuthorizationList :: Lens' DescribeEndpointAuthorizationResponse (Maybe [EndpointAuthorization])
+ Amazonka.Redshift.DescribeEndpointAuthorization: describeEndpointAuthorizationResponse_httpStatus :: Lens' DescribeEndpointAuthorizationResponse Int
+ Amazonka.Redshift.DescribeEndpointAuthorization: describeEndpointAuthorizationResponse_marker :: Lens' DescribeEndpointAuthorizationResponse (Maybe Text)
+ Amazonka.Redshift.DescribeEndpointAuthorization: describeEndpointAuthorization_account :: Lens' DescribeEndpointAuthorization (Maybe Text)
+ Amazonka.Redshift.DescribeEndpointAuthorization: describeEndpointAuthorization_clusterIdentifier :: Lens' DescribeEndpointAuthorization (Maybe Text)
+ Amazonka.Redshift.DescribeEndpointAuthorization: describeEndpointAuthorization_grantee :: Lens' DescribeEndpointAuthorization (Maybe Bool)
+ Amazonka.Redshift.DescribeEndpointAuthorization: describeEndpointAuthorization_marker :: Lens' DescribeEndpointAuthorization (Maybe Text)
+ Amazonka.Redshift.DescribeEndpointAuthorization: describeEndpointAuthorization_maxRecords :: Lens' DescribeEndpointAuthorization (Maybe Int)
+ Amazonka.Redshift.DescribeEndpointAuthorization: instance Amazonka.Data.Headers.ToHeaders Amazonka.Redshift.DescribeEndpointAuthorization.DescribeEndpointAuthorization
+ Amazonka.Redshift.DescribeEndpointAuthorization: instance Amazonka.Data.Path.ToPath Amazonka.Redshift.DescribeEndpointAuthorization.DescribeEndpointAuthorization
+ Amazonka.Redshift.DescribeEndpointAuthorization: instance Amazonka.Data.Query.ToQuery Amazonka.Redshift.DescribeEndpointAuthorization.DescribeEndpointAuthorization
+ Amazonka.Redshift.DescribeEndpointAuthorization: instance Amazonka.Pager.AWSPager Amazonka.Redshift.DescribeEndpointAuthorization.DescribeEndpointAuthorization
+ Amazonka.Redshift.DescribeEndpointAuthorization: instance Amazonka.Types.AWSRequest Amazonka.Redshift.DescribeEndpointAuthorization.DescribeEndpointAuthorization
+ Amazonka.Redshift.DescribeEndpointAuthorization: instance Control.DeepSeq.NFData Amazonka.Redshift.DescribeEndpointAuthorization.DescribeEndpointAuthorization
+ Amazonka.Redshift.DescribeEndpointAuthorization: instance Control.DeepSeq.NFData Amazonka.Redshift.DescribeEndpointAuthorization.DescribeEndpointAuthorizationResponse
+ Amazonka.Redshift.DescribeEndpointAuthorization: instance Data.Hashable.Class.Hashable Amazonka.Redshift.DescribeEndpointAuthorization.DescribeEndpointAuthorization
+ Amazonka.Redshift.DescribeEndpointAuthorization: instance GHC.Classes.Eq Amazonka.Redshift.DescribeEndpointAuthorization.DescribeEndpointAuthorization
+ Amazonka.Redshift.DescribeEndpointAuthorization: instance GHC.Classes.Eq Amazonka.Redshift.DescribeEndpointAuthorization.DescribeEndpointAuthorizationResponse
+ Amazonka.Redshift.DescribeEndpointAuthorization: instance GHC.Generics.Generic Amazonka.Redshift.DescribeEndpointAuthorization.DescribeEndpointAuthorization
+ Amazonka.Redshift.DescribeEndpointAuthorization: instance GHC.Generics.Generic Amazonka.Redshift.DescribeEndpointAuthorization.DescribeEndpointAuthorizationResponse
+ Amazonka.Redshift.DescribeEndpointAuthorization: instance GHC.Read.Read Amazonka.Redshift.DescribeEndpointAuthorization.DescribeEndpointAuthorization
+ Amazonka.Redshift.DescribeEndpointAuthorization: instance GHC.Read.Read Amazonka.Redshift.DescribeEndpointAuthorization.DescribeEndpointAuthorizationResponse
+ Amazonka.Redshift.DescribeEndpointAuthorization: instance GHC.Show.Show Amazonka.Redshift.DescribeEndpointAuthorization.DescribeEndpointAuthorization
+ Amazonka.Redshift.DescribeEndpointAuthorization: instance GHC.Show.Show Amazonka.Redshift.DescribeEndpointAuthorization.DescribeEndpointAuthorizationResponse
+ Amazonka.Redshift.DescribeEndpointAuthorization: newDescribeEndpointAuthorization :: DescribeEndpointAuthorization
+ Amazonka.Redshift.DescribeEndpointAuthorization: newDescribeEndpointAuthorizationResponse :: Int -> DescribeEndpointAuthorizationResponse
+ Amazonka.Redshift.DescribeEventCategories: DescribeEventCategories' :: Maybe Text -> DescribeEventCategories
+ Amazonka.Redshift.DescribeEventCategories: DescribeEventCategoriesResponse' :: Maybe [EventCategoriesMap] -> Int -> DescribeEventCategoriesResponse
+ Amazonka.Redshift.DescribeEventCategories: [$sel:eventCategoriesMapList:DescribeEventCategoriesResponse'] :: DescribeEventCategoriesResponse -> Maybe [EventCategoriesMap]
+ Amazonka.Redshift.DescribeEventCategories: [$sel:httpStatus:DescribeEventCategoriesResponse'] :: DescribeEventCategoriesResponse -> Int
+ Amazonka.Redshift.DescribeEventCategories: [$sel:sourceType:DescribeEventCategories'] :: DescribeEventCategories -> Maybe Text
+ Amazonka.Redshift.DescribeEventCategories: data DescribeEventCategories
+ Amazonka.Redshift.DescribeEventCategories: data DescribeEventCategoriesResponse
+ Amazonka.Redshift.DescribeEventCategories: describeEventCategoriesResponse_eventCategoriesMapList :: Lens' DescribeEventCategoriesResponse (Maybe [EventCategoriesMap])
+ Amazonka.Redshift.DescribeEventCategories: describeEventCategoriesResponse_httpStatus :: Lens' DescribeEventCategoriesResponse Int
+ Amazonka.Redshift.DescribeEventCategories: describeEventCategories_sourceType :: Lens' DescribeEventCategories (Maybe Text)
+ Amazonka.Redshift.DescribeEventCategories: instance Amazonka.Data.Headers.ToHeaders Amazonka.Redshift.DescribeEventCategories.DescribeEventCategories
+ Amazonka.Redshift.DescribeEventCategories: instance Amazonka.Data.Path.ToPath Amazonka.Redshift.DescribeEventCategories.DescribeEventCategories
+ Amazonka.Redshift.DescribeEventCategories: instance Amazonka.Data.Query.ToQuery Amazonka.Redshift.DescribeEventCategories.DescribeEventCategories
+ Amazonka.Redshift.DescribeEventCategories: instance Amazonka.Types.AWSRequest Amazonka.Redshift.DescribeEventCategories.DescribeEventCategories
+ Amazonka.Redshift.DescribeEventCategories: instance Control.DeepSeq.NFData Amazonka.Redshift.DescribeEventCategories.DescribeEventCategories
+ Amazonka.Redshift.DescribeEventCategories: instance Control.DeepSeq.NFData Amazonka.Redshift.DescribeEventCategories.DescribeEventCategoriesResponse
+ Amazonka.Redshift.DescribeEventCategories: instance Data.Hashable.Class.Hashable Amazonka.Redshift.DescribeEventCategories.DescribeEventCategories
+ Amazonka.Redshift.DescribeEventCategories: instance GHC.Classes.Eq Amazonka.Redshift.DescribeEventCategories.DescribeEventCategories
+ Amazonka.Redshift.DescribeEventCategories: instance GHC.Classes.Eq Amazonka.Redshift.DescribeEventCategories.DescribeEventCategoriesResponse
+ Amazonka.Redshift.DescribeEventCategories: instance GHC.Generics.Generic Amazonka.Redshift.DescribeEventCategories.DescribeEventCategories
+ Amazonka.Redshift.DescribeEventCategories: instance GHC.Generics.Generic Amazonka.Redshift.DescribeEventCategories.DescribeEventCategoriesResponse
+ Amazonka.Redshift.DescribeEventCategories: instance GHC.Read.Read Amazonka.Redshift.DescribeEventCategories.DescribeEventCategories
+ Amazonka.Redshift.DescribeEventCategories: instance GHC.Read.Read Amazonka.Redshift.DescribeEventCategories.DescribeEventCategoriesResponse
+ Amazonka.Redshift.DescribeEventCategories: instance GHC.Show.Show Amazonka.Redshift.DescribeEventCategories.DescribeEventCategories
+ Amazonka.Redshift.DescribeEventCategories: instance GHC.Show.Show Amazonka.Redshift.DescribeEventCategories.DescribeEventCategoriesResponse
+ Amazonka.Redshift.DescribeEventCategories: newDescribeEventCategories :: DescribeEventCategories
+ Amazonka.Redshift.DescribeEventCategories: newDescribeEventCategoriesResponse :: Int -> DescribeEventCategoriesResponse
+ Amazonka.Redshift.DescribeEventSubscriptions: DescribeEventSubscriptions' :: Maybe Text -> Maybe Int -> Maybe Text -> Maybe [Text] -> Maybe [Text] -> DescribeEventSubscriptions
+ Amazonka.Redshift.DescribeEventSubscriptions: DescribeEventSubscriptionsResponse' :: Maybe [EventSubscription] -> Maybe Text -> Int -> DescribeEventSubscriptionsResponse
+ Amazonka.Redshift.DescribeEventSubscriptions: [$sel:eventSubscriptionsList:DescribeEventSubscriptionsResponse'] :: DescribeEventSubscriptionsResponse -> Maybe [EventSubscription]
+ Amazonka.Redshift.DescribeEventSubscriptions: [$sel:httpStatus:DescribeEventSubscriptionsResponse'] :: DescribeEventSubscriptionsResponse -> Int
+ Amazonka.Redshift.DescribeEventSubscriptions: [$sel:marker:DescribeEventSubscriptions'] :: DescribeEventSubscriptions -> Maybe Text
+ Amazonka.Redshift.DescribeEventSubscriptions: [$sel:marker:DescribeEventSubscriptionsResponse'] :: DescribeEventSubscriptionsResponse -> Maybe Text
+ Amazonka.Redshift.DescribeEventSubscriptions: [$sel:maxRecords:DescribeEventSubscriptions'] :: DescribeEventSubscriptions -> Maybe Int
+ Amazonka.Redshift.DescribeEventSubscriptions: [$sel:subscriptionName:DescribeEventSubscriptions'] :: DescribeEventSubscriptions -> Maybe Text
+ Amazonka.Redshift.DescribeEventSubscriptions: [$sel:tagKeys:DescribeEventSubscriptions'] :: DescribeEventSubscriptions -> Maybe [Text]
+ Amazonka.Redshift.DescribeEventSubscriptions: [$sel:tagValues:DescribeEventSubscriptions'] :: DescribeEventSubscriptions -> Maybe [Text]
+ Amazonka.Redshift.DescribeEventSubscriptions: data DescribeEventSubscriptions
+ Amazonka.Redshift.DescribeEventSubscriptions: data DescribeEventSubscriptionsResponse
+ Amazonka.Redshift.DescribeEventSubscriptions: describeEventSubscriptionsResponse_eventSubscriptionsList :: Lens' DescribeEventSubscriptionsResponse (Maybe [EventSubscription])
+ Amazonka.Redshift.DescribeEventSubscriptions: describeEventSubscriptionsResponse_httpStatus :: Lens' DescribeEventSubscriptionsResponse Int
+ Amazonka.Redshift.DescribeEventSubscriptions: describeEventSubscriptionsResponse_marker :: Lens' DescribeEventSubscriptionsResponse (Maybe Text)
+ Amazonka.Redshift.DescribeEventSubscriptions: describeEventSubscriptions_marker :: Lens' DescribeEventSubscriptions (Maybe Text)
+ Amazonka.Redshift.DescribeEventSubscriptions: describeEventSubscriptions_maxRecords :: Lens' DescribeEventSubscriptions (Maybe Int)
+ Amazonka.Redshift.DescribeEventSubscriptions: describeEventSubscriptions_subscriptionName :: Lens' DescribeEventSubscriptions (Maybe Text)
+ Amazonka.Redshift.DescribeEventSubscriptions: describeEventSubscriptions_tagKeys :: Lens' DescribeEventSubscriptions (Maybe [Text])
+ Amazonka.Redshift.DescribeEventSubscriptions: describeEventSubscriptions_tagValues :: Lens' DescribeEventSubscriptions (Maybe [Text])
+ Amazonka.Redshift.DescribeEventSubscriptions: instance Amazonka.Data.Headers.ToHeaders Amazonka.Redshift.DescribeEventSubscriptions.DescribeEventSubscriptions
+ Amazonka.Redshift.DescribeEventSubscriptions: instance Amazonka.Data.Path.ToPath Amazonka.Redshift.DescribeEventSubscriptions.DescribeEventSubscriptions
+ Amazonka.Redshift.DescribeEventSubscriptions: instance Amazonka.Data.Query.ToQuery Amazonka.Redshift.DescribeEventSubscriptions.DescribeEventSubscriptions
+ Amazonka.Redshift.DescribeEventSubscriptions: instance Amazonka.Pager.AWSPager Amazonka.Redshift.DescribeEventSubscriptions.DescribeEventSubscriptions
+ Amazonka.Redshift.DescribeEventSubscriptions: instance Amazonka.Types.AWSRequest Amazonka.Redshift.DescribeEventSubscriptions.DescribeEventSubscriptions
+ Amazonka.Redshift.DescribeEventSubscriptions: instance Control.DeepSeq.NFData Amazonka.Redshift.DescribeEventSubscriptions.DescribeEventSubscriptions
+ Amazonka.Redshift.DescribeEventSubscriptions: instance Control.DeepSeq.NFData Amazonka.Redshift.DescribeEventSubscriptions.DescribeEventSubscriptionsResponse
+ Amazonka.Redshift.DescribeEventSubscriptions: instance Data.Hashable.Class.Hashable Amazonka.Redshift.DescribeEventSubscriptions.DescribeEventSubscriptions
+ Amazonka.Redshift.DescribeEventSubscriptions: instance GHC.Classes.Eq Amazonka.Redshift.DescribeEventSubscriptions.DescribeEventSubscriptions
+ Amazonka.Redshift.DescribeEventSubscriptions: instance GHC.Classes.Eq Amazonka.Redshift.DescribeEventSubscriptions.DescribeEventSubscriptionsResponse
+ Amazonka.Redshift.DescribeEventSubscriptions: instance GHC.Generics.Generic Amazonka.Redshift.DescribeEventSubscriptions.DescribeEventSubscriptions
+ Amazonka.Redshift.DescribeEventSubscriptions: instance GHC.Generics.Generic Amazonka.Redshift.DescribeEventSubscriptions.DescribeEventSubscriptionsResponse
+ Amazonka.Redshift.DescribeEventSubscriptions: instance GHC.Read.Read Amazonka.Redshift.DescribeEventSubscriptions.DescribeEventSubscriptions
+ Amazonka.Redshift.DescribeEventSubscriptions: instance GHC.Read.Read Amazonka.Redshift.DescribeEventSubscriptions.DescribeEventSubscriptionsResponse
+ Amazonka.Redshift.DescribeEventSubscriptions: instance GHC.Show.Show Amazonka.Redshift.DescribeEventSubscriptions.DescribeEventSubscriptions
+ Amazonka.Redshift.DescribeEventSubscriptions: instance GHC.Show.Show Amazonka.Redshift.DescribeEventSubscriptions.DescribeEventSubscriptionsResponse
+ Amazonka.Redshift.DescribeEventSubscriptions: newDescribeEventSubscriptions :: DescribeEventSubscriptions
+ Amazonka.Redshift.DescribeEventSubscriptions: newDescribeEventSubscriptionsResponse :: Int -> DescribeEventSubscriptionsResponse
+ Amazonka.Redshift.DescribeEvents: DescribeEvents' :: Maybe Int -> Maybe ISO8601 -> Maybe Text -> Maybe Int -> Maybe Text -> Maybe SourceType -> Maybe ISO8601 -> DescribeEvents
+ Amazonka.Redshift.DescribeEvents: DescribeEventsResponse' :: Maybe [Event] -> Maybe Text -> Int -> DescribeEventsResponse
+ Amazonka.Redshift.DescribeEvents: [$sel:duration:DescribeEvents'] :: DescribeEvents -> Maybe Int
+ Amazonka.Redshift.DescribeEvents: [$sel:endTime:DescribeEvents'] :: DescribeEvents -> Maybe ISO8601
+ Amazonka.Redshift.DescribeEvents: [$sel:events:DescribeEventsResponse'] :: DescribeEventsResponse -> Maybe [Event]
+ Amazonka.Redshift.DescribeEvents: [$sel:httpStatus:DescribeEventsResponse'] :: DescribeEventsResponse -> Int
+ Amazonka.Redshift.DescribeEvents: [$sel:marker:DescribeEvents'] :: DescribeEvents -> Maybe Text
+ Amazonka.Redshift.DescribeEvents: [$sel:marker:DescribeEventsResponse'] :: DescribeEventsResponse -> Maybe Text
+ Amazonka.Redshift.DescribeEvents: [$sel:maxRecords:DescribeEvents'] :: DescribeEvents -> Maybe Int
+ Amazonka.Redshift.DescribeEvents: [$sel:sourceIdentifier:DescribeEvents'] :: DescribeEvents -> Maybe Text
+ Amazonka.Redshift.DescribeEvents: [$sel:sourceType:DescribeEvents'] :: DescribeEvents -> Maybe SourceType
+ Amazonka.Redshift.DescribeEvents: [$sel:startTime:DescribeEvents'] :: DescribeEvents -> Maybe ISO8601
+ Amazonka.Redshift.DescribeEvents: data DescribeEvents
+ Amazonka.Redshift.DescribeEvents: data DescribeEventsResponse
+ Amazonka.Redshift.DescribeEvents: describeEventsResponse_events :: Lens' DescribeEventsResponse (Maybe [Event])
+ Amazonka.Redshift.DescribeEvents: describeEventsResponse_httpStatus :: Lens' DescribeEventsResponse Int
+ Amazonka.Redshift.DescribeEvents: describeEventsResponse_marker :: Lens' DescribeEventsResponse (Maybe Text)
+ Amazonka.Redshift.DescribeEvents: describeEvents_duration :: Lens' DescribeEvents (Maybe Int)
+ Amazonka.Redshift.DescribeEvents: describeEvents_endTime :: Lens' DescribeEvents (Maybe UTCTime)
+ Amazonka.Redshift.DescribeEvents: describeEvents_marker :: Lens' DescribeEvents (Maybe Text)
+ Amazonka.Redshift.DescribeEvents: describeEvents_maxRecords :: Lens' DescribeEvents (Maybe Int)
+ Amazonka.Redshift.DescribeEvents: describeEvents_sourceIdentifier :: Lens' DescribeEvents (Maybe Text)
+ Amazonka.Redshift.DescribeEvents: describeEvents_sourceType :: Lens' DescribeEvents (Maybe SourceType)
+ Amazonka.Redshift.DescribeEvents: describeEvents_startTime :: Lens' DescribeEvents (Maybe UTCTime)
+ Amazonka.Redshift.DescribeEvents: instance Amazonka.Data.Headers.ToHeaders Amazonka.Redshift.DescribeEvents.DescribeEvents
+ Amazonka.Redshift.DescribeEvents: instance Amazonka.Data.Path.ToPath Amazonka.Redshift.DescribeEvents.DescribeEvents
+ Amazonka.Redshift.DescribeEvents: instance Amazonka.Data.Query.ToQuery Amazonka.Redshift.DescribeEvents.DescribeEvents
+ Amazonka.Redshift.DescribeEvents: instance Amazonka.Pager.AWSPager Amazonka.Redshift.DescribeEvents.DescribeEvents
+ Amazonka.Redshift.DescribeEvents: instance Amazonka.Types.AWSRequest Amazonka.Redshift.DescribeEvents.DescribeEvents
+ Amazonka.Redshift.DescribeEvents: instance Control.DeepSeq.NFData Amazonka.Redshift.DescribeEvents.DescribeEvents
+ Amazonka.Redshift.DescribeEvents: instance Control.DeepSeq.NFData Amazonka.Redshift.DescribeEvents.DescribeEventsResponse
+ Amazonka.Redshift.DescribeEvents: instance Data.Hashable.Class.Hashable Amazonka.Redshift.DescribeEvents.DescribeEvents
+ Amazonka.Redshift.DescribeEvents: instance GHC.Classes.Eq Amazonka.Redshift.DescribeEvents.DescribeEvents
+ Amazonka.Redshift.DescribeEvents: instance GHC.Classes.Eq Amazonka.Redshift.DescribeEvents.DescribeEventsResponse
+ Amazonka.Redshift.DescribeEvents: instance GHC.Generics.Generic Amazonka.Redshift.DescribeEvents.DescribeEvents
+ Amazonka.Redshift.DescribeEvents: instance GHC.Generics.Generic Amazonka.Redshift.DescribeEvents.DescribeEventsResponse
+ Amazonka.Redshift.DescribeEvents: instance GHC.Read.Read Amazonka.Redshift.DescribeEvents.DescribeEvents
+ Amazonka.Redshift.DescribeEvents: instance GHC.Read.Read Amazonka.Redshift.DescribeEvents.DescribeEventsResponse
+ Amazonka.Redshift.DescribeEvents: instance GHC.Show.Show Amazonka.Redshift.DescribeEvents.DescribeEvents
+ Amazonka.Redshift.DescribeEvents: instance GHC.Show.Show Amazonka.Redshift.DescribeEvents.DescribeEventsResponse
+ Amazonka.Redshift.DescribeEvents: newDescribeEvents :: DescribeEvents
+ Amazonka.Redshift.DescribeEvents: newDescribeEventsResponse :: Int -> DescribeEventsResponse
+ Amazonka.Redshift.DescribeHsmClientCertificates: DescribeHsmClientCertificates' :: Maybe Text -> Maybe Text -> Maybe Int -> Maybe [Text] -> Maybe [Text] -> DescribeHsmClientCertificates
+ Amazonka.Redshift.DescribeHsmClientCertificates: DescribeHsmClientCertificatesResponse' :: Maybe [HsmClientCertificate] -> Maybe Text -> Int -> DescribeHsmClientCertificatesResponse
+ Amazonka.Redshift.DescribeHsmClientCertificates: [$sel:hsmClientCertificateIdentifier:DescribeHsmClientCertificates'] :: DescribeHsmClientCertificates -> Maybe Text
+ Amazonka.Redshift.DescribeHsmClientCertificates: [$sel:hsmClientCertificates:DescribeHsmClientCertificatesResponse'] :: DescribeHsmClientCertificatesResponse -> Maybe [HsmClientCertificate]
+ Amazonka.Redshift.DescribeHsmClientCertificates: [$sel:httpStatus:DescribeHsmClientCertificatesResponse'] :: DescribeHsmClientCertificatesResponse -> Int
+ Amazonka.Redshift.DescribeHsmClientCertificates: [$sel:marker:DescribeHsmClientCertificates'] :: DescribeHsmClientCertificates -> Maybe Text
+ Amazonka.Redshift.DescribeHsmClientCertificates: [$sel:marker:DescribeHsmClientCertificatesResponse'] :: DescribeHsmClientCertificatesResponse -> Maybe Text
+ Amazonka.Redshift.DescribeHsmClientCertificates: [$sel:maxRecords:DescribeHsmClientCertificates'] :: DescribeHsmClientCertificates -> Maybe Int
+ Amazonka.Redshift.DescribeHsmClientCertificates: [$sel:tagKeys:DescribeHsmClientCertificates'] :: DescribeHsmClientCertificates -> Maybe [Text]
+ Amazonka.Redshift.DescribeHsmClientCertificates: [$sel:tagValues:DescribeHsmClientCertificates'] :: DescribeHsmClientCertificates -> Maybe [Text]
+ Amazonka.Redshift.DescribeHsmClientCertificates: data DescribeHsmClientCertificates
+ Amazonka.Redshift.DescribeHsmClientCertificates: data DescribeHsmClientCertificatesResponse
+ Amazonka.Redshift.DescribeHsmClientCertificates: describeHsmClientCertificatesResponse_hsmClientCertificates :: Lens' DescribeHsmClientCertificatesResponse (Maybe [HsmClientCertificate])
+ Amazonka.Redshift.DescribeHsmClientCertificates: describeHsmClientCertificatesResponse_httpStatus :: Lens' DescribeHsmClientCertificatesResponse Int
+ Amazonka.Redshift.DescribeHsmClientCertificates: describeHsmClientCertificatesResponse_marker :: Lens' DescribeHsmClientCertificatesResponse (Maybe Text)
+ Amazonka.Redshift.DescribeHsmClientCertificates: describeHsmClientCertificates_hsmClientCertificateIdentifier :: Lens' DescribeHsmClientCertificates (Maybe Text)
+ Amazonka.Redshift.DescribeHsmClientCertificates: describeHsmClientCertificates_marker :: Lens' DescribeHsmClientCertificates (Maybe Text)
+ Amazonka.Redshift.DescribeHsmClientCertificates: describeHsmClientCertificates_maxRecords :: Lens' DescribeHsmClientCertificates (Maybe Int)
+ Amazonka.Redshift.DescribeHsmClientCertificates: describeHsmClientCertificates_tagKeys :: Lens' DescribeHsmClientCertificates (Maybe [Text])
+ Amazonka.Redshift.DescribeHsmClientCertificates: describeHsmClientCertificates_tagValues :: Lens' DescribeHsmClientCertificates (Maybe [Text])
+ Amazonka.Redshift.DescribeHsmClientCertificates: instance Amazonka.Data.Headers.ToHeaders Amazonka.Redshift.DescribeHsmClientCertificates.DescribeHsmClientCertificates
+ Amazonka.Redshift.DescribeHsmClientCertificates: instance Amazonka.Data.Path.ToPath Amazonka.Redshift.DescribeHsmClientCertificates.DescribeHsmClientCertificates
+ Amazonka.Redshift.DescribeHsmClientCertificates: instance Amazonka.Data.Query.ToQuery Amazonka.Redshift.DescribeHsmClientCertificates.DescribeHsmClientCertificates
+ Amazonka.Redshift.DescribeHsmClientCertificates: instance Amazonka.Pager.AWSPager Amazonka.Redshift.DescribeHsmClientCertificates.DescribeHsmClientCertificates
+ Amazonka.Redshift.DescribeHsmClientCertificates: instance Amazonka.Types.AWSRequest Amazonka.Redshift.DescribeHsmClientCertificates.DescribeHsmClientCertificates
+ Amazonka.Redshift.DescribeHsmClientCertificates: instance Control.DeepSeq.NFData Amazonka.Redshift.DescribeHsmClientCertificates.DescribeHsmClientCertificates
+ Amazonka.Redshift.DescribeHsmClientCertificates: instance Control.DeepSeq.NFData Amazonka.Redshift.DescribeHsmClientCertificates.DescribeHsmClientCertificatesResponse
+ Amazonka.Redshift.DescribeHsmClientCertificates: instance Data.Hashable.Class.Hashable Amazonka.Redshift.DescribeHsmClientCertificates.DescribeHsmClientCertificates
+ Amazonka.Redshift.DescribeHsmClientCertificates: instance GHC.Classes.Eq Amazonka.Redshift.DescribeHsmClientCertificates.DescribeHsmClientCertificates
+ Amazonka.Redshift.DescribeHsmClientCertificates: instance GHC.Classes.Eq Amazonka.Redshift.DescribeHsmClientCertificates.DescribeHsmClientCertificatesResponse
+ Amazonka.Redshift.DescribeHsmClientCertificates: instance GHC.Generics.Generic Amazonka.Redshift.DescribeHsmClientCertificates.DescribeHsmClientCertificates
+ Amazonka.Redshift.DescribeHsmClientCertificates: instance GHC.Generics.Generic Amazonka.Redshift.DescribeHsmClientCertificates.DescribeHsmClientCertificatesResponse
+ Amazonka.Redshift.DescribeHsmClientCertificates: instance GHC.Read.Read Amazonka.Redshift.DescribeHsmClientCertificates.DescribeHsmClientCertificates
+ Amazonka.Redshift.DescribeHsmClientCertificates: instance GHC.Read.Read Amazonka.Redshift.DescribeHsmClientCertificates.DescribeHsmClientCertificatesResponse
+ Amazonka.Redshift.DescribeHsmClientCertificates: instance GHC.Show.Show Amazonka.Redshift.DescribeHsmClientCertificates.DescribeHsmClientCertificates
+ Amazonka.Redshift.DescribeHsmClientCertificates: instance GHC.Show.Show Amazonka.Redshift.DescribeHsmClientCertificates.DescribeHsmClientCertificatesResponse
+ Amazonka.Redshift.DescribeHsmClientCertificates: newDescribeHsmClientCertificates :: DescribeHsmClientCertificates
+ Amazonka.Redshift.DescribeHsmClientCertificates: newDescribeHsmClientCertificatesResponse :: Int -> DescribeHsmClientCertificatesResponse
+ Amazonka.Redshift.DescribeHsmConfigurations: DescribeHsmConfigurations' :: Maybe Text -> Maybe Text -> Maybe Int -> Maybe [Text] -> Maybe [Text] -> DescribeHsmConfigurations
+ Amazonka.Redshift.DescribeHsmConfigurations: DescribeHsmConfigurationsResponse' :: Maybe [HsmConfiguration] -> Maybe Text -> Int -> DescribeHsmConfigurationsResponse
+ Amazonka.Redshift.DescribeHsmConfigurations: [$sel:hsmConfigurationIdentifier:DescribeHsmConfigurations'] :: DescribeHsmConfigurations -> Maybe Text
+ Amazonka.Redshift.DescribeHsmConfigurations: [$sel:hsmConfigurations:DescribeHsmConfigurationsResponse'] :: DescribeHsmConfigurationsResponse -> Maybe [HsmConfiguration]
+ Amazonka.Redshift.DescribeHsmConfigurations: [$sel:httpStatus:DescribeHsmConfigurationsResponse'] :: DescribeHsmConfigurationsResponse -> Int
+ Amazonka.Redshift.DescribeHsmConfigurations: [$sel:marker:DescribeHsmConfigurations'] :: DescribeHsmConfigurations -> Maybe Text
+ Amazonka.Redshift.DescribeHsmConfigurations: [$sel:marker:DescribeHsmConfigurationsResponse'] :: DescribeHsmConfigurationsResponse -> Maybe Text
+ Amazonka.Redshift.DescribeHsmConfigurations: [$sel:maxRecords:DescribeHsmConfigurations'] :: DescribeHsmConfigurations -> Maybe Int
+ Amazonka.Redshift.DescribeHsmConfigurations: [$sel:tagKeys:DescribeHsmConfigurations'] :: DescribeHsmConfigurations -> Maybe [Text]
+ Amazonka.Redshift.DescribeHsmConfigurations: [$sel:tagValues:DescribeHsmConfigurations'] :: DescribeHsmConfigurations -> Maybe [Text]
+ Amazonka.Redshift.DescribeHsmConfigurations: data DescribeHsmConfigurations
+ Amazonka.Redshift.DescribeHsmConfigurations: data DescribeHsmConfigurationsResponse
+ Amazonka.Redshift.DescribeHsmConfigurations: describeHsmConfigurationsResponse_hsmConfigurations :: Lens' DescribeHsmConfigurationsResponse (Maybe [HsmConfiguration])
+ Amazonka.Redshift.DescribeHsmConfigurations: describeHsmConfigurationsResponse_httpStatus :: Lens' DescribeHsmConfigurationsResponse Int
+ Amazonka.Redshift.DescribeHsmConfigurations: describeHsmConfigurationsResponse_marker :: Lens' DescribeHsmConfigurationsResponse (Maybe Text)
+ Amazonka.Redshift.DescribeHsmConfigurations: describeHsmConfigurations_hsmConfigurationIdentifier :: Lens' DescribeHsmConfigurations (Maybe Text)
+ Amazonka.Redshift.DescribeHsmConfigurations: describeHsmConfigurations_marker :: Lens' DescribeHsmConfigurations (Maybe Text)
+ Amazonka.Redshift.DescribeHsmConfigurations: describeHsmConfigurations_maxRecords :: Lens' DescribeHsmConfigurations (Maybe Int)
+ Amazonka.Redshift.DescribeHsmConfigurations: describeHsmConfigurations_tagKeys :: Lens' DescribeHsmConfigurations (Maybe [Text])
+ Amazonka.Redshift.DescribeHsmConfigurations: describeHsmConfigurations_tagValues :: Lens' DescribeHsmConfigurations (Maybe [Text])
+ Amazonka.Redshift.DescribeHsmConfigurations: instance Amazonka.Data.Headers.ToHeaders Amazonka.Redshift.DescribeHsmConfigurations.DescribeHsmConfigurations
+ Amazonka.Redshift.DescribeHsmConfigurations: instance Amazonka.Data.Path.ToPath Amazonka.Redshift.DescribeHsmConfigurations.DescribeHsmConfigurations
+ Amazonka.Redshift.DescribeHsmConfigurations: instance Amazonka.Data.Query.ToQuery Amazonka.Redshift.DescribeHsmConfigurations.DescribeHsmConfigurations
+ Amazonka.Redshift.DescribeHsmConfigurations: instance Amazonka.Pager.AWSPager Amazonka.Redshift.DescribeHsmConfigurations.DescribeHsmConfigurations
+ Amazonka.Redshift.DescribeHsmConfigurations: instance Amazonka.Types.AWSRequest Amazonka.Redshift.DescribeHsmConfigurations.DescribeHsmConfigurations
+ Amazonka.Redshift.DescribeHsmConfigurations: instance Control.DeepSeq.NFData Amazonka.Redshift.DescribeHsmConfigurations.DescribeHsmConfigurations
+ Amazonka.Redshift.DescribeHsmConfigurations: instance Control.DeepSeq.NFData Amazonka.Redshift.DescribeHsmConfigurations.DescribeHsmConfigurationsResponse
+ Amazonka.Redshift.DescribeHsmConfigurations: instance Data.Hashable.Class.Hashable Amazonka.Redshift.DescribeHsmConfigurations.DescribeHsmConfigurations
+ Amazonka.Redshift.DescribeHsmConfigurations: instance GHC.Classes.Eq Amazonka.Redshift.DescribeHsmConfigurations.DescribeHsmConfigurations
+ Amazonka.Redshift.DescribeHsmConfigurations: instance GHC.Classes.Eq Amazonka.Redshift.DescribeHsmConfigurations.DescribeHsmConfigurationsResponse
+ Amazonka.Redshift.DescribeHsmConfigurations: instance GHC.Generics.Generic Amazonka.Redshift.DescribeHsmConfigurations.DescribeHsmConfigurations
+ Amazonka.Redshift.DescribeHsmConfigurations: instance GHC.Generics.Generic Amazonka.Redshift.DescribeHsmConfigurations.DescribeHsmConfigurationsResponse
+ Amazonka.Redshift.DescribeHsmConfigurations: instance GHC.Read.Read Amazonka.Redshift.DescribeHsmConfigurations.DescribeHsmConfigurations
+ Amazonka.Redshift.DescribeHsmConfigurations: instance GHC.Read.Read Amazonka.Redshift.DescribeHsmConfigurations.DescribeHsmConfigurationsResponse
+ Amazonka.Redshift.DescribeHsmConfigurations: instance GHC.Show.Show Amazonka.Redshift.DescribeHsmConfigurations.DescribeHsmConfigurations
+ Amazonka.Redshift.DescribeHsmConfigurations: instance GHC.Show.Show Amazonka.Redshift.DescribeHsmConfigurations.DescribeHsmConfigurationsResponse
+ Amazonka.Redshift.DescribeHsmConfigurations: newDescribeHsmConfigurations :: DescribeHsmConfigurations
+ Amazonka.Redshift.DescribeHsmConfigurations: newDescribeHsmConfigurationsResponse :: Int -> DescribeHsmConfigurationsResponse
+ Amazonka.Redshift.DescribeLoggingStatus: DescribeLoggingStatus' :: Text -> DescribeLoggingStatus
+ Amazonka.Redshift.DescribeLoggingStatus: LoggingStatus' :: Maybe Text -> Maybe Text -> Maybe ISO8601 -> Maybe ISO8601 -> Maybe LogDestinationType -> Maybe [Text] -> Maybe Bool -> Maybe Text -> LoggingStatus
+ Amazonka.Redshift.DescribeLoggingStatus: [$sel:bucketName:LoggingStatus'] :: LoggingStatus -> Maybe Text
+ Amazonka.Redshift.DescribeLoggingStatus: [$sel:clusterIdentifier:DescribeLoggingStatus'] :: DescribeLoggingStatus -> Text
+ Amazonka.Redshift.DescribeLoggingStatus: [$sel:lastFailureMessage:LoggingStatus'] :: LoggingStatus -> Maybe Text
+ Amazonka.Redshift.DescribeLoggingStatus: [$sel:lastFailureTime:LoggingStatus'] :: LoggingStatus -> Maybe ISO8601
+ Amazonka.Redshift.DescribeLoggingStatus: [$sel:lastSuccessfulDeliveryTime:LoggingStatus'] :: LoggingStatus -> Maybe ISO8601
+ Amazonka.Redshift.DescribeLoggingStatus: [$sel:logDestinationType:LoggingStatus'] :: LoggingStatus -> Maybe LogDestinationType
+ Amazonka.Redshift.DescribeLoggingStatus: [$sel:logExports:LoggingStatus'] :: LoggingStatus -> Maybe [Text]
+ Amazonka.Redshift.DescribeLoggingStatus: [$sel:loggingEnabled:LoggingStatus'] :: LoggingStatus -> Maybe Bool
+ Amazonka.Redshift.DescribeLoggingStatus: [$sel:s3KeyPrefix:LoggingStatus'] :: LoggingStatus -> Maybe Text
+ Amazonka.Redshift.DescribeLoggingStatus: data DescribeLoggingStatus
+ Amazonka.Redshift.DescribeLoggingStatus: data LoggingStatus
+ Amazonka.Redshift.DescribeLoggingStatus: describeLoggingStatus_clusterIdentifier :: Lens' DescribeLoggingStatus Text
+ Amazonka.Redshift.DescribeLoggingStatus: instance Amazonka.Data.Headers.ToHeaders Amazonka.Redshift.DescribeLoggingStatus.DescribeLoggingStatus
+ Amazonka.Redshift.DescribeLoggingStatus: instance Amazonka.Data.Path.ToPath Amazonka.Redshift.DescribeLoggingStatus.DescribeLoggingStatus
+ Amazonka.Redshift.DescribeLoggingStatus: instance Amazonka.Data.Query.ToQuery Amazonka.Redshift.DescribeLoggingStatus.DescribeLoggingStatus
+ Amazonka.Redshift.DescribeLoggingStatus: instance Amazonka.Types.AWSRequest Amazonka.Redshift.DescribeLoggingStatus.DescribeLoggingStatus
+ Amazonka.Redshift.DescribeLoggingStatus: instance Control.DeepSeq.NFData Amazonka.Redshift.DescribeLoggingStatus.DescribeLoggingStatus
+ Amazonka.Redshift.DescribeLoggingStatus: instance Data.Hashable.Class.Hashable Amazonka.Redshift.DescribeLoggingStatus.DescribeLoggingStatus
+ Amazonka.Redshift.DescribeLoggingStatus: instance GHC.Classes.Eq Amazonka.Redshift.DescribeLoggingStatus.DescribeLoggingStatus
+ Amazonka.Redshift.DescribeLoggingStatus: instance GHC.Generics.Generic Amazonka.Redshift.DescribeLoggingStatus.DescribeLoggingStatus
+ Amazonka.Redshift.DescribeLoggingStatus: instance GHC.Read.Read Amazonka.Redshift.DescribeLoggingStatus.DescribeLoggingStatus
+ Amazonka.Redshift.DescribeLoggingStatus: instance GHC.Show.Show Amazonka.Redshift.DescribeLoggingStatus.DescribeLoggingStatus
+ Amazonka.Redshift.DescribeLoggingStatus: loggingStatus_bucketName :: Lens' LoggingStatus (Maybe Text)
+ Amazonka.Redshift.DescribeLoggingStatus: loggingStatus_lastFailureMessage :: Lens' LoggingStatus (Maybe Text)
+ Amazonka.Redshift.DescribeLoggingStatus: loggingStatus_lastFailureTime :: Lens' LoggingStatus (Maybe UTCTime)
+ Amazonka.Redshift.DescribeLoggingStatus: loggingStatus_lastSuccessfulDeliveryTime :: Lens' LoggingStatus (Maybe UTCTime)
+ Amazonka.Redshift.DescribeLoggingStatus: loggingStatus_logDestinationType :: Lens' LoggingStatus (Maybe LogDestinationType)
+ Amazonka.Redshift.DescribeLoggingStatus: loggingStatus_logExports :: Lens' LoggingStatus (Maybe [Text])
+ Amazonka.Redshift.DescribeLoggingStatus: loggingStatus_loggingEnabled :: Lens' LoggingStatus (Maybe Bool)
+ Amazonka.Redshift.DescribeLoggingStatus: loggingStatus_s3KeyPrefix :: Lens' LoggingStatus (Maybe Text)
+ Amazonka.Redshift.DescribeLoggingStatus: newDescribeLoggingStatus :: Text -> DescribeLoggingStatus
+ Amazonka.Redshift.DescribeLoggingStatus: newLoggingStatus :: LoggingStatus
+ Amazonka.Redshift.DescribeNodeConfigurationOptions: DescribeNodeConfigurationOptions' :: Maybe Text -> Maybe [NodeConfigurationOptionsFilter] -> Maybe Text -> Maybe Int -> Maybe Text -> Maybe Text -> Maybe Text -> ActionType -> DescribeNodeConfigurationOptions
+ Amazonka.Redshift.DescribeNodeConfigurationOptions: DescribeNodeConfigurationOptionsResponse' :: Maybe Text -> Maybe [NodeConfigurationOption] -> Int -> DescribeNodeConfigurationOptionsResponse
+ Amazonka.Redshift.DescribeNodeConfigurationOptions: [$sel:actionType:DescribeNodeConfigurationOptions'] :: DescribeNodeConfigurationOptions -> ActionType
+ Amazonka.Redshift.DescribeNodeConfigurationOptions: [$sel:clusterIdentifier:DescribeNodeConfigurationOptions'] :: DescribeNodeConfigurationOptions -> Maybe Text
+ Amazonka.Redshift.DescribeNodeConfigurationOptions: [$sel:filters:DescribeNodeConfigurationOptions'] :: DescribeNodeConfigurationOptions -> Maybe [NodeConfigurationOptionsFilter]
+ Amazonka.Redshift.DescribeNodeConfigurationOptions: [$sel:httpStatus:DescribeNodeConfigurationOptionsResponse'] :: DescribeNodeConfigurationOptionsResponse -> Int
+ Amazonka.Redshift.DescribeNodeConfigurationOptions: [$sel:marker:DescribeNodeConfigurationOptions'] :: DescribeNodeConfigurationOptions -> Maybe Text
+ Amazonka.Redshift.DescribeNodeConfigurationOptions: [$sel:marker:DescribeNodeConfigurationOptionsResponse'] :: DescribeNodeConfigurationOptionsResponse -> Maybe Text
+ Amazonka.Redshift.DescribeNodeConfigurationOptions: [$sel:maxRecords:DescribeNodeConfigurationOptions'] :: DescribeNodeConfigurationOptions -> Maybe Int
+ Amazonka.Redshift.DescribeNodeConfigurationOptions: [$sel:nodeConfigurationOptionList:DescribeNodeConfigurationOptionsResponse'] :: DescribeNodeConfigurationOptionsResponse -> Maybe [NodeConfigurationOption]
+ Amazonka.Redshift.DescribeNodeConfigurationOptions: [$sel:ownerAccount:DescribeNodeConfigurationOptions'] :: DescribeNodeConfigurationOptions -> Maybe Text
+ Amazonka.Redshift.DescribeNodeConfigurationOptions: [$sel:snapshotArn:DescribeNodeConfigurationOptions'] :: DescribeNodeConfigurationOptions -> Maybe Text
+ Amazonka.Redshift.DescribeNodeConfigurationOptions: [$sel:snapshotIdentifier:DescribeNodeConfigurationOptions'] :: DescribeNodeConfigurationOptions -> Maybe Text
+ Amazonka.Redshift.DescribeNodeConfigurationOptions: data DescribeNodeConfigurationOptions
+ Amazonka.Redshift.DescribeNodeConfigurationOptions: data DescribeNodeConfigurationOptionsResponse
+ Amazonka.Redshift.DescribeNodeConfigurationOptions: describeNodeConfigurationOptionsResponse_httpStatus :: Lens' DescribeNodeConfigurationOptionsResponse Int
+ Amazonka.Redshift.DescribeNodeConfigurationOptions: describeNodeConfigurationOptionsResponse_marker :: Lens' DescribeNodeConfigurationOptionsResponse (Maybe Text)
+ Amazonka.Redshift.DescribeNodeConfigurationOptions: describeNodeConfigurationOptionsResponse_nodeConfigurationOptionList :: Lens' DescribeNodeConfigurationOptionsResponse (Maybe [NodeConfigurationOption])
+ Amazonka.Redshift.DescribeNodeConfigurationOptions: describeNodeConfigurationOptions_actionType :: Lens' DescribeNodeConfigurationOptions ActionType
+ Amazonka.Redshift.DescribeNodeConfigurationOptions: describeNodeConfigurationOptions_clusterIdentifier :: Lens' DescribeNodeConfigurationOptions (Maybe Text)
+ Amazonka.Redshift.DescribeNodeConfigurationOptions: describeNodeConfigurationOptions_filters :: Lens' DescribeNodeConfigurationOptions (Maybe [NodeConfigurationOptionsFilter])
+ Amazonka.Redshift.DescribeNodeConfigurationOptions: describeNodeConfigurationOptions_marker :: Lens' DescribeNodeConfigurationOptions (Maybe Text)
+ Amazonka.Redshift.DescribeNodeConfigurationOptions: describeNodeConfigurationOptions_maxRecords :: Lens' DescribeNodeConfigurationOptions (Maybe Int)
+ Amazonka.Redshift.DescribeNodeConfigurationOptions: describeNodeConfigurationOptions_ownerAccount :: Lens' DescribeNodeConfigurationOptions (Maybe Text)
+ Amazonka.Redshift.DescribeNodeConfigurationOptions: describeNodeConfigurationOptions_snapshotArn :: Lens' DescribeNodeConfigurationOptions (Maybe Text)
+ Amazonka.Redshift.DescribeNodeConfigurationOptions: describeNodeConfigurationOptions_snapshotIdentifier :: Lens' DescribeNodeConfigurationOptions (Maybe Text)
+ Amazonka.Redshift.DescribeNodeConfigurationOptions: instance Amazonka.Data.Headers.ToHeaders Amazonka.Redshift.DescribeNodeConfigurationOptions.DescribeNodeConfigurationOptions
+ Amazonka.Redshift.DescribeNodeConfigurationOptions: instance Amazonka.Data.Path.ToPath Amazonka.Redshift.DescribeNodeConfigurationOptions.DescribeNodeConfigurationOptions
+ Amazonka.Redshift.DescribeNodeConfigurationOptions: instance Amazonka.Data.Query.ToQuery Amazonka.Redshift.DescribeNodeConfigurationOptions.DescribeNodeConfigurationOptions
+ Amazonka.Redshift.DescribeNodeConfigurationOptions: instance Amazonka.Pager.AWSPager Amazonka.Redshift.DescribeNodeConfigurationOptions.DescribeNodeConfigurationOptions
+ Amazonka.Redshift.DescribeNodeConfigurationOptions: instance Amazonka.Types.AWSRequest Amazonka.Redshift.DescribeNodeConfigurationOptions.DescribeNodeConfigurationOptions
+ Amazonka.Redshift.DescribeNodeConfigurationOptions: instance Control.DeepSeq.NFData Amazonka.Redshift.DescribeNodeConfigurationOptions.DescribeNodeConfigurationOptions
+ Amazonka.Redshift.DescribeNodeConfigurationOptions: instance Control.DeepSeq.NFData Amazonka.Redshift.DescribeNodeConfigurationOptions.DescribeNodeConfigurationOptionsResponse
+ Amazonka.Redshift.DescribeNodeConfigurationOptions: instance Data.Hashable.Class.Hashable Amazonka.Redshift.DescribeNodeConfigurationOptions.DescribeNodeConfigurationOptions
+ Amazonka.Redshift.DescribeNodeConfigurationOptions: instance GHC.Classes.Eq Amazonka.Redshift.DescribeNodeConfigurationOptions.DescribeNodeConfigurationOptions
+ Amazonka.Redshift.DescribeNodeConfigurationOptions: instance GHC.Classes.Eq Amazonka.Redshift.DescribeNodeConfigurationOptions.DescribeNodeConfigurationOptionsResponse
+ Amazonka.Redshift.DescribeNodeConfigurationOptions: instance GHC.Generics.Generic Amazonka.Redshift.DescribeNodeConfigurationOptions.DescribeNodeConfigurationOptions
+ Amazonka.Redshift.DescribeNodeConfigurationOptions: instance GHC.Generics.Generic Amazonka.Redshift.DescribeNodeConfigurationOptions.DescribeNodeConfigurationOptionsResponse
+ Amazonka.Redshift.DescribeNodeConfigurationOptions: instance GHC.Read.Read Amazonka.Redshift.DescribeNodeConfigurationOptions.DescribeNodeConfigurationOptions
+ Amazonka.Redshift.DescribeNodeConfigurationOptions: instance GHC.Read.Read Amazonka.Redshift.DescribeNodeConfigurationOptions.DescribeNodeConfigurationOptionsResponse
+ Amazonka.Redshift.DescribeNodeConfigurationOptions: instance GHC.Show.Show Amazonka.Redshift.DescribeNodeConfigurationOptions.DescribeNodeConfigurationOptions
+ Amazonka.Redshift.DescribeNodeConfigurationOptions: instance GHC.Show.Show Amazonka.Redshift.DescribeNodeConfigurationOptions.DescribeNodeConfigurationOptionsResponse
+ Amazonka.Redshift.DescribeNodeConfigurationOptions: newDescribeNodeConfigurationOptions :: ActionType -> DescribeNodeConfigurationOptions
+ Amazonka.Redshift.DescribeNodeConfigurationOptions: newDescribeNodeConfigurationOptionsResponse :: Int -> DescribeNodeConfigurationOptionsResponse
+ Amazonka.Redshift.DescribeOrderableClusterOptions: DescribeOrderableClusterOptions' :: Maybe Text -> Maybe Text -> Maybe Int -> Maybe Text -> DescribeOrderableClusterOptions
+ Amazonka.Redshift.DescribeOrderableClusterOptions: DescribeOrderableClusterOptionsResponse' :: Maybe Text -> Maybe [OrderableClusterOption] -> Int -> DescribeOrderableClusterOptionsResponse
+ Amazonka.Redshift.DescribeOrderableClusterOptions: [$sel:clusterVersion:DescribeOrderableClusterOptions'] :: DescribeOrderableClusterOptions -> Maybe Text
+ Amazonka.Redshift.DescribeOrderableClusterOptions: [$sel:httpStatus:DescribeOrderableClusterOptionsResponse'] :: DescribeOrderableClusterOptionsResponse -> Int
+ Amazonka.Redshift.DescribeOrderableClusterOptions: [$sel:marker:DescribeOrderableClusterOptions'] :: DescribeOrderableClusterOptions -> Maybe Text
+ Amazonka.Redshift.DescribeOrderableClusterOptions: [$sel:marker:DescribeOrderableClusterOptionsResponse'] :: DescribeOrderableClusterOptionsResponse -> Maybe Text
+ Amazonka.Redshift.DescribeOrderableClusterOptions: [$sel:maxRecords:DescribeOrderableClusterOptions'] :: DescribeOrderableClusterOptions -> Maybe Int
+ Amazonka.Redshift.DescribeOrderableClusterOptions: [$sel:nodeType:DescribeOrderableClusterOptions'] :: DescribeOrderableClusterOptions -> Maybe Text
+ Amazonka.Redshift.DescribeOrderableClusterOptions: [$sel:orderableClusterOptions:DescribeOrderableClusterOptionsResponse'] :: DescribeOrderableClusterOptionsResponse -> Maybe [OrderableClusterOption]
+ Amazonka.Redshift.DescribeOrderableClusterOptions: data DescribeOrderableClusterOptions
+ Amazonka.Redshift.DescribeOrderableClusterOptions: data DescribeOrderableClusterOptionsResponse
+ Amazonka.Redshift.DescribeOrderableClusterOptions: describeOrderableClusterOptionsResponse_httpStatus :: Lens' DescribeOrderableClusterOptionsResponse Int
+ Amazonka.Redshift.DescribeOrderableClusterOptions: describeOrderableClusterOptionsResponse_marker :: Lens' DescribeOrderableClusterOptionsResponse (Maybe Text)
+ Amazonka.Redshift.DescribeOrderableClusterOptions: describeOrderableClusterOptionsResponse_orderableClusterOptions :: Lens' DescribeOrderableClusterOptionsResponse (Maybe [OrderableClusterOption])
+ Amazonka.Redshift.DescribeOrderableClusterOptions: describeOrderableClusterOptions_clusterVersion :: Lens' DescribeOrderableClusterOptions (Maybe Text)
+ Amazonka.Redshift.DescribeOrderableClusterOptions: describeOrderableClusterOptions_marker :: Lens' DescribeOrderableClusterOptions (Maybe Text)
+ Amazonka.Redshift.DescribeOrderableClusterOptions: describeOrderableClusterOptions_maxRecords :: Lens' DescribeOrderableClusterOptions (Maybe Int)
+ Amazonka.Redshift.DescribeOrderableClusterOptions: describeOrderableClusterOptions_nodeType :: Lens' DescribeOrderableClusterOptions (Maybe Text)
+ Amazonka.Redshift.DescribeOrderableClusterOptions: instance Amazonka.Data.Headers.ToHeaders Amazonka.Redshift.DescribeOrderableClusterOptions.DescribeOrderableClusterOptions
+ Amazonka.Redshift.DescribeOrderableClusterOptions: instance Amazonka.Data.Path.ToPath Amazonka.Redshift.DescribeOrderableClusterOptions.DescribeOrderableClusterOptions
+ Amazonka.Redshift.DescribeOrderableClusterOptions: instance Amazonka.Data.Query.ToQuery Amazonka.Redshift.DescribeOrderableClusterOptions.DescribeOrderableClusterOptions
+ Amazonka.Redshift.DescribeOrderableClusterOptions: instance Amazonka.Pager.AWSPager Amazonka.Redshift.DescribeOrderableClusterOptions.DescribeOrderableClusterOptions
+ Amazonka.Redshift.DescribeOrderableClusterOptions: instance Amazonka.Types.AWSRequest Amazonka.Redshift.DescribeOrderableClusterOptions.DescribeOrderableClusterOptions
+ Amazonka.Redshift.DescribeOrderableClusterOptions: instance Control.DeepSeq.NFData Amazonka.Redshift.DescribeOrderableClusterOptions.DescribeOrderableClusterOptions
+ Amazonka.Redshift.DescribeOrderableClusterOptions: instance Control.DeepSeq.NFData Amazonka.Redshift.DescribeOrderableClusterOptions.DescribeOrderableClusterOptionsResponse
+ Amazonka.Redshift.DescribeOrderableClusterOptions: instance Data.Hashable.Class.Hashable Amazonka.Redshift.DescribeOrderableClusterOptions.DescribeOrderableClusterOptions
+ Amazonka.Redshift.DescribeOrderableClusterOptions: instance GHC.Classes.Eq Amazonka.Redshift.DescribeOrderableClusterOptions.DescribeOrderableClusterOptions
+ Amazonka.Redshift.DescribeOrderableClusterOptions: instance GHC.Classes.Eq Amazonka.Redshift.DescribeOrderableClusterOptions.DescribeOrderableClusterOptionsResponse
+ Amazonka.Redshift.DescribeOrderableClusterOptions: instance GHC.Generics.Generic Amazonka.Redshift.DescribeOrderableClusterOptions.DescribeOrderableClusterOptions
+ Amazonka.Redshift.DescribeOrderableClusterOptions: instance GHC.Generics.Generic Amazonka.Redshift.DescribeOrderableClusterOptions.DescribeOrderableClusterOptionsResponse
+ Amazonka.Redshift.DescribeOrderableClusterOptions: instance GHC.Read.Read Amazonka.Redshift.DescribeOrderableClusterOptions.DescribeOrderableClusterOptions
+ Amazonka.Redshift.DescribeOrderableClusterOptions: instance GHC.Read.Read Amazonka.Redshift.DescribeOrderableClusterOptions.DescribeOrderableClusterOptionsResponse
+ Amazonka.Redshift.DescribeOrderableClusterOptions: instance GHC.Show.Show Amazonka.Redshift.DescribeOrderableClusterOptions.DescribeOrderableClusterOptions
+ Amazonka.Redshift.DescribeOrderableClusterOptions: instance GHC.Show.Show Amazonka.Redshift.DescribeOrderableClusterOptions.DescribeOrderableClusterOptionsResponse
+ Amazonka.Redshift.DescribeOrderableClusterOptions: newDescribeOrderableClusterOptions :: DescribeOrderableClusterOptions
+ Amazonka.Redshift.DescribeOrderableClusterOptions: newDescribeOrderableClusterOptionsResponse :: Int -> DescribeOrderableClusterOptionsResponse
+ Amazonka.Redshift.DescribePartners: DescribePartners' :: Maybe Text -> Maybe Text -> Text -> Text -> DescribePartners
+ Amazonka.Redshift.DescribePartners: DescribePartnersResponse' :: Maybe [PartnerIntegrationInfo] -> Int -> DescribePartnersResponse
+ Amazonka.Redshift.DescribePartners: [$sel:accountId:DescribePartners'] :: DescribePartners -> Text
+ Amazonka.Redshift.DescribePartners: [$sel:clusterIdentifier:DescribePartners'] :: DescribePartners -> Text
+ Amazonka.Redshift.DescribePartners: [$sel:databaseName:DescribePartners'] :: DescribePartners -> Maybe Text
+ Amazonka.Redshift.DescribePartners: [$sel:httpStatus:DescribePartnersResponse'] :: DescribePartnersResponse -> Int
+ Amazonka.Redshift.DescribePartners: [$sel:partnerIntegrationInfoList:DescribePartnersResponse'] :: DescribePartnersResponse -> Maybe [PartnerIntegrationInfo]
+ Amazonka.Redshift.DescribePartners: [$sel:partnerName:DescribePartners'] :: DescribePartners -> Maybe Text
+ Amazonka.Redshift.DescribePartners: data DescribePartners
+ Amazonka.Redshift.DescribePartners: data DescribePartnersResponse
+ Amazonka.Redshift.DescribePartners: describePartnersResponse_httpStatus :: Lens' DescribePartnersResponse Int
+ Amazonka.Redshift.DescribePartners: describePartnersResponse_partnerIntegrationInfoList :: Lens' DescribePartnersResponse (Maybe [PartnerIntegrationInfo])
+ Amazonka.Redshift.DescribePartners: describePartners_accountId :: Lens' DescribePartners Text
+ Amazonka.Redshift.DescribePartners: describePartners_clusterIdentifier :: Lens' DescribePartners Text
+ Amazonka.Redshift.DescribePartners: describePartners_databaseName :: Lens' DescribePartners (Maybe Text)
+ Amazonka.Redshift.DescribePartners: describePartners_partnerName :: Lens' DescribePartners (Maybe Text)
+ Amazonka.Redshift.DescribePartners: instance Amazonka.Data.Headers.ToHeaders Amazonka.Redshift.DescribePartners.DescribePartners
+ Amazonka.Redshift.DescribePartners: instance Amazonka.Data.Path.ToPath Amazonka.Redshift.DescribePartners.DescribePartners
+ Amazonka.Redshift.DescribePartners: instance Amazonka.Data.Query.ToQuery Amazonka.Redshift.DescribePartners.DescribePartners
+ Amazonka.Redshift.DescribePartners: instance Amazonka.Types.AWSRequest Amazonka.Redshift.DescribePartners.DescribePartners
+ Amazonka.Redshift.DescribePartners: instance Control.DeepSeq.NFData Amazonka.Redshift.DescribePartners.DescribePartners
+ Amazonka.Redshift.DescribePartners: instance Control.DeepSeq.NFData Amazonka.Redshift.DescribePartners.DescribePartnersResponse
+ Amazonka.Redshift.DescribePartners: instance Data.Hashable.Class.Hashable Amazonka.Redshift.DescribePartners.DescribePartners
+ Amazonka.Redshift.DescribePartners: instance GHC.Classes.Eq Amazonka.Redshift.DescribePartners.DescribePartners
+ Amazonka.Redshift.DescribePartners: instance GHC.Classes.Eq Amazonka.Redshift.DescribePartners.DescribePartnersResponse
+ Amazonka.Redshift.DescribePartners: instance GHC.Generics.Generic Amazonka.Redshift.DescribePartners.DescribePartners
+ Amazonka.Redshift.DescribePartners: instance GHC.Generics.Generic Amazonka.Redshift.DescribePartners.DescribePartnersResponse
+ Amazonka.Redshift.DescribePartners: instance GHC.Read.Read Amazonka.Redshift.DescribePartners.DescribePartners
+ Amazonka.Redshift.DescribePartners: instance GHC.Read.Read Amazonka.Redshift.DescribePartners.DescribePartnersResponse
+ Amazonka.Redshift.DescribePartners: instance GHC.Show.Show Amazonka.Redshift.DescribePartners.DescribePartners
+ Amazonka.Redshift.DescribePartners: instance GHC.Show.Show Amazonka.Redshift.DescribePartners.DescribePartnersResponse
+ Amazonka.Redshift.DescribePartners: newDescribePartners :: Text -> Text -> DescribePartners
+ Amazonka.Redshift.DescribePartners: newDescribePartnersResponse :: Int -> DescribePartnersResponse
+ Amazonka.Redshift.DescribeReservedNodeExchangeStatus: DescribeReservedNodeExchangeStatus' :: Maybe Text -> Maybe Int -> Maybe Text -> Maybe Text -> DescribeReservedNodeExchangeStatus
+ Amazonka.Redshift.DescribeReservedNodeExchangeStatus: DescribeReservedNodeExchangeStatusResponse' :: Maybe Text -> Maybe [ReservedNodeExchangeStatus] -> Int -> DescribeReservedNodeExchangeStatusResponse
+ Amazonka.Redshift.DescribeReservedNodeExchangeStatus: [$sel:httpStatus:DescribeReservedNodeExchangeStatusResponse'] :: DescribeReservedNodeExchangeStatusResponse -> Int
+ Amazonka.Redshift.DescribeReservedNodeExchangeStatus: [$sel:marker:DescribeReservedNodeExchangeStatus'] :: DescribeReservedNodeExchangeStatus -> Maybe Text
+ Amazonka.Redshift.DescribeReservedNodeExchangeStatus: [$sel:marker:DescribeReservedNodeExchangeStatusResponse'] :: DescribeReservedNodeExchangeStatusResponse -> Maybe Text
+ Amazonka.Redshift.DescribeReservedNodeExchangeStatus: [$sel:maxRecords:DescribeReservedNodeExchangeStatus'] :: DescribeReservedNodeExchangeStatus -> Maybe Int
+ Amazonka.Redshift.DescribeReservedNodeExchangeStatus: [$sel:reservedNodeExchangeRequestId:DescribeReservedNodeExchangeStatus'] :: DescribeReservedNodeExchangeStatus -> Maybe Text
+ Amazonka.Redshift.DescribeReservedNodeExchangeStatus: [$sel:reservedNodeExchangeStatusDetails:DescribeReservedNodeExchangeStatusResponse'] :: DescribeReservedNodeExchangeStatusResponse -> Maybe [ReservedNodeExchangeStatus]
+ Amazonka.Redshift.DescribeReservedNodeExchangeStatus: [$sel:reservedNodeId:DescribeReservedNodeExchangeStatus'] :: DescribeReservedNodeExchangeStatus -> Maybe Text
+ Amazonka.Redshift.DescribeReservedNodeExchangeStatus: data DescribeReservedNodeExchangeStatus
+ Amazonka.Redshift.DescribeReservedNodeExchangeStatus: data DescribeReservedNodeExchangeStatusResponse
+ Amazonka.Redshift.DescribeReservedNodeExchangeStatus: describeReservedNodeExchangeStatusResponse_httpStatus :: Lens' DescribeReservedNodeExchangeStatusResponse Int
+ Amazonka.Redshift.DescribeReservedNodeExchangeStatus: describeReservedNodeExchangeStatusResponse_marker :: Lens' DescribeReservedNodeExchangeStatusResponse (Maybe Text)
+ Amazonka.Redshift.DescribeReservedNodeExchangeStatus: describeReservedNodeExchangeStatusResponse_reservedNodeExchangeStatusDetails :: Lens' DescribeReservedNodeExchangeStatusResponse (Maybe [ReservedNodeExchangeStatus])
+ Amazonka.Redshift.DescribeReservedNodeExchangeStatus: describeReservedNodeExchangeStatus_marker :: Lens' DescribeReservedNodeExchangeStatus (Maybe Text)
+ Amazonka.Redshift.DescribeReservedNodeExchangeStatus: describeReservedNodeExchangeStatus_maxRecords :: Lens' DescribeReservedNodeExchangeStatus (Maybe Int)
+ Amazonka.Redshift.DescribeReservedNodeExchangeStatus: describeReservedNodeExchangeStatus_reservedNodeExchangeRequestId :: Lens' DescribeReservedNodeExchangeStatus (Maybe Text)
+ Amazonka.Redshift.DescribeReservedNodeExchangeStatus: describeReservedNodeExchangeStatus_reservedNodeId :: Lens' DescribeReservedNodeExchangeStatus (Maybe Text)
+ Amazonka.Redshift.DescribeReservedNodeExchangeStatus: instance Amazonka.Data.Headers.ToHeaders Amazonka.Redshift.DescribeReservedNodeExchangeStatus.DescribeReservedNodeExchangeStatus
+ Amazonka.Redshift.DescribeReservedNodeExchangeStatus: instance Amazonka.Data.Path.ToPath Amazonka.Redshift.DescribeReservedNodeExchangeStatus.DescribeReservedNodeExchangeStatus
+ Amazonka.Redshift.DescribeReservedNodeExchangeStatus: instance Amazonka.Data.Query.ToQuery Amazonka.Redshift.DescribeReservedNodeExchangeStatus.DescribeReservedNodeExchangeStatus
+ Amazonka.Redshift.DescribeReservedNodeExchangeStatus: instance Amazonka.Pager.AWSPager Amazonka.Redshift.DescribeReservedNodeExchangeStatus.DescribeReservedNodeExchangeStatus
+ Amazonka.Redshift.DescribeReservedNodeExchangeStatus: instance Amazonka.Types.AWSRequest Amazonka.Redshift.DescribeReservedNodeExchangeStatus.DescribeReservedNodeExchangeStatus
+ Amazonka.Redshift.DescribeReservedNodeExchangeStatus: instance Control.DeepSeq.NFData Amazonka.Redshift.DescribeReservedNodeExchangeStatus.DescribeReservedNodeExchangeStatus
+ Amazonka.Redshift.DescribeReservedNodeExchangeStatus: instance Control.DeepSeq.NFData Amazonka.Redshift.DescribeReservedNodeExchangeStatus.DescribeReservedNodeExchangeStatusResponse
+ Amazonka.Redshift.DescribeReservedNodeExchangeStatus: instance Data.Hashable.Class.Hashable Amazonka.Redshift.DescribeReservedNodeExchangeStatus.DescribeReservedNodeExchangeStatus
+ Amazonka.Redshift.DescribeReservedNodeExchangeStatus: instance GHC.Classes.Eq Amazonka.Redshift.DescribeReservedNodeExchangeStatus.DescribeReservedNodeExchangeStatus
+ Amazonka.Redshift.DescribeReservedNodeExchangeStatus: instance GHC.Classes.Eq Amazonka.Redshift.DescribeReservedNodeExchangeStatus.DescribeReservedNodeExchangeStatusResponse
+ Amazonka.Redshift.DescribeReservedNodeExchangeStatus: instance GHC.Generics.Generic Amazonka.Redshift.DescribeReservedNodeExchangeStatus.DescribeReservedNodeExchangeStatus
+ Amazonka.Redshift.DescribeReservedNodeExchangeStatus: instance GHC.Generics.Generic Amazonka.Redshift.DescribeReservedNodeExchangeStatus.DescribeReservedNodeExchangeStatusResponse
+ Amazonka.Redshift.DescribeReservedNodeExchangeStatus: instance GHC.Read.Read Amazonka.Redshift.DescribeReservedNodeExchangeStatus.DescribeReservedNodeExchangeStatus
+ Amazonka.Redshift.DescribeReservedNodeExchangeStatus: instance GHC.Read.Read Amazonka.Redshift.DescribeReservedNodeExchangeStatus.DescribeReservedNodeExchangeStatusResponse
+ Amazonka.Redshift.DescribeReservedNodeExchangeStatus: instance GHC.Show.Show Amazonka.Redshift.DescribeReservedNodeExchangeStatus.DescribeReservedNodeExchangeStatus
+ Amazonka.Redshift.DescribeReservedNodeExchangeStatus: instance GHC.Show.Show Amazonka.Redshift.DescribeReservedNodeExchangeStatus.DescribeReservedNodeExchangeStatusResponse
+ Amazonka.Redshift.DescribeReservedNodeExchangeStatus: newDescribeReservedNodeExchangeStatus :: DescribeReservedNodeExchangeStatus
+ Amazonka.Redshift.DescribeReservedNodeExchangeStatus: newDescribeReservedNodeExchangeStatusResponse :: Int -> DescribeReservedNodeExchangeStatusResponse
+ Amazonka.Redshift.DescribeReservedNodeOfferings: DescribeReservedNodeOfferings' :: Maybe Text -> Maybe Int -> Maybe Text -> DescribeReservedNodeOfferings
+ Amazonka.Redshift.DescribeReservedNodeOfferings: DescribeReservedNodeOfferingsResponse' :: Maybe Text -> Maybe [ReservedNodeOffering] -> Int -> DescribeReservedNodeOfferingsResponse
+ Amazonka.Redshift.DescribeReservedNodeOfferings: [$sel:httpStatus:DescribeReservedNodeOfferingsResponse'] :: DescribeReservedNodeOfferingsResponse -> Int
+ Amazonka.Redshift.DescribeReservedNodeOfferings: [$sel:marker:DescribeReservedNodeOfferings'] :: DescribeReservedNodeOfferings -> Maybe Text
+ Amazonka.Redshift.DescribeReservedNodeOfferings: [$sel:marker:DescribeReservedNodeOfferingsResponse'] :: DescribeReservedNodeOfferingsResponse -> Maybe Text
+ Amazonka.Redshift.DescribeReservedNodeOfferings: [$sel:maxRecords:DescribeReservedNodeOfferings'] :: DescribeReservedNodeOfferings -> Maybe Int
+ Amazonka.Redshift.DescribeReservedNodeOfferings: [$sel:reservedNodeOfferingId:DescribeReservedNodeOfferings'] :: DescribeReservedNodeOfferings -> Maybe Text
+ Amazonka.Redshift.DescribeReservedNodeOfferings: [$sel:reservedNodeOfferings:DescribeReservedNodeOfferingsResponse'] :: DescribeReservedNodeOfferingsResponse -> Maybe [ReservedNodeOffering]
+ Amazonka.Redshift.DescribeReservedNodeOfferings: data DescribeReservedNodeOfferings
+ Amazonka.Redshift.DescribeReservedNodeOfferings: data DescribeReservedNodeOfferingsResponse
+ Amazonka.Redshift.DescribeReservedNodeOfferings: describeReservedNodeOfferingsResponse_httpStatus :: Lens' DescribeReservedNodeOfferingsResponse Int
+ Amazonka.Redshift.DescribeReservedNodeOfferings: describeReservedNodeOfferingsResponse_marker :: Lens' DescribeReservedNodeOfferingsResponse (Maybe Text)
+ Amazonka.Redshift.DescribeReservedNodeOfferings: describeReservedNodeOfferingsResponse_reservedNodeOfferings :: Lens' DescribeReservedNodeOfferingsResponse (Maybe [ReservedNodeOffering])
+ Amazonka.Redshift.DescribeReservedNodeOfferings: describeReservedNodeOfferings_marker :: Lens' DescribeReservedNodeOfferings (Maybe Text)
+ Amazonka.Redshift.DescribeReservedNodeOfferings: describeReservedNodeOfferings_maxRecords :: Lens' DescribeReservedNodeOfferings (Maybe Int)
+ Amazonka.Redshift.DescribeReservedNodeOfferings: describeReservedNodeOfferings_reservedNodeOfferingId :: Lens' DescribeReservedNodeOfferings (Maybe Text)
+ Amazonka.Redshift.DescribeReservedNodeOfferings: instance Amazonka.Data.Headers.ToHeaders Amazonka.Redshift.DescribeReservedNodeOfferings.DescribeReservedNodeOfferings
+ Amazonka.Redshift.DescribeReservedNodeOfferings: instance Amazonka.Data.Path.ToPath Amazonka.Redshift.DescribeReservedNodeOfferings.DescribeReservedNodeOfferings
+ Amazonka.Redshift.DescribeReservedNodeOfferings: instance Amazonka.Data.Query.ToQuery Amazonka.Redshift.DescribeReservedNodeOfferings.DescribeReservedNodeOfferings
+ Amazonka.Redshift.DescribeReservedNodeOfferings: instance Amazonka.Pager.AWSPager Amazonka.Redshift.DescribeReservedNodeOfferings.DescribeReservedNodeOfferings
+ Amazonka.Redshift.DescribeReservedNodeOfferings: instance Amazonka.Types.AWSRequest Amazonka.Redshift.DescribeReservedNodeOfferings.DescribeReservedNodeOfferings
+ Amazonka.Redshift.DescribeReservedNodeOfferings: instance Control.DeepSeq.NFData Amazonka.Redshift.DescribeReservedNodeOfferings.DescribeReservedNodeOfferings
+ Amazonka.Redshift.DescribeReservedNodeOfferings: instance Control.DeepSeq.NFData Amazonka.Redshift.DescribeReservedNodeOfferings.DescribeReservedNodeOfferingsResponse
+ Amazonka.Redshift.DescribeReservedNodeOfferings: instance Data.Hashable.Class.Hashable Amazonka.Redshift.DescribeReservedNodeOfferings.DescribeReservedNodeOfferings
+ Amazonka.Redshift.DescribeReservedNodeOfferings: instance GHC.Classes.Eq Amazonka.Redshift.DescribeReservedNodeOfferings.DescribeReservedNodeOfferings
+ Amazonka.Redshift.DescribeReservedNodeOfferings: instance GHC.Classes.Eq Amazonka.Redshift.DescribeReservedNodeOfferings.DescribeReservedNodeOfferingsResponse
+ Amazonka.Redshift.DescribeReservedNodeOfferings: instance GHC.Generics.Generic Amazonka.Redshift.DescribeReservedNodeOfferings.DescribeReservedNodeOfferings
+ Amazonka.Redshift.DescribeReservedNodeOfferings: instance GHC.Generics.Generic Amazonka.Redshift.DescribeReservedNodeOfferings.DescribeReservedNodeOfferingsResponse
+ Amazonka.Redshift.DescribeReservedNodeOfferings: instance GHC.Read.Read Amazonka.Redshift.DescribeReservedNodeOfferings.DescribeReservedNodeOfferings
+ Amazonka.Redshift.DescribeReservedNodeOfferings: instance GHC.Read.Read Amazonka.Redshift.DescribeReservedNodeOfferings.DescribeReservedNodeOfferingsResponse
+ Amazonka.Redshift.DescribeReservedNodeOfferings: instance GHC.Show.Show Amazonka.Redshift.DescribeReservedNodeOfferings.DescribeReservedNodeOfferings
+ Amazonka.Redshift.DescribeReservedNodeOfferings: instance GHC.Show.Show Amazonka.Redshift.DescribeReservedNodeOfferings.DescribeReservedNodeOfferingsResponse
+ Amazonka.Redshift.DescribeReservedNodeOfferings: newDescribeReservedNodeOfferings :: DescribeReservedNodeOfferings
+ Amazonka.Redshift.DescribeReservedNodeOfferings: newDescribeReservedNodeOfferingsResponse :: Int -> DescribeReservedNodeOfferingsResponse
+ Amazonka.Redshift.DescribeReservedNodes: DescribeReservedNodes' :: Maybe Text -> Maybe Int -> Maybe Text -> DescribeReservedNodes
+ Amazonka.Redshift.DescribeReservedNodes: DescribeReservedNodesResponse' :: Maybe Text -> Maybe [ReservedNode] -> Int -> DescribeReservedNodesResponse
+ Amazonka.Redshift.DescribeReservedNodes: [$sel:httpStatus:DescribeReservedNodesResponse'] :: DescribeReservedNodesResponse -> Int
+ Amazonka.Redshift.DescribeReservedNodes: [$sel:marker:DescribeReservedNodes'] :: DescribeReservedNodes -> Maybe Text
+ Amazonka.Redshift.DescribeReservedNodes: [$sel:marker:DescribeReservedNodesResponse'] :: DescribeReservedNodesResponse -> Maybe Text
+ Amazonka.Redshift.DescribeReservedNodes: [$sel:maxRecords:DescribeReservedNodes'] :: DescribeReservedNodes -> Maybe Int
+ Amazonka.Redshift.DescribeReservedNodes: [$sel:reservedNodeId:DescribeReservedNodes'] :: DescribeReservedNodes -> Maybe Text
+ Amazonka.Redshift.DescribeReservedNodes: [$sel:reservedNodes:DescribeReservedNodesResponse'] :: DescribeReservedNodesResponse -> Maybe [ReservedNode]
+ Amazonka.Redshift.DescribeReservedNodes: data DescribeReservedNodes
+ Amazonka.Redshift.DescribeReservedNodes: data DescribeReservedNodesResponse
+ Amazonka.Redshift.DescribeReservedNodes: describeReservedNodesResponse_httpStatus :: Lens' DescribeReservedNodesResponse Int
+ Amazonka.Redshift.DescribeReservedNodes: describeReservedNodesResponse_marker :: Lens' DescribeReservedNodesResponse (Maybe Text)
+ Amazonka.Redshift.DescribeReservedNodes: describeReservedNodesResponse_reservedNodes :: Lens' DescribeReservedNodesResponse (Maybe [ReservedNode])
+ Amazonka.Redshift.DescribeReservedNodes: describeReservedNodes_marker :: Lens' DescribeReservedNodes (Maybe Text)
+ Amazonka.Redshift.DescribeReservedNodes: describeReservedNodes_maxRecords :: Lens' DescribeReservedNodes (Maybe Int)
+ Amazonka.Redshift.DescribeReservedNodes: describeReservedNodes_reservedNodeId :: Lens' DescribeReservedNodes (Maybe Text)
+ Amazonka.Redshift.DescribeReservedNodes: instance Amazonka.Data.Headers.ToHeaders Amazonka.Redshift.DescribeReservedNodes.DescribeReservedNodes
+ Amazonka.Redshift.DescribeReservedNodes: instance Amazonka.Data.Path.ToPath Amazonka.Redshift.DescribeReservedNodes.DescribeReservedNodes
+ Amazonka.Redshift.DescribeReservedNodes: instance Amazonka.Data.Query.ToQuery Amazonka.Redshift.DescribeReservedNodes.DescribeReservedNodes
+ Amazonka.Redshift.DescribeReservedNodes: instance Amazonka.Pager.AWSPager Amazonka.Redshift.DescribeReservedNodes.DescribeReservedNodes
+ Amazonka.Redshift.DescribeReservedNodes: instance Amazonka.Types.AWSRequest Amazonka.Redshift.DescribeReservedNodes.DescribeReservedNodes
+ Amazonka.Redshift.DescribeReservedNodes: instance Control.DeepSeq.NFData Amazonka.Redshift.DescribeReservedNodes.DescribeReservedNodes
+ Amazonka.Redshift.DescribeReservedNodes: instance Control.DeepSeq.NFData Amazonka.Redshift.DescribeReservedNodes.DescribeReservedNodesResponse
+ Amazonka.Redshift.DescribeReservedNodes: instance Data.Hashable.Class.Hashable Amazonka.Redshift.DescribeReservedNodes.DescribeReservedNodes
+ Amazonka.Redshift.DescribeReservedNodes: instance GHC.Classes.Eq Amazonka.Redshift.DescribeReservedNodes.DescribeReservedNodes
+ Amazonka.Redshift.DescribeReservedNodes: instance GHC.Classes.Eq Amazonka.Redshift.DescribeReservedNodes.DescribeReservedNodesResponse
+ Amazonka.Redshift.DescribeReservedNodes: instance GHC.Generics.Generic Amazonka.Redshift.DescribeReservedNodes.DescribeReservedNodes
+ Amazonka.Redshift.DescribeReservedNodes: instance GHC.Generics.Generic Amazonka.Redshift.DescribeReservedNodes.DescribeReservedNodesResponse
+ Amazonka.Redshift.DescribeReservedNodes: instance GHC.Read.Read Amazonka.Redshift.DescribeReservedNodes.DescribeReservedNodes
+ Amazonka.Redshift.DescribeReservedNodes: instance GHC.Read.Read Amazonka.Redshift.DescribeReservedNodes.DescribeReservedNodesResponse
+ Amazonka.Redshift.DescribeReservedNodes: instance GHC.Show.Show Amazonka.Redshift.DescribeReservedNodes.DescribeReservedNodes
+ Amazonka.Redshift.DescribeReservedNodes: instance GHC.Show.Show Amazonka.Redshift.DescribeReservedNodes.DescribeReservedNodesResponse
+ Amazonka.Redshift.DescribeReservedNodes: newDescribeReservedNodes :: DescribeReservedNodes
+ Amazonka.Redshift.DescribeReservedNodes: newDescribeReservedNodesResponse :: Int -> DescribeReservedNodesResponse
+ Amazonka.Redshift.DescribeResize: DescribeResize' :: Text -> DescribeResize
+ Amazonka.Redshift.DescribeResize: ResizeProgressMessage' :: Maybe Double -> Maybe Double -> Maybe Integer -> Maybe Integer -> Maybe [Text] -> Maybe [Text] -> Maybe [Text] -> Maybe Text -> Maybe Integer -> Maybe Text -> Maybe Text -> Maybe Text -> Maybe Text -> Maybe Text -> Maybe Int -> Maybe Integer -> ResizeProgressMessage
+ Amazonka.Redshift.DescribeResize: [$sel:avgResizeRateInMegaBytesPerSecond:ResizeProgressMessage'] :: ResizeProgressMessage -> Maybe Double
+ Amazonka.Redshift.DescribeResize: [$sel:clusterIdentifier:DescribeResize'] :: DescribeResize -> Text
+ Amazonka.Redshift.DescribeResize: [$sel:dataTransferProgressPercent:ResizeProgressMessage'] :: ResizeProgressMessage -> Maybe Double
+ Amazonka.Redshift.DescribeResize: [$sel:elapsedTimeInSeconds:ResizeProgressMessage'] :: ResizeProgressMessage -> Maybe Integer
+ Amazonka.Redshift.DescribeResize: [$sel:estimatedTimeToCompletionInSeconds:ResizeProgressMessage'] :: ResizeProgressMessage -> Maybe Integer
+ Amazonka.Redshift.DescribeResize: [$sel:importTablesCompleted:ResizeProgressMessage'] :: ResizeProgressMessage -> Maybe [Text]
+ Amazonka.Redshift.DescribeResize: [$sel:importTablesInProgress:ResizeProgressMessage'] :: ResizeProgressMessage -> Maybe [Text]
+ Amazonka.Redshift.DescribeResize: [$sel:importTablesNotStarted:ResizeProgressMessage'] :: ResizeProgressMessage -> Maybe [Text]
+ Amazonka.Redshift.DescribeResize: [$sel:message:ResizeProgressMessage'] :: ResizeProgressMessage -> Maybe Text
+ Amazonka.Redshift.DescribeResize: [$sel:progressInMegaBytes:ResizeProgressMessage'] :: ResizeProgressMessage -> Maybe Integer
+ Amazonka.Redshift.DescribeResize: [$sel:resizeType:ResizeProgressMessage'] :: ResizeProgressMessage -> Maybe Text
+ Amazonka.Redshift.DescribeResize: [$sel:status:ResizeProgressMessage'] :: ResizeProgressMessage -> Maybe Text
+ Amazonka.Redshift.DescribeResize: [$sel:targetClusterType:ResizeProgressMessage'] :: ResizeProgressMessage -> Maybe Text
+ Amazonka.Redshift.DescribeResize: [$sel:targetEncryptionType:ResizeProgressMessage'] :: ResizeProgressMessage -> Maybe Text
+ Amazonka.Redshift.DescribeResize: [$sel:targetNodeType:ResizeProgressMessage'] :: ResizeProgressMessage -> Maybe Text
+ Amazonka.Redshift.DescribeResize: [$sel:targetNumberOfNodes:ResizeProgressMessage'] :: ResizeProgressMessage -> Maybe Int
+ Amazonka.Redshift.DescribeResize: [$sel:totalResizeDataInMegaBytes:ResizeProgressMessage'] :: ResizeProgressMessage -> Maybe Integer
+ Amazonka.Redshift.DescribeResize: data DescribeResize
+ Amazonka.Redshift.DescribeResize: data ResizeProgressMessage
+ Amazonka.Redshift.DescribeResize: describeResize_clusterIdentifier :: Lens' DescribeResize Text
+ Amazonka.Redshift.DescribeResize: instance Amazonka.Data.Headers.ToHeaders Amazonka.Redshift.DescribeResize.DescribeResize
+ Amazonka.Redshift.DescribeResize: instance Amazonka.Data.Path.ToPath Amazonka.Redshift.DescribeResize.DescribeResize
+ Amazonka.Redshift.DescribeResize: instance Amazonka.Data.Query.ToQuery Amazonka.Redshift.DescribeResize.DescribeResize
+ Amazonka.Redshift.DescribeResize: instance Amazonka.Types.AWSRequest Amazonka.Redshift.DescribeResize.DescribeResize
+ Amazonka.Redshift.DescribeResize: instance Control.DeepSeq.NFData Amazonka.Redshift.DescribeResize.DescribeResize
+ Amazonka.Redshift.DescribeResize: instance Data.Hashable.Class.Hashable Amazonka.Redshift.DescribeResize.DescribeResize
+ Amazonka.Redshift.DescribeResize: instance GHC.Classes.Eq Amazonka.Redshift.DescribeResize.DescribeResize
+ Amazonka.Redshift.DescribeResize: instance GHC.Generics.Generic Amazonka.Redshift.DescribeResize.DescribeResize
+ Amazonka.Redshift.DescribeResize: instance GHC.Read.Read Amazonka.Redshift.DescribeResize.DescribeResize
+ Amazonka.Redshift.DescribeResize: instance GHC.Show.Show Amazonka.Redshift.DescribeResize.DescribeResize
+ Amazonka.Redshift.DescribeResize: newDescribeResize :: Text -> DescribeResize
+ Amazonka.Redshift.DescribeResize: newResizeProgressMessage :: ResizeProgressMessage
+ Amazonka.Redshift.DescribeResize: resizeProgressMessage_avgResizeRateInMegaBytesPerSecond :: Lens' ResizeProgressMessage (Maybe Double)
+ Amazonka.Redshift.DescribeResize: resizeProgressMessage_dataTransferProgressPercent :: Lens' ResizeProgressMessage (Maybe Double)
+ Amazonka.Redshift.DescribeResize: resizeProgressMessage_elapsedTimeInSeconds :: Lens' ResizeProgressMessage (Maybe Integer)
+ Amazonka.Redshift.DescribeResize: resizeProgressMessage_estimatedTimeToCompletionInSeconds :: Lens' ResizeProgressMessage (Maybe Integer)
+ Amazonka.Redshift.DescribeResize: resizeProgressMessage_importTablesCompleted :: Lens' ResizeProgressMessage (Maybe [Text])
+ Amazonka.Redshift.DescribeResize: resizeProgressMessage_importTablesInProgress :: Lens' ResizeProgressMessage (Maybe [Text])
+ Amazonka.Redshift.DescribeResize: resizeProgressMessage_importTablesNotStarted :: Lens' ResizeProgressMessage (Maybe [Text])
+ Amazonka.Redshift.DescribeResize: resizeProgressMessage_message :: Lens' ResizeProgressMessage (Maybe Text)
+ Amazonka.Redshift.DescribeResize: resizeProgressMessage_progressInMegaBytes :: Lens' ResizeProgressMessage (Maybe Integer)
+ Amazonka.Redshift.DescribeResize: resizeProgressMessage_resizeType :: Lens' ResizeProgressMessage (Maybe Text)
+ Amazonka.Redshift.DescribeResize: resizeProgressMessage_status :: Lens' ResizeProgressMessage (Maybe Text)
+ Amazonka.Redshift.DescribeResize: resizeProgressMessage_targetClusterType :: Lens' ResizeProgressMessage (Maybe Text)
+ Amazonka.Redshift.DescribeResize: resizeProgressMessage_targetEncryptionType :: Lens' ResizeProgressMessage (Maybe Text)
+ Amazonka.Redshift.DescribeResize: resizeProgressMessage_targetNodeType :: Lens' ResizeProgressMessage (Maybe Text)
+ Amazonka.Redshift.DescribeResize: resizeProgressMessage_targetNumberOfNodes :: Lens' ResizeProgressMessage (Maybe Int)
+ Amazonka.Redshift.DescribeResize: resizeProgressMessage_totalResizeDataInMegaBytes :: Lens' ResizeProgressMessage (Maybe Integer)
+ Amazonka.Redshift.DescribeScheduledActions: DescribeScheduledActions' :: Maybe Bool -> Maybe ISO8601 -> Maybe [ScheduledActionFilter] -> Maybe Text -> Maybe Int -> Maybe Text -> Maybe ISO8601 -> Maybe ScheduledActionTypeValues -> DescribeScheduledActions
+ Amazonka.Redshift.DescribeScheduledActions: DescribeScheduledActionsResponse' :: Maybe Text -> Maybe [ScheduledAction] -> Int -> DescribeScheduledActionsResponse
+ Amazonka.Redshift.DescribeScheduledActions: [$sel:active:DescribeScheduledActions'] :: DescribeScheduledActions -> Maybe Bool
+ Amazonka.Redshift.DescribeScheduledActions: [$sel:endTime:DescribeScheduledActions'] :: DescribeScheduledActions -> Maybe ISO8601
+ Amazonka.Redshift.DescribeScheduledActions: [$sel:filters:DescribeScheduledActions'] :: DescribeScheduledActions -> Maybe [ScheduledActionFilter]
+ Amazonka.Redshift.DescribeScheduledActions: [$sel:httpStatus:DescribeScheduledActionsResponse'] :: DescribeScheduledActionsResponse -> Int
+ Amazonka.Redshift.DescribeScheduledActions: [$sel:marker:DescribeScheduledActions'] :: DescribeScheduledActions -> Maybe Text
+ Amazonka.Redshift.DescribeScheduledActions: [$sel:marker:DescribeScheduledActionsResponse'] :: DescribeScheduledActionsResponse -> Maybe Text
+ Amazonka.Redshift.DescribeScheduledActions: [$sel:maxRecords:DescribeScheduledActions'] :: DescribeScheduledActions -> Maybe Int
+ Amazonka.Redshift.DescribeScheduledActions: [$sel:scheduledActionName:DescribeScheduledActions'] :: DescribeScheduledActions -> Maybe Text
+ Amazonka.Redshift.DescribeScheduledActions: [$sel:scheduledActions:DescribeScheduledActionsResponse'] :: DescribeScheduledActionsResponse -> Maybe [ScheduledAction]
+ Amazonka.Redshift.DescribeScheduledActions: [$sel:startTime:DescribeScheduledActions'] :: DescribeScheduledActions -> Maybe ISO8601
+ Amazonka.Redshift.DescribeScheduledActions: [$sel:targetActionType:DescribeScheduledActions'] :: DescribeScheduledActions -> Maybe ScheduledActionTypeValues
+ Amazonka.Redshift.DescribeScheduledActions: data DescribeScheduledActions
+ Amazonka.Redshift.DescribeScheduledActions: data DescribeScheduledActionsResponse
+ Amazonka.Redshift.DescribeScheduledActions: describeScheduledActionsResponse_httpStatus :: Lens' DescribeScheduledActionsResponse Int
+ Amazonka.Redshift.DescribeScheduledActions: describeScheduledActionsResponse_marker :: Lens' DescribeScheduledActionsResponse (Maybe Text)
+ Amazonka.Redshift.DescribeScheduledActions: describeScheduledActionsResponse_scheduledActions :: Lens' DescribeScheduledActionsResponse (Maybe [ScheduledAction])
+ Amazonka.Redshift.DescribeScheduledActions: describeScheduledActions_active :: Lens' DescribeScheduledActions (Maybe Bool)
+ Amazonka.Redshift.DescribeScheduledActions: describeScheduledActions_endTime :: Lens' DescribeScheduledActions (Maybe UTCTime)
+ Amazonka.Redshift.DescribeScheduledActions: describeScheduledActions_filters :: Lens' DescribeScheduledActions (Maybe [ScheduledActionFilter])
+ Amazonka.Redshift.DescribeScheduledActions: describeScheduledActions_marker :: Lens' DescribeScheduledActions (Maybe Text)
+ Amazonka.Redshift.DescribeScheduledActions: describeScheduledActions_maxRecords :: Lens' DescribeScheduledActions (Maybe Int)
+ Amazonka.Redshift.DescribeScheduledActions: describeScheduledActions_scheduledActionName :: Lens' DescribeScheduledActions (Maybe Text)
+ Amazonka.Redshift.DescribeScheduledActions: describeScheduledActions_startTime :: Lens' DescribeScheduledActions (Maybe UTCTime)
+ Amazonka.Redshift.DescribeScheduledActions: describeScheduledActions_targetActionType :: Lens' DescribeScheduledActions (Maybe ScheduledActionTypeValues)
+ Amazonka.Redshift.DescribeScheduledActions: instance Amazonka.Data.Headers.ToHeaders Amazonka.Redshift.DescribeScheduledActions.DescribeScheduledActions
+ Amazonka.Redshift.DescribeScheduledActions: instance Amazonka.Data.Path.ToPath Amazonka.Redshift.DescribeScheduledActions.DescribeScheduledActions
+ Amazonka.Redshift.DescribeScheduledActions: instance Amazonka.Data.Query.ToQuery Amazonka.Redshift.DescribeScheduledActions.DescribeScheduledActions
+ Amazonka.Redshift.DescribeScheduledActions: instance Amazonka.Pager.AWSPager Amazonka.Redshift.DescribeScheduledActions.DescribeScheduledActions
+ Amazonka.Redshift.DescribeScheduledActions: instance Amazonka.Types.AWSRequest Amazonka.Redshift.DescribeScheduledActions.DescribeScheduledActions
+ Amazonka.Redshift.DescribeScheduledActions: instance Control.DeepSeq.NFData Amazonka.Redshift.DescribeScheduledActions.DescribeScheduledActions
+ Amazonka.Redshift.DescribeScheduledActions: instance Control.DeepSeq.NFData Amazonka.Redshift.DescribeScheduledActions.DescribeScheduledActionsResponse
+ Amazonka.Redshift.DescribeScheduledActions: instance Data.Hashable.Class.Hashable Amazonka.Redshift.DescribeScheduledActions.DescribeScheduledActions
+ Amazonka.Redshift.DescribeScheduledActions: instance GHC.Classes.Eq Amazonka.Redshift.DescribeScheduledActions.DescribeScheduledActions
+ Amazonka.Redshift.DescribeScheduledActions: instance GHC.Classes.Eq Amazonka.Redshift.DescribeScheduledActions.DescribeScheduledActionsResponse
+ Amazonka.Redshift.DescribeScheduledActions: instance GHC.Generics.Generic Amazonka.Redshift.DescribeScheduledActions.DescribeScheduledActions
+ Amazonka.Redshift.DescribeScheduledActions: instance GHC.Generics.Generic Amazonka.Redshift.DescribeScheduledActions.DescribeScheduledActionsResponse
+ Amazonka.Redshift.DescribeScheduledActions: instance GHC.Read.Read Amazonka.Redshift.DescribeScheduledActions.DescribeScheduledActions
+ Amazonka.Redshift.DescribeScheduledActions: instance GHC.Read.Read Amazonka.Redshift.DescribeScheduledActions.DescribeScheduledActionsResponse
+ Amazonka.Redshift.DescribeScheduledActions: instance GHC.Show.Show Amazonka.Redshift.DescribeScheduledActions.DescribeScheduledActions
+ Amazonka.Redshift.DescribeScheduledActions: instance GHC.Show.Show Amazonka.Redshift.DescribeScheduledActions.DescribeScheduledActionsResponse
+ Amazonka.Redshift.DescribeScheduledActions: newDescribeScheduledActions :: DescribeScheduledActions
+ Amazonka.Redshift.DescribeScheduledActions: newDescribeScheduledActionsResponse :: Int -> DescribeScheduledActionsResponse
+ Amazonka.Redshift.DescribeSnapshotCopyGrants: DescribeSnapshotCopyGrants' :: Maybe Text -> Maybe Int -> Maybe Text -> Maybe [Text] -> Maybe [Text] -> DescribeSnapshotCopyGrants
+ Amazonka.Redshift.DescribeSnapshotCopyGrants: DescribeSnapshotCopyGrantsResponse' :: Maybe Text -> Maybe [SnapshotCopyGrant] -> Int -> DescribeSnapshotCopyGrantsResponse
+ Amazonka.Redshift.DescribeSnapshotCopyGrants: [$sel:httpStatus:DescribeSnapshotCopyGrantsResponse'] :: DescribeSnapshotCopyGrantsResponse -> Int
+ Amazonka.Redshift.DescribeSnapshotCopyGrants: [$sel:marker:DescribeSnapshotCopyGrants'] :: DescribeSnapshotCopyGrants -> Maybe Text
+ Amazonka.Redshift.DescribeSnapshotCopyGrants: [$sel:marker:DescribeSnapshotCopyGrantsResponse'] :: DescribeSnapshotCopyGrantsResponse -> Maybe Text
+ Amazonka.Redshift.DescribeSnapshotCopyGrants: [$sel:maxRecords:DescribeSnapshotCopyGrants'] :: DescribeSnapshotCopyGrants -> Maybe Int
+ Amazonka.Redshift.DescribeSnapshotCopyGrants: [$sel:snapshotCopyGrantName:DescribeSnapshotCopyGrants'] :: DescribeSnapshotCopyGrants -> Maybe Text
+ Amazonka.Redshift.DescribeSnapshotCopyGrants: [$sel:snapshotCopyGrants:DescribeSnapshotCopyGrantsResponse'] :: DescribeSnapshotCopyGrantsResponse -> Maybe [SnapshotCopyGrant]
+ Amazonka.Redshift.DescribeSnapshotCopyGrants: [$sel:tagKeys:DescribeSnapshotCopyGrants'] :: DescribeSnapshotCopyGrants -> Maybe [Text]
+ Amazonka.Redshift.DescribeSnapshotCopyGrants: [$sel:tagValues:DescribeSnapshotCopyGrants'] :: DescribeSnapshotCopyGrants -> Maybe [Text]
+ Amazonka.Redshift.DescribeSnapshotCopyGrants: data DescribeSnapshotCopyGrants
+ Amazonka.Redshift.DescribeSnapshotCopyGrants: data DescribeSnapshotCopyGrantsResponse
+ Amazonka.Redshift.DescribeSnapshotCopyGrants: describeSnapshotCopyGrantsResponse_httpStatus :: Lens' DescribeSnapshotCopyGrantsResponse Int
+ Amazonka.Redshift.DescribeSnapshotCopyGrants: describeSnapshotCopyGrantsResponse_marker :: Lens' DescribeSnapshotCopyGrantsResponse (Maybe Text)
+ Amazonka.Redshift.DescribeSnapshotCopyGrants: describeSnapshotCopyGrantsResponse_snapshotCopyGrants :: Lens' DescribeSnapshotCopyGrantsResponse (Maybe [SnapshotCopyGrant])
+ Amazonka.Redshift.DescribeSnapshotCopyGrants: describeSnapshotCopyGrants_marker :: Lens' DescribeSnapshotCopyGrants (Maybe Text)
+ Amazonka.Redshift.DescribeSnapshotCopyGrants: describeSnapshotCopyGrants_maxRecords :: Lens' DescribeSnapshotCopyGrants (Maybe Int)
+ Amazonka.Redshift.DescribeSnapshotCopyGrants: describeSnapshotCopyGrants_snapshotCopyGrantName :: Lens' DescribeSnapshotCopyGrants (Maybe Text)
+ Amazonka.Redshift.DescribeSnapshotCopyGrants: describeSnapshotCopyGrants_tagKeys :: Lens' DescribeSnapshotCopyGrants (Maybe [Text])
+ Amazonka.Redshift.DescribeSnapshotCopyGrants: describeSnapshotCopyGrants_tagValues :: Lens' DescribeSnapshotCopyGrants (Maybe [Text])
+ Amazonka.Redshift.DescribeSnapshotCopyGrants: instance Amazonka.Data.Headers.ToHeaders Amazonka.Redshift.DescribeSnapshotCopyGrants.DescribeSnapshotCopyGrants
+ Amazonka.Redshift.DescribeSnapshotCopyGrants: instance Amazonka.Data.Path.ToPath Amazonka.Redshift.DescribeSnapshotCopyGrants.DescribeSnapshotCopyGrants
+ Amazonka.Redshift.DescribeSnapshotCopyGrants: instance Amazonka.Data.Query.ToQuery Amazonka.Redshift.DescribeSnapshotCopyGrants.DescribeSnapshotCopyGrants
+ Amazonka.Redshift.DescribeSnapshotCopyGrants: instance Amazonka.Pager.AWSPager Amazonka.Redshift.DescribeSnapshotCopyGrants.DescribeSnapshotCopyGrants
+ Amazonka.Redshift.DescribeSnapshotCopyGrants: instance Amazonka.Types.AWSRequest Amazonka.Redshift.DescribeSnapshotCopyGrants.DescribeSnapshotCopyGrants
+ Amazonka.Redshift.DescribeSnapshotCopyGrants: instance Control.DeepSeq.NFData Amazonka.Redshift.DescribeSnapshotCopyGrants.DescribeSnapshotCopyGrants
+ Amazonka.Redshift.DescribeSnapshotCopyGrants: instance Control.DeepSeq.NFData Amazonka.Redshift.DescribeSnapshotCopyGrants.DescribeSnapshotCopyGrantsResponse
+ Amazonka.Redshift.DescribeSnapshotCopyGrants: instance Data.Hashable.Class.Hashable Amazonka.Redshift.DescribeSnapshotCopyGrants.DescribeSnapshotCopyGrants
+ Amazonka.Redshift.DescribeSnapshotCopyGrants: instance GHC.Classes.Eq Amazonka.Redshift.DescribeSnapshotCopyGrants.DescribeSnapshotCopyGrants
+ Amazonka.Redshift.DescribeSnapshotCopyGrants: instance GHC.Classes.Eq Amazonka.Redshift.DescribeSnapshotCopyGrants.DescribeSnapshotCopyGrantsResponse
+ Amazonka.Redshift.DescribeSnapshotCopyGrants: instance GHC.Generics.Generic Amazonka.Redshift.DescribeSnapshotCopyGrants.DescribeSnapshotCopyGrants
+ Amazonka.Redshift.DescribeSnapshotCopyGrants: instance GHC.Generics.Generic Amazonka.Redshift.DescribeSnapshotCopyGrants.DescribeSnapshotCopyGrantsResponse
+ Amazonka.Redshift.DescribeSnapshotCopyGrants: instance GHC.Read.Read Amazonka.Redshift.DescribeSnapshotCopyGrants.DescribeSnapshotCopyGrants
+ Amazonka.Redshift.DescribeSnapshotCopyGrants: instance GHC.Read.Read Amazonka.Redshift.DescribeSnapshotCopyGrants.DescribeSnapshotCopyGrantsResponse
+ Amazonka.Redshift.DescribeSnapshotCopyGrants: instance GHC.Show.Show Amazonka.Redshift.DescribeSnapshotCopyGrants.DescribeSnapshotCopyGrants
+ Amazonka.Redshift.DescribeSnapshotCopyGrants: instance GHC.Show.Show Amazonka.Redshift.DescribeSnapshotCopyGrants.DescribeSnapshotCopyGrantsResponse
+ Amazonka.Redshift.DescribeSnapshotCopyGrants: newDescribeSnapshotCopyGrants :: DescribeSnapshotCopyGrants
+ Amazonka.Redshift.DescribeSnapshotCopyGrants: newDescribeSnapshotCopyGrantsResponse :: Int -> DescribeSnapshotCopyGrantsResponse
+ Amazonka.Redshift.DescribeSnapshotSchedules: DescribeSnapshotSchedules' :: Maybe Text -> Maybe Text -> Maybe Int -> Maybe Text -> Maybe [Text] -> Maybe [Text] -> DescribeSnapshotSchedules
+ Amazonka.Redshift.DescribeSnapshotSchedules: DescribeSnapshotSchedulesResponse' :: Maybe Text -> Maybe [SnapshotSchedule] -> Int -> DescribeSnapshotSchedulesResponse
+ Amazonka.Redshift.DescribeSnapshotSchedules: [$sel:clusterIdentifier:DescribeSnapshotSchedules'] :: DescribeSnapshotSchedules -> Maybe Text
+ Amazonka.Redshift.DescribeSnapshotSchedules: [$sel:httpStatus:DescribeSnapshotSchedulesResponse'] :: DescribeSnapshotSchedulesResponse -> Int
+ Amazonka.Redshift.DescribeSnapshotSchedules: [$sel:marker:DescribeSnapshotSchedules'] :: DescribeSnapshotSchedules -> Maybe Text
+ Amazonka.Redshift.DescribeSnapshotSchedules: [$sel:marker:DescribeSnapshotSchedulesResponse'] :: DescribeSnapshotSchedulesResponse -> Maybe Text
+ Amazonka.Redshift.DescribeSnapshotSchedules: [$sel:maxRecords:DescribeSnapshotSchedules'] :: DescribeSnapshotSchedules -> Maybe Int
+ Amazonka.Redshift.DescribeSnapshotSchedules: [$sel:scheduleIdentifier:DescribeSnapshotSchedules'] :: DescribeSnapshotSchedules -> Maybe Text
+ Amazonka.Redshift.DescribeSnapshotSchedules: [$sel:snapshotSchedules:DescribeSnapshotSchedulesResponse'] :: DescribeSnapshotSchedulesResponse -> Maybe [SnapshotSchedule]
+ Amazonka.Redshift.DescribeSnapshotSchedules: [$sel:tagKeys:DescribeSnapshotSchedules'] :: DescribeSnapshotSchedules -> Maybe [Text]
+ Amazonka.Redshift.DescribeSnapshotSchedules: [$sel:tagValues:DescribeSnapshotSchedules'] :: DescribeSnapshotSchedules -> Maybe [Text]
+ Amazonka.Redshift.DescribeSnapshotSchedules: data DescribeSnapshotSchedules
+ Amazonka.Redshift.DescribeSnapshotSchedules: data DescribeSnapshotSchedulesResponse
+ Amazonka.Redshift.DescribeSnapshotSchedules: describeSnapshotSchedulesResponse_httpStatus :: Lens' DescribeSnapshotSchedulesResponse Int
+ Amazonka.Redshift.DescribeSnapshotSchedules: describeSnapshotSchedulesResponse_marker :: Lens' DescribeSnapshotSchedulesResponse (Maybe Text)
+ Amazonka.Redshift.DescribeSnapshotSchedules: describeSnapshotSchedulesResponse_snapshotSchedules :: Lens' DescribeSnapshotSchedulesResponse (Maybe [SnapshotSchedule])
+ Amazonka.Redshift.DescribeSnapshotSchedules: describeSnapshotSchedules_clusterIdentifier :: Lens' DescribeSnapshotSchedules (Maybe Text)
+ Amazonka.Redshift.DescribeSnapshotSchedules: describeSnapshotSchedules_marker :: Lens' DescribeSnapshotSchedules (Maybe Text)
+ Amazonka.Redshift.DescribeSnapshotSchedules: describeSnapshotSchedules_maxRecords :: Lens' DescribeSnapshotSchedules (Maybe Int)
+ Amazonka.Redshift.DescribeSnapshotSchedules: describeSnapshotSchedules_scheduleIdentifier :: Lens' DescribeSnapshotSchedules (Maybe Text)
+ Amazonka.Redshift.DescribeSnapshotSchedules: describeSnapshotSchedules_tagKeys :: Lens' DescribeSnapshotSchedules (Maybe [Text])
+ Amazonka.Redshift.DescribeSnapshotSchedules: describeSnapshotSchedules_tagValues :: Lens' DescribeSnapshotSchedules (Maybe [Text])
+ Amazonka.Redshift.DescribeSnapshotSchedules: instance Amazonka.Data.Headers.ToHeaders Amazonka.Redshift.DescribeSnapshotSchedules.DescribeSnapshotSchedules
+ Amazonka.Redshift.DescribeSnapshotSchedules: instance Amazonka.Data.Path.ToPath Amazonka.Redshift.DescribeSnapshotSchedules.DescribeSnapshotSchedules
+ Amazonka.Redshift.DescribeSnapshotSchedules: instance Amazonka.Data.Query.ToQuery Amazonka.Redshift.DescribeSnapshotSchedules.DescribeSnapshotSchedules
+ Amazonka.Redshift.DescribeSnapshotSchedules: instance Amazonka.Pager.AWSPager Amazonka.Redshift.DescribeSnapshotSchedules.DescribeSnapshotSchedules
+ Amazonka.Redshift.DescribeSnapshotSchedules: instance Amazonka.Types.AWSRequest Amazonka.Redshift.DescribeSnapshotSchedules.DescribeSnapshotSchedules
+ Amazonka.Redshift.DescribeSnapshotSchedules: instance Control.DeepSeq.NFData Amazonka.Redshift.DescribeSnapshotSchedules.DescribeSnapshotSchedules
+ Amazonka.Redshift.DescribeSnapshotSchedules: instance Control.DeepSeq.NFData Amazonka.Redshift.DescribeSnapshotSchedules.DescribeSnapshotSchedulesResponse
+ Amazonka.Redshift.DescribeSnapshotSchedules: instance Data.Hashable.Class.Hashable Amazonka.Redshift.DescribeSnapshotSchedules.DescribeSnapshotSchedules
+ Amazonka.Redshift.DescribeSnapshotSchedules: instance GHC.Classes.Eq Amazonka.Redshift.DescribeSnapshotSchedules.DescribeSnapshotSchedules
+ Amazonka.Redshift.DescribeSnapshotSchedules: instance GHC.Classes.Eq Amazonka.Redshift.DescribeSnapshotSchedules.DescribeSnapshotSchedulesResponse
+ Amazonka.Redshift.DescribeSnapshotSchedules: instance GHC.Generics.Generic Amazonka.Redshift.DescribeSnapshotSchedules.DescribeSnapshotSchedules
+ Amazonka.Redshift.DescribeSnapshotSchedules: instance GHC.Generics.Generic Amazonka.Redshift.DescribeSnapshotSchedules.DescribeSnapshotSchedulesResponse
+ Amazonka.Redshift.DescribeSnapshotSchedules: instance GHC.Read.Read Amazonka.Redshift.DescribeSnapshotSchedules.DescribeSnapshotSchedules
+ Amazonka.Redshift.DescribeSnapshotSchedules: instance GHC.Read.Read Amazonka.Redshift.DescribeSnapshotSchedules.DescribeSnapshotSchedulesResponse
+ Amazonka.Redshift.DescribeSnapshotSchedules: instance GHC.Show.Show Amazonka.Redshift.DescribeSnapshotSchedules.DescribeSnapshotSchedules
+ Amazonka.Redshift.DescribeSnapshotSchedules: instance GHC.Show.Show Amazonka.Redshift.DescribeSnapshotSchedules.DescribeSnapshotSchedulesResponse
+ Amazonka.Redshift.DescribeSnapshotSchedules: newDescribeSnapshotSchedules :: DescribeSnapshotSchedules
+ Amazonka.Redshift.DescribeSnapshotSchedules: newDescribeSnapshotSchedulesResponse :: Int -> DescribeSnapshotSchedulesResponse
+ Amazonka.Redshift.DescribeStorage: DescribeStorage' :: DescribeStorage
+ Amazonka.Redshift.DescribeStorage: DescribeStorageResponse' :: Maybe Double -> Maybe Double -> Int -> DescribeStorageResponse
+ Amazonka.Redshift.DescribeStorage: [$sel:httpStatus:DescribeStorageResponse'] :: DescribeStorageResponse -> Int
+ Amazonka.Redshift.DescribeStorage: [$sel:totalBackupSizeInMegaBytes:DescribeStorageResponse'] :: DescribeStorageResponse -> Maybe Double
+ Amazonka.Redshift.DescribeStorage: [$sel:totalProvisionedStorageInMegaBytes:DescribeStorageResponse'] :: DescribeStorageResponse -> Maybe Double
+ Amazonka.Redshift.DescribeStorage: data DescribeStorage
+ Amazonka.Redshift.DescribeStorage: data DescribeStorageResponse
+ Amazonka.Redshift.DescribeStorage: describeStorageResponse_httpStatus :: Lens' DescribeStorageResponse Int
+ Amazonka.Redshift.DescribeStorage: describeStorageResponse_totalBackupSizeInMegaBytes :: Lens' DescribeStorageResponse (Maybe Double)
+ Amazonka.Redshift.DescribeStorage: describeStorageResponse_totalProvisionedStorageInMegaBytes :: Lens' DescribeStorageResponse (Maybe Double)
+ Amazonka.Redshift.DescribeStorage: instance Amazonka.Data.Headers.ToHeaders Amazonka.Redshift.DescribeStorage.DescribeStorage
+ Amazonka.Redshift.DescribeStorage: instance Amazonka.Data.Path.ToPath Amazonka.Redshift.DescribeStorage.DescribeStorage
+ Amazonka.Redshift.DescribeStorage: instance Amazonka.Data.Query.ToQuery Amazonka.Redshift.DescribeStorage.DescribeStorage
+ Amazonka.Redshift.DescribeStorage: instance Amazonka.Types.AWSRequest Amazonka.Redshift.DescribeStorage.DescribeStorage
+ Amazonka.Redshift.DescribeStorage: instance Control.DeepSeq.NFData Amazonka.Redshift.DescribeStorage.DescribeStorage
+ Amazonka.Redshift.DescribeStorage: instance Control.DeepSeq.NFData Amazonka.Redshift.DescribeStorage.DescribeStorageResponse
+ Amazonka.Redshift.DescribeStorage: instance Data.Hashable.Class.Hashable Amazonka.Redshift.DescribeStorage.DescribeStorage
+ Amazonka.Redshift.DescribeStorage: instance GHC.Classes.Eq Amazonka.Redshift.DescribeStorage.DescribeStorage
+ Amazonka.Redshift.DescribeStorage: instance GHC.Classes.Eq Amazonka.Redshift.DescribeStorage.DescribeStorageResponse
+ Amazonka.Redshift.DescribeStorage: instance GHC.Generics.Generic Amazonka.Redshift.DescribeStorage.DescribeStorage
+ Amazonka.Redshift.DescribeStorage: instance GHC.Generics.Generic Amazonka.Redshift.DescribeStorage.DescribeStorageResponse
+ Amazonka.Redshift.DescribeStorage: instance GHC.Read.Read Amazonka.Redshift.DescribeStorage.DescribeStorage
+ Amazonka.Redshift.DescribeStorage: instance GHC.Read.Read Amazonka.Redshift.DescribeStorage.DescribeStorageResponse
+ Amazonka.Redshift.DescribeStorage: instance GHC.Show.Show Amazonka.Redshift.DescribeStorage.DescribeStorage
+ Amazonka.Redshift.DescribeStorage: instance GHC.Show.Show Amazonka.Redshift.DescribeStorage.DescribeStorageResponse
+ Amazonka.Redshift.DescribeStorage: newDescribeStorage :: DescribeStorage
+ Amazonka.Redshift.DescribeStorage: newDescribeStorageResponse :: Int -> DescribeStorageResponse
+ Amazonka.Redshift.DescribeTableRestoreStatus: DescribeTableRestoreStatus' :: Maybe Text -> Maybe Text -> Maybe Int -> Maybe Text -> DescribeTableRestoreStatus
+ Amazonka.Redshift.DescribeTableRestoreStatus: DescribeTableRestoreStatusResponse' :: Maybe Text -> Maybe [TableRestoreStatus] -> Int -> DescribeTableRestoreStatusResponse
+ Amazonka.Redshift.DescribeTableRestoreStatus: [$sel:clusterIdentifier:DescribeTableRestoreStatus'] :: DescribeTableRestoreStatus -> Maybe Text
+ Amazonka.Redshift.DescribeTableRestoreStatus: [$sel:httpStatus:DescribeTableRestoreStatusResponse'] :: DescribeTableRestoreStatusResponse -> Int
+ Amazonka.Redshift.DescribeTableRestoreStatus: [$sel:marker:DescribeTableRestoreStatus'] :: DescribeTableRestoreStatus -> Maybe Text
+ Amazonka.Redshift.DescribeTableRestoreStatus: [$sel:marker:DescribeTableRestoreStatusResponse'] :: DescribeTableRestoreStatusResponse -> Maybe Text
+ Amazonka.Redshift.DescribeTableRestoreStatus: [$sel:maxRecords:DescribeTableRestoreStatus'] :: DescribeTableRestoreStatus -> Maybe Int
+ Amazonka.Redshift.DescribeTableRestoreStatus: [$sel:tableRestoreRequestId:DescribeTableRestoreStatus'] :: DescribeTableRestoreStatus -> Maybe Text
+ Amazonka.Redshift.DescribeTableRestoreStatus: [$sel:tableRestoreStatusDetails:DescribeTableRestoreStatusResponse'] :: DescribeTableRestoreStatusResponse -> Maybe [TableRestoreStatus]
+ Amazonka.Redshift.DescribeTableRestoreStatus: data DescribeTableRestoreStatus
+ Amazonka.Redshift.DescribeTableRestoreStatus: data DescribeTableRestoreStatusResponse
+ Amazonka.Redshift.DescribeTableRestoreStatus: describeTableRestoreStatusResponse_httpStatus :: Lens' DescribeTableRestoreStatusResponse Int
+ Amazonka.Redshift.DescribeTableRestoreStatus: describeTableRestoreStatusResponse_marker :: Lens' DescribeTableRestoreStatusResponse (Maybe Text)
+ Amazonka.Redshift.DescribeTableRestoreStatus: describeTableRestoreStatusResponse_tableRestoreStatusDetails :: Lens' DescribeTableRestoreStatusResponse (Maybe [TableRestoreStatus])
+ Amazonka.Redshift.DescribeTableRestoreStatus: describeTableRestoreStatus_clusterIdentifier :: Lens' DescribeTableRestoreStatus (Maybe Text)
+ Amazonka.Redshift.DescribeTableRestoreStatus: describeTableRestoreStatus_marker :: Lens' DescribeTableRestoreStatus (Maybe Text)
+ Amazonka.Redshift.DescribeTableRestoreStatus: describeTableRestoreStatus_maxRecords :: Lens' DescribeTableRestoreStatus (Maybe Int)
+ Amazonka.Redshift.DescribeTableRestoreStatus: describeTableRestoreStatus_tableRestoreRequestId :: Lens' DescribeTableRestoreStatus (Maybe Text)
+ Amazonka.Redshift.DescribeTableRestoreStatus: instance Amazonka.Data.Headers.ToHeaders Amazonka.Redshift.DescribeTableRestoreStatus.DescribeTableRestoreStatus
+ Amazonka.Redshift.DescribeTableRestoreStatus: instance Amazonka.Data.Path.ToPath Amazonka.Redshift.DescribeTableRestoreStatus.DescribeTableRestoreStatus
+ Amazonka.Redshift.DescribeTableRestoreStatus: instance Amazonka.Data.Query.ToQuery Amazonka.Redshift.DescribeTableRestoreStatus.DescribeTableRestoreStatus
+ Amazonka.Redshift.DescribeTableRestoreStatus: instance Amazonka.Pager.AWSPager Amazonka.Redshift.DescribeTableRestoreStatus.DescribeTableRestoreStatus
+ Amazonka.Redshift.DescribeTableRestoreStatus: instance Amazonka.Types.AWSRequest Amazonka.Redshift.DescribeTableRestoreStatus.DescribeTableRestoreStatus
+ Amazonka.Redshift.DescribeTableRestoreStatus: instance Control.DeepSeq.NFData Amazonka.Redshift.DescribeTableRestoreStatus.DescribeTableRestoreStatus
+ Amazonka.Redshift.DescribeTableRestoreStatus: instance Control.DeepSeq.NFData Amazonka.Redshift.DescribeTableRestoreStatus.DescribeTableRestoreStatusResponse
+ Amazonka.Redshift.DescribeTableRestoreStatus: instance Data.Hashable.Class.Hashable Amazonka.Redshift.DescribeTableRestoreStatus.DescribeTableRestoreStatus
+ Amazonka.Redshift.DescribeTableRestoreStatus: instance GHC.Classes.Eq Amazonka.Redshift.DescribeTableRestoreStatus.DescribeTableRestoreStatus
+ Amazonka.Redshift.DescribeTableRestoreStatus: instance GHC.Classes.Eq Amazonka.Redshift.DescribeTableRestoreStatus.DescribeTableRestoreStatusResponse
+ Amazonka.Redshift.DescribeTableRestoreStatus: instance GHC.Generics.Generic Amazonka.Redshift.DescribeTableRestoreStatus.DescribeTableRestoreStatus
+ Amazonka.Redshift.DescribeTableRestoreStatus: instance GHC.Generics.Generic Amazonka.Redshift.DescribeTableRestoreStatus.DescribeTableRestoreStatusResponse
+ Amazonka.Redshift.DescribeTableRestoreStatus: instance GHC.Read.Read Amazonka.Redshift.DescribeTableRestoreStatus.DescribeTableRestoreStatus
+ Amazonka.Redshift.DescribeTableRestoreStatus: instance GHC.Read.Read Amazonka.Redshift.DescribeTableRestoreStatus.DescribeTableRestoreStatusResponse
+ Amazonka.Redshift.DescribeTableRestoreStatus: instance GHC.Show.Show Amazonka.Redshift.DescribeTableRestoreStatus.DescribeTableRestoreStatus
+ Amazonka.Redshift.DescribeTableRestoreStatus: instance GHC.Show.Show Amazonka.Redshift.DescribeTableRestoreStatus.DescribeTableRestoreStatusResponse
+ Amazonka.Redshift.DescribeTableRestoreStatus: newDescribeTableRestoreStatus :: DescribeTableRestoreStatus
+ Amazonka.Redshift.DescribeTableRestoreStatus: newDescribeTableRestoreStatusResponse :: Int -> DescribeTableRestoreStatusResponse
+ Amazonka.Redshift.DescribeTags: DescribeTags' :: Maybe Text -> Maybe Int -> Maybe Text -> Maybe Text -> Maybe [Text] -> Maybe [Text] -> DescribeTags
+ Amazonka.Redshift.DescribeTags: DescribeTagsResponse' :: Maybe Text -> Maybe [TaggedResource] -> Int -> DescribeTagsResponse
+ Amazonka.Redshift.DescribeTags: [$sel:httpStatus:DescribeTagsResponse'] :: DescribeTagsResponse -> Int
+ Amazonka.Redshift.DescribeTags: [$sel:marker:DescribeTags'] :: DescribeTags -> Maybe Text
+ Amazonka.Redshift.DescribeTags: [$sel:marker:DescribeTagsResponse'] :: DescribeTagsResponse -> Maybe Text
+ Amazonka.Redshift.DescribeTags: [$sel:maxRecords:DescribeTags'] :: DescribeTags -> Maybe Int
+ Amazonka.Redshift.DescribeTags: [$sel:resourceName:DescribeTags'] :: DescribeTags -> Maybe Text
+ Amazonka.Redshift.DescribeTags: [$sel:resourceType:DescribeTags'] :: DescribeTags -> Maybe Text
+ Amazonka.Redshift.DescribeTags: [$sel:tagKeys:DescribeTags'] :: DescribeTags -> Maybe [Text]
+ Amazonka.Redshift.DescribeTags: [$sel:tagValues:DescribeTags'] :: DescribeTags -> Maybe [Text]
+ Amazonka.Redshift.DescribeTags: [$sel:taggedResources:DescribeTagsResponse'] :: DescribeTagsResponse -> Maybe [TaggedResource]
+ Amazonka.Redshift.DescribeTags: data DescribeTags
+ Amazonka.Redshift.DescribeTags: data DescribeTagsResponse
+ Amazonka.Redshift.DescribeTags: describeTagsResponse_httpStatus :: Lens' DescribeTagsResponse Int
+ Amazonka.Redshift.DescribeTags: describeTagsResponse_marker :: Lens' DescribeTagsResponse (Maybe Text)
+ Amazonka.Redshift.DescribeTags: describeTagsResponse_taggedResources :: Lens' DescribeTagsResponse (Maybe [TaggedResource])
+ Amazonka.Redshift.DescribeTags: describeTags_marker :: Lens' DescribeTags (Maybe Text)
+ Amazonka.Redshift.DescribeTags: describeTags_maxRecords :: Lens' DescribeTags (Maybe Int)
+ Amazonka.Redshift.DescribeTags: describeTags_resourceName :: Lens' DescribeTags (Maybe Text)
+ Amazonka.Redshift.DescribeTags: describeTags_resourceType :: Lens' DescribeTags (Maybe Text)
+ Amazonka.Redshift.DescribeTags: describeTags_tagKeys :: Lens' DescribeTags (Maybe [Text])
+ Amazonka.Redshift.DescribeTags: describeTags_tagValues :: Lens' DescribeTags (Maybe [Text])
+ Amazonka.Redshift.DescribeTags: instance Amazonka.Data.Headers.ToHeaders Amazonka.Redshift.DescribeTags.DescribeTags
+ Amazonka.Redshift.DescribeTags: instance Amazonka.Data.Path.ToPath Amazonka.Redshift.DescribeTags.DescribeTags
+ Amazonka.Redshift.DescribeTags: instance Amazonka.Data.Query.ToQuery Amazonka.Redshift.DescribeTags.DescribeTags
+ Amazonka.Redshift.DescribeTags: instance Amazonka.Pager.AWSPager Amazonka.Redshift.DescribeTags.DescribeTags
+ Amazonka.Redshift.DescribeTags: instance Amazonka.Types.AWSRequest Amazonka.Redshift.DescribeTags.DescribeTags
+ Amazonka.Redshift.DescribeTags: instance Control.DeepSeq.NFData Amazonka.Redshift.DescribeTags.DescribeTags
+ Amazonka.Redshift.DescribeTags: instance Control.DeepSeq.NFData Amazonka.Redshift.DescribeTags.DescribeTagsResponse
+ Amazonka.Redshift.DescribeTags: instance Data.Hashable.Class.Hashable Amazonka.Redshift.DescribeTags.DescribeTags
+ Amazonka.Redshift.DescribeTags: instance GHC.Classes.Eq Amazonka.Redshift.DescribeTags.DescribeTags
+ Amazonka.Redshift.DescribeTags: instance GHC.Classes.Eq Amazonka.Redshift.DescribeTags.DescribeTagsResponse
+ Amazonka.Redshift.DescribeTags: instance GHC.Generics.Generic Amazonka.Redshift.DescribeTags.DescribeTags
+ Amazonka.Redshift.DescribeTags: instance GHC.Generics.Generic Amazonka.Redshift.DescribeTags.DescribeTagsResponse
+ Amazonka.Redshift.DescribeTags: instance GHC.Read.Read Amazonka.Redshift.DescribeTags.DescribeTags
+ Amazonka.Redshift.DescribeTags: instance GHC.Read.Read Amazonka.Redshift.DescribeTags.DescribeTagsResponse
+ Amazonka.Redshift.DescribeTags: instance GHC.Show.Show Amazonka.Redshift.DescribeTags.DescribeTags
+ Amazonka.Redshift.DescribeTags: instance GHC.Show.Show Amazonka.Redshift.DescribeTags.DescribeTagsResponse
+ Amazonka.Redshift.DescribeTags: newDescribeTags :: DescribeTags
+ Amazonka.Redshift.DescribeTags: newDescribeTagsResponse :: Int -> DescribeTagsResponse
+ Amazonka.Redshift.DescribeUsageLimits: DescribeUsageLimits' :: Maybe Text -> Maybe UsageLimitFeatureType -> Maybe Text -> Maybe Int -> Maybe [Text] -> Maybe [Text] -> Maybe Text -> DescribeUsageLimits
+ Amazonka.Redshift.DescribeUsageLimits: DescribeUsageLimitsResponse' :: Maybe Text -> Maybe [UsageLimit] -> Int -> DescribeUsageLimitsResponse
+ Amazonka.Redshift.DescribeUsageLimits: [$sel:clusterIdentifier:DescribeUsageLimits'] :: DescribeUsageLimits -> Maybe Text
+ Amazonka.Redshift.DescribeUsageLimits: [$sel:featureType:DescribeUsageLimits'] :: DescribeUsageLimits -> Maybe UsageLimitFeatureType
+ Amazonka.Redshift.DescribeUsageLimits: [$sel:httpStatus:DescribeUsageLimitsResponse'] :: DescribeUsageLimitsResponse -> Int
+ Amazonka.Redshift.DescribeUsageLimits: [$sel:marker:DescribeUsageLimits'] :: DescribeUsageLimits -> Maybe Text
+ Amazonka.Redshift.DescribeUsageLimits: [$sel:marker:DescribeUsageLimitsResponse'] :: DescribeUsageLimitsResponse -> Maybe Text
+ Amazonka.Redshift.DescribeUsageLimits: [$sel:maxRecords:DescribeUsageLimits'] :: DescribeUsageLimits -> Maybe Int
+ Amazonka.Redshift.DescribeUsageLimits: [$sel:tagKeys:DescribeUsageLimits'] :: DescribeUsageLimits -> Maybe [Text]
+ Amazonka.Redshift.DescribeUsageLimits: [$sel:tagValues:DescribeUsageLimits'] :: DescribeUsageLimits -> Maybe [Text]
+ Amazonka.Redshift.DescribeUsageLimits: [$sel:usageLimitId:DescribeUsageLimits'] :: DescribeUsageLimits -> Maybe Text
+ Amazonka.Redshift.DescribeUsageLimits: [$sel:usageLimits:DescribeUsageLimitsResponse'] :: DescribeUsageLimitsResponse -> Maybe [UsageLimit]
+ Amazonka.Redshift.DescribeUsageLimits: data DescribeUsageLimits
+ Amazonka.Redshift.DescribeUsageLimits: data DescribeUsageLimitsResponse
+ Amazonka.Redshift.DescribeUsageLimits: describeUsageLimitsResponse_httpStatus :: Lens' DescribeUsageLimitsResponse Int
+ Amazonka.Redshift.DescribeUsageLimits: describeUsageLimitsResponse_marker :: Lens' DescribeUsageLimitsResponse (Maybe Text)
+ Amazonka.Redshift.DescribeUsageLimits: describeUsageLimitsResponse_usageLimits :: Lens' DescribeUsageLimitsResponse (Maybe [UsageLimit])
+ Amazonka.Redshift.DescribeUsageLimits: describeUsageLimits_clusterIdentifier :: Lens' DescribeUsageLimits (Maybe Text)
+ Amazonka.Redshift.DescribeUsageLimits: describeUsageLimits_featureType :: Lens' DescribeUsageLimits (Maybe UsageLimitFeatureType)
+ Amazonka.Redshift.DescribeUsageLimits: describeUsageLimits_marker :: Lens' DescribeUsageLimits (Maybe Text)
+ Amazonka.Redshift.DescribeUsageLimits: describeUsageLimits_maxRecords :: Lens' DescribeUsageLimits (Maybe Int)
+ Amazonka.Redshift.DescribeUsageLimits: describeUsageLimits_tagKeys :: Lens' DescribeUsageLimits (Maybe [Text])
+ Amazonka.Redshift.DescribeUsageLimits: describeUsageLimits_tagValues :: Lens' DescribeUsageLimits (Maybe [Text])
+ Amazonka.Redshift.DescribeUsageLimits: describeUsageLimits_usageLimitId :: Lens' DescribeUsageLimits (Maybe Text)
+ Amazonka.Redshift.DescribeUsageLimits: instance Amazonka.Data.Headers.ToHeaders Amazonka.Redshift.DescribeUsageLimits.DescribeUsageLimits
+ Amazonka.Redshift.DescribeUsageLimits: instance Amazonka.Data.Path.ToPath Amazonka.Redshift.DescribeUsageLimits.DescribeUsageLimits
+ Amazonka.Redshift.DescribeUsageLimits: instance Amazonka.Data.Query.ToQuery Amazonka.Redshift.DescribeUsageLimits.DescribeUsageLimits
+ Amazonka.Redshift.DescribeUsageLimits: instance Amazonka.Pager.AWSPager Amazonka.Redshift.DescribeUsageLimits.DescribeUsageLimits
+ Amazonka.Redshift.DescribeUsageLimits: instance Amazonka.Types.AWSRequest Amazonka.Redshift.DescribeUsageLimits.DescribeUsageLimits
+ Amazonka.Redshift.DescribeUsageLimits: instance Control.DeepSeq.NFData Amazonka.Redshift.DescribeUsageLimits.DescribeUsageLimits
+ Amazonka.Redshift.DescribeUsageLimits: instance Control.DeepSeq.NFData Amazonka.Redshift.DescribeUsageLimits.DescribeUsageLimitsResponse
+ Amazonka.Redshift.DescribeUsageLimits: instance Data.Hashable.Class.Hashable Amazonka.Redshift.DescribeUsageLimits.DescribeUsageLimits
+ Amazonka.Redshift.DescribeUsageLimits: instance GHC.Classes.Eq Amazonka.Redshift.DescribeUsageLimits.DescribeUsageLimits
+ Amazonka.Redshift.DescribeUsageLimits: instance GHC.Classes.Eq Amazonka.Redshift.DescribeUsageLimits.DescribeUsageLimitsResponse
+ Amazonka.Redshift.DescribeUsageLimits: instance GHC.Generics.Generic Amazonka.Redshift.DescribeUsageLimits.DescribeUsageLimits
+ Amazonka.Redshift.DescribeUsageLimits: instance GHC.Generics.Generic Amazonka.Redshift.DescribeUsageLimits.DescribeUsageLimitsResponse
+ Amazonka.Redshift.DescribeUsageLimits: instance GHC.Read.Read Amazonka.Redshift.DescribeUsageLimits.DescribeUsageLimits
+ Amazonka.Redshift.DescribeUsageLimits: instance GHC.Read.Read Amazonka.Redshift.DescribeUsageLimits.DescribeUsageLimitsResponse
+ Amazonka.Redshift.DescribeUsageLimits: instance GHC.Show.Show Amazonka.Redshift.DescribeUsageLimits.DescribeUsageLimits
+ Amazonka.Redshift.DescribeUsageLimits: instance GHC.Show.Show Amazonka.Redshift.DescribeUsageLimits.DescribeUsageLimitsResponse
+ Amazonka.Redshift.DescribeUsageLimits: newDescribeUsageLimits :: DescribeUsageLimits
+ Amazonka.Redshift.DescribeUsageLimits: newDescribeUsageLimitsResponse :: Int -> DescribeUsageLimitsResponse
+ Amazonka.Redshift.DisableLogging: DisableLogging' :: Text -> DisableLogging
+ Amazonka.Redshift.DisableLogging: LoggingStatus' :: Maybe Text -> Maybe Text -> Maybe ISO8601 -> Maybe ISO8601 -> Maybe LogDestinationType -> Maybe [Text] -> Maybe Bool -> Maybe Text -> LoggingStatus
+ Amazonka.Redshift.DisableLogging: [$sel:bucketName:LoggingStatus'] :: LoggingStatus -> Maybe Text
+ Amazonka.Redshift.DisableLogging: [$sel:clusterIdentifier:DisableLogging'] :: DisableLogging -> Text
+ Amazonka.Redshift.DisableLogging: [$sel:lastFailureMessage:LoggingStatus'] :: LoggingStatus -> Maybe Text
+ Amazonka.Redshift.DisableLogging: [$sel:lastFailureTime:LoggingStatus'] :: LoggingStatus -> Maybe ISO8601
+ Amazonka.Redshift.DisableLogging: [$sel:lastSuccessfulDeliveryTime:LoggingStatus'] :: LoggingStatus -> Maybe ISO8601
+ Amazonka.Redshift.DisableLogging: [$sel:logDestinationType:LoggingStatus'] :: LoggingStatus -> Maybe LogDestinationType
+ Amazonka.Redshift.DisableLogging: [$sel:logExports:LoggingStatus'] :: LoggingStatus -> Maybe [Text]
+ Amazonka.Redshift.DisableLogging: [$sel:loggingEnabled:LoggingStatus'] :: LoggingStatus -> Maybe Bool
+ Amazonka.Redshift.DisableLogging: [$sel:s3KeyPrefix:LoggingStatus'] :: LoggingStatus -> Maybe Text
+ Amazonka.Redshift.DisableLogging: data DisableLogging
+ Amazonka.Redshift.DisableLogging: data LoggingStatus
+ Amazonka.Redshift.DisableLogging: disableLogging_clusterIdentifier :: Lens' DisableLogging Text
+ Amazonka.Redshift.DisableLogging: instance Amazonka.Data.Headers.ToHeaders Amazonka.Redshift.DisableLogging.DisableLogging
+ Amazonka.Redshift.DisableLogging: instance Amazonka.Data.Path.ToPath Amazonka.Redshift.DisableLogging.DisableLogging
+ Amazonka.Redshift.DisableLogging: instance Amazonka.Data.Query.ToQuery Amazonka.Redshift.DisableLogging.DisableLogging
+ Amazonka.Redshift.DisableLogging: instance Amazonka.Types.AWSRequest Amazonka.Redshift.DisableLogging.DisableLogging
+ Amazonka.Redshift.DisableLogging: instance Control.DeepSeq.NFData Amazonka.Redshift.DisableLogging.DisableLogging
+ Amazonka.Redshift.DisableLogging: instance Data.Hashable.Class.Hashable Amazonka.Redshift.DisableLogging.DisableLogging
+ Amazonka.Redshift.DisableLogging: instance GHC.Classes.Eq Amazonka.Redshift.DisableLogging.DisableLogging
+ Amazonka.Redshift.DisableLogging: instance GHC.Generics.Generic Amazonka.Redshift.DisableLogging.DisableLogging
+ Amazonka.Redshift.DisableLogging: instance GHC.Read.Read Amazonka.Redshift.DisableLogging.DisableLogging
+ Amazonka.Redshift.DisableLogging: instance GHC.Show.Show Amazonka.Redshift.DisableLogging.DisableLogging
+ Amazonka.Redshift.DisableLogging: loggingStatus_bucketName :: Lens' LoggingStatus (Maybe Text)
+ Amazonka.Redshift.DisableLogging: loggingStatus_lastFailureMessage :: Lens' LoggingStatus (Maybe Text)
+ Amazonka.Redshift.DisableLogging: loggingStatus_lastFailureTime :: Lens' LoggingStatus (Maybe UTCTime)
+ Amazonka.Redshift.DisableLogging: loggingStatus_lastSuccessfulDeliveryTime :: Lens' LoggingStatus (Maybe UTCTime)
+ Amazonka.Redshift.DisableLogging: loggingStatus_logDestinationType :: Lens' LoggingStatus (Maybe LogDestinationType)
+ Amazonka.Redshift.DisableLogging: loggingStatus_logExports :: Lens' LoggingStatus (Maybe [Text])
+ Amazonka.Redshift.DisableLogging: loggingStatus_loggingEnabled :: Lens' LoggingStatus (Maybe Bool)
+ Amazonka.Redshift.DisableLogging: loggingStatus_s3KeyPrefix :: Lens' LoggingStatus (Maybe Text)
+ Amazonka.Redshift.DisableLogging: newDisableLogging :: Text -> DisableLogging
+ Amazonka.Redshift.DisableLogging: newLoggingStatus :: LoggingStatus
+ Amazonka.Redshift.DisableSnapshotCopy: DisableSnapshotCopy' :: Text -> DisableSnapshotCopy
+ Amazonka.Redshift.DisableSnapshotCopy: DisableSnapshotCopyResponse' :: Maybe Cluster -> Int -> DisableSnapshotCopyResponse
+ Amazonka.Redshift.DisableSnapshotCopy: [$sel:cluster:DisableSnapshotCopyResponse'] :: DisableSnapshotCopyResponse -> Maybe Cluster
+ Amazonka.Redshift.DisableSnapshotCopy: [$sel:clusterIdentifier:DisableSnapshotCopy'] :: DisableSnapshotCopy -> Text
+ Amazonka.Redshift.DisableSnapshotCopy: [$sel:httpStatus:DisableSnapshotCopyResponse'] :: DisableSnapshotCopyResponse -> Int
+ Amazonka.Redshift.DisableSnapshotCopy: data DisableSnapshotCopy
+ Amazonka.Redshift.DisableSnapshotCopy: data DisableSnapshotCopyResponse
+ Amazonka.Redshift.DisableSnapshotCopy: disableSnapshotCopyResponse_cluster :: Lens' DisableSnapshotCopyResponse (Maybe Cluster)
+ Amazonka.Redshift.DisableSnapshotCopy: disableSnapshotCopyResponse_httpStatus :: Lens' DisableSnapshotCopyResponse Int
+ Amazonka.Redshift.DisableSnapshotCopy: disableSnapshotCopy_clusterIdentifier :: Lens' DisableSnapshotCopy Text
+ Amazonka.Redshift.DisableSnapshotCopy: instance Amazonka.Data.Headers.ToHeaders Amazonka.Redshift.DisableSnapshotCopy.DisableSnapshotCopy
+ Amazonka.Redshift.DisableSnapshotCopy: instance Amazonka.Data.Path.ToPath Amazonka.Redshift.DisableSnapshotCopy.DisableSnapshotCopy
+ Amazonka.Redshift.DisableSnapshotCopy: instance Amazonka.Data.Query.ToQuery Amazonka.Redshift.DisableSnapshotCopy.DisableSnapshotCopy
+ Amazonka.Redshift.DisableSnapshotCopy: instance Amazonka.Types.AWSRequest Amazonka.Redshift.DisableSnapshotCopy.DisableSnapshotCopy
+ Amazonka.Redshift.DisableSnapshotCopy: instance Control.DeepSeq.NFData Amazonka.Redshift.DisableSnapshotCopy.DisableSnapshotCopy
+ Amazonka.Redshift.DisableSnapshotCopy: instance Control.DeepSeq.NFData Amazonka.Redshift.DisableSnapshotCopy.DisableSnapshotCopyResponse
+ Amazonka.Redshift.DisableSnapshotCopy: instance Data.Hashable.Class.Hashable Amazonka.Redshift.DisableSnapshotCopy.DisableSnapshotCopy
+ Amazonka.Redshift.DisableSnapshotCopy: instance GHC.Classes.Eq Amazonka.Redshift.DisableSnapshotCopy.DisableSnapshotCopy
+ Amazonka.Redshift.DisableSnapshotCopy: instance GHC.Classes.Eq Amazonka.Redshift.DisableSnapshotCopy.DisableSnapshotCopyResponse
+ Amazonka.Redshift.DisableSnapshotCopy: instance GHC.Generics.Generic Amazonka.Redshift.DisableSnapshotCopy.DisableSnapshotCopy
+ Amazonka.Redshift.DisableSnapshotCopy: instance GHC.Generics.Generic Amazonka.Redshift.DisableSnapshotCopy.DisableSnapshotCopyResponse
+ Amazonka.Redshift.DisableSnapshotCopy: instance GHC.Read.Read Amazonka.Redshift.DisableSnapshotCopy.DisableSnapshotCopy
+ Amazonka.Redshift.DisableSnapshotCopy: instance GHC.Read.Read Amazonka.Redshift.DisableSnapshotCopy.DisableSnapshotCopyResponse
+ Amazonka.Redshift.DisableSnapshotCopy: instance GHC.Show.Show Amazonka.Redshift.DisableSnapshotCopy.DisableSnapshotCopy
+ Amazonka.Redshift.DisableSnapshotCopy: instance GHC.Show.Show Amazonka.Redshift.DisableSnapshotCopy.DisableSnapshotCopyResponse
+ Amazonka.Redshift.DisableSnapshotCopy: newDisableSnapshotCopy :: Text -> DisableSnapshotCopy
+ Amazonka.Redshift.DisableSnapshotCopy: newDisableSnapshotCopyResponse :: Int -> DisableSnapshotCopyResponse
+ Amazonka.Redshift.DisassociateDataShareConsumer: DataShare' :: Maybe Bool -> Maybe Text -> Maybe [DataShareAssociation] -> Maybe Text -> Maybe Text -> DataShare
+ Amazonka.Redshift.DisassociateDataShareConsumer: DisassociateDataShareConsumer' :: Maybe Text -> Maybe Text -> Maybe Bool -> Text -> DisassociateDataShareConsumer
+ Amazonka.Redshift.DisassociateDataShareConsumer: [$sel:allowPubliclyAccessibleConsumers:DataShare'] :: DataShare -> Maybe Bool
+ Amazonka.Redshift.DisassociateDataShareConsumer: [$sel:consumerArn:DisassociateDataShareConsumer'] :: DisassociateDataShareConsumer -> Maybe Text
+ Amazonka.Redshift.DisassociateDataShareConsumer: [$sel:consumerRegion:DisassociateDataShareConsumer'] :: DisassociateDataShareConsumer -> Maybe Text
+ Amazonka.Redshift.DisassociateDataShareConsumer: [$sel:dataShareArn:DataShare'] :: DataShare -> Maybe Text
+ Amazonka.Redshift.DisassociateDataShareConsumer: [$sel:dataShareArn:DisassociateDataShareConsumer'] :: DisassociateDataShareConsumer -> Text
+ Amazonka.Redshift.DisassociateDataShareConsumer: [$sel:dataShareAssociations:DataShare'] :: DataShare -> Maybe [DataShareAssociation]
+ Amazonka.Redshift.DisassociateDataShareConsumer: [$sel:disassociateEntireAccount:DisassociateDataShareConsumer'] :: DisassociateDataShareConsumer -> Maybe Bool
+ Amazonka.Redshift.DisassociateDataShareConsumer: [$sel:managedBy:DataShare'] :: DataShare -> Maybe Text
+ Amazonka.Redshift.DisassociateDataShareConsumer: [$sel:producerArn:DataShare'] :: DataShare -> Maybe Text
+ Amazonka.Redshift.DisassociateDataShareConsumer: data DataShare
+ Amazonka.Redshift.DisassociateDataShareConsumer: data DisassociateDataShareConsumer
+ Amazonka.Redshift.DisassociateDataShareConsumer: dataShare_allowPubliclyAccessibleConsumers :: Lens' DataShare (Maybe Bool)
+ Amazonka.Redshift.DisassociateDataShareConsumer: dataShare_dataShareArn :: Lens' DataShare (Maybe Text)
+ Amazonka.Redshift.DisassociateDataShareConsumer: dataShare_dataShareAssociations :: Lens' DataShare (Maybe [DataShareAssociation])
+ Amazonka.Redshift.DisassociateDataShareConsumer: dataShare_managedBy :: Lens' DataShare (Maybe Text)
+ Amazonka.Redshift.DisassociateDataShareConsumer: dataShare_producerArn :: Lens' DataShare (Maybe Text)
+ Amazonka.Redshift.DisassociateDataShareConsumer: disassociateDataShareConsumer_consumerArn :: Lens' DisassociateDataShareConsumer (Maybe Text)
+ Amazonka.Redshift.DisassociateDataShareConsumer: disassociateDataShareConsumer_consumerRegion :: Lens' DisassociateDataShareConsumer (Maybe Text)
+ Amazonka.Redshift.DisassociateDataShareConsumer: disassociateDataShareConsumer_dataShareArn :: Lens' DisassociateDataShareConsumer Text
+ Amazonka.Redshift.DisassociateDataShareConsumer: disassociateDataShareConsumer_disassociateEntireAccount :: Lens' DisassociateDataShareConsumer (Maybe Bool)
+ Amazonka.Redshift.DisassociateDataShareConsumer: instance Amazonka.Data.Headers.ToHeaders Amazonka.Redshift.DisassociateDataShareConsumer.DisassociateDataShareConsumer
+ Amazonka.Redshift.DisassociateDataShareConsumer: instance Amazonka.Data.Path.ToPath Amazonka.Redshift.DisassociateDataShareConsumer.DisassociateDataShareConsumer
+ Amazonka.Redshift.DisassociateDataShareConsumer: instance Amazonka.Data.Query.ToQuery Amazonka.Redshift.DisassociateDataShareConsumer.DisassociateDataShareConsumer
+ Amazonka.Redshift.DisassociateDataShareConsumer: instance Amazonka.Types.AWSRequest Amazonka.Redshift.DisassociateDataShareConsumer.DisassociateDataShareConsumer
+ Amazonka.Redshift.DisassociateDataShareConsumer: instance Control.DeepSeq.NFData Amazonka.Redshift.DisassociateDataShareConsumer.DisassociateDataShareConsumer
+ Amazonka.Redshift.DisassociateDataShareConsumer: instance Data.Hashable.Class.Hashable Amazonka.Redshift.DisassociateDataShareConsumer.DisassociateDataShareConsumer
+ Amazonka.Redshift.DisassociateDataShareConsumer: instance GHC.Classes.Eq Amazonka.Redshift.DisassociateDataShareConsumer.DisassociateDataShareConsumer
+ Amazonka.Redshift.DisassociateDataShareConsumer: instance GHC.Generics.Generic Amazonka.Redshift.DisassociateDataShareConsumer.DisassociateDataShareConsumer
+ Amazonka.Redshift.DisassociateDataShareConsumer: instance GHC.Read.Read Amazonka.Redshift.DisassociateDataShareConsumer.DisassociateDataShareConsumer
+ Amazonka.Redshift.DisassociateDataShareConsumer: instance GHC.Show.Show Amazonka.Redshift.DisassociateDataShareConsumer.DisassociateDataShareConsumer
+ Amazonka.Redshift.DisassociateDataShareConsumer: newDataShare :: DataShare
+ Amazonka.Redshift.DisassociateDataShareConsumer: newDisassociateDataShareConsumer :: Text -> DisassociateDataShareConsumer
+ Amazonka.Redshift.EnableLogging: EnableLogging' :: Maybe Text -> Maybe LogDestinationType -> Maybe [Text] -> Maybe Text -> Text -> EnableLogging
+ Amazonka.Redshift.EnableLogging: LoggingStatus' :: Maybe Text -> Maybe Text -> Maybe ISO8601 -> Maybe ISO8601 -> Maybe LogDestinationType -> Maybe [Text] -> Maybe Bool -> Maybe Text -> LoggingStatus
+ Amazonka.Redshift.EnableLogging: [$sel:bucketName:EnableLogging'] :: EnableLogging -> Maybe Text
+ Amazonka.Redshift.EnableLogging: [$sel:bucketName:LoggingStatus'] :: LoggingStatus -> Maybe Text
+ Amazonka.Redshift.EnableLogging: [$sel:clusterIdentifier:EnableLogging'] :: EnableLogging -> Text
+ Amazonka.Redshift.EnableLogging: [$sel:lastFailureMessage:LoggingStatus'] :: LoggingStatus -> Maybe Text
+ Amazonka.Redshift.EnableLogging: [$sel:lastFailureTime:LoggingStatus'] :: LoggingStatus -> Maybe ISO8601
+ Amazonka.Redshift.EnableLogging: [$sel:lastSuccessfulDeliveryTime:LoggingStatus'] :: LoggingStatus -> Maybe ISO8601
+ Amazonka.Redshift.EnableLogging: [$sel:logDestinationType:EnableLogging'] :: EnableLogging -> Maybe LogDestinationType
+ Amazonka.Redshift.EnableLogging: [$sel:logDestinationType:LoggingStatus'] :: LoggingStatus -> Maybe LogDestinationType
+ Amazonka.Redshift.EnableLogging: [$sel:logExports:EnableLogging'] :: EnableLogging -> Maybe [Text]
+ Amazonka.Redshift.EnableLogging: [$sel:logExports:LoggingStatus'] :: LoggingStatus -> Maybe [Text]
+ Amazonka.Redshift.EnableLogging: [$sel:loggingEnabled:LoggingStatus'] :: LoggingStatus -> Maybe Bool
+ Amazonka.Redshift.EnableLogging: [$sel:s3KeyPrefix:EnableLogging'] :: EnableLogging -> Maybe Text
+ Amazonka.Redshift.EnableLogging: [$sel:s3KeyPrefix:LoggingStatus'] :: LoggingStatus -> Maybe Text
+ Amazonka.Redshift.EnableLogging: data EnableLogging
+ Amazonka.Redshift.EnableLogging: data LoggingStatus
+ Amazonka.Redshift.EnableLogging: enableLogging_bucketName :: Lens' EnableLogging (Maybe Text)
+ Amazonka.Redshift.EnableLogging: enableLogging_clusterIdentifier :: Lens' EnableLogging Text
+ Amazonka.Redshift.EnableLogging: enableLogging_logDestinationType :: Lens' EnableLogging (Maybe LogDestinationType)
+ Amazonka.Redshift.EnableLogging: enableLogging_logExports :: Lens' EnableLogging (Maybe [Text])
+ Amazonka.Redshift.EnableLogging: enableLogging_s3KeyPrefix :: Lens' EnableLogging (Maybe Text)
+ Amazonka.Redshift.EnableLogging: instance Amazonka.Data.Headers.ToHeaders Amazonka.Redshift.EnableLogging.EnableLogging
+ Amazonka.Redshift.EnableLogging: instance Amazonka.Data.Path.ToPath Amazonka.Redshift.EnableLogging.EnableLogging
+ Amazonka.Redshift.EnableLogging: instance Amazonka.Data.Query.ToQuery Amazonka.Redshift.EnableLogging.EnableLogging
+ Amazonka.Redshift.EnableLogging: instance Amazonka.Types.AWSRequest Amazonka.Redshift.EnableLogging.EnableLogging
+ Amazonka.Redshift.EnableLogging: instance Control.DeepSeq.NFData Amazonka.Redshift.EnableLogging.EnableLogging
+ Amazonka.Redshift.EnableLogging: instance Data.Hashable.Class.Hashable Amazonka.Redshift.EnableLogging.EnableLogging
+ Amazonka.Redshift.EnableLogging: instance GHC.Classes.Eq Amazonka.Redshift.EnableLogging.EnableLogging
+ Amazonka.Redshift.EnableLogging: instance GHC.Generics.Generic Amazonka.Redshift.EnableLogging.EnableLogging
+ Amazonka.Redshift.EnableLogging: instance GHC.Read.Read Amazonka.Redshift.EnableLogging.EnableLogging
+ Amazonka.Redshift.EnableLogging: instance GHC.Show.Show Amazonka.Redshift.EnableLogging.EnableLogging
+ Amazonka.Redshift.EnableLogging: loggingStatus_bucketName :: Lens' LoggingStatus (Maybe Text)
+ Amazonka.Redshift.EnableLogging: loggingStatus_lastFailureMessage :: Lens' LoggingStatus (Maybe Text)
+ Amazonka.Redshift.EnableLogging: loggingStatus_lastFailureTime :: Lens' LoggingStatus (Maybe UTCTime)
+ Amazonka.Redshift.EnableLogging: loggingStatus_lastSuccessfulDeliveryTime :: Lens' LoggingStatus (Maybe UTCTime)
+ Amazonka.Redshift.EnableLogging: loggingStatus_logDestinationType :: Lens' LoggingStatus (Maybe LogDestinationType)
+ Amazonka.Redshift.EnableLogging: loggingStatus_logExports :: Lens' LoggingStatus (Maybe [Text])
+ Amazonka.Redshift.EnableLogging: loggingStatus_loggingEnabled :: Lens' LoggingStatus (Maybe Bool)
+ Amazonka.Redshift.EnableLogging: loggingStatus_s3KeyPrefix :: Lens' LoggingStatus (Maybe Text)
+ Amazonka.Redshift.EnableLogging: newEnableLogging :: Text -> EnableLogging
+ Amazonka.Redshift.EnableLogging: newLoggingStatus :: LoggingStatus
+ Amazonka.Redshift.EnableSnapshotCopy: EnableSnapshotCopy' :: Maybe Int -> Maybe Int -> Maybe Text -> Text -> Text -> EnableSnapshotCopy
+ Amazonka.Redshift.EnableSnapshotCopy: EnableSnapshotCopyResponse' :: Maybe Cluster -> Int -> EnableSnapshotCopyResponse
+ Amazonka.Redshift.EnableSnapshotCopy: [$sel:cluster:EnableSnapshotCopyResponse'] :: EnableSnapshotCopyResponse -> Maybe Cluster
+ Amazonka.Redshift.EnableSnapshotCopy: [$sel:clusterIdentifier:EnableSnapshotCopy'] :: EnableSnapshotCopy -> Text
+ Amazonka.Redshift.EnableSnapshotCopy: [$sel:destinationRegion:EnableSnapshotCopy'] :: EnableSnapshotCopy -> Text
+ Amazonka.Redshift.EnableSnapshotCopy: [$sel:httpStatus:EnableSnapshotCopyResponse'] :: EnableSnapshotCopyResponse -> Int
+ Amazonka.Redshift.EnableSnapshotCopy: [$sel:manualSnapshotRetentionPeriod:EnableSnapshotCopy'] :: EnableSnapshotCopy -> Maybe Int
+ Amazonka.Redshift.EnableSnapshotCopy: [$sel:retentionPeriod:EnableSnapshotCopy'] :: EnableSnapshotCopy -> Maybe Int
+ Amazonka.Redshift.EnableSnapshotCopy: [$sel:snapshotCopyGrantName:EnableSnapshotCopy'] :: EnableSnapshotCopy -> Maybe Text
+ Amazonka.Redshift.EnableSnapshotCopy: data EnableSnapshotCopy
+ Amazonka.Redshift.EnableSnapshotCopy: data EnableSnapshotCopyResponse
+ Amazonka.Redshift.EnableSnapshotCopy: enableSnapshotCopyResponse_cluster :: Lens' EnableSnapshotCopyResponse (Maybe Cluster)
+ Amazonka.Redshift.EnableSnapshotCopy: enableSnapshotCopyResponse_httpStatus :: Lens' EnableSnapshotCopyResponse Int
+ Amazonka.Redshift.EnableSnapshotCopy: enableSnapshotCopy_clusterIdentifier :: Lens' EnableSnapshotCopy Text
+ Amazonka.Redshift.EnableSnapshotCopy: enableSnapshotCopy_destinationRegion :: Lens' EnableSnapshotCopy Text
+ Amazonka.Redshift.EnableSnapshotCopy: enableSnapshotCopy_manualSnapshotRetentionPeriod :: Lens' EnableSnapshotCopy (Maybe Int)
+ Amazonka.Redshift.EnableSnapshotCopy: enableSnapshotCopy_retentionPeriod :: Lens' EnableSnapshotCopy (Maybe Int)
+ Amazonka.Redshift.EnableSnapshotCopy: enableSnapshotCopy_snapshotCopyGrantName :: Lens' EnableSnapshotCopy (Maybe Text)
+ Amazonka.Redshift.EnableSnapshotCopy: instance Amazonka.Data.Headers.ToHeaders Amazonka.Redshift.EnableSnapshotCopy.EnableSnapshotCopy
+ Amazonka.Redshift.EnableSnapshotCopy: instance Amazonka.Data.Path.ToPath Amazonka.Redshift.EnableSnapshotCopy.EnableSnapshotCopy
+ Amazonka.Redshift.EnableSnapshotCopy: instance Amazonka.Data.Query.ToQuery Amazonka.Redshift.EnableSnapshotCopy.EnableSnapshotCopy
+ Amazonka.Redshift.EnableSnapshotCopy: instance Amazonka.Types.AWSRequest Amazonka.Redshift.EnableSnapshotCopy.EnableSnapshotCopy
+ Amazonka.Redshift.EnableSnapshotCopy: instance Control.DeepSeq.NFData Amazonka.Redshift.EnableSnapshotCopy.EnableSnapshotCopy
+ Amazonka.Redshift.EnableSnapshotCopy: instance Control.DeepSeq.NFData Amazonka.Redshift.EnableSnapshotCopy.EnableSnapshotCopyResponse
+ Amazonka.Redshift.EnableSnapshotCopy: instance Data.Hashable.Class.Hashable Amazonka.Redshift.EnableSnapshotCopy.EnableSnapshotCopy
+ Amazonka.Redshift.EnableSnapshotCopy: instance GHC.Classes.Eq Amazonka.Redshift.EnableSnapshotCopy.EnableSnapshotCopy
+ Amazonka.Redshift.EnableSnapshotCopy: instance GHC.Classes.Eq Amazonka.Redshift.EnableSnapshotCopy.EnableSnapshotCopyResponse
+ Amazonka.Redshift.EnableSnapshotCopy: instance GHC.Generics.Generic Amazonka.Redshift.EnableSnapshotCopy.EnableSnapshotCopy
+ Amazonka.Redshift.EnableSnapshotCopy: instance GHC.Generics.Generic Amazonka.Redshift.EnableSnapshotCopy.EnableSnapshotCopyResponse
+ Amazonka.Redshift.EnableSnapshotCopy: instance GHC.Read.Read Amazonka.Redshift.EnableSnapshotCopy.EnableSnapshotCopy
+ Amazonka.Redshift.EnableSnapshotCopy: instance GHC.Read.Read Amazonka.Redshift.EnableSnapshotCopy.EnableSnapshotCopyResponse
+ Amazonka.Redshift.EnableSnapshotCopy: instance GHC.Show.Show Amazonka.Redshift.EnableSnapshotCopy.EnableSnapshotCopy
+ Amazonka.Redshift.EnableSnapshotCopy: instance GHC.Show.Show Amazonka.Redshift.EnableSnapshotCopy.EnableSnapshotCopyResponse
+ Amazonka.Redshift.EnableSnapshotCopy: newEnableSnapshotCopy :: Text -> Text -> EnableSnapshotCopy
+ Amazonka.Redshift.EnableSnapshotCopy: newEnableSnapshotCopyResponse :: Int -> EnableSnapshotCopyResponse
+ Amazonka.Redshift.GetClusterCredentials: GetClusterCredentials' :: Maybe Bool -> Maybe [Text] -> Maybe Text -> Maybe Int -> Text -> Text -> GetClusterCredentials
+ Amazonka.Redshift.GetClusterCredentials: GetClusterCredentialsResponse' :: Maybe (Sensitive Text) -> Maybe Text -> Maybe ISO8601 -> Int -> GetClusterCredentialsResponse
+ Amazonka.Redshift.GetClusterCredentials: [$sel:autoCreate:GetClusterCredentials'] :: GetClusterCredentials -> Maybe Bool
+ Amazonka.Redshift.GetClusterCredentials: [$sel:clusterIdentifier:GetClusterCredentials'] :: GetClusterCredentials -> Text
+ Amazonka.Redshift.GetClusterCredentials: [$sel:dbGroups:GetClusterCredentials'] :: GetClusterCredentials -> Maybe [Text]
+ Amazonka.Redshift.GetClusterCredentials: [$sel:dbName:GetClusterCredentials'] :: GetClusterCredentials -> Maybe Text
+ Amazonka.Redshift.GetClusterCredentials: [$sel:dbPassword:GetClusterCredentialsResponse'] :: GetClusterCredentialsResponse -> Maybe (Sensitive Text)
+ Amazonka.Redshift.GetClusterCredentials: [$sel:dbUser:GetClusterCredentials'] :: GetClusterCredentials -> Text
+ Amazonka.Redshift.GetClusterCredentials: [$sel:dbUser:GetClusterCredentialsResponse'] :: GetClusterCredentialsResponse -> Maybe Text
+ Amazonka.Redshift.GetClusterCredentials: [$sel:durationSeconds:GetClusterCredentials'] :: GetClusterCredentials -> Maybe Int
+ Amazonka.Redshift.GetClusterCredentials: [$sel:expiration:GetClusterCredentialsResponse'] :: GetClusterCredentialsResponse -> Maybe ISO8601
+ Amazonka.Redshift.GetClusterCredentials: [$sel:httpStatus:GetClusterCredentialsResponse'] :: GetClusterCredentialsResponse -> Int
+ Amazonka.Redshift.GetClusterCredentials: data GetClusterCredentials
+ Amazonka.Redshift.GetClusterCredentials: data GetClusterCredentialsResponse
+ Amazonka.Redshift.GetClusterCredentials: getClusterCredentialsResponse_dbPassword :: Lens' GetClusterCredentialsResponse (Maybe Text)
+ Amazonka.Redshift.GetClusterCredentials: getClusterCredentialsResponse_dbUser :: Lens' GetClusterCredentialsResponse (Maybe Text)
+ Amazonka.Redshift.GetClusterCredentials: getClusterCredentialsResponse_expiration :: Lens' GetClusterCredentialsResponse (Maybe UTCTime)
+ Amazonka.Redshift.GetClusterCredentials: getClusterCredentialsResponse_httpStatus :: Lens' GetClusterCredentialsResponse Int
+ Amazonka.Redshift.GetClusterCredentials: getClusterCredentials_autoCreate :: Lens' GetClusterCredentials (Maybe Bool)
+ Amazonka.Redshift.GetClusterCredentials: getClusterCredentials_clusterIdentifier :: Lens' GetClusterCredentials Text
+ Amazonka.Redshift.GetClusterCredentials: getClusterCredentials_dbGroups :: Lens' GetClusterCredentials (Maybe [Text])
+ Amazonka.Redshift.GetClusterCredentials: getClusterCredentials_dbName :: Lens' GetClusterCredentials (Maybe Text)
+ Amazonka.Redshift.GetClusterCredentials: getClusterCredentials_dbUser :: Lens' GetClusterCredentials Text
+ Amazonka.Redshift.GetClusterCredentials: getClusterCredentials_durationSeconds :: Lens' GetClusterCredentials (Maybe Int)
+ Amazonka.Redshift.GetClusterCredentials: instance Amazonka.Data.Headers.ToHeaders Amazonka.Redshift.GetClusterCredentials.GetClusterCredentials
+ Amazonka.Redshift.GetClusterCredentials: instance Amazonka.Data.Path.ToPath Amazonka.Redshift.GetClusterCredentials.GetClusterCredentials
+ Amazonka.Redshift.GetClusterCredentials: instance Amazonka.Data.Query.ToQuery Amazonka.Redshift.GetClusterCredentials.GetClusterCredentials
+ Amazonka.Redshift.GetClusterCredentials: instance Amazonka.Types.AWSRequest Amazonka.Redshift.GetClusterCredentials.GetClusterCredentials
+ Amazonka.Redshift.GetClusterCredentials: instance Control.DeepSeq.NFData Amazonka.Redshift.GetClusterCredentials.GetClusterCredentials
+ Amazonka.Redshift.GetClusterCredentials: instance Control.DeepSeq.NFData Amazonka.Redshift.GetClusterCredentials.GetClusterCredentialsResponse
+ Amazonka.Redshift.GetClusterCredentials: instance Data.Hashable.Class.Hashable Amazonka.Redshift.GetClusterCredentials.GetClusterCredentials
+ Amazonka.Redshift.GetClusterCredentials: instance GHC.Classes.Eq Amazonka.Redshift.GetClusterCredentials.GetClusterCredentials
+ Amazonka.Redshift.GetClusterCredentials: instance GHC.Classes.Eq Amazonka.Redshift.GetClusterCredentials.GetClusterCredentialsResponse
+ Amazonka.Redshift.GetClusterCredentials: instance GHC.Generics.Generic Amazonka.Redshift.GetClusterCredentials.GetClusterCredentials
+ Amazonka.Redshift.GetClusterCredentials: instance GHC.Generics.Generic Amazonka.Redshift.GetClusterCredentials.GetClusterCredentialsResponse
+ Amazonka.Redshift.GetClusterCredentials: instance GHC.Read.Read Amazonka.Redshift.GetClusterCredentials.GetClusterCredentials
+ Amazonka.Redshift.GetClusterCredentials: instance GHC.Show.Show Amazonka.Redshift.GetClusterCredentials.GetClusterCredentials
+ Amazonka.Redshift.GetClusterCredentials: instance GHC.Show.Show Amazonka.Redshift.GetClusterCredentials.GetClusterCredentialsResponse
+ Amazonka.Redshift.GetClusterCredentials: newGetClusterCredentials :: Text -> Text -> GetClusterCredentials
+ Amazonka.Redshift.GetClusterCredentials: newGetClusterCredentialsResponse :: Int -> GetClusterCredentialsResponse
+ Amazonka.Redshift.GetClusterCredentialsWithIAM: GetClusterCredentialsWithIAM' :: Maybe Text -> Maybe Int -> Text -> GetClusterCredentialsWithIAM
+ Amazonka.Redshift.GetClusterCredentialsWithIAM: GetClusterCredentialsWithIAMResponse' :: Maybe (Sensitive Text) -> Maybe Text -> Maybe ISO8601 -> Maybe ISO8601 -> Int -> GetClusterCredentialsWithIAMResponse
+ Amazonka.Redshift.GetClusterCredentialsWithIAM: [$sel:clusterIdentifier:GetClusterCredentialsWithIAM'] :: GetClusterCredentialsWithIAM -> Text
+ Amazonka.Redshift.GetClusterCredentialsWithIAM: [$sel:dbName:GetClusterCredentialsWithIAM'] :: GetClusterCredentialsWithIAM -> Maybe Text
+ Amazonka.Redshift.GetClusterCredentialsWithIAM: [$sel:dbPassword:GetClusterCredentialsWithIAMResponse'] :: GetClusterCredentialsWithIAMResponse -> Maybe (Sensitive Text)
+ Amazonka.Redshift.GetClusterCredentialsWithIAM: [$sel:dbUser:GetClusterCredentialsWithIAMResponse'] :: GetClusterCredentialsWithIAMResponse -> Maybe Text
+ Amazonka.Redshift.GetClusterCredentialsWithIAM: [$sel:durationSeconds:GetClusterCredentialsWithIAM'] :: GetClusterCredentialsWithIAM -> Maybe Int
+ Amazonka.Redshift.GetClusterCredentialsWithIAM: [$sel:expiration:GetClusterCredentialsWithIAMResponse'] :: GetClusterCredentialsWithIAMResponse -> Maybe ISO8601
+ Amazonka.Redshift.GetClusterCredentialsWithIAM: [$sel:httpStatus:GetClusterCredentialsWithIAMResponse'] :: GetClusterCredentialsWithIAMResponse -> Int
+ Amazonka.Redshift.GetClusterCredentialsWithIAM: [$sel:nextRefreshTime:GetClusterCredentialsWithIAMResponse'] :: GetClusterCredentialsWithIAMResponse -> Maybe ISO8601
+ Amazonka.Redshift.GetClusterCredentialsWithIAM: data GetClusterCredentialsWithIAM
+ Amazonka.Redshift.GetClusterCredentialsWithIAM: data GetClusterCredentialsWithIAMResponse
+ Amazonka.Redshift.GetClusterCredentialsWithIAM: getClusterCredentialsWithIAMResponse_dbPassword :: Lens' GetClusterCredentialsWithIAMResponse (Maybe Text)
+ Amazonka.Redshift.GetClusterCredentialsWithIAM: getClusterCredentialsWithIAMResponse_dbUser :: Lens' GetClusterCredentialsWithIAMResponse (Maybe Text)
+ Amazonka.Redshift.GetClusterCredentialsWithIAM: getClusterCredentialsWithIAMResponse_expiration :: Lens' GetClusterCredentialsWithIAMResponse (Maybe UTCTime)
+ Amazonka.Redshift.GetClusterCredentialsWithIAM: getClusterCredentialsWithIAMResponse_httpStatus :: Lens' GetClusterCredentialsWithIAMResponse Int
+ Amazonka.Redshift.GetClusterCredentialsWithIAM: getClusterCredentialsWithIAMResponse_nextRefreshTime :: Lens' GetClusterCredentialsWithIAMResponse (Maybe UTCTime)
+ Amazonka.Redshift.GetClusterCredentialsWithIAM: getClusterCredentialsWithIAM_clusterIdentifier :: Lens' GetClusterCredentialsWithIAM Text
+ Amazonka.Redshift.GetClusterCredentialsWithIAM: getClusterCredentialsWithIAM_dbName :: Lens' GetClusterCredentialsWithIAM (Maybe Text)
+ Amazonka.Redshift.GetClusterCredentialsWithIAM: getClusterCredentialsWithIAM_durationSeconds :: Lens' GetClusterCredentialsWithIAM (Maybe Int)
+ Amazonka.Redshift.GetClusterCredentialsWithIAM: instance Amazonka.Data.Headers.ToHeaders Amazonka.Redshift.GetClusterCredentialsWithIAM.GetClusterCredentialsWithIAM
+ Amazonka.Redshift.GetClusterCredentialsWithIAM: instance Amazonka.Data.Path.ToPath Amazonka.Redshift.GetClusterCredentialsWithIAM.GetClusterCredentialsWithIAM
+ Amazonka.Redshift.GetClusterCredentialsWithIAM: instance Amazonka.Data.Query.ToQuery Amazonka.Redshift.GetClusterCredentialsWithIAM.GetClusterCredentialsWithIAM
+ Amazonka.Redshift.GetClusterCredentialsWithIAM: instance Amazonka.Types.AWSRequest Amazonka.Redshift.GetClusterCredentialsWithIAM.GetClusterCredentialsWithIAM
+ Amazonka.Redshift.GetClusterCredentialsWithIAM: instance Control.DeepSeq.NFData Amazonka.Redshift.GetClusterCredentialsWithIAM.GetClusterCredentialsWithIAM
+ Amazonka.Redshift.GetClusterCredentialsWithIAM: instance Control.DeepSeq.NFData Amazonka.Redshift.GetClusterCredentialsWithIAM.GetClusterCredentialsWithIAMResponse
+ Amazonka.Redshift.GetClusterCredentialsWithIAM: instance Data.Hashable.Class.Hashable Amazonka.Redshift.GetClusterCredentialsWithIAM.GetClusterCredentialsWithIAM
+ Amazonka.Redshift.GetClusterCredentialsWithIAM: instance GHC.Classes.Eq Amazonka.Redshift.GetClusterCredentialsWithIAM.GetClusterCredentialsWithIAM
+ Amazonka.Redshift.GetClusterCredentialsWithIAM: instance GHC.Classes.Eq Amazonka.Redshift.GetClusterCredentialsWithIAM.GetClusterCredentialsWithIAMResponse
+ Amazonka.Redshift.GetClusterCredentialsWithIAM: instance GHC.Generics.Generic Amazonka.Redshift.GetClusterCredentialsWithIAM.GetClusterCredentialsWithIAM
+ Amazonka.Redshift.GetClusterCredentialsWithIAM: instance GHC.Generics.Generic Amazonka.Redshift.GetClusterCredentialsWithIAM.GetClusterCredentialsWithIAMResponse
+ Amazonka.Redshift.GetClusterCredentialsWithIAM: instance GHC.Read.Read Amazonka.Redshift.GetClusterCredentialsWithIAM.GetClusterCredentialsWithIAM
+ Amazonka.Redshift.GetClusterCredentialsWithIAM: instance GHC.Show.Show Amazonka.Redshift.GetClusterCredentialsWithIAM.GetClusterCredentialsWithIAM
+ Amazonka.Redshift.GetClusterCredentialsWithIAM: instance GHC.Show.Show Amazonka.Redshift.GetClusterCredentialsWithIAM.GetClusterCredentialsWithIAMResponse
+ Amazonka.Redshift.GetClusterCredentialsWithIAM: newGetClusterCredentialsWithIAM :: Text -> GetClusterCredentialsWithIAM
+ Amazonka.Redshift.GetClusterCredentialsWithIAM: newGetClusterCredentialsWithIAMResponse :: Int -> GetClusterCredentialsWithIAMResponse
+ Amazonka.Redshift.GetReservedNodeExchangeConfigurationOptions: GetReservedNodeExchangeConfigurationOptions' :: Maybe Text -> Maybe Text -> Maybe Int -> Maybe Text -> ReservedNodeExchangeActionType -> GetReservedNodeExchangeConfigurationOptions
+ Amazonka.Redshift.GetReservedNodeExchangeConfigurationOptions: GetReservedNodeExchangeConfigurationOptionsResponse' :: Maybe Text -> Maybe [ReservedNodeConfigurationOption] -> Int -> GetReservedNodeExchangeConfigurationOptionsResponse
+ Amazonka.Redshift.GetReservedNodeExchangeConfigurationOptions: [$sel:actionType:GetReservedNodeExchangeConfigurationOptions'] :: GetReservedNodeExchangeConfigurationOptions -> ReservedNodeExchangeActionType
+ Amazonka.Redshift.GetReservedNodeExchangeConfigurationOptions: [$sel:clusterIdentifier:GetReservedNodeExchangeConfigurationOptions'] :: GetReservedNodeExchangeConfigurationOptions -> Maybe Text
+ Amazonka.Redshift.GetReservedNodeExchangeConfigurationOptions: [$sel:httpStatus:GetReservedNodeExchangeConfigurationOptionsResponse'] :: GetReservedNodeExchangeConfigurationOptionsResponse -> Int
+ Amazonka.Redshift.GetReservedNodeExchangeConfigurationOptions: [$sel:marker:GetReservedNodeExchangeConfigurationOptions'] :: GetReservedNodeExchangeConfigurationOptions -> Maybe Text
+ Amazonka.Redshift.GetReservedNodeExchangeConfigurationOptions: [$sel:marker:GetReservedNodeExchangeConfigurationOptionsResponse'] :: GetReservedNodeExchangeConfigurationOptionsResponse -> Maybe Text
+ Amazonka.Redshift.GetReservedNodeExchangeConfigurationOptions: [$sel:maxRecords:GetReservedNodeExchangeConfigurationOptions'] :: GetReservedNodeExchangeConfigurationOptions -> Maybe Int
+ Amazonka.Redshift.GetReservedNodeExchangeConfigurationOptions: [$sel:reservedNodeConfigurationOptionList:GetReservedNodeExchangeConfigurationOptionsResponse'] :: GetReservedNodeExchangeConfigurationOptionsResponse -> Maybe [ReservedNodeConfigurationOption]
+ Amazonka.Redshift.GetReservedNodeExchangeConfigurationOptions: [$sel:snapshotIdentifier:GetReservedNodeExchangeConfigurationOptions'] :: GetReservedNodeExchangeConfigurationOptions -> Maybe Text
+ Amazonka.Redshift.GetReservedNodeExchangeConfigurationOptions: data GetReservedNodeExchangeConfigurationOptions
+ Amazonka.Redshift.GetReservedNodeExchangeConfigurationOptions: data GetReservedNodeExchangeConfigurationOptionsResponse
+ Amazonka.Redshift.GetReservedNodeExchangeConfigurationOptions: getReservedNodeExchangeConfigurationOptionsResponse_httpStatus :: Lens' GetReservedNodeExchangeConfigurationOptionsResponse Int
+ Amazonka.Redshift.GetReservedNodeExchangeConfigurationOptions: getReservedNodeExchangeConfigurationOptionsResponse_marker :: Lens' GetReservedNodeExchangeConfigurationOptionsResponse (Maybe Text)
+ Amazonka.Redshift.GetReservedNodeExchangeConfigurationOptions: getReservedNodeExchangeConfigurationOptionsResponse_reservedNodeConfigurationOptionList :: Lens' GetReservedNodeExchangeConfigurationOptionsResponse (Maybe [ReservedNodeConfigurationOption])
+ Amazonka.Redshift.GetReservedNodeExchangeConfigurationOptions: getReservedNodeExchangeConfigurationOptions_actionType :: Lens' GetReservedNodeExchangeConfigurationOptions ReservedNodeExchangeActionType
+ Amazonka.Redshift.GetReservedNodeExchangeConfigurationOptions: getReservedNodeExchangeConfigurationOptions_clusterIdentifier :: Lens' GetReservedNodeExchangeConfigurationOptions (Maybe Text)
+ Amazonka.Redshift.GetReservedNodeExchangeConfigurationOptions: getReservedNodeExchangeConfigurationOptions_marker :: Lens' GetReservedNodeExchangeConfigurationOptions (Maybe Text)
+ Amazonka.Redshift.GetReservedNodeExchangeConfigurationOptions: getReservedNodeExchangeConfigurationOptions_maxRecords :: Lens' GetReservedNodeExchangeConfigurationOptions (Maybe Int)
+ Amazonka.Redshift.GetReservedNodeExchangeConfigurationOptions: getReservedNodeExchangeConfigurationOptions_snapshotIdentifier :: Lens' GetReservedNodeExchangeConfigurationOptions (Maybe Text)
+ Amazonka.Redshift.GetReservedNodeExchangeConfigurationOptions: instance Amazonka.Data.Headers.ToHeaders Amazonka.Redshift.GetReservedNodeExchangeConfigurationOptions.GetReservedNodeExchangeConfigurationOptions
+ Amazonka.Redshift.GetReservedNodeExchangeConfigurationOptions: instance Amazonka.Data.Path.ToPath Amazonka.Redshift.GetReservedNodeExchangeConfigurationOptions.GetReservedNodeExchangeConfigurationOptions
+ Amazonka.Redshift.GetReservedNodeExchangeConfigurationOptions: instance Amazonka.Data.Query.ToQuery Amazonka.Redshift.GetReservedNodeExchangeConfigurationOptions.GetReservedNodeExchangeConfigurationOptions
+ Amazonka.Redshift.GetReservedNodeExchangeConfigurationOptions: instance Amazonka.Pager.AWSPager Amazonka.Redshift.GetReservedNodeExchangeConfigurationOptions.GetReservedNodeExchangeConfigurationOptions
+ Amazonka.Redshift.GetReservedNodeExchangeConfigurationOptions: instance Amazonka.Types.AWSRequest Amazonka.Redshift.GetReservedNodeExchangeConfigurationOptions.GetReservedNodeExchangeConfigurationOptions
+ Amazonka.Redshift.GetReservedNodeExchangeConfigurationOptions: instance Control.DeepSeq.NFData Amazonka.Redshift.GetReservedNodeExchangeConfigurationOptions.GetReservedNodeExchangeConfigurationOptions
+ Amazonka.Redshift.GetReservedNodeExchangeConfigurationOptions: instance Control.DeepSeq.NFData Amazonka.Redshift.GetReservedNodeExchangeConfigurationOptions.GetReservedNodeExchangeConfigurationOptionsResponse
+ Amazonka.Redshift.GetReservedNodeExchangeConfigurationOptions: instance Data.Hashable.Class.Hashable Amazonka.Redshift.GetReservedNodeExchangeConfigurationOptions.GetReservedNodeExchangeConfigurationOptions
+ Amazonka.Redshift.GetReservedNodeExchangeConfigurationOptions: instance GHC.Classes.Eq Amazonka.Redshift.GetReservedNodeExchangeConfigurationOptions.GetReservedNodeExchangeConfigurationOptions
+ Amazonka.Redshift.GetReservedNodeExchangeConfigurationOptions: instance GHC.Classes.Eq Amazonka.Redshift.GetReservedNodeExchangeConfigurationOptions.GetReservedNodeExchangeConfigurationOptionsResponse
+ Amazonka.Redshift.GetReservedNodeExchangeConfigurationOptions: instance GHC.Generics.Generic Amazonka.Redshift.GetReservedNodeExchangeConfigurationOptions.GetReservedNodeExchangeConfigurationOptions
+ Amazonka.Redshift.GetReservedNodeExchangeConfigurationOptions: instance GHC.Generics.Generic Amazonka.Redshift.GetReservedNodeExchangeConfigurationOptions.GetReservedNodeExchangeConfigurationOptionsResponse
+ Amazonka.Redshift.GetReservedNodeExchangeConfigurationOptions: instance GHC.Read.Read Amazonka.Redshift.GetReservedNodeExchangeConfigurationOptions.GetReservedNodeExchangeConfigurationOptions
+ Amazonka.Redshift.GetReservedNodeExchangeConfigurationOptions: instance GHC.Read.Read Amazonka.Redshift.GetReservedNodeExchangeConfigurationOptions.GetReservedNodeExchangeConfigurationOptionsResponse
+ Amazonka.Redshift.GetReservedNodeExchangeConfigurationOptions: instance GHC.Show.Show Amazonka.Redshift.GetReservedNodeExchangeConfigurationOptions.GetReservedNodeExchangeConfigurationOptions
+ Amazonka.Redshift.GetReservedNodeExchangeConfigurationOptions: instance GHC.Show.Show Amazonka.Redshift.GetReservedNodeExchangeConfigurationOptions.GetReservedNodeExchangeConfigurationOptionsResponse
+ Amazonka.Redshift.GetReservedNodeExchangeConfigurationOptions: newGetReservedNodeExchangeConfigurationOptions :: ReservedNodeExchangeActionType -> GetReservedNodeExchangeConfigurationOptions
+ Amazonka.Redshift.GetReservedNodeExchangeConfigurationOptions: newGetReservedNodeExchangeConfigurationOptionsResponse :: Int -> GetReservedNodeExchangeConfigurationOptionsResponse
+ Amazonka.Redshift.GetReservedNodeExchangeOfferings: GetReservedNodeExchangeOfferings' :: Maybe Text -> Maybe Int -> Text -> GetReservedNodeExchangeOfferings
+ Amazonka.Redshift.GetReservedNodeExchangeOfferings: GetReservedNodeExchangeOfferingsResponse' :: Maybe Text -> Maybe [ReservedNodeOffering] -> Int -> GetReservedNodeExchangeOfferingsResponse
+ Amazonka.Redshift.GetReservedNodeExchangeOfferings: [$sel:httpStatus:GetReservedNodeExchangeOfferingsResponse'] :: GetReservedNodeExchangeOfferingsResponse -> Int
+ Amazonka.Redshift.GetReservedNodeExchangeOfferings: [$sel:marker:GetReservedNodeExchangeOfferings'] :: GetReservedNodeExchangeOfferings -> Maybe Text
+ Amazonka.Redshift.GetReservedNodeExchangeOfferings: [$sel:marker:GetReservedNodeExchangeOfferingsResponse'] :: GetReservedNodeExchangeOfferingsResponse -> Maybe Text
+ Amazonka.Redshift.GetReservedNodeExchangeOfferings: [$sel:maxRecords:GetReservedNodeExchangeOfferings'] :: GetReservedNodeExchangeOfferings -> Maybe Int
+ Amazonka.Redshift.GetReservedNodeExchangeOfferings: [$sel:reservedNodeId:GetReservedNodeExchangeOfferings'] :: GetReservedNodeExchangeOfferings -> Text
+ Amazonka.Redshift.GetReservedNodeExchangeOfferings: [$sel:reservedNodeOfferings:GetReservedNodeExchangeOfferingsResponse'] :: GetReservedNodeExchangeOfferingsResponse -> Maybe [ReservedNodeOffering]
+ Amazonka.Redshift.GetReservedNodeExchangeOfferings: data GetReservedNodeExchangeOfferings
+ Amazonka.Redshift.GetReservedNodeExchangeOfferings: data GetReservedNodeExchangeOfferingsResponse
+ Amazonka.Redshift.GetReservedNodeExchangeOfferings: getReservedNodeExchangeOfferingsResponse_httpStatus :: Lens' GetReservedNodeExchangeOfferingsResponse Int
+ Amazonka.Redshift.GetReservedNodeExchangeOfferings: getReservedNodeExchangeOfferingsResponse_marker :: Lens' GetReservedNodeExchangeOfferingsResponse (Maybe Text)
+ Amazonka.Redshift.GetReservedNodeExchangeOfferings: getReservedNodeExchangeOfferingsResponse_reservedNodeOfferings :: Lens' GetReservedNodeExchangeOfferingsResponse (Maybe [ReservedNodeOffering])
+ Amazonka.Redshift.GetReservedNodeExchangeOfferings: getReservedNodeExchangeOfferings_marker :: Lens' GetReservedNodeExchangeOfferings (Maybe Text)
+ Amazonka.Redshift.GetReservedNodeExchangeOfferings: getReservedNodeExchangeOfferings_maxRecords :: Lens' GetReservedNodeExchangeOfferings (Maybe Int)
+ Amazonka.Redshift.GetReservedNodeExchangeOfferings: getReservedNodeExchangeOfferings_reservedNodeId :: Lens' GetReservedNodeExchangeOfferings Text
+ Amazonka.Redshift.GetReservedNodeExchangeOfferings: instance Amazonka.Data.Headers.ToHeaders Amazonka.Redshift.GetReservedNodeExchangeOfferings.GetReservedNodeExchangeOfferings
+ Amazonka.Redshift.GetReservedNodeExchangeOfferings: instance Amazonka.Data.Path.ToPath Amazonka.Redshift.GetReservedNodeExchangeOfferings.GetReservedNodeExchangeOfferings
+ Amazonka.Redshift.GetReservedNodeExchangeOfferings: instance Amazonka.Data.Query.ToQuery Amazonka.Redshift.GetReservedNodeExchangeOfferings.GetReservedNodeExchangeOfferings
+ Amazonka.Redshift.GetReservedNodeExchangeOfferings: instance Amazonka.Pager.AWSPager Amazonka.Redshift.GetReservedNodeExchangeOfferings.GetReservedNodeExchangeOfferings
+ Amazonka.Redshift.GetReservedNodeExchangeOfferings: instance Amazonka.Types.AWSRequest Amazonka.Redshift.GetReservedNodeExchangeOfferings.GetReservedNodeExchangeOfferings
+ Amazonka.Redshift.GetReservedNodeExchangeOfferings: instance Control.DeepSeq.NFData Amazonka.Redshift.GetReservedNodeExchangeOfferings.GetReservedNodeExchangeOfferings
+ Amazonka.Redshift.GetReservedNodeExchangeOfferings: instance Control.DeepSeq.NFData Amazonka.Redshift.GetReservedNodeExchangeOfferings.GetReservedNodeExchangeOfferingsResponse
+ Amazonka.Redshift.GetReservedNodeExchangeOfferings: instance Data.Hashable.Class.Hashable Amazonka.Redshift.GetReservedNodeExchangeOfferings.GetReservedNodeExchangeOfferings
+ Amazonka.Redshift.GetReservedNodeExchangeOfferings: instance GHC.Classes.Eq Amazonka.Redshift.GetReservedNodeExchangeOfferings.GetReservedNodeExchangeOfferings
+ Amazonka.Redshift.GetReservedNodeExchangeOfferings: instance GHC.Classes.Eq Amazonka.Redshift.GetReservedNodeExchangeOfferings.GetReservedNodeExchangeOfferingsResponse
+ Amazonka.Redshift.GetReservedNodeExchangeOfferings: instance GHC.Generics.Generic Amazonka.Redshift.GetReservedNodeExchangeOfferings.GetReservedNodeExchangeOfferings
+ Amazonka.Redshift.GetReservedNodeExchangeOfferings: instance GHC.Generics.Generic Amazonka.Redshift.GetReservedNodeExchangeOfferings.GetReservedNodeExchangeOfferingsResponse
+ Amazonka.Redshift.GetReservedNodeExchangeOfferings: instance GHC.Read.Read Amazonka.Redshift.GetReservedNodeExchangeOfferings.GetReservedNodeExchangeOfferings
+ Amazonka.Redshift.GetReservedNodeExchangeOfferings: instance GHC.Read.Read Amazonka.Redshift.GetReservedNodeExchangeOfferings.GetReservedNodeExchangeOfferingsResponse
+ Amazonka.Redshift.GetReservedNodeExchangeOfferings: instance GHC.Show.Show Amazonka.Redshift.GetReservedNodeExchangeOfferings.GetReservedNodeExchangeOfferings
+ Amazonka.Redshift.GetReservedNodeExchangeOfferings: instance GHC.Show.Show Amazonka.Redshift.GetReservedNodeExchangeOfferings.GetReservedNodeExchangeOfferingsResponse
+ Amazonka.Redshift.GetReservedNodeExchangeOfferings: newGetReservedNodeExchangeOfferings :: Text -> GetReservedNodeExchangeOfferings
+ Amazonka.Redshift.GetReservedNodeExchangeOfferings: newGetReservedNodeExchangeOfferingsResponse :: Int -> GetReservedNodeExchangeOfferingsResponse
+ Amazonka.Redshift.Internal: getAccountId :: Region -> Maybe Text
+ Amazonka.Redshift.Internal: getCloudTrailAccountId :: Region -> Maybe Text
+ Amazonka.Redshift.Lens: acceptReservedNodeExchangeResponse_exchangedReservedNode :: Lens' AcceptReservedNodeExchangeResponse (Maybe ReservedNode)
+ Amazonka.Redshift.Lens: acceptReservedNodeExchangeResponse_httpStatus :: Lens' AcceptReservedNodeExchangeResponse Int
+ Amazonka.Redshift.Lens: acceptReservedNodeExchange_reservedNodeId :: Lens' AcceptReservedNodeExchange Text
+ Amazonka.Redshift.Lens: acceptReservedNodeExchange_targetReservedNodeOfferingId :: Lens' AcceptReservedNodeExchange Text
+ Amazonka.Redshift.Lens: accountAttribute_attributeName :: Lens' AccountAttribute (Maybe Text)
+ Amazonka.Redshift.Lens: accountAttribute_attributeValues :: Lens' AccountAttribute (Maybe [AttributeValueTarget])
+ Amazonka.Redshift.Lens: accountWithRestoreAccess_accountAlias :: Lens' AccountWithRestoreAccess (Maybe Text)
+ Amazonka.Redshift.Lens: accountWithRestoreAccess_accountId :: Lens' AccountWithRestoreAccess (Maybe Text)
+ Amazonka.Redshift.Lens: addPartner_accountId :: Lens' AddPartner Text
+ Amazonka.Redshift.Lens: addPartner_clusterIdentifier :: Lens' AddPartner Text
+ Amazonka.Redshift.Lens: addPartner_databaseName :: Lens' AddPartner Text
+ Amazonka.Redshift.Lens: addPartner_partnerName :: Lens' AddPartner Text
+ Amazonka.Redshift.Lens: aquaConfiguration_aquaConfigurationStatus :: Lens' AquaConfiguration (Maybe AquaConfigurationStatus)
+ Amazonka.Redshift.Lens: aquaConfiguration_aquaStatus :: Lens' AquaConfiguration (Maybe AquaStatus)
+ Amazonka.Redshift.Lens: associateDataShareConsumer_associateEntireAccount :: Lens' AssociateDataShareConsumer (Maybe Bool)
+ Amazonka.Redshift.Lens: associateDataShareConsumer_consumerArn :: Lens' AssociateDataShareConsumer (Maybe Text)
+ Amazonka.Redshift.Lens: associateDataShareConsumer_consumerRegion :: Lens' AssociateDataShareConsumer (Maybe Text)
+ Amazonka.Redshift.Lens: associateDataShareConsumer_dataShareArn :: Lens' AssociateDataShareConsumer Text
+ Amazonka.Redshift.Lens: attributeValueTarget_attributeValue :: Lens' AttributeValueTarget (Maybe Text)
+ Amazonka.Redshift.Lens: authenticationProfile_authenticationProfileContent :: Lens' AuthenticationProfile (Maybe Text)
+ Amazonka.Redshift.Lens: authenticationProfile_authenticationProfileName :: Lens' AuthenticationProfile (Maybe Text)
+ Amazonka.Redshift.Lens: authorizeClusterSecurityGroupIngressResponse_clusterSecurityGroup :: Lens' AuthorizeClusterSecurityGroupIngressResponse (Maybe ClusterSecurityGroup)
+ Amazonka.Redshift.Lens: authorizeClusterSecurityGroupIngressResponse_httpStatus :: Lens' AuthorizeClusterSecurityGroupIngressResponse Int
+ Amazonka.Redshift.Lens: authorizeClusterSecurityGroupIngress_cidrip :: Lens' AuthorizeClusterSecurityGroupIngress (Maybe Text)
+ Amazonka.Redshift.Lens: authorizeClusterSecurityGroupIngress_clusterSecurityGroupName :: Lens' AuthorizeClusterSecurityGroupIngress Text
+ Amazonka.Redshift.Lens: authorizeClusterSecurityGroupIngress_eC2SecurityGroupName :: Lens' AuthorizeClusterSecurityGroupIngress (Maybe Text)
+ Amazonka.Redshift.Lens: authorizeClusterSecurityGroupIngress_eC2SecurityGroupOwnerId :: Lens' AuthorizeClusterSecurityGroupIngress (Maybe Text)
+ Amazonka.Redshift.Lens: authorizeDataShare_consumerIdentifier :: Lens' AuthorizeDataShare Text
+ Amazonka.Redshift.Lens: authorizeDataShare_dataShareArn :: Lens' AuthorizeDataShare Text
+ Amazonka.Redshift.Lens: authorizeEndpointAccess_account :: Lens' AuthorizeEndpointAccess Text
+ Amazonka.Redshift.Lens: authorizeEndpointAccess_clusterIdentifier :: Lens' AuthorizeEndpointAccess (Maybe Text)
+ Amazonka.Redshift.Lens: authorizeEndpointAccess_vpcIds :: Lens' AuthorizeEndpointAccess (Maybe [Text])
+ Amazonka.Redshift.Lens: authorizeSnapshotAccessResponse_httpStatus :: Lens' AuthorizeSnapshotAccessResponse Int
+ Amazonka.Redshift.Lens: authorizeSnapshotAccessResponse_snapshot :: Lens' AuthorizeSnapshotAccessResponse (Maybe Snapshot)
+ Amazonka.Redshift.Lens: authorizeSnapshotAccess_accountWithRestoreAccess :: Lens' AuthorizeSnapshotAccess Text
+ Amazonka.Redshift.Lens: authorizeSnapshotAccess_snapshotArn :: Lens' AuthorizeSnapshotAccess (Maybe Text)
+ Amazonka.Redshift.Lens: authorizeSnapshotAccess_snapshotClusterIdentifier :: Lens' AuthorizeSnapshotAccess (Maybe Text)
+ Amazonka.Redshift.Lens: authorizeSnapshotAccess_snapshotIdentifier :: Lens' AuthorizeSnapshotAccess (Maybe Text)
+ Amazonka.Redshift.Lens: availabilityZone_name :: Lens' AvailabilityZone (Maybe Text)
+ Amazonka.Redshift.Lens: availabilityZone_supportedPlatforms :: Lens' AvailabilityZone (Maybe [SupportedPlatform])
+ Amazonka.Redshift.Lens: batchDeleteClusterSnapshotsResponse_errors :: Lens' BatchDeleteClusterSnapshotsResponse (Maybe [SnapshotErrorMessage])
+ Amazonka.Redshift.Lens: batchDeleteClusterSnapshotsResponse_httpStatus :: Lens' BatchDeleteClusterSnapshotsResponse Int
+ Amazonka.Redshift.Lens: batchDeleteClusterSnapshotsResponse_resources :: Lens' BatchDeleteClusterSnapshotsResponse (Maybe [Text])
+ Amazonka.Redshift.Lens: batchDeleteClusterSnapshots_identifiers :: Lens' BatchDeleteClusterSnapshots [DeleteClusterSnapshotMessage]
+ Amazonka.Redshift.Lens: batchModifyClusterSnapshotsResponse_errors :: Lens' BatchModifyClusterSnapshotsResponse (Maybe [SnapshotErrorMessage])
+ Amazonka.Redshift.Lens: batchModifyClusterSnapshotsResponse_httpStatus :: Lens' BatchModifyClusterSnapshotsResponse Int
+ Amazonka.Redshift.Lens: batchModifyClusterSnapshotsResponse_resources :: Lens' BatchModifyClusterSnapshotsResponse (Maybe [Text])
+ Amazonka.Redshift.Lens: batchModifyClusterSnapshots_force :: Lens' BatchModifyClusterSnapshots (Maybe Bool)
+ Amazonka.Redshift.Lens: batchModifyClusterSnapshots_manualSnapshotRetentionPeriod :: Lens' BatchModifyClusterSnapshots (Maybe Int)
+ Amazonka.Redshift.Lens: batchModifyClusterSnapshots_snapshotIdentifierList :: Lens' BatchModifyClusterSnapshots [Text]
+ Amazonka.Redshift.Lens: cancelResize_clusterIdentifier :: Lens' CancelResize Text
+ Amazonka.Redshift.Lens: clusterAssociatedToSchedule_clusterIdentifier :: Lens' ClusterAssociatedToSchedule (Maybe Text)
+ Amazonka.Redshift.Lens: clusterAssociatedToSchedule_scheduleAssociationState :: Lens' ClusterAssociatedToSchedule (Maybe ScheduleState)
+ Amazonka.Redshift.Lens: clusterDbRevision_clusterIdentifier :: Lens' ClusterDbRevision (Maybe Text)
+ Amazonka.Redshift.Lens: clusterDbRevision_currentDatabaseRevision :: Lens' ClusterDbRevision (Maybe Text)
+ Amazonka.Redshift.Lens: clusterDbRevision_databaseRevisionReleaseDate :: Lens' ClusterDbRevision (Maybe UTCTime)
+ Amazonka.Redshift.Lens: clusterDbRevision_revisionTargets :: Lens' ClusterDbRevision (Maybe [RevisionTarget])
+ Amazonka.Redshift.Lens: clusterIamRole_applyStatus :: Lens' ClusterIamRole (Maybe Text)
+ Amazonka.Redshift.Lens: clusterIamRole_iamRoleArn :: Lens' ClusterIamRole (Maybe Text)
+ Amazonka.Redshift.Lens: clusterNode_nodeRole :: Lens' ClusterNode (Maybe Text)
+ Amazonka.Redshift.Lens: clusterNode_privateIPAddress :: Lens' ClusterNode (Maybe Text)
+ Amazonka.Redshift.Lens: clusterNode_publicIPAddress :: Lens' ClusterNode (Maybe Text)
+ Amazonka.Redshift.Lens: clusterParameterGroupNameMessage_parameterGroupName :: Lens' ClusterParameterGroupNameMessage (Maybe Text)
+ Amazonka.Redshift.Lens: clusterParameterGroupNameMessage_parameterGroupStatus :: Lens' ClusterParameterGroupNameMessage (Maybe Text)
+ Amazonka.Redshift.Lens: clusterParameterGroupStatus_clusterParameterStatusList :: Lens' ClusterParameterGroupStatus (Maybe [ClusterParameterStatus])
+ Amazonka.Redshift.Lens: clusterParameterGroupStatus_parameterApplyStatus :: Lens' ClusterParameterGroupStatus (Maybe Text)
+ Amazonka.Redshift.Lens: clusterParameterGroupStatus_parameterGroupName :: Lens' ClusterParameterGroupStatus (Maybe Text)
+ Amazonka.Redshift.Lens: clusterParameterGroup_description :: Lens' ClusterParameterGroup (Maybe Text)
+ Amazonka.Redshift.Lens: clusterParameterGroup_parameterGroupFamily :: Lens' ClusterParameterGroup (Maybe Text)
+ Amazonka.Redshift.Lens: clusterParameterGroup_parameterGroupName :: Lens' ClusterParameterGroup (Maybe Text)
+ Amazonka.Redshift.Lens: clusterParameterGroup_tags :: Lens' ClusterParameterGroup (Maybe [Tag])
+ Amazonka.Redshift.Lens: clusterParameterStatus_parameterApplyErrorDescription :: Lens' ClusterParameterStatus (Maybe Text)
+ Amazonka.Redshift.Lens: clusterParameterStatus_parameterApplyStatus :: Lens' ClusterParameterStatus (Maybe Text)
+ Amazonka.Redshift.Lens: clusterParameterStatus_parameterName :: Lens' ClusterParameterStatus (Maybe Text)
+ Amazonka.Redshift.Lens: clusterSecurityGroupMembership_clusterSecurityGroupName :: Lens' ClusterSecurityGroupMembership (Maybe Text)
+ Amazonka.Redshift.Lens: clusterSecurityGroupMembership_status :: Lens' ClusterSecurityGroupMembership (Maybe Text)
+ Amazonka.Redshift.Lens: clusterSecurityGroup_clusterSecurityGroupName :: Lens' ClusterSecurityGroup (Maybe Text)
+ Amazonka.Redshift.Lens: clusterSecurityGroup_description :: Lens' ClusterSecurityGroup (Maybe Text)
+ Amazonka.Redshift.Lens: clusterSecurityGroup_eC2SecurityGroups :: Lens' ClusterSecurityGroup (Maybe [EC2SecurityGroup])
+ Amazonka.Redshift.Lens: clusterSecurityGroup_iPRanges :: Lens' ClusterSecurityGroup (Maybe [IPRange])
+ Amazonka.Redshift.Lens: clusterSecurityGroup_tags :: Lens' ClusterSecurityGroup (Maybe [Tag])
+ Amazonka.Redshift.Lens: clusterSnapshotCopyStatus_destinationRegion :: Lens' ClusterSnapshotCopyStatus (Maybe Text)
+ Amazonka.Redshift.Lens: clusterSnapshotCopyStatus_manualSnapshotRetentionPeriod :: Lens' ClusterSnapshotCopyStatus (Maybe Int)
+ Amazonka.Redshift.Lens: clusterSnapshotCopyStatus_retentionPeriod :: Lens' ClusterSnapshotCopyStatus (Maybe Integer)
+ Amazonka.Redshift.Lens: clusterSnapshotCopyStatus_snapshotCopyGrantName :: Lens' ClusterSnapshotCopyStatus (Maybe Text)
+ Amazonka.Redshift.Lens: clusterSubnetGroup_clusterSubnetGroupName :: Lens' ClusterSubnetGroup (Maybe Text)
+ Amazonka.Redshift.Lens: clusterSubnetGroup_description :: Lens' ClusterSubnetGroup (Maybe Text)
+ Amazonka.Redshift.Lens: clusterSubnetGroup_subnetGroupStatus :: Lens' ClusterSubnetGroup (Maybe Text)
+ Amazonka.Redshift.Lens: clusterSubnetGroup_subnets :: Lens' ClusterSubnetGroup (Maybe [Subnet])
+ Amazonka.Redshift.Lens: clusterSubnetGroup_tags :: Lens' ClusterSubnetGroup (Maybe [Tag])
+ Amazonka.Redshift.Lens: clusterSubnetGroup_vpcId :: Lens' ClusterSubnetGroup (Maybe Text)
+ Amazonka.Redshift.Lens: clusterVersion_clusterParameterGroupFamily :: Lens' ClusterVersion (Maybe Text)
+ Amazonka.Redshift.Lens: clusterVersion_clusterVersion :: Lens' ClusterVersion (Maybe Text)
+ Amazonka.Redshift.Lens: clusterVersion_description :: Lens' ClusterVersion (Maybe Text)
+ Amazonka.Redshift.Lens: cluster_allowVersionUpgrade :: Lens' Cluster (Maybe Bool)
+ Amazonka.Redshift.Lens: cluster_aquaConfiguration :: Lens' Cluster (Maybe AquaConfiguration)
+ Amazonka.Redshift.Lens: cluster_automatedSnapshotRetentionPeriod :: Lens' Cluster (Maybe Int)
+ Amazonka.Redshift.Lens: cluster_availabilityZone :: Lens' Cluster (Maybe Text)
+ Amazonka.Redshift.Lens: cluster_availabilityZoneRelocationStatus :: Lens' Cluster (Maybe Text)
+ Amazonka.Redshift.Lens: cluster_clusterAvailabilityStatus :: Lens' Cluster (Maybe Text)
+ Amazonka.Redshift.Lens: cluster_clusterCreateTime :: Lens' Cluster (Maybe UTCTime)
+ Amazonka.Redshift.Lens: cluster_clusterIdentifier :: Lens' Cluster (Maybe Text)
+ Amazonka.Redshift.Lens: cluster_clusterNamespaceArn :: Lens' Cluster (Maybe Text)
+ Amazonka.Redshift.Lens: cluster_clusterNodes :: Lens' Cluster (Maybe [ClusterNode])
+ Amazonka.Redshift.Lens: cluster_clusterParameterGroups :: Lens' Cluster (Maybe [ClusterParameterGroupStatus])
+ Amazonka.Redshift.Lens: cluster_clusterPublicKey :: Lens' Cluster (Maybe Text)
+ Amazonka.Redshift.Lens: cluster_clusterRevisionNumber :: Lens' Cluster (Maybe Text)
+ Amazonka.Redshift.Lens: cluster_clusterSecurityGroups :: Lens' Cluster (Maybe [ClusterSecurityGroupMembership])
+ Amazonka.Redshift.Lens: cluster_clusterSnapshotCopyStatus :: Lens' Cluster (Maybe ClusterSnapshotCopyStatus)
+ Amazonka.Redshift.Lens: cluster_clusterStatus :: Lens' Cluster (Maybe Text)
+ Amazonka.Redshift.Lens: cluster_clusterSubnetGroupName :: Lens' Cluster (Maybe Text)
+ Amazonka.Redshift.Lens: cluster_clusterVersion :: Lens' Cluster (Maybe Text)
+ Amazonka.Redshift.Lens: cluster_dataTransferProgress :: Lens' Cluster (Maybe DataTransferProgress)
+ Amazonka.Redshift.Lens: cluster_dbName :: Lens' Cluster (Maybe Text)
+ Amazonka.Redshift.Lens: cluster_defaultIamRoleArn :: Lens' Cluster (Maybe Text)
+ Amazonka.Redshift.Lens: cluster_deferredMaintenanceWindows :: Lens' Cluster (Maybe [DeferredMaintenanceWindow])
+ Amazonka.Redshift.Lens: cluster_elasticIpStatus :: Lens' Cluster (Maybe ElasticIpStatus)
+ Amazonka.Redshift.Lens: cluster_elasticResizeNumberOfNodeOptions :: Lens' Cluster (Maybe Text)
+ Amazonka.Redshift.Lens: cluster_encrypted :: Lens' Cluster (Maybe Bool)
+ Amazonka.Redshift.Lens: cluster_endpoint :: Lens' Cluster (Maybe Endpoint)
+ Amazonka.Redshift.Lens: cluster_enhancedVpcRouting :: Lens' Cluster (Maybe Bool)
+ Amazonka.Redshift.Lens: cluster_expectedNextSnapshotScheduleTime :: Lens' Cluster (Maybe UTCTime)
+ Amazonka.Redshift.Lens: cluster_expectedNextSnapshotScheduleTimeStatus :: Lens' Cluster (Maybe Text)
+ Amazonka.Redshift.Lens: cluster_hsmStatus :: Lens' Cluster (Maybe HsmStatus)
+ Amazonka.Redshift.Lens: cluster_iamRoles :: Lens' Cluster (Maybe [ClusterIamRole])
+ Amazonka.Redshift.Lens: cluster_kmsKeyId :: Lens' Cluster (Maybe Text)
+ Amazonka.Redshift.Lens: cluster_maintenanceTrackName :: Lens' Cluster (Maybe Text)
+ Amazonka.Redshift.Lens: cluster_manualSnapshotRetentionPeriod :: Lens' Cluster (Maybe Int)
+ Amazonka.Redshift.Lens: cluster_masterUsername :: Lens' Cluster (Maybe Text)
+ Amazonka.Redshift.Lens: cluster_modifyStatus :: Lens' Cluster (Maybe Text)
+ Amazonka.Redshift.Lens: cluster_nextMaintenanceWindowStartTime :: Lens' Cluster (Maybe UTCTime)
+ Amazonka.Redshift.Lens: cluster_nodeType :: Lens' Cluster (Maybe Text)
+ Amazonka.Redshift.Lens: cluster_numberOfNodes :: Lens' Cluster (Maybe Int)
+ Amazonka.Redshift.Lens: cluster_pendingActions :: Lens' Cluster (Maybe [Text])
+ Amazonka.Redshift.Lens: cluster_pendingModifiedValues :: Lens' Cluster (Maybe PendingModifiedValues)
+ Amazonka.Redshift.Lens: cluster_preferredMaintenanceWindow :: Lens' Cluster (Maybe Text)
+ Amazonka.Redshift.Lens: cluster_publiclyAccessible :: Lens' Cluster (Maybe Bool)
+ Amazonka.Redshift.Lens: cluster_reservedNodeExchangeStatus :: Lens' Cluster (Maybe ReservedNodeExchangeStatus)
+ Amazonka.Redshift.Lens: cluster_resizeInfo :: Lens' Cluster (Maybe ResizeInfo)
+ Amazonka.Redshift.Lens: cluster_restoreStatus :: Lens' Cluster (Maybe RestoreStatus)
+ Amazonka.Redshift.Lens: cluster_snapshotScheduleIdentifier :: Lens' Cluster (Maybe Text)
+ Amazonka.Redshift.Lens: cluster_snapshotScheduleState :: Lens' Cluster (Maybe ScheduleState)
+ Amazonka.Redshift.Lens: cluster_tags :: Lens' Cluster (Maybe [Tag])
+ Amazonka.Redshift.Lens: cluster_totalStorageCapacityInMegaBytes :: Lens' Cluster (Maybe Integer)
+ Amazonka.Redshift.Lens: cluster_vpcId :: Lens' Cluster (Maybe Text)
+ Amazonka.Redshift.Lens: cluster_vpcSecurityGroups :: Lens' Cluster (Maybe [VpcSecurityGroupMembership])
+ Amazonka.Redshift.Lens: copyClusterSnapshotResponse_httpStatus :: Lens' CopyClusterSnapshotResponse Int
+ Amazonka.Redshift.Lens: copyClusterSnapshotResponse_snapshot :: Lens' CopyClusterSnapshotResponse (Maybe Snapshot)
+ Amazonka.Redshift.Lens: copyClusterSnapshot_manualSnapshotRetentionPeriod :: Lens' CopyClusterSnapshot (Maybe Int)
+ Amazonka.Redshift.Lens: copyClusterSnapshot_sourceSnapshotClusterIdentifier :: Lens' CopyClusterSnapshot (Maybe Text)
+ Amazonka.Redshift.Lens: copyClusterSnapshot_sourceSnapshotIdentifier :: Lens' CopyClusterSnapshot Text
+ Amazonka.Redshift.Lens: copyClusterSnapshot_targetSnapshotIdentifier :: Lens' CopyClusterSnapshot Text
+ Amazonka.Redshift.Lens: createAuthenticationProfileResponse_authenticationProfileContent :: Lens' CreateAuthenticationProfileResponse (Maybe Text)
+ Amazonka.Redshift.Lens: createAuthenticationProfileResponse_authenticationProfileName :: Lens' CreateAuthenticationProfileResponse (Maybe Text)
+ Amazonka.Redshift.Lens: createAuthenticationProfileResponse_httpStatus :: Lens' CreateAuthenticationProfileResponse Int
+ Amazonka.Redshift.Lens: createAuthenticationProfile_authenticationProfileContent :: Lens' CreateAuthenticationProfile Text
+ Amazonka.Redshift.Lens: createAuthenticationProfile_authenticationProfileName :: Lens' CreateAuthenticationProfile Text
+ Amazonka.Redshift.Lens: createClusterParameterGroupResponse_clusterParameterGroup :: Lens' CreateClusterParameterGroupResponse (Maybe ClusterParameterGroup)
+ Amazonka.Redshift.Lens: createClusterParameterGroupResponse_httpStatus :: Lens' CreateClusterParameterGroupResponse Int
+ Amazonka.Redshift.Lens: createClusterParameterGroup_description :: Lens' CreateClusterParameterGroup Text
+ Amazonka.Redshift.Lens: createClusterParameterGroup_parameterGroupFamily :: Lens' CreateClusterParameterGroup Text
+ Amazonka.Redshift.Lens: createClusterParameterGroup_parameterGroupName :: Lens' CreateClusterParameterGroup Text
+ Amazonka.Redshift.Lens: createClusterParameterGroup_tags :: Lens' CreateClusterParameterGroup (Maybe [Tag])
+ Amazonka.Redshift.Lens: createClusterResponse_cluster :: Lens' CreateClusterResponse (Maybe Cluster)
+ Amazonka.Redshift.Lens: createClusterResponse_httpStatus :: Lens' CreateClusterResponse Int
+ Amazonka.Redshift.Lens: createClusterSecurityGroupResponse_clusterSecurityGroup :: Lens' CreateClusterSecurityGroupResponse (Maybe ClusterSecurityGroup)
+ Amazonka.Redshift.Lens: createClusterSecurityGroupResponse_httpStatus :: Lens' CreateClusterSecurityGroupResponse Int
+ Amazonka.Redshift.Lens: createClusterSecurityGroup_clusterSecurityGroupName :: Lens' CreateClusterSecurityGroup Text
+ Amazonka.Redshift.Lens: createClusterSecurityGroup_description :: Lens' CreateClusterSecurityGroup Text
+ Amazonka.Redshift.Lens: createClusterSecurityGroup_tags :: Lens' CreateClusterSecurityGroup (Maybe [Tag])
+ Amazonka.Redshift.Lens: createClusterSnapshotResponse_httpStatus :: Lens' CreateClusterSnapshotResponse Int
+ Amazonka.Redshift.Lens: createClusterSnapshotResponse_snapshot :: Lens' CreateClusterSnapshotResponse (Maybe Snapshot)
+ Amazonka.Redshift.Lens: createClusterSnapshot_clusterIdentifier :: Lens' CreateClusterSnapshot Text
+ Amazonka.Redshift.Lens: createClusterSnapshot_manualSnapshotRetentionPeriod :: Lens' CreateClusterSnapshot (Maybe Int)
+ Amazonka.Redshift.Lens: createClusterSnapshot_snapshotIdentifier :: Lens' CreateClusterSnapshot Text
+ Amazonka.Redshift.Lens: createClusterSnapshot_tags :: Lens' CreateClusterSnapshot (Maybe [Tag])
+ Amazonka.Redshift.Lens: createClusterSubnetGroupResponse_clusterSubnetGroup :: Lens' CreateClusterSubnetGroupResponse (Maybe ClusterSubnetGroup)
+ Amazonka.Redshift.Lens: createClusterSubnetGroupResponse_httpStatus :: Lens' CreateClusterSubnetGroupResponse Int
+ Amazonka.Redshift.Lens: createClusterSubnetGroup_clusterSubnetGroupName :: Lens' CreateClusterSubnetGroup Text
+ Amazonka.Redshift.Lens: createClusterSubnetGroup_description :: Lens' CreateClusterSubnetGroup Text
+ Amazonka.Redshift.Lens: createClusterSubnetGroup_subnetIds :: Lens' CreateClusterSubnetGroup [Text]
+ Amazonka.Redshift.Lens: createClusterSubnetGroup_tags :: Lens' CreateClusterSubnetGroup (Maybe [Tag])
+ Amazonka.Redshift.Lens: createCluster_additionalInfo :: Lens' CreateCluster (Maybe Text)
+ Amazonka.Redshift.Lens: createCluster_allowVersionUpgrade :: Lens' CreateCluster (Maybe Bool)
+ Amazonka.Redshift.Lens: createCluster_aquaConfigurationStatus :: Lens' CreateCluster (Maybe AquaConfigurationStatus)
+ Amazonka.Redshift.Lens: createCluster_automatedSnapshotRetentionPeriod :: Lens' CreateCluster (Maybe Int)
+ Amazonka.Redshift.Lens: createCluster_availabilityZone :: Lens' CreateCluster (Maybe Text)
+ Amazonka.Redshift.Lens: createCluster_availabilityZoneRelocation :: Lens' CreateCluster (Maybe Bool)
+ Amazonka.Redshift.Lens: createCluster_clusterIdentifier :: Lens' CreateCluster Text
+ Amazonka.Redshift.Lens: createCluster_clusterParameterGroupName :: Lens' CreateCluster (Maybe Text)
+ Amazonka.Redshift.Lens: createCluster_clusterSecurityGroups :: Lens' CreateCluster (Maybe [Text])
+ Amazonka.Redshift.Lens: createCluster_clusterSubnetGroupName :: Lens' CreateCluster (Maybe Text)
+ Amazonka.Redshift.Lens: createCluster_clusterType :: Lens' CreateCluster (Maybe Text)
+ Amazonka.Redshift.Lens: createCluster_clusterVersion :: Lens' CreateCluster (Maybe Text)
+ Amazonka.Redshift.Lens: createCluster_dbName :: Lens' CreateCluster (Maybe Text)
+ Amazonka.Redshift.Lens: createCluster_defaultIamRoleArn :: Lens' CreateCluster (Maybe Text)
+ Amazonka.Redshift.Lens: createCluster_elasticIp :: Lens' CreateCluster (Maybe Text)
+ Amazonka.Redshift.Lens: createCluster_encrypted :: Lens' CreateCluster (Maybe Bool)
+ Amazonka.Redshift.Lens: createCluster_enhancedVpcRouting :: Lens' CreateCluster (Maybe Bool)
+ Amazonka.Redshift.Lens: createCluster_hsmClientCertificateIdentifier :: Lens' CreateCluster (Maybe Text)
+ Amazonka.Redshift.Lens: createCluster_hsmConfigurationIdentifier :: Lens' CreateCluster (Maybe Text)
+ Amazonka.Redshift.Lens: createCluster_iamRoles :: Lens' CreateCluster (Maybe [Text])
+ Amazonka.Redshift.Lens: createCluster_kmsKeyId :: Lens' CreateCluster (Maybe Text)
+ Amazonka.Redshift.Lens: createCluster_loadSampleData :: Lens' CreateCluster (Maybe Text)
+ Amazonka.Redshift.Lens: createCluster_maintenanceTrackName :: Lens' CreateCluster (Maybe Text)
+ Amazonka.Redshift.Lens: createCluster_manualSnapshotRetentionPeriod :: Lens' CreateCluster (Maybe Int)
+ Amazonka.Redshift.Lens: createCluster_masterUserPassword :: Lens' CreateCluster Text
+ Amazonka.Redshift.Lens: createCluster_masterUsername :: Lens' CreateCluster Text
+ Amazonka.Redshift.Lens: createCluster_nodeType :: Lens' CreateCluster Text
+ Amazonka.Redshift.Lens: createCluster_numberOfNodes :: Lens' CreateCluster (Maybe Int)
+ Amazonka.Redshift.Lens: createCluster_port :: Lens' CreateCluster (Maybe Int)
+ Amazonka.Redshift.Lens: createCluster_preferredMaintenanceWindow :: Lens' CreateCluster (Maybe Text)
+ Amazonka.Redshift.Lens: createCluster_publiclyAccessible :: Lens' CreateCluster (Maybe Bool)
+ Amazonka.Redshift.Lens: createCluster_snapshotScheduleIdentifier :: Lens' CreateCluster (Maybe Text)
+ Amazonka.Redshift.Lens: createCluster_tags :: Lens' CreateCluster (Maybe [Tag])
+ Amazonka.Redshift.Lens: createCluster_vpcSecurityGroupIds :: Lens' CreateCluster (Maybe [Text])
+ Amazonka.Redshift.Lens: createEndpointAccess_clusterIdentifier :: Lens' CreateEndpointAccess (Maybe Text)
+ Amazonka.Redshift.Lens: createEndpointAccess_endpointName :: Lens' CreateEndpointAccess Text
+ Amazonka.Redshift.Lens: createEndpointAccess_resourceOwner :: Lens' CreateEndpointAccess (Maybe Text)
+ Amazonka.Redshift.Lens: createEndpointAccess_subnetGroupName :: Lens' CreateEndpointAccess Text
+ Amazonka.Redshift.Lens: createEndpointAccess_vpcSecurityGroupIds :: Lens' CreateEndpointAccess (Maybe [Text])
+ Amazonka.Redshift.Lens: createEventSubscriptionResponse_eventSubscription :: Lens' CreateEventSubscriptionResponse (Maybe EventSubscription)
+ Amazonka.Redshift.Lens: createEventSubscriptionResponse_httpStatus :: Lens' CreateEventSubscriptionResponse Int
+ Amazonka.Redshift.Lens: createEventSubscription_enabled :: Lens' CreateEventSubscription (Maybe Bool)
+ Amazonka.Redshift.Lens: createEventSubscription_eventCategories :: Lens' CreateEventSubscription (Maybe [Text])
+ Amazonka.Redshift.Lens: createEventSubscription_severity :: Lens' CreateEventSubscription (Maybe Text)
+ Amazonka.Redshift.Lens: createEventSubscription_snsTopicArn :: Lens' CreateEventSubscription Text
+ Amazonka.Redshift.Lens: createEventSubscription_sourceIds :: Lens' CreateEventSubscription (Maybe [Text])
+ Amazonka.Redshift.Lens: createEventSubscription_sourceType :: Lens' CreateEventSubscription (Maybe Text)
+ Amazonka.Redshift.Lens: createEventSubscription_subscriptionName :: Lens' CreateEventSubscription Text
+ Amazonka.Redshift.Lens: createEventSubscription_tags :: Lens' CreateEventSubscription (Maybe [Tag])
+ Amazonka.Redshift.Lens: createHsmClientCertificateResponse_hsmClientCertificate :: Lens' CreateHsmClientCertificateResponse (Maybe HsmClientCertificate)
+ Amazonka.Redshift.Lens: createHsmClientCertificateResponse_httpStatus :: Lens' CreateHsmClientCertificateResponse Int
+ Amazonka.Redshift.Lens: createHsmClientCertificate_hsmClientCertificateIdentifier :: Lens' CreateHsmClientCertificate Text
+ Amazonka.Redshift.Lens: createHsmClientCertificate_tags :: Lens' CreateHsmClientCertificate (Maybe [Tag])
+ Amazonka.Redshift.Lens: createHsmConfigurationResponse_hsmConfiguration :: Lens' CreateHsmConfigurationResponse (Maybe HsmConfiguration)
+ Amazonka.Redshift.Lens: createHsmConfigurationResponse_httpStatus :: Lens' CreateHsmConfigurationResponse Int
+ Amazonka.Redshift.Lens: createHsmConfiguration_description :: Lens' CreateHsmConfiguration Text
+ Amazonka.Redshift.Lens: createHsmConfiguration_hsmConfigurationIdentifier :: Lens' CreateHsmConfiguration Text
+ Amazonka.Redshift.Lens: createHsmConfiguration_hsmIpAddress :: Lens' CreateHsmConfiguration Text
+ Amazonka.Redshift.Lens: createHsmConfiguration_hsmPartitionName :: Lens' CreateHsmConfiguration Text
+ Amazonka.Redshift.Lens: createHsmConfiguration_hsmPartitionPassword :: Lens' CreateHsmConfiguration Text
+ Amazonka.Redshift.Lens: createHsmConfiguration_hsmServerPublicCertificate :: Lens' CreateHsmConfiguration Text
+ Amazonka.Redshift.Lens: createHsmConfiguration_tags :: Lens' CreateHsmConfiguration (Maybe [Tag])
+ Amazonka.Redshift.Lens: createScheduledAction_enable :: Lens' CreateScheduledAction (Maybe Bool)
+ Amazonka.Redshift.Lens: createScheduledAction_endTime :: Lens' CreateScheduledAction (Maybe UTCTime)
+ Amazonka.Redshift.Lens: createScheduledAction_iamRole :: Lens' CreateScheduledAction Text
+ Amazonka.Redshift.Lens: createScheduledAction_schedule :: Lens' CreateScheduledAction Text
+ Amazonka.Redshift.Lens: createScheduledAction_scheduledActionDescription :: Lens' CreateScheduledAction (Maybe Text)
+ Amazonka.Redshift.Lens: createScheduledAction_scheduledActionName :: Lens' CreateScheduledAction Text
+ Amazonka.Redshift.Lens: createScheduledAction_startTime :: Lens' CreateScheduledAction (Maybe UTCTime)
+ Amazonka.Redshift.Lens: createScheduledAction_targetAction :: Lens' CreateScheduledAction ScheduledActionType
+ Amazonka.Redshift.Lens: createSnapshotCopyGrantResponse_httpStatus :: Lens' CreateSnapshotCopyGrantResponse Int
+ Amazonka.Redshift.Lens: createSnapshotCopyGrantResponse_snapshotCopyGrant :: Lens' CreateSnapshotCopyGrantResponse (Maybe SnapshotCopyGrant)
+ Amazonka.Redshift.Lens: createSnapshotCopyGrant_kmsKeyId :: Lens' CreateSnapshotCopyGrant (Maybe Text)
+ Amazonka.Redshift.Lens: createSnapshotCopyGrant_snapshotCopyGrantName :: Lens' CreateSnapshotCopyGrant Text
+ Amazonka.Redshift.Lens: createSnapshotCopyGrant_tags :: Lens' CreateSnapshotCopyGrant (Maybe [Tag])
+ Amazonka.Redshift.Lens: createSnapshotSchedule_dryRun :: Lens' CreateSnapshotSchedule (Maybe Bool)
+ Amazonka.Redshift.Lens: createSnapshotSchedule_nextInvocations :: Lens' CreateSnapshotSchedule (Maybe Int)
+ Amazonka.Redshift.Lens: createSnapshotSchedule_scheduleDefinitions :: Lens' CreateSnapshotSchedule (Maybe [Text])
+ Amazonka.Redshift.Lens: createSnapshotSchedule_scheduleDescription :: Lens' CreateSnapshotSchedule (Maybe Text)
+ Amazonka.Redshift.Lens: createSnapshotSchedule_scheduleIdentifier :: Lens' CreateSnapshotSchedule (Maybe Text)
+ Amazonka.Redshift.Lens: createSnapshotSchedule_tags :: Lens' CreateSnapshotSchedule (Maybe [Tag])
+ Amazonka.Redshift.Lens: createTags_resourceName :: Lens' CreateTags Text
+ Amazonka.Redshift.Lens: createTags_tags :: Lens' CreateTags [Tag]
+ Amazonka.Redshift.Lens: createUsageLimit_amount :: Lens' CreateUsageLimit Integer
+ Amazonka.Redshift.Lens: createUsageLimit_breachAction :: Lens' CreateUsageLimit (Maybe UsageLimitBreachAction)
+ Amazonka.Redshift.Lens: createUsageLimit_clusterIdentifier :: Lens' CreateUsageLimit Text
+ Amazonka.Redshift.Lens: createUsageLimit_featureType :: Lens' CreateUsageLimit UsageLimitFeatureType
+ Amazonka.Redshift.Lens: createUsageLimit_limitType :: Lens' CreateUsageLimit UsageLimitLimitType
+ Amazonka.Redshift.Lens: createUsageLimit_period :: Lens' CreateUsageLimit (Maybe UsageLimitPeriod)
+ Amazonka.Redshift.Lens: createUsageLimit_tags :: Lens' CreateUsageLimit (Maybe [Tag])
+ Amazonka.Redshift.Lens: dataShareAssociation_consumerIdentifier :: Lens' DataShareAssociation (Maybe Text)
+ Amazonka.Redshift.Lens: dataShareAssociation_consumerRegion :: Lens' DataShareAssociation (Maybe Text)
+ Amazonka.Redshift.Lens: dataShareAssociation_createdDate :: Lens' DataShareAssociation (Maybe UTCTime)
+ Amazonka.Redshift.Lens: dataShareAssociation_status :: Lens' DataShareAssociation (Maybe DataShareStatus)
+ Amazonka.Redshift.Lens: dataShareAssociation_statusChangeDate :: Lens' DataShareAssociation (Maybe UTCTime)
+ Amazonka.Redshift.Lens: dataShare_allowPubliclyAccessibleConsumers :: Lens' DataShare (Maybe Bool)
+ Amazonka.Redshift.Lens: dataShare_dataShareArn :: Lens' DataShare (Maybe Text)
+ Amazonka.Redshift.Lens: dataShare_dataShareAssociations :: Lens' DataShare (Maybe [DataShareAssociation])
+ Amazonka.Redshift.Lens: dataShare_managedBy :: Lens' DataShare (Maybe Text)
+ Amazonka.Redshift.Lens: dataShare_producerArn :: Lens' DataShare (Maybe Text)
+ Amazonka.Redshift.Lens: dataTransferProgress_currentRateInMegaBytesPerSecond :: Lens' DataTransferProgress (Maybe Double)
+ Amazonka.Redshift.Lens: dataTransferProgress_dataTransferredInMegaBytes :: Lens' DataTransferProgress (Maybe Integer)
+ Amazonka.Redshift.Lens: dataTransferProgress_elapsedTimeInSeconds :: Lens' DataTransferProgress (Maybe Integer)
+ Amazonka.Redshift.Lens: dataTransferProgress_estimatedTimeToCompletionInSeconds :: Lens' DataTransferProgress (Maybe Integer)
+ Amazonka.Redshift.Lens: dataTransferProgress_status :: Lens' DataTransferProgress (Maybe Text)
+ Amazonka.Redshift.Lens: dataTransferProgress_totalDataInMegaBytes :: Lens' DataTransferProgress (Maybe Integer)
+ Amazonka.Redshift.Lens: deauthorizeDataShare_consumerIdentifier :: Lens' DeauthorizeDataShare Text
+ Amazonka.Redshift.Lens: deauthorizeDataShare_dataShareArn :: Lens' DeauthorizeDataShare Text
+ Amazonka.Redshift.Lens: defaultClusterParameters_marker :: Lens' DefaultClusterParameters (Maybe Text)
+ Amazonka.Redshift.Lens: defaultClusterParameters_parameterGroupFamily :: Lens' DefaultClusterParameters (Maybe Text)
+ Amazonka.Redshift.Lens: defaultClusterParameters_parameters :: Lens' DefaultClusterParameters (Maybe [Parameter])
+ Amazonka.Redshift.Lens: deferredMaintenanceWindow_deferMaintenanceEndTime :: Lens' DeferredMaintenanceWindow (Maybe UTCTime)
+ Amazonka.Redshift.Lens: deferredMaintenanceWindow_deferMaintenanceIdentifier :: Lens' DeferredMaintenanceWindow (Maybe Text)
+ Amazonka.Redshift.Lens: deferredMaintenanceWindow_deferMaintenanceStartTime :: Lens' DeferredMaintenanceWindow (Maybe UTCTime)
+ Amazonka.Redshift.Lens: deleteAuthenticationProfileResponse_authenticationProfileName :: Lens' DeleteAuthenticationProfileResponse (Maybe Text)
+ Amazonka.Redshift.Lens: deleteAuthenticationProfileResponse_httpStatus :: Lens' DeleteAuthenticationProfileResponse Int
+ Amazonka.Redshift.Lens: deleteAuthenticationProfile_authenticationProfileName :: Lens' DeleteAuthenticationProfile Text
+ Amazonka.Redshift.Lens: deleteClusterParameterGroup_parameterGroupName :: Lens' DeleteClusterParameterGroup Text
+ Amazonka.Redshift.Lens: deleteClusterResponse_cluster :: Lens' DeleteClusterResponse (Maybe Cluster)
+ Amazonka.Redshift.Lens: deleteClusterResponse_httpStatus :: Lens' DeleteClusterResponse Int
+ Amazonka.Redshift.Lens: deleteClusterSecurityGroup_clusterSecurityGroupName :: Lens' DeleteClusterSecurityGroup Text
+ Amazonka.Redshift.Lens: deleteClusterSnapshotMessage_snapshotClusterIdentifier :: Lens' DeleteClusterSnapshotMessage (Maybe Text)
+ Amazonka.Redshift.Lens: deleteClusterSnapshotMessage_snapshotIdentifier :: Lens' DeleteClusterSnapshotMessage Text
+ Amazonka.Redshift.Lens: deleteClusterSnapshotResponse_httpStatus :: Lens' DeleteClusterSnapshotResponse Int
+ Amazonka.Redshift.Lens: deleteClusterSnapshotResponse_snapshot :: Lens' DeleteClusterSnapshotResponse (Maybe Snapshot)
+ Amazonka.Redshift.Lens: deleteClusterSnapshot_snapshotClusterIdentifier :: Lens' DeleteClusterSnapshot (Maybe Text)
+ Amazonka.Redshift.Lens: deleteClusterSnapshot_snapshotIdentifier :: Lens' DeleteClusterSnapshot Text
+ Amazonka.Redshift.Lens: deleteClusterSubnetGroup_clusterSubnetGroupName :: Lens' DeleteClusterSubnetGroup Text
+ Amazonka.Redshift.Lens: deleteCluster_clusterIdentifier :: Lens' DeleteCluster Text
+ Amazonka.Redshift.Lens: deleteCluster_finalClusterSnapshotIdentifier :: Lens' DeleteCluster (Maybe Text)
+ Amazonka.Redshift.Lens: deleteCluster_finalClusterSnapshotRetentionPeriod :: Lens' DeleteCluster (Maybe Int)
+ Amazonka.Redshift.Lens: deleteCluster_skipFinalClusterSnapshot :: Lens' DeleteCluster (Maybe Bool)
+ Amazonka.Redshift.Lens: deleteEndpointAccess_endpointName :: Lens' DeleteEndpointAccess Text
+ Amazonka.Redshift.Lens: deleteEventSubscription_subscriptionName :: Lens' DeleteEventSubscription Text
+ Amazonka.Redshift.Lens: deleteHsmClientCertificate_hsmClientCertificateIdentifier :: Lens' DeleteHsmClientCertificate Text
+ Amazonka.Redshift.Lens: deleteHsmConfiguration_hsmConfigurationIdentifier :: Lens' DeleteHsmConfiguration Text
+ Amazonka.Redshift.Lens: deletePartner_accountId :: Lens' DeletePartner Text
+ Amazonka.Redshift.Lens: deletePartner_clusterIdentifier :: Lens' DeletePartner Text
+ Amazonka.Redshift.Lens: deletePartner_databaseName :: Lens' DeletePartner Text
+ Amazonka.Redshift.Lens: deletePartner_partnerName :: Lens' DeletePartner Text
+ Amazonka.Redshift.Lens: deleteScheduledAction_scheduledActionName :: Lens' DeleteScheduledAction Text
+ Amazonka.Redshift.Lens: deleteSnapshotCopyGrant_snapshotCopyGrantName :: Lens' DeleteSnapshotCopyGrant Text
+ Amazonka.Redshift.Lens: deleteSnapshotSchedule_scheduleIdentifier :: Lens' DeleteSnapshotSchedule Text
+ Amazonka.Redshift.Lens: deleteTags_resourceName :: Lens' DeleteTags Text
+ Amazonka.Redshift.Lens: deleteTags_tagKeys :: Lens' DeleteTags [Text]
+ Amazonka.Redshift.Lens: deleteUsageLimit_usageLimitId :: Lens' DeleteUsageLimit Text
+ Amazonka.Redshift.Lens: describeAccountAttributesResponse_accountAttributes :: Lens' DescribeAccountAttributesResponse (Maybe [AccountAttribute])
+ Amazonka.Redshift.Lens: describeAccountAttributesResponse_httpStatus :: Lens' DescribeAccountAttributesResponse Int
+ Amazonka.Redshift.Lens: describeAccountAttributes_attributeNames :: Lens' DescribeAccountAttributes (Maybe [Text])
+ Amazonka.Redshift.Lens: describeAuthenticationProfilesResponse_authenticationProfiles :: Lens' DescribeAuthenticationProfilesResponse (Maybe [AuthenticationProfile])
+ Amazonka.Redshift.Lens: describeAuthenticationProfilesResponse_httpStatus :: Lens' DescribeAuthenticationProfilesResponse Int
+ Amazonka.Redshift.Lens: describeAuthenticationProfiles_authenticationProfileName :: Lens' DescribeAuthenticationProfiles (Maybe Text)
+ Amazonka.Redshift.Lens: describeClusterDbRevisionsResponse_clusterDbRevisions :: Lens' DescribeClusterDbRevisionsResponse (Maybe [ClusterDbRevision])
+ Amazonka.Redshift.Lens: describeClusterDbRevisionsResponse_httpStatus :: Lens' DescribeClusterDbRevisionsResponse Int
+ Amazonka.Redshift.Lens: describeClusterDbRevisionsResponse_marker :: Lens' DescribeClusterDbRevisionsResponse (Maybe Text)
+ Amazonka.Redshift.Lens: describeClusterDbRevisions_clusterIdentifier :: Lens' DescribeClusterDbRevisions (Maybe Text)
+ Amazonka.Redshift.Lens: describeClusterDbRevisions_marker :: Lens' DescribeClusterDbRevisions (Maybe Text)
+ Amazonka.Redshift.Lens: describeClusterDbRevisions_maxRecords :: Lens' DescribeClusterDbRevisions (Maybe Int)
+ Amazonka.Redshift.Lens: describeClusterParameterGroupsResponse_httpStatus :: Lens' DescribeClusterParameterGroupsResponse Int
+ Amazonka.Redshift.Lens: describeClusterParameterGroupsResponse_marker :: Lens' DescribeClusterParameterGroupsResponse (Maybe Text)
+ Amazonka.Redshift.Lens: describeClusterParameterGroupsResponse_parameterGroups :: Lens' DescribeClusterParameterGroupsResponse (Maybe [ClusterParameterGroup])
+ Amazonka.Redshift.Lens: describeClusterParameterGroups_marker :: Lens' DescribeClusterParameterGroups (Maybe Text)
+ Amazonka.Redshift.Lens: describeClusterParameterGroups_maxRecords :: Lens' DescribeClusterParameterGroups (Maybe Int)
+ Amazonka.Redshift.Lens: describeClusterParameterGroups_parameterGroupName :: Lens' DescribeClusterParameterGroups (Maybe Text)
+ Amazonka.Redshift.Lens: describeClusterParameterGroups_tagKeys :: Lens' DescribeClusterParameterGroups (Maybe [Text])
+ Amazonka.Redshift.Lens: describeClusterParameterGroups_tagValues :: Lens' DescribeClusterParameterGroups (Maybe [Text])
+ Amazonka.Redshift.Lens: describeClusterParametersResponse_httpStatus :: Lens' DescribeClusterParametersResponse Int
+ Amazonka.Redshift.Lens: describeClusterParametersResponse_marker :: Lens' DescribeClusterParametersResponse (Maybe Text)
+ Amazonka.Redshift.Lens: describeClusterParametersResponse_parameters :: Lens' DescribeClusterParametersResponse (Maybe [Parameter])
+ Amazonka.Redshift.Lens: describeClusterParameters_marker :: Lens' DescribeClusterParameters (Maybe Text)
+ Amazonka.Redshift.Lens: describeClusterParameters_maxRecords :: Lens' DescribeClusterParameters (Maybe Int)
+ Amazonka.Redshift.Lens: describeClusterParameters_parameterGroupName :: Lens' DescribeClusterParameters Text
+ Amazonka.Redshift.Lens: describeClusterParameters_source :: Lens' DescribeClusterParameters (Maybe Text)
+ Amazonka.Redshift.Lens: describeClusterSecurityGroupsResponse_clusterSecurityGroups :: Lens' DescribeClusterSecurityGroupsResponse (Maybe [ClusterSecurityGroup])
+ Amazonka.Redshift.Lens: describeClusterSecurityGroupsResponse_httpStatus :: Lens' DescribeClusterSecurityGroupsResponse Int
+ Amazonka.Redshift.Lens: describeClusterSecurityGroupsResponse_marker :: Lens' DescribeClusterSecurityGroupsResponse (Maybe Text)
+ Amazonka.Redshift.Lens: describeClusterSecurityGroups_clusterSecurityGroupName :: Lens' DescribeClusterSecurityGroups (Maybe Text)
+ Amazonka.Redshift.Lens: describeClusterSecurityGroups_marker :: Lens' DescribeClusterSecurityGroups (Maybe Text)
+ Amazonka.Redshift.Lens: describeClusterSecurityGroups_maxRecords :: Lens' DescribeClusterSecurityGroups (Maybe Int)
+ Amazonka.Redshift.Lens: describeClusterSecurityGroups_tagKeys :: Lens' DescribeClusterSecurityGroups (Maybe [Text])
+ Amazonka.Redshift.Lens: describeClusterSecurityGroups_tagValues :: Lens' DescribeClusterSecurityGroups (Maybe [Text])
+ Amazonka.Redshift.Lens: describeClusterSnapshotsResponse_httpStatus :: Lens' DescribeClusterSnapshotsResponse Int
+ Amazonka.Redshift.Lens: describeClusterSnapshotsResponse_marker :: Lens' DescribeClusterSnapshotsResponse (Maybe Text)
+ Amazonka.Redshift.Lens: describeClusterSnapshotsResponse_snapshots :: Lens' DescribeClusterSnapshotsResponse (Maybe [Snapshot])
+ Amazonka.Redshift.Lens: describeClusterSnapshots_clusterExists :: Lens' DescribeClusterSnapshots (Maybe Bool)
+ Amazonka.Redshift.Lens: describeClusterSnapshots_clusterIdentifier :: Lens' DescribeClusterSnapshots (Maybe Text)
+ Amazonka.Redshift.Lens: describeClusterSnapshots_endTime :: Lens' DescribeClusterSnapshots (Maybe UTCTime)
+ Amazonka.Redshift.Lens: describeClusterSnapshots_marker :: Lens' DescribeClusterSnapshots (Maybe Text)
+ Amazonka.Redshift.Lens: describeClusterSnapshots_maxRecords :: Lens' DescribeClusterSnapshots (Maybe Int)
+ Amazonka.Redshift.Lens: describeClusterSnapshots_ownerAccount :: Lens' DescribeClusterSnapshots (Maybe Text)
+ Amazonka.Redshift.Lens: describeClusterSnapshots_snapshotArn :: Lens' DescribeClusterSnapshots (Maybe Text)
+ Amazonka.Redshift.Lens: describeClusterSnapshots_snapshotIdentifier :: Lens' DescribeClusterSnapshots (Maybe Text)
+ Amazonka.Redshift.Lens: describeClusterSnapshots_snapshotType :: Lens' DescribeClusterSnapshots (Maybe Text)
+ Amazonka.Redshift.Lens: describeClusterSnapshots_sortingEntities :: Lens' DescribeClusterSnapshots (Maybe [SnapshotSortingEntity])
+ Amazonka.Redshift.Lens: describeClusterSnapshots_startTime :: Lens' DescribeClusterSnapshots (Maybe UTCTime)
+ Amazonka.Redshift.Lens: describeClusterSnapshots_tagKeys :: Lens' DescribeClusterSnapshots (Maybe [Text])
+ Amazonka.Redshift.Lens: describeClusterSnapshots_tagValues :: Lens' DescribeClusterSnapshots (Maybe [Text])
+ Amazonka.Redshift.Lens: describeClusterSubnetGroupsResponse_clusterSubnetGroups :: Lens' DescribeClusterSubnetGroupsResponse (Maybe [ClusterSubnetGroup])
+ Amazonka.Redshift.Lens: describeClusterSubnetGroupsResponse_httpStatus :: Lens' DescribeClusterSubnetGroupsResponse Int
+ Amazonka.Redshift.Lens: describeClusterSubnetGroupsResponse_marker :: Lens' DescribeClusterSubnetGroupsResponse (Maybe Text)
+ Amazonka.Redshift.Lens: describeClusterSubnetGroups_clusterSubnetGroupName :: Lens' DescribeClusterSubnetGroups (Maybe Text)
+ Amazonka.Redshift.Lens: describeClusterSubnetGroups_marker :: Lens' DescribeClusterSubnetGroups (Maybe Text)
+ Amazonka.Redshift.Lens: describeClusterSubnetGroups_maxRecords :: Lens' DescribeClusterSubnetGroups (Maybe Int)
+ Amazonka.Redshift.Lens: describeClusterSubnetGroups_tagKeys :: Lens' DescribeClusterSubnetGroups (Maybe [Text])
+ Amazonka.Redshift.Lens: describeClusterSubnetGroups_tagValues :: Lens' DescribeClusterSubnetGroups (Maybe [Text])
+ Amazonka.Redshift.Lens: describeClusterTracksResponse_httpStatus :: Lens' DescribeClusterTracksResponse Int
+ Amazonka.Redshift.Lens: describeClusterTracksResponse_maintenanceTracks :: Lens' DescribeClusterTracksResponse (Maybe [MaintenanceTrack])
+ Amazonka.Redshift.Lens: describeClusterTracksResponse_marker :: Lens' DescribeClusterTracksResponse (Maybe Text)
+ Amazonka.Redshift.Lens: describeClusterTracks_maintenanceTrackName :: Lens' DescribeClusterTracks (Maybe Text)
+ Amazonka.Redshift.Lens: describeClusterTracks_marker :: Lens' DescribeClusterTracks (Maybe Text)
+ Amazonka.Redshift.Lens: describeClusterTracks_maxRecords :: Lens' DescribeClusterTracks (Maybe Int)
+ Amazonka.Redshift.Lens: describeClusterVersionsResponse_clusterVersions :: Lens' DescribeClusterVersionsResponse (Maybe [ClusterVersion])
+ Amazonka.Redshift.Lens: describeClusterVersionsResponse_httpStatus :: Lens' DescribeClusterVersionsResponse Int
+ Amazonka.Redshift.Lens: describeClusterVersionsResponse_marker :: Lens' DescribeClusterVersionsResponse (Maybe Text)
+ Amazonka.Redshift.Lens: describeClusterVersions_clusterParameterGroupFamily :: Lens' DescribeClusterVersions (Maybe Text)
+ Amazonka.Redshift.Lens: describeClusterVersions_clusterVersion :: Lens' DescribeClusterVersions (Maybe Text)
+ Amazonka.Redshift.Lens: describeClusterVersions_marker :: Lens' DescribeClusterVersions (Maybe Text)
+ Amazonka.Redshift.Lens: describeClusterVersions_maxRecords :: Lens' DescribeClusterVersions (Maybe Int)
+ Amazonka.Redshift.Lens: describeClustersResponse_clusters :: Lens' DescribeClustersResponse (Maybe [Cluster])
+ Amazonka.Redshift.Lens: describeClustersResponse_httpStatus :: Lens' DescribeClustersResponse Int
+ Amazonka.Redshift.Lens: describeClustersResponse_marker :: Lens' DescribeClustersResponse (Maybe Text)
+ Amazonka.Redshift.Lens: describeClusters_clusterIdentifier :: Lens' DescribeClusters (Maybe Text)
+ Amazonka.Redshift.Lens: describeClusters_marker :: Lens' DescribeClusters (Maybe Text)
+ Amazonka.Redshift.Lens: describeClusters_maxRecords :: Lens' DescribeClusters (Maybe Int)
+ Amazonka.Redshift.Lens: describeClusters_tagKeys :: Lens' DescribeClusters (Maybe [Text])
+ Amazonka.Redshift.Lens: describeClusters_tagValues :: Lens' DescribeClusters (Maybe [Text])
+ Amazonka.Redshift.Lens: describeDataSharesForConsumerResponse_dataShares :: Lens' DescribeDataSharesForConsumerResponse (Maybe [DataShare])
+ Amazonka.Redshift.Lens: describeDataSharesForConsumerResponse_httpStatus :: Lens' DescribeDataSharesForConsumerResponse Int
+ Amazonka.Redshift.Lens: describeDataSharesForConsumerResponse_marker :: Lens' DescribeDataSharesForConsumerResponse (Maybe Text)
+ Amazonka.Redshift.Lens: describeDataSharesForConsumer_consumerArn :: Lens' DescribeDataSharesForConsumer (Maybe Text)
+ Amazonka.Redshift.Lens: describeDataSharesForConsumer_marker :: Lens' DescribeDataSharesForConsumer (Maybe Text)
+ Amazonka.Redshift.Lens: describeDataSharesForConsumer_maxRecords :: Lens' DescribeDataSharesForConsumer (Maybe Int)
+ Amazonka.Redshift.Lens: describeDataSharesForConsumer_status :: Lens' DescribeDataSharesForConsumer (Maybe DataShareStatusForConsumer)
+ Amazonka.Redshift.Lens: describeDataSharesForProducerResponse_dataShares :: Lens' DescribeDataSharesForProducerResponse (Maybe [DataShare])
+ Amazonka.Redshift.Lens: describeDataSharesForProducerResponse_httpStatus :: Lens' DescribeDataSharesForProducerResponse Int
+ Amazonka.Redshift.Lens: describeDataSharesForProducerResponse_marker :: Lens' DescribeDataSharesForProducerResponse (Maybe Text)
+ Amazonka.Redshift.Lens: describeDataSharesForProducer_marker :: Lens' DescribeDataSharesForProducer (Maybe Text)
+ Amazonka.Redshift.Lens: describeDataSharesForProducer_maxRecords :: Lens' DescribeDataSharesForProducer (Maybe Int)
+ Amazonka.Redshift.Lens: describeDataSharesForProducer_producerArn :: Lens' DescribeDataSharesForProducer (Maybe Text)
+ Amazonka.Redshift.Lens: describeDataSharesForProducer_status :: Lens' DescribeDataSharesForProducer (Maybe DataShareStatusForProducer)
+ Amazonka.Redshift.Lens: describeDataSharesResponse_dataShares :: Lens' DescribeDataSharesResponse (Maybe [DataShare])
+ Amazonka.Redshift.Lens: describeDataSharesResponse_httpStatus :: Lens' DescribeDataSharesResponse Int
+ Amazonka.Redshift.Lens: describeDataSharesResponse_marker :: Lens' DescribeDataSharesResponse (Maybe Text)
+ Amazonka.Redshift.Lens: describeDataShares_dataShareArn :: Lens' DescribeDataShares (Maybe Text)
+ Amazonka.Redshift.Lens: describeDataShares_marker :: Lens' DescribeDataShares (Maybe Text)
+ Amazonka.Redshift.Lens: describeDataShares_maxRecords :: Lens' DescribeDataShares (Maybe Int)
+ Amazonka.Redshift.Lens: describeDefaultClusterParametersResponse_defaultClusterParameters :: Lens' DescribeDefaultClusterParametersResponse DefaultClusterParameters
+ Amazonka.Redshift.Lens: describeDefaultClusterParametersResponse_httpStatus :: Lens' DescribeDefaultClusterParametersResponse Int
+ Amazonka.Redshift.Lens: describeDefaultClusterParameters_marker :: Lens' DescribeDefaultClusterParameters (Maybe Text)
+ Amazonka.Redshift.Lens: describeDefaultClusterParameters_maxRecords :: Lens' DescribeDefaultClusterParameters (Maybe Int)
+ Amazonka.Redshift.Lens: describeDefaultClusterParameters_parameterGroupFamily :: Lens' DescribeDefaultClusterParameters Text
+ Amazonka.Redshift.Lens: describeEndpointAccessResponse_endpointAccessList :: Lens' DescribeEndpointAccessResponse (Maybe [EndpointAccess])
+ Amazonka.Redshift.Lens: describeEndpointAccessResponse_httpStatus :: Lens' DescribeEndpointAccessResponse Int
+ Amazonka.Redshift.Lens: describeEndpointAccessResponse_marker :: Lens' DescribeEndpointAccessResponse (Maybe Text)
+ Amazonka.Redshift.Lens: describeEndpointAccess_clusterIdentifier :: Lens' DescribeEndpointAccess (Maybe Text)
+ Amazonka.Redshift.Lens: describeEndpointAccess_endpointName :: Lens' DescribeEndpointAccess (Maybe Text)
+ Amazonka.Redshift.Lens: describeEndpointAccess_marker :: Lens' DescribeEndpointAccess (Maybe Text)
+ Amazonka.Redshift.Lens: describeEndpointAccess_maxRecords :: Lens' DescribeEndpointAccess (Maybe Int)
+ Amazonka.Redshift.Lens: describeEndpointAccess_resourceOwner :: Lens' DescribeEndpointAccess (Maybe Text)
+ Amazonka.Redshift.Lens: describeEndpointAccess_vpcId :: Lens' DescribeEndpointAccess (Maybe Text)
+ Amazonka.Redshift.Lens: describeEndpointAuthorizationResponse_endpointAuthorizationList :: Lens' DescribeEndpointAuthorizationResponse (Maybe [EndpointAuthorization])
+ Amazonka.Redshift.Lens: describeEndpointAuthorizationResponse_httpStatus :: Lens' DescribeEndpointAuthorizationResponse Int
+ Amazonka.Redshift.Lens: describeEndpointAuthorizationResponse_marker :: Lens' DescribeEndpointAuthorizationResponse (Maybe Text)
+ Amazonka.Redshift.Lens: describeEndpointAuthorization_account :: Lens' DescribeEndpointAuthorization (Maybe Text)
+ Amazonka.Redshift.Lens: describeEndpointAuthorization_clusterIdentifier :: Lens' DescribeEndpointAuthorization (Maybe Text)
+ Amazonka.Redshift.Lens: describeEndpointAuthorization_grantee :: Lens' DescribeEndpointAuthorization (Maybe Bool)
+ Amazonka.Redshift.Lens: describeEndpointAuthorization_marker :: Lens' DescribeEndpointAuthorization (Maybe Text)
+ Amazonka.Redshift.Lens: describeEndpointAuthorization_maxRecords :: Lens' DescribeEndpointAuthorization (Maybe Int)
+ Amazonka.Redshift.Lens: describeEventCategoriesResponse_eventCategoriesMapList :: Lens' DescribeEventCategoriesResponse (Maybe [EventCategoriesMap])
+ Amazonka.Redshift.Lens: describeEventCategoriesResponse_httpStatus :: Lens' DescribeEventCategoriesResponse Int
+ Amazonka.Redshift.Lens: describeEventCategories_sourceType :: Lens' DescribeEventCategories (Maybe Text)
+ Amazonka.Redshift.Lens: describeEventSubscriptionsResponse_eventSubscriptionsList :: Lens' DescribeEventSubscriptionsResponse (Maybe [EventSubscription])
+ Amazonka.Redshift.Lens: describeEventSubscriptionsResponse_httpStatus :: Lens' DescribeEventSubscriptionsResponse Int
+ Amazonka.Redshift.Lens: describeEventSubscriptionsResponse_marker :: Lens' DescribeEventSubscriptionsResponse (Maybe Text)
+ Amazonka.Redshift.Lens: describeEventSubscriptions_marker :: Lens' DescribeEventSubscriptions (Maybe Text)
+ Amazonka.Redshift.Lens: describeEventSubscriptions_maxRecords :: Lens' DescribeEventSubscriptions (Maybe Int)
+ Amazonka.Redshift.Lens: describeEventSubscriptions_subscriptionName :: Lens' DescribeEventSubscriptions (Maybe Text)
+ Amazonka.Redshift.Lens: describeEventSubscriptions_tagKeys :: Lens' DescribeEventSubscriptions (Maybe [Text])
+ Amazonka.Redshift.Lens: describeEventSubscriptions_tagValues :: Lens' DescribeEventSubscriptions (Maybe [Text])
+ Amazonka.Redshift.Lens: describeEventsResponse_events :: Lens' DescribeEventsResponse (Maybe [Event])
+ Amazonka.Redshift.Lens: describeEventsResponse_httpStatus :: Lens' DescribeEventsResponse Int
+ Amazonka.Redshift.Lens: describeEventsResponse_marker :: Lens' DescribeEventsResponse (Maybe Text)
+ Amazonka.Redshift.Lens: describeEvents_duration :: Lens' DescribeEvents (Maybe Int)
+ Amazonka.Redshift.Lens: describeEvents_endTime :: Lens' DescribeEvents (Maybe UTCTime)
+ Amazonka.Redshift.Lens: describeEvents_marker :: Lens' DescribeEvents (Maybe Text)
+ Amazonka.Redshift.Lens: describeEvents_maxRecords :: Lens' DescribeEvents (Maybe Int)
+ Amazonka.Redshift.Lens: describeEvents_sourceIdentifier :: Lens' DescribeEvents (Maybe Text)
+ Amazonka.Redshift.Lens: describeEvents_sourceType :: Lens' DescribeEvents (Maybe SourceType)
+ Amazonka.Redshift.Lens: describeEvents_startTime :: Lens' DescribeEvents (Maybe UTCTime)
+ Amazonka.Redshift.Lens: describeHsmClientCertificatesResponse_hsmClientCertificates :: Lens' DescribeHsmClientCertificatesResponse (Maybe [HsmClientCertificate])
+ Amazonka.Redshift.Lens: describeHsmClientCertificatesResponse_httpStatus :: Lens' DescribeHsmClientCertificatesResponse Int
+ Amazonka.Redshift.Lens: describeHsmClientCertificatesResponse_marker :: Lens' DescribeHsmClientCertificatesResponse (Maybe Text)
+ Amazonka.Redshift.Lens: describeHsmClientCertificates_hsmClientCertificateIdentifier :: Lens' DescribeHsmClientCertificates (Maybe Text)
+ Amazonka.Redshift.Lens: describeHsmClientCertificates_marker :: Lens' DescribeHsmClientCertificates (Maybe Text)
+ Amazonka.Redshift.Lens: describeHsmClientCertificates_maxRecords :: Lens' DescribeHsmClientCertificates (Maybe Int)
+ Amazonka.Redshift.Lens: describeHsmClientCertificates_tagKeys :: Lens' DescribeHsmClientCertificates (Maybe [Text])
+ Amazonka.Redshift.Lens: describeHsmClientCertificates_tagValues :: Lens' DescribeHsmClientCertificates (Maybe [Text])
+ Amazonka.Redshift.Lens: describeHsmConfigurationsResponse_hsmConfigurations :: Lens' DescribeHsmConfigurationsResponse (Maybe [HsmConfiguration])
+ Amazonka.Redshift.Lens: describeHsmConfigurationsResponse_httpStatus :: Lens' DescribeHsmConfigurationsResponse Int
+ Amazonka.Redshift.Lens: describeHsmConfigurationsResponse_marker :: Lens' DescribeHsmConfigurationsResponse (Maybe Text)
+ Amazonka.Redshift.Lens: describeHsmConfigurations_hsmConfigurationIdentifier :: Lens' DescribeHsmConfigurations (Maybe Text)
+ Amazonka.Redshift.Lens: describeHsmConfigurations_marker :: Lens' DescribeHsmConfigurations (Maybe Text)
+ Amazonka.Redshift.Lens: describeHsmConfigurations_maxRecords :: Lens' DescribeHsmConfigurations (Maybe Int)
+ Amazonka.Redshift.Lens: describeHsmConfigurations_tagKeys :: Lens' DescribeHsmConfigurations (Maybe [Text])
+ Amazonka.Redshift.Lens: describeHsmConfigurations_tagValues :: Lens' DescribeHsmConfigurations (Maybe [Text])
+ Amazonka.Redshift.Lens: describeLoggingStatus_clusterIdentifier :: Lens' DescribeLoggingStatus Text
+ Amazonka.Redshift.Lens: describeNodeConfigurationOptionsResponse_httpStatus :: Lens' DescribeNodeConfigurationOptionsResponse Int
+ Amazonka.Redshift.Lens: describeNodeConfigurationOptionsResponse_marker :: Lens' DescribeNodeConfigurationOptionsResponse (Maybe Text)
+ Amazonka.Redshift.Lens: describeNodeConfigurationOptionsResponse_nodeConfigurationOptionList :: Lens' DescribeNodeConfigurationOptionsResponse (Maybe [NodeConfigurationOption])
+ Amazonka.Redshift.Lens: describeNodeConfigurationOptions_actionType :: Lens' DescribeNodeConfigurationOptions ActionType
+ Amazonka.Redshift.Lens: describeNodeConfigurationOptions_clusterIdentifier :: Lens' DescribeNodeConfigurationOptions (Maybe Text)
+ Amazonka.Redshift.Lens: describeNodeConfigurationOptions_filters :: Lens' DescribeNodeConfigurationOptions (Maybe [NodeConfigurationOptionsFilter])
+ Amazonka.Redshift.Lens: describeNodeConfigurationOptions_marker :: Lens' DescribeNodeConfigurationOptions (Maybe Text)
+ Amazonka.Redshift.Lens: describeNodeConfigurationOptions_maxRecords :: Lens' DescribeNodeConfigurationOptions (Maybe Int)
+ Amazonka.Redshift.Lens: describeNodeConfigurationOptions_ownerAccount :: Lens' DescribeNodeConfigurationOptions (Maybe Text)
+ Amazonka.Redshift.Lens: describeNodeConfigurationOptions_snapshotArn :: Lens' DescribeNodeConfigurationOptions (Maybe Text)
+ Amazonka.Redshift.Lens: describeNodeConfigurationOptions_snapshotIdentifier :: Lens' DescribeNodeConfigurationOptions (Maybe Text)
+ Amazonka.Redshift.Lens: describeOrderableClusterOptionsResponse_httpStatus :: Lens' DescribeOrderableClusterOptionsResponse Int
+ Amazonka.Redshift.Lens: describeOrderableClusterOptionsResponse_marker :: Lens' DescribeOrderableClusterOptionsResponse (Maybe Text)
+ Amazonka.Redshift.Lens: describeOrderableClusterOptionsResponse_orderableClusterOptions :: Lens' DescribeOrderableClusterOptionsResponse (Maybe [OrderableClusterOption])
+ Amazonka.Redshift.Lens: describeOrderableClusterOptions_clusterVersion :: Lens' DescribeOrderableClusterOptions (Maybe Text)
+ Amazonka.Redshift.Lens: describeOrderableClusterOptions_marker :: Lens' DescribeOrderableClusterOptions (Maybe Text)
+ Amazonka.Redshift.Lens: describeOrderableClusterOptions_maxRecords :: Lens' DescribeOrderableClusterOptions (Maybe Int)
+ Amazonka.Redshift.Lens: describeOrderableClusterOptions_nodeType :: Lens' DescribeOrderableClusterOptions (Maybe Text)
+ Amazonka.Redshift.Lens: describePartnersResponse_httpStatus :: Lens' DescribePartnersResponse Int
+ Amazonka.Redshift.Lens: describePartnersResponse_partnerIntegrationInfoList :: Lens' DescribePartnersResponse (Maybe [PartnerIntegrationInfo])
+ Amazonka.Redshift.Lens: describePartners_accountId :: Lens' DescribePartners Text
+ Amazonka.Redshift.Lens: describePartners_clusterIdentifier :: Lens' DescribePartners Text
+ Amazonka.Redshift.Lens: describePartners_databaseName :: Lens' DescribePartners (Maybe Text)
+ Amazonka.Redshift.Lens: describePartners_partnerName :: Lens' DescribePartners (Maybe Text)
+ Amazonka.Redshift.Lens: describeReservedNodeExchangeStatusResponse_httpStatus :: Lens' DescribeReservedNodeExchangeStatusResponse Int
+ Amazonka.Redshift.Lens: describeReservedNodeExchangeStatusResponse_marker :: Lens' DescribeReservedNodeExchangeStatusResponse (Maybe Text)
+ Amazonka.Redshift.Lens: describeReservedNodeExchangeStatusResponse_reservedNodeExchangeStatusDetails :: Lens' DescribeReservedNodeExchangeStatusResponse (Maybe [ReservedNodeExchangeStatus])
+ Amazonka.Redshift.Lens: describeReservedNodeExchangeStatus_marker :: Lens' DescribeReservedNodeExchangeStatus (Maybe Text)
+ Amazonka.Redshift.Lens: describeReservedNodeExchangeStatus_maxRecords :: Lens' DescribeReservedNodeExchangeStatus (Maybe Int)
+ Amazonka.Redshift.Lens: describeReservedNodeExchangeStatus_reservedNodeExchangeRequestId :: Lens' DescribeReservedNodeExchangeStatus (Maybe Text)
+ Amazonka.Redshift.Lens: describeReservedNodeExchangeStatus_reservedNodeId :: Lens' DescribeReservedNodeExchangeStatus (Maybe Text)
+ Amazonka.Redshift.Lens: describeReservedNodeOfferingsResponse_httpStatus :: Lens' DescribeReservedNodeOfferingsResponse Int
+ Amazonka.Redshift.Lens: describeReservedNodeOfferingsResponse_marker :: Lens' DescribeReservedNodeOfferingsResponse (Maybe Text)
+ Amazonka.Redshift.Lens: describeReservedNodeOfferingsResponse_reservedNodeOfferings :: Lens' DescribeReservedNodeOfferingsResponse (Maybe [ReservedNodeOffering])
+ Amazonka.Redshift.Lens: describeReservedNodeOfferings_marker :: Lens' DescribeReservedNodeOfferings (Maybe Text)
+ Amazonka.Redshift.Lens: describeReservedNodeOfferings_maxRecords :: Lens' DescribeReservedNodeOfferings (Maybe Int)
+ Amazonka.Redshift.Lens: describeReservedNodeOfferings_reservedNodeOfferingId :: Lens' DescribeReservedNodeOfferings (Maybe Text)
+ Amazonka.Redshift.Lens: describeReservedNodesResponse_httpStatus :: Lens' DescribeReservedNodesResponse Int
+ Amazonka.Redshift.Lens: describeReservedNodesResponse_marker :: Lens' DescribeReservedNodesResponse (Maybe Text)
+ Amazonka.Redshift.Lens: describeReservedNodesResponse_reservedNodes :: Lens' DescribeReservedNodesResponse (Maybe [ReservedNode])
+ Amazonka.Redshift.Lens: describeReservedNodes_marker :: Lens' DescribeReservedNodes (Maybe Text)
+ Amazonka.Redshift.Lens: describeReservedNodes_maxRecords :: Lens' DescribeReservedNodes (Maybe Int)
+ Amazonka.Redshift.Lens: describeReservedNodes_reservedNodeId :: Lens' DescribeReservedNodes (Maybe Text)
+ Amazonka.Redshift.Lens: describeResize_clusterIdentifier :: Lens' DescribeResize Text
+ Amazonka.Redshift.Lens: describeScheduledActionsResponse_httpStatus :: Lens' DescribeScheduledActionsResponse Int
+ Amazonka.Redshift.Lens: describeScheduledActionsResponse_marker :: Lens' DescribeScheduledActionsResponse (Maybe Text)
+ Amazonka.Redshift.Lens: describeScheduledActionsResponse_scheduledActions :: Lens' DescribeScheduledActionsResponse (Maybe [ScheduledAction])
+ Amazonka.Redshift.Lens: describeScheduledActions_active :: Lens' DescribeScheduledActions (Maybe Bool)
+ Amazonka.Redshift.Lens: describeScheduledActions_endTime :: Lens' DescribeScheduledActions (Maybe UTCTime)
+ Amazonka.Redshift.Lens: describeScheduledActions_filters :: Lens' DescribeScheduledActions (Maybe [ScheduledActionFilter])
+ Amazonka.Redshift.Lens: describeScheduledActions_marker :: Lens' DescribeScheduledActions (Maybe Text)
+ Amazonka.Redshift.Lens: describeScheduledActions_maxRecords :: Lens' DescribeScheduledActions (Maybe Int)
+ Amazonka.Redshift.Lens: describeScheduledActions_scheduledActionName :: Lens' DescribeScheduledActions (Maybe Text)
+ Amazonka.Redshift.Lens: describeScheduledActions_startTime :: Lens' DescribeScheduledActions (Maybe UTCTime)
+ Amazonka.Redshift.Lens: describeScheduledActions_targetActionType :: Lens' DescribeScheduledActions (Maybe ScheduledActionTypeValues)
+ Amazonka.Redshift.Lens: describeSnapshotCopyGrantsResponse_httpStatus :: Lens' DescribeSnapshotCopyGrantsResponse Int
+ Amazonka.Redshift.Lens: describeSnapshotCopyGrantsResponse_marker :: Lens' DescribeSnapshotCopyGrantsResponse (Maybe Text)
+ Amazonka.Redshift.Lens: describeSnapshotCopyGrantsResponse_snapshotCopyGrants :: Lens' DescribeSnapshotCopyGrantsResponse (Maybe [SnapshotCopyGrant])
+ Amazonka.Redshift.Lens: describeSnapshotCopyGrants_marker :: Lens' DescribeSnapshotCopyGrants (Maybe Text)
+ Amazonka.Redshift.Lens: describeSnapshotCopyGrants_maxRecords :: Lens' DescribeSnapshotCopyGrants (Maybe Int)
+ Amazonka.Redshift.Lens: describeSnapshotCopyGrants_snapshotCopyGrantName :: Lens' DescribeSnapshotCopyGrants (Maybe Text)
+ Amazonka.Redshift.Lens: describeSnapshotCopyGrants_tagKeys :: Lens' DescribeSnapshotCopyGrants (Maybe [Text])
+ Amazonka.Redshift.Lens: describeSnapshotCopyGrants_tagValues :: Lens' DescribeSnapshotCopyGrants (Maybe [Text])
+ Amazonka.Redshift.Lens: describeSnapshotSchedulesResponse_httpStatus :: Lens' DescribeSnapshotSchedulesResponse Int
+ Amazonka.Redshift.Lens: describeSnapshotSchedulesResponse_marker :: Lens' DescribeSnapshotSchedulesResponse (Maybe Text)
+ Amazonka.Redshift.Lens: describeSnapshotSchedulesResponse_snapshotSchedules :: Lens' DescribeSnapshotSchedulesResponse (Maybe [SnapshotSchedule])
+ Amazonka.Redshift.Lens: describeSnapshotSchedules_clusterIdentifier :: Lens' DescribeSnapshotSchedules (Maybe Text)
+ Amazonka.Redshift.Lens: describeSnapshotSchedules_marker :: Lens' DescribeSnapshotSchedules (Maybe Text)
+ Amazonka.Redshift.Lens: describeSnapshotSchedules_maxRecords :: Lens' DescribeSnapshotSchedules (Maybe Int)
+ Amazonka.Redshift.Lens: describeSnapshotSchedules_scheduleIdentifier :: Lens' DescribeSnapshotSchedules (Maybe Text)
+ Amazonka.Redshift.Lens: describeSnapshotSchedules_tagKeys :: Lens' DescribeSnapshotSchedules (Maybe [Text])
+ Amazonka.Redshift.Lens: describeSnapshotSchedules_tagValues :: Lens' DescribeSnapshotSchedules (Maybe [Text])
+ Amazonka.Redshift.Lens: describeStorageResponse_httpStatus :: Lens' DescribeStorageResponse Int
+ Amazonka.Redshift.Lens: describeStorageResponse_totalBackupSizeInMegaBytes :: Lens' DescribeStorageResponse (Maybe Double)
+ Amazonka.Redshift.Lens: describeStorageResponse_totalProvisionedStorageInMegaBytes :: Lens' DescribeStorageResponse (Maybe Double)
+ Amazonka.Redshift.Lens: describeTableRestoreStatusResponse_httpStatus :: Lens' DescribeTableRestoreStatusResponse Int
+ Amazonka.Redshift.Lens: describeTableRestoreStatusResponse_marker :: Lens' DescribeTableRestoreStatusResponse (Maybe Text)
+ Amazonka.Redshift.Lens: describeTableRestoreStatusResponse_tableRestoreStatusDetails :: Lens' DescribeTableRestoreStatusResponse (Maybe [TableRestoreStatus])
+ Amazonka.Redshift.Lens: describeTableRestoreStatus_clusterIdentifier :: Lens' DescribeTableRestoreStatus (Maybe Text)
+ Amazonka.Redshift.Lens: describeTableRestoreStatus_marker :: Lens' DescribeTableRestoreStatus (Maybe Text)
+ Amazonka.Redshift.Lens: describeTableRestoreStatus_maxRecords :: Lens' DescribeTableRestoreStatus (Maybe Int)
+ Amazonka.Redshift.Lens: describeTableRestoreStatus_tableRestoreRequestId :: Lens' DescribeTableRestoreStatus (Maybe Text)
+ Amazonka.Redshift.Lens: describeTagsResponse_httpStatus :: Lens' DescribeTagsResponse Int
+ Amazonka.Redshift.Lens: describeTagsResponse_marker :: Lens' DescribeTagsResponse (Maybe Text)
+ Amazonka.Redshift.Lens: describeTagsResponse_taggedResources :: Lens' DescribeTagsResponse (Maybe [TaggedResource])
+ Amazonka.Redshift.Lens: describeTags_marker :: Lens' DescribeTags (Maybe Text)
+ Amazonka.Redshift.Lens: describeTags_maxRecords :: Lens' DescribeTags (Maybe Int)
+ Amazonka.Redshift.Lens: describeTags_resourceName :: Lens' DescribeTags (Maybe Text)
+ Amazonka.Redshift.Lens: describeTags_resourceType :: Lens' DescribeTags (Maybe Text)
+ Amazonka.Redshift.Lens: describeTags_tagKeys :: Lens' DescribeTags (Maybe [Text])
+ Amazonka.Redshift.Lens: describeTags_tagValues :: Lens' DescribeTags (Maybe [Text])
+ Amazonka.Redshift.Lens: describeUsageLimitsResponse_httpStatus :: Lens' DescribeUsageLimitsResponse Int
+ Amazonka.Redshift.Lens: describeUsageLimitsResponse_marker :: Lens' DescribeUsageLimitsResponse (Maybe Text)
+ Amazonka.Redshift.Lens: describeUsageLimitsResponse_usageLimits :: Lens' DescribeUsageLimitsResponse (Maybe [UsageLimit])
+ Amazonka.Redshift.Lens: describeUsageLimits_clusterIdentifier :: Lens' DescribeUsageLimits (Maybe Text)
+ Amazonka.Redshift.Lens: describeUsageLimits_featureType :: Lens' DescribeUsageLimits (Maybe UsageLimitFeatureType)
+ Amazonka.Redshift.Lens: describeUsageLimits_marker :: Lens' DescribeUsageLimits (Maybe Text)
+ Amazonka.Redshift.Lens: describeUsageLimits_maxRecords :: Lens' DescribeUsageLimits (Maybe Int)
+ Amazonka.Redshift.Lens: describeUsageLimits_tagKeys :: Lens' DescribeUsageLimits (Maybe [Text])
+ Amazonka.Redshift.Lens: describeUsageLimits_tagValues :: Lens' DescribeUsageLimits (Maybe [Text])
+ Amazonka.Redshift.Lens: describeUsageLimits_usageLimitId :: Lens' DescribeUsageLimits (Maybe Text)
+ Amazonka.Redshift.Lens: disableLogging_clusterIdentifier :: Lens' DisableLogging Text
+ Amazonka.Redshift.Lens: disableSnapshotCopyResponse_cluster :: Lens' DisableSnapshotCopyResponse (Maybe Cluster)
+ Amazonka.Redshift.Lens: disableSnapshotCopyResponse_httpStatus :: Lens' DisableSnapshotCopyResponse Int
+ Amazonka.Redshift.Lens: disableSnapshotCopy_clusterIdentifier :: Lens' DisableSnapshotCopy Text
+ Amazonka.Redshift.Lens: disassociateDataShareConsumer_consumerArn :: Lens' DisassociateDataShareConsumer (Maybe Text)
+ Amazonka.Redshift.Lens: disassociateDataShareConsumer_consumerRegion :: Lens' DisassociateDataShareConsumer (Maybe Text)
+ Amazonka.Redshift.Lens: disassociateDataShareConsumer_dataShareArn :: Lens' DisassociateDataShareConsumer Text
+ Amazonka.Redshift.Lens: disassociateDataShareConsumer_disassociateEntireAccount :: Lens' DisassociateDataShareConsumer (Maybe Bool)
+ Amazonka.Redshift.Lens: eC2SecurityGroup_eC2SecurityGroupName :: Lens' EC2SecurityGroup (Maybe Text)
+ Amazonka.Redshift.Lens: eC2SecurityGroup_eC2SecurityGroupOwnerId :: Lens' EC2SecurityGroup (Maybe Text)
+ Amazonka.Redshift.Lens: eC2SecurityGroup_status :: Lens' EC2SecurityGroup (Maybe Text)
+ Amazonka.Redshift.Lens: eC2SecurityGroup_tags :: Lens' EC2SecurityGroup (Maybe [Tag])
+ Amazonka.Redshift.Lens: elasticIpStatus_elasticIp :: Lens' ElasticIpStatus (Maybe Text)
+ Amazonka.Redshift.Lens: elasticIpStatus_status :: Lens' ElasticIpStatus (Maybe Text)
+ Amazonka.Redshift.Lens: enableLogging_bucketName :: Lens' EnableLogging (Maybe Text)
+ Amazonka.Redshift.Lens: enableLogging_clusterIdentifier :: Lens' EnableLogging Text
+ Amazonka.Redshift.Lens: enableLogging_logDestinationType :: Lens' EnableLogging (Maybe LogDestinationType)
+ Amazonka.Redshift.Lens: enableLogging_logExports :: Lens' EnableLogging (Maybe [Text])
+ Amazonka.Redshift.Lens: enableLogging_s3KeyPrefix :: Lens' EnableLogging (Maybe Text)
+ Amazonka.Redshift.Lens: enableSnapshotCopyResponse_cluster :: Lens' EnableSnapshotCopyResponse (Maybe Cluster)
+ Amazonka.Redshift.Lens: enableSnapshotCopyResponse_httpStatus :: Lens' EnableSnapshotCopyResponse Int
+ Amazonka.Redshift.Lens: enableSnapshotCopy_clusterIdentifier :: Lens' EnableSnapshotCopy Text
+ Amazonka.Redshift.Lens: enableSnapshotCopy_destinationRegion :: Lens' EnableSnapshotCopy Text
+ Amazonka.Redshift.Lens: enableSnapshotCopy_manualSnapshotRetentionPeriod :: Lens' EnableSnapshotCopy (Maybe Int)
+ Amazonka.Redshift.Lens: enableSnapshotCopy_retentionPeriod :: Lens' EnableSnapshotCopy (Maybe Int)
+ Amazonka.Redshift.Lens: enableSnapshotCopy_snapshotCopyGrantName :: Lens' EnableSnapshotCopy (Maybe Text)
+ Amazonka.Redshift.Lens: endpointAccess_address :: Lens' EndpointAccess (Maybe Text)
+ Amazonka.Redshift.Lens: endpointAccess_clusterIdentifier :: Lens' EndpointAccess (Maybe Text)
+ Amazonka.Redshift.Lens: endpointAccess_endpointCreateTime :: Lens' EndpointAccess (Maybe UTCTime)
+ Amazonka.Redshift.Lens: endpointAccess_endpointName :: Lens' EndpointAccess (Maybe Text)
+ Amazonka.Redshift.Lens: endpointAccess_endpointStatus :: Lens' EndpointAccess (Maybe Text)
+ Amazonka.Redshift.Lens: endpointAccess_port :: Lens' EndpointAccess (Maybe Int)
+ Amazonka.Redshift.Lens: endpointAccess_resourceOwner :: Lens' EndpointAccess (Maybe Text)
+ Amazonka.Redshift.Lens: endpointAccess_subnetGroupName :: Lens' EndpointAccess (Maybe Text)
+ Amazonka.Redshift.Lens: endpointAccess_vpcEndpoint :: Lens' EndpointAccess (Maybe VpcEndpoint)
+ Amazonka.Redshift.Lens: endpointAccess_vpcSecurityGroups :: Lens' EndpointAccess (Maybe [VpcSecurityGroupMembership])
+ Amazonka.Redshift.Lens: endpointAuthorization_allowedAllVPCs :: Lens' EndpointAuthorization (Maybe Bool)
+ Amazonka.Redshift.Lens: endpointAuthorization_allowedVPCs :: Lens' EndpointAuthorization (Maybe [Text])
+ Amazonka.Redshift.Lens: endpointAuthorization_authorizeTime :: Lens' EndpointAuthorization (Maybe UTCTime)
+ Amazonka.Redshift.Lens: endpointAuthorization_clusterIdentifier :: Lens' EndpointAuthorization (Maybe Text)
+ Amazonka.Redshift.Lens: endpointAuthorization_clusterStatus :: Lens' EndpointAuthorization (Maybe Text)
+ Amazonka.Redshift.Lens: endpointAuthorization_endpointCount :: Lens' EndpointAuthorization (Maybe Int)
+ Amazonka.Redshift.Lens: endpointAuthorization_grantee :: Lens' EndpointAuthorization (Maybe Text)
+ Amazonka.Redshift.Lens: endpointAuthorization_grantor :: Lens' EndpointAuthorization (Maybe Text)
+ Amazonka.Redshift.Lens: endpointAuthorization_status :: Lens' EndpointAuthorization (Maybe AuthorizationStatus)
+ Amazonka.Redshift.Lens: endpoint_address :: Lens' Endpoint (Maybe Text)
+ Amazonka.Redshift.Lens: endpoint_port :: Lens' Endpoint (Maybe Int)
+ Amazonka.Redshift.Lens: endpoint_vpcEndpoints :: Lens' Endpoint (Maybe [VpcEndpoint])
+ Amazonka.Redshift.Lens: eventCategoriesMap_events :: Lens' EventCategoriesMap (Maybe [EventInfoMap])
+ Amazonka.Redshift.Lens: eventCategoriesMap_sourceType :: Lens' EventCategoriesMap (Maybe Text)
+ Amazonka.Redshift.Lens: eventInfoMap_eventCategories :: Lens' EventInfoMap (Maybe [Text])
+ Amazonka.Redshift.Lens: eventInfoMap_eventDescription :: Lens' EventInfoMap (Maybe Text)
+ Amazonka.Redshift.Lens: eventInfoMap_eventId :: Lens' EventInfoMap (Maybe Text)
+ Amazonka.Redshift.Lens: eventInfoMap_severity :: Lens' EventInfoMap (Maybe Text)
+ Amazonka.Redshift.Lens: eventSubscription_custSubscriptionId :: Lens' EventSubscription (Maybe Text)
+ Amazonka.Redshift.Lens: eventSubscription_customerAwsId :: Lens' EventSubscription (Maybe Text)
+ Amazonka.Redshift.Lens: eventSubscription_enabled :: Lens' EventSubscription (Maybe Bool)
+ Amazonka.Redshift.Lens: eventSubscription_eventCategoriesList :: Lens' EventSubscription (Maybe [Text])
+ Amazonka.Redshift.Lens: eventSubscription_severity :: Lens' EventSubscription (Maybe Text)
+ Amazonka.Redshift.Lens: eventSubscription_snsTopicArn :: Lens' EventSubscription (Maybe Text)
+ Amazonka.Redshift.Lens: eventSubscription_sourceIdsList :: Lens' EventSubscription (Maybe [Text])
+ Amazonka.Redshift.Lens: eventSubscription_sourceType :: Lens' EventSubscription (Maybe Text)
+ Amazonka.Redshift.Lens: eventSubscription_status :: Lens' EventSubscription (Maybe Text)
+ Amazonka.Redshift.Lens: eventSubscription_subscriptionCreationTime :: Lens' EventSubscription (Maybe UTCTime)
+ Amazonka.Redshift.Lens: eventSubscription_tags :: Lens' EventSubscription (Maybe [Tag])
+ Amazonka.Redshift.Lens: event_date :: Lens' Event (Maybe UTCTime)
+ Amazonka.Redshift.Lens: event_eventCategories :: Lens' Event (Maybe [Text])
+ Amazonka.Redshift.Lens: event_eventId :: Lens' Event (Maybe Text)
+ Amazonka.Redshift.Lens: event_message :: Lens' Event (Maybe Text)
+ Amazonka.Redshift.Lens: event_severity :: Lens' Event (Maybe Text)
+ Amazonka.Redshift.Lens: event_sourceIdentifier :: Lens' Event (Maybe Text)
+ Amazonka.Redshift.Lens: event_sourceType :: Lens' Event (Maybe SourceType)
+ Amazonka.Redshift.Lens: getClusterCredentialsResponse_dbPassword :: Lens' GetClusterCredentialsResponse (Maybe Text)
+ Amazonka.Redshift.Lens: getClusterCredentialsResponse_dbUser :: Lens' GetClusterCredentialsResponse (Maybe Text)
+ Amazonka.Redshift.Lens: getClusterCredentialsResponse_expiration :: Lens' GetClusterCredentialsResponse (Maybe UTCTime)
+ Amazonka.Redshift.Lens: getClusterCredentialsResponse_httpStatus :: Lens' GetClusterCredentialsResponse Int
+ Amazonka.Redshift.Lens: getClusterCredentialsWithIAMResponse_dbPassword :: Lens' GetClusterCredentialsWithIAMResponse (Maybe Text)
+ Amazonka.Redshift.Lens: getClusterCredentialsWithIAMResponse_dbUser :: Lens' GetClusterCredentialsWithIAMResponse (Maybe Text)
+ Amazonka.Redshift.Lens: getClusterCredentialsWithIAMResponse_expiration :: Lens' GetClusterCredentialsWithIAMResponse (Maybe UTCTime)
+ Amazonka.Redshift.Lens: getClusterCredentialsWithIAMResponse_httpStatus :: Lens' GetClusterCredentialsWithIAMResponse Int
+ Amazonka.Redshift.Lens: getClusterCredentialsWithIAMResponse_nextRefreshTime :: Lens' GetClusterCredentialsWithIAMResponse (Maybe UTCTime)
+ Amazonka.Redshift.Lens: getClusterCredentialsWithIAM_clusterIdentifier :: Lens' GetClusterCredentialsWithIAM Text
+ Amazonka.Redshift.Lens: getClusterCredentialsWithIAM_dbName :: Lens' GetClusterCredentialsWithIAM (Maybe Text)
+ Amazonka.Redshift.Lens: getClusterCredentialsWithIAM_durationSeconds :: Lens' GetClusterCredentialsWithIAM (Maybe Int)
+ Amazonka.Redshift.Lens: getClusterCredentials_autoCreate :: Lens' GetClusterCredentials (Maybe Bool)
+ Amazonka.Redshift.Lens: getClusterCredentials_clusterIdentifier :: Lens' GetClusterCredentials Text
+ Amazonka.Redshift.Lens: getClusterCredentials_dbGroups :: Lens' GetClusterCredentials (Maybe [Text])
+ Amazonka.Redshift.Lens: getClusterCredentials_dbName :: Lens' GetClusterCredentials (Maybe Text)
+ Amazonka.Redshift.Lens: getClusterCredentials_dbUser :: Lens' GetClusterCredentials Text
+ Amazonka.Redshift.Lens: getClusterCredentials_durationSeconds :: Lens' GetClusterCredentials (Maybe Int)
+ Amazonka.Redshift.Lens: getReservedNodeExchangeConfigurationOptionsResponse_httpStatus :: Lens' GetReservedNodeExchangeConfigurationOptionsResponse Int
+ Amazonka.Redshift.Lens: getReservedNodeExchangeConfigurationOptionsResponse_marker :: Lens' GetReservedNodeExchangeConfigurationOptionsResponse (Maybe Text)
+ Amazonka.Redshift.Lens: getReservedNodeExchangeConfigurationOptionsResponse_reservedNodeConfigurationOptionList :: Lens' GetReservedNodeExchangeConfigurationOptionsResponse (Maybe [ReservedNodeConfigurationOption])
+ Amazonka.Redshift.Lens: getReservedNodeExchangeConfigurationOptions_actionType :: Lens' GetReservedNodeExchangeConfigurationOptions ReservedNodeExchangeActionType
+ Amazonka.Redshift.Lens: getReservedNodeExchangeConfigurationOptions_clusterIdentifier :: Lens' GetReservedNodeExchangeConfigurationOptions (Maybe Text)
+ Amazonka.Redshift.Lens: getReservedNodeExchangeConfigurationOptions_marker :: Lens' GetReservedNodeExchangeConfigurationOptions (Maybe Text)
+ Amazonka.Redshift.Lens: getReservedNodeExchangeConfigurationOptions_maxRecords :: Lens' GetReservedNodeExchangeConfigurationOptions (Maybe Int)
+ Amazonka.Redshift.Lens: getReservedNodeExchangeConfigurationOptions_snapshotIdentifier :: Lens' GetReservedNodeExchangeConfigurationOptions (Maybe Text)
+ Amazonka.Redshift.Lens: getReservedNodeExchangeOfferingsResponse_httpStatus :: Lens' GetReservedNodeExchangeOfferingsResponse Int
+ Amazonka.Redshift.Lens: getReservedNodeExchangeOfferingsResponse_marker :: Lens' GetReservedNodeExchangeOfferingsResponse (Maybe Text)
+ Amazonka.Redshift.Lens: getReservedNodeExchangeOfferingsResponse_reservedNodeOfferings :: Lens' GetReservedNodeExchangeOfferingsResponse (Maybe [ReservedNodeOffering])
+ Amazonka.Redshift.Lens: getReservedNodeExchangeOfferings_marker :: Lens' GetReservedNodeExchangeOfferings (Maybe Text)
+ Amazonka.Redshift.Lens: getReservedNodeExchangeOfferings_maxRecords :: Lens' GetReservedNodeExchangeOfferings (Maybe Int)
+ Amazonka.Redshift.Lens: getReservedNodeExchangeOfferings_reservedNodeId :: Lens' GetReservedNodeExchangeOfferings Text
+ Amazonka.Redshift.Lens: hsmClientCertificate_hsmClientCertificateIdentifier :: Lens' HsmClientCertificate (Maybe Text)
+ Amazonka.Redshift.Lens: hsmClientCertificate_hsmClientCertificatePublicKey :: Lens' HsmClientCertificate (Maybe Text)
+ Amazonka.Redshift.Lens: hsmClientCertificate_tags :: Lens' HsmClientCertificate (Maybe [Tag])
+ Amazonka.Redshift.Lens: hsmConfiguration_description :: Lens' HsmConfiguration (Maybe Text)
+ Amazonka.Redshift.Lens: hsmConfiguration_hsmConfigurationIdentifier :: Lens' HsmConfiguration (Maybe Text)
+ Amazonka.Redshift.Lens: hsmConfiguration_hsmIpAddress :: Lens' HsmConfiguration (Maybe Text)
+ Amazonka.Redshift.Lens: hsmConfiguration_hsmPartitionName :: Lens' HsmConfiguration (Maybe Text)
+ Amazonka.Redshift.Lens: hsmConfiguration_tags :: Lens' HsmConfiguration (Maybe [Tag])
+ Amazonka.Redshift.Lens: hsmStatus_hsmClientCertificateIdentifier :: Lens' HsmStatus (Maybe Text)
+ Amazonka.Redshift.Lens: hsmStatus_hsmConfigurationIdentifier :: Lens' HsmStatus (Maybe Text)
+ Amazonka.Redshift.Lens: hsmStatus_status :: Lens' HsmStatus (Maybe Text)
+ Amazonka.Redshift.Lens: iPRange_cidrip :: Lens' IPRange (Maybe Text)
+ Amazonka.Redshift.Lens: iPRange_status :: Lens' IPRange (Maybe Text)
+ Amazonka.Redshift.Lens: iPRange_tags :: Lens' IPRange (Maybe [Tag])
+ Amazonka.Redshift.Lens: loggingStatus_bucketName :: Lens' LoggingStatus (Maybe Text)
+ Amazonka.Redshift.Lens: loggingStatus_lastFailureMessage :: Lens' LoggingStatus (Maybe Text)
+ Amazonka.Redshift.Lens: loggingStatus_lastFailureTime :: Lens' LoggingStatus (Maybe UTCTime)
+ Amazonka.Redshift.Lens: loggingStatus_lastSuccessfulDeliveryTime :: Lens' LoggingStatus (Maybe UTCTime)
+ Amazonka.Redshift.Lens: loggingStatus_logDestinationType :: Lens' LoggingStatus (Maybe LogDestinationType)
+ Amazonka.Redshift.Lens: loggingStatus_logExports :: Lens' LoggingStatus (Maybe [Text])
+ Amazonka.Redshift.Lens: loggingStatus_loggingEnabled :: Lens' LoggingStatus (Maybe Bool)
+ Amazonka.Redshift.Lens: loggingStatus_s3KeyPrefix :: Lens' LoggingStatus (Maybe Text)
+ Amazonka.Redshift.Lens: maintenanceTrack_databaseVersion :: Lens' MaintenanceTrack (Maybe Text)
+ Amazonka.Redshift.Lens: maintenanceTrack_maintenanceTrackName :: Lens' MaintenanceTrack (Maybe Text)
+ Amazonka.Redshift.Lens: maintenanceTrack_updateTargets :: Lens' MaintenanceTrack (Maybe [UpdateTarget])
+ Amazonka.Redshift.Lens: modifyAquaConfigurationResponse_aquaConfiguration :: Lens' ModifyAquaConfigurationResponse (Maybe AquaConfiguration)
+ Amazonka.Redshift.Lens: modifyAquaConfigurationResponse_httpStatus :: Lens' ModifyAquaConfigurationResponse Int
+ Amazonka.Redshift.Lens: modifyAquaConfiguration_aquaConfigurationStatus :: Lens' ModifyAquaConfiguration (Maybe AquaConfigurationStatus)
+ Amazonka.Redshift.Lens: modifyAquaConfiguration_clusterIdentifier :: Lens' ModifyAquaConfiguration Text
+ Amazonka.Redshift.Lens: modifyAuthenticationProfileResponse_authenticationProfileContent :: Lens' ModifyAuthenticationProfileResponse (Maybe Text)
+ Amazonka.Redshift.Lens: modifyAuthenticationProfileResponse_authenticationProfileName :: Lens' ModifyAuthenticationProfileResponse (Maybe Text)
+ Amazonka.Redshift.Lens: modifyAuthenticationProfileResponse_httpStatus :: Lens' ModifyAuthenticationProfileResponse Int
+ Amazonka.Redshift.Lens: modifyAuthenticationProfile_authenticationProfileContent :: Lens' ModifyAuthenticationProfile Text
+ Amazonka.Redshift.Lens: modifyAuthenticationProfile_authenticationProfileName :: Lens' ModifyAuthenticationProfile Text
+ Amazonka.Redshift.Lens: modifyClusterDbRevisionResponse_cluster :: Lens' ModifyClusterDbRevisionResponse (Maybe Cluster)
+ Amazonka.Redshift.Lens: modifyClusterDbRevisionResponse_httpStatus :: Lens' ModifyClusterDbRevisionResponse Int
+ Amazonka.Redshift.Lens: modifyClusterDbRevision_clusterIdentifier :: Lens' ModifyClusterDbRevision Text
+ Amazonka.Redshift.Lens: modifyClusterDbRevision_revisionTarget :: Lens' ModifyClusterDbRevision Text
+ Amazonka.Redshift.Lens: modifyClusterIamRolesResponse_cluster :: Lens' ModifyClusterIamRolesResponse (Maybe Cluster)
+ Amazonka.Redshift.Lens: modifyClusterIamRolesResponse_httpStatus :: Lens' ModifyClusterIamRolesResponse Int
+ Amazonka.Redshift.Lens: modifyClusterIamRoles_addIamRoles :: Lens' ModifyClusterIamRoles (Maybe [Text])
+ Amazonka.Redshift.Lens: modifyClusterIamRoles_clusterIdentifier :: Lens' ModifyClusterIamRoles Text
+ Amazonka.Redshift.Lens: modifyClusterIamRoles_defaultIamRoleArn :: Lens' ModifyClusterIamRoles (Maybe Text)
+ Amazonka.Redshift.Lens: modifyClusterIamRoles_removeIamRoles :: Lens' ModifyClusterIamRoles (Maybe [Text])
+ Amazonka.Redshift.Lens: modifyClusterMaintenanceResponse_cluster :: Lens' ModifyClusterMaintenanceResponse (Maybe Cluster)
+ Amazonka.Redshift.Lens: modifyClusterMaintenanceResponse_httpStatus :: Lens' ModifyClusterMaintenanceResponse Int
+ Amazonka.Redshift.Lens: modifyClusterMaintenance_clusterIdentifier :: Lens' ModifyClusterMaintenance Text
+ Amazonka.Redshift.Lens: modifyClusterMaintenance_deferMaintenance :: Lens' ModifyClusterMaintenance (Maybe Bool)
+ Amazonka.Redshift.Lens: modifyClusterMaintenance_deferMaintenanceDuration :: Lens' ModifyClusterMaintenance (Maybe Int)
+ Amazonka.Redshift.Lens: modifyClusterMaintenance_deferMaintenanceEndTime :: Lens' ModifyClusterMaintenance (Maybe UTCTime)
+ Amazonka.Redshift.Lens: modifyClusterMaintenance_deferMaintenanceIdentifier :: Lens' ModifyClusterMaintenance (Maybe Text)
+ Amazonka.Redshift.Lens: modifyClusterMaintenance_deferMaintenanceStartTime :: Lens' ModifyClusterMaintenance (Maybe UTCTime)
+ Amazonka.Redshift.Lens: modifyClusterParameterGroup_parameterGroupName :: Lens' ModifyClusterParameterGroup Text
+ Amazonka.Redshift.Lens: modifyClusterParameterGroup_parameters :: Lens' ModifyClusterParameterGroup [Parameter]
+ Amazonka.Redshift.Lens: modifyClusterResponse_cluster :: Lens' ModifyClusterResponse (Maybe Cluster)
+ Amazonka.Redshift.Lens: modifyClusterResponse_httpStatus :: Lens' ModifyClusterResponse Int
+ Amazonka.Redshift.Lens: modifyClusterSnapshotResponse_httpStatus :: Lens' ModifyClusterSnapshotResponse Int
+ Amazonka.Redshift.Lens: modifyClusterSnapshotResponse_snapshot :: Lens' ModifyClusterSnapshotResponse (Maybe Snapshot)
+ Amazonka.Redshift.Lens: modifyClusterSnapshotSchedule_clusterIdentifier :: Lens' ModifyClusterSnapshotSchedule Text
+ Amazonka.Redshift.Lens: modifyClusterSnapshotSchedule_disassociateSchedule :: Lens' ModifyClusterSnapshotSchedule (Maybe Bool)
+ Amazonka.Redshift.Lens: modifyClusterSnapshotSchedule_scheduleIdentifier :: Lens' ModifyClusterSnapshotSchedule (Maybe Text)
+ Amazonka.Redshift.Lens: modifyClusterSnapshot_force :: Lens' ModifyClusterSnapshot (Maybe Bool)
+ Amazonka.Redshift.Lens: modifyClusterSnapshot_manualSnapshotRetentionPeriod :: Lens' ModifyClusterSnapshot (Maybe Int)
+ Amazonka.Redshift.Lens: modifyClusterSnapshot_snapshotIdentifier :: Lens' ModifyClusterSnapshot Text
+ Amazonka.Redshift.Lens: modifyClusterSubnetGroupResponse_clusterSubnetGroup :: Lens' ModifyClusterSubnetGroupResponse (Maybe ClusterSubnetGroup)
+ Amazonka.Redshift.Lens: modifyClusterSubnetGroupResponse_httpStatus :: Lens' ModifyClusterSubnetGroupResponse Int
+ Amazonka.Redshift.Lens: modifyClusterSubnetGroup_clusterSubnetGroupName :: Lens' ModifyClusterSubnetGroup Text
+ Amazonka.Redshift.Lens: modifyClusterSubnetGroup_description :: Lens' ModifyClusterSubnetGroup (Maybe Text)
+ Amazonka.Redshift.Lens: modifyClusterSubnetGroup_subnetIds :: Lens' ModifyClusterSubnetGroup [Text]
+ Amazonka.Redshift.Lens: modifyCluster_allowVersionUpgrade :: Lens' ModifyCluster (Maybe Bool)
+ Amazonka.Redshift.Lens: modifyCluster_automatedSnapshotRetentionPeriod :: Lens' ModifyCluster (Maybe Int)
+ Amazonka.Redshift.Lens: modifyCluster_availabilityZone :: Lens' ModifyCluster (Maybe Text)
+ Amazonka.Redshift.Lens: modifyCluster_availabilityZoneRelocation :: Lens' ModifyCluster (Maybe Bool)
+ Amazonka.Redshift.Lens: modifyCluster_clusterIdentifier :: Lens' ModifyCluster Text
+ Amazonka.Redshift.Lens: modifyCluster_clusterParameterGroupName :: Lens' ModifyCluster (Maybe Text)
+ Amazonka.Redshift.Lens: modifyCluster_clusterSecurityGroups :: Lens' ModifyCluster (Maybe [Text])
+ Amazonka.Redshift.Lens: modifyCluster_clusterType :: Lens' ModifyCluster (Maybe Text)
+ Amazonka.Redshift.Lens: modifyCluster_clusterVersion :: Lens' ModifyCluster (Maybe Text)
+ Amazonka.Redshift.Lens: modifyCluster_elasticIp :: Lens' ModifyCluster (Maybe Text)
+ Amazonka.Redshift.Lens: modifyCluster_encrypted :: Lens' ModifyCluster (Maybe Bool)
+ Amazonka.Redshift.Lens: modifyCluster_enhancedVpcRouting :: Lens' ModifyCluster (Maybe Bool)
+ Amazonka.Redshift.Lens: modifyCluster_hsmClientCertificateIdentifier :: Lens' ModifyCluster (Maybe Text)
+ Amazonka.Redshift.Lens: modifyCluster_hsmConfigurationIdentifier :: Lens' ModifyCluster (Maybe Text)
+ Amazonka.Redshift.Lens: modifyCluster_kmsKeyId :: Lens' ModifyCluster (Maybe Text)
+ Amazonka.Redshift.Lens: modifyCluster_maintenanceTrackName :: Lens' ModifyCluster (Maybe Text)
+ Amazonka.Redshift.Lens: modifyCluster_manualSnapshotRetentionPeriod :: Lens' ModifyCluster (Maybe Int)
+ Amazonka.Redshift.Lens: modifyCluster_masterUserPassword :: Lens' ModifyCluster (Maybe Text)
+ Amazonka.Redshift.Lens: modifyCluster_newClusterIdentifier :: Lens' ModifyCluster (Maybe Text)
+ Amazonka.Redshift.Lens: modifyCluster_nodeType :: Lens' ModifyCluster (Maybe Text)
+ Amazonka.Redshift.Lens: modifyCluster_numberOfNodes :: Lens' ModifyCluster (Maybe Int)
+ Amazonka.Redshift.Lens: modifyCluster_port :: Lens' ModifyCluster (Maybe Int)
+ Amazonka.Redshift.Lens: modifyCluster_preferredMaintenanceWindow :: Lens' ModifyCluster (Maybe Text)
+ Amazonka.Redshift.Lens: modifyCluster_publiclyAccessible :: Lens' ModifyCluster (Maybe Bool)
+ Amazonka.Redshift.Lens: modifyCluster_vpcSecurityGroupIds :: Lens' ModifyCluster (Maybe [Text])
+ Amazonka.Redshift.Lens: modifyEndpointAccess_endpointName :: Lens' ModifyEndpointAccess Text
+ Amazonka.Redshift.Lens: modifyEndpointAccess_vpcSecurityGroupIds :: Lens' ModifyEndpointAccess (Maybe [Text])
+ Amazonka.Redshift.Lens: modifyEventSubscriptionResponse_eventSubscription :: Lens' ModifyEventSubscriptionResponse (Maybe EventSubscription)
+ Amazonka.Redshift.Lens: modifyEventSubscriptionResponse_httpStatus :: Lens' ModifyEventSubscriptionResponse Int
+ Amazonka.Redshift.Lens: modifyEventSubscription_enabled :: Lens' ModifyEventSubscription (Maybe Bool)
+ Amazonka.Redshift.Lens: modifyEventSubscription_eventCategories :: Lens' ModifyEventSubscription (Maybe [Text])
+ Amazonka.Redshift.Lens: modifyEventSubscription_severity :: Lens' ModifyEventSubscription (Maybe Text)
+ Amazonka.Redshift.Lens: modifyEventSubscription_snsTopicArn :: Lens' ModifyEventSubscription (Maybe Text)
+ Amazonka.Redshift.Lens: modifyEventSubscription_sourceIds :: Lens' ModifyEventSubscription (Maybe [Text])
+ Amazonka.Redshift.Lens: modifyEventSubscription_sourceType :: Lens' ModifyEventSubscription (Maybe Text)
+ Amazonka.Redshift.Lens: modifyEventSubscription_subscriptionName :: Lens' ModifyEventSubscription Text
+ Amazonka.Redshift.Lens: modifyScheduledAction_enable :: Lens' ModifyScheduledAction (Maybe Bool)
+ Amazonka.Redshift.Lens: modifyScheduledAction_endTime :: Lens' ModifyScheduledAction (Maybe UTCTime)
+ Amazonka.Redshift.Lens: modifyScheduledAction_iamRole :: Lens' ModifyScheduledAction (Maybe Text)
+ Amazonka.Redshift.Lens: modifyScheduledAction_schedule :: Lens' ModifyScheduledAction (Maybe Text)
+ Amazonka.Redshift.Lens: modifyScheduledAction_scheduledActionDescription :: Lens' ModifyScheduledAction (Maybe Text)
+ Amazonka.Redshift.Lens: modifyScheduledAction_scheduledActionName :: Lens' ModifyScheduledAction Text
+ Amazonka.Redshift.Lens: modifyScheduledAction_startTime :: Lens' ModifyScheduledAction (Maybe UTCTime)
+ Amazonka.Redshift.Lens: modifyScheduledAction_targetAction :: Lens' ModifyScheduledAction (Maybe ScheduledActionType)
+ Amazonka.Redshift.Lens: modifySnapshotCopyRetentionPeriodResponse_cluster :: Lens' ModifySnapshotCopyRetentionPeriodResponse (Maybe Cluster)
+ Amazonka.Redshift.Lens: modifySnapshotCopyRetentionPeriodResponse_httpStatus :: Lens' ModifySnapshotCopyRetentionPeriodResponse Int
+ Amazonka.Redshift.Lens: modifySnapshotCopyRetentionPeriod_clusterIdentifier :: Lens' ModifySnapshotCopyRetentionPeriod Text
+ Amazonka.Redshift.Lens: modifySnapshotCopyRetentionPeriod_manual :: Lens' ModifySnapshotCopyRetentionPeriod (Maybe Bool)
+ Amazonka.Redshift.Lens: modifySnapshotCopyRetentionPeriod_retentionPeriod :: Lens' ModifySnapshotCopyRetentionPeriod Int
+ Amazonka.Redshift.Lens: modifySnapshotSchedule_scheduleDefinitions :: Lens' ModifySnapshotSchedule [Text]
+ Amazonka.Redshift.Lens: modifySnapshotSchedule_scheduleIdentifier :: Lens' ModifySnapshotSchedule Text
+ Amazonka.Redshift.Lens: modifyUsageLimit_amount :: Lens' ModifyUsageLimit (Maybe Integer)
+ Amazonka.Redshift.Lens: modifyUsageLimit_breachAction :: Lens' ModifyUsageLimit (Maybe UsageLimitBreachAction)
+ Amazonka.Redshift.Lens: modifyUsageLimit_usageLimitId :: Lens' ModifyUsageLimit Text
+ Amazonka.Redshift.Lens: networkInterface_availabilityZone :: Lens' NetworkInterface (Maybe Text)
+ Amazonka.Redshift.Lens: networkInterface_networkInterfaceId :: Lens' NetworkInterface (Maybe Text)
+ Amazonka.Redshift.Lens: networkInterface_privateIpAddress :: Lens' NetworkInterface (Maybe Text)
+ Amazonka.Redshift.Lens: networkInterface_subnetId :: Lens' NetworkInterface (Maybe Text)
+ Amazonka.Redshift.Lens: nodeConfigurationOption_estimatedDiskUtilizationPercent :: Lens' NodeConfigurationOption (Maybe Double)
+ Amazonka.Redshift.Lens: nodeConfigurationOption_mode :: Lens' NodeConfigurationOption (Maybe Mode)
+ Amazonka.Redshift.Lens: nodeConfigurationOption_nodeType :: Lens' NodeConfigurationOption (Maybe Text)
+ Amazonka.Redshift.Lens: nodeConfigurationOption_numberOfNodes :: Lens' NodeConfigurationOption (Maybe Int)
+ Amazonka.Redshift.Lens: nodeConfigurationOptionsFilter_name :: Lens' NodeConfigurationOptionsFilter (Maybe NodeConfigurationOptionsFilterName)
+ Amazonka.Redshift.Lens: nodeConfigurationOptionsFilter_operator :: Lens' NodeConfigurationOptionsFilter (Maybe OperatorType)
+ Amazonka.Redshift.Lens: nodeConfigurationOptionsFilter_values :: Lens' NodeConfigurationOptionsFilter (Maybe [Text])
+ Amazonka.Redshift.Lens: orderableClusterOption_availabilityZones :: Lens' OrderableClusterOption (Maybe [AvailabilityZone])
+ Amazonka.Redshift.Lens: orderableClusterOption_clusterType :: Lens' OrderableClusterOption (Maybe Text)
+ Amazonka.Redshift.Lens: orderableClusterOption_clusterVersion :: Lens' OrderableClusterOption (Maybe Text)
+ Amazonka.Redshift.Lens: orderableClusterOption_nodeType :: Lens' OrderableClusterOption (Maybe Text)
+ Amazonka.Redshift.Lens: parameter_allowedValues :: Lens' Parameter (Maybe Text)
+ Amazonka.Redshift.Lens: parameter_applyType :: Lens' Parameter (Maybe ParameterApplyType)
+ Amazonka.Redshift.Lens: parameter_dataType :: Lens' Parameter (Maybe Text)
+ Amazonka.Redshift.Lens: parameter_description :: Lens' Parameter (Maybe Text)
+ Amazonka.Redshift.Lens: parameter_isModifiable :: Lens' Parameter (Maybe Bool)
+ Amazonka.Redshift.Lens: parameter_minimumEngineVersion :: Lens' Parameter (Maybe Text)
+ Amazonka.Redshift.Lens: parameter_parameterName :: Lens' Parameter (Maybe Text)
+ Amazonka.Redshift.Lens: parameter_parameterValue :: Lens' Parameter (Maybe Text)
+ Amazonka.Redshift.Lens: parameter_source :: Lens' Parameter (Maybe Text)
+ Amazonka.Redshift.Lens: partnerIntegrationInfo_createdAt :: Lens' PartnerIntegrationInfo (Maybe UTCTime)
+ Amazonka.Redshift.Lens: partnerIntegrationInfo_databaseName :: Lens' PartnerIntegrationInfo (Maybe Text)
+ Amazonka.Redshift.Lens: partnerIntegrationInfo_partnerName :: Lens' PartnerIntegrationInfo (Maybe Text)
+ Amazonka.Redshift.Lens: partnerIntegrationInfo_status :: Lens' PartnerIntegrationInfo (Maybe PartnerIntegrationStatus)
+ Amazonka.Redshift.Lens: partnerIntegrationInfo_statusMessage :: Lens' PartnerIntegrationInfo (Maybe Text)
+ Amazonka.Redshift.Lens: partnerIntegrationInfo_updatedAt :: Lens' PartnerIntegrationInfo (Maybe UTCTime)
+ Amazonka.Redshift.Lens: partnerIntegrationInputMessage_accountId :: Lens' PartnerIntegrationInputMessage Text
+ Amazonka.Redshift.Lens: partnerIntegrationInputMessage_clusterIdentifier :: Lens' PartnerIntegrationInputMessage Text
+ Amazonka.Redshift.Lens: partnerIntegrationInputMessage_databaseName :: Lens' PartnerIntegrationInputMessage Text
+ Amazonka.Redshift.Lens: partnerIntegrationInputMessage_partnerName :: Lens' PartnerIntegrationInputMessage Text
+ Amazonka.Redshift.Lens: partnerIntegrationOutputMessage_databaseName :: Lens' PartnerIntegrationOutputMessage (Maybe Text)
+ Amazonka.Redshift.Lens: partnerIntegrationOutputMessage_partnerName :: Lens' PartnerIntegrationOutputMessage (Maybe Text)
+ Amazonka.Redshift.Lens: pauseClusterMessage_clusterIdentifier :: Lens' PauseClusterMessage Text
+ Amazonka.Redshift.Lens: pauseClusterResponse_cluster :: Lens' PauseClusterResponse (Maybe Cluster)
+ Amazonka.Redshift.Lens: pauseClusterResponse_httpStatus :: Lens' PauseClusterResponse Int
+ Amazonka.Redshift.Lens: pauseCluster_clusterIdentifier :: Lens' PauseCluster Text
+ Amazonka.Redshift.Lens: pendingModifiedValues_automatedSnapshotRetentionPeriod :: Lens' PendingModifiedValues (Maybe Int)
+ Amazonka.Redshift.Lens: pendingModifiedValues_clusterIdentifier :: Lens' PendingModifiedValues (Maybe Text)
+ Amazonka.Redshift.Lens: pendingModifiedValues_clusterType :: Lens' PendingModifiedValues (Maybe Text)
+ Amazonka.Redshift.Lens: pendingModifiedValues_clusterVersion :: Lens' PendingModifiedValues (Maybe Text)
+ Amazonka.Redshift.Lens: pendingModifiedValues_encryptionType :: Lens' PendingModifiedValues (Maybe Text)
+ Amazonka.Redshift.Lens: pendingModifiedValues_enhancedVpcRouting :: Lens' PendingModifiedValues (Maybe Bool)
+ Amazonka.Redshift.Lens: pendingModifiedValues_maintenanceTrackName :: Lens' PendingModifiedValues (Maybe Text)
+ Amazonka.Redshift.Lens: pendingModifiedValues_masterUserPassword :: Lens' PendingModifiedValues (Maybe Text)
+ Amazonka.Redshift.Lens: pendingModifiedValues_nodeType :: Lens' PendingModifiedValues (Maybe Text)
+ Amazonka.Redshift.Lens: pendingModifiedValues_numberOfNodes :: Lens' PendingModifiedValues (Maybe Int)
+ Amazonka.Redshift.Lens: pendingModifiedValues_publiclyAccessible :: Lens' PendingModifiedValues (Maybe Bool)
+ Amazonka.Redshift.Lens: purchaseReservedNodeOfferingResponse_httpStatus :: Lens' PurchaseReservedNodeOfferingResponse Int
+ Amazonka.Redshift.Lens: purchaseReservedNodeOfferingResponse_reservedNode :: Lens' PurchaseReservedNodeOfferingResponse (Maybe ReservedNode)
+ Amazonka.Redshift.Lens: purchaseReservedNodeOffering_nodeCount :: Lens' PurchaseReservedNodeOffering (Maybe Int)
+ Amazonka.Redshift.Lens: purchaseReservedNodeOffering_reservedNodeOfferingId :: Lens' PurchaseReservedNodeOffering Text
+ Amazonka.Redshift.Lens: rebootClusterResponse_cluster :: Lens' RebootClusterResponse (Maybe Cluster)
+ Amazonka.Redshift.Lens: rebootClusterResponse_httpStatus :: Lens' RebootClusterResponse Int
+ Amazonka.Redshift.Lens: rebootCluster_clusterIdentifier :: Lens' RebootCluster Text
+ Amazonka.Redshift.Lens: recurringCharge_recurringChargeAmount :: Lens' RecurringCharge (Maybe Double)
+ Amazonka.Redshift.Lens: recurringCharge_recurringChargeFrequency :: Lens' RecurringCharge (Maybe Text)
+ Amazonka.Redshift.Lens: rejectDataShare_dataShareArn :: Lens' RejectDataShare Text
+ Amazonka.Redshift.Lens: reservedNodeConfigurationOption_sourceReservedNode :: Lens' ReservedNodeConfigurationOption (Maybe ReservedNode)
+ Amazonka.Redshift.Lens: reservedNodeConfigurationOption_targetReservedNodeCount :: Lens' ReservedNodeConfigurationOption (Maybe Int)
+ Amazonka.Redshift.Lens: reservedNodeConfigurationOption_targetReservedNodeOffering :: Lens' ReservedNodeConfigurationOption (Maybe ReservedNodeOffering)
+ Amazonka.Redshift.Lens: reservedNodeExchangeStatus_requestTime :: Lens' ReservedNodeExchangeStatus (Maybe UTCTime)
+ Amazonka.Redshift.Lens: reservedNodeExchangeStatus_reservedNodeExchangeRequestId :: Lens' ReservedNodeExchangeStatus (Maybe Text)
+ Amazonka.Redshift.Lens: reservedNodeExchangeStatus_sourceReservedNodeCount :: Lens' ReservedNodeExchangeStatus (Maybe Int)
+ Amazonka.Redshift.Lens: reservedNodeExchangeStatus_sourceReservedNodeId :: Lens' ReservedNodeExchangeStatus (Maybe Text)
+ Amazonka.Redshift.Lens: reservedNodeExchangeStatus_sourceReservedNodeType :: Lens' ReservedNodeExchangeStatus (Maybe Text)
+ Amazonka.Redshift.Lens: reservedNodeExchangeStatus_status :: Lens' ReservedNodeExchangeStatus (Maybe ReservedNodeExchangeStatusType)
+ Amazonka.Redshift.Lens: reservedNodeExchangeStatus_targetReservedNodeCount :: Lens' ReservedNodeExchangeStatus (Maybe Int)
+ Amazonka.Redshift.Lens: reservedNodeExchangeStatus_targetReservedNodeOfferingId :: Lens' ReservedNodeExchangeStatus (Maybe Text)
+ Amazonka.Redshift.Lens: reservedNodeExchangeStatus_targetReservedNodeType :: Lens' ReservedNodeExchangeStatus (Maybe Text)
+ Amazonka.Redshift.Lens: reservedNodeOffering_currencyCode :: Lens' ReservedNodeOffering (Maybe Text)
+ Amazonka.Redshift.Lens: reservedNodeOffering_duration :: Lens' ReservedNodeOffering (Maybe Int)
+ Amazonka.Redshift.Lens: reservedNodeOffering_fixedPrice :: Lens' ReservedNodeOffering (Maybe Double)
+ Amazonka.Redshift.Lens: reservedNodeOffering_nodeType :: Lens' ReservedNodeOffering (Maybe Text)
+ Amazonka.Redshift.Lens: reservedNodeOffering_offeringType :: Lens' ReservedNodeOffering (Maybe Text)
+ Amazonka.Redshift.Lens: reservedNodeOffering_recurringCharges :: Lens' ReservedNodeOffering (Maybe [RecurringCharge])
+ Amazonka.Redshift.Lens: reservedNodeOffering_reservedNodeOfferingId :: Lens' ReservedNodeOffering (Maybe Text)
+ Amazonka.Redshift.Lens: reservedNodeOffering_reservedNodeOfferingType :: Lens' ReservedNodeOffering (Maybe ReservedNodeOfferingType)
+ Amazonka.Redshift.Lens: reservedNodeOffering_usagePrice :: Lens' ReservedNodeOffering (Maybe Double)
+ Amazonka.Redshift.Lens: reservedNode_currencyCode :: Lens' ReservedNode (Maybe Text)
+ Amazonka.Redshift.Lens: reservedNode_duration :: Lens' ReservedNode (Maybe Int)
+ Amazonka.Redshift.Lens: reservedNode_fixedPrice :: Lens' ReservedNode (Maybe Double)
+ Amazonka.Redshift.Lens: reservedNode_nodeCount :: Lens' ReservedNode (Maybe Int)
+ Amazonka.Redshift.Lens: reservedNode_nodeType :: Lens' ReservedNode (Maybe Text)
+ Amazonka.Redshift.Lens: reservedNode_offeringType :: Lens' ReservedNode (Maybe Text)
+ Amazonka.Redshift.Lens: reservedNode_recurringCharges :: Lens' ReservedNode (Maybe [RecurringCharge])
+ Amazonka.Redshift.Lens: reservedNode_reservedNodeId :: Lens' ReservedNode (Maybe Text)
+ Amazonka.Redshift.Lens: reservedNode_reservedNodeOfferingId :: Lens' ReservedNode (Maybe Text)
+ Amazonka.Redshift.Lens: reservedNode_reservedNodeOfferingType :: Lens' ReservedNode (Maybe ReservedNodeOfferingType)
+ Amazonka.Redshift.Lens: reservedNode_startTime :: Lens' ReservedNode (Maybe UTCTime)
+ Amazonka.Redshift.Lens: reservedNode_state :: Lens' ReservedNode (Maybe Text)
+ Amazonka.Redshift.Lens: reservedNode_usagePrice :: Lens' ReservedNode (Maybe Double)
+ Amazonka.Redshift.Lens: resetClusterParameterGroup_parameterGroupName :: Lens' ResetClusterParameterGroup Text
+ Amazonka.Redshift.Lens: resetClusterParameterGroup_parameters :: Lens' ResetClusterParameterGroup (Maybe [Parameter])
+ Amazonka.Redshift.Lens: resetClusterParameterGroup_resetAllParameters :: Lens' ResetClusterParameterGroup (Maybe Bool)
+ Amazonka.Redshift.Lens: resizeClusterMessage_classic :: Lens' ResizeClusterMessage (Maybe Bool)
+ Amazonka.Redshift.Lens: resizeClusterMessage_clusterIdentifier :: Lens' ResizeClusterMessage Text
+ Amazonka.Redshift.Lens: resizeClusterMessage_clusterType :: Lens' ResizeClusterMessage (Maybe Text)
+ Amazonka.Redshift.Lens: resizeClusterMessage_nodeType :: Lens' ResizeClusterMessage (Maybe Text)
+ Amazonka.Redshift.Lens: resizeClusterMessage_numberOfNodes :: Lens' ResizeClusterMessage (Maybe Int)
+ Amazonka.Redshift.Lens: resizeClusterMessage_reservedNodeId :: Lens' ResizeClusterMessage (Maybe Text)
+ Amazonka.Redshift.Lens: resizeClusterMessage_targetReservedNodeOfferingId :: Lens' ResizeClusterMessage (Maybe Text)
+ Amazonka.Redshift.Lens: resizeClusterResponse_cluster :: Lens' ResizeClusterResponse (Maybe Cluster)
+ Amazonka.Redshift.Lens: resizeClusterResponse_httpStatus :: Lens' ResizeClusterResponse Int
+ Amazonka.Redshift.Lens: resizeCluster_classic :: Lens' ResizeCluster (Maybe Bool)
+ Amazonka.Redshift.Lens: resizeCluster_clusterIdentifier :: Lens' ResizeCluster Text
+ Amazonka.Redshift.Lens: resizeCluster_clusterType :: Lens' ResizeCluster (Maybe Text)
+ Amazonka.Redshift.Lens: resizeCluster_nodeType :: Lens' ResizeCluster (Maybe Text)
+ Amazonka.Redshift.Lens: resizeCluster_numberOfNodes :: Lens' ResizeCluster (Maybe Int)
+ Amazonka.Redshift.Lens: resizeCluster_reservedNodeId :: Lens' ResizeCluster (Maybe Text)
+ Amazonka.Redshift.Lens: resizeCluster_targetReservedNodeOfferingId :: Lens' ResizeCluster (Maybe Text)
+ Amazonka.Redshift.Lens: resizeInfo_allowCancelResize :: Lens' ResizeInfo (Maybe Bool)
+ Amazonka.Redshift.Lens: resizeInfo_resizeType :: Lens' ResizeInfo (Maybe Text)
+ Amazonka.Redshift.Lens: resizeProgressMessage_avgResizeRateInMegaBytesPerSecond :: Lens' ResizeProgressMessage (Maybe Double)
+ Amazonka.Redshift.Lens: resizeProgressMessage_dataTransferProgressPercent :: Lens' ResizeProgressMessage (Maybe Double)
+ Amazonka.Redshift.Lens: resizeProgressMessage_elapsedTimeInSeconds :: Lens' ResizeProgressMessage (Maybe Integer)
+ Amazonka.Redshift.Lens: resizeProgressMessage_estimatedTimeToCompletionInSeconds :: Lens' ResizeProgressMessage (Maybe Integer)
+ Amazonka.Redshift.Lens: resizeProgressMessage_importTablesCompleted :: Lens' ResizeProgressMessage (Maybe [Text])
+ Amazonka.Redshift.Lens: resizeProgressMessage_importTablesInProgress :: Lens' ResizeProgressMessage (Maybe [Text])
+ Amazonka.Redshift.Lens: resizeProgressMessage_importTablesNotStarted :: Lens' ResizeProgressMessage (Maybe [Text])
+ Amazonka.Redshift.Lens: resizeProgressMessage_message :: Lens' ResizeProgressMessage (Maybe Text)
+ Amazonka.Redshift.Lens: resizeProgressMessage_progressInMegaBytes :: Lens' ResizeProgressMessage (Maybe Integer)
+ Amazonka.Redshift.Lens: resizeProgressMessage_resizeType :: Lens' ResizeProgressMessage (Maybe Text)
+ Amazonka.Redshift.Lens: resizeProgressMessage_status :: Lens' ResizeProgressMessage (Maybe Text)
+ Amazonka.Redshift.Lens: resizeProgressMessage_targetClusterType :: Lens' ResizeProgressMessage (Maybe Text)
+ Amazonka.Redshift.Lens: resizeProgressMessage_targetEncryptionType :: Lens' ResizeProgressMessage (Maybe Text)
+ Amazonka.Redshift.Lens: resizeProgressMessage_targetNodeType :: Lens' ResizeProgressMessage (Maybe Text)
+ Amazonka.Redshift.Lens: resizeProgressMessage_targetNumberOfNodes :: Lens' ResizeProgressMessage (Maybe Int)
+ Amazonka.Redshift.Lens: resizeProgressMessage_totalResizeDataInMegaBytes :: Lens' ResizeProgressMessage (Maybe Integer)
+ Amazonka.Redshift.Lens: restoreFromClusterSnapshotResponse_cluster :: Lens' RestoreFromClusterSnapshotResponse (Maybe Cluster)
+ Amazonka.Redshift.Lens: restoreFromClusterSnapshotResponse_httpStatus :: Lens' RestoreFromClusterSnapshotResponse Int
+ Amazonka.Redshift.Lens: restoreFromClusterSnapshot_additionalInfo :: Lens' RestoreFromClusterSnapshot (Maybe Text)
+ Amazonka.Redshift.Lens: restoreFromClusterSnapshot_allowVersionUpgrade :: Lens' RestoreFromClusterSnapshot (Maybe Bool)
+ Amazonka.Redshift.Lens: restoreFromClusterSnapshot_aquaConfigurationStatus :: Lens' RestoreFromClusterSnapshot (Maybe AquaConfigurationStatus)
+ Amazonka.Redshift.Lens: restoreFromClusterSnapshot_automatedSnapshotRetentionPeriod :: Lens' RestoreFromClusterSnapshot (Maybe Int)
+ Amazonka.Redshift.Lens: restoreFromClusterSnapshot_availabilityZone :: Lens' RestoreFromClusterSnapshot (Maybe Text)
+ Amazonka.Redshift.Lens: restoreFromClusterSnapshot_availabilityZoneRelocation :: Lens' RestoreFromClusterSnapshot (Maybe Bool)
+ Amazonka.Redshift.Lens: restoreFromClusterSnapshot_clusterIdentifier :: Lens' RestoreFromClusterSnapshot Text
+ Amazonka.Redshift.Lens: restoreFromClusterSnapshot_clusterParameterGroupName :: Lens' RestoreFromClusterSnapshot (Maybe Text)
+ Amazonka.Redshift.Lens: restoreFromClusterSnapshot_clusterSecurityGroups :: Lens' RestoreFromClusterSnapshot (Maybe [Text])
+ Amazonka.Redshift.Lens: restoreFromClusterSnapshot_clusterSubnetGroupName :: Lens' RestoreFromClusterSnapshot (Maybe Text)
+ Amazonka.Redshift.Lens: restoreFromClusterSnapshot_defaultIamRoleArn :: Lens' RestoreFromClusterSnapshot (Maybe Text)
+ Amazonka.Redshift.Lens: restoreFromClusterSnapshot_elasticIp :: Lens' RestoreFromClusterSnapshot (Maybe Text)
+ Amazonka.Redshift.Lens: restoreFromClusterSnapshot_encrypted :: Lens' RestoreFromClusterSnapshot (Maybe Bool)
+ Amazonka.Redshift.Lens: restoreFromClusterSnapshot_enhancedVpcRouting :: Lens' RestoreFromClusterSnapshot (Maybe Bool)
+ Amazonka.Redshift.Lens: restoreFromClusterSnapshot_hsmClientCertificateIdentifier :: Lens' RestoreFromClusterSnapshot (Maybe Text)
+ Amazonka.Redshift.Lens: restoreFromClusterSnapshot_hsmConfigurationIdentifier :: Lens' RestoreFromClusterSnapshot (Maybe Text)
+ Amazonka.Redshift.Lens: restoreFromClusterSnapshot_iamRoles :: Lens' RestoreFromClusterSnapshot (Maybe [Text])
+ Amazonka.Redshift.Lens: restoreFromClusterSnapshot_kmsKeyId :: Lens' RestoreFromClusterSnapshot (Maybe Text)
+ Amazonka.Redshift.Lens: restoreFromClusterSnapshot_maintenanceTrackName :: Lens' RestoreFromClusterSnapshot (Maybe Text)
+ Amazonka.Redshift.Lens: restoreFromClusterSnapshot_manualSnapshotRetentionPeriod :: Lens' RestoreFromClusterSnapshot (Maybe Int)
+ Amazonka.Redshift.Lens: restoreFromClusterSnapshot_nodeType :: Lens' RestoreFromClusterSnapshot (Maybe Text)
+ Amazonka.Redshift.Lens: restoreFromClusterSnapshot_numberOfNodes :: Lens' RestoreFromClusterSnapshot (Maybe Int)
+ Amazonka.Redshift.Lens: restoreFromClusterSnapshot_ownerAccount :: Lens' RestoreFromClusterSnapshot (Maybe Text)
+ Amazonka.Redshift.Lens: restoreFromClusterSnapshot_port :: Lens' RestoreFromClusterSnapshot (Maybe Int)
+ Amazonka.Redshift.Lens: restoreFromClusterSnapshot_preferredMaintenanceWindow :: Lens' RestoreFromClusterSnapshot (Maybe Text)
+ Amazonka.Redshift.Lens: restoreFromClusterSnapshot_publiclyAccessible :: Lens' RestoreFromClusterSnapshot (Maybe Bool)
+ Amazonka.Redshift.Lens: restoreFromClusterSnapshot_reservedNodeId :: Lens' RestoreFromClusterSnapshot (Maybe Text)
+ Amazonka.Redshift.Lens: restoreFromClusterSnapshot_snapshotArn :: Lens' RestoreFromClusterSnapshot (Maybe Text)
+ Amazonka.Redshift.Lens: restoreFromClusterSnapshot_snapshotClusterIdentifier :: Lens' RestoreFromClusterSnapshot (Maybe Text)
+ Amazonka.Redshift.Lens: restoreFromClusterSnapshot_snapshotIdentifier :: Lens' RestoreFromClusterSnapshot (Maybe Text)
+ Amazonka.Redshift.Lens: restoreFromClusterSnapshot_snapshotScheduleIdentifier :: Lens' RestoreFromClusterSnapshot (Maybe Text)
+ Amazonka.Redshift.Lens: restoreFromClusterSnapshot_targetReservedNodeOfferingId :: Lens' RestoreFromClusterSnapshot (Maybe Text)
+ Amazonka.Redshift.Lens: restoreFromClusterSnapshot_vpcSecurityGroupIds :: Lens' RestoreFromClusterSnapshot (Maybe [Text])
+ Amazonka.Redshift.Lens: restoreStatus_currentRestoreRateInMegaBytesPerSecond :: Lens' RestoreStatus (Maybe Double)
+ Amazonka.Redshift.Lens: restoreStatus_elapsedTimeInSeconds :: Lens' RestoreStatus (Maybe Integer)
+ Amazonka.Redshift.Lens: restoreStatus_estimatedTimeToCompletionInSeconds :: Lens' RestoreStatus (Maybe Integer)
+ Amazonka.Redshift.Lens: restoreStatus_progressInMegaBytes :: Lens' RestoreStatus (Maybe Integer)
+ Amazonka.Redshift.Lens: restoreStatus_snapshotSizeInMegaBytes :: Lens' RestoreStatus (Maybe Integer)
+ Amazonka.Redshift.Lens: restoreStatus_status :: Lens' RestoreStatus (Maybe Text)
+ Amazonka.Redshift.Lens: restoreTableFromClusterSnapshotResponse_httpStatus :: Lens' RestoreTableFromClusterSnapshotResponse Int
+ Amazonka.Redshift.Lens: restoreTableFromClusterSnapshotResponse_tableRestoreStatus :: Lens' RestoreTableFromClusterSnapshotResponse (Maybe TableRestoreStatus)
+ Amazonka.Redshift.Lens: restoreTableFromClusterSnapshot_clusterIdentifier :: Lens' RestoreTableFromClusterSnapshot Text
+ Amazonka.Redshift.Lens: restoreTableFromClusterSnapshot_enableCaseSensitiveIdentifier :: Lens' RestoreTableFromClusterSnapshot (Maybe Bool)
+ Amazonka.Redshift.Lens: restoreTableFromClusterSnapshot_newTableName :: Lens' RestoreTableFromClusterSnapshot Text
+ Amazonka.Redshift.Lens: restoreTableFromClusterSnapshot_snapshotIdentifier :: Lens' RestoreTableFromClusterSnapshot Text
+ Amazonka.Redshift.Lens: restoreTableFromClusterSnapshot_sourceDatabaseName :: Lens' RestoreTableFromClusterSnapshot Text
+ Amazonka.Redshift.Lens: restoreTableFromClusterSnapshot_sourceSchemaName :: Lens' RestoreTableFromClusterSnapshot (Maybe Text)
+ Amazonka.Redshift.Lens: restoreTableFromClusterSnapshot_sourceTableName :: Lens' RestoreTableFromClusterSnapshot Text
+ Amazonka.Redshift.Lens: restoreTableFromClusterSnapshot_targetDatabaseName :: Lens' RestoreTableFromClusterSnapshot (Maybe Text)
+ Amazonka.Redshift.Lens: restoreTableFromClusterSnapshot_targetSchemaName :: Lens' RestoreTableFromClusterSnapshot (Maybe Text)
+ Amazonka.Redshift.Lens: resumeClusterMessage_clusterIdentifier :: Lens' ResumeClusterMessage Text
+ Amazonka.Redshift.Lens: resumeClusterResponse_cluster :: Lens' ResumeClusterResponse (Maybe Cluster)
+ Amazonka.Redshift.Lens: resumeClusterResponse_httpStatus :: Lens' ResumeClusterResponse Int
+ Amazonka.Redshift.Lens: resumeCluster_clusterIdentifier :: Lens' ResumeCluster Text
+ Amazonka.Redshift.Lens: revisionTarget_databaseRevision :: Lens' RevisionTarget (Maybe Text)
+ Amazonka.Redshift.Lens: revisionTarget_databaseRevisionReleaseDate :: Lens' RevisionTarget (Maybe UTCTime)
+ Amazonka.Redshift.Lens: revisionTarget_description :: Lens' RevisionTarget (Maybe Text)
+ Amazonka.Redshift.Lens: revokeClusterSecurityGroupIngressResponse_clusterSecurityGroup :: Lens' RevokeClusterSecurityGroupIngressResponse (Maybe ClusterSecurityGroup)
+ Amazonka.Redshift.Lens: revokeClusterSecurityGroupIngressResponse_httpStatus :: Lens' RevokeClusterSecurityGroupIngressResponse Int
+ Amazonka.Redshift.Lens: revokeClusterSecurityGroupIngress_cidrip :: Lens' RevokeClusterSecurityGroupIngress (Maybe Text)
+ Amazonka.Redshift.Lens: revokeClusterSecurityGroupIngress_clusterSecurityGroupName :: Lens' RevokeClusterSecurityGroupIngress Text
+ Amazonka.Redshift.Lens: revokeClusterSecurityGroupIngress_eC2SecurityGroupName :: Lens' RevokeClusterSecurityGroupIngress (Maybe Text)
+ Amazonka.Redshift.Lens: revokeClusterSecurityGroupIngress_eC2SecurityGroupOwnerId :: Lens' RevokeClusterSecurityGroupIngress (Maybe Text)
+ Amazonka.Redshift.Lens: revokeEndpointAccess_account :: Lens' RevokeEndpointAccess (Maybe Text)
+ Amazonka.Redshift.Lens: revokeEndpointAccess_clusterIdentifier :: Lens' RevokeEndpointAccess (Maybe Text)
+ Amazonka.Redshift.Lens: revokeEndpointAccess_force :: Lens' RevokeEndpointAccess (Maybe Bool)
+ Amazonka.Redshift.Lens: revokeEndpointAccess_vpcIds :: Lens' RevokeEndpointAccess (Maybe [Text])
+ Amazonka.Redshift.Lens: revokeSnapshotAccessResponse_httpStatus :: Lens' RevokeSnapshotAccessResponse Int
+ Amazonka.Redshift.Lens: revokeSnapshotAccessResponse_snapshot :: Lens' RevokeSnapshotAccessResponse (Maybe Snapshot)
+ Amazonka.Redshift.Lens: revokeSnapshotAccess_accountWithRestoreAccess :: Lens' RevokeSnapshotAccess Text
+ Amazonka.Redshift.Lens: revokeSnapshotAccess_snapshotArn :: Lens' RevokeSnapshotAccess (Maybe Text)
+ Amazonka.Redshift.Lens: revokeSnapshotAccess_snapshotClusterIdentifier :: Lens' RevokeSnapshotAccess (Maybe Text)
+ Amazonka.Redshift.Lens: revokeSnapshotAccess_snapshotIdentifier :: Lens' RevokeSnapshotAccess (Maybe Text)
+ Amazonka.Redshift.Lens: rotateEncryptionKeyResponse_cluster :: Lens' RotateEncryptionKeyResponse (Maybe Cluster)
+ Amazonka.Redshift.Lens: rotateEncryptionKeyResponse_httpStatus :: Lens' RotateEncryptionKeyResponse Int
+ Amazonka.Redshift.Lens: rotateEncryptionKey_clusterIdentifier :: Lens' RotateEncryptionKey Text
+ Amazonka.Redshift.Lens: scheduledActionFilter_name :: Lens' ScheduledActionFilter ScheduledActionFilterName
+ Amazonka.Redshift.Lens: scheduledActionFilter_values :: Lens' ScheduledActionFilter [Text]
+ Amazonka.Redshift.Lens: scheduledActionType_pauseCluster :: Lens' ScheduledActionType (Maybe PauseClusterMessage)
+ Amazonka.Redshift.Lens: scheduledActionType_resizeCluster :: Lens' ScheduledActionType (Maybe ResizeClusterMessage)
+ Amazonka.Redshift.Lens: scheduledActionType_resumeCluster :: Lens' ScheduledActionType (Maybe ResumeClusterMessage)
+ Amazonka.Redshift.Lens: scheduledAction_endTime :: Lens' ScheduledAction (Maybe UTCTime)
+ Amazonka.Redshift.Lens: scheduledAction_iamRole :: Lens' ScheduledAction (Maybe Text)
+ Amazonka.Redshift.Lens: scheduledAction_nextInvocations :: Lens' ScheduledAction (Maybe [UTCTime])
+ Amazonka.Redshift.Lens: scheduledAction_schedule :: Lens' ScheduledAction (Maybe Text)
+ Amazonka.Redshift.Lens: scheduledAction_scheduledActionDescription :: Lens' ScheduledAction (Maybe Text)
+ Amazonka.Redshift.Lens: scheduledAction_scheduledActionName :: Lens' ScheduledAction (Maybe Text)
+ Amazonka.Redshift.Lens: scheduledAction_startTime :: Lens' ScheduledAction (Maybe UTCTime)
+ Amazonka.Redshift.Lens: scheduledAction_state :: Lens' ScheduledAction (Maybe ScheduledActionState)
+ Amazonka.Redshift.Lens: scheduledAction_targetAction :: Lens' ScheduledAction (Maybe ScheduledActionType)
+ Amazonka.Redshift.Lens: snapshotCopyGrant_kmsKeyId :: Lens' SnapshotCopyGrant (Maybe Text)
+ Amazonka.Redshift.Lens: snapshotCopyGrant_snapshotCopyGrantName :: Lens' SnapshotCopyGrant (Maybe Text)
+ Amazonka.Redshift.Lens: snapshotCopyGrant_tags :: Lens' SnapshotCopyGrant (Maybe [Tag])
+ Amazonka.Redshift.Lens: snapshotErrorMessage_failureCode :: Lens' SnapshotErrorMessage (Maybe Text)
+ Amazonka.Redshift.Lens: snapshotErrorMessage_failureReason :: Lens' SnapshotErrorMessage (Maybe Text)
+ Amazonka.Redshift.Lens: snapshotErrorMessage_snapshotClusterIdentifier :: Lens' SnapshotErrorMessage (Maybe Text)
+ Amazonka.Redshift.Lens: snapshotErrorMessage_snapshotIdentifier :: Lens' SnapshotErrorMessage (Maybe Text)
+ Amazonka.Redshift.Lens: snapshotSchedule_associatedClusterCount :: Lens' SnapshotSchedule (Maybe Int)
+ Amazonka.Redshift.Lens: snapshotSchedule_associatedClusters :: Lens' SnapshotSchedule (Maybe [ClusterAssociatedToSchedule])
+ Amazonka.Redshift.Lens: snapshotSchedule_nextInvocations :: Lens' SnapshotSchedule (Maybe [UTCTime])
+ Amazonka.Redshift.Lens: snapshotSchedule_scheduleDefinitions :: Lens' SnapshotSchedule (Maybe [Text])
+ Amazonka.Redshift.Lens: snapshotSchedule_scheduleDescription :: Lens' SnapshotSchedule (Maybe Text)
+ Amazonka.Redshift.Lens: snapshotSchedule_scheduleIdentifier :: Lens' SnapshotSchedule (Maybe Text)
+ Amazonka.Redshift.Lens: snapshotSchedule_tags :: Lens' SnapshotSchedule (Maybe [Tag])
+ Amazonka.Redshift.Lens: snapshotSortingEntity_attribute :: Lens' SnapshotSortingEntity SnapshotAttributeToSortBy
+ Amazonka.Redshift.Lens: snapshotSortingEntity_sortOrder :: Lens' SnapshotSortingEntity (Maybe SortByOrder)
+ Amazonka.Redshift.Lens: snapshot_accountsWithRestoreAccess :: Lens' Snapshot (Maybe [AccountWithRestoreAccess])
+ Amazonka.Redshift.Lens: snapshot_actualIncrementalBackupSizeInMegaBytes :: Lens' Snapshot (Maybe Double)
+ Amazonka.Redshift.Lens: snapshot_availabilityZone :: Lens' Snapshot (Maybe Text)
+ Amazonka.Redshift.Lens: snapshot_backupProgressInMegaBytes :: Lens' Snapshot (Maybe Double)
+ Amazonka.Redshift.Lens: snapshot_clusterCreateTime :: Lens' Snapshot (Maybe UTCTime)
+ Amazonka.Redshift.Lens: snapshot_clusterIdentifier :: Lens' Snapshot (Maybe Text)
+ Amazonka.Redshift.Lens: snapshot_clusterVersion :: Lens' Snapshot (Maybe Text)
+ Amazonka.Redshift.Lens: snapshot_currentBackupRateInMegaBytesPerSecond :: Lens' Snapshot (Maybe Double)
+ Amazonka.Redshift.Lens: snapshot_dbName :: Lens' Snapshot (Maybe Text)
+ Amazonka.Redshift.Lens: snapshot_elapsedTimeInSeconds :: Lens' Snapshot (Maybe Integer)
+ Amazonka.Redshift.Lens: snapshot_encrypted :: Lens' Snapshot (Maybe Bool)
+ Amazonka.Redshift.Lens: snapshot_encryptedWithHSM :: Lens' Snapshot (Maybe Bool)
+ Amazonka.Redshift.Lens: snapshot_engineFullVersion :: Lens' Snapshot (Maybe Text)
+ Amazonka.Redshift.Lens: snapshot_enhancedVpcRouting :: Lens' Snapshot (Maybe Bool)
+ Amazonka.Redshift.Lens: snapshot_estimatedSecondsToCompletion :: Lens' Snapshot (Maybe Integer)
+ Amazonka.Redshift.Lens: snapshot_kmsKeyId :: Lens' Snapshot (Maybe Text)
+ Amazonka.Redshift.Lens: snapshot_maintenanceTrackName :: Lens' Snapshot (Maybe Text)
+ Amazonka.Redshift.Lens: snapshot_manualSnapshotRemainingDays :: Lens' Snapshot (Maybe Int)
+ Amazonka.Redshift.Lens: snapshot_manualSnapshotRetentionPeriod :: Lens' Snapshot (Maybe Int)
+ Amazonka.Redshift.Lens: snapshot_masterUsername :: Lens' Snapshot (Maybe Text)
+ Amazonka.Redshift.Lens: snapshot_nodeType :: Lens' Snapshot (Maybe Text)
+ Amazonka.Redshift.Lens: snapshot_numberOfNodes :: Lens' Snapshot (Maybe Int)
+ Amazonka.Redshift.Lens: snapshot_ownerAccount :: Lens' Snapshot (Maybe Text)
+ Amazonka.Redshift.Lens: snapshot_port :: Lens' Snapshot (Maybe Int)
+ Amazonka.Redshift.Lens: snapshot_restorableNodeTypes :: Lens' Snapshot (Maybe [Text])
+ Amazonka.Redshift.Lens: snapshot_snapshotCreateTime :: Lens' Snapshot (Maybe UTCTime)
+ Amazonka.Redshift.Lens: snapshot_snapshotIdentifier :: Lens' Snapshot (Maybe Text)
+ Amazonka.Redshift.Lens: snapshot_snapshotRetentionStartTime :: Lens' Snapshot (Maybe UTCTime)
+ Amazonka.Redshift.Lens: snapshot_snapshotType :: Lens' Snapshot (Maybe Text)
+ Amazonka.Redshift.Lens: snapshot_sourceRegion :: Lens' Snapshot (Maybe Text)
+ Amazonka.Redshift.Lens: snapshot_status :: Lens' Snapshot (Maybe Text)
+ Amazonka.Redshift.Lens: snapshot_tags :: Lens' Snapshot (Maybe [Tag])
+ Amazonka.Redshift.Lens: snapshot_totalBackupSizeInMegaBytes :: Lens' Snapshot (Maybe Double)
+ Amazonka.Redshift.Lens: snapshot_vpcId :: Lens' Snapshot (Maybe Text)
+ Amazonka.Redshift.Lens: subnet_subnetAvailabilityZone :: Lens' Subnet (Maybe AvailabilityZone)
+ Amazonka.Redshift.Lens: subnet_subnetIdentifier :: Lens' Subnet (Maybe Text)
+ Amazonka.Redshift.Lens: subnet_subnetStatus :: Lens' Subnet (Maybe Text)
+ Amazonka.Redshift.Lens: supportedOperation_operationName :: Lens' SupportedOperation (Maybe Text)
+ Amazonka.Redshift.Lens: supportedPlatform_name :: Lens' SupportedPlatform (Maybe Text)
+ Amazonka.Redshift.Lens: tableRestoreStatus_clusterIdentifier :: Lens' TableRestoreStatus (Maybe Text)
+ Amazonka.Redshift.Lens: tableRestoreStatus_message :: Lens' TableRestoreStatus (Maybe Text)
+ Amazonka.Redshift.Lens: tableRestoreStatus_newTableName :: Lens' TableRestoreStatus (Maybe Text)
+ Amazonka.Redshift.Lens: tableRestoreStatus_progressInMegaBytes :: Lens' TableRestoreStatus (Maybe Integer)
+ Amazonka.Redshift.Lens: tableRestoreStatus_requestTime :: Lens' TableRestoreStatus (Maybe UTCTime)
+ Amazonka.Redshift.Lens: tableRestoreStatus_snapshotIdentifier :: Lens' TableRestoreStatus (Maybe Text)
+ Amazonka.Redshift.Lens: tableRestoreStatus_sourceDatabaseName :: Lens' TableRestoreStatus (Maybe Text)
+ Amazonka.Redshift.Lens: tableRestoreStatus_sourceSchemaName :: Lens' TableRestoreStatus (Maybe Text)
+ Amazonka.Redshift.Lens: tableRestoreStatus_sourceTableName :: Lens' TableRestoreStatus (Maybe Text)
+ Amazonka.Redshift.Lens: tableRestoreStatus_status :: Lens' TableRestoreStatus (Maybe TableRestoreStatusType)
+ Amazonka.Redshift.Lens: tableRestoreStatus_tableRestoreRequestId :: Lens' TableRestoreStatus (Maybe Text)
+ Amazonka.Redshift.Lens: tableRestoreStatus_targetDatabaseName :: Lens' TableRestoreStatus (Maybe Text)
+ Amazonka.Redshift.Lens: tableRestoreStatus_targetSchemaName :: Lens' TableRestoreStatus (Maybe Text)
+ Amazonka.Redshift.Lens: tableRestoreStatus_totalDataInMegaBytes :: Lens' TableRestoreStatus (Maybe Integer)
+ Amazonka.Redshift.Lens: tag_key :: Lens' Tag (Maybe Text)
+ Amazonka.Redshift.Lens: tag_value :: Lens' Tag (Maybe Text)
+ Amazonka.Redshift.Lens: taggedResource_resourceName :: Lens' TaggedResource (Maybe Text)
+ Amazonka.Redshift.Lens: taggedResource_resourceType :: Lens' TaggedResource (Maybe Text)
+ Amazonka.Redshift.Lens: taggedResource_tag :: Lens' TaggedResource (Maybe Tag)
+ Amazonka.Redshift.Lens: updatePartnerStatus_accountId :: Lens' UpdatePartnerStatus Text
+ Amazonka.Redshift.Lens: updatePartnerStatus_clusterIdentifier :: Lens' UpdatePartnerStatus Text
+ Amazonka.Redshift.Lens: updatePartnerStatus_databaseName :: Lens' UpdatePartnerStatus Text
+ Amazonka.Redshift.Lens: updatePartnerStatus_partnerName :: Lens' UpdatePartnerStatus Text
+ Amazonka.Redshift.Lens: updatePartnerStatus_status :: Lens' UpdatePartnerStatus PartnerIntegrationStatus
+ Amazonka.Redshift.Lens: updatePartnerStatus_statusMessage :: Lens' UpdatePartnerStatus (Maybe Text)
+ Amazonka.Redshift.Lens: updateTarget_databaseVersion :: Lens' UpdateTarget (Maybe Text)
+ Amazonka.Redshift.Lens: updateTarget_maintenanceTrackName :: Lens' UpdateTarget (Maybe Text)
+ Amazonka.Redshift.Lens: updateTarget_supportedOperations :: Lens' UpdateTarget (Maybe [SupportedOperation])
+ Amazonka.Redshift.Lens: usageLimit_amount :: Lens' UsageLimit (Maybe Integer)
+ Amazonka.Redshift.Lens: usageLimit_breachAction :: Lens' UsageLimit (Maybe UsageLimitBreachAction)
+ Amazonka.Redshift.Lens: usageLimit_clusterIdentifier :: Lens' UsageLimit (Maybe Text)
+ Amazonka.Redshift.Lens: usageLimit_featureType :: Lens' UsageLimit (Maybe UsageLimitFeatureType)
+ Amazonka.Redshift.Lens: usageLimit_limitType :: Lens' UsageLimit (Maybe UsageLimitLimitType)
+ Amazonka.Redshift.Lens: usageLimit_period :: Lens' UsageLimit (Maybe UsageLimitPeriod)
+ Amazonka.Redshift.Lens: usageLimit_tags :: Lens' UsageLimit (Maybe [Tag])
+ Amazonka.Redshift.Lens: usageLimit_usageLimitId :: Lens' UsageLimit (Maybe Text)
+ Amazonka.Redshift.Lens: vpcEndpoint_networkInterfaces :: Lens' VpcEndpoint (Maybe [NetworkInterface])
+ Amazonka.Redshift.Lens: vpcEndpoint_vpcEndpointId :: Lens' VpcEndpoint (Maybe Text)
+ Amazonka.Redshift.Lens: vpcEndpoint_vpcId :: Lens' VpcEndpoint (Maybe Text)
+ Amazonka.Redshift.Lens: vpcSecurityGroupMembership_status :: Lens' VpcSecurityGroupMembership (Maybe Text)
+ Amazonka.Redshift.Lens: vpcSecurityGroupMembership_vpcSecurityGroupId :: Lens' VpcSecurityGroupMembership (Maybe Text)
+ Amazonka.Redshift.ModifyAquaConfiguration: ModifyAquaConfiguration' :: Maybe AquaConfigurationStatus -> Text -> ModifyAquaConfiguration
+ Amazonka.Redshift.ModifyAquaConfiguration: ModifyAquaConfigurationResponse' :: Maybe AquaConfiguration -> Int -> ModifyAquaConfigurationResponse
+ Amazonka.Redshift.ModifyAquaConfiguration: [$sel:aquaConfiguration:ModifyAquaConfigurationResponse'] :: ModifyAquaConfigurationResponse -> Maybe AquaConfiguration
+ Amazonka.Redshift.ModifyAquaConfiguration: [$sel:aquaConfigurationStatus:ModifyAquaConfiguration'] :: ModifyAquaConfiguration -> Maybe AquaConfigurationStatus
+ Amazonka.Redshift.ModifyAquaConfiguration: [$sel:clusterIdentifier:ModifyAquaConfiguration'] :: ModifyAquaConfiguration -> Text
+ Amazonka.Redshift.ModifyAquaConfiguration: [$sel:httpStatus:ModifyAquaConfigurationResponse'] :: ModifyAquaConfigurationResponse -> Int
+ Amazonka.Redshift.ModifyAquaConfiguration: data ModifyAquaConfiguration
+ Amazonka.Redshift.ModifyAquaConfiguration: data ModifyAquaConfigurationResponse
+ Amazonka.Redshift.ModifyAquaConfiguration: instance Amazonka.Data.Headers.ToHeaders Amazonka.Redshift.ModifyAquaConfiguration.ModifyAquaConfiguration
+ Amazonka.Redshift.ModifyAquaConfiguration: instance Amazonka.Data.Path.ToPath Amazonka.Redshift.ModifyAquaConfiguration.ModifyAquaConfiguration
+ Amazonka.Redshift.ModifyAquaConfiguration: instance Amazonka.Data.Query.ToQuery Amazonka.Redshift.ModifyAquaConfiguration.ModifyAquaConfiguration
+ Amazonka.Redshift.ModifyAquaConfiguration: instance Amazonka.Types.AWSRequest Amazonka.Redshift.ModifyAquaConfiguration.ModifyAquaConfiguration
+ Amazonka.Redshift.ModifyAquaConfiguration: instance Control.DeepSeq.NFData Amazonka.Redshift.ModifyAquaConfiguration.ModifyAquaConfiguration
+ Amazonka.Redshift.ModifyAquaConfiguration: instance Control.DeepSeq.NFData Amazonka.Redshift.ModifyAquaConfiguration.ModifyAquaConfigurationResponse
+ Amazonka.Redshift.ModifyAquaConfiguration: instance Data.Hashable.Class.Hashable Amazonka.Redshift.ModifyAquaConfiguration.ModifyAquaConfiguration
+ Amazonka.Redshift.ModifyAquaConfiguration: instance GHC.Classes.Eq Amazonka.Redshift.ModifyAquaConfiguration.ModifyAquaConfiguration
+ Amazonka.Redshift.ModifyAquaConfiguration: instance GHC.Classes.Eq Amazonka.Redshift.ModifyAquaConfiguration.ModifyAquaConfigurationResponse
+ Amazonka.Redshift.ModifyAquaConfiguration: instance GHC.Generics.Generic Amazonka.Redshift.ModifyAquaConfiguration.ModifyAquaConfiguration
+ Amazonka.Redshift.ModifyAquaConfiguration: instance GHC.Generics.Generic Amazonka.Redshift.ModifyAquaConfiguration.ModifyAquaConfigurationResponse
+ Amazonka.Redshift.ModifyAquaConfiguration: instance GHC.Read.Read Amazonka.Redshift.ModifyAquaConfiguration.ModifyAquaConfiguration
+ Amazonka.Redshift.ModifyAquaConfiguration: instance GHC.Read.Read Amazonka.Redshift.ModifyAquaConfiguration.ModifyAquaConfigurationResponse
+ Amazonka.Redshift.ModifyAquaConfiguration: instance GHC.Show.Show Amazonka.Redshift.ModifyAquaConfiguration.ModifyAquaConfiguration
+ Amazonka.Redshift.ModifyAquaConfiguration: instance GHC.Show.Show Amazonka.Redshift.ModifyAquaConfiguration.ModifyAquaConfigurationResponse
+ Amazonka.Redshift.ModifyAquaConfiguration: modifyAquaConfigurationResponse_aquaConfiguration :: Lens' ModifyAquaConfigurationResponse (Maybe AquaConfiguration)
+ Amazonka.Redshift.ModifyAquaConfiguration: modifyAquaConfigurationResponse_httpStatus :: Lens' ModifyAquaConfigurationResponse Int
+ Amazonka.Redshift.ModifyAquaConfiguration: modifyAquaConfiguration_aquaConfigurationStatus :: Lens' ModifyAquaConfiguration (Maybe AquaConfigurationStatus)
+ Amazonka.Redshift.ModifyAquaConfiguration: modifyAquaConfiguration_clusterIdentifier :: Lens' ModifyAquaConfiguration Text
+ Amazonka.Redshift.ModifyAquaConfiguration: newModifyAquaConfiguration :: Text -> ModifyAquaConfiguration
+ Amazonka.Redshift.ModifyAquaConfiguration: newModifyAquaConfigurationResponse :: Int -> ModifyAquaConfigurationResponse
+ Amazonka.Redshift.ModifyAuthenticationProfile: ModifyAuthenticationProfile' :: Text -> Text -> ModifyAuthenticationProfile
+ Amazonka.Redshift.ModifyAuthenticationProfile: ModifyAuthenticationProfileResponse' :: Maybe Text -> Maybe Text -> Int -> ModifyAuthenticationProfileResponse
+ Amazonka.Redshift.ModifyAuthenticationProfile: [$sel:authenticationProfileContent:ModifyAuthenticationProfile'] :: ModifyAuthenticationProfile -> Text
+ Amazonka.Redshift.ModifyAuthenticationProfile: [$sel:authenticationProfileContent:ModifyAuthenticationProfileResponse'] :: ModifyAuthenticationProfileResponse -> Maybe Text
+ Amazonka.Redshift.ModifyAuthenticationProfile: [$sel:authenticationProfileName:ModifyAuthenticationProfile'] :: ModifyAuthenticationProfile -> Text
+ Amazonka.Redshift.ModifyAuthenticationProfile: [$sel:authenticationProfileName:ModifyAuthenticationProfileResponse'] :: ModifyAuthenticationProfileResponse -> Maybe Text
+ Amazonka.Redshift.ModifyAuthenticationProfile: [$sel:httpStatus:ModifyAuthenticationProfileResponse'] :: ModifyAuthenticationProfileResponse -> Int
+ Amazonka.Redshift.ModifyAuthenticationProfile: data ModifyAuthenticationProfile
+ Amazonka.Redshift.ModifyAuthenticationProfile: data ModifyAuthenticationProfileResponse
+ Amazonka.Redshift.ModifyAuthenticationProfile: instance Amazonka.Data.Headers.ToHeaders Amazonka.Redshift.ModifyAuthenticationProfile.ModifyAuthenticationProfile
+ Amazonka.Redshift.ModifyAuthenticationProfile: instance Amazonka.Data.Path.ToPath Amazonka.Redshift.ModifyAuthenticationProfile.ModifyAuthenticationProfile
+ Amazonka.Redshift.ModifyAuthenticationProfile: instance Amazonka.Data.Query.ToQuery Amazonka.Redshift.ModifyAuthenticationProfile.ModifyAuthenticationProfile
+ Amazonka.Redshift.ModifyAuthenticationProfile: instance Amazonka.Types.AWSRequest Amazonka.Redshift.ModifyAuthenticationProfile.ModifyAuthenticationProfile
+ Amazonka.Redshift.ModifyAuthenticationProfile: instance Control.DeepSeq.NFData Amazonka.Redshift.ModifyAuthenticationProfile.ModifyAuthenticationProfile
+ Amazonka.Redshift.ModifyAuthenticationProfile: instance Control.DeepSeq.NFData Amazonka.Redshift.ModifyAuthenticationProfile.ModifyAuthenticationProfileResponse
+ Amazonka.Redshift.ModifyAuthenticationProfile: instance Data.Hashable.Class.Hashable Amazonka.Redshift.ModifyAuthenticationProfile.ModifyAuthenticationProfile
+ Amazonka.Redshift.ModifyAuthenticationProfile: instance GHC.Classes.Eq Amazonka.Redshift.ModifyAuthenticationProfile.ModifyAuthenticationProfile
+ Amazonka.Redshift.ModifyAuthenticationProfile: instance GHC.Classes.Eq Amazonka.Redshift.ModifyAuthenticationProfile.ModifyAuthenticationProfileResponse
+ Amazonka.Redshift.ModifyAuthenticationProfile: instance GHC.Generics.Generic Amazonka.Redshift.ModifyAuthenticationProfile.ModifyAuthenticationProfile
+ Amazonka.Redshift.ModifyAuthenticationProfile: instance GHC.Generics.Generic Amazonka.Redshift.ModifyAuthenticationProfile.ModifyAuthenticationProfileResponse
+ Amazonka.Redshift.ModifyAuthenticationProfile: instance GHC.Read.Read Amazonka.Redshift.ModifyAuthenticationProfile.ModifyAuthenticationProfile
+ Amazonka.Redshift.ModifyAuthenticationProfile: instance GHC.Read.Read Amazonka.Redshift.ModifyAuthenticationProfile.ModifyAuthenticationProfileResponse
+ Amazonka.Redshift.ModifyAuthenticationProfile: instance GHC.Show.Show Amazonka.Redshift.ModifyAuthenticationProfile.ModifyAuthenticationProfile
+ Amazonka.Redshift.ModifyAuthenticationProfile: instance GHC.Show.Show Amazonka.Redshift.ModifyAuthenticationProfile.ModifyAuthenticationProfileResponse
+ Amazonka.Redshift.ModifyAuthenticationProfile: modifyAuthenticationProfileResponse_authenticationProfileContent :: Lens' ModifyAuthenticationProfileResponse (Maybe Text)
+ Amazonka.Redshift.ModifyAuthenticationProfile: modifyAuthenticationProfileResponse_authenticationProfileName :: Lens' ModifyAuthenticationProfileResponse (Maybe Text)
+ Amazonka.Redshift.ModifyAuthenticationProfile: modifyAuthenticationProfileResponse_httpStatus :: Lens' ModifyAuthenticationProfileResponse Int
+ Amazonka.Redshift.ModifyAuthenticationProfile: modifyAuthenticationProfile_authenticationProfileContent :: Lens' ModifyAuthenticationProfile Text
+ Amazonka.Redshift.ModifyAuthenticationProfile: modifyAuthenticationProfile_authenticationProfileName :: Lens' ModifyAuthenticationProfile Text
+ Amazonka.Redshift.ModifyAuthenticationProfile: newModifyAuthenticationProfile :: Text -> Text -> ModifyAuthenticationProfile
+ Amazonka.Redshift.ModifyAuthenticationProfile: newModifyAuthenticationProfileResponse :: Int -> ModifyAuthenticationProfileResponse
+ Amazonka.Redshift.ModifyCluster: ModifyCluster' :: Maybe Bool -> Maybe Int -> Maybe Text -> Maybe Bool -> Maybe Text -> Maybe [Text] -> Maybe Text -> Maybe Text -> Maybe Text -> Maybe Bool -> Maybe Bool -> Maybe Text -> Maybe Text -> Maybe Text -> Maybe Text -> Maybe Int -> Maybe Text -> Maybe Text -> Maybe Text -> Maybe Int -> Maybe Int -> Maybe Text -> Maybe Bool -> Maybe [Text] -> Text -> ModifyCluster
+ Amazonka.Redshift.ModifyCluster: ModifyClusterResponse' :: Maybe Cluster -> Int -> ModifyClusterResponse
+ Amazonka.Redshift.ModifyCluster: [$sel:allowVersionUpgrade:ModifyCluster'] :: ModifyCluster -> Maybe Bool
+ Amazonka.Redshift.ModifyCluster: [$sel:automatedSnapshotRetentionPeriod:ModifyCluster'] :: ModifyCluster -> Maybe Int
+ Amazonka.Redshift.ModifyCluster: [$sel:availabilityZone:ModifyCluster'] :: ModifyCluster -> Maybe Text
+ Amazonka.Redshift.ModifyCluster: [$sel:availabilityZoneRelocation:ModifyCluster'] :: ModifyCluster -> Maybe Bool
+ Amazonka.Redshift.ModifyCluster: [$sel:cluster:ModifyClusterResponse'] :: ModifyClusterResponse -> Maybe Cluster
+ Amazonka.Redshift.ModifyCluster: [$sel:clusterIdentifier:ModifyCluster'] :: ModifyCluster -> Text
+ Amazonka.Redshift.ModifyCluster: [$sel:clusterParameterGroupName:ModifyCluster'] :: ModifyCluster -> Maybe Text
+ Amazonka.Redshift.ModifyCluster: [$sel:clusterSecurityGroups:ModifyCluster'] :: ModifyCluster -> Maybe [Text]
+ Amazonka.Redshift.ModifyCluster: [$sel:clusterType:ModifyCluster'] :: ModifyCluster -> Maybe Text
+ Amazonka.Redshift.ModifyCluster: [$sel:clusterVersion:ModifyCluster'] :: ModifyCluster -> Maybe Text
+ Amazonka.Redshift.ModifyCluster: [$sel:elasticIp:ModifyCluster'] :: ModifyCluster -> Maybe Text
+ Amazonka.Redshift.ModifyCluster: [$sel:encrypted:ModifyCluster'] :: ModifyCluster -> Maybe Bool
+ Amazonka.Redshift.ModifyCluster: [$sel:enhancedVpcRouting:ModifyCluster'] :: ModifyCluster -> Maybe Bool
+ Amazonka.Redshift.ModifyCluster: [$sel:hsmClientCertificateIdentifier:ModifyCluster'] :: ModifyCluster -> Maybe Text
+ Amazonka.Redshift.ModifyCluster: [$sel:hsmConfigurationIdentifier:ModifyCluster'] :: ModifyCluster -> Maybe Text
+ Amazonka.Redshift.ModifyCluster: [$sel:httpStatus:ModifyClusterResponse'] :: ModifyClusterResponse -> Int
+ Amazonka.Redshift.ModifyCluster: [$sel:kmsKeyId:ModifyCluster'] :: ModifyCluster -> Maybe Text
+ Amazonka.Redshift.ModifyCluster: [$sel:maintenanceTrackName:ModifyCluster'] :: ModifyCluster -> Maybe Text
+ Amazonka.Redshift.ModifyCluster: [$sel:manualSnapshotRetentionPeriod:ModifyCluster'] :: ModifyCluster -> Maybe Int
+ Amazonka.Redshift.ModifyCluster: [$sel:masterUserPassword:ModifyCluster'] :: ModifyCluster -> Maybe Text
+ Amazonka.Redshift.ModifyCluster: [$sel:newClusterIdentifier':ModifyCluster'] :: ModifyCluster -> Maybe Text
+ Amazonka.Redshift.ModifyCluster: [$sel:nodeType:ModifyCluster'] :: ModifyCluster -> Maybe Text
+ Amazonka.Redshift.ModifyCluster: [$sel:numberOfNodes:ModifyCluster'] :: ModifyCluster -> Maybe Int
+ Amazonka.Redshift.ModifyCluster: [$sel:port:ModifyCluster'] :: ModifyCluster -> Maybe Int
+ Amazonka.Redshift.ModifyCluster: [$sel:preferredMaintenanceWindow:ModifyCluster'] :: ModifyCluster -> Maybe Text
+ Amazonka.Redshift.ModifyCluster: [$sel:publiclyAccessible:ModifyCluster'] :: ModifyCluster -> Maybe Bool
+ Amazonka.Redshift.ModifyCluster: [$sel:vpcSecurityGroupIds:ModifyCluster'] :: ModifyCluster -> Maybe [Text]
+ Amazonka.Redshift.ModifyCluster: data ModifyCluster
+ Amazonka.Redshift.ModifyCluster: data ModifyClusterResponse
+ Amazonka.Redshift.ModifyCluster: instance Amazonka.Data.Headers.ToHeaders Amazonka.Redshift.ModifyCluster.ModifyCluster
+ Amazonka.Redshift.ModifyCluster: instance Amazonka.Data.Path.ToPath Amazonka.Redshift.ModifyCluster.ModifyCluster
+ Amazonka.Redshift.ModifyCluster: instance Amazonka.Data.Query.ToQuery Amazonka.Redshift.ModifyCluster.ModifyCluster
+ Amazonka.Redshift.ModifyCluster: instance Amazonka.Types.AWSRequest Amazonka.Redshift.ModifyCluster.ModifyCluster
+ Amazonka.Redshift.ModifyCluster: instance Control.DeepSeq.NFData Amazonka.Redshift.ModifyCluster.ModifyCluster
+ Amazonka.Redshift.ModifyCluster: instance Control.DeepSeq.NFData Amazonka.Redshift.ModifyCluster.ModifyClusterResponse
+ Amazonka.Redshift.ModifyCluster: instance Data.Hashable.Class.Hashable Amazonka.Redshift.ModifyCluster.ModifyCluster
+ Amazonka.Redshift.ModifyCluster: instance GHC.Classes.Eq Amazonka.Redshift.ModifyCluster.ModifyCluster
+ Amazonka.Redshift.ModifyCluster: instance GHC.Classes.Eq Amazonka.Redshift.ModifyCluster.ModifyClusterResponse
+ Amazonka.Redshift.ModifyCluster: instance GHC.Generics.Generic Amazonka.Redshift.ModifyCluster.ModifyCluster
+ Amazonka.Redshift.ModifyCluster: instance GHC.Generics.Generic Amazonka.Redshift.ModifyCluster.ModifyClusterResponse
+ Amazonka.Redshift.ModifyCluster: instance GHC.Read.Read Amazonka.Redshift.ModifyCluster.ModifyCluster
+ Amazonka.Redshift.ModifyCluster: instance GHC.Read.Read Amazonka.Redshift.ModifyCluster.ModifyClusterResponse
+ Amazonka.Redshift.ModifyCluster: instance GHC.Show.Show Amazonka.Redshift.ModifyCluster.ModifyCluster
+ Amazonka.Redshift.ModifyCluster: instance GHC.Show.Show Amazonka.Redshift.ModifyCluster.ModifyClusterResponse
+ Amazonka.Redshift.ModifyCluster: modifyClusterResponse_cluster :: Lens' ModifyClusterResponse (Maybe Cluster)
+ Amazonka.Redshift.ModifyCluster: modifyClusterResponse_httpStatus :: Lens' ModifyClusterResponse Int
+ Amazonka.Redshift.ModifyCluster: modifyCluster_allowVersionUpgrade :: Lens' ModifyCluster (Maybe Bool)
+ Amazonka.Redshift.ModifyCluster: modifyCluster_automatedSnapshotRetentionPeriod :: Lens' ModifyCluster (Maybe Int)
+ Amazonka.Redshift.ModifyCluster: modifyCluster_availabilityZone :: Lens' ModifyCluster (Maybe Text)
+ Amazonka.Redshift.ModifyCluster: modifyCluster_availabilityZoneRelocation :: Lens' ModifyCluster (Maybe Bool)
+ Amazonka.Redshift.ModifyCluster: modifyCluster_clusterIdentifier :: Lens' ModifyCluster Text
+ Amazonka.Redshift.ModifyCluster: modifyCluster_clusterParameterGroupName :: Lens' ModifyCluster (Maybe Text)
+ Amazonka.Redshift.ModifyCluster: modifyCluster_clusterSecurityGroups :: Lens' ModifyCluster (Maybe [Text])
+ Amazonka.Redshift.ModifyCluster: modifyCluster_clusterType :: Lens' ModifyCluster (Maybe Text)
+ Amazonka.Redshift.ModifyCluster: modifyCluster_clusterVersion :: Lens' ModifyCluster (Maybe Text)
+ Amazonka.Redshift.ModifyCluster: modifyCluster_elasticIp :: Lens' ModifyCluster (Maybe Text)
+ Amazonka.Redshift.ModifyCluster: modifyCluster_encrypted :: Lens' ModifyCluster (Maybe Bool)
+ Amazonka.Redshift.ModifyCluster: modifyCluster_enhancedVpcRouting :: Lens' ModifyCluster (Maybe Bool)
+ Amazonka.Redshift.ModifyCluster: modifyCluster_hsmClientCertificateIdentifier :: Lens' ModifyCluster (Maybe Text)
+ Amazonka.Redshift.ModifyCluster: modifyCluster_hsmConfigurationIdentifier :: Lens' ModifyCluster (Maybe Text)
+ Amazonka.Redshift.ModifyCluster: modifyCluster_kmsKeyId :: Lens' ModifyCluster (Maybe Text)
+ Amazonka.Redshift.ModifyCluster: modifyCluster_maintenanceTrackName :: Lens' ModifyCluster (Maybe Text)
+ Amazonka.Redshift.ModifyCluster: modifyCluster_manualSnapshotRetentionPeriod :: Lens' ModifyCluster (Maybe Int)
+ Amazonka.Redshift.ModifyCluster: modifyCluster_masterUserPassword :: Lens' ModifyCluster (Maybe Text)
+ Amazonka.Redshift.ModifyCluster: modifyCluster_newClusterIdentifier :: Lens' ModifyCluster (Maybe Text)
+ Amazonka.Redshift.ModifyCluster: modifyCluster_nodeType :: Lens' ModifyCluster (Maybe Text)
+ Amazonka.Redshift.ModifyCluster: modifyCluster_numberOfNodes :: Lens' ModifyCluster (Maybe Int)
+ Amazonka.Redshift.ModifyCluster: modifyCluster_port :: Lens' ModifyCluster (Maybe Int)
+ Amazonka.Redshift.ModifyCluster: modifyCluster_preferredMaintenanceWindow :: Lens' ModifyCluster (Maybe Text)
+ Amazonka.Redshift.ModifyCluster: modifyCluster_publiclyAccessible :: Lens' ModifyCluster (Maybe Bool)
+ Amazonka.Redshift.ModifyCluster: modifyCluster_vpcSecurityGroupIds :: Lens' ModifyCluster (Maybe [Text])
+ Amazonka.Redshift.ModifyCluster: newModifyCluster :: Text -> ModifyCluster
+ Amazonka.Redshift.ModifyCluster: newModifyClusterResponse :: Int -> ModifyClusterResponse
+ Amazonka.Redshift.ModifyClusterDbRevision: ModifyClusterDbRevision' :: Text -> Text -> ModifyClusterDbRevision
+ Amazonka.Redshift.ModifyClusterDbRevision: ModifyClusterDbRevisionResponse' :: Maybe Cluster -> Int -> ModifyClusterDbRevisionResponse
+ Amazonka.Redshift.ModifyClusterDbRevision: [$sel:cluster:ModifyClusterDbRevisionResponse'] :: ModifyClusterDbRevisionResponse -> Maybe Cluster
+ Amazonka.Redshift.ModifyClusterDbRevision: [$sel:clusterIdentifier:ModifyClusterDbRevision'] :: ModifyClusterDbRevision -> Text
+ Amazonka.Redshift.ModifyClusterDbRevision: [$sel:httpStatus:ModifyClusterDbRevisionResponse'] :: ModifyClusterDbRevisionResponse -> Int
+ Amazonka.Redshift.ModifyClusterDbRevision: [$sel:revisionTarget:ModifyClusterDbRevision'] :: ModifyClusterDbRevision -> Text
+ Amazonka.Redshift.ModifyClusterDbRevision: data ModifyClusterDbRevision
+ Amazonka.Redshift.ModifyClusterDbRevision: data ModifyClusterDbRevisionResponse
+ Amazonka.Redshift.ModifyClusterDbRevision: instance Amazonka.Data.Headers.ToHeaders Amazonka.Redshift.ModifyClusterDbRevision.ModifyClusterDbRevision
+ Amazonka.Redshift.ModifyClusterDbRevision: instance Amazonka.Data.Path.ToPath Amazonka.Redshift.ModifyClusterDbRevision.ModifyClusterDbRevision
+ Amazonka.Redshift.ModifyClusterDbRevision: instance Amazonka.Data.Query.ToQuery Amazonka.Redshift.ModifyClusterDbRevision.ModifyClusterDbRevision
+ Amazonka.Redshift.ModifyClusterDbRevision: instance Amazonka.Types.AWSRequest Amazonka.Redshift.ModifyClusterDbRevision.ModifyClusterDbRevision
+ Amazonka.Redshift.ModifyClusterDbRevision: instance Control.DeepSeq.NFData Amazonka.Redshift.ModifyClusterDbRevision.ModifyClusterDbRevision
+ Amazonka.Redshift.ModifyClusterDbRevision: instance Control.DeepSeq.NFData Amazonka.Redshift.ModifyClusterDbRevision.ModifyClusterDbRevisionResponse
+ Amazonka.Redshift.ModifyClusterDbRevision: instance Data.Hashable.Class.Hashable Amazonka.Redshift.ModifyClusterDbRevision.ModifyClusterDbRevision
+ Amazonka.Redshift.ModifyClusterDbRevision: instance GHC.Classes.Eq Amazonka.Redshift.ModifyClusterDbRevision.ModifyClusterDbRevision
+ Amazonka.Redshift.ModifyClusterDbRevision: instance GHC.Classes.Eq Amazonka.Redshift.ModifyClusterDbRevision.ModifyClusterDbRevisionResponse
+ Amazonka.Redshift.ModifyClusterDbRevision: instance GHC.Generics.Generic Amazonka.Redshift.ModifyClusterDbRevision.ModifyClusterDbRevision
+ Amazonka.Redshift.ModifyClusterDbRevision: instance GHC.Generics.Generic Amazonka.Redshift.ModifyClusterDbRevision.ModifyClusterDbRevisionResponse
+ Amazonka.Redshift.ModifyClusterDbRevision: instance GHC.Read.Read Amazonka.Redshift.ModifyClusterDbRevision.ModifyClusterDbRevision
+ Amazonka.Redshift.ModifyClusterDbRevision: instance GHC.Read.Read Amazonka.Redshift.ModifyClusterDbRevision.ModifyClusterDbRevisionResponse
+ Amazonka.Redshift.ModifyClusterDbRevision: instance GHC.Show.Show Amazonka.Redshift.ModifyClusterDbRevision.ModifyClusterDbRevision
+ Amazonka.Redshift.ModifyClusterDbRevision: instance GHC.Show.Show Amazonka.Redshift.ModifyClusterDbRevision.ModifyClusterDbRevisionResponse
+ Amazonka.Redshift.ModifyClusterDbRevision: modifyClusterDbRevisionResponse_cluster :: Lens' ModifyClusterDbRevisionResponse (Maybe Cluster)
+ Amazonka.Redshift.ModifyClusterDbRevision: modifyClusterDbRevisionResponse_httpStatus :: Lens' ModifyClusterDbRevisionResponse Int
+ Amazonka.Redshift.ModifyClusterDbRevision: modifyClusterDbRevision_clusterIdentifier :: Lens' ModifyClusterDbRevision Text
+ Amazonka.Redshift.ModifyClusterDbRevision: modifyClusterDbRevision_revisionTarget :: Lens' ModifyClusterDbRevision Text
+ Amazonka.Redshift.ModifyClusterDbRevision: newModifyClusterDbRevision :: Text -> Text -> ModifyClusterDbRevision
+ Amazonka.Redshift.ModifyClusterDbRevision: newModifyClusterDbRevisionResponse :: Int -> ModifyClusterDbRevisionResponse
+ Amazonka.Redshift.ModifyClusterIamRoles: ModifyClusterIamRoles' :: Maybe [Text] -> Maybe Text -> Maybe [Text] -> Text -> ModifyClusterIamRoles
+ Amazonka.Redshift.ModifyClusterIamRoles: ModifyClusterIamRolesResponse' :: Maybe Cluster -> Int -> ModifyClusterIamRolesResponse
+ Amazonka.Redshift.ModifyClusterIamRoles: [$sel:addIamRoles:ModifyClusterIamRoles'] :: ModifyClusterIamRoles -> Maybe [Text]
+ Amazonka.Redshift.ModifyClusterIamRoles: [$sel:cluster:ModifyClusterIamRolesResponse'] :: ModifyClusterIamRolesResponse -> Maybe Cluster
+ Amazonka.Redshift.ModifyClusterIamRoles: [$sel:clusterIdentifier:ModifyClusterIamRoles'] :: ModifyClusterIamRoles -> Text
+ Amazonka.Redshift.ModifyClusterIamRoles: [$sel:defaultIamRoleArn:ModifyClusterIamRoles'] :: ModifyClusterIamRoles -> Maybe Text
+ Amazonka.Redshift.ModifyClusterIamRoles: [$sel:httpStatus:ModifyClusterIamRolesResponse'] :: ModifyClusterIamRolesResponse -> Int
+ Amazonka.Redshift.ModifyClusterIamRoles: [$sel:removeIamRoles:ModifyClusterIamRoles'] :: ModifyClusterIamRoles -> Maybe [Text]
+ Amazonka.Redshift.ModifyClusterIamRoles: data ModifyClusterIamRoles
+ Amazonka.Redshift.ModifyClusterIamRoles: data ModifyClusterIamRolesResponse
+ Amazonka.Redshift.ModifyClusterIamRoles: instance Amazonka.Data.Headers.ToHeaders Amazonka.Redshift.ModifyClusterIamRoles.ModifyClusterIamRoles
+ Amazonka.Redshift.ModifyClusterIamRoles: instance Amazonka.Data.Path.ToPath Amazonka.Redshift.ModifyClusterIamRoles.ModifyClusterIamRoles
+ Amazonka.Redshift.ModifyClusterIamRoles: instance Amazonka.Data.Query.ToQuery Amazonka.Redshift.ModifyClusterIamRoles.ModifyClusterIamRoles
+ Amazonka.Redshift.ModifyClusterIamRoles: instance Amazonka.Types.AWSRequest Amazonka.Redshift.ModifyClusterIamRoles.ModifyClusterIamRoles
+ Amazonka.Redshift.ModifyClusterIamRoles: instance Control.DeepSeq.NFData Amazonka.Redshift.ModifyClusterIamRoles.ModifyClusterIamRoles
+ Amazonka.Redshift.ModifyClusterIamRoles: instance Control.DeepSeq.NFData Amazonka.Redshift.ModifyClusterIamRoles.ModifyClusterIamRolesResponse
+ Amazonka.Redshift.ModifyClusterIamRoles: instance Data.Hashable.Class.Hashable Amazonka.Redshift.ModifyClusterIamRoles.ModifyClusterIamRoles
+ Amazonka.Redshift.ModifyClusterIamRoles: instance GHC.Classes.Eq Amazonka.Redshift.ModifyClusterIamRoles.ModifyClusterIamRoles
+ Amazonka.Redshift.ModifyClusterIamRoles: instance GHC.Classes.Eq Amazonka.Redshift.ModifyClusterIamRoles.ModifyClusterIamRolesResponse
+ Amazonka.Redshift.ModifyClusterIamRoles: instance GHC.Generics.Generic Amazonka.Redshift.ModifyClusterIamRoles.ModifyClusterIamRoles
+ Amazonka.Redshift.ModifyClusterIamRoles: instance GHC.Generics.Generic Amazonka.Redshift.ModifyClusterIamRoles.ModifyClusterIamRolesResponse
+ Amazonka.Redshift.ModifyClusterIamRoles: instance GHC.Read.Read Amazonka.Redshift.ModifyClusterIamRoles.ModifyClusterIamRoles
+ Amazonka.Redshift.ModifyClusterIamRoles: instance GHC.Read.Read Amazonka.Redshift.ModifyClusterIamRoles.ModifyClusterIamRolesResponse
+ Amazonka.Redshift.ModifyClusterIamRoles: instance GHC.Show.Show Amazonka.Redshift.ModifyClusterIamRoles.ModifyClusterIamRoles
+ Amazonka.Redshift.ModifyClusterIamRoles: instance GHC.Show.Show Amazonka.Redshift.ModifyClusterIamRoles.ModifyClusterIamRolesResponse
+ Amazonka.Redshift.ModifyClusterIamRoles: modifyClusterIamRolesResponse_cluster :: Lens' ModifyClusterIamRolesResponse (Maybe Cluster)
+ Amazonka.Redshift.ModifyClusterIamRoles: modifyClusterIamRolesResponse_httpStatus :: Lens' ModifyClusterIamRolesResponse Int
+ Amazonka.Redshift.ModifyClusterIamRoles: modifyClusterIamRoles_addIamRoles :: Lens' ModifyClusterIamRoles (Maybe [Text])
+ Amazonka.Redshift.ModifyClusterIamRoles: modifyClusterIamRoles_clusterIdentifier :: Lens' ModifyClusterIamRoles Text
+ Amazonka.Redshift.ModifyClusterIamRoles: modifyClusterIamRoles_defaultIamRoleArn :: Lens' ModifyClusterIamRoles (Maybe Text)
+ Amazonka.Redshift.ModifyClusterIamRoles: modifyClusterIamRoles_removeIamRoles :: Lens' ModifyClusterIamRoles (Maybe [Text])
+ Amazonka.Redshift.ModifyClusterIamRoles: newModifyClusterIamRoles :: Text -> ModifyClusterIamRoles
+ Amazonka.Redshift.ModifyClusterIamRoles: newModifyClusterIamRolesResponse :: Int -> ModifyClusterIamRolesResponse
+ Amazonka.Redshift.ModifyClusterMaintenance: ModifyClusterMaintenance' :: Maybe Bool -> Maybe Int -> Maybe ISO8601 -> Maybe Text -> Maybe ISO8601 -> Text -> ModifyClusterMaintenance
+ Amazonka.Redshift.ModifyClusterMaintenance: ModifyClusterMaintenanceResponse' :: Maybe Cluster -> Int -> ModifyClusterMaintenanceResponse
+ Amazonka.Redshift.ModifyClusterMaintenance: [$sel:cluster:ModifyClusterMaintenanceResponse'] :: ModifyClusterMaintenanceResponse -> Maybe Cluster
+ Amazonka.Redshift.ModifyClusterMaintenance: [$sel:clusterIdentifier:ModifyClusterMaintenance'] :: ModifyClusterMaintenance -> Text
+ Amazonka.Redshift.ModifyClusterMaintenance: [$sel:deferMaintenance:ModifyClusterMaintenance'] :: ModifyClusterMaintenance -> Maybe Bool
+ Amazonka.Redshift.ModifyClusterMaintenance: [$sel:deferMaintenanceDuration:ModifyClusterMaintenance'] :: ModifyClusterMaintenance -> Maybe Int
+ Amazonka.Redshift.ModifyClusterMaintenance: [$sel:deferMaintenanceEndTime:ModifyClusterMaintenance'] :: ModifyClusterMaintenance -> Maybe ISO8601
+ Amazonka.Redshift.ModifyClusterMaintenance: [$sel:deferMaintenanceIdentifier:ModifyClusterMaintenance'] :: ModifyClusterMaintenance -> Maybe Text
+ Amazonka.Redshift.ModifyClusterMaintenance: [$sel:deferMaintenanceStartTime:ModifyClusterMaintenance'] :: ModifyClusterMaintenance -> Maybe ISO8601
+ Amazonka.Redshift.ModifyClusterMaintenance: [$sel:httpStatus:ModifyClusterMaintenanceResponse'] :: ModifyClusterMaintenanceResponse -> Int
+ Amazonka.Redshift.ModifyClusterMaintenance: data ModifyClusterMaintenance
+ Amazonka.Redshift.ModifyClusterMaintenance: data ModifyClusterMaintenanceResponse
+ Amazonka.Redshift.ModifyClusterMaintenance: instance Amazonka.Data.Headers.ToHeaders Amazonka.Redshift.ModifyClusterMaintenance.ModifyClusterMaintenance
+ Amazonka.Redshift.ModifyClusterMaintenance: instance Amazonka.Data.Path.ToPath Amazonka.Redshift.ModifyClusterMaintenance.ModifyClusterMaintenance
+ Amazonka.Redshift.ModifyClusterMaintenance: instance Amazonka.Data.Query.ToQuery Amazonka.Redshift.ModifyClusterMaintenance.ModifyClusterMaintenance
+ Amazonka.Redshift.ModifyClusterMaintenance: instance Amazonka.Types.AWSRequest Amazonka.Redshift.ModifyClusterMaintenance.ModifyClusterMaintenance
+ Amazonka.Redshift.ModifyClusterMaintenance: instance Control.DeepSeq.NFData Amazonka.Redshift.ModifyClusterMaintenance.ModifyClusterMaintenance
+ Amazonka.Redshift.ModifyClusterMaintenance: instance Control.DeepSeq.NFData Amazonka.Redshift.ModifyClusterMaintenance.ModifyClusterMaintenanceResponse
+ Amazonka.Redshift.ModifyClusterMaintenance: instance Data.Hashable.Class.Hashable Amazonka.Redshift.ModifyClusterMaintenance.ModifyClusterMaintenance
+ Amazonka.Redshift.ModifyClusterMaintenance: instance GHC.Classes.Eq Amazonka.Redshift.ModifyClusterMaintenance.ModifyClusterMaintenance
+ Amazonka.Redshift.ModifyClusterMaintenance: instance GHC.Classes.Eq Amazonka.Redshift.ModifyClusterMaintenance.ModifyClusterMaintenanceResponse
+ Amazonka.Redshift.ModifyClusterMaintenance: instance GHC.Generics.Generic Amazonka.Redshift.ModifyClusterMaintenance.ModifyClusterMaintenance
+ Amazonka.Redshift.ModifyClusterMaintenance: instance GHC.Generics.Generic Amazonka.Redshift.ModifyClusterMaintenance.ModifyClusterMaintenanceResponse
+ Amazonka.Redshift.ModifyClusterMaintenance: instance GHC.Read.Read Amazonka.Redshift.ModifyClusterMaintenance.ModifyClusterMaintenance
+ Amazonka.Redshift.ModifyClusterMaintenance: instance GHC.Read.Read Amazonka.Redshift.ModifyClusterMaintenance.ModifyClusterMaintenanceResponse
+ Amazonka.Redshift.ModifyClusterMaintenance: instance GHC.Show.Show Amazonka.Redshift.ModifyClusterMaintenance.ModifyClusterMaintenance
+ Amazonka.Redshift.ModifyClusterMaintenance: instance GHC.Show.Show Amazonka.Redshift.ModifyClusterMaintenance.ModifyClusterMaintenanceResponse
+ Amazonka.Redshift.ModifyClusterMaintenance: modifyClusterMaintenanceResponse_cluster :: Lens' ModifyClusterMaintenanceResponse (Maybe Cluster)
+ Amazonka.Redshift.ModifyClusterMaintenance: modifyClusterMaintenanceResponse_httpStatus :: Lens' ModifyClusterMaintenanceResponse Int
+ Amazonka.Redshift.ModifyClusterMaintenance: modifyClusterMaintenance_clusterIdentifier :: Lens' ModifyClusterMaintenance Text
+ Amazonka.Redshift.ModifyClusterMaintenance: modifyClusterMaintenance_deferMaintenance :: Lens' ModifyClusterMaintenance (Maybe Bool)
+ Amazonka.Redshift.ModifyClusterMaintenance: modifyClusterMaintenance_deferMaintenanceDuration :: Lens' ModifyClusterMaintenance (Maybe Int)
+ Amazonka.Redshift.ModifyClusterMaintenance: modifyClusterMaintenance_deferMaintenanceEndTime :: Lens' ModifyClusterMaintenance (Maybe UTCTime)
+ Amazonka.Redshift.ModifyClusterMaintenance: modifyClusterMaintenance_deferMaintenanceIdentifier :: Lens' ModifyClusterMaintenance (Maybe Text)
+ Amazonka.Redshift.ModifyClusterMaintenance: modifyClusterMaintenance_deferMaintenanceStartTime :: Lens' ModifyClusterMaintenance (Maybe UTCTime)
+ Amazonka.Redshift.ModifyClusterMaintenance: newModifyClusterMaintenance :: Text -> ModifyClusterMaintenance
+ Amazonka.Redshift.ModifyClusterMaintenance: newModifyClusterMaintenanceResponse :: Int -> ModifyClusterMaintenanceResponse
+ Amazonka.Redshift.ModifyClusterParameterGroup: ClusterParameterGroupNameMessage' :: Maybe Text -> Maybe Text -> ClusterParameterGroupNameMessage
+ Amazonka.Redshift.ModifyClusterParameterGroup: ModifyClusterParameterGroup' :: Text -> [Parameter] -> ModifyClusterParameterGroup
+ Amazonka.Redshift.ModifyClusterParameterGroup: [$sel:parameterGroupName:ClusterParameterGroupNameMessage'] :: ClusterParameterGroupNameMessage -> Maybe Text
+ Amazonka.Redshift.ModifyClusterParameterGroup: [$sel:parameterGroupName:ModifyClusterParameterGroup'] :: ModifyClusterParameterGroup -> Text
+ Amazonka.Redshift.ModifyClusterParameterGroup: [$sel:parameterGroupStatus:ClusterParameterGroupNameMessage'] :: ClusterParameterGroupNameMessage -> Maybe Text
+ Amazonka.Redshift.ModifyClusterParameterGroup: [$sel:parameters:ModifyClusterParameterGroup'] :: ModifyClusterParameterGroup -> [Parameter]
+ Amazonka.Redshift.ModifyClusterParameterGroup: clusterParameterGroupNameMessage_parameterGroupName :: Lens' ClusterParameterGroupNameMessage (Maybe Text)
+ Amazonka.Redshift.ModifyClusterParameterGroup: clusterParameterGroupNameMessage_parameterGroupStatus :: Lens' ClusterParameterGroupNameMessage (Maybe Text)
+ Amazonka.Redshift.ModifyClusterParameterGroup: data ClusterParameterGroupNameMessage
+ Amazonka.Redshift.ModifyClusterParameterGroup: data ModifyClusterParameterGroup
+ Amazonka.Redshift.ModifyClusterParameterGroup: instance Amazonka.Data.Headers.ToHeaders Amazonka.Redshift.ModifyClusterParameterGroup.ModifyClusterParameterGroup
+ Amazonka.Redshift.ModifyClusterParameterGroup: instance Amazonka.Data.Path.ToPath Amazonka.Redshift.ModifyClusterParameterGroup.ModifyClusterParameterGroup
+ Amazonka.Redshift.ModifyClusterParameterGroup: instance Amazonka.Data.Query.ToQuery Amazonka.Redshift.ModifyClusterParameterGroup.ModifyClusterParameterGroup
+ Amazonka.Redshift.ModifyClusterParameterGroup: instance Amazonka.Types.AWSRequest Amazonka.Redshift.ModifyClusterParameterGroup.ModifyClusterParameterGroup
+ Amazonka.Redshift.ModifyClusterParameterGroup: instance Control.DeepSeq.NFData Amazonka.Redshift.ModifyClusterParameterGroup.ModifyClusterParameterGroup
+ Amazonka.Redshift.ModifyClusterParameterGroup: instance Data.Hashable.Class.Hashable Amazonka.Redshift.ModifyClusterParameterGroup.ModifyClusterParameterGroup
+ Amazonka.Redshift.ModifyClusterParameterGroup: instance GHC.Classes.Eq Amazonka.Redshift.ModifyClusterParameterGroup.ModifyClusterParameterGroup
+ Amazonka.Redshift.ModifyClusterParameterGroup: instance GHC.Generics.Generic Amazonka.Redshift.ModifyClusterParameterGroup.ModifyClusterParameterGroup
+ Amazonka.Redshift.ModifyClusterParameterGroup: instance GHC.Read.Read Amazonka.Redshift.ModifyClusterParameterGroup.ModifyClusterParameterGroup
+ Amazonka.Redshift.ModifyClusterParameterGroup: instance GHC.Show.Show Amazonka.Redshift.ModifyClusterParameterGroup.ModifyClusterParameterGroup
+ Amazonka.Redshift.ModifyClusterParameterGroup: modifyClusterParameterGroup_parameterGroupName :: Lens' ModifyClusterParameterGroup Text
+ Amazonka.Redshift.ModifyClusterParameterGroup: modifyClusterParameterGroup_parameters :: Lens' ModifyClusterParameterGroup [Parameter]
+ Amazonka.Redshift.ModifyClusterParameterGroup: newClusterParameterGroupNameMessage :: ClusterParameterGroupNameMessage
+ Amazonka.Redshift.ModifyClusterParameterGroup: newModifyClusterParameterGroup :: Text -> ModifyClusterParameterGroup
+ Amazonka.Redshift.ModifyClusterSnapshot: ModifyClusterSnapshot' :: Maybe Bool -> Maybe Int -> Text -> ModifyClusterSnapshot
+ Amazonka.Redshift.ModifyClusterSnapshot: ModifyClusterSnapshotResponse' :: Maybe Snapshot -> Int -> ModifyClusterSnapshotResponse
+ Amazonka.Redshift.ModifyClusterSnapshot: [$sel:force:ModifyClusterSnapshot'] :: ModifyClusterSnapshot -> Maybe Bool
+ Amazonka.Redshift.ModifyClusterSnapshot: [$sel:httpStatus:ModifyClusterSnapshotResponse'] :: ModifyClusterSnapshotResponse -> Int
+ Amazonka.Redshift.ModifyClusterSnapshot: [$sel:manualSnapshotRetentionPeriod:ModifyClusterSnapshot'] :: ModifyClusterSnapshot -> Maybe Int
+ Amazonka.Redshift.ModifyClusterSnapshot: [$sel:snapshot:ModifyClusterSnapshotResponse'] :: ModifyClusterSnapshotResponse -> Maybe Snapshot
+ Amazonka.Redshift.ModifyClusterSnapshot: [$sel:snapshotIdentifier:ModifyClusterSnapshot'] :: ModifyClusterSnapshot -> Text
+ Amazonka.Redshift.ModifyClusterSnapshot: data ModifyClusterSnapshot
+ Amazonka.Redshift.ModifyClusterSnapshot: data ModifyClusterSnapshotResponse
+ Amazonka.Redshift.ModifyClusterSnapshot: instance Amazonka.Data.Headers.ToHeaders Amazonka.Redshift.ModifyClusterSnapshot.ModifyClusterSnapshot
+ Amazonka.Redshift.ModifyClusterSnapshot: instance Amazonka.Data.Path.ToPath Amazonka.Redshift.ModifyClusterSnapshot.ModifyClusterSnapshot
+ Amazonka.Redshift.ModifyClusterSnapshot: instance Amazonka.Data.Query.ToQuery Amazonka.Redshift.ModifyClusterSnapshot.ModifyClusterSnapshot
+ Amazonka.Redshift.ModifyClusterSnapshot: instance Amazonka.Types.AWSRequest Amazonka.Redshift.ModifyClusterSnapshot.ModifyClusterSnapshot
+ Amazonka.Redshift.ModifyClusterSnapshot: instance Control.DeepSeq.NFData Amazonka.Redshift.ModifyClusterSnapshot.ModifyClusterSnapshot
+ Amazonka.Redshift.ModifyClusterSnapshot: instance Control.DeepSeq.NFData Amazonka.Redshift.ModifyClusterSnapshot.ModifyClusterSnapshotResponse
+ Amazonka.Redshift.ModifyClusterSnapshot: instance Data.Hashable.Class.Hashable Amazonka.Redshift.ModifyClusterSnapshot.ModifyClusterSnapshot
+ Amazonka.Redshift.ModifyClusterSnapshot: instance GHC.Classes.Eq Amazonka.Redshift.ModifyClusterSnapshot.ModifyClusterSnapshot
+ Amazonka.Redshift.ModifyClusterSnapshot: instance GHC.Classes.Eq Amazonka.Redshift.ModifyClusterSnapshot.ModifyClusterSnapshotResponse
+ Amazonka.Redshift.ModifyClusterSnapshot: instance GHC.Generics.Generic Amazonka.Redshift.ModifyClusterSnapshot.ModifyClusterSnapshot
+ Amazonka.Redshift.ModifyClusterSnapshot: instance GHC.Generics.Generic Amazonka.Redshift.ModifyClusterSnapshot.ModifyClusterSnapshotResponse
+ Amazonka.Redshift.ModifyClusterSnapshot: instance GHC.Read.Read Amazonka.Redshift.ModifyClusterSnapshot.ModifyClusterSnapshot
+ Amazonka.Redshift.ModifyClusterSnapshot: instance GHC.Read.Read Amazonka.Redshift.ModifyClusterSnapshot.ModifyClusterSnapshotResponse
+ Amazonka.Redshift.ModifyClusterSnapshot: instance GHC.Show.Show Amazonka.Redshift.ModifyClusterSnapshot.ModifyClusterSnapshot
+ Amazonka.Redshift.ModifyClusterSnapshot: instance GHC.Show.Show Amazonka.Redshift.ModifyClusterSnapshot.ModifyClusterSnapshotResponse
+ Amazonka.Redshift.ModifyClusterSnapshot: modifyClusterSnapshotResponse_httpStatus :: Lens' ModifyClusterSnapshotResponse Int
+ Amazonka.Redshift.ModifyClusterSnapshot: modifyClusterSnapshotResponse_snapshot :: Lens' ModifyClusterSnapshotResponse (Maybe Snapshot)
+ Amazonka.Redshift.ModifyClusterSnapshot: modifyClusterSnapshot_force :: Lens' ModifyClusterSnapshot (Maybe Bool)
+ Amazonka.Redshift.ModifyClusterSnapshot: modifyClusterSnapshot_manualSnapshotRetentionPeriod :: Lens' ModifyClusterSnapshot (Maybe Int)
+ Amazonka.Redshift.ModifyClusterSnapshot: modifyClusterSnapshot_snapshotIdentifier :: Lens' ModifyClusterSnapshot Text
+ Amazonka.Redshift.ModifyClusterSnapshot: newModifyClusterSnapshot :: Text -> ModifyClusterSnapshot
+ Amazonka.Redshift.ModifyClusterSnapshot: newModifyClusterSnapshotResponse :: Int -> ModifyClusterSnapshotResponse
+ Amazonka.Redshift.ModifyClusterSnapshotSchedule: ModifyClusterSnapshotSchedule' :: Maybe Bool -> Maybe Text -> Text -> ModifyClusterSnapshotSchedule
+ Amazonka.Redshift.ModifyClusterSnapshotSchedule: ModifyClusterSnapshotScheduleResponse' :: ModifyClusterSnapshotScheduleResponse
+ Amazonka.Redshift.ModifyClusterSnapshotSchedule: [$sel:clusterIdentifier:ModifyClusterSnapshotSchedule'] :: ModifyClusterSnapshotSchedule -> Text
+ Amazonka.Redshift.ModifyClusterSnapshotSchedule: [$sel:disassociateSchedule:ModifyClusterSnapshotSchedule'] :: ModifyClusterSnapshotSchedule -> Maybe Bool
+ Amazonka.Redshift.ModifyClusterSnapshotSchedule: [$sel:scheduleIdentifier:ModifyClusterSnapshotSchedule'] :: ModifyClusterSnapshotSchedule -> Maybe Text
+ Amazonka.Redshift.ModifyClusterSnapshotSchedule: data ModifyClusterSnapshotSchedule
+ Amazonka.Redshift.ModifyClusterSnapshotSchedule: data ModifyClusterSnapshotScheduleResponse
+ Amazonka.Redshift.ModifyClusterSnapshotSchedule: instance Amazonka.Data.Headers.ToHeaders Amazonka.Redshift.ModifyClusterSnapshotSchedule.ModifyClusterSnapshotSchedule
+ Amazonka.Redshift.ModifyClusterSnapshotSchedule: instance Amazonka.Data.Path.ToPath Amazonka.Redshift.ModifyClusterSnapshotSchedule.ModifyClusterSnapshotSchedule
+ Amazonka.Redshift.ModifyClusterSnapshotSchedule: instance Amazonka.Data.Query.ToQuery Amazonka.Redshift.ModifyClusterSnapshotSchedule.ModifyClusterSnapshotSchedule
+ Amazonka.Redshift.ModifyClusterSnapshotSchedule: instance Amazonka.Types.AWSRequest Amazonka.Redshift.ModifyClusterSnapshotSchedule.ModifyClusterSnapshotSchedule
+ Amazonka.Redshift.ModifyClusterSnapshotSchedule: instance Control.DeepSeq.NFData Amazonka.Redshift.ModifyClusterSnapshotSchedule.ModifyClusterSnapshotSchedule
+ Amazonka.Redshift.ModifyClusterSnapshotSchedule: instance Control.DeepSeq.NFData Amazonka.Redshift.ModifyClusterSnapshotSchedule.ModifyClusterSnapshotScheduleResponse
+ Amazonka.Redshift.ModifyClusterSnapshotSchedule: instance Data.Hashable.Class.Hashable Amazonka.Redshift.ModifyClusterSnapshotSchedule.ModifyClusterSnapshotSchedule
+ Amazonka.Redshift.ModifyClusterSnapshotSchedule: instance GHC.Classes.Eq Amazonka.Redshift.ModifyClusterSnapshotSchedule.ModifyClusterSnapshotSchedule
+ Amazonka.Redshift.ModifyClusterSnapshotSchedule: instance GHC.Classes.Eq Amazonka.Redshift.ModifyClusterSnapshotSchedule.ModifyClusterSnapshotScheduleResponse
+ Amazonka.Redshift.ModifyClusterSnapshotSchedule: instance GHC.Generics.Generic Amazonka.Redshift.ModifyClusterSnapshotSchedule.ModifyClusterSnapshotSchedule
+ Amazonka.Redshift.ModifyClusterSnapshotSchedule: instance GHC.Generics.Generic Amazonka.Redshift.ModifyClusterSnapshotSchedule.ModifyClusterSnapshotScheduleResponse
+ Amazonka.Redshift.ModifyClusterSnapshotSchedule: instance GHC.Read.Read Amazonka.Redshift.ModifyClusterSnapshotSchedule.ModifyClusterSnapshotSchedule
+ Amazonka.Redshift.ModifyClusterSnapshotSchedule: instance GHC.Read.Read Amazonka.Redshift.ModifyClusterSnapshotSchedule.ModifyClusterSnapshotScheduleResponse
+ Amazonka.Redshift.ModifyClusterSnapshotSchedule: instance GHC.Show.Show Amazonka.Redshift.ModifyClusterSnapshotSchedule.ModifyClusterSnapshotSchedule
+ Amazonka.Redshift.ModifyClusterSnapshotSchedule: instance GHC.Show.Show Amazonka.Redshift.ModifyClusterSnapshotSchedule.ModifyClusterSnapshotScheduleResponse
+ Amazonka.Redshift.ModifyClusterSnapshotSchedule: modifyClusterSnapshotSchedule_clusterIdentifier :: Lens' ModifyClusterSnapshotSchedule Text
+ Amazonka.Redshift.ModifyClusterSnapshotSchedule: modifyClusterSnapshotSchedule_disassociateSchedule :: Lens' ModifyClusterSnapshotSchedule (Maybe Bool)
+ Amazonka.Redshift.ModifyClusterSnapshotSchedule: modifyClusterSnapshotSchedule_scheduleIdentifier :: Lens' ModifyClusterSnapshotSchedule (Maybe Text)
+ Amazonka.Redshift.ModifyClusterSnapshotSchedule: newModifyClusterSnapshotSchedule :: Text -> ModifyClusterSnapshotSchedule
+ Amazonka.Redshift.ModifyClusterSnapshotSchedule: newModifyClusterSnapshotScheduleResponse :: ModifyClusterSnapshotScheduleResponse
+ Amazonka.Redshift.ModifyClusterSubnetGroup: ModifyClusterSubnetGroup' :: Maybe Text -> Text -> [Text] -> ModifyClusterSubnetGroup
+ Amazonka.Redshift.ModifyClusterSubnetGroup: ModifyClusterSubnetGroupResponse' :: Maybe ClusterSubnetGroup -> Int -> ModifyClusterSubnetGroupResponse
+ Amazonka.Redshift.ModifyClusterSubnetGroup: [$sel:clusterSubnetGroup:ModifyClusterSubnetGroupResponse'] :: ModifyClusterSubnetGroupResponse -> Maybe ClusterSubnetGroup
+ Amazonka.Redshift.ModifyClusterSubnetGroup: [$sel:clusterSubnetGroupName:ModifyClusterSubnetGroup'] :: ModifyClusterSubnetGroup -> Text
+ Amazonka.Redshift.ModifyClusterSubnetGroup: [$sel:description:ModifyClusterSubnetGroup'] :: ModifyClusterSubnetGroup -> Maybe Text
+ Amazonka.Redshift.ModifyClusterSubnetGroup: [$sel:httpStatus:ModifyClusterSubnetGroupResponse'] :: ModifyClusterSubnetGroupResponse -> Int
+ Amazonka.Redshift.ModifyClusterSubnetGroup: [$sel:subnetIds:ModifyClusterSubnetGroup'] :: ModifyClusterSubnetGroup -> [Text]
+ Amazonka.Redshift.ModifyClusterSubnetGroup: data ModifyClusterSubnetGroup
+ Amazonka.Redshift.ModifyClusterSubnetGroup: data ModifyClusterSubnetGroupResponse
+ Amazonka.Redshift.ModifyClusterSubnetGroup: instance Amazonka.Data.Headers.ToHeaders Amazonka.Redshift.ModifyClusterSubnetGroup.ModifyClusterSubnetGroup
+ Amazonka.Redshift.ModifyClusterSubnetGroup: instance Amazonka.Data.Path.ToPath Amazonka.Redshift.ModifyClusterSubnetGroup.ModifyClusterSubnetGroup
+ Amazonka.Redshift.ModifyClusterSubnetGroup: instance Amazonka.Data.Query.ToQuery Amazonka.Redshift.ModifyClusterSubnetGroup.ModifyClusterSubnetGroup
+ Amazonka.Redshift.ModifyClusterSubnetGroup: instance Amazonka.Types.AWSRequest Amazonka.Redshift.ModifyClusterSubnetGroup.ModifyClusterSubnetGroup
+ Amazonka.Redshift.ModifyClusterSubnetGroup: instance Control.DeepSeq.NFData Amazonka.Redshift.ModifyClusterSubnetGroup.ModifyClusterSubnetGroup
+ Amazonka.Redshift.ModifyClusterSubnetGroup: instance Control.DeepSeq.NFData Amazonka.Redshift.ModifyClusterSubnetGroup.ModifyClusterSubnetGroupResponse
+ Amazonka.Redshift.ModifyClusterSubnetGroup: instance Data.Hashable.Class.Hashable Amazonka.Redshift.ModifyClusterSubnetGroup.ModifyClusterSubnetGroup
+ Amazonka.Redshift.ModifyClusterSubnetGroup: instance GHC.Classes.Eq Amazonka.Redshift.ModifyClusterSubnetGroup.ModifyClusterSubnetGroup
+ Amazonka.Redshift.ModifyClusterSubnetGroup: instance GHC.Classes.Eq Amazonka.Redshift.ModifyClusterSubnetGroup.ModifyClusterSubnetGroupResponse
+ Amazonka.Redshift.ModifyClusterSubnetGroup: instance GHC.Generics.Generic Amazonka.Redshift.ModifyClusterSubnetGroup.ModifyClusterSubnetGroup
+ Amazonka.Redshift.ModifyClusterSubnetGroup: instance GHC.Generics.Generic Amazonka.Redshift.ModifyClusterSubnetGroup.ModifyClusterSubnetGroupResponse
+ Amazonka.Redshift.ModifyClusterSubnetGroup: instance GHC.Read.Read Amazonka.Redshift.ModifyClusterSubnetGroup.ModifyClusterSubnetGroup
+ Amazonka.Redshift.ModifyClusterSubnetGroup: instance GHC.Read.Read Amazonka.Redshift.ModifyClusterSubnetGroup.ModifyClusterSubnetGroupResponse
+ Amazonka.Redshift.ModifyClusterSubnetGroup: instance GHC.Show.Show Amazonka.Redshift.ModifyClusterSubnetGroup.ModifyClusterSubnetGroup
+ Amazonka.Redshift.ModifyClusterSubnetGroup: instance GHC.Show.Show Amazonka.Redshift.ModifyClusterSubnetGroup.ModifyClusterSubnetGroupResponse
+ Amazonka.Redshift.ModifyClusterSubnetGroup: modifyClusterSubnetGroupResponse_clusterSubnetGroup :: Lens' ModifyClusterSubnetGroupResponse (Maybe ClusterSubnetGroup)
+ Amazonka.Redshift.ModifyClusterSubnetGroup: modifyClusterSubnetGroupResponse_httpStatus :: Lens' ModifyClusterSubnetGroupResponse Int
+ Amazonka.Redshift.ModifyClusterSubnetGroup: modifyClusterSubnetGroup_clusterSubnetGroupName :: Lens' ModifyClusterSubnetGroup Text
+ Amazonka.Redshift.ModifyClusterSubnetGroup: modifyClusterSubnetGroup_description :: Lens' ModifyClusterSubnetGroup (Maybe Text)
+ Amazonka.Redshift.ModifyClusterSubnetGroup: modifyClusterSubnetGroup_subnetIds :: Lens' ModifyClusterSubnetGroup [Text]
+ Amazonka.Redshift.ModifyClusterSubnetGroup: newModifyClusterSubnetGroup :: Text -> ModifyClusterSubnetGroup
+ Amazonka.Redshift.ModifyClusterSubnetGroup: newModifyClusterSubnetGroupResponse :: Int -> ModifyClusterSubnetGroupResponse
+ Amazonka.Redshift.ModifyEndpointAccess: EndpointAccess' :: Maybe Text -> Maybe Text -> Maybe ISO8601 -> Maybe Text -> Maybe Text -> Maybe Int -> Maybe Text -> Maybe Text -> Maybe VpcEndpoint -> Maybe [VpcSecurityGroupMembership] -> EndpointAccess
+ Amazonka.Redshift.ModifyEndpointAccess: ModifyEndpointAccess' :: Maybe [Text] -> Text -> ModifyEndpointAccess
+ Amazonka.Redshift.ModifyEndpointAccess: [$sel:address:EndpointAccess'] :: EndpointAccess -> Maybe Text
+ Amazonka.Redshift.ModifyEndpointAccess: [$sel:clusterIdentifier:EndpointAccess'] :: EndpointAccess -> Maybe Text
+ Amazonka.Redshift.ModifyEndpointAccess: [$sel:endpointCreateTime:EndpointAccess'] :: EndpointAccess -> Maybe ISO8601
+ Amazonka.Redshift.ModifyEndpointAccess: [$sel:endpointName:EndpointAccess'] :: EndpointAccess -> Maybe Text
+ Amazonka.Redshift.ModifyEndpointAccess: [$sel:endpointName:ModifyEndpointAccess'] :: ModifyEndpointAccess -> Text
+ Amazonka.Redshift.ModifyEndpointAccess: [$sel:endpointStatus:EndpointAccess'] :: EndpointAccess -> Maybe Text
+ Amazonka.Redshift.ModifyEndpointAccess: [$sel:port:EndpointAccess'] :: EndpointAccess -> Maybe Int
+ Amazonka.Redshift.ModifyEndpointAccess: [$sel:resourceOwner:EndpointAccess'] :: EndpointAccess -> Maybe Text
+ Amazonka.Redshift.ModifyEndpointAccess: [$sel:subnetGroupName:EndpointAccess'] :: EndpointAccess -> Maybe Text
+ Amazonka.Redshift.ModifyEndpointAccess: [$sel:vpcEndpoint:EndpointAccess'] :: EndpointAccess -> Maybe VpcEndpoint
+ Amazonka.Redshift.ModifyEndpointAccess: [$sel:vpcSecurityGroupIds:ModifyEndpointAccess'] :: ModifyEndpointAccess -> Maybe [Text]
+ Amazonka.Redshift.ModifyEndpointAccess: [$sel:vpcSecurityGroups:EndpointAccess'] :: EndpointAccess -> Maybe [VpcSecurityGroupMembership]
+ Amazonka.Redshift.ModifyEndpointAccess: data EndpointAccess
+ Amazonka.Redshift.ModifyEndpointAccess: data ModifyEndpointAccess
+ Amazonka.Redshift.ModifyEndpointAccess: endpointAccess_address :: Lens' EndpointAccess (Maybe Text)
+ Amazonka.Redshift.ModifyEndpointAccess: endpointAccess_clusterIdentifier :: Lens' EndpointAccess (Maybe Text)
+ Amazonka.Redshift.ModifyEndpointAccess: endpointAccess_endpointCreateTime :: Lens' EndpointAccess (Maybe UTCTime)
+ Amazonka.Redshift.ModifyEndpointAccess: endpointAccess_endpointName :: Lens' EndpointAccess (Maybe Text)
+ Amazonka.Redshift.ModifyEndpointAccess: endpointAccess_endpointStatus :: Lens' EndpointAccess (Maybe Text)
+ Amazonka.Redshift.ModifyEndpointAccess: endpointAccess_port :: Lens' EndpointAccess (Maybe Int)
+ Amazonka.Redshift.ModifyEndpointAccess: endpointAccess_resourceOwner :: Lens' EndpointAccess (Maybe Text)
+ Amazonka.Redshift.ModifyEndpointAccess: endpointAccess_subnetGroupName :: Lens' EndpointAccess (Maybe Text)
+ Amazonka.Redshift.ModifyEndpointAccess: endpointAccess_vpcEndpoint :: Lens' EndpointAccess (Maybe VpcEndpoint)
+ Amazonka.Redshift.ModifyEndpointAccess: endpointAccess_vpcSecurityGroups :: Lens' EndpointAccess (Maybe [VpcSecurityGroupMembership])
+ Amazonka.Redshift.ModifyEndpointAccess: instance Amazonka.Data.Headers.ToHeaders Amazonka.Redshift.ModifyEndpointAccess.ModifyEndpointAccess
+ Amazonka.Redshift.ModifyEndpointAccess: instance Amazonka.Data.Path.ToPath Amazonka.Redshift.ModifyEndpointAccess.ModifyEndpointAccess
+ Amazonka.Redshift.ModifyEndpointAccess: instance Amazonka.Data.Query.ToQuery Amazonka.Redshift.ModifyEndpointAccess.ModifyEndpointAccess
+ Amazonka.Redshift.ModifyEndpointAccess: instance Amazonka.Types.AWSRequest Amazonka.Redshift.ModifyEndpointAccess.ModifyEndpointAccess
+ Amazonka.Redshift.ModifyEndpointAccess: instance Control.DeepSeq.NFData Amazonka.Redshift.ModifyEndpointAccess.ModifyEndpointAccess
+ Amazonka.Redshift.ModifyEndpointAccess: instance Data.Hashable.Class.Hashable Amazonka.Redshift.ModifyEndpointAccess.ModifyEndpointAccess
+ Amazonka.Redshift.ModifyEndpointAccess: instance GHC.Classes.Eq Amazonka.Redshift.ModifyEndpointAccess.ModifyEndpointAccess
+ Amazonka.Redshift.ModifyEndpointAccess: instance GHC.Generics.Generic Amazonka.Redshift.ModifyEndpointAccess.ModifyEndpointAccess
+ Amazonka.Redshift.ModifyEndpointAccess: instance GHC.Read.Read Amazonka.Redshift.ModifyEndpointAccess.ModifyEndpointAccess
+ Amazonka.Redshift.ModifyEndpointAccess: instance GHC.Show.Show Amazonka.Redshift.ModifyEndpointAccess.ModifyEndpointAccess
+ Amazonka.Redshift.ModifyEndpointAccess: modifyEndpointAccess_endpointName :: Lens' ModifyEndpointAccess Text
+ Amazonka.Redshift.ModifyEndpointAccess: modifyEndpointAccess_vpcSecurityGroupIds :: Lens' ModifyEndpointAccess (Maybe [Text])
+ Amazonka.Redshift.ModifyEndpointAccess: newEndpointAccess :: EndpointAccess
+ Amazonka.Redshift.ModifyEndpointAccess: newModifyEndpointAccess :: Text -> ModifyEndpointAccess
+ Amazonka.Redshift.ModifyEventSubscription: ModifyEventSubscription' :: Maybe Bool -> Maybe [Text] -> Maybe Text -> Maybe Text -> Maybe [Text] -> Maybe Text -> Text -> ModifyEventSubscription
+ Amazonka.Redshift.ModifyEventSubscription: ModifyEventSubscriptionResponse' :: Maybe EventSubscription -> Int -> ModifyEventSubscriptionResponse
+ Amazonka.Redshift.ModifyEventSubscription: [$sel:enabled:ModifyEventSubscription'] :: ModifyEventSubscription -> Maybe Bool
+ Amazonka.Redshift.ModifyEventSubscription: [$sel:eventCategories:ModifyEventSubscription'] :: ModifyEventSubscription -> Maybe [Text]
+ Amazonka.Redshift.ModifyEventSubscription: [$sel:eventSubscription:ModifyEventSubscriptionResponse'] :: ModifyEventSubscriptionResponse -> Maybe EventSubscription
+ Amazonka.Redshift.ModifyEventSubscription: [$sel:httpStatus:ModifyEventSubscriptionResponse'] :: ModifyEventSubscriptionResponse -> Int
+ Amazonka.Redshift.ModifyEventSubscription: [$sel:severity:ModifyEventSubscription'] :: ModifyEventSubscription -> Maybe Text
+ Amazonka.Redshift.ModifyEventSubscription: [$sel:snsTopicArn:ModifyEventSubscription'] :: ModifyEventSubscription -> Maybe Text
+ Amazonka.Redshift.ModifyEventSubscription: [$sel:sourceIds:ModifyEventSubscription'] :: ModifyEventSubscription -> Maybe [Text]
+ Amazonka.Redshift.ModifyEventSubscription: [$sel:sourceType:ModifyEventSubscription'] :: ModifyEventSubscription -> Maybe Text
+ Amazonka.Redshift.ModifyEventSubscription: [$sel:subscriptionName:ModifyEventSubscription'] :: ModifyEventSubscription -> Text
+ Amazonka.Redshift.ModifyEventSubscription: data ModifyEventSubscription
+ Amazonka.Redshift.ModifyEventSubscription: data ModifyEventSubscriptionResponse
+ Amazonka.Redshift.ModifyEventSubscription: instance Amazonka.Data.Headers.ToHeaders Amazonka.Redshift.ModifyEventSubscription.ModifyEventSubscription
+ Amazonka.Redshift.ModifyEventSubscription: instance Amazonka.Data.Path.ToPath Amazonka.Redshift.ModifyEventSubscription.ModifyEventSubscription
+ Amazonka.Redshift.ModifyEventSubscription: instance Amazonka.Data.Query.ToQuery Amazonka.Redshift.ModifyEventSubscription.ModifyEventSubscription
+ Amazonka.Redshift.ModifyEventSubscription: instance Amazonka.Types.AWSRequest Amazonka.Redshift.ModifyEventSubscription.ModifyEventSubscription
+ Amazonka.Redshift.ModifyEventSubscription: instance Control.DeepSeq.NFData Amazonka.Redshift.ModifyEventSubscription.ModifyEventSubscription
+ Amazonka.Redshift.ModifyEventSubscription: instance Control.DeepSeq.NFData Amazonka.Redshift.ModifyEventSubscription.ModifyEventSubscriptionResponse
+ Amazonka.Redshift.ModifyEventSubscription: instance Data.Hashable.Class.Hashable Amazonka.Redshift.ModifyEventSubscription.ModifyEventSubscription
+ Amazonka.Redshift.ModifyEventSubscription: instance GHC.Classes.Eq Amazonka.Redshift.ModifyEventSubscription.ModifyEventSubscription
+ Amazonka.Redshift.ModifyEventSubscription: instance GHC.Classes.Eq Amazonka.Redshift.ModifyEventSubscription.ModifyEventSubscriptionResponse
+ Amazonka.Redshift.ModifyEventSubscription: instance GHC.Generics.Generic Amazonka.Redshift.ModifyEventSubscription.ModifyEventSubscription
+ Amazonka.Redshift.ModifyEventSubscription: instance GHC.Generics.Generic Amazonka.Redshift.ModifyEventSubscription.ModifyEventSubscriptionResponse
+ Amazonka.Redshift.ModifyEventSubscription: instance GHC.Read.Read Amazonka.Redshift.ModifyEventSubscription.ModifyEventSubscription
+ Amazonka.Redshift.ModifyEventSubscription: instance GHC.Read.Read Amazonka.Redshift.ModifyEventSubscription.ModifyEventSubscriptionResponse
+ Amazonka.Redshift.ModifyEventSubscription: instance GHC.Show.Show Amazonka.Redshift.ModifyEventSubscription.ModifyEventSubscription
+ Amazonka.Redshift.ModifyEventSubscription: instance GHC.Show.Show Amazonka.Redshift.ModifyEventSubscription.ModifyEventSubscriptionResponse
+ Amazonka.Redshift.ModifyEventSubscription: modifyEventSubscriptionResponse_eventSubscription :: Lens' ModifyEventSubscriptionResponse (Maybe EventSubscription)
+ Amazonka.Redshift.ModifyEventSubscription: modifyEventSubscriptionResponse_httpStatus :: Lens' ModifyEventSubscriptionResponse Int
+ Amazonka.Redshift.ModifyEventSubscription: modifyEventSubscription_enabled :: Lens' ModifyEventSubscription (Maybe Bool)
+ Amazonka.Redshift.ModifyEventSubscription: modifyEventSubscription_eventCategories :: Lens' ModifyEventSubscription (Maybe [Text])
+ Amazonka.Redshift.ModifyEventSubscription: modifyEventSubscription_severity :: Lens' ModifyEventSubscription (Maybe Text)
+ Amazonka.Redshift.ModifyEventSubscription: modifyEventSubscription_snsTopicArn :: Lens' ModifyEventSubscription (Maybe Text)
+ Amazonka.Redshift.ModifyEventSubscription: modifyEventSubscription_sourceIds :: Lens' ModifyEventSubscription (Maybe [Text])
+ Amazonka.Redshift.ModifyEventSubscription: modifyEventSubscription_sourceType :: Lens' ModifyEventSubscription (Maybe Text)
+ Amazonka.Redshift.ModifyEventSubscription: modifyEventSubscription_subscriptionName :: Lens' ModifyEventSubscription Text
+ Amazonka.Redshift.ModifyEventSubscription: newModifyEventSubscription :: Text -> ModifyEventSubscription
+ Amazonka.Redshift.ModifyEventSubscription: newModifyEventSubscriptionResponse :: Int -> ModifyEventSubscriptionResponse
+ Amazonka.Redshift.ModifyScheduledAction: ModifyScheduledAction' :: Maybe Bool -> Maybe ISO8601 -> Maybe Text -> Maybe Text -> Maybe Text -> Maybe ISO8601 -> Maybe ScheduledActionType -> Text -> ModifyScheduledAction
+ Amazonka.Redshift.ModifyScheduledAction: ScheduledAction' :: Maybe ISO8601 -> Maybe Text -> Maybe [ISO8601] -> Maybe Text -> Maybe Text -> Maybe Text -> Maybe ISO8601 -> Maybe ScheduledActionState -> Maybe ScheduledActionType -> ScheduledAction
+ Amazonka.Redshift.ModifyScheduledAction: [$sel:enable:ModifyScheduledAction'] :: ModifyScheduledAction -> Maybe Bool
+ Amazonka.Redshift.ModifyScheduledAction: [$sel:endTime:ModifyScheduledAction'] :: ModifyScheduledAction -> Maybe ISO8601
+ Amazonka.Redshift.ModifyScheduledAction: [$sel:endTime:ScheduledAction'] :: ScheduledAction -> Maybe ISO8601
+ Amazonka.Redshift.ModifyScheduledAction: [$sel:iamRole:ModifyScheduledAction'] :: ModifyScheduledAction -> Maybe Text
+ Amazonka.Redshift.ModifyScheduledAction: [$sel:iamRole:ScheduledAction'] :: ScheduledAction -> Maybe Text
+ Amazonka.Redshift.ModifyScheduledAction: [$sel:nextInvocations:ScheduledAction'] :: ScheduledAction -> Maybe [ISO8601]
+ Amazonka.Redshift.ModifyScheduledAction: [$sel:schedule:ModifyScheduledAction'] :: ModifyScheduledAction -> Maybe Text
+ Amazonka.Redshift.ModifyScheduledAction: [$sel:schedule:ScheduledAction'] :: ScheduledAction -> Maybe Text
+ Amazonka.Redshift.ModifyScheduledAction: [$sel:scheduledActionDescription:ModifyScheduledAction'] :: ModifyScheduledAction -> Maybe Text
+ Amazonka.Redshift.ModifyScheduledAction: [$sel:scheduledActionDescription:ScheduledAction'] :: ScheduledAction -> Maybe Text
+ Amazonka.Redshift.ModifyScheduledAction: [$sel:scheduledActionName:ModifyScheduledAction'] :: ModifyScheduledAction -> Text
+ Amazonka.Redshift.ModifyScheduledAction: [$sel:scheduledActionName:ScheduledAction'] :: ScheduledAction -> Maybe Text
+ Amazonka.Redshift.ModifyScheduledAction: [$sel:startTime:ModifyScheduledAction'] :: ModifyScheduledAction -> Maybe ISO8601
+ Amazonka.Redshift.ModifyScheduledAction: [$sel:startTime:ScheduledAction'] :: ScheduledAction -> Maybe ISO8601
+ Amazonka.Redshift.ModifyScheduledAction: [$sel:state:ScheduledAction'] :: ScheduledAction -> Maybe ScheduledActionState
+ Amazonka.Redshift.ModifyScheduledAction: [$sel:targetAction:ModifyScheduledAction'] :: ModifyScheduledAction -> Maybe ScheduledActionType
+ Amazonka.Redshift.ModifyScheduledAction: [$sel:targetAction:ScheduledAction'] :: ScheduledAction -> Maybe ScheduledActionType
+ Amazonka.Redshift.ModifyScheduledAction: data ModifyScheduledAction
+ Amazonka.Redshift.ModifyScheduledAction: data ScheduledAction
+ Amazonka.Redshift.ModifyScheduledAction: instance Amazonka.Data.Headers.ToHeaders Amazonka.Redshift.ModifyScheduledAction.ModifyScheduledAction
+ Amazonka.Redshift.ModifyScheduledAction: instance Amazonka.Data.Path.ToPath Amazonka.Redshift.ModifyScheduledAction.ModifyScheduledAction
+ Amazonka.Redshift.ModifyScheduledAction: instance Amazonka.Data.Query.ToQuery Amazonka.Redshift.ModifyScheduledAction.ModifyScheduledAction
+ Amazonka.Redshift.ModifyScheduledAction: instance Amazonka.Types.AWSRequest Amazonka.Redshift.ModifyScheduledAction.ModifyScheduledAction
+ Amazonka.Redshift.ModifyScheduledAction: instance Control.DeepSeq.NFData Amazonka.Redshift.ModifyScheduledAction.ModifyScheduledAction
+ Amazonka.Redshift.ModifyScheduledAction: instance Data.Hashable.Class.Hashable Amazonka.Redshift.ModifyScheduledAction.ModifyScheduledAction
+ Amazonka.Redshift.ModifyScheduledAction: instance GHC.Classes.Eq Amazonka.Redshift.ModifyScheduledAction.ModifyScheduledAction
+ Amazonka.Redshift.ModifyScheduledAction: instance GHC.Generics.Generic Amazonka.Redshift.ModifyScheduledAction.ModifyScheduledAction
+ Amazonka.Redshift.ModifyScheduledAction: instance GHC.Read.Read Amazonka.Redshift.ModifyScheduledAction.ModifyScheduledAction
+ Amazonka.Redshift.ModifyScheduledAction: instance GHC.Show.Show Amazonka.Redshift.ModifyScheduledAction.ModifyScheduledAction
+ Amazonka.Redshift.ModifyScheduledAction: modifyScheduledAction_enable :: Lens' ModifyScheduledAction (Maybe Bool)
+ Amazonka.Redshift.ModifyScheduledAction: modifyScheduledAction_endTime :: Lens' ModifyScheduledAction (Maybe UTCTime)
+ Amazonka.Redshift.ModifyScheduledAction: modifyScheduledAction_iamRole :: Lens' ModifyScheduledAction (Maybe Text)
+ Amazonka.Redshift.ModifyScheduledAction: modifyScheduledAction_schedule :: Lens' ModifyScheduledAction (Maybe Text)
+ Amazonka.Redshift.ModifyScheduledAction: modifyScheduledAction_scheduledActionDescription :: Lens' ModifyScheduledAction (Maybe Text)
+ Amazonka.Redshift.ModifyScheduledAction: modifyScheduledAction_scheduledActionName :: Lens' ModifyScheduledAction Text
+ Amazonka.Redshift.ModifyScheduledAction: modifyScheduledAction_startTime :: Lens' ModifyScheduledAction (Maybe UTCTime)
+ Amazonka.Redshift.ModifyScheduledAction: modifyScheduledAction_targetAction :: Lens' ModifyScheduledAction (Maybe ScheduledActionType)
+ Amazonka.Redshift.ModifyScheduledAction: newModifyScheduledAction :: Text -> ModifyScheduledAction
+ Amazonka.Redshift.ModifyScheduledAction: newScheduledAction :: ScheduledAction
+ Amazonka.Redshift.ModifyScheduledAction: scheduledAction_endTime :: Lens' ScheduledAction (Maybe UTCTime)
+ Amazonka.Redshift.ModifyScheduledAction: scheduledAction_iamRole :: Lens' ScheduledAction (Maybe Text)
+ Amazonka.Redshift.ModifyScheduledAction: scheduledAction_nextInvocations :: Lens' ScheduledAction (Maybe [UTCTime])
+ Amazonka.Redshift.ModifyScheduledAction: scheduledAction_schedule :: Lens' ScheduledAction (Maybe Text)
+ Amazonka.Redshift.ModifyScheduledAction: scheduledAction_scheduledActionDescription :: Lens' ScheduledAction (Maybe Text)
+ Amazonka.Redshift.ModifyScheduledAction: scheduledAction_scheduledActionName :: Lens' ScheduledAction (Maybe Text)
+ Amazonka.Redshift.ModifyScheduledAction: scheduledAction_startTime :: Lens' ScheduledAction (Maybe UTCTime)
+ Amazonka.Redshift.ModifyScheduledAction: scheduledAction_state :: Lens' ScheduledAction (Maybe ScheduledActionState)
+ Amazonka.Redshift.ModifyScheduledAction: scheduledAction_targetAction :: Lens' ScheduledAction (Maybe ScheduledActionType)
+ Amazonka.Redshift.ModifySnapshotCopyRetentionPeriod: ModifySnapshotCopyRetentionPeriod' :: Maybe Bool -> Text -> Int -> ModifySnapshotCopyRetentionPeriod
+ Amazonka.Redshift.ModifySnapshotCopyRetentionPeriod: ModifySnapshotCopyRetentionPeriodResponse' :: Maybe Cluster -> Int -> ModifySnapshotCopyRetentionPeriodResponse
+ Amazonka.Redshift.ModifySnapshotCopyRetentionPeriod: [$sel:cluster:ModifySnapshotCopyRetentionPeriodResponse'] :: ModifySnapshotCopyRetentionPeriodResponse -> Maybe Cluster
+ Amazonka.Redshift.ModifySnapshotCopyRetentionPeriod: [$sel:clusterIdentifier:ModifySnapshotCopyRetentionPeriod'] :: ModifySnapshotCopyRetentionPeriod -> Text
+ Amazonka.Redshift.ModifySnapshotCopyRetentionPeriod: [$sel:httpStatus:ModifySnapshotCopyRetentionPeriodResponse'] :: ModifySnapshotCopyRetentionPeriodResponse -> Int
+ Amazonka.Redshift.ModifySnapshotCopyRetentionPeriod: [$sel:manual:ModifySnapshotCopyRetentionPeriod'] :: ModifySnapshotCopyRetentionPeriod -> Maybe Bool
+ Amazonka.Redshift.ModifySnapshotCopyRetentionPeriod: [$sel:retentionPeriod:ModifySnapshotCopyRetentionPeriod'] :: ModifySnapshotCopyRetentionPeriod -> Int
+ Amazonka.Redshift.ModifySnapshotCopyRetentionPeriod: data ModifySnapshotCopyRetentionPeriod
+ Amazonka.Redshift.ModifySnapshotCopyRetentionPeriod: data ModifySnapshotCopyRetentionPeriodResponse
+ Amazonka.Redshift.ModifySnapshotCopyRetentionPeriod: instance Amazonka.Data.Headers.ToHeaders Amazonka.Redshift.ModifySnapshotCopyRetentionPeriod.ModifySnapshotCopyRetentionPeriod
+ Amazonka.Redshift.ModifySnapshotCopyRetentionPeriod: instance Amazonka.Data.Path.ToPath Amazonka.Redshift.ModifySnapshotCopyRetentionPeriod.ModifySnapshotCopyRetentionPeriod
+ Amazonka.Redshift.ModifySnapshotCopyRetentionPeriod: instance Amazonka.Data.Query.ToQuery Amazonka.Redshift.ModifySnapshotCopyRetentionPeriod.ModifySnapshotCopyRetentionPeriod
+ Amazonka.Redshift.ModifySnapshotCopyRetentionPeriod: instance Amazonka.Types.AWSRequest Amazonka.Redshift.ModifySnapshotCopyRetentionPeriod.ModifySnapshotCopyRetentionPeriod
+ Amazonka.Redshift.ModifySnapshotCopyRetentionPeriod: instance Control.DeepSeq.NFData Amazonka.Redshift.ModifySnapshotCopyRetentionPeriod.ModifySnapshotCopyRetentionPeriod
+ Amazonka.Redshift.ModifySnapshotCopyRetentionPeriod: instance Control.DeepSeq.NFData Amazonka.Redshift.ModifySnapshotCopyRetentionPeriod.ModifySnapshotCopyRetentionPeriodResponse
+ Amazonka.Redshift.ModifySnapshotCopyRetentionPeriod: instance Data.Hashable.Class.Hashable Amazonka.Redshift.ModifySnapshotCopyRetentionPeriod.ModifySnapshotCopyRetentionPeriod
+ Amazonka.Redshift.ModifySnapshotCopyRetentionPeriod: instance GHC.Classes.Eq Amazonka.Redshift.ModifySnapshotCopyRetentionPeriod.ModifySnapshotCopyRetentionPeriod
+ Amazonka.Redshift.ModifySnapshotCopyRetentionPeriod: instance GHC.Classes.Eq Amazonka.Redshift.ModifySnapshotCopyRetentionPeriod.ModifySnapshotCopyRetentionPeriodResponse
+ Amazonka.Redshift.ModifySnapshotCopyRetentionPeriod: instance GHC.Generics.Generic Amazonka.Redshift.ModifySnapshotCopyRetentionPeriod.ModifySnapshotCopyRetentionPeriod
+ Amazonka.Redshift.ModifySnapshotCopyRetentionPeriod: instance GHC.Generics.Generic Amazonka.Redshift.ModifySnapshotCopyRetentionPeriod.ModifySnapshotCopyRetentionPeriodResponse
+ Amazonka.Redshift.ModifySnapshotCopyRetentionPeriod: instance GHC.Read.Read Amazonka.Redshift.ModifySnapshotCopyRetentionPeriod.ModifySnapshotCopyRetentionPeriod
+ Amazonka.Redshift.ModifySnapshotCopyRetentionPeriod: instance GHC.Read.Read Amazonka.Redshift.ModifySnapshotCopyRetentionPeriod.ModifySnapshotCopyRetentionPeriodResponse
+ Amazonka.Redshift.ModifySnapshotCopyRetentionPeriod: instance GHC.Show.Show Amazonka.Redshift.ModifySnapshotCopyRetentionPeriod.ModifySnapshotCopyRetentionPeriod
+ Amazonka.Redshift.ModifySnapshotCopyRetentionPeriod: instance GHC.Show.Show Amazonka.Redshift.ModifySnapshotCopyRetentionPeriod.ModifySnapshotCopyRetentionPeriodResponse
+ Amazonka.Redshift.ModifySnapshotCopyRetentionPeriod: modifySnapshotCopyRetentionPeriodResponse_cluster :: Lens' ModifySnapshotCopyRetentionPeriodResponse (Maybe Cluster)
+ Amazonka.Redshift.ModifySnapshotCopyRetentionPeriod: modifySnapshotCopyRetentionPeriodResponse_httpStatus :: Lens' ModifySnapshotCopyRetentionPeriodResponse Int
+ Amazonka.Redshift.ModifySnapshotCopyRetentionPeriod: modifySnapshotCopyRetentionPeriod_clusterIdentifier :: Lens' ModifySnapshotCopyRetentionPeriod Text
+ Amazonka.Redshift.ModifySnapshotCopyRetentionPeriod: modifySnapshotCopyRetentionPeriod_manual :: Lens' ModifySnapshotCopyRetentionPeriod (Maybe Bool)
+ Amazonka.Redshift.ModifySnapshotCopyRetentionPeriod: modifySnapshotCopyRetentionPeriod_retentionPeriod :: Lens' ModifySnapshotCopyRetentionPeriod Int
+ Amazonka.Redshift.ModifySnapshotCopyRetentionPeriod: newModifySnapshotCopyRetentionPeriod :: Text -> Int -> ModifySnapshotCopyRetentionPeriod
+ Amazonka.Redshift.ModifySnapshotCopyRetentionPeriod: newModifySnapshotCopyRetentionPeriodResponse :: Int -> ModifySnapshotCopyRetentionPeriodResponse
+ Amazonka.Redshift.ModifySnapshotSchedule: ModifySnapshotSchedule' :: Text -> [Text] -> ModifySnapshotSchedule
+ Amazonka.Redshift.ModifySnapshotSchedule: SnapshotSchedule' :: Maybe Int -> Maybe [ClusterAssociatedToSchedule] -> Maybe [ISO8601] -> Maybe [Text] -> Maybe Text -> Maybe Text -> Maybe [Tag] -> SnapshotSchedule
+ Amazonka.Redshift.ModifySnapshotSchedule: [$sel:associatedClusterCount:SnapshotSchedule'] :: SnapshotSchedule -> Maybe Int
+ Amazonka.Redshift.ModifySnapshotSchedule: [$sel:associatedClusters:SnapshotSchedule'] :: SnapshotSchedule -> Maybe [ClusterAssociatedToSchedule]
+ Amazonka.Redshift.ModifySnapshotSchedule: [$sel:nextInvocations:SnapshotSchedule'] :: SnapshotSchedule -> Maybe [ISO8601]
+ Amazonka.Redshift.ModifySnapshotSchedule: [$sel:scheduleDefinitions:ModifySnapshotSchedule'] :: ModifySnapshotSchedule -> [Text]
+ Amazonka.Redshift.ModifySnapshotSchedule: [$sel:scheduleDefinitions:SnapshotSchedule'] :: SnapshotSchedule -> Maybe [Text]
+ Amazonka.Redshift.ModifySnapshotSchedule: [$sel:scheduleDescription:SnapshotSchedule'] :: SnapshotSchedule -> Maybe Text
+ Amazonka.Redshift.ModifySnapshotSchedule: [$sel:scheduleIdentifier:ModifySnapshotSchedule'] :: ModifySnapshotSchedule -> Text
+ Amazonka.Redshift.ModifySnapshotSchedule: [$sel:scheduleIdentifier:SnapshotSchedule'] :: SnapshotSchedule -> Maybe Text
+ Amazonka.Redshift.ModifySnapshotSchedule: [$sel:tags:SnapshotSchedule'] :: SnapshotSchedule -> Maybe [Tag]
+ Amazonka.Redshift.ModifySnapshotSchedule: data ModifySnapshotSchedule
+ Amazonka.Redshift.ModifySnapshotSchedule: data SnapshotSchedule
+ Amazonka.Redshift.ModifySnapshotSchedule: instance Amazonka.Data.Headers.ToHeaders Amazonka.Redshift.ModifySnapshotSchedule.ModifySnapshotSchedule
+ Amazonka.Redshift.ModifySnapshotSchedule: instance Amazonka.Data.Path.ToPath Amazonka.Redshift.ModifySnapshotSchedule.ModifySnapshotSchedule
+ Amazonka.Redshift.ModifySnapshotSchedule: instance Amazonka.Data.Query.ToQuery Amazonka.Redshift.ModifySnapshotSchedule.ModifySnapshotSchedule
+ Amazonka.Redshift.ModifySnapshotSchedule: instance Amazonka.Types.AWSRequest Amazonka.Redshift.ModifySnapshotSchedule.ModifySnapshotSchedule
+ Amazonka.Redshift.ModifySnapshotSchedule: instance Control.DeepSeq.NFData Amazonka.Redshift.ModifySnapshotSchedule.ModifySnapshotSchedule
+ Amazonka.Redshift.ModifySnapshotSchedule: instance Data.Hashable.Class.Hashable Amazonka.Redshift.ModifySnapshotSchedule.ModifySnapshotSchedule
+ Amazonka.Redshift.ModifySnapshotSchedule: instance GHC.Classes.Eq Amazonka.Redshift.ModifySnapshotSchedule.ModifySnapshotSchedule
+ Amazonka.Redshift.ModifySnapshotSchedule: instance GHC.Generics.Generic Amazonka.Redshift.ModifySnapshotSchedule.ModifySnapshotSchedule
+ Amazonka.Redshift.ModifySnapshotSchedule: instance GHC.Read.Read Amazonka.Redshift.ModifySnapshotSchedule.ModifySnapshotSchedule
+ Amazonka.Redshift.ModifySnapshotSchedule: instance GHC.Show.Show Amazonka.Redshift.ModifySnapshotSchedule.ModifySnapshotSchedule
+ Amazonka.Redshift.ModifySnapshotSchedule: modifySnapshotSchedule_scheduleDefinitions :: Lens' ModifySnapshotSchedule [Text]
+ Amazonka.Redshift.ModifySnapshotSchedule: modifySnapshotSchedule_scheduleIdentifier :: Lens' ModifySnapshotSchedule Text
+ Amazonka.Redshift.ModifySnapshotSchedule: newModifySnapshotSchedule :: Text -> ModifySnapshotSchedule
+ Amazonka.Redshift.ModifySnapshotSchedule: newSnapshotSchedule :: SnapshotSchedule
+ Amazonka.Redshift.ModifySnapshotSchedule: snapshotSchedule_associatedClusterCount :: Lens' SnapshotSchedule (Maybe Int)
+ Amazonka.Redshift.ModifySnapshotSchedule: snapshotSchedule_associatedClusters :: Lens' SnapshotSchedule (Maybe [ClusterAssociatedToSchedule])
+ Amazonka.Redshift.ModifySnapshotSchedule: snapshotSchedule_nextInvocations :: Lens' SnapshotSchedule (Maybe [UTCTime])
+ Amazonka.Redshift.ModifySnapshotSchedule: snapshotSchedule_scheduleDefinitions :: Lens' SnapshotSchedule (Maybe [Text])
+ Amazonka.Redshift.ModifySnapshotSchedule: snapshotSchedule_scheduleDescription :: Lens' SnapshotSchedule (Maybe Text)
+ Amazonka.Redshift.ModifySnapshotSchedule: snapshotSchedule_scheduleIdentifier :: Lens' SnapshotSchedule (Maybe Text)
+ Amazonka.Redshift.ModifySnapshotSchedule: snapshotSchedule_tags :: Lens' SnapshotSchedule (Maybe [Tag])
+ Amazonka.Redshift.ModifyUsageLimit: ModifyUsageLimit' :: Maybe Integer -> Maybe UsageLimitBreachAction -> Text -> ModifyUsageLimit
+ Amazonka.Redshift.ModifyUsageLimit: UsageLimit' :: Maybe Integer -> Maybe UsageLimitBreachAction -> Maybe Text -> Maybe UsageLimitFeatureType -> Maybe UsageLimitLimitType -> Maybe UsageLimitPeriod -> Maybe [Tag] -> Maybe Text -> UsageLimit
+ Amazonka.Redshift.ModifyUsageLimit: [$sel:amount:ModifyUsageLimit'] :: ModifyUsageLimit -> Maybe Integer
+ Amazonka.Redshift.ModifyUsageLimit: [$sel:amount:UsageLimit'] :: UsageLimit -> Maybe Integer
+ Amazonka.Redshift.ModifyUsageLimit: [$sel:breachAction:ModifyUsageLimit'] :: ModifyUsageLimit -> Maybe UsageLimitBreachAction
+ Amazonka.Redshift.ModifyUsageLimit: [$sel:breachAction:UsageLimit'] :: UsageLimit -> Maybe UsageLimitBreachAction
+ Amazonka.Redshift.ModifyUsageLimit: [$sel:clusterIdentifier:UsageLimit'] :: UsageLimit -> Maybe Text
+ Amazonka.Redshift.ModifyUsageLimit: [$sel:featureType:UsageLimit'] :: UsageLimit -> Maybe UsageLimitFeatureType
+ Amazonka.Redshift.ModifyUsageLimit: [$sel:limitType:UsageLimit'] :: UsageLimit -> Maybe UsageLimitLimitType
+ Amazonka.Redshift.ModifyUsageLimit: [$sel:period:UsageLimit'] :: UsageLimit -> Maybe UsageLimitPeriod
+ Amazonka.Redshift.ModifyUsageLimit: [$sel:tags:UsageLimit'] :: UsageLimit -> Maybe [Tag]
+ Amazonka.Redshift.ModifyUsageLimit: [$sel:usageLimitId:ModifyUsageLimit'] :: ModifyUsageLimit -> Text
+ Amazonka.Redshift.ModifyUsageLimit: [$sel:usageLimitId:UsageLimit'] :: UsageLimit -> Maybe Text
+ Amazonka.Redshift.ModifyUsageLimit: data ModifyUsageLimit
+ Amazonka.Redshift.ModifyUsageLimit: data UsageLimit
+ Amazonka.Redshift.ModifyUsageLimit: instance Amazonka.Data.Headers.ToHeaders Amazonka.Redshift.ModifyUsageLimit.ModifyUsageLimit
+ Amazonka.Redshift.ModifyUsageLimit: instance Amazonka.Data.Path.ToPath Amazonka.Redshift.ModifyUsageLimit.ModifyUsageLimit
+ Amazonka.Redshift.ModifyUsageLimit: instance Amazonka.Data.Query.ToQuery Amazonka.Redshift.ModifyUsageLimit.ModifyUsageLimit
+ Amazonka.Redshift.ModifyUsageLimit: instance Amazonka.Types.AWSRequest Amazonka.Redshift.ModifyUsageLimit.ModifyUsageLimit
+ Amazonka.Redshift.ModifyUsageLimit: instance Control.DeepSeq.NFData Amazonka.Redshift.ModifyUsageLimit.ModifyUsageLimit
+ Amazonka.Redshift.ModifyUsageLimit: instance Data.Hashable.Class.Hashable Amazonka.Redshift.ModifyUsageLimit.ModifyUsageLimit
+ Amazonka.Redshift.ModifyUsageLimit: instance GHC.Classes.Eq Amazonka.Redshift.ModifyUsageLimit.ModifyUsageLimit
+ Amazonka.Redshift.ModifyUsageLimit: instance GHC.Generics.Generic Amazonka.Redshift.ModifyUsageLimit.ModifyUsageLimit
+ Amazonka.Redshift.ModifyUsageLimit: instance GHC.Read.Read Amazonka.Redshift.ModifyUsageLimit.ModifyUsageLimit
+ Amazonka.Redshift.ModifyUsageLimit: instance GHC.Show.Show Amazonka.Redshift.ModifyUsageLimit.ModifyUsageLimit
+ Amazonka.Redshift.ModifyUsageLimit: modifyUsageLimit_amount :: Lens' ModifyUsageLimit (Maybe Integer)
+ Amazonka.Redshift.ModifyUsageLimit: modifyUsageLimit_breachAction :: Lens' ModifyUsageLimit (Maybe UsageLimitBreachAction)
+ Amazonka.Redshift.ModifyUsageLimit: modifyUsageLimit_usageLimitId :: Lens' ModifyUsageLimit Text
+ Amazonka.Redshift.ModifyUsageLimit: newModifyUsageLimit :: Text -> ModifyUsageLimit
+ Amazonka.Redshift.ModifyUsageLimit: newUsageLimit :: UsageLimit
+ Amazonka.Redshift.ModifyUsageLimit: usageLimit_amount :: Lens' UsageLimit (Maybe Integer)
+ Amazonka.Redshift.ModifyUsageLimit: usageLimit_breachAction :: Lens' UsageLimit (Maybe UsageLimitBreachAction)
+ Amazonka.Redshift.ModifyUsageLimit: usageLimit_clusterIdentifier :: Lens' UsageLimit (Maybe Text)
+ Amazonka.Redshift.ModifyUsageLimit: usageLimit_featureType :: Lens' UsageLimit (Maybe UsageLimitFeatureType)
+ Amazonka.Redshift.ModifyUsageLimit: usageLimit_limitType :: Lens' UsageLimit (Maybe UsageLimitLimitType)
+ Amazonka.Redshift.ModifyUsageLimit: usageLimit_period :: Lens' UsageLimit (Maybe UsageLimitPeriod)
+ Amazonka.Redshift.ModifyUsageLimit: usageLimit_tags :: Lens' UsageLimit (Maybe [Tag])
+ Amazonka.Redshift.ModifyUsageLimit: usageLimit_usageLimitId :: Lens' UsageLimit (Maybe Text)
+ Amazonka.Redshift.PauseCluster: PauseCluster' :: Text -> PauseCluster
+ Amazonka.Redshift.PauseCluster: PauseClusterResponse' :: Maybe Cluster -> Int -> PauseClusterResponse
+ Amazonka.Redshift.PauseCluster: [$sel:cluster:PauseClusterResponse'] :: PauseClusterResponse -> Maybe Cluster
+ Amazonka.Redshift.PauseCluster: [$sel:clusterIdentifier:PauseCluster'] :: PauseCluster -> Text
+ Amazonka.Redshift.PauseCluster: [$sel:httpStatus:PauseClusterResponse'] :: PauseClusterResponse -> Int
+ Amazonka.Redshift.PauseCluster: data PauseCluster
+ Amazonka.Redshift.PauseCluster: data PauseClusterResponse
+ Amazonka.Redshift.PauseCluster: instance Amazonka.Data.Headers.ToHeaders Amazonka.Redshift.PauseCluster.PauseCluster
+ Amazonka.Redshift.PauseCluster: instance Amazonka.Data.Path.ToPath Amazonka.Redshift.PauseCluster.PauseCluster
+ Amazonka.Redshift.PauseCluster: instance Amazonka.Data.Query.ToQuery Amazonka.Redshift.PauseCluster.PauseCluster
+ Amazonka.Redshift.PauseCluster: instance Amazonka.Types.AWSRequest Amazonka.Redshift.PauseCluster.PauseCluster
+ Amazonka.Redshift.PauseCluster: instance Control.DeepSeq.NFData Amazonka.Redshift.PauseCluster.PauseCluster
+ Amazonka.Redshift.PauseCluster: instance Control.DeepSeq.NFData Amazonka.Redshift.PauseCluster.PauseClusterResponse
+ Amazonka.Redshift.PauseCluster: instance Data.Hashable.Class.Hashable Amazonka.Redshift.PauseCluster.PauseCluster
+ Amazonka.Redshift.PauseCluster: instance GHC.Classes.Eq Amazonka.Redshift.PauseCluster.PauseCluster
+ Amazonka.Redshift.PauseCluster: instance GHC.Classes.Eq Amazonka.Redshift.PauseCluster.PauseClusterResponse
+ Amazonka.Redshift.PauseCluster: instance GHC.Generics.Generic Amazonka.Redshift.PauseCluster.PauseCluster
+ Amazonka.Redshift.PauseCluster: instance GHC.Generics.Generic Amazonka.Redshift.PauseCluster.PauseClusterResponse
+ Amazonka.Redshift.PauseCluster: instance GHC.Read.Read Amazonka.Redshift.PauseCluster.PauseCluster
+ Amazonka.Redshift.PauseCluster: instance GHC.Read.Read Amazonka.Redshift.PauseCluster.PauseClusterResponse
+ Amazonka.Redshift.PauseCluster: instance GHC.Show.Show Amazonka.Redshift.PauseCluster.PauseCluster
+ Amazonka.Redshift.PauseCluster: instance GHC.Show.Show Amazonka.Redshift.PauseCluster.PauseClusterResponse
+ Amazonka.Redshift.PauseCluster: newPauseCluster :: Text -> PauseCluster
+ Amazonka.Redshift.PauseCluster: newPauseClusterResponse :: Int -> PauseClusterResponse
+ Amazonka.Redshift.PauseCluster: pauseClusterResponse_cluster :: Lens' PauseClusterResponse (Maybe Cluster)
+ Amazonka.Redshift.PauseCluster: pauseClusterResponse_httpStatus :: Lens' PauseClusterResponse Int
+ Amazonka.Redshift.PauseCluster: pauseCluster_clusterIdentifier :: Lens' PauseCluster Text
+ Amazonka.Redshift.PurchaseReservedNodeOffering: PurchaseReservedNodeOffering' :: Maybe Int -> Text -> PurchaseReservedNodeOffering
+ Amazonka.Redshift.PurchaseReservedNodeOffering: PurchaseReservedNodeOfferingResponse' :: Maybe ReservedNode -> Int -> PurchaseReservedNodeOfferingResponse
+ Amazonka.Redshift.PurchaseReservedNodeOffering: [$sel:httpStatus:PurchaseReservedNodeOfferingResponse'] :: PurchaseReservedNodeOfferingResponse -> Int
+ Amazonka.Redshift.PurchaseReservedNodeOffering: [$sel:nodeCount:PurchaseReservedNodeOffering'] :: PurchaseReservedNodeOffering -> Maybe Int
+ Amazonka.Redshift.PurchaseReservedNodeOffering: [$sel:reservedNode:PurchaseReservedNodeOfferingResponse'] :: PurchaseReservedNodeOfferingResponse -> Maybe ReservedNode
+ Amazonka.Redshift.PurchaseReservedNodeOffering: [$sel:reservedNodeOfferingId:PurchaseReservedNodeOffering'] :: PurchaseReservedNodeOffering -> Text
+ Amazonka.Redshift.PurchaseReservedNodeOffering: data PurchaseReservedNodeOffering
+ Amazonka.Redshift.PurchaseReservedNodeOffering: data PurchaseReservedNodeOfferingResponse
+ Amazonka.Redshift.PurchaseReservedNodeOffering: instance Amazonka.Data.Headers.ToHeaders Amazonka.Redshift.PurchaseReservedNodeOffering.PurchaseReservedNodeOffering
+ Amazonka.Redshift.PurchaseReservedNodeOffering: instance Amazonka.Data.Path.ToPath Amazonka.Redshift.PurchaseReservedNodeOffering.PurchaseReservedNodeOffering
+ Amazonka.Redshift.PurchaseReservedNodeOffering: instance Amazonka.Data.Query.ToQuery Amazonka.Redshift.PurchaseReservedNodeOffering.PurchaseReservedNodeOffering
+ Amazonka.Redshift.PurchaseReservedNodeOffering: instance Amazonka.Types.AWSRequest Amazonka.Redshift.PurchaseReservedNodeOffering.PurchaseReservedNodeOffering
+ Amazonka.Redshift.PurchaseReservedNodeOffering: instance Control.DeepSeq.NFData Amazonka.Redshift.PurchaseReservedNodeOffering.PurchaseReservedNodeOffering
+ Amazonka.Redshift.PurchaseReservedNodeOffering: instance Control.DeepSeq.NFData Amazonka.Redshift.PurchaseReservedNodeOffering.PurchaseReservedNodeOfferingResponse
+ Amazonka.Redshift.PurchaseReservedNodeOffering: instance Data.Hashable.Class.Hashable Amazonka.Redshift.PurchaseReservedNodeOffering.PurchaseReservedNodeOffering
+ Amazonka.Redshift.PurchaseReservedNodeOffering: instance GHC.Classes.Eq Amazonka.Redshift.PurchaseReservedNodeOffering.PurchaseReservedNodeOffering
+ Amazonka.Redshift.PurchaseReservedNodeOffering: instance GHC.Classes.Eq Amazonka.Redshift.PurchaseReservedNodeOffering.PurchaseReservedNodeOfferingResponse
+ Amazonka.Redshift.PurchaseReservedNodeOffering: instance GHC.Generics.Generic Amazonka.Redshift.PurchaseReservedNodeOffering.PurchaseReservedNodeOffering
+ Amazonka.Redshift.PurchaseReservedNodeOffering: instance GHC.Generics.Generic Amazonka.Redshift.PurchaseReservedNodeOffering.PurchaseReservedNodeOfferingResponse
+ Amazonka.Redshift.PurchaseReservedNodeOffering: instance GHC.Read.Read Amazonka.Redshift.PurchaseReservedNodeOffering.PurchaseReservedNodeOffering
+ Amazonka.Redshift.PurchaseReservedNodeOffering: instance GHC.Read.Read Amazonka.Redshift.PurchaseReservedNodeOffering.PurchaseReservedNodeOfferingResponse
+ Amazonka.Redshift.PurchaseReservedNodeOffering: instance GHC.Show.Show Amazonka.Redshift.PurchaseReservedNodeOffering.PurchaseReservedNodeOffering
+ Amazonka.Redshift.PurchaseReservedNodeOffering: instance GHC.Show.Show Amazonka.Redshift.PurchaseReservedNodeOffering.PurchaseReservedNodeOfferingResponse
+ Amazonka.Redshift.PurchaseReservedNodeOffering: newPurchaseReservedNodeOffering :: Text -> PurchaseReservedNodeOffering
+ Amazonka.Redshift.PurchaseReservedNodeOffering: newPurchaseReservedNodeOfferingResponse :: Int -> PurchaseReservedNodeOfferingResponse
+ Amazonka.Redshift.PurchaseReservedNodeOffering: purchaseReservedNodeOfferingResponse_httpStatus :: Lens' PurchaseReservedNodeOfferingResponse Int
+ Amazonka.Redshift.PurchaseReservedNodeOffering: purchaseReservedNodeOfferingResponse_reservedNode :: Lens' PurchaseReservedNodeOfferingResponse (Maybe ReservedNode)
+ Amazonka.Redshift.PurchaseReservedNodeOffering: purchaseReservedNodeOffering_nodeCount :: Lens' PurchaseReservedNodeOffering (Maybe Int)
+ Amazonka.Redshift.PurchaseReservedNodeOffering: purchaseReservedNodeOffering_reservedNodeOfferingId :: Lens' PurchaseReservedNodeOffering Text
+ Amazonka.Redshift.RebootCluster: RebootCluster' :: Text -> RebootCluster
+ Amazonka.Redshift.RebootCluster: RebootClusterResponse' :: Maybe Cluster -> Int -> RebootClusterResponse
+ Amazonka.Redshift.RebootCluster: [$sel:cluster:RebootClusterResponse'] :: RebootClusterResponse -> Maybe Cluster
+ Amazonka.Redshift.RebootCluster: [$sel:clusterIdentifier:RebootCluster'] :: RebootCluster -> Text
+ Amazonka.Redshift.RebootCluster: [$sel:httpStatus:RebootClusterResponse'] :: RebootClusterResponse -> Int
+ Amazonka.Redshift.RebootCluster: data RebootCluster
+ Amazonka.Redshift.RebootCluster: data RebootClusterResponse
+ Amazonka.Redshift.RebootCluster: instance Amazonka.Data.Headers.ToHeaders Amazonka.Redshift.RebootCluster.RebootCluster
+ Amazonka.Redshift.RebootCluster: instance Amazonka.Data.Path.ToPath Amazonka.Redshift.RebootCluster.RebootCluster
+ Amazonka.Redshift.RebootCluster: instance Amazonka.Data.Query.ToQuery Amazonka.Redshift.RebootCluster.RebootCluster
+ Amazonka.Redshift.RebootCluster: instance Amazonka.Types.AWSRequest Amazonka.Redshift.RebootCluster.RebootCluster
+ Amazonka.Redshift.RebootCluster: instance Control.DeepSeq.NFData Amazonka.Redshift.RebootCluster.RebootCluster
+ Amazonka.Redshift.RebootCluster: instance Control.DeepSeq.NFData Amazonka.Redshift.RebootCluster.RebootClusterResponse
+ Amazonka.Redshift.RebootCluster: instance Data.Hashable.Class.Hashable Amazonka.Redshift.RebootCluster.RebootCluster
+ Amazonka.Redshift.RebootCluster: instance GHC.Classes.Eq Amazonka.Redshift.RebootCluster.RebootCluster
+ Amazonka.Redshift.RebootCluster: instance GHC.Classes.Eq Amazonka.Redshift.RebootCluster.RebootClusterResponse
+ Amazonka.Redshift.RebootCluster: instance GHC.Generics.Generic Amazonka.Redshift.RebootCluster.RebootCluster
+ Amazonka.Redshift.RebootCluster: instance GHC.Generics.Generic Amazonka.Redshift.RebootCluster.RebootClusterResponse
+ Amazonka.Redshift.RebootCluster: instance GHC.Read.Read Amazonka.Redshift.RebootCluster.RebootCluster
+ Amazonka.Redshift.RebootCluster: instance GHC.Read.Read Amazonka.Redshift.RebootCluster.RebootClusterResponse
+ Amazonka.Redshift.RebootCluster: instance GHC.Show.Show Amazonka.Redshift.RebootCluster.RebootCluster
+ Amazonka.Redshift.RebootCluster: instance GHC.Show.Show Amazonka.Redshift.RebootCluster.RebootClusterResponse
+ Amazonka.Redshift.RebootCluster: newRebootCluster :: Text -> RebootCluster
+ Amazonka.Redshift.RebootCluster: newRebootClusterResponse :: Int -> RebootClusterResponse
+ Amazonka.Redshift.RebootCluster: rebootClusterResponse_cluster :: Lens' RebootClusterResponse (Maybe Cluster)
+ Amazonka.Redshift.RebootCluster: rebootClusterResponse_httpStatus :: Lens' RebootClusterResponse Int
+ Amazonka.Redshift.RebootCluster: rebootCluster_clusterIdentifier :: Lens' RebootCluster Text
+ Amazonka.Redshift.RejectDataShare: DataShare' :: Maybe Bool -> Maybe Text -> Maybe [DataShareAssociation] -> Maybe Text -> Maybe Text -> DataShare
+ Amazonka.Redshift.RejectDataShare: RejectDataShare' :: Text -> RejectDataShare
+ Amazonka.Redshift.RejectDataShare: [$sel:allowPubliclyAccessibleConsumers:DataShare'] :: DataShare -> Maybe Bool
+ Amazonka.Redshift.RejectDataShare: [$sel:dataShareArn:DataShare'] :: DataShare -> Maybe Text
+ Amazonka.Redshift.RejectDataShare: [$sel:dataShareArn:RejectDataShare'] :: RejectDataShare -> Text
+ Amazonka.Redshift.RejectDataShare: [$sel:dataShareAssociations:DataShare'] :: DataShare -> Maybe [DataShareAssociation]
+ Amazonka.Redshift.RejectDataShare: [$sel:managedBy:DataShare'] :: DataShare -> Maybe Text
+ Amazonka.Redshift.RejectDataShare: [$sel:producerArn:DataShare'] :: DataShare -> Maybe Text
+ Amazonka.Redshift.RejectDataShare: data DataShare
+ Amazonka.Redshift.RejectDataShare: data RejectDataShare
+ Amazonka.Redshift.RejectDataShare: dataShare_allowPubliclyAccessibleConsumers :: Lens' DataShare (Maybe Bool)
+ Amazonka.Redshift.RejectDataShare: dataShare_dataShareArn :: Lens' DataShare (Maybe Text)
+ Amazonka.Redshift.RejectDataShare: dataShare_dataShareAssociations :: Lens' DataShare (Maybe [DataShareAssociation])
+ Amazonka.Redshift.RejectDataShare: dataShare_managedBy :: Lens' DataShare (Maybe Text)
+ Amazonka.Redshift.RejectDataShare: dataShare_producerArn :: Lens' DataShare (Maybe Text)
+ Amazonka.Redshift.RejectDataShare: instance Amazonka.Data.Headers.ToHeaders Amazonka.Redshift.RejectDataShare.RejectDataShare
+ Amazonka.Redshift.RejectDataShare: instance Amazonka.Data.Path.ToPath Amazonka.Redshift.RejectDataShare.RejectDataShare
+ Amazonka.Redshift.RejectDataShare: instance Amazonka.Data.Query.ToQuery Amazonka.Redshift.RejectDataShare.RejectDataShare
+ Amazonka.Redshift.RejectDataShare: instance Amazonka.Types.AWSRequest Amazonka.Redshift.RejectDataShare.RejectDataShare
+ Amazonka.Redshift.RejectDataShare: instance Control.DeepSeq.NFData Amazonka.Redshift.RejectDataShare.RejectDataShare
+ Amazonka.Redshift.RejectDataShare: instance Data.Hashable.Class.Hashable Amazonka.Redshift.RejectDataShare.RejectDataShare
+ Amazonka.Redshift.RejectDataShare: instance GHC.Classes.Eq Amazonka.Redshift.RejectDataShare.RejectDataShare
+ Amazonka.Redshift.RejectDataShare: instance GHC.Generics.Generic Amazonka.Redshift.RejectDataShare.RejectDataShare
+ Amazonka.Redshift.RejectDataShare: instance GHC.Read.Read Amazonka.Redshift.RejectDataShare.RejectDataShare
+ Amazonka.Redshift.RejectDataShare: instance GHC.Show.Show Amazonka.Redshift.RejectDataShare.RejectDataShare
+ Amazonka.Redshift.RejectDataShare: newDataShare :: DataShare
+ Amazonka.Redshift.RejectDataShare: newRejectDataShare :: Text -> RejectDataShare
+ Amazonka.Redshift.RejectDataShare: rejectDataShare_dataShareArn :: Lens' RejectDataShare Text
+ Amazonka.Redshift.ResetClusterParameterGroup: ClusterParameterGroupNameMessage' :: Maybe Text -> Maybe Text -> ClusterParameterGroupNameMessage
+ Amazonka.Redshift.ResetClusterParameterGroup: ResetClusterParameterGroup' :: Maybe [Parameter] -> Maybe Bool -> Text -> ResetClusterParameterGroup
+ Amazonka.Redshift.ResetClusterParameterGroup: [$sel:parameterGroupName:ClusterParameterGroupNameMessage'] :: ClusterParameterGroupNameMessage -> Maybe Text
+ Amazonka.Redshift.ResetClusterParameterGroup: [$sel:parameterGroupName:ResetClusterParameterGroup'] :: ResetClusterParameterGroup -> Text
+ Amazonka.Redshift.ResetClusterParameterGroup: [$sel:parameterGroupStatus:ClusterParameterGroupNameMessage'] :: ClusterParameterGroupNameMessage -> Maybe Text
+ Amazonka.Redshift.ResetClusterParameterGroup: [$sel:parameters:ResetClusterParameterGroup'] :: ResetClusterParameterGroup -> Maybe [Parameter]
+ Amazonka.Redshift.ResetClusterParameterGroup: [$sel:resetAllParameters:ResetClusterParameterGroup'] :: ResetClusterParameterGroup -> Maybe Bool
+ Amazonka.Redshift.ResetClusterParameterGroup: clusterParameterGroupNameMessage_parameterGroupName :: Lens' ClusterParameterGroupNameMessage (Maybe Text)
+ Amazonka.Redshift.ResetClusterParameterGroup: clusterParameterGroupNameMessage_parameterGroupStatus :: Lens' ClusterParameterGroupNameMessage (Maybe Text)
+ Amazonka.Redshift.ResetClusterParameterGroup: data ClusterParameterGroupNameMessage
+ Amazonka.Redshift.ResetClusterParameterGroup: data ResetClusterParameterGroup
+ Amazonka.Redshift.ResetClusterParameterGroup: instance Amazonka.Data.Headers.ToHeaders Amazonka.Redshift.ResetClusterParameterGroup.ResetClusterParameterGroup
+ Amazonka.Redshift.ResetClusterParameterGroup: instance Amazonka.Data.Path.ToPath Amazonka.Redshift.ResetClusterParameterGroup.ResetClusterParameterGroup
+ Amazonka.Redshift.ResetClusterParameterGroup: instance Amazonka.Data.Query.ToQuery Amazonka.Redshift.ResetClusterParameterGroup.ResetClusterParameterGroup
+ Amazonka.Redshift.ResetClusterParameterGroup: instance Amazonka.Types.AWSRequest Amazonka.Redshift.ResetClusterParameterGroup.ResetClusterParameterGroup
+ Amazonka.Redshift.ResetClusterParameterGroup: instance Control.DeepSeq.NFData Amazonka.Redshift.ResetClusterParameterGroup.ResetClusterParameterGroup
+ Amazonka.Redshift.ResetClusterParameterGroup: instance Data.Hashable.Class.Hashable Amazonka.Redshift.ResetClusterParameterGroup.ResetClusterParameterGroup
+ Amazonka.Redshift.ResetClusterParameterGroup: instance GHC.Classes.Eq Amazonka.Redshift.ResetClusterParameterGroup.ResetClusterParameterGroup
+ Amazonka.Redshift.ResetClusterParameterGroup: instance GHC.Generics.Generic Amazonka.Redshift.ResetClusterParameterGroup.ResetClusterParameterGroup
+ Amazonka.Redshift.ResetClusterParameterGroup: instance GHC.Read.Read Amazonka.Redshift.ResetClusterParameterGroup.ResetClusterParameterGroup
+ Amazonka.Redshift.ResetClusterParameterGroup: instance GHC.Show.Show Amazonka.Redshift.ResetClusterParameterGroup.ResetClusterParameterGroup
+ Amazonka.Redshift.ResetClusterParameterGroup: newClusterParameterGroupNameMessage :: ClusterParameterGroupNameMessage
+ Amazonka.Redshift.ResetClusterParameterGroup: newResetClusterParameterGroup :: Text -> ResetClusterParameterGroup
+ Amazonka.Redshift.ResetClusterParameterGroup: resetClusterParameterGroup_parameterGroupName :: Lens' ResetClusterParameterGroup Text
+ Amazonka.Redshift.ResetClusterParameterGroup: resetClusterParameterGroup_parameters :: Lens' ResetClusterParameterGroup (Maybe [Parameter])
+ Amazonka.Redshift.ResetClusterParameterGroup: resetClusterParameterGroup_resetAllParameters :: Lens' ResetClusterParameterGroup (Maybe Bool)
+ Amazonka.Redshift.ResizeCluster: ResizeCluster' :: Maybe Bool -> Maybe Text -> Maybe Text -> Maybe Int -> Maybe Text -> Maybe Text -> Text -> ResizeCluster
+ Amazonka.Redshift.ResizeCluster: ResizeClusterResponse' :: Maybe Cluster -> Int -> ResizeClusterResponse
+ Amazonka.Redshift.ResizeCluster: [$sel:classic:ResizeCluster'] :: ResizeCluster -> Maybe Bool
+ Amazonka.Redshift.ResizeCluster: [$sel:cluster:ResizeClusterResponse'] :: ResizeClusterResponse -> Maybe Cluster
+ Amazonka.Redshift.ResizeCluster: [$sel:clusterIdentifier:ResizeCluster'] :: ResizeCluster -> Text
+ Amazonka.Redshift.ResizeCluster: [$sel:clusterType:ResizeCluster'] :: ResizeCluster -> Maybe Text
+ Amazonka.Redshift.ResizeCluster: [$sel:httpStatus:ResizeClusterResponse'] :: ResizeClusterResponse -> Int
+ Amazonka.Redshift.ResizeCluster: [$sel:nodeType:ResizeCluster'] :: ResizeCluster -> Maybe Text
+ Amazonka.Redshift.ResizeCluster: [$sel:numberOfNodes:ResizeCluster'] :: ResizeCluster -> Maybe Int
+ Amazonka.Redshift.ResizeCluster: [$sel:reservedNodeId:ResizeCluster'] :: ResizeCluster -> Maybe Text
+ Amazonka.Redshift.ResizeCluster: [$sel:targetReservedNodeOfferingId:ResizeCluster'] :: ResizeCluster -> Maybe Text
+ Amazonka.Redshift.ResizeCluster: data ResizeCluster
+ Amazonka.Redshift.ResizeCluster: data ResizeClusterResponse
+ Amazonka.Redshift.ResizeCluster: instance Amazonka.Data.Headers.ToHeaders Amazonka.Redshift.ResizeCluster.ResizeCluster
+ Amazonka.Redshift.ResizeCluster: instance Amazonka.Data.Path.ToPath Amazonka.Redshift.ResizeCluster.ResizeCluster
+ Amazonka.Redshift.ResizeCluster: instance Amazonka.Data.Query.ToQuery Amazonka.Redshift.ResizeCluster.ResizeCluster
+ Amazonka.Redshift.ResizeCluster: instance Amazonka.Types.AWSRequest Amazonka.Redshift.ResizeCluster.ResizeCluster
+ Amazonka.Redshift.ResizeCluster: instance Control.DeepSeq.NFData Amazonka.Redshift.ResizeCluster.ResizeCluster
+ Amazonka.Redshift.ResizeCluster: instance Control.DeepSeq.NFData Amazonka.Redshift.ResizeCluster.ResizeClusterResponse
+ Amazonka.Redshift.ResizeCluster: instance Data.Hashable.Class.Hashable Amazonka.Redshift.ResizeCluster.ResizeCluster
+ Amazonka.Redshift.ResizeCluster: instance GHC.Classes.Eq Amazonka.Redshift.ResizeCluster.ResizeCluster
+ Amazonka.Redshift.ResizeCluster: instance GHC.Classes.Eq Amazonka.Redshift.ResizeCluster.ResizeClusterResponse
+ Amazonka.Redshift.ResizeCluster: instance GHC.Generics.Generic Amazonka.Redshift.ResizeCluster.ResizeCluster
+ Amazonka.Redshift.ResizeCluster: instance GHC.Generics.Generic Amazonka.Redshift.ResizeCluster.ResizeClusterResponse
+ Amazonka.Redshift.ResizeCluster: instance GHC.Read.Read Amazonka.Redshift.ResizeCluster.ResizeCluster
+ Amazonka.Redshift.ResizeCluster: instance GHC.Read.Read Amazonka.Redshift.ResizeCluster.ResizeClusterResponse
+ Amazonka.Redshift.ResizeCluster: instance GHC.Show.Show Amazonka.Redshift.ResizeCluster.ResizeCluster
+ Amazonka.Redshift.ResizeCluster: instance GHC.Show.Show Amazonka.Redshift.ResizeCluster.ResizeClusterResponse
+ Amazonka.Redshift.ResizeCluster: newResizeCluster :: Text -> ResizeCluster
+ Amazonka.Redshift.ResizeCluster: newResizeClusterResponse :: Int -> ResizeClusterResponse
+ Amazonka.Redshift.ResizeCluster: resizeClusterResponse_cluster :: Lens' ResizeClusterResponse (Maybe Cluster)
+ Amazonka.Redshift.ResizeCluster: resizeClusterResponse_httpStatus :: Lens' ResizeClusterResponse Int
+ Amazonka.Redshift.ResizeCluster: resizeCluster_classic :: Lens' ResizeCluster (Maybe Bool)
+ Amazonka.Redshift.ResizeCluster: resizeCluster_clusterIdentifier :: Lens' ResizeCluster Text
+ Amazonka.Redshift.ResizeCluster: resizeCluster_clusterType :: Lens' ResizeCluster (Maybe Text)
+ Amazonka.Redshift.ResizeCluster: resizeCluster_nodeType :: Lens' ResizeCluster (Maybe Text)
+ Amazonka.Redshift.ResizeCluster: resizeCluster_numberOfNodes :: Lens' ResizeCluster (Maybe Int)
+ Amazonka.Redshift.ResizeCluster: resizeCluster_reservedNodeId :: Lens' ResizeCluster (Maybe Text)
+ Amazonka.Redshift.ResizeCluster: resizeCluster_targetReservedNodeOfferingId :: Lens' ResizeCluster (Maybe Text)
+ Amazonka.Redshift.RestoreFromClusterSnapshot: RestoreFromClusterSnapshot' :: Maybe Text -> Maybe Bool -> Maybe AquaConfigurationStatus -> Maybe Int -> Maybe Text -> Maybe Bool -> Maybe Text -> Maybe [Text] -> Maybe Text -> Maybe Text -> Maybe Text -> Maybe Bool -> Maybe Bool -> Maybe Text -> Maybe Text -> Maybe [Text] -> Maybe Text -> Maybe Text -> Maybe Int -> Maybe Text -> Maybe Int -> Maybe Text -> Maybe Int -> Maybe Text -> Maybe Bool -> Maybe Text -> Maybe Text -> Maybe Text -> Maybe Text -> Maybe Text -> Maybe Text -> Maybe [Text] -> Text -> RestoreFromClusterSnapshot
+ Amazonka.Redshift.RestoreFromClusterSnapshot: RestoreFromClusterSnapshotResponse' :: Maybe Cluster -> Int -> RestoreFromClusterSnapshotResponse
+ Amazonka.Redshift.RestoreFromClusterSnapshot: [$sel:additionalInfo:RestoreFromClusterSnapshot'] :: RestoreFromClusterSnapshot -> Maybe Text
+ Amazonka.Redshift.RestoreFromClusterSnapshot: [$sel:allowVersionUpgrade:RestoreFromClusterSnapshot'] :: RestoreFromClusterSnapshot -> Maybe Bool
+ Amazonka.Redshift.RestoreFromClusterSnapshot: [$sel:aquaConfigurationStatus:RestoreFromClusterSnapshot'] :: RestoreFromClusterSnapshot -> Maybe AquaConfigurationStatus
+ Amazonka.Redshift.RestoreFromClusterSnapshot: [$sel:automatedSnapshotRetentionPeriod:RestoreFromClusterSnapshot'] :: RestoreFromClusterSnapshot -> Maybe Int
+ Amazonka.Redshift.RestoreFromClusterSnapshot: [$sel:availabilityZone:RestoreFromClusterSnapshot'] :: RestoreFromClusterSnapshot -> Maybe Text
+ Amazonka.Redshift.RestoreFromClusterSnapshot: [$sel:availabilityZoneRelocation:RestoreFromClusterSnapshot'] :: RestoreFromClusterSnapshot -> Maybe Bool
+ Amazonka.Redshift.RestoreFromClusterSnapshot: [$sel:cluster:RestoreFromClusterSnapshotResponse'] :: RestoreFromClusterSnapshotResponse -> Maybe Cluster
+ Amazonka.Redshift.RestoreFromClusterSnapshot: [$sel:clusterIdentifier:RestoreFromClusterSnapshot'] :: RestoreFromClusterSnapshot -> Text
+ Amazonka.Redshift.RestoreFromClusterSnapshot: [$sel:clusterParameterGroupName:RestoreFromClusterSnapshot'] :: RestoreFromClusterSnapshot -> Maybe Text
+ Amazonka.Redshift.RestoreFromClusterSnapshot: [$sel:clusterSecurityGroups:RestoreFromClusterSnapshot'] :: RestoreFromClusterSnapshot -> Maybe [Text]
+ Amazonka.Redshift.RestoreFromClusterSnapshot: [$sel:clusterSubnetGroupName:RestoreFromClusterSnapshot'] :: RestoreFromClusterSnapshot -> Maybe Text
+ Amazonka.Redshift.RestoreFromClusterSnapshot: [$sel:defaultIamRoleArn:RestoreFromClusterSnapshot'] :: RestoreFromClusterSnapshot -> Maybe Text
+ Amazonka.Redshift.RestoreFromClusterSnapshot: [$sel:elasticIp:RestoreFromClusterSnapshot'] :: RestoreFromClusterSnapshot -> Maybe Text
+ Amazonka.Redshift.RestoreFromClusterSnapshot: [$sel:encrypted:RestoreFromClusterSnapshot'] :: RestoreFromClusterSnapshot -> Maybe Bool
+ Amazonka.Redshift.RestoreFromClusterSnapshot: [$sel:enhancedVpcRouting:RestoreFromClusterSnapshot'] :: RestoreFromClusterSnapshot -> Maybe Bool
+ Amazonka.Redshift.RestoreFromClusterSnapshot: [$sel:hsmClientCertificateIdentifier:RestoreFromClusterSnapshot'] :: RestoreFromClusterSnapshot -> Maybe Text
+ Amazonka.Redshift.RestoreFromClusterSnapshot: [$sel:hsmConfigurationIdentifier:RestoreFromClusterSnapshot'] :: RestoreFromClusterSnapshot -> Maybe Text
+ Amazonka.Redshift.RestoreFromClusterSnapshot: [$sel:httpStatus:RestoreFromClusterSnapshotResponse'] :: RestoreFromClusterSnapshotResponse -> Int
+ Amazonka.Redshift.RestoreFromClusterSnapshot: [$sel:iamRoles:RestoreFromClusterSnapshot'] :: RestoreFromClusterSnapshot -> Maybe [Text]
+ Amazonka.Redshift.RestoreFromClusterSnapshot: [$sel:kmsKeyId:RestoreFromClusterSnapshot'] :: RestoreFromClusterSnapshot -> Maybe Text
+ Amazonka.Redshift.RestoreFromClusterSnapshot: [$sel:maintenanceTrackName:RestoreFromClusterSnapshot'] :: RestoreFromClusterSnapshot -> Maybe Text
+ Amazonka.Redshift.RestoreFromClusterSnapshot: [$sel:manualSnapshotRetentionPeriod:RestoreFromClusterSnapshot'] :: RestoreFromClusterSnapshot -> Maybe Int
+ Amazonka.Redshift.RestoreFromClusterSnapshot: [$sel:nodeType:RestoreFromClusterSnapshot'] :: RestoreFromClusterSnapshot -> Maybe Text
+ Amazonka.Redshift.RestoreFromClusterSnapshot: [$sel:numberOfNodes:RestoreFromClusterSnapshot'] :: RestoreFromClusterSnapshot -> Maybe Int
+ Amazonka.Redshift.RestoreFromClusterSnapshot: [$sel:ownerAccount:RestoreFromClusterSnapshot'] :: RestoreFromClusterSnapshot -> Maybe Text
+ Amazonka.Redshift.RestoreFromClusterSnapshot: [$sel:port:RestoreFromClusterSnapshot'] :: RestoreFromClusterSnapshot -> Maybe Int
+ Amazonka.Redshift.RestoreFromClusterSnapshot: [$sel:preferredMaintenanceWindow:RestoreFromClusterSnapshot'] :: RestoreFromClusterSnapshot -> Maybe Text
+ Amazonka.Redshift.RestoreFromClusterSnapshot: [$sel:publiclyAccessible:RestoreFromClusterSnapshot'] :: RestoreFromClusterSnapshot -> Maybe Bool
+ Amazonka.Redshift.RestoreFromClusterSnapshot: [$sel:reservedNodeId:RestoreFromClusterSnapshot'] :: RestoreFromClusterSnapshot -> Maybe Text
+ Amazonka.Redshift.RestoreFromClusterSnapshot: [$sel:snapshotArn:RestoreFromClusterSnapshot'] :: RestoreFromClusterSnapshot -> Maybe Text
+ Amazonka.Redshift.RestoreFromClusterSnapshot: [$sel:snapshotClusterIdentifier:RestoreFromClusterSnapshot'] :: RestoreFromClusterSnapshot -> Maybe Text
+ Amazonka.Redshift.RestoreFromClusterSnapshot: [$sel:snapshotIdentifier:RestoreFromClusterSnapshot'] :: RestoreFromClusterSnapshot -> Maybe Text
+ Amazonka.Redshift.RestoreFromClusterSnapshot: [$sel:snapshotScheduleIdentifier:RestoreFromClusterSnapshot'] :: RestoreFromClusterSnapshot -> Maybe Text
+ Amazonka.Redshift.RestoreFromClusterSnapshot: [$sel:targetReservedNodeOfferingId:RestoreFromClusterSnapshot'] :: RestoreFromClusterSnapshot -> Maybe Text
+ Amazonka.Redshift.RestoreFromClusterSnapshot: [$sel:vpcSecurityGroupIds:RestoreFromClusterSnapshot'] :: RestoreFromClusterSnapshot -> Maybe [Text]
+ Amazonka.Redshift.RestoreFromClusterSnapshot: data RestoreFromClusterSnapshot
+ Amazonka.Redshift.RestoreFromClusterSnapshot: data RestoreFromClusterSnapshotResponse
+ Amazonka.Redshift.RestoreFromClusterSnapshot: instance Amazonka.Data.Headers.ToHeaders Amazonka.Redshift.RestoreFromClusterSnapshot.RestoreFromClusterSnapshot
+ Amazonka.Redshift.RestoreFromClusterSnapshot: instance Amazonka.Data.Path.ToPath Amazonka.Redshift.RestoreFromClusterSnapshot.RestoreFromClusterSnapshot
+ Amazonka.Redshift.RestoreFromClusterSnapshot: instance Amazonka.Data.Query.ToQuery Amazonka.Redshift.RestoreFromClusterSnapshot.RestoreFromClusterSnapshot
+ Amazonka.Redshift.RestoreFromClusterSnapshot: instance Amazonka.Types.AWSRequest Amazonka.Redshift.RestoreFromClusterSnapshot.RestoreFromClusterSnapshot
+ Amazonka.Redshift.RestoreFromClusterSnapshot: instance Control.DeepSeq.NFData Amazonka.Redshift.RestoreFromClusterSnapshot.RestoreFromClusterSnapshot
+ Amazonka.Redshift.RestoreFromClusterSnapshot: instance Control.DeepSeq.NFData Amazonka.Redshift.RestoreFromClusterSnapshot.RestoreFromClusterSnapshotResponse
+ Amazonka.Redshift.RestoreFromClusterSnapshot: instance Data.Hashable.Class.Hashable Amazonka.Redshift.RestoreFromClusterSnapshot.RestoreFromClusterSnapshot
+ Amazonka.Redshift.RestoreFromClusterSnapshot: instance GHC.Classes.Eq Amazonka.Redshift.RestoreFromClusterSnapshot.RestoreFromClusterSnapshot
+ Amazonka.Redshift.RestoreFromClusterSnapshot: instance GHC.Classes.Eq Amazonka.Redshift.RestoreFromClusterSnapshot.RestoreFromClusterSnapshotResponse
+ Amazonka.Redshift.RestoreFromClusterSnapshot: instance GHC.Generics.Generic Amazonka.Redshift.RestoreFromClusterSnapshot.RestoreFromClusterSnapshot
+ Amazonka.Redshift.RestoreFromClusterSnapshot: instance GHC.Generics.Generic Amazonka.Redshift.RestoreFromClusterSnapshot.RestoreFromClusterSnapshotResponse
+ Amazonka.Redshift.RestoreFromClusterSnapshot: instance GHC.Read.Read Amazonka.Redshift.RestoreFromClusterSnapshot.RestoreFromClusterSnapshot
+ Amazonka.Redshift.RestoreFromClusterSnapshot: instance GHC.Read.Read Amazonka.Redshift.RestoreFromClusterSnapshot.RestoreFromClusterSnapshotResponse
+ Amazonka.Redshift.RestoreFromClusterSnapshot: instance GHC.Show.Show Amazonka.Redshift.RestoreFromClusterSnapshot.RestoreFromClusterSnapshot
+ Amazonka.Redshift.RestoreFromClusterSnapshot: instance GHC.Show.Show Amazonka.Redshift.RestoreFromClusterSnapshot.RestoreFromClusterSnapshotResponse
+ Amazonka.Redshift.RestoreFromClusterSnapshot: newRestoreFromClusterSnapshot :: Text -> RestoreFromClusterSnapshot
+ Amazonka.Redshift.RestoreFromClusterSnapshot: newRestoreFromClusterSnapshotResponse :: Int -> RestoreFromClusterSnapshotResponse
+ Amazonka.Redshift.RestoreFromClusterSnapshot: restoreFromClusterSnapshotResponse_cluster :: Lens' RestoreFromClusterSnapshotResponse (Maybe Cluster)
+ Amazonka.Redshift.RestoreFromClusterSnapshot: restoreFromClusterSnapshotResponse_httpStatus :: Lens' RestoreFromClusterSnapshotResponse Int
+ Amazonka.Redshift.RestoreFromClusterSnapshot: restoreFromClusterSnapshot_additionalInfo :: Lens' RestoreFromClusterSnapshot (Maybe Text)
+ Amazonka.Redshift.RestoreFromClusterSnapshot: restoreFromClusterSnapshot_allowVersionUpgrade :: Lens' RestoreFromClusterSnapshot (Maybe Bool)
+ Amazonka.Redshift.RestoreFromClusterSnapshot: restoreFromClusterSnapshot_aquaConfigurationStatus :: Lens' RestoreFromClusterSnapshot (Maybe AquaConfigurationStatus)
+ Amazonka.Redshift.RestoreFromClusterSnapshot: restoreFromClusterSnapshot_automatedSnapshotRetentionPeriod :: Lens' RestoreFromClusterSnapshot (Maybe Int)
+ Amazonka.Redshift.RestoreFromClusterSnapshot: restoreFromClusterSnapshot_availabilityZone :: Lens' RestoreFromClusterSnapshot (Maybe Text)
+ Amazonka.Redshift.RestoreFromClusterSnapshot: restoreFromClusterSnapshot_availabilityZoneRelocation :: Lens' RestoreFromClusterSnapshot (Maybe Bool)
+ Amazonka.Redshift.RestoreFromClusterSnapshot: restoreFromClusterSnapshot_clusterIdentifier :: Lens' RestoreFromClusterSnapshot Text
+ Amazonka.Redshift.RestoreFromClusterSnapshot: restoreFromClusterSnapshot_clusterParameterGroupName :: Lens' RestoreFromClusterSnapshot (Maybe Text)
+ Amazonka.Redshift.RestoreFromClusterSnapshot: restoreFromClusterSnapshot_clusterSecurityGroups :: Lens' RestoreFromClusterSnapshot (Maybe [Text])
+ Amazonka.Redshift.RestoreFromClusterSnapshot: restoreFromClusterSnapshot_clusterSubnetGroupName :: Lens' RestoreFromClusterSnapshot (Maybe Text)
+ Amazonka.Redshift.RestoreFromClusterSnapshot: restoreFromClusterSnapshot_defaultIamRoleArn :: Lens' RestoreFromClusterSnapshot (Maybe Text)
+ Amazonka.Redshift.RestoreFromClusterSnapshot: restoreFromClusterSnapshot_elasticIp :: Lens' RestoreFromClusterSnapshot (Maybe Text)
+ Amazonka.Redshift.RestoreFromClusterSnapshot: restoreFromClusterSnapshot_encrypted :: Lens' RestoreFromClusterSnapshot (Maybe Bool)
+ Amazonka.Redshift.RestoreFromClusterSnapshot: restoreFromClusterSnapshot_enhancedVpcRouting :: Lens' RestoreFromClusterSnapshot (Maybe Bool)
+ Amazonka.Redshift.RestoreFromClusterSnapshot: restoreFromClusterSnapshot_hsmClientCertificateIdentifier :: Lens' RestoreFromClusterSnapshot (Maybe Text)
+ Amazonka.Redshift.RestoreFromClusterSnapshot: restoreFromClusterSnapshot_hsmConfigurationIdentifier :: Lens' RestoreFromClusterSnapshot (Maybe Text)
+ Amazonka.Redshift.RestoreFromClusterSnapshot: restoreFromClusterSnapshot_iamRoles :: Lens' RestoreFromClusterSnapshot (Maybe [Text])
+ Amazonka.Redshift.RestoreFromClusterSnapshot: restoreFromClusterSnapshot_kmsKeyId :: Lens' RestoreFromClusterSnapshot (Maybe Text)
+ Amazonka.Redshift.RestoreFromClusterSnapshot: restoreFromClusterSnapshot_maintenanceTrackName :: Lens' RestoreFromClusterSnapshot (Maybe Text)
+ Amazonka.Redshift.RestoreFromClusterSnapshot: restoreFromClusterSnapshot_manualSnapshotRetentionPeriod :: Lens' RestoreFromClusterSnapshot (Maybe Int)
+ Amazonka.Redshift.RestoreFromClusterSnapshot: restoreFromClusterSnapshot_nodeType :: Lens' RestoreFromClusterSnapshot (Maybe Text)
+ Amazonka.Redshift.RestoreFromClusterSnapshot: restoreFromClusterSnapshot_numberOfNodes :: Lens' RestoreFromClusterSnapshot (Maybe Int)
+ Amazonka.Redshift.RestoreFromClusterSnapshot: restoreFromClusterSnapshot_ownerAccount :: Lens' RestoreFromClusterSnapshot (Maybe Text)
+ Amazonka.Redshift.RestoreFromClusterSnapshot: restoreFromClusterSnapshot_port :: Lens' RestoreFromClusterSnapshot (Maybe Int)
+ Amazonka.Redshift.RestoreFromClusterSnapshot: restoreFromClusterSnapshot_preferredMaintenanceWindow :: Lens' RestoreFromClusterSnapshot (Maybe Text)
+ Amazonka.Redshift.RestoreFromClusterSnapshot: restoreFromClusterSnapshot_publiclyAccessible :: Lens' RestoreFromClusterSnapshot (Maybe Bool)
+ Amazonka.Redshift.RestoreFromClusterSnapshot: restoreFromClusterSnapshot_reservedNodeId :: Lens' RestoreFromClusterSnapshot (Maybe Text)
+ Amazonka.Redshift.RestoreFromClusterSnapshot: restoreFromClusterSnapshot_snapshotArn :: Lens' RestoreFromClusterSnapshot (Maybe Text)
+ Amazonka.Redshift.RestoreFromClusterSnapshot: restoreFromClusterSnapshot_snapshotClusterIdentifier :: Lens' RestoreFromClusterSnapshot (Maybe Text)
+ Amazonka.Redshift.RestoreFromClusterSnapshot: restoreFromClusterSnapshot_snapshotIdentifier :: Lens' RestoreFromClusterSnapshot (Maybe Text)
+ Amazonka.Redshift.RestoreFromClusterSnapshot: restoreFromClusterSnapshot_snapshotScheduleIdentifier :: Lens' RestoreFromClusterSnapshot (Maybe Text)
+ Amazonka.Redshift.RestoreFromClusterSnapshot: restoreFromClusterSnapshot_targetReservedNodeOfferingId :: Lens' RestoreFromClusterSnapshot (Maybe Text)
+ Amazonka.Redshift.RestoreFromClusterSnapshot: restoreFromClusterSnapshot_vpcSecurityGroupIds :: Lens' RestoreFromClusterSnapshot (Maybe [Text])
+ Amazonka.Redshift.RestoreTableFromClusterSnapshot: RestoreTableFromClusterSnapshot' :: Maybe Bool -> Maybe Text -> Maybe Text -> Maybe Text -> Text -> Text -> Text -> Text -> Text -> RestoreTableFromClusterSnapshot
+ Amazonka.Redshift.RestoreTableFromClusterSnapshot: RestoreTableFromClusterSnapshotResponse' :: Maybe TableRestoreStatus -> Int -> RestoreTableFromClusterSnapshotResponse
+ Amazonka.Redshift.RestoreTableFromClusterSnapshot: [$sel:clusterIdentifier:RestoreTableFromClusterSnapshot'] :: RestoreTableFromClusterSnapshot -> Text
+ Amazonka.Redshift.RestoreTableFromClusterSnapshot: [$sel:enableCaseSensitiveIdentifier:RestoreTableFromClusterSnapshot'] :: RestoreTableFromClusterSnapshot -> Maybe Bool
+ Amazonka.Redshift.RestoreTableFromClusterSnapshot: [$sel:httpStatus:RestoreTableFromClusterSnapshotResponse'] :: RestoreTableFromClusterSnapshotResponse -> Int
+ Amazonka.Redshift.RestoreTableFromClusterSnapshot: [$sel:newTableName':RestoreTableFromClusterSnapshot'] :: RestoreTableFromClusterSnapshot -> Text
+ Amazonka.Redshift.RestoreTableFromClusterSnapshot: [$sel:snapshotIdentifier:RestoreTableFromClusterSnapshot'] :: RestoreTableFromClusterSnapshot -> Text
+ Amazonka.Redshift.RestoreTableFromClusterSnapshot: [$sel:sourceDatabaseName:RestoreTableFromClusterSnapshot'] :: RestoreTableFromClusterSnapshot -> Text
+ Amazonka.Redshift.RestoreTableFromClusterSnapshot: [$sel:sourceSchemaName:RestoreTableFromClusterSnapshot'] :: RestoreTableFromClusterSnapshot -> Maybe Text
+ Amazonka.Redshift.RestoreTableFromClusterSnapshot: [$sel:sourceTableName:RestoreTableFromClusterSnapshot'] :: RestoreTableFromClusterSnapshot -> Text
+ Amazonka.Redshift.RestoreTableFromClusterSnapshot: [$sel:tableRestoreStatus:RestoreTableFromClusterSnapshotResponse'] :: RestoreTableFromClusterSnapshotResponse -> Maybe TableRestoreStatus
+ Amazonka.Redshift.RestoreTableFromClusterSnapshot: [$sel:targetDatabaseName:RestoreTableFromClusterSnapshot'] :: RestoreTableFromClusterSnapshot -> Maybe Text
+ Amazonka.Redshift.RestoreTableFromClusterSnapshot: [$sel:targetSchemaName:RestoreTableFromClusterSnapshot'] :: RestoreTableFromClusterSnapshot -> Maybe Text
+ Amazonka.Redshift.RestoreTableFromClusterSnapshot: data RestoreTableFromClusterSnapshot
+ Amazonka.Redshift.RestoreTableFromClusterSnapshot: data RestoreTableFromClusterSnapshotResponse
+ Amazonka.Redshift.RestoreTableFromClusterSnapshot: instance Amazonka.Data.Headers.ToHeaders Amazonka.Redshift.RestoreTableFromClusterSnapshot.RestoreTableFromClusterSnapshot
+ Amazonka.Redshift.RestoreTableFromClusterSnapshot: instance Amazonka.Data.Path.ToPath Amazonka.Redshift.RestoreTableFromClusterSnapshot.RestoreTableFromClusterSnapshot
+ Amazonka.Redshift.RestoreTableFromClusterSnapshot: instance Amazonka.Data.Query.ToQuery Amazonka.Redshift.RestoreTableFromClusterSnapshot.RestoreTableFromClusterSnapshot
+ Amazonka.Redshift.RestoreTableFromClusterSnapshot: instance Amazonka.Types.AWSRequest Amazonka.Redshift.RestoreTableFromClusterSnapshot.RestoreTableFromClusterSnapshot
+ Amazonka.Redshift.RestoreTableFromClusterSnapshot: instance Control.DeepSeq.NFData Amazonka.Redshift.RestoreTableFromClusterSnapshot.RestoreTableFromClusterSnapshot
+ Amazonka.Redshift.RestoreTableFromClusterSnapshot: instance Control.DeepSeq.NFData Amazonka.Redshift.RestoreTableFromClusterSnapshot.RestoreTableFromClusterSnapshotResponse
+ Amazonka.Redshift.RestoreTableFromClusterSnapshot: instance Data.Hashable.Class.Hashable Amazonka.Redshift.RestoreTableFromClusterSnapshot.RestoreTableFromClusterSnapshot
+ Amazonka.Redshift.RestoreTableFromClusterSnapshot: instance GHC.Classes.Eq Amazonka.Redshift.RestoreTableFromClusterSnapshot.RestoreTableFromClusterSnapshot
+ Amazonka.Redshift.RestoreTableFromClusterSnapshot: instance GHC.Classes.Eq Amazonka.Redshift.RestoreTableFromClusterSnapshot.RestoreTableFromClusterSnapshotResponse
+ Amazonka.Redshift.RestoreTableFromClusterSnapshot: instance GHC.Generics.Generic Amazonka.Redshift.RestoreTableFromClusterSnapshot.RestoreTableFromClusterSnapshot
+ Amazonka.Redshift.RestoreTableFromClusterSnapshot: instance GHC.Generics.Generic Amazonka.Redshift.RestoreTableFromClusterSnapshot.RestoreTableFromClusterSnapshotResponse
+ Amazonka.Redshift.RestoreTableFromClusterSnapshot: instance GHC.Read.Read Amazonka.Redshift.RestoreTableFromClusterSnapshot.RestoreTableFromClusterSnapshot
+ Amazonka.Redshift.RestoreTableFromClusterSnapshot: instance GHC.Read.Read Amazonka.Redshift.RestoreTableFromClusterSnapshot.RestoreTableFromClusterSnapshotResponse
+ Amazonka.Redshift.RestoreTableFromClusterSnapshot: instance GHC.Show.Show Amazonka.Redshift.RestoreTableFromClusterSnapshot.RestoreTableFromClusterSnapshot
+ Amazonka.Redshift.RestoreTableFromClusterSnapshot: instance GHC.Show.Show Amazonka.Redshift.RestoreTableFromClusterSnapshot.RestoreTableFromClusterSnapshotResponse
+ Amazonka.Redshift.RestoreTableFromClusterSnapshot: newRestoreTableFromClusterSnapshot :: Text -> Text -> Text -> Text -> Text -> RestoreTableFromClusterSnapshot
+ Amazonka.Redshift.RestoreTableFromClusterSnapshot: newRestoreTableFromClusterSnapshotResponse :: Int -> RestoreTableFromClusterSnapshotResponse
+ Amazonka.Redshift.RestoreTableFromClusterSnapshot: restoreTableFromClusterSnapshotResponse_httpStatus :: Lens' RestoreTableFromClusterSnapshotResponse Int
+ Amazonka.Redshift.RestoreTableFromClusterSnapshot: restoreTableFromClusterSnapshotResponse_tableRestoreStatus :: Lens' RestoreTableFromClusterSnapshotResponse (Maybe TableRestoreStatus)
+ Amazonka.Redshift.RestoreTableFromClusterSnapshot: restoreTableFromClusterSnapshot_clusterIdentifier :: Lens' RestoreTableFromClusterSnapshot Text
+ Amazonka.Redshift.RestoreTableFromClusterSnapshot: restoreTableFromClusterSnapshot_enableCaseSensitiveIdentifier :: Lens' RestoreTableFromClusterSnapshot (Maybe Bool)
+ Amazonka.Redshift.RestoreTableFromClusterSnapshot: restoreTableFromClusterSnapshot_newTableName :: Lens' RestoreTableFromClusterSnapshot Text
+ Amazonka.Redshift.RestoreTableFromClusterSnapshot: restoreTableFromClusterSnapshot_snapshotIdentifier :: Lens' RestoreTableFromClusterSnapshot Text
+ Amazonka.Redshift.RestoreTableFromClusterSnapshot: restoreTableFromClusterSnapshot_sourceDatabaseName :: Lens' RestoreTableFromClusterSnapshot Text
+ Amazonka.Redshift.RestoreTableFromClusterSnapshot: restoreTableFromClusterSnapshot_sourceSchemaName :: Lens' RestoreTableFromClusterSnapshot (Maybe Text)
+ Amazonka.Redshift.RestoreTableFromClusterSnapshot: restoreTableFromClusterSnapshot_sourceTableName :: Lens' RestoreTableFromClusterSnapshot Text
+ Amazonka.Redshift.RestoreTableFromClusterSnapshot: restoreTableFromClusterSnapshot_targetDatabaseName :: Lens' RestoreTableFromClusterSnapshot (Maybe Text)
+ Amazonka.Redshift.RestoreTableFromClusterSnapshot: restoreTableFromClusterSnapshot_targetSchemaName :: Lens' RestoreTableFromClusterSnapshot (Maybe Text)
+ Amazonka.Redshift.ResumeCluster: ResumeCluster' :: Text -> ResumeCluster
+ Amazonka.Redshift.ResumeCluster: ResumeClusterResponse' :: Maybe Cluster -> Int -> ResumeClusterResponse
+ Amazonka.Redshift.ResumeCluster: [$sel:cluster:ResumeClusterResponse'] :: ResumeClusterResponse -> Maybe Cluster
+ Amazonka.Redshift.ResumeCluster: [$sel:clusterIdentifier:ResumeCluster'] :: ResumeCluster -> Text
+ Amazonka.Redshift.ResumeCluster: [$sel:httpStatus:ResumeClusterResponse'] :: ResumeClusterResponse -> Int
+ Amazonka.Redshift.ResumeCluster: data ResumeCluster
+ Amazonka.Redshift.ResumeCluster: data ResumeClusterResponse
+ Amazonka.Redshift.ResumeCluster: instance Amazonka.Data.Headers.ToHeaders Amazonka.Redshift.ResumeCluster.ResumeCluster
+ Amazonka.Redshift.ResumeCluster: instance Amazonka.Data.Path.ToPath Amazonka.Redshift.ResumeCluster.ResumeCluster
+ Amazonka.Redshift.ResumeCluster: instance Amazonka.Data.Query.ToQuery Amazonka.Redshift.ResumeCluster.ResumeCluster
+ Amazonka.Redshift.ResumeCluster: instance Amazonka.Types.AWSRequest Amazonka.Redshift.ResumeCluster.ResumeCluster
+ Amazonka.Redshift.ResumeCluster: instance Control.DeepSeq.NFData Amazonka.Redshift.ResumeCluster.ResumeCluster
+ Amazonka.Redshift.ResumeCluster: instance Control.DeepSeq.NFData Amazonka.Redshift.ResumeCluster.ResumeClusterResponse
+ Amazonka.Redshift.ResumeCluster: instance Data.Hashable.Class.Hashable Amazonka.Redshift.ResumeCluster.ResumeCluster
+ Amazonka.Redshift.ResumeCluster: instance GHC.Classes.Eq Amazonka.Redshift.ResumeCluster.ResumeCluster
+ Amazonka.Redshift.ResumeCluster: instance GHC.Classes.Eq Amazonka.Redshift.ResumeCluster.ResumeClusterResponse
+ Amazonka.Redshift.ResumeCluster: instance GHC.Generics.Generic Amazonka.Redshift.ResumeCluster.ResumeCluster
+ Amazonka.Redshift.ResumeCluster: instance GHC.Generics.Generic Amazonka.Redshift.ResumeCluster.ResumeClusterResponse
+ Amazonka.Redshift.ResumeCluster: instance GHC.Read.Read Amazonka.Redshift.ResumeCluster.ResumeCluster
+ Amazonka.Redshift.ResumeCluster: instance GHC.Read.Read Amazonka.Redshift.ResumeCluster.ResumeClusterResponse
+ Amazonka.Redshift.ResumeCluster: instance GHC.Show.Show Amazonka.Redshift.ResumeCluster.ResumeCluster
+ Amazonka.Redshift.ResumeCluster: instance GHC.Show.Show Amazonka.Redshift.ResumeCluster.ResumeClusterResponse
+ Amazonka.Redshift.ResumeCluster: newResumeCluster :: Text -> ResumeCluster
+ Amazonka.Redshift.ResumeCluster: newResumeClusterResponse :: Int -> ResumeClusterResponse
+ Amazonka.Redshift.ResumeCluster: resumeClusterResponse_cluster :: Lens' ResumeClusterResponse (Maybe Cluster)
+ Amazonka.Redshift.ResumeCluster: resumeClusterResponse_httpStatus :: Lens' ResumeClusterResponse Int
+ Amazonka.Redshift.ResumeCluster: resumeCluster_clusterIdentifier :: Lens' ResumeCluster Text
+ Amazonka.Redshift.RevokeClusterSecurityGroupIngress: RevokeClusterSecurityGroupIngress' :: Maybe Text -> Maybe Text -> Maybe Text -> Text -> RevokeClusterSecurityGroupIngress
+ Amazonka.Redshift.RevokeClusterSecurityGroupIngress: RevokeClusterSecurityGroupIngressResponse' :: Maybe ClusterSecurityGroup -> Int -> RevokeClusterSecurityGroupIngressResponse
+ Amazonka.Redshift.RevokeClusterSecurityGroupIngress: [$sel:cidrip:RevokeClusterSecurityGroupIngress'] :: RevokeClusterSecurityGroupIngress -> Maybe Text
+ Amazonka.Redshift.RevokeClusterSecurityGroupIngress: [$sel:clusterSecurityGroup:RevokeClusterSecurityGroupIngressResponse'] :: RevokeClusterSecurityGroupIngressResponse -> Maybe ClusterSecurityGroup
+ Amazonka.Redshift.RevokeClusterSecurityGroupIngress: [$sel:clusterSecurityGroupName:RevokeClusterSecurityGroupIngress'] :: RevokeClusterSecurityGroupIngress -> Text
+ Amazonka.Redshift.RevokeClusterSecurityGroupIngress: [$sel:eC2SecurityGroupName:RevokeClusterSecurityGroupIngress'] :: RevokeClusterSecurityGroupIngress -> Maybe Text
+ Amazonka.Redshift.RevokeClusterSecurityGroupIngress: [$sel:eC2SecurityGroupOwnerId:RevokeClusterSecurityGroupIngress'] :: RevokeClusterSecurityGroupIngress -> Maybe Text
+ Amazonka.Redshift.RevokeClusterSecurityGroupIngress: [$sel:httpStatus:RevokeClusterSecurityGroupIngressResponse'] :: RevokeClusterSecurityGroupIngressResponse -> Int
+ Amazonka.Redshift.RevokeClusterSecurityGroupIngress: data RevokeClusterSecurityGroupIngress
+ Amazonka.Redshift.RevokeClusterSecurityGroupIngress: data RevokeClusterSecurityGroupIngressResponse
+ Amazonka.Redshift.RevokeClusterSecurityGroupIngress: instance Amazonka.Data.Headers.ToHeaders Amazonka.Redshift.RevokeClusterSecurityGroupIngress.RevokeClusterSecurityGroupIngress
+ Amazonka.Redshift.RevokeClusterSecurityGroupIngress: instance Amazonka.Data.Path.ToPath Amazonka.Redshift.RevokeClusterSecurityGroupIngress.RevokeClusterSecurityGroupIngress
+ Amazonka.Redshift.RevokeClusterSecurityGroupIngress: instance Amazonka.Data.Query.ToQuery Amazonka.Redshift.RevokeClusterSecurityGroupIngress.RevokeClusterSecurityGroupIngress
+ Amazonka.Redshift.RevokeClusterSecurityGroupIngress: instance Amazonka.Types.AWSRequest Amazonka.Redshift.RevokeClusterSecurityGroupIngress.RevokeClusterSecurityGroupIngress
+ Amazonka.Redshift.RevokeClusterSecurityGroupIngress: instance Control.DeepSeq.NFData Amazonka.Redshift.RevokeClusterSecurityGroupIngress.RevokeClusterSecurityGroupIngress
+ Amazonka.Redshift.RevokeClusterSecurityGroupIngress: instance Control.DeepSeq.NFData Amazonka.Redshift.RevokeClusterSecurityGroupIngress.RevokeClusterSecurityGroupIngressResponse
+ Amazonka.Redshift.RevokeClusterSecurityGroupIngress: instance Data.Hashable.Class.Hashable Amazonka.Redshift.RevokeClusterSecurityGroupIngress.RevokeClusterSecurityGroupIngress
+ Amazonka.Redshift.RevokeClusterSecurityGroupIngress: instance GHC.Classes.Eq Amazonka.Redshift.RevokeClusterSecurityGroupIngress.RevokeClusterSecurityGroupIngress
+ Amazonka.Redshift.RevokeClusterSecurityGroupIngress: instance GHC.Classes.Eq Amazonka.Redshift.RevokeClusterSecurityGroupIngress.RevokeClusterSecurityGroupIngressResponse
+ Amazonka.Redshift.RevokeClusterSecurityGroupIngress: instance GHC.Generics.Generic Amazonka.Redshift.RevokeClusterSecurityGroupIngress.RevokeClusterSecurityGroupIngress
+ Amazonka.Redshift.RevokeClusterSecurityGroupIngress: instance GHC.Generics.Generic Amazonka.Redshift.RevokeClusterSecurityGroupIngress.RevokeClusterSecurityGroupIngressResponse
+ Amazonka.Redshift.RevokeClusterSecurityGroupIngress: instance GHC.Read.Read Amazonka.Redshift.RevokeClusterSecurityGroupIngress.RevokeClusterSecurityGroupIngress
+ Amazonka.Redshift.RevokeClusterSecurityGroupIngress: instance GHC.Read.Read Amazonka.Redshift.RevokeClusterSecurityGroupIngress.RevokeClusterSecurityGroupIngressResponse
+ Amazonka.Redshift.RevokeClusterSecurityGroupIngress: instance GHC.Show.Show Amazonka.Redshift.RevokeClusterSecurityGroupIngress.RevokeClusterSecurityGroupIngress
+ Amazonka.Redshift.RevokeClusterSecurityGroupIngress: instance GHC.Show.Show Amazonka.Redshift.RevokeClusterSecurityGroupIngress.RevokeClusterSecurityGroupIngressResponse
+ Amazonka.Redshift.RevokeClusterSecurityGroupIngress: newRevokeClusterSecurityGroupIngress :: Text -> RevokeClusterSecurityGroupIngress
+ Amazonka.Redshift.RevokeClusterSecurityGroupIngress: newRevokeClusterSecurityGroupIngressResponse :: Int -> RevokeClusterSecurityGroupIngressResponse
+ Amazonka.Redshift.RevokeClusterSecurityGroupIngress: revokeClusterSecurityGroupIngressResponse_clusterSecurityGroup :: Lens' RevokeClusterSecurityGroupIngressResponse (Maybe ClusterSecurityGroup)
+ Amazonka.Redshift.RevokeClusterSecurityGroupIngress: revokeClusterSecurityGroupIngressResponse_httpStatus :: Lens' RevokeClusterSecurityGroupIngressResponse Int
+ Amazonka.Redshift.RevokeClusterSecurityGroupIngress: revokeClusterSecurityGroupIngress_cidrip :: Lens' RevokeClusterSecurityGroupIngress (Maybe Text)
+ Amazonka.Redshift.RevokeClusterSecurityGroupIngress: revokeClusterSecurityGroupIngress_clusterSecurityGroupName :: Lens' RevokeClusterSecurityGroupIngress Text
+ Amazonka.Redshift.RevokeClusterSecurityGroupIngress: revokeClusterSecurityGroupIngress_eC2SecurityGroupName :: Lens' RevokeClusterSecurityGroupIngress (Maybe Text)
+ Amazonka.Redshift.RevokeClusterSecurityGroupIngress: revokeClusterSecurityGroupIngress_eC2SecurityGroupOwnerId :: Lens' RevokeClusterSecurityGroupIngress (Maybe Text)
+ Amazonka.Redshift.RevokeEndpointAccess: EndpointAuthorization' :: Maybe Bool -> Maybe [Text] -> Maybe ISO8601 -> Maybe Text -> Maybe Text -> Maybe Int -> Maybe Text -> Maybe Text -> Maybe AuthorizationStatus -> EndpointAuthorization
+ Amazonka.Redshift.RevokeEndpointAccess: RevokeEndpointAccess' :: Maybe Text -> Maybe Text -> Maybe Bool -> Maybe [Text] -> RevokeEndpointAccess
+ Amazonka.Redshift.RevokeEndpointAccess: [$sel:account:RevokeEndpointAccess'] :: RevokeEndpointAccess -> Maybe Text
+ Amazonka.Redshift.RevokeEndpointAccess: [$sel:allowedAllVPCs:EndpointAuthorization'] :: EndpointAuthorization -> Maybe Bool
+ Amazonka.Redshift.RevokeEndpointAccess: [$sel:allowedVPCs:EndpointAuthorization'] :: EndpointAuthorization -> Maybe [Text]
+ Amazonka.Redshift.RevokeEndpointAccess: [$sel:authorizeTime:EndpointAuthorization'] :: EndpointAuthorization -> Maybe ISO8601
+ Amazonka.Redshift.RevokeEndpointAccess: [$sel:clusterIdentifier:EndpointAuthorization'] :: EndpointAuthorization -> Maybe Text
+ Amazonka.Redshift.RevokeEndpointAccess: [$sel:clusterIdentifier:RevokeEndpointAccess'] :: RevokeEndpointAccess -> Maybe Text
+ Amazonka.Redshift.RevokeEndpointAccess: [$sel:clusterStatus:EndpointAuthorization'] :: EndpointAuthorization -> Maybe Text
+ Amazonka.Redshift.RevokeEndpointAccess: [$sel:endpointCount:EndpointAuthorization'] :: EndpointAuthorization -> Maybe Int
+ Amazonka.Redshift.RevokeEndpointAccess: [$sel:force:RevokeEndpointAccess'] :: RevokeEndpointAccess -> Maybe Bool
+ Amazonka.Redshift.RevokeEndpointAccess: [$sel:grantee:EndpointAuthorization'] :: EndpointAuthorization -> Maybe Text
+ Amazonka.Redshift.RevokeEndpointAccess: [$sel:grantor:EndpointAuthorization'] :: EndpointAuthorization -> Maybe Text
+ Amazonka.Redshift.RevokeEndpointAccess: [$sel:status:EndpointAuthorization'] :: EndpointAuthorization -> Maybe AuthorizationStatus
+ Amazonka.Redshift.RevokeEndpointAccess: [$sel:vpcIds:RevokeEndpointAccess'] :: RevokeEndpointAccess -> Maybe [Text]
+ Amazonka.Redshift.RevokeEndpointAccess: data EndpointAuthorization
+ Amazonka.Redshift.RevokeEndpointAccess: data RevokeEndpointAccess
+ Amazonka.Redshift.RevokeEndpointAccess: endpointAuthorization_allowedAllVPCs :: Lens' EndpointAuthorization (Maybe Bool)
+ Amazonka.Redshift.RevokeEndpointAccess: endpointAuthorization_allowedVPCs :: Lens' EndpointAuthorization (Maybe [Text])
+ Amazonka.Redshift.RevokeEndpointAccess: endpointAuthorization_authorizeTime :: Lens' EndpointAuthorization (Maybe UTCTime)
+ Amazonka.Redshift.RevokeEndpointAccess: endpointAuthorization_clusterIdentifier :: Lens' EndpointAuthorization (Maybe Text)
+ Amazonka.Redshift.RevokeEndpointAccess: endpointAuthorization_clusterStatus :: Lens' EndpointAuthorization (Maybe Text)
+ Amazonka.Redshift.RevokeEndpointAccess: endpointAuthorization_endpointCount :: Lens' EndpointAuthorization (Maybe Int)
+ Amazonka.Redshift.RevokeEndpointAccess: endpointAuthorization_grantee :: Lens' EndpointAuthorization (Maybe Text)
+ Amazonka.Redshift.RevokeEndpointAccess: endpointAuthorization_grantor :: Lens' EndpointAuthorization (Maybe Text)
+ Amazonka.Redshift.RevokeEndpointAccess: endpointAuthorization_status :: Lens' EndpointAuthorization (Maybe AuthorizationStatus)
+ Amazonka.Redshift.RevokeEndpointAccess: instance Amazonka.Data.Headers.ToHeaders Amazonka.Redshift.RevokeEndpointAccess.RevokeEndpointAccess
+ Amazonka.Redshift.RevokeEndpointAccess: instance Amazonka.Data.Path.ToPath Amazonka.Redshift.RevokeEndpointAccess.RevokeEndpointAccess
+ Amazonka.Redshift.RevokeEndpointAccess: instance Amazonka.Data.Query.ToQuery Amazonka.Redshift.RevokeEndpointAccess.RevokeEndpointAccess
+ Amazonka.Redshift.RevokeEndpointAccess: instance Amazonka.Types.AWSRequest Amazonka.Redshift.RevokeEndpointAccess.RevokeEndpointAccess
+ Amazonka.Redshift.RevokeEndpointAccess: instance Control.DeepSeq.NFData Amazonka.Redshift.RevokeEndpointAccess.RevokeEndpointAccess
+ Amazonka.Redshift.RevokeEndpointAccess: instance Data.Hashable.Class.Hashable Amazonka.Redshift.RevokeEndpointAccess.RevokeEndpointAccess
+ Amazonka.Redshift.RevokeEndpointAccess: instance GHC.Classes.Eq Amazonka.Redshift.RevokeEndpointAccess.RevokeEndpointAccess
+ Amazonka.Redshift.RevokeEndpointAccess: instance GHC.Generics.Generic Amazonka.Redshift.RevokeEndpointAccess.RevokeEndpointAccess
+ Amazonka.Redshift.RevokeEndpointAccess: instance GHC.Read.Read Amazonka.Redshift.RevokeEndpointAccess.RevokeEndpointAccess
+ Amazonka.Redshift.RevokeEndpointAccess: instance GHC.Show.Show Amazonka.Redshift.RevokeEndpointAccess.RevokeEndpointAccess
+ Amazonka.Redshift.RevokeEndpointAccess: newEndpointAuthorization :: EndpointAuthorization
+ Amazonka.Redshift.RevokeEndpointAccess: newRevokeEndpointAccess :: RevokeEndpointAccess
+ Amazonka.Redshift.RevokeEndpointAccess: revokeEndpointAccess_account :: Lens' RevokeEndpointAccess (Maybe Text)
+ Amazonka.Redshift.RevokeEndpointAccess: revokeEndpointAccess_clusterIdentifier :: Lens' RevokeEndpointAccess (Maybe Text)
+ Amazonka.Redshift.RevokeEndpointAccess: revokeEndpointAccess_force :: Lens' RevokeEndpointAccess (Maybe Bool)
+ Amazonka.Redshift.RevokeEndpointAccess: revokeEndpointAccess_vpcIds :: Lens' RevokeEndpointAccess (Maybe [Text])
+ Amazonka.Redshift.RevokeSnapshotAccess: RevokeSnapshotAccess' :: Maybe Text -> Maybe Text -> Maybe Text -> Text -> RevokeSnapshotAccess
+ Amazonka.Redshift.RevokeSnapshotAccess: RevokeSnapshotAccessResponse' :: Maybe Snapshot -> Int -> RevokeSnapshotAccessResponse
+ Amazonka.Redshift.RevokeSnapshotAccess: [$sel:accountWithRestoreAccess:RevokeSnapshotAccess'] :: RevokeSnapshotAccess -> Text
+ Amazonka.Redshift.RevokeSnapshotAccess: [$sel:httpStatus:RevokeSnapshotAccessResponse'] :: RevokeSnapshotAccessResponse -> Int
+ Amazonka.Redshift.RevokeSnapshotAccess: [$sel:snapshot:RevokeSnapshotAccessResponse'] :: RevokeSnapshotAccessResponse -> Maybe Snapshot
+ Amazonka.Redshift.RevokeSnapshotAccess: [$sel:snapshotArn:RevokeSnapshotAccess'] :: RevokeSnapshotAccess -> Maybe Text
+ Amazonka.Redshift.RevokeSnapshotAccess: [$sel:snapshotClusterIdentifier:RevokeSnapshotAccess'] :: RevokeSnapshotAccess -> Maybe Text
+ Amazonka.Redshift.RevokeSnapshotAccess: [$sel:snapshotIdentifier:RevokeSnapshotAccess'] :: RevokeSnapshotAccess -> Maybe Text
+ Amazonka.Redshift.RevokeSnapshotAccess: data RevokeSnapshotAccess
+ Amazonka.Redshift.RevokeSnapshotAccess: data RevokeSnapshotAccessResponse
+ Amazonka.Redshift.RevokeSnapshotAccess: instance Amazonka.Data.Headers.ToHeaders Amazonka.Redshift.RevokeSnapshotAccess.RevokeSnapshotAccess
+ Amazonka.Redshift.RevokeSnapshotAccess: instance Amazonka.Data.Path.ToPath Amazonka.Redshift.RevokeSnapshotAccess.RevokeSnapshotAccess
+ Amazonka.Redshift.RevokeSnapshotAccess: instance Amazonka.Data.Query.ToQuery Amazonka.Redshift.RevokeSnapshotAccess.RevokeSnapshotAccess
+ Amazonka.Redshift.RevokeSnapshotAccess: instance Amazonka.Types.AWSRequest Amazonka.Redshift.RevokeSnapshotAccess.RevokeSnapshotAccess
+ Amazonka.Redshift.RevokeSnapshotAccess: instance Control.DeepSeq.NFData Amazonka.Redshift.RevokeSnapshotAccess.RevokeSnapshotAccess
+ Amazonka.Redshift.RevokeSnapshotAccess: instance Control.DeepSeq.NFData Amazonka.Redshift.RevokeSnapshotAccess.RevokeSnapshotAccessResponse
+ Amazonka.Redshift.RevokeSnapshotAccess: instance Data.Hashable.Class.Hashable Amazonka.Redshift.RevokeSnapshotAccess.RevokeSnapshotAccess
+ Amazonka.Redshift.RevokeSnapshotAccess: instance GHC.Classes.Eq Amazonka.Redshift.RevokeSnapshotAccess.RevokeSnapshotAccess
+ Amazonka.Redshift.RevokeSnapshotAccess: instance GHC.Classes.Eq Amazonka.Redshift.RevokeSnapshotAccess.RevokeSnapshotAccessResponse
+ Amazonka.Redshift.RevokeSnapshotAccess: instance GHC.Generics.Generic Amazonka.Redshift.RevokeSnapshotAccess.RevokeSnapshotAccess
+ Amazonka.Redshift.RevokeSnapshotAccess: instance GHC.Generics.Generic Amazonka.Redshift.RevokeSnapshotAccess.RevokeSnapshotAccessResponse
+ Amazonka.Redshift.RevokeSnapshotAccess: instance GHC.Read.Read Amazonka.Redshift.RevokeSnapshotAccess.RevokeSnapshotAccess
+ Amazonka.Redshift.RevokeSnapshotAccess: instance GHC.Read.Read Amazonka.Redshift.RevokeSnapshotAccess.RevokeSnapshotAccessResponse
+ Amazonka.Redshift.RevokeSnapshotAccess: instance GHC.Show.Show Amazonka.Redshift.RevokeSnapshotAccess.RevokeSnapshotAccess
+ Amazonka.Redshift.RevokeSnapshotAccess: instance GHC.Show.Show Amazonka.Redshift.RevokeSnapshotAccess.RevokeSnapshotAccessResponse
+ Amazonka.Redshift.RevokeSnapshotAccess: newRevokeSnapshotAccess :: Text -> RevokeSnapshotAccess
+ Amazonka.Redshift.RevokeSnapshotAccess: newRevokeSnapshotAccessResponse :: Int -> RevokeSnapshotAccessResponse
+ Amazonka.Redshift.RevokeSnapshotAccess: revokeSnapshotAccessResponse_httpStatus :: Lens' RevokeSnapshotAccessResponse Int
+ Amazonka.Redshift.RevokeSnapshotAccess: revokeSnapshotAccessResponse_snapshot :: Lens' RevokeSnapshotAccessResponse (Maybe Snapshot)
+ Amazonka.Redshift.RevokeSnapshotAccess: revokeSnapshotAccess_accountWithRestoreAccess :: Lens' RevokeSnapshotAccess Text
+ Amazonka.Redshift.RevokeSnapshotAccess: revokeSnapshotAccess_snapshotArn :: Lens' RevokeSnapshotAccess (Maybe Text)
+ Amazonka.Redshift.RevokeSnapshotAccess: revokeSnapshotAccess_snapshotClusterIdentifier :: Lens' RevokeSnapshotAccess (Maybe Text)
+ Amazonka.Redshift.RevokeSnapshotAccess: revokeSnapshotAccess_snapshotIdentifier :: Lens' RevokeSnapshotAccess (Maybe Text)
+ Amazonka.Redshift.RotateEncryptionKey: RotateEncryptionKey' :: Text -> RotateEncryptionKey
+ Amazonka.Redshift.RotateEncryptionKey: RotateEncryptionKeyResponse' :: Maybe Cluster -> Int -> RotateEncryptionKeyResponse
+ Amazonka.Redshift.RotateEncryptionKey: [$sel:cluster:RotateEncryptionKeyResponse'] :: RotateEncryptionKeyResponse -> Maybe Cluster
+ Amazonka.Redshift.RotateEncryptionKey: [$sel:clusterIdentifier:RotateEncryptionKey'] :: RotateEncryptionKey -> Text
+ Amazonka.Redshift.RotateEncryptionKey: [$sel:httpStatus:RotateEncryptionKeyResponse'] :: RotateEncryptionKeyResponse -> Int
+ Amazonka.Redshift.RotateEncryptionKey: data RotateEncryptionKey
+ Amazonka.Redshift.RotateEncryptionKey: data RotateEncryptionKeyResponse
+ Amazonka.Redshift.RotateEncryptionKey: instance Amazonka.Data.Headers.ToHeaders Amazonka.Redshift.RotateEncryptionKey.RotateEncryptionKey
+ Amazonka.Redshift.RotateEncryptionKey: instance Amazonka.Data.Path.ToPath Amazonka.Redshift.RotateEncryptionKey.RotateEncryptionKey
+ Amazonka.Redshift.RotateEncryptionKey: instance Amazonka.Data.Query.ToQuery Amazonka.Redshift.RotateEncryptionKey.RotateEncryptionKey
+ Amazonka.Redshift.RotateEncryptionKey: instance Amazonka.Types.AWSRequest Amazonka.Redshift.RotateEncryptionKey.RotateEncryptionKey
+ Amazonka.Redshift.RotateEncryptionKey: instance Control.DeepSeq.NFData Amazonka.Redshift.RotateEncryptionKey.RotateEncryptionKey
+ Amazonka.Redshift.RotateEncryptionKey: instance Control.DeepSeq.NFData Amazonka.Redshift.RotateEncryptionKey.RotateEncryptionKeyResponse
+ Amazonka.Redshift.RotateEncryptionKey: instance Data.Hashable.Class.Hashable Amazonka.Redshift.RotateEncryptionKey.RotateEncryptionKey
+ Amazonka.Redshift.RotateEncryptionKey: instance GHC.Classes.Eq Amazonka.Redshift.RotateEncryptionKey.RotateEncryptionKey
+ Amazonka.Redshift.RotateEncryptionKey: instance GHC.Classes.Eq Amazonka.Redshift.RotateEncryptionKey.RotateEncryptionKeyResponse
+ Amazonka.Redshift.RotateEncryptionKey: instance GHC.Generics.Generic Amazonka.Redshift.RotateEncryptionKey.RotateEncryptionKey
+ Amazonka.Redshift.RotateEncryptionKey: instance GHC.Generics.Generic Amazonka.Redshift.RotateEncryptionKey.RotateEncryptionKeyResponse
+ Amazonka.Redshift.RotateEncryptionKey: instance GHC.Read.Read Amazonka.Redshift.RotateEncryptionKey.RotateEncryptionKey
+ Amazonka.Redshift.RotateEncryptionKey: instance GHC.Read.Read Amazonka.Redshift.RotateEncryptionKey.RotateEncryptionKeyResponse
+ Amazonka.Redshift.RotateEncryptionKey: instance GHC.Show.Show Amazonka.Redshift.RotateEncryptionKey.RotateEncryptionKey
+ Amazonka.Redshift.RotateEncryptionKey: instance GHC.Show.Show Amazonka.Redshift.RotateEncryptionKey.RotateEncryptionKeyResponse
+ Amazonka.Redshift.RotateEncryptionKey: newRotateEncryptionKey :: Text -> RotateEncryptionKey
+ Amazonka.Redshift.RotateEncryptionKey: newRotateEncryptionKeyResponse :: Int -> RotateEncryptionKeyResponse
+ Amazonka.Redshift.RotateEncryptionKey: rotateEncryptionKeyResponse_cluster :: Lens' RotateEncryptionKeyResponse (Maybe Cluster)
+ Amazonka.Redshift.RotateEncryptionKey: rotateEncryptionKeyResponse_httpStatus :: Lens' RotateEncryptionKeyResponse Int
+ Amazonka.Redshift.RotateEncryptionKey: rotateEncryptionKey_clusterIdentifier :: Lens' RotateEncryptionKey Text
+ Amazonka.Redshift.Types: AccountAttribute' :: Maybe Text -> Maybe [AttributeValueTarget] -> AccountAttribute
+ Amazonka.Redshift.Types: AccountWithRestoreAccess' :: Maybe Text -> Maybe Text -> AccountWithRestoreAccess
+ Amazonka.Redshift.Types: ActionType' :: Text -> ActionType
+ Amazonka.Redshift.Types: AquaConfiguration' :: Maybe AquaConfigurationStatus -> Maybe AquaStatus -> AquaConfiguration
+ Amazonka.Redshift.Types: AquaConfigurationStatus' :: Text -> AquaConfigurationStatus
+ Amazonka.Redshift.Types: AquaStatus' :: Text -> AquaStatus
+ Amazonka.Redshift.Types: AttributeValueTarget' :: Maybe Text -> AttributeValueTarget
+ Amazonka.Redshift.Types: AuthenticationProfile' :: Maybe Text -> Maybe Text -> AuthenticationProfile
+ Amazonka.Redshift.Types: AuthorizationStatus' :: Text -> AuthorizationStatus
+ Amazonka.Redshift.Types: AvailabilityZone' :: Maybe Text -> Maybe [SupportedPlatform] -> AvailabilityZone
+ Amazonka.Redshift.Types: Cluster' :: Maybe Bool -> Maybe AquaConfiguration -> Maybe Int -> Maybe Text -> Maybe Text -> Maybe Text -> Maybe ISO8601 -> Maybe Text -> Maybe Text -> Maybe [ClusterNode] -> Maybe [ClusterParameterGroupStatus] -> Maybe Text -> Maybe Text -> Maybe [ClusterSecurityGroupMembership] -> Maybe ClusterSnapshotCopyStatus -> Maybe Text -> Maybe Text -> Maybe Text -> Maybe Text -> Maybe DataTransferProgress -> Maybe Text -> Maybe [DeferredMaintenanceWindow] -> Maybe ElasticIpStatus -> Maybe Text -> Maybe Bool -> Maybe Endpoint -> Maybe Bool -> Maybe ISO8601 -> Maybe Text -> Maybe HsmStatus -> Maybe [ClusterIamRole] -> Maybe Text -> Maybe Text -> Maybe Int -> Maybe Text -> Maybe Text -> Maybe ISO8601 -> Maybe Text -> Maybe Int -> Maybe [Text] -> Maybe PendingModifiedValues -> Maybe Text -> Maybe Bool -> Maybe ReservedNodeExchangeStatus -> Maybe ResizeInfo -> Maybe RestoreStatus -> Maybe Text -> Maybe ScheduleState -> Maybe [Tag] -> Maybe Integer -> Maybe Text -> Maybe [VpcSecurityGroupMembership] -> Cluster
+ Amazonka.Redshift.Types: ClusterAssociatedToSchedule' :: Maybe Text -> Maybe ScheduleState -> ClusterAssociatedToSchedule
+ Amazonka.Redshift.Types: ClusterDbRevision' :: Maybe Text -> Maybe Text -> Maybe ISO8601 -> Maybe [RevisionTarget] -> ClusterDbRevision
+ Amazonka.Redshift.Types: ClusterIamRole' :: Maybe Text -> Maybe Text -> ClusterIamRole
+ Amazonka.Redshift.Types: ClusterNode' :: Maybe Text -> Maybe Text -> Maybe Text -> ClusterNode
+ Amazonka.Redshift.Types: ClusterParameterGroup' :: Maybe Text -> Maybe Text -> Maybe Text -> Maybe [Tag] -> ClusterParameterGroup
+ Amazonka.Redshift.Types: ClusterParameterGroupNameMessage' :: Maybe Text -> Maybe Text -> ClusterParameterGroupNameMessage
+ Amazonka.Redshift.Types: ClusterParameterGroupStatus' :: Maybe [ClusterParameterStatus] -> Maybe Text -> Maybe Text -> ClusterParameterGroupStatus
+ Amazonka.Redshift.Types: ClusterParameterStatus' :: Maybe Text -> Maybe Text -> Maybe Text -> ClusterParameterStatus
+ Amazonka.Redshift.Types: ClusterSecurityGroup' :: Maybe Text -> Maybe Text -> Maybe [EC2SecurityGroup] -> Maybe [IPRange] -> Maybe [Tag] -> ClusterSecurityGroup
+ Amazonka.Redshift.Types: ClusterSecurityGroupMembership' :: Maybe Text -> Maybe Text -> ClusterSecurityGroupMembership
+ Amazonka.Redshift.Types: ClusterSnapshotCopyStatus' :: Maybe Text -> Maybe Int -> Maybe Integer -> Maybe Text -> ClusterSnapshotCopyStatus
+ Amazonka.Redshift.Types: ClusterSubnetGroup' :: Maybe Text -> Maybe Text -> Maybe Text -> Maybe [Subnet] -> Maybe [Tag] -> Maybe Text -> ClusterSubnetGroup
+ Amazonka.Redshift.Types: ClusterVersion' :: Maybe Text -> Maybe Text -> Maybe Text -> ClusterVersion
+ Amazonka.Redshift.Types: DataShare' :: Maybe Bool -> Maybe Text -> Maybe [DataShareAssociation] -> Maybe Text -> Maybe Text -> DataShare
+ Amazonka.Redshift.Types: DataShareAssociation' :: Maybe Text -> Maybe Text -> Maybe ISO8601 -> Maybe DataShareStatus -> Maybe ISO8601 -> DataShareAssociation
+ Amazonka.Redshift.Types: DataShareStatus' :: Text -> DataShareStatus
+ Amazonka.Redshift.Types: DataShareStatusForConsumer' :: Text -> DataShareStatusForConsumer
+ Amazonka.Redshift.Types: DataShareStatusForProducer' :: Text -> DataShareStatusForProducer
+ Amazonka.Redshift.Types: DataTransferProgress' :: Maybe Double -> Maybe Integer -> Maybe Integer -> Maybe Integer -> Maybe Text -> Maybe Integer -> DataTransferProgress
+ Amazonka.Redshift.Types: DefaultClusterParameters' :: Maybe Text -> Maybe Text -> Maybe [Parameter] -> DefaultClusterParameters
+ Amazonka.Redshift.Types: DeferredMaintenanceWindow' :: Maybe ISO8601 -> Maybe Text -> Maybe ISO8601 -> DeferredMaintenanceWindow
+ Amazonka.Redshift.Types: DeleteClusterSnapshotMessage' :: Maybe Text -> Text -> DeleteClusterSnapshotMessage
+ Amazonka.Redshift.Types: EC2SecurityGroup' :: Maybe Text -> Maybe Text -> Maybe Text -> Maybe [Tag] -> EC2SecurityGroup
+ Amazonka.Redshift.Types: ElasticIpStatus' :: Maybe Text -> Maybe Text -> ElasticIpStatus
+ Amazonka.Redshift.Types: Endpoint' :: Maybe Text -> Maybe Int -> Maybe [VpcEndpoint] -> Endpoint
+ Amazonka.Redshift.Types: EndpointAccess' :: Maybe Text -> Maybe Text -> Maybe ISO8601 -> Maybe Text -> Maybe Text -> Maybe Int -> Maybe Text -> Maybe Text -> Maybe VpcEndpoint -> Maybe [VpcSecurityGroupMembership] -> EndpointAccess
+ Amazonka.Redshift.Types: EndpointAuthorization' :: Maybe Bool -> Maybe [Text] -> Maybe ISO8601 -> Maybe Text -> Maybe Text -> Maybe Int -> Maybe Text -> Maybe Text -> Maybe AuthorizationStatus -> EndpointAuthorization
+ Amazonka.Redshift.Types: Event' :: Maybe ISO8601 -> Maybe [Text] -> Maybe Text -> Maybe Text -> Maybe Text -> Maybe Text -> Maybe SourceType -> Event
+ Amazonka.Redshift.Types: EventCategoriesMap' :: Maybe [EventInfoMap] -> Maybe Text -> EventCategoriesMap
+ Amazonka.Redshift.Types: EventInfoMap' :: Maybe [Text] -> Maybe Text -> Maybe Text -> Maybe Text -> EventInfoMap
+ Amazonka.Redshift.Types: EventSubscription' :: Maybe Text -> Maybe Text -> Maybe Bool -> Maybe [Text] -> Maybe Text -> Maybe Text -> Maybe [Text] -> Maybe Text -> Maybe Text -> Maybe ISO8601 -> Maybe [Tag] -> EventSubscription
+ Amazonka.Redshift.Types: HsmClientCertificate' :: Maybe Text -> Maybe Text -> Maybe [Tag] -> HsmClientCertificate
+ Amazonka.Redshift.Types: HsmConfiguration' :: Maybe Text -> Maybe Text -> Maybe Text -> Maybe Text -> Maybe [Tag] -> HsmConfiguration
+ Amazonka.Redshift.Types: HsmStatus' :: Maybe Text -> Maybe Text -> Maybe Text -> HsmStatus
+ Amazonka.Redshift.Types: IPRange' :: Maybe Text -> Maybe Text -> Maybe [Tag] -> IPRange
+ Amazonka.Redshift.Types: LogDestinationType' :: Text -> LogDestinationType
+ Amazonka.Redshift.Types: LoggingStatus' :: Maybe Text -> Maybe Text -> Maybe ISO8601 -> Maybe ISO8601 -> Maybe LogDestinationType -> Maybe [Text] -> Maybe Bool -> Maybe Text -> LoggingStatus
+ Amazonka.Redshift.Types: MaintenanceTrack' :: Maybe Text -> Maybe Text -> Maybe [UpdateTarget] -> MaintenanceTrack
+ Amazonka.Redshift.Types: Mode' :: Text -> Mode
+ Amazonka.Redshift.Types: NetworkInterface' :: Maybe Text -> Maybe Text -> Maybe Text -> Maybe Text -> NetworkInterface
+ Amazonka.Redshift.Types: NodeConfigurationOption' :: Maybe Double -> Maybe Mode -> Maybe Text -> Maybe Int -> NodeConfigurationOption
+ Amazonka.Redshift.Types: NodeConfigurationOptionsFilter' :: Maybe NodeConfigurationOptionsFilterName -> Maybe OperatorType -> Maybe [Text] -> NodeConfigurationOptionsFilter
+ Amazonka.Redshift.Types: NodeConfigurationOptionsFilterName' :: Text -> NodeConfigurationOptionsFilterName
+ Amazonka.Redshift.Types: OperatorType' :: Text -> OperatorType
+ Amazonka.Redshift.Types: OrderableClusterOption' :: Maybe [AvailabilityZone] -> Maybe Text -> Maybe Text -> Maybe Text -> OrderableClusterOption
+ Amazonka.Redshift.Types: Parameter' :: Maybe Text -> Maybe ParameterApplyType -> Maybe Text -> Maybe Text -> Maybe Bool -> Maybe Text -> Maybe Text -> Maybe Text -> Maybe Text -> Parameter
+ Amazonka.Redshift.Types: ParameterApplyType' :: Text -> ParameterApplyType
+ Amazonka.Redshift.Types: PartnerIntegrationInfo' :: Maybe ISO8601 -> Maybe Text -> Maybe Text -> Maybe PartnerIntegrationStatus -> Maybe Text -> Maybe ISO8601 -> PartnerIntegrationInfo
+ Amazonka.Redshift.Types: PartnerIntegrationInputMessage' :: Text -> Text -> Text -> Text -> PartnerIntegrationInputMessage
+ Amazonka.Redshift.Types: PartnerIntegrationOutputMessage' :: Maybe Text -> Maybe Text -> PartnerIntegrationOutputMessage
+ Amazonka.Redshift.Types: PartnerIntegrationStatus' :: Text -> PartnerIntegrationStatus
+ Amazonka.Redshift.Types: PauseClusterMessage' :: Text -> PauseClusterMessage
+ Amazonka.Redshift.Types: PendingModifiedValues' :: Maybe Int -> Maybe Text -> Maybe Text -> Maybe Text -> Maybe Text -> Maybe Bool -> Maybe Text -> Maybe Text -> Maybe Text -> Maybe Int -> Maybe Bool -> PendingModifiedValues
+ Amazonka.Redshift.Types: RecurringCharge' :: Maybe Double -> Maybe Text -> RecurringCharge
+ Amazonka.Redshift.Types: ReservedNode' :: Maybe Text -> Maybe Int -> Maybe Double -> Maybe Int -> Maybe Text -> Maybe Text -> Maybe [RecurringCharge] -> Maybe Text -> Maybe Text -> Maybe ReservedNodeOfferingType -> Maybe ISO8601 -> Maybe Text -> Maybe Double -> ReservedNode
+ Amazonka.Redshift.Types: ReservedNodeConfigurationOption' :: Maybe ReservedNode -> Maybe Int -> Maybe ReservedNodeOffering -> ReservedNodeConfigurationOption
+ Amazonka.Redshift.Types: ReservedNodeExchangeActionType' :: Text -> ReservedNodeExchangeActionType
+ Amazonka.Redshift.Types: ReservedNodeExchangeStatus' :: Maybe ISO8601 -> Maybe Text -> Maybe Int -> Maybe Text -> Maybe Text -> Maybe ReservedNodeExchangeStatusType -> Maybe Int -> Maybe Text -> Maybe Text -> ReservedNodeExchangeStatus
+ Amazonka.Redshift.Types: ReservedNodeExchangeStatusType' :: Text -> ReservedNodeExchangeStatusType
+ Amazonka.Redshift.Types: ReservedNodeOffering' :: Maybe Text -> Maybe Int -> Maybe Double -> Maybe Text -> Maybe Text -> Maybe [RecurringCharge] -> Maybe Text -> Maybe ReservedNodeOfferingType -> Maybe Double -> ReservedNodeOffering
+ Amazonka.Redshift.Types: ReservedNodeOfferingType' :: Text -> ReservedNodeOfferingType
+ Amazonka.Redshift.Types: ResizeClusterMessage' :: Maybe Bool -> Maybe Text -> Maybe Text -> Maybe Int -> Maybe Text -> Maybe Text -> Text -> ResizeClusterMessage
+ Amazonka.Redshift.Types: ResizeInfo' :: Maybe Bool -> Maybe Text -> ResizeInfo
+ Amazonka.Redshift.Types: ResizeProgressMessage' :: Maybe Double -> Maybe Double -> Maybe Integer -> Maybe Integer -> Maybe [Text] -> Maybe [Text] -> Maybe [Text] -> Maybe Text -> Maybe Integer -> Maybe Text -> Maybe Text -> Maybe Text -> Maybe Text -> Maybe Text -> Maybe Int -> Maybe Integer -> ResizeProgressMessage
+ Amazonka.Redshift.Types: RestoreStatus' :: Maybe Double -> Maybe Integer -> Maybe Integer -> Maybe Integer -> Maybe Integer -> Maybe Text -> RestoreStatus
+ Amazonka.Redshift.Types: ResumeClusterMessage' :: Text -> ResumeClusterMessage
+ Amazonka.Redshift.Types: RevisionTarget' :: Maybe Text -> Maybe ISO8601 -> Maybe Text -> RevisionTarget
+ Amazonka.Redshift.Types: ScheduleState' :: Text -> ScheduleState
+ Amazonka.Redshift.Types: ScheduledAction' :: Maybe ISO8601 -> Maybe Text -> Maybe [ISO8601] -> Maybe Text -> Maybe Text -> Maybe Text -> Maybe ISO8601 -> Maybe ScheduledActionState -> Maybe ScheduledActionType -> ScheduledAction
+ Amazonka.Redshift.Types: ScheduledActionFilter' :: ScheduledActionFilterName -> [Text] -> ScheduledActionFilter
+ Amazonka.Redshift.Types: ScheduledActionFilterName' :: Text -> ScheduledActionFilterName
+ Amazonka.Redshift.Types: ScheduledActionState' :: Text -> ScheduledActionState
+ Amazonka.Redshift.Types: ScheduledActionType' :: Maybe PauseClusterMessage -> Maybe ResizeClusterMessage -> Maybe ResumeClusterMessage -> ScheduledActionType
+ Amazonka.Redshift.Types: ScheduledActionTypeValues' :: Text -> ScheduledActionTypeValues
+ Amazonka.Redshift.Types: Snapshot' :: Maybe [AccountWithRestoreAccess] -> Maybe Double -> Maybe Text -> Maybe Double -> Maybe ISO8601 -> Maybe Text -> Maybe Text -> Maybe Double -> Maybe Text -> Maybe Integer -> Maybe Bool -> Maybe Bool -> Maybe Text -> Maybe Bool -> Maybe Integer -> Maybe Text -> Maybe Text -> Maybe Int -> Maybe Int -> Maybe Text -> Maybe Text -> Maybe Int -> Maybe Text -> Maybe Int -> Maybe [Text] -> Maybe ISO8601 -> Maybe Text -> Maybe ISO8601 -> Maybe Text -> Maybe Text -> Maybe Text -> Maybe [Tag] -> Maybe Double -> Maybe Text -> Snapshot
+ Amazonka.Redshift.Types: SnapshotAttributeToSortBy' :: Text -> SnapshotAttributeToSortBy
+ Amazonka.Redshift.Types: SnapshotCopyGrant' :: Maybe Text -> Maybe Text -> Maybe [Tag] -> SnapshotCopyGrant
+ Amazonka.Redshift.Types: SnapshotErrorMessage' :: Maybe Text -> Maybe Text -> Maybe Text -> Maybe Text -> SnapshotErrorMessage
+ Amazonka.Redshift.Types: SnapshotSchedule' :: Maybe Int -> Maybe [ClusterAssociatedToSchedule] -> Maybe [ISO8601] -> Maybe [Text] -> Maybe Text -> Maybe Text -> Maybe [Tag] -> SnapshotSchedule
+ Amazonka.Redshift.Types: SnapshotSortingEntity' :: Maybe SortByOrder -> SnapshotAttributeToSortBy -> SnapshotSortingEntity
+ Amazonka.Redshift.Types: SortByOrder' :: Text -> SortByOrder
+ Amazonka.Redshift.Types: SourceType' :: Text -> SourceType
+ Amazonka.Redshift.Types: Subnet' :: Maybe AvailabilityZone -> Maybe Text -> Maybe Text -> Subnet
+ Amazonka.Redshift.Types: SupportedOperation' :: Maybe Text -> SupportedOperation
+ Amazonka.Redshift.Types: SupportedPlatform' :: Maybe Text -> SupportedPlatform
+ Amazonka.Redshift.Types: TableRestoreStatus' :: Maybe Text -> Maybe Text -> Maybe Text -> Maybe Integer -> Maybe ISO8601 -> Maybe Text -> Maybe Text -> Maybe Text -> Maybe Text -> Maybe TableRestoreStatusType -> Maybe Text -> Maybe Text -> Maybe Text -> Maybe Integer -> TableRestoreStatus
+ Amazonka.Redshift.Types: TableRestoreStatusType' :: Text -> TableRestoreStatusType
+ Amazonka.Redshift.Types: Tag' :: Maybe Text -> Maybe Text -> Tag
+ Amazonka.Redshift.Types: TaggedResource' :: Maybe Text -> Maybe Text -> Maybe Tag -> TaggedResource
+ Amazonka.Redshift.Types: UpdateTarget' :: Maybe Text -> Maybe Text -> Maybe [SupportedOperation] -> UpdateTarget
+ Amazonka.Redshift.Types: UsageLimit' :: Maybe Integer -> Maybe UsageLimitBreachAction -> Maybe Text -> Maybe UsageLimitFeatureType -> Maybe UsageLimitLimitType -> Maybe UsageLimitPeriod -> Maybe [Tag] -> Maybe Text -> UsageLimit
+ Amazonka.Redshift.Types: UsageLimitBreachAction' :: Text -> UsageLimitBreachAction
+ Amazonka.Redshift.Types: UsageLimitFeatureType' :: Text -> UsageLimitFeatureType
+ Amazonka.Redshift.Types: UsageLimitLimitType' :: Text -> UsageLimitLimitType
+ Amazonka.Redshift.Types: UsageLimitPeriod' :: Text -> UsageLimitPeriod
+ Amazonka.Redshift.Types: VpcEndpoint' :: Maybe [NetworkInterface] -> Maybe Text -> Maybe Text -> VpcEndpoint
+ Amazonka.Redshift.Types: VpcSecurityGroupMembership' :: Maybe Text -> Maybe Text -> VpcSecurityGroupMembership
+ Amazonka.Redshift.Types: [$sel:accountAlias:AccountWithRestoreAccess'] :: AccountWithRestoreAccess -> Maybe Text
+ Amazonka.Redshift.Types: [$sel:accountId:AccountWithRestoreAccess'] :: AccountWithRestoreAccess -> Maybe Text
+ Amazonka.Redshift.Types: [$sel:accountId:PartnerIntegrationInputMessage'] :: PartnerIntegrationInputMessage -> Text
+ Amazonka.Redshift.Types: [$sel:accountsWithRestoreAccess:Snapshot'] :: Snapshot -> Maybe [AccountWithRestoreAccess]
+ Amazonka.Redshift.Types: [$sel:actualIncrementalBackupSizeInMegaBytes:Snapshot'] :: Snapshot -> Maybe Double
+ Amazonka.Redshift.Types: [$sel:address:Endpoint'] :: Endpoint -> Maybe Text
+ Amazonka.Redshift.Types: [$sel:address:EndpointAccess'] :: EndpointAccess -> Maybe Text
+ Amazonka.Redshift.Types: [$sel:allowCancelResize:ResizeInfo'] :: ResizeInfo -> Maybe Bool
+ Amazonka.Redshift.Types: [$sel:allowPubliclyAccessibleConsumers:DataShare'] :: DataShare -> Maybe Bool
+ Amazonka.Redshift.Types: [$sel:allowVersionUpgrade:Cluster'] :: Cluster -> Maybe Bool
+ Amazonka.Redshift.Types: [$sel:allowedAllVPCs:EndpointAuthorization'] :: EndpointAuthorization -> Maybe Bool
+ Amazonka.Redshift.Types: [$sel:allowedVPCs:EndpointAuthorization'] :: EndpointAuthorization -> Maybe [Text]
+ Amazonka.Redshift.Types: [$sel:allowedValues:Parameter'] :: Parameter -> Maybe Text
+ Amazonka.Redshift.Types: [$sel:amount:UsageLimit'] :: UsageLimit -> Maybe Integer
+ Amazonka.Redshift.Types: [$sel:applyStatus:ClusterIamRole'] :: ClusterIamRole -> Maybe Text
+ Amazonka.Redshift.Types: [$sel:applyType:Parameter'] :: Parameter -> Maybe ParameterApplyType
+ Amazonka.Redshift.Types: [$sel:aquaConfiguration:Cluster'] :: Cluster -> Maybe AquaConfiguration
+ Amazonka.Redshift.Types: [$sel:aquaConfigurationStatus:AquaConfiguration'] :: AquaConfiguration -> Maybe AquaConfigurationStatus
+ Amazonka.Redshift.Types: [$sel:aquaStatus:AquaConfiguration'] :: AquaConfiguration -> Maybe AquaStatus
+ Amazonka.Redshift.Types: [$sel:associatedClusterCount:SnapshotSchedule'] :: SnapshotSchedule -> Maybe Int
+ Amazonka.Redshift.Types: [$sel:associatedClusters:SnapshotSchedule'] :: SnapshotSchedule -> Maybe [ClusterAssociatedToSchedule]
+ Amazonka.Redshift.Types: [$sel:attribute:SnapshotSortingEntity'] :: SnapshotSortingEntity -> SnapshotAttributeToSortBy
+ Amazonka.Redshift.Types: [$sel:attributeName:AccountAttribute'] :: AccountAttribute -> Maybe Text
+ Amazonka.Redshift.Types: [$sel:attributeValue:AttributeValueTarget'] :: AttributeValueTarget -> Maybe Text
+ Amazonka.Redshift.Types: [$sel:attributeValues:AccountAttribute'] :: AccountAttribute -> Maybe [AttributeValueTarget]
+ Amazonka.Redshift.Types: [$sel:authenticationProfileContent:AuthenticationProfile'] :: AuthenticationProfile -> Maybe Text
+ Amazonka.Redshift.Types: [$sel:authenticationProfileName:AuthenticationProfile'] :: AuthenticationProfile -> Maybe Text
+ Amazonka.Redshift.Types: [$sel:authorizeTime:EndpointAuthorization'] :: EndpointAuthorization -> Maybe ISO8601
+ Amazonka.Redshift.Types: [$sel:automatedSnapshotRetentionPeriod:Cluster'] :: Cluster -> Maybe Int
+ Amazonka.Redshift.Types: [$sel:automatedSnapshotRetentionPeriod:PendingModifiedValues'] :: PendingModifiedValues -> Maybe Int
+ Amazonka.Redshift.Types: [$sel:availabilityZone:Cluster'] :: Cluster -> Maybe Text
+ Amazonka.Redshift.Types: [$sel:availabilityZone:NetworkInterface'] :: NetworkInterface -> Maybe Text
+ Amazonka.Redshift.Types: [$sel:availabilityZone:Snapshot'] :: Snapshot -> Maybe Text
+ Amazonka.Redshift.Types: [$sel:availabilityZoneRelocationStatus:Cluster'] :: Cluster -> Maybe Text
+ Amazonka.Redshift.Types: [$sel:availabilityZones:OrderableClusterOption'] :: OrderableClusterOption -> Maybe [AvailabilityZone]
+ Amazonka.Redshift.Types: [$sel:avgResizeRateInMegaBytesPerSecond:ResizeProgressMessage'] :: ResizeProgressMessage -> Maybe Double
+ Amazonka.Redshift.Types: [$sel:backupProgressInMegaBytes:Snapshot'] :: Snapshot -> Maybe Double
+ Amazonka.Redshift.Types: [$sel:breachAction:UsageLimit'] :: UsageLimit -> Maybe UsageLimitBreachAction
+ Amazonka.Redshift.Types: [$sel:bucketName:LoggingStatus'] :: LoggingStatus -> Maybe Text
+ Amazonka.Redshift.Types: [$sel:cidrip:IPRange'] :: IPRange -> Maybe Text
+ Amazonka.Redshift.Types: [$sel:classic:ResizeClusterMessage'] :: ResizeClusterMessage -> Maybe Bool
+ Amazonka.Redshift.Types: [$sel:clusterAvailabilityStatus:Cluster'] :: Cluster -> Maybe Text
+ Amazonka.Redshift.Types: [$sel:clusterCreateTime:Cluster'] :: Cluster -> Maybe ISO8601
+ Amazonka.Redshift.Types: [$sel:clusterCreateTime:Snapshot'] :: Snapshot -> Maybe ISO8601
+ Amazonka.Redshift.Types: [$sel:clusterIdentifier:Cluster'] :: Cluster -> Maybe Text
+ Amazonka.Redshift.Types: [$sel:clusterIdentifier:ClusterAssociatedToSchedule'] :: ClusterAssociatedToSchedule -> Maybe Text
+ Amazonka.Redshift.Types: [$sel:clusterIdentifier:ClusterDbRevision'] :: ClusterDbRevision -> Maybe Text
+ Amazonka.Redshift.Types: [$sel:clusterIdentifier:EndpointAccess'] :: EndpointAccess -> Maybe Text
+ Amazonka.Redshift.Types: [$sel:clusterIdentifier:EndpointAuthorization'] :: EndpointAuthorization -> Maybe Text
+ Amazonka.Redshift.Types: [$sel:clusterIdentifier:PartnerIntegrationInputMessage'] :: PartnerIntegrationInputMessage -> Text
+ Amazonka.Redshift.Types: [$sel:clusterIdentifier:PauseClusterMessage'] :: PauseClusterMessage -> Text
+ Amazonka.Redshift.Types: [$sel:clusterIdentifier:PendingModifiedValues'] :: PendingModifiedValues -> Maybe Text
+ Amazonka.Redshift.Types: [$sel:clusterIdentifier:ResizeClusterMessage'] :: ResizeClusterMessage -> Text
+ Amazonka.Redshift.Types: [$sel:clusterIdentifier:ResumeClusterMessage'] :: ResumeClusterMessage -> Text
+ Amazonka.Redshift.Types: [$sel:clusterIdentifier:Snapshot'] :: Snapshot -> Maybe Text
+ Amazonka.Redshift.Types: [$sel:clusterIdentifier:TableRestoreStatus'] :: TableRestoreStatus -> Maybe Text
+ Amazonka.Redshift.Types: [$sel:clusterIdentifier:UsageLimit'] :: UsageLimit -> Maybe Text
+ Amazonka.Redshift.Types: [$sel:clusterNamespaceArn:Cluster'] :: Cluster -> Maybe Text
+ Amazonka.Redshift.Types: [$sel:clusterNodes:Cluster'] :: Cluster -> Maybe [ClusterNode]
+ Amazonka.Redshift.Types: [$sel:clusterParameterGroupFamily:ClusterVersion'] :: ClusterVersion -> Maybe Text
+ Amazonka.Redshift.Types: [$sel:clusterParameterGroups:Cluster'] :: Cluster -> Maybe [ClusterParameterGroupStatus]
+ Amazonka.Redshift.Types: [$sel:clusterParameterStatusList:ClusterParameterGroupStatus'] :: ClusterParameterGroupStatus -> Maybe [ClusterParameterStatus]
+ Amazonka.Redshift.Types: [$sel:clusterPublicKey:Cluster'] :: Cluster -> Maybe Text
+ Amazonka.Redshift.Types: [$sel:clusterRevisionNumber:Cluster'] :: Cluster -> Maybe Text
+ Amazonka.Redshift.Types: [$sel:clusterSecurityGroupName:ClusterSecurityGroup'] :: ClusterSecurityGroup -> Maybe Text
+ Amazonka.Redshift.Types: [$sel:clusterSecurityGroupName:ClusterSecurityGroupMembership'] :: ClusterSecurityGroupMembership -> Maybe Text
+ Amazonka.Redshift.Types: [$sel:clusterSecurityGroups:Cluster'] :: Cluster -> Maybe [ClusterSecurityGroupMembership]
+ Amazonka.Redshift.Types: [$sel:clusterSnapshotCopyStatus:Cluster'] :: Cluster -> Maybe ClusterSnapshotCopyStatus
+ Amazonka.Redshift.Types: [$sel:clusterStatus:Cluster'] :: Cluster -> Maybe Text
+ Amazonka.Redshift.Types: [$sel:clusterStatus:EndpointAuthorization'] :: EndpointAuthorization -> Maybe Text
+ Amazonka.Redshift.Types: [$sel:clusterSubnetGroupName:Cluster'] :: Cluster -> Maybe Text
+ Amazonka.Redshift.Types: [$sel:clusterSubnetGroupName:ClusterSubnetGroup'] :: ClusterSubnetGroup -> Maybe Text
+ Amazonka.Redshift.Types: [$sel:clusterType:OrderableClusterOption'] :: OrderableClusterOption -> Maybe Text
+ Amazonka.Redshift.Types: [$sel:clusterType:PendingModifiedValues'] :: PendingModifiedValues -> Maybe Text
+ Amazonka.Redshift.Types: [$sel:clusterType:ResizeClusterMessage'] :: ResizeClusterMessage -> Maybe Text
+ Amazonka.Redshift.Types: [$sel:clusterVersion:Cluster'] :: Cluster -> Maybe Text
+ Amazonka.Redshift.Types: [$sel:clusterVersion:ClusterVersion'] :: ClusterVersion -> Maybe Text
+ Amazonka.Redshift.Types: [$sel:clusterVersion:OrderableClusterOption'] :: OrderableClusterOption -> Maybe Text
+ Amazonka.Redshift.Types: [$sel:clusterVersion:PendingModifiedValues'] :: PendingModifiedValues -> Maybe Text
+ Amazonka.Redshift.Types: [$sel:clusterVersion:Snapshot'] :: Snapshot -> Maybe Text
+ Amazonka.Redshift.Types: [$sel:consumerIdentifier:DataShareAssociation'] :: DataShareAssociation -> Maybe Text
+ Amazonka.Redshift.Types: [$sel:consumerRegion:DataShareAssociation'] :: DataShareAssociation -> Maybe Text
+ Amazonka.Redshift.Types: [$sel:createdAt:PartnerIntegrationInfo'] :: PartnerIntegrationInfo -> Maybe ISO8601
+ Amazonka.Redshift.Types: [$sel:createdDate:DataShareAssociation'] :: DataShareAssociation -> Maybe ISO8601
+ Amazonka.Redshift.Types: [$sel:currencyCode:ReservedNode'] :: ReservedNode -> Maybe Text
+ Amazonka.Redshift.Types: [$sel:currencyCode:ReservedNodeOffering'] :: ReservedNodeOffering -> Maybe Text
+ Amazonka.Redshift.Types: [$sel:currentBackupRateInMegaBytesPerSecond:Snapshot'] :: Snapshot -> Maybe Double
+ Amazonka.Redshift.Types: [$sel:currentDatabaseRevision:ClusterDbRevision'] :: ClusterDbRevision -> Maybe Text
+ Amazonka.Redshift.Types: [$sel:currentRateInMegaBytesPerSecond:DataTransferProgress'] :: DataTransferProgress -> Maybe Double
+ Amazonka.Redshift.Types: [$sel:currentRestoreRateInMegaBytesPerSecond:RestoreStatus'] :: RestoreStatus -> Maybe Double
+ Amazonka.Redshift.Types: [$sel:custSubscriptionId:EventSubscription'] :: EventSubscription -> Maybe Text
+ Amazonka.Redshift.Types: [$sel:customerAwsId:EventSubscription'] :: EventSubscription -> Maybe Text
+ Amazonka.Redshift.Types: [$sel:dataShareArn:DataShare'] :: DataShare -> Maybe Text
+ Amazonka.Redshift.Types: [$sel:dataShareAssociations:DataShare'] :: DataShare -> Maybe [DataShareAssociation]
+ Amazonka.Redshift.Types: [$sel:dataTransferProgress:Cluster'] :: Cluster -> Maybe DataTransferProgress
+ Amazonka.Redshift.Types: [$sel:dataTransferProgressPercent:ResizeProgressMessage'] :: ResizeProgressMessage -> Maybe Double
+ Amazonka.Redshift.Types: [$sel:dataTransferredInMegaBytes:DataTransferProgress'] :: DataTransferProgress -> Maybe Integer
+ Amazonka.Redshift.Types: [$sel:dataType:Parameter'] :: Parameter -> Maybe Text
+ Amazonka.Redshift.Types: [$sel:databaseName:PartnerIntegrationInfo'] :: PartnerIntegrationInfo -> Maybe Text
+ Amazonka.Redshift.Types: [$sel:databaseName:PartnerIntegrationInputMessage'] :: PartnerIntegrationInputMessage -> Text
+ Amazonka.Redshift.Types: [$sel:databaseName:PartnerIntegrationOutputMessage'] :: PartnerIntegrationOutputMessage -> Maybe Text
+ Amazonka.Redshift.Types: [$sel:databaseRevision:RevisionTarget'] :: RevisionTarget -> Maybe Text
+ Amazonka.Redshift.Types: [$sel:databaseRevisionReleaseDate:ClusterDbRevision'] :: ClusterDbRevision -> Maybe ISO8601
+ Amazonka.Redshift.Types: [$sel:databaseRevisionReleaseDate:RevisionTarget'] :: RevisionTarget -> Maybe ISO8601
+ Amazonka.Redshift.Types: [$sel:databaseVersion:MaintenanceTrack'] :: MaintenanceTrack -> Maybe Text
+ Amazonka.Redshift.Types: [$sel:databaseVersion:UpdateTarget'] :: UpdateTarget -> Maybe Text
+ Amazonka.Redshift.Types: [$sel:date:Event'] :: Event -> Maybe ISO8601
+ Amazonka.Redshift.Types: [$sel:dbName:Cluster'] :: Cluster -> Maybe Text
+ Amazonka.Redshift.Types: [$sel:dbName:Snapshot'] :: Snapshot -> Maybe Text
+ Amazonka.Redshift.Types: [$sel:defaultIamRoleArn:Cluster'] :: Cluster -> Maybe Text
+ Amazonka.Redshift.Types: [$sel:deferMaintenanceEndTime:DeferredMaintenanceWindow'] :: DeferredMaintenanceWindow -> Maybe ISO8601
+ Amazonka.Redshift.Types: [$sel:deferMaintenanceIdentifier:DeferredMaintenanceWindow'] :: DeferredMaintenanceWindow -> Maybe Text
+ Amazonka.Redshift.Types: [$sel:deferMaintenanceStartTime:DeferredMaintenanceWindow'] :: DeferredMaintenanceWindow -> Maybe ISO8601
+ Amazonka.Redshift.Types: [$sel:deferredMaintenanceWindows:Cluster'] :: Cluster -> Maybe [DeferredMaintenanceWindow]
+ Amazonka.Redshift.Types: [$sel:description:ClusterParameterGroup'] :: ClusterParameterGroup -> Maybe Text
+ Amazonka.Redshift.Types: [$sel:description:ClusterSecurityGroup'] :: ClusterSecurityGroup -> Maybe Text
+ Amazonka.Redshift.Types: [$sel:description:ClusterSubnetGroup'] :: ClusterSubnetGroup -> Maybe Text
+ Amazonka.Redshift.Types: [$sel:description:ClusterVersion'] :: ClusterVersion -> Maybe Text
+ Amazonka.Redshift.Types: [$sel:description:HsmConfiguration'] :: HsmConfiguration -> Maybe Text
+ Amazonka.Redshift.Types: [$sel:description:Parameter'] :: Parameter -> Maybe Text
+ Amazonka.Redshift.Types: [$sel:description:RevisionTarget'] :: RevisionTarget -> Maybe Text
+ Amazonka.Redshift.Types: [$sel:destinationRegion:ClusterSnapshotCopyStatus'] :: ClusterSnapshotCopyStatus -> Maybe Text
+ Amazonka.Redshift.Types: [$sel:duration:ReservedNode'] :: ReservedNode -> Maybe Int
+ Amazonka.Redshift.Types: [$sel:duration:ReservedNodeOffering'] :: ReservedNodeOffering -> Maybe Int
+ Amazonka.Redshift.Types: [$sel:eC2SecurityGroupName:EC2SecurityGroup'] :: EC2SecurityGroup -> Maybe Text
+ Amazonka.Redshift.Types: [$sel:eC2SecurityGroupOwnerId:EC2SecurityGroup'] :: EC2SecurityGroup -> Maybe Text
+ Amazonka.Redshift.Types: [$sel:eC2SecurityGroups:ClusterSecurityGroup'] :: ClusterSecurityGroup -> Maybe [EC2SecurityGroup]
+ Amazonka.Redshift.Types: [$sel:elapsedTimeInSeconds:DataTransferProgress'] :: DataTransferProgress -> Maybe Integer
+ Amazonka.Redshift.Types: [$sel:elapsedTimeInSeconds:ResizeProgressMessage'] :: ResizeProgressMessage -> Maybe Integer
+ Amazonka.Redshift.Types: [$sel:elapsedTimeInSeconds:RestoreStatus'] :: RestoreStatus -> Maybe Integer
+ Amazonka.Redshift.Types: [$sel:elapsedTimeInSeconds:Snapshot'] :: Snapshot -> Maybe Integer
+ Amazonka.Redshift.Types: [$sel:elasticIp:ElasticIpStatus'] :: ElasticIpStatus -> Maybe Text
+ Amazonka.Redshift.Types: [$sel:elasticIpStatus:Cluster'] :: Cluster -> Maybe ElasticIpStatus
+ Amazonka.Redshift.Types: [$sel:elasticResizeNumberOfNodeOptions:Cluster'] :: Cluster -> Maybe Text
+ Amazonka.Redshift.Types: [$sel:enabled:EventSubscription'] :: EventSubscription -> Maybe Bool
+ Amazonka.Redshift.Types: [$sel:encrypted:Cluster'] :: Cluster -> Maybe Bool
+ Amazonka.Redshift.Types: [$sel:encrypted:Snapshot'] :: Snapshot -> Maybe Bool
+ Amazonka.Redshift.Types: [$sel:encryptedWithHSM:Snapshot'] :: Snapshot -> Maybe Bool
+ Amazonka.Redshift.Types: [$sel:encryptionType:PendingModifiedValues'] :: PendingModifiedValues -> Maybe Text
+ Amazonka.Redshift.Types: [$sel:endTime:ScheduledAction'] :: ScheduledAction -> Maybe ISO8601
+ Amazonka.Redshift.Types: [$sel:endpoint:Cluster'] :: Cluster -> Maybe Endpoint
+ Amazonka.Redshift.Types: [$sel:endpointCount:EndpointAuthorization'] :: EndpointAuthorization -> Maybe Int
+ Amazonka.Redshift.Types: [$sel:endpointCreateTime:EndpointAccess'] :: EndpointAccess -> Maybe ISO8601
+ Amazonka.Redshift.Types: [$sel:endpointName:EndpointAccess'] :: EndpointAccess -> Maybe Text
+ Amazonka.Redshift.Types: [$sel:endpointStatus:EndpointAccess'] :: EndpointAccess -> Maybe Text
+ Amazonka.Redshift.Types: [$sel:engineFullVersion:Snapshot'] :: Snapshot -> Maybe Text
+ Amazonka.Redshift.Types: [$sel:enhancedVpcRouting:Cluster'] :: Cluster -> Maybe Bool
+ Amazonka.Redshift.Types: [$sel:enhancedVpcRouting:PendingModifiedValues'] :: PendingModifiedValues -> Maybe Bool
+ Amazonka.Redshift.Types: [$sel:enhancedVpcRouting:Snapshot'] :: Snapshot -> Maybe Bool
+ Amazonka.Redshift.Types: [$sel:estimatedDiskUtilizationPercent:NodeConfigurationOption'] :: NodeConfigurationOption -> Maybe Double
+ Amazonka.Redshift.Types: [$sel:estimatedSecondsToCompletion:Snapshot'] :: Snapshot -> Maybe Integer
+ Amazonka.Redshift.Types: [$sel:estimatedTimeToCompletionInSeconds:DataTransferProgress'] :: DataTransferProgress -> Maybe Integer
+ Amazonka.Redshift.Types: [$sel:estimatedTimeToCompletionInSeconds:ResizeProgressMessage'] :: ResizeProgressMessage -> Maybe Integer
+ Amazonka.Redshift.Types: [$sel:estimatedTimeToCompletionInSeconds:RestoreStatus'] :: RestoreStatus -> Maybe Integer
+ Amazonka.Redshift.Types: [$sel:eventCategories:Event'] :: Event -> Maybe [Text]
+ Amazonka.Redshift.Types: [$sel:eventCategories:EventInfoMap'] :: EventInfoMap -> Maybe [Text]
+ Amazonka.Redshift.Types: [$sel:eventCategoriesList:EventSubscription'] :: EventSubscription -> Maybe [Text]
+ Amazonka.Redshift.Types: [$sel:eventDescription:EventInfoMap'] :: EventInfoMap -> Maybe Text
+ Amazonka.Redshift.Types: [$sel:eventId:Event'] :: Event -> Maybe Text
+ Amazonka.Redshift.Types: [$sel:eventId:EventInfoMap'] :: EventInfoMap -> Maybe Text
+ Amazonka.Redshift.Types: [$sel:events:EventCategoriesMap'] :: EventCategoriesMap -> Maybe [EventInfoMap]
+ Amazonka.Redshift.Types: [$sel:expectedNextSnapshotScheduleTime:Cluster'] :: Cluster -> Maybe ISO8601
+ Amazonka.Redshift.Types: [$sel:expectedNextSnapshotScheduleTimeStatus:Cluster'] :: Cluster -> Maybe Text
+ Amazonka.Redshift.Types: [$sel:failureCode:SnapshotErrorMessage'] :: SnapshotErrorMessage -> Maybe Text
+ Amazonka.Redshift.Types: [$sel:failureReason:SnapshotErrorMessage'] :: SnapshotErrorMessage -> Maybe Text
+ Amazonka.Redshift.Types: [$sel:featureType:UsageLimit'] :: UsageLimit -> Maybe UsageLimitFeatureType
+ Amazonka.Redshift.Types: [$sel:fixedPrice:ReservedNode'] :: ReservedNode -> Maybe Double
+ Amazonka.Redshift.Types: [$sel:fixedPrice:ReservedNodeOffering'] :: ReservedNodeOffering -> Maybe Double
+ Amazonka.Redshift.Types: [$sel:grantee:EndpointAuthorization'] :: EndpointAuthorization -> Maybe Text
+ Amazonka.Redshift.Types: [$sel:grantor:EndpointAuthorization'] :: EndpointAuthorization -> Maybe Text
+ Amazonka.Redshift.Types: [$sel:hsmClientCertificateIdentifier:HsmClientCertificate'] :: HsmClientCertificate -> Maybe Text
+ Amazonka.Redshift.Types: [$sel:hsmClientCertificateIdentifier:HsmStatus'] :: HsmStatus -> Maybe Text
+ Amazonka.Redshift.Types: [$sel:hsmClientCertificatePublicKey:HsmClientCertificate'] :: HsmClientCertificate -> Maybe Text
+ Amazonka.Redshift.Types: [$sel:hsmConfigurationIdentifier:HsmConfiguration'] :: HsmConfiguration -> Maybe Text
+ Amazonka.Redshift.Types: [$sel:hsmConfigurationIdentifier:HsmStatus'] :: HsmStatus -> Maybe Text
+ Amazonka.Redshift.Types: [$sel:hsmIpAddress:HsmConfiguration'] :: HsmConfiguration -> Maybe Text
+ Amazonka.Redshift.Types: [$sel:hsmPartitionName:HsmConfiguration'] :: HsmConfiguration -> Maybe Text
+ Amazonka.Redshift.Types: [$sel:hsmStatus:Cluster'] :: Cluster -> Maybe HsmStatus
+ Amazonka.Redshift.Types: [$sel:iPRanges:ClusterSecurityGroup'] :: ClusterSecurityGroup -> Maybe [IPRange]
+ Amazonka.Redshift.Types: [$sel:iamRole:ScheduledAction'] :: ScheduledAction -> Maybe Text
+ Amazonka.Redshift.Types: [$sel:iamRoleArn:ClusterIamRole'] :: ClusterIamRole -> Maybe Text
+ Amazonka.Redshift.Types: [$sel:iamRoles:Cluster'] :: Cluster -> Maybe [ClusterIamRole]
+ Amazonka.Redshift.Types: [$sel:importTablesCompleted:ResizeProgressMessage'] :: ResizeProgressMessage -> Maybe [Text]
+ Amazonka.Redshift.Types: [$sel:importTablesInProgress:ResizeProgressMessage'] :: ResizeProgressMessage -> Maybe [Text]
+ Amazonka.Redshift.Types: [$sel:importTablesNotStarted:ResizeProgressMessage'] :: ResizeProgressMessage -> Maybe [Text]
+ Amazonka.Redshift.Types: [$sel:isModifiable:Parameter'] :: Parameter -> Maybe Bool
+ Amazonka.Redshift.Types: [$sel:key:Tag'] :: Tag -> Maybe Text
+ Amazonka.Redshift.Types: [$sel:kmsKeyId:Cluster'] :: Cluster -> Maybe Text
+ Amazonka.Redshift.Types: [$sel:kmsKeyId:Snapshot'] :: Snapshot -> Maybe Text
+ Amazonka.Redshift.Types: [$sel:kmsKeyId:SnapshotCopyGrant'] :: SnapshotCopyGrant -> Maybe Text
+ Amazonka.Redshift.Types: [$sel:lastFailureMessage:LoggingStatus'] :: LoggingStatus -> Maybe Text
+ Amazonka.Redshift.Types: [$sel:lastFailureTime:LoggingStatus'] :: LoggingStatus -> Maybe ISO8601
+ Amazonka.Redshift.Types: [$sel:lastSuccessfulDeliveryTime:LoggingStatus'] :: LoggingStatus -> Maybe ISO8601
+ Amazonka.Redshift.Types: [$sel:limitType:UsageLimit'] :: UsageLimit -> Maybe UsageLimitLimitType
+ Amazonka.Redshift.Types: [$sel:logDestinationType:LoggingStatus'] :: LoggingStatus -> Maybe LogDestinationType
+ Amazonka.Redshift.Types: [$sel:logExports:LoggingStatus'] :: LoggingStatus -> Maybe [Text]
+ Amazonka.Redshift.Types: [$sel:loggingEnabled:LoggingStatus'] :: LoggingStatus -> Maybe Bool
+ Amazonka.Redshift.Types: [$sel:maintenanceTrackName:Cluster'] :: Cluster -> Maybe Text
+ Amazonka.Redshift.Types: [$sel:maintenanceTrackName:MaintenanceTrack'] :: MaintenanceTrack -> Maybe Text
+ Amazonka.Redshift.Types: [$sel:maintenanceTrackName:PendingModifiedValues'] :: PendingModifiedValues -> Maybe Text
+ Amazonka.Redshift.Types: [$sel:maintenanceTrackName:Snapshot'] :: Snapshot -> Maybe Text
+ Amazonka.Redshift.Types: [$sel:maintenanceTrackName:UpdateTarget'] :: UpdateTarget -> Maybe Text
+ Amazonka.Redshift.Types: [$sel:managedBy:DataShare'] :: DataShare -> Maybe Text
+ Amazonka.Redshift.Types: [$sel:manualSnapshotRemainingDays:Snapshot'] :: Snapshot -> Maybe Int
+ Amazonka.Redshift.Types: [$sel:manualSnapshotRetentionPeriod:Cluster'] :: Cluster -> Maybe Int
+ Amazonka.Redshift.Types: [$sel:manualSnapshotRetentionPeriod:ClusterSnapshotCopyStatus'] :: ClusterSnapshotCopyStatus -> Maybe Int
+ Amazonka.Redshift.Types: [$sel:manualSnapshotRetentionPeriod:Snapshot'] :: Snapshot -> Maybe Int
+ Amazonka.Redshift.Types: [$sel:marker:DefaultClusterParameters'] :: DefaultClusterParameters -> Maybe Text
+ Amazonka.Redshift.Types: [$sel:masterUserPassword:PendingModifiedValues'] :: PendingModifiedValues -> Maybe Text
+ Amazonka.Redshift.Types: [$sel:masterUsername:Cluster'] :: Cluster -> Maybe Text
+ Amazonka.Redshift.Types: [$sel:masterUsername:Snapshot'] :: Snapshot -> Maybe Text
+ Amazonka.Redshift.Types: [$sel:message:Event'] :: Event -> Maybe Text
+ Amazonka.Redshift.Types: [$sel:message:ResizeProgressMessage'] :: ResizeProgressMessage -> Maybe Text
+ Amazonka.Redshift.Types: [$sel:message:TableRestoreStatus'] :: TableRestoreStatus -> Maybe Text
+ Amazonka.Redshift.Types: [$sel:minimumEngineVersion:Parameter'] :: Parameter -> Maybe Text
+ Amazonka.Redshift.Types: [$sel:mode:NodeConfigurationOption'] :: NodeConfigurationOption -> Maybe Mode
+ Amazonka.Redshift.Types: [$sel:modifyStatus:Cluster'] :: Cluster -> Maybe Text
+ Amazonka.Redshift.Types: [$sel:name:AvailabilityZone'] :: AvailabilityZone -> Maybe Text
+ Amazonka.Redshift.Types: [$sel:name:NodeConfigurationOptionsFilter'] :: NodeConfigurationOptionsFilter -> Maybe NodeConfigurationOptionsFilterName
+ Amazonka.Redshift.Types: [$sel:name:ScheduledActionFilter'] :: ScheduledActionFilter -> ScheduledActionFilterName
+ Amazonka.Redshift.Types: [$sel:name:SupportedPlatform'] :: SupportedPlatform -> Maybe Text
+ Amazonka.Redshift.Types: [$sel:networkInterfaceId:NetworkInterface'] :: NetworkInterface -> Maybe Text
+ Amazonka.Redshift.Types: [$sel:networkInterfaces:VpcEndpoint'] :: VpcEndpoint -> Maybe [NetworkInterface]
+ Amazonka.Redshift.Types: [$sel:newTableName':TableRestoreStatus'] :: TableRestoreStatus -> Maybe Text
+ Amazonka.Redshift.Types: [$sel:nextInvocations:ScheduledAction'] :: ScheduledAction -> Maybe [ISO8601]
+ Amazonka.Redshift.Types: [$sel:nextInvocations:SnapshotSchedule'] :: SnapshotSchedule -> Maybe [ISO8601]
+ Amazonka.Redshift.Types: [$sel:nextMaintenanceWindowStartTime:Cluster'] :: Cluster -> Maybe ISO8601
+ Amazonka.Redshift.Types: [$sel:nodeCount:ReservedNode'] :: ReservedNode -> Maybe Int
+ Amazonka.Redshift.Types: [$sel:nodeRole:ClusterNode'] :: ClusterNode -> Maybe Text
+ Amazonka.Redshift.Types: [$sel:nodeType:Cluster'] :: Cluster -> Maybe Text
+ Amazonka.Redshift.Types: [$sel:nodeType:NodeConfigurationOption'] :: NodeConfigurationOption -> Maybe Text
+ Amazonka.Redshift.Types: [$sel:nodeType:OrderableClusterOption'] :: OrderableClusterOption -> Maybe Text
+ Amazonka.Redshift.Types: [$sel:nodeType:PendingModifiedValues'] :: PendingModifiedValues -> Maybe Text
+ Amazonka.Redshift.Types: [$sel:nodeType:ReservedNode'] :: ReservedNode -> Maybe Text
+ Amazonka.Redshift.Types: [$sel:nodeType:ReservedNodeOffering'] :: ReservedNodeOffering -> Maybe Text
+ Amazonka.Redshift.Types: [$sel:nodeType:ResizeClusterMessage'] :: ResizeClusterMessage -> Maybe Text
+ Amazonka.Redshift.Types: [$sel:nodeType:Snapshot'] :: Snapshot -> Maybe Text
+ Amazonka.Redshift.Types: [$sel:numberOfNodes:Cluster'] :: Cluster -> Maybe Int
+ Amazonka.Redshift.Types: [$sel:numberOfNodes:NodeConfigurationOption'] :: NodeConfigurationOption -> Maybe Int
+ Amazonka.Redshift.Types: [$sel:numberOfNodes:PendingModifiedValues'] :: PendingModifiedValues -> Maybe Int
+ Amazonka.Redshift.Types: [$sel:numberOfNodes:ResizeClusterMessage'] :: ResizeClusterMessage -> Maybe Int
+ Amazonka.Redshift.Types: [$sel:numberOfNodes:Snapshot'] :: Snapshot -> Maybe Int
+ Amazonka.Redshift.Types: [$sel:offeringType:ReservedNode'] :: ReservedNode -> Maybe Text
+ Amazonka.Redshift.Types: [$sel:offeringType:ReservedNodeOffering'] :: ReservedNodeOffering -> Maybe Text
+ Amazonka.Redshift.Types: [$sel:operationName:SupportedOperation'] :: SupportedOperation -> Maybe Text
+ Amazonka.Redshift.Types: [$sel:operator:NodeConfigurationOptionsFilter'] :: NodeConfigurationOptionsFilter -> Maybe OperatorType
+ Amazonka.Redshift.Types: [$sel:ownerAccount:Snapshot'] :: Snapshot -> Maybe Text
+ Amazonka.Redshift.Types: [$sel:parameterApplyErrorDescription:ClusterParameterStatus'] :: ClusterParameterStatus -> Maybe Text
+ Amazonka.Redshift.Types: [$sel:parameterApplyStatus:ClusterParameterGroupStatus'] :: ClusterParameterGroupStatus -> Maybe Text
+ Amazonka.Redshift.Types: [$sel:parameterApplyStatus:ClusterParameterStatus'] :: ClusterParameterStatus -> Maybe Text
+ Amazonka.Redshift.Types: [$sel:parameterGroupFamily:ClusterParameterGroup'] :: ClusterParameterGroup -> Maybe Text
+ Amazonka.Redshift.Types: [$sel:parameterGroupFamily:DefaultClusterParameters'] :: DefaultClusterParameters -> Maybe Text
+ Amazonka.Redshift.Types: [$sel:parameterGroupName:ClusterParameterGroup'] :: ClusterParameterGroup -> Maybe Text
+ Amazonka.Redshift.Types: [$sel:parameterGroupName:ClusterParameterGroupNameMessage'] :: ClusterParameterGroupNameMessage -> Maybe Text
+ Amazonka.Redshift.Types: [$sel:parameterGroupName:ClusterParameterGroupStatus'] :: ClusterParameterGroupStatus -> Maybe Text
+ Amazonka.Redshift.Types: [$sel:parameterGroupStatus:ClusterParameterGroupNameMessage'] :: ClusterParameterGroupNameMessage -> Maybe Text
+ Amazonka.Redshift.Types: [$sel:parameterName:ClusterParameterStatus'] :: ClusterParameterStatus -> Maybe Text
+ Amazonka.Redshift.Types: [$sel:parameterName:Parameter'] :: Parameter -> Maybe Text
+ Amazonka.Redshift.Types: [$sel:parameterValue:Parameter'] :: Parameter -> Maybe Text
+ Amazonka.Redshift.Types: [$sel:parameters:DefaultClusterParameters'] :: DefaultClusterParameters -> Maybe [Parameter]
+ Amazonka.Redshift.Types: [$sel:partnerName:PartnerIntegrationInfo'] :: PartnerIntegrationInfo -> Maybe Text
+ Amazonka.Redshift.Types: [$sel:partnerName:PartnerIntegrationInputMessage'] :: PartnerIntegrationInputMessage -> Text
+ Amazonka.Redshift.Types: [$sel:partnerName:PartnerIntegrationOutputMessage'] :: PartnerIntegrationOutputMessage -> Maybe Text
+ Amazonka.Redshift.Types: [$sel:pauseCluster:ScheduledActionType'] :: ScheduledActionType -> Maybe PauseClusterMessage
+ Amazonka.Redshift.Types: [$sel:pendingActions:Cluster'] :: Cluster -> Maybe [Text]
+ Amazonka.Redshift.Types: [$sel:pendingModifiedValues:Cluster'] :: Cluster -> Maybe PendingModifiedValues
+ Amazonka.Redshift.Types: [$sel:period:UsageLimit'] :: UsageLimit -> Maybe UsageLimitPeriod
+ Amazonka.Redshift.Types: [$sel:port:Endpoint'] :: Endpoint -> Maybe Int
+ Amazonka.Redshift.Types: [$sel:port:EndpointAccess'] :: EndpointAccess -> Maybe Int
+ Amazonka.Redshift.Types: [$sel:port:Snapshot'] :: Snapshot -> Maybe Int
+ Amazonka.Redshift.Types: [$sel:preferredMaintenanceWindow:Cluster'] :: Cluster -> Maybe Text
+ Amazonka.Redshift.Types: [$sel:privateIPAddress:ClusterNode'] :: ClusterNode -> Maybe Text
+ Amazonka.Redshift.Types: [$sel:privateIpAddress:NetworkInterface'] :: NetworkInterface -> Maybe Text
+ Amazonka.Redshift.Types: [$sel:producerArn:DataShare'] :: DataShare -> Maybe Text
+ Amazonka.Redshift.Types: [$sel:progressInMegaBytes:ResizeProgressMessage'] :: ResizeProgressMessage -> Maybe Integer
+ Amazonka.Redshift.Types: [$sel:progressInMegaBytes:RestoreStatus'] :: RestoreStatus -> Maybe Integer
+ Amazonka.Redshift.Types: [$sel:progressInMegaBytes:TableRestoreStatus'] :: TableRestoreStatus -> Maybe Integer
+ Amazonka.Redshift.Types: [$sel:publicIPAddress:ClusterNode'] :: ClusterNode -> Maybe Text
+ Amazonka.Redshift.Types: [$sel:publiclyAccessible:Cluster'] :: Cluster -> Maybe Bool
+ Amazonka.Redshift.Types: [$sel:publiclyAccessible:PendingModifiedValues'] :: PendingModifiedValues -> Maybe Bool
+ Amazonka.Redshift.Types: [$sel:recurringChargeAmount:RecurringCharge'] :: RecurringCharge -> Maybe Double
+ Amazonka.Redshift.Types: [$sel:recurringChargeFrequency:RecurringCharge'] :: RecurringCharge -> Maybe Text
+ Amazonka.Redshift.Types: [$sel:recurringCharges:ReservedNode'] :: ReservedNode -> Maybe [RecurringCharge]
+ Amazonka.Redshift.Types: [$sel:recurringCharges:ReservedNodeOffering'] :: ReservedNodeOffering -> Maybe [RecurringCharge]
+ Amazonka.Redshift.Types: [$sel:requestTime:ReservedNodeExchangeStatus'] :: ReservedNodeExchangeStatus -> Maybe ISO8601
+ Amazonka.Redshift.Types: [$sel:requestTime:TableRestoreStatus'] :: TableRestoreStatus -> Maybe ISO8601
+ Amazonka.Redshift.Types: [$sel:reservedNodeExchangeRequestId:ReservedNodeExchangeStatus'] :: ReservedNodeExchangeStatus -> Maybe Text
+ Amazonka.Redshift.Types: [$sel:reservedNodeExchangeStatus:Cluster'] :: Cluster -> Maybe ReservedNodeExchangeStatus
+ Amazonka.Redshift.Types: [$sel:reservedNodeId:ReservedNode'] :: ReservedNode -> Maybe Text
+ Amazonka.Redshift.Types: [$sel:reservedNodeId:ResizeClusterMessage'] :: ResizeClusterMessage -> Maybe Text
+ Amazonka.Redshift.Types: [$sel:reservedNodeOfferingId:ReservedNode'] :: ReservedNode -> Maybe Text
+ Amazonka.Redshift.Types: [$sel:reservedNodeOfferingId:ReservedNodeOffering'] :: ReservedNodeOffering -> Maybe Text
+ Amazonka.Redshift.Types: [$sel:reservedNodeOfferingType:ReservedNode'] :: ReservedNode -> Maybe ReservedNodeOfferingType
+ Amazonka.Redshift.Types: [$sel:reservedNodeOfferingType:ReservedNodeOffering'] :: ReservedNodeOffering -> Maybe ReservedNodeOfferingType
+ Amazonka.Redshift.Types: [$sel:resizeCluster:ScheduledActionType'] :: ScheduledActionType -> Maybe ResizeClusterMessage
+ Amazonka.Redshift.Types: [$sel:resizeInfo:Cluster'] :: Cluster -> Maybe ResizeInfo
+ Amazonka.Redshift.Types: [$sel:resizeType:ResizeInfo'] :: ResizeInfo -> Maybe Text
+ Amazonka.Redshift.Types: [$sel:resizeType:ResizeProgressMessage'] :: ResizeProgressMessage -> Maybe Text
+ Amazonka.Redshift.Types: [$sel:resourceName:TaggedResource'] :: TaggedResource -> Maybe Text
+ Amazonka.Redshift.Types: [$sel:resourceOwner:EndpointAccess'] :: EndpointAccess -> Maybe Text
+ Amazonka.Redshift.Types: [$sel:resourceType:TaggedResource'] :: TaggedResource -> Maybe Text
+ Amazonka.Redshift.Types: [$sel:restorableNodeTypes:Snapshot'] :: Snapshot -> Maybe [Text]
+ Amazonka.Redshift.Types: [$sel:restoreStatus:Cluster'] :: Cluster -> Maybe RestoreStatus
+ Amazonka.Redshift.Types: [$sel:resumeCluster:ScheduledActionType'] :: ScheduledActionType -> Maybe ResumeClusterMessage
+ Amazonka.Redshift.Types: [$sel:retentionPeriod:ClusterSnapshotCopyStatus'] :: ClusterSnapshotCopyStatus -> Maybe Integer
+ Amazonka.Redshift.Types: [$sel:revisionTargets:ClusterDbRevision'] :: ClusterDbRevision -> Maybe [RevisionTarget]
+ Amazonka.Redshift.Types: [$sel:s3KeyPrefix:LoggingStatus'] :: LoggingStatus -> Maybe Text
+ Amazonka.Redshift.Types: [$sel:schedule:ScheduledAction'] :: ScheduledAction -> Maybe Text
+ Amazonka.Redshift.Types: [$sel:scheduleAssociationState:ClusterAssociatedToSchedule'] :: ClusterAssociatedToSchedule -> Maybe ScheduleState
+ Amazonka.Redshift.Types: [$sel:scheduleDefinitions:SnapshotSchedule'] :: SnapshotSchedule -> Maybe [Text]
+ Amazonka.Redshift.Types: [$sel:scheduleDescription:SnapshotSchedule'] :: SnapshotSchedule -> Maybe Text
+ Amazonka.Redshift.Types: [$sel:scheduleIdentifier:SnapshotSchedule'] :: SnapshotSchedule -> Maybe Text
+ Amazonka.Redshift.Types: [$sel:scheduledActionDescription:ScheduledAction'] :: ScheduledAction -> Maybe Text
+ Amazonka.Redshift.Types: [$sel:scheduledActionName:ScheduledAction'] :: ScheduledAction -> Maybe Text
+ Amazonka.Redshift.Types: [$sel:severity:Event'] :: Event -> Maybe Text
+ Amazonka.Redshift.Types: [$sel:severity:EventInfoMap'] :: EventInfoMap -> Maybe Text
+ Amazonka.Redshift.Types: [$sel:severity:EventSubscription'] :: EventSubscription -> Maybe Text
+ Amazonka.Redshift.Types: [$sel:snapshotClusterIdentifier:DeleteClusterSnapshotMessage'] :: DeleteClusterSnapshotMessage -> Maybe Text
+ Amazonka.Redshift.Types: [$sel:snapshotClusterIdentifier:SnapshotErrorMessage'] :: SnapshotErrorMessage -> Maybe Text
+ Amazonka.Redshift.Types: [$sel:snapshotCopyGrantName:ClusterSnapshotCopyStatus'] :: ClusterSnapshotCopyStatus -> Maybe Text
+ Amazonka.Redshift.Types: [$sel:snapshotCopyGrantName:SnapshotCopyGrant'] :: SnapshotCopyGrant -> Maybe Text
+ Amazonka.Redshift.Types: [$sel:snapshotCreateTime:Snapshot'] :: Snapshot -> Maybe ISO8601
+ Amazonka.Redshift.Types: [$sel:snapshotIdentifier:DeleteClusterSnapshotMessage'] :: DeleteClusterSnapshotMessage -> Text
+ Amazonka.Redshift.Types: [$sel:snapshotIdentifier:Snapshot'] :: Snapshot -> Maybe Text
+ Amazonka.Redshift.Types: [$sel:snapshotIdentifier:SnapshotErrorMessage'] :: SnapshotErrorMessage -> Maybe Text
+ Amazonka.Redshift.Types: [$sel:snapshotIdentifier:TableRestoreStatus'] :: TableRestoreStatus -> Maybe Text
+ Amazonka.Redshift.Types: [$sel:snapshotRetentionStartTime:Snapshot'] :: Snapshot -> Maybe ISO8601
+ Amazonka.Redshift.Types: [$sel:snapshotScheduleIdentifier:Cluster'] :: Cluster -> Maybe Text
+ Amazonka.Redshift.Types: [$sel:snapshotScheduleState:Cluster'] :: Cluster -> Maybe ScheduleState
+ Amazonka.Redshift.Types: [$sel:snapshotSizeInMegaBytes:RestoreStatus'] :: RestoreStatus -> Maybe Integer
+ Amazonka.Redshift.Types: [$sel:snapshotType:Snapshot'] :: Snapshot -> Maybe Text
+ Amazonka.Redshift.Types: [$sel:snsTopicArn:EventSubscription'] :: EventSubscription -> Maybe Text
+ Amazonka.Redshift.Types: [$sel:sortOrder:SnapshotSortingEntity'] :: SnapshotSortingEntity -> Maybe SortByOrder
+ Amazonka.Redshift.Types: [$sel:source:Parameter'] :: Parameter -> Maybe Text
+ Amazonka.Redshift.Types: [$sel:sourceDatabaseName:TableRestoreStatus'] :: TableRestoreStatus -> Maybe Text
+ Amazonka.Redshift.Types: [$sel:sourceIdentifier:Event'] :: Event -> Maybe Text
+ Amazonka.Redshift.Types: [$sel:sourceIdsList:EventSubscription'] :: EventSubscription -> Maybe [Text]
+ Amazonka.Redshift.Types: [$sel:sourceRegion:Snapshot'] :: Snapshot -> Maybe Text
+ Amazonka.Redshift.Types: [$sel:sourceReservedNode:ReservedNodeConfigurationOption'] :: ReservedNodeConfigurationOption -> Maybe ReservedNode
+ Amazonka.Redshift.Types: [$sel:sourceReservedNodeCount:ReservedNodeExchangeStatus'] :: ReservedNodeExchangeStatus -> Maybe Int
+ Amazonka.Redshift.Types: [$sel:sourceReservedNodeId:ReservedNodeExchangeStatus'] :: ReservedNodeExchangeStatus -> Maybe Text
+ Amazonka.Redshift.Types: [$sel:sourceReservedNodeType:ReservedNodeExchangeStatus'] :: ReservedNodeExchangeStatus -> Maybe Text
+ Amazonka.Redshift.Types: [$sel:sourceSchemaName:TableRestoreStatus'] :: TableRestoreStatus -> Maybe Text
+ Amazonka.Redshift.Types: [$sel:sourceTableName:TableRestoreStatus'] :: TableRestoreStatus -> Maybe Text
+ Amazonka.Redshift.Types: [$sel:sourceType:Event'] :: Event -> Maybe SourceType
+ Amazonka.Redshift.Types: [$sel:sourceType:EventCategoriesMap'] :: EventCategoriesMap -> Maybe Text
+ Amazonka.Redshift.Types: [$sel:sourceType:EventSubscription'] :: EventSubscription -> Maybe Text
+ Amazonka.Redshift.Types: [$sel:startTime:ReservedNode'] :: ReservedNode -> Maybe ISO8601
+ Amazonka.Redshift.Types: [$sel:startTime:ScheduledAction'] :: ScheduledAction -> Maybe ISO8601
+ Amazonka.Redshift.Types: [$sel:state:ReservedNode'] :: ReservedNode -> Maybe Text
+ Amazonka.Redshift.Types: [$sel:state:ScheduledAction'] :: ScheduledAction -> Maybe ScheduledActionState
+ Amazonka.Redshift.Types: [$sel:status:ClusterSecurityGroupMembership'] :: ClusterSecurityGroupMembership -> Maybe Text
+ Amazonka.Redshift.Types: [$sel:status:DataShareAssociation'] :: DataShareAssociation -> Maybe DataShareStatus
+ Amazonka.Redshift.Types: [$sel:status:DataTransferProgress'] :: DataTransferProgress -> Maybe Text
+ Amazonka.Redshift.Types: [$sel:status:EC2SecurityGroup'] :: EC2SecurityGroup -> Maybe Text
+ Amazonka.Redshift.Types: [$sel:status:ElasticIpStatus'] :: ElasticIpStatus -> Maybe Text
+ Amazonka.Redshift.Types: [$sel:status:EndpointAuthorization'] :: EndpointAuthorization -> Maybe AuthorizationStatus
+ Amazonka.Redshift.Types: [$sel:status:EventSubscription'] :: EventSubscription -> Maybe Text
+ Amazonka.Redshift.Types: [$sel:status:HsmStatus'] :: HsmStatus -> Maybe Text
+ Amazonka.Redshift.Types: [$sel:status:IPRange'] :: IPRange -> Maybe Text
+ Amazonka.Redshift.Types: [$sel:status:PartnerIntegrationInfo'] :: PartnerIntegrationInfo -> Maybe PartnerIntegrationStatus
+ Amazonka.Redshift.Types: [$sel:status:ReservedNodeExchangeStatus'] :: ReservedNodeExchangeStatus -> Maybe ReservedNodeExchangeStatusType
+ Amazonka.Redshift.Types: [$sel:status:ResizeProgressMessage'] :: ResizeProgressMessage -> Maybe Text
+ Amazonka.Redshift.Types: [$sel:status:RestoreStatus'] :: RestoreStatus -> Maybe Text
+ Amazonka.Redshift.Types: [$sel:status:Snapshot'] :: Snapshot -> Maybe Text
+ Amazonka.Redshift.Types: [$sel:status:TableRestoreStatus'] :: TableRestoreStatus -> Maybe TableRestoreStatusType
+ Amazonka.Redshift.Types: [$sel:status:VpcSecurityGroupMembership'] :: VpcSecurityGroupMembership -> Maybe Text
+ Amazonka.Redshift.Types: [$sel:statusChangeDate:DataShareAssociation'] :: DataShareAssociation -> Maybe ISO8601
+ Amazonka.Redshift.Types: [$sel:statusMessage:PartnerIntegrationInfo'] :: PartnerIntegrationInfo -> Maybe Text
+ Amazonka.Redshift.Types: [$sel:subnetAvailabilityZone:Subnet'] :: Subnet -> Maybe AvailabilityZone
+ Amazonka.Redshift.Types: [$sel:subnetGroupName:EndpointAccess'] :: EndpointAccess -> Maybe Text
+ Amazonka.Redshift.Types: [$sel:subnetGroupStatus:ClusterSubnetGroup'] :: ClusterSubnetGroup -> Maybe Text
+ Amazonka.Redshift.Types: [$sel:subnetId:NetworkInterface'] :: NetworkInterface -> Maybe Text
+ Amazonka.Redshift.Types: [$sel:subnetIdentifier:Subnet'] :: Subnet -> Maybe Text
+ Amazonka.Redshift.Types: [$sel:subnetStatus:Subnet'] :: Subnet -> Maybe Text
+ Amazonka.Redshift.Types: [$sel:subnets:ClusterSubnetGroup'] :: ClusterSubnetGroup -> Maybe [Subnet]
+ Amazonka.Redshift.Types: [$sel:subscriptionCreationTime:EventSubscription'] :: EventSubscription -> Maybe ISO8601
+ Amazonka.Redshift.Types: [$sel:supportedOperations:UpdateTarget'] :: UpdateTarget -> Maybe [SupportedOperation]
+ Amazonka.Redshift.Types: [$sel:supportedPlatforms:AvailabilityZone'] :: AvailabilityZone -> Maybe [SupportedPlatform]
+ Amazonka.Redshift.Types: [$sel:tableRestoreRequestId:TableRestoreStatus'] :: TableRestoreStatus -> Maybe Text
+ Amazonka.Redshift.Types: [$sel:tag:TaggedResource'] :: TaggedResource -> Maybe Tag
+ Amazonka.Redshift.Types: [$sel:tags:Cluster'] :: Cluster -> Maybe [Tag]
+ Amazonka.Redshift.Types: [$sel:tags:ClusterParameterGroup'] :: ClusterParameterGroup -> Maybe [Tag]
+ Amazonka.Redshift.Types: [$sel:tags:ClusterSecurityGroup'] :: ClusterSecurityGroup -> Maybe [Tag]
+ Amazonka.Redshift.Types: [$sel:tags:ClusterSubnetGroup'] :: ClusterSubnetGroup -> Maybe [Tag]
+ Amazonka.Redshift.Types: [$sel:tags:EC2SecurityGroup'] :: EC2SecurityGroup -> Maybe [Tag]
+ Amazonka.Redshift.Types: [$sel:tags:EventSubscription'] :: EventSubscription -> Maybe [Tag]
+ Amazonka.Redshift.Types: [$sel:tags:HsmClientCertificate'] :: HsmClientCertificate -> Maybe [Tag]
+ Amazonka.Redshift.Types: [$sel:tags:HsmConfiguration'] :: HsmConfiguration -> Maybe [Tag]
+ Amazonka.Redshift.Types: [$sel:tags:IPRange'] :: IPRange -> Maybe [Tag]
+ Amazonka.Redshift.Types: [$sel:tags:Snapshot'] :: Snapshot -> Maybe [Tag]
+ Amazonka.Redshift.Types: [$sel:tags:SnapshotCopyGrant'] :: SnapshotCopyGrant -> Maybe [Tag]
+ Amazonka.Redshift.Types: [$sel:tags:SnapshotSchedule'] :: SnapshotSchedule -> Maybe [Tag]
+ Amazonka.Redshift.Types: [$sel:tags:UsageLimit'] :: UsageLimit -> Maybe [Tag]
+ Amazonka.Redshift.Types: [$sel:targetAction:ScheduledAction'] :: ScheduledAction -> Maybe ScheduledActionType
+ Amazonka.Redshift.Types: [$sel:targetClusterType:ResizeProgressMessage'] :: ResizeProgressMessage -> Maybe Text
+ Amazonka.Redshift.Types: [$sel:targetDatabaseName:TableRestoreStatus'] :: TableRestoreStatus -> Maybe Text
+ Amazonka.Redshift.Types: [$sel:targetEncryptionType:ResizeProgressMessage'] :: ResizeProgressMessage -> Maybe Text
+ Amazonka.Redshift.Types: [$sel:targetNodeType:ResizeProgressMessage'] :: ResizeProgressMessage -> Maybe Text
+ Amazonka.Redshift.Types: [$sel:targetNumberOfNodes:ResizeProgressMessage'] :: ResizeProgressMessage -> Maybe Int
+ Amazonka.Redshift.Types: [$sel:targetReservedNodeCount:ReservedNodeConfigurationOption'] :: ReservedNodeConfigurationOption -> Maybe Int
+ Amazonka.Redshift.Types: [$sel:targetReservedNodeCount:ReservedNodeExchangeStatus'] :: ReservedNodeExchangeStatus -> Maybe Int
+ Amazonka.Redshift.Types: [$sel:targetReservedNodeOffering:ReservedNodeConfigurationOption'] :: ReservedNodeConfigurationOption -> Maybe ReservedNodeOffering
+ Amazonka.Redshift.Types: [$sel:targetReservedNodeOfferingId:ReservedNodeExchangeStatus'] :: ReservedNodeExchangeStatus -> Maybe Text
+ Amazonka.Redshift.Types: [$sel:targetReservedNodeOfferingId:ResizeClusterMessage'] :: ResizeClusterMessage -> Maybe Text
+ Amazonka.Redshift.Types: [$sel:targetReservedNodeType:ReservedNodeExchangeStatus'] :: ReservedNodeExchangeStatus -> Maybe Text
+ Amazonka.Redshift.Types: [$sel:targetSchemaName:TableRestoreStatus'] :: TableRestoreStatus -> Maybe Text
+ Amazonka.Redshift.Types: [$sel:totalBackupSizeInMegaBytes:Snapshot'] :: Snapshot -> Maybe Double
+ Amazonka.Redshift.Types: [$sel:totalDataInMegaBytes:DataTransferProgress'] :: DataTransferProgress -> Maybe Integer
+ Amazonka.Redshift.Types: [$sel:totalDataInMegaBytes:TableRestoreStatus'] :: TableRestoreStatus -> Maybe Integer
+ Amazonka.Redshift.Types: [$sel:totalResizeDataInMegaBytes:ResizeProgressMessage'] :: ResizeProgressMessage -> Maybe Integer
+ Amazonka.Redshift.Types: [$sel:totalStorageCapacityInMegaBytes:Cluster'] :: Cluster -> Maybe Integer
+ Amazonka.Redshift.Types: [$sel:updateTargets:MaintenanceTrack'] :: MaintenanceTrack -> Maybe [UpdateTarget]
+ Amazonka.Redshift.Types: [$sel:updatedAt:PartnerIntegrationInfo'] :: PartnerIntegrationInfo -> Maybe ISO8601
+ Amazonka.Redshift.Types: [$sel:usageLimitId:UsageLimit'] :: UsageLimit -> Maybe Text
+ Amazonka.Redshift.Types: [$sel:usagePrice:ReservedNode'] :: ReservedNode -> Maybe Double
+ Amazonka.Redshift.Types: [$sel:usagePrice:ReservedNodeOffering'] :: ReservedNodeOffering -> Maybe Double
+ Amazonka.Redshift.Types: [$sel:value:Tag'] :: Tag -> Maybe Text
+ Amazonka.Redshift.Types: [$sel:values:NodeConfigurationOptionsFilter'] :: NodeConfigurationOptionsFilter -> Maybe [Text]
+ Amazonka.Redshift.Types: [$sel:values:ScheduledActionFilter'] :: ScheduledActionFilter -> [Text]
+ Amazonka.Redshift.Types: [$sel:vpcEndpoint:EndpointAccess'] :: EndpointAccess -> Maybe VpcEndpoint
+ Amazonka.Redshift.Types: [$sel:vpcEndpointId:VpcEndpoint'] :: VpcEndpoint -> Maybe Text
+ Amazonka.Redshift.Types: [$sel:vpcEndpoints:Endpoint'] :: Endpoint -> Maybe [VpcEndpoint]
+ Amazonka.Redshift.Types: [$sel:vpcId:Cluster'] :: Cluster -> Maybe Text
+ Amazonka.Redshift.Types: [$sel:vpcId:ClusterSubnetGroup'] :: ClusterSubnetGroup -> Maybe Text
+ Amazonka.Redshift.Types: [$sel:vpcId:Snapshot'] :: Snapshot -> Maybe Text
+ Amazonka.Redshift.Types: [$sel:vpcId:VpcEndpoint'] :: VpcEndpoint -> Maybe Text
+ Amazonka.Redshift.Types: [$sel:vpcSecurityGroupId:VpcSecurityGroupMembership'] :: VpcSecurityGroupMembership -> Maybe Text
+ Amazonka.Redshift.Types: [$sel:vpcSecurityGroups:Cluster'] :: Cluster -> Maybe [VpcSecurityGroupMembership]
+ Amazonka.Redshift.Types: [$sel:vpcSecurityGroups:EndpointAccess'] :: EndpointAccess -> Maybe [VpcSecurityGroupMembership]
+ Amazonka.Redshift.Types: [fromActionType] :: ActionType -> Text
+ Amazonka.Redshift.Types: [fromAquaConfigurationStatus] :: AquaConfigurationStatus -> Text
+ Amazonka.Redshift.Types: [fromAquaStatus] :: AquaStatus -> Text
+ Amazonka.Redshift.Types: [fromAuthorizationStatus] :: AuthorizationStatus -> Text
+ Amazonka.Redshift.Types: [fromDataShareStatusForConsumer] :: DataShareStatusForConsumer -> Text
+ Amazonka.Redshift.Types: [fromDataShareStatusForProducer] :: DataShareStatusForProducer -> Text
+ Amazonka.Redshift.Types: [fromDataShareStatus] :: DataShareStatus -> Text
+ Amazonka.Redshift.Types: [fromLogDestinationType] :: LogDestinationType -> Text
+ Amazonka.Redshift.Types: [fromMode] :: Mode -> Text
+ Amazonka.Redshift.Types: [fromNodeConfigurationOptionsFilterName] :: NodeConfigurationOptionsFilterName -> Text
+ Amazonka.Redshift.Types: [fromOperatorType] :: OperatorType -> Text
+ Amazonka.Redshift.Types: [fromParameterApplyType] :: ParameterApplyType -> Text
+ Amazonka.Redshift.Types: [fromPartnerIntegrationStatus] :: PartnerIntegrationStatus -> Text
+ Amazonka.Redshift.Types: [fromReservedNodeExchangeActionType] :: ReservedNodeExchangeActionType -> Text
+ Amazonka.Redshift.Types: [fromReservedNodeExchangeStatusType] :: ReservedNodeExchangeStatusType -> Text
+ Amazonka.Redshift.Types: [fromReservedNodeOfferingType] :: ReservedNodeOfferingType -> Text
+ Amazonka.Redshift.Types: [fromScheduleState] :: ScheduleState -> Text
+ Amazonka.Redshift.Types: [fromScheduledActionFilterName] :: ScheduledActionFilterName -> Text
+ Amazonka.Redshift.Types: [fromScheduledActionState] :: ScheduledActionState -> Text
+ Amazonka.Redshift.Types: [fromScheduledActionTypeValues] :: ScheduledActionTypeValues -> Text
+ Amazonka.Redshift.Types: [fromSnapshotAttributeToSortBy] :: SnapshotAttributeToSortBy -> Text
+ Amazonka.Redshift.Types: [fromSortByOrder] :: SortByOrder -> Text
+ Amazonka.Redshift.Types: [fromSourceType] :: SourceType -> Text
+ Amazonka.Redshift.Types: [fromTableRestoreStatusType] :: TableRestoreStatusType -> Text
+ Amazonka.Redshift.Types: [fromUsageLimitBreachAction] :: UsageLimitBreachAction -> Text
+ Amazonka.Redshift.Types: [fromUsageLimitFeatureType] :: UsageLimitFeatureType -> Text
+ Amazonka.Redshift.Types: [fromUsageLimitLimitType] :: UsageLimitLimitType -> Text
+ Amazonka.Redshift.Types: [fromUsageLimitPeriod] :: UsageLimitPeriod -> Text
+ Amazonka.Redshift.Types: _AccessToClusterDeniedFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift.Types: _AccessToSnapshotDeniedFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift.Types: _AuthenticationProfileAlreadyExistsFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift.Types: _AuthenticationProfileNotFoundFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift.Types: _AuthenticationProfileQuotaExceededFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift.Types: _AuthorizationAlreadyExistsFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift.Types: _AuthorizationNotFoundFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift.Types: _AuthorizationQuotaExceededFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift.Types: _BatchDeleteRequestSizeExceededFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift.Types: _BatchModifyClusterSnapshotsLimitExceededFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift.Types: _BucketNotFoundFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift.Types: _ClusterAlreadyExistsFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift.Types: _ClusterNotFoundFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift.Types: _ClusterOnLatestRevisionFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift.Types: _ClusterParameterGroupAlreadyExistsFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift.Types: _ClusterParameterGroupNotFoundFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift.Types: _ClusterParameterGroupQuotaExceededFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift.Types: _ClusterQuotaExceededFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift.Types: _ClusterSecurityGroupAlreadyExistsFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift.Types: _ClusterSecurityGroupNotFoundFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift.Types: _ClusterSecurityGroupQuotaExceededFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift.Types: _ClusterSnapshotAlreadyExistsFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift.Types: _ClusterSnapshotNotFoundFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift.Types: _ClusterSnapshotQuotaExceededFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift.Types: _ClusterSubnetGroupAlreadyExistsFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift.Types: _ClusterSubnetGroupNotFoundFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift.Types: _ClusterSubnetGroupQuotaExceededFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift.Types: _ClusterSubnetQuotaExceededFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift.Types: _CopyToRegionDisabledFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift.Types: _DependentServiceRequestThrottlingFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift.Types: _DependentServiceUnavailableFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift.Types: _EndpointAlreadyExistsFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift.Types: _EndpointAuthorizationAlreadyExistsFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift.Types: _EndpointAuthorizationNotFoundFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift.Types: _EndpointAuthorizationsPerClusterLimitExceededFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift.Types: _EndpointNotFoundFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift.Types: _EndpointsPerAuthorizationLimitExceededFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift.Types: _EndpointsPerClusterLimitExceededFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift.Types: _EventSubscriptionQuotaExceededFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift.Types: _HsmClientCertificateAlreadyExistsFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift.Types: _HsmClientCertificateNotFoundFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift.Types: _HsmClientCertificateQuotaExceededFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift.Types: _HsmConfigurationAlreadyExistsFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift.Types: _HsmConfigurationNotFoundFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift.Types: _HsmConfigurationQuotaExceededFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift.Types: _InProgressTableRestoreQuotaExceededFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift.Types: _IncompatibleOrderableOptions :: AsError a => Fold a ServiceError
+ Amazonka.Redshift.Types: _InsufficientClusterCapacityFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift.Types: _InsufficientS3BucketPolicyFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift.Types: _InvalidAuthenticationProfileRequestFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift.Types: _InvalidAuthorizationStateFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift.Types: _InvalidClusterParameterGroupStateFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift.Types: _InvalidClusterSecurityGroupStateFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift.Types: _InvalidClusterSnapshotScheduleStateFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift.Types: _InvalidClusterSnapshotStateFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift.Types: _InvalidClusterStateFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift.Types: _InvalidClusterSubnetGroupStateFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift.Types: _InvalidClusterSubnetStateFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift.Types: _InvalidClusterTrackFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift.Types: _InvalidDataShareFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift.Types: _InvalidElasticIpFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift.Types: _InvalidEndpointStateFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift.Types: _InvalidHsmClientCertificateStateFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift.Types: _InvalidHsmConfigurationStateFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift.Types: _InvalidNamespaceFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift.Types: _InvalidReservedNodeStateFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift.Types: _InvalidRestoreFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift.Types: _InvalidRetentionPeriodFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift.Types: _InvalidS3BucketNameFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift.Types: _InvalidS3KeyPrefixFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift.Types: _InvalidScheduleFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift.Types: _InvalidScheduledActionFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift.Types: _InvalidSnapshotCopyGrantStateFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift.Types: _InvalidSubnet :: AsError a => Fold a ServiceError
+ Amazonka.Redshift.Types: _InvalidSubscriptionStateFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift.Types: _InvalidTableRestoreArgumentFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift.Types: _InvalidTagFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift.Types: _InvalidUsageLimitFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift.Types: _InvalidVPCNetworkStateFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift.Types: _LimitExceededFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift.Types: _NumberOfNodesPerClusterLimitExceededFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift.Types: _NumberOfNodesQuotaExceededFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift.Types: _PartnerNotFoundFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift.Types: _ReservedNodeAlreadyExistsFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift.Types: _ReservedNodeAlreadyMigratedFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift.Types: _ReservedNodeExchangeNotFoundFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift.Types: _ReservedNodeNotFoundFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift.Types: _ReservedNodeOfferingNotFoundFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift.Types: _ReservedNodeQuotaExceededFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift.Types: _ResizeNotFoundFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift.Types: _ResourceNotFoundFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift.Types: _SNSInvalidTopicFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift.Types: _SNSNoAuthorizationFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift.Types: _SNSTopicArnNotFoundFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift.Types: _ScheduleDefinitionTypeUnsupportedFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift.Types: _ScheduledActionAlreadyExistsFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift.Types: _ScheduledActionNotFoundFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift.Types: _ScheduledActionQuotaExceededFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift.Types: _ScheduledActionTypeUnsupportedFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift.Types: _SnapshotCopyAlreadyDisabledFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift.Types: _SnapshotCopyAlreadyEnabledFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift.Types: _SnapshotCopyDisabledFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift.Types: _SnapshotCopyGrantAlreadyExistsFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift.Types: _SnapshotCopyGrantNotFoundFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift.Types: _SnapshotCopyGrantQuotaExceededFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift.Types: _SnapshotScheduleAlreadyExistsFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift.Types: _SnapshotScheduleNotFoundFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift.Types: _SnapshotScheduleQuotaExceededFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift.Types: _SnapshotScheduleUpdateInProgressFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift.Types: _SourceNotFoundFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift.Types: _SubnetAlreadyInUse :: AsError a => Fold a ServiceError
+ Amazonka.Redshift.Types: _SubscriptionAlreadyExistFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift.Types: _SubscriptionCategoryNotFoundFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift.Types: _SubscriptionEventIdNotFoundFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift.Types: _SubscriptionNotFoundFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift.Types: _SubscriptionSeverityNotFoundFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift.Types: _TableLimitExceededFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift.Types: _TableRestoreNotFoundFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift.Types: _TagLimitExceededFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift.Types: _UnauthorizedOperation :: AsError a => Fold a ServiceError
+ Amazonka.Redshift.Types: _UnauthorizedPartnerIntegrationFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift.Types: _UnknownSnapshotCopyRegionFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift.Types: _UnsupportedOperationFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift.Types: _UnsupportedOptionFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift.Types: _UsageLimitAlreadyExistsFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift.Types: _UsageLimitNotFoundFault :: AsError a => Fold a ServiceError
+ Amazonka.Redshift.Types: accountAttribute_attributeName :: Lens' AccountAttribute (Maybe Text)
+ Amazonka.Redshift.Types: accountAttribute_attributeValues :: Lens' AccountAttribute (Maybe [AttributeValueTarget])
+ Amazonka.Redshift.Types: accountWithRestoreAccess_accountAlias :: Lens' AccountWithRestoreAccess (Maybe Text)
+ Amazonka.Redshift.Types: accountWithRestoreAccess_accountId :: Lens' AccountWithRestoreAccess (Maybe Text)
+ Amazonka.Redshift.Types: aquaConfiguration_aquaConfigurationStatus :: Lens' AquaConfiguration (Maybe AquaConfigurationStatus)
+ Amazonka.Redshift.Types: aquaConfiguration_aquaStatus :: Lens' AquaConfiguration (Maybe AquaStatus)
+ Amazonka.Redshift.Types: attributeValueTarget_attributeValue :: Lens' AttributeValueTarget (Maybe Text)
+ Amazonka.Redshift.Types: authenticationProfile_authenticationProfileContent :: Lens' AuthenticationProfile (Maybe Text)
+ Amazonka.Redshift.Types: authenticationProfile_authenticationProfileName :: Lens' AuthenticationProfile (Maybe Text)
+ Amazonka.Redshift.Types: availabilityZone_name :: Lens' AvailabilityZone (Maybe Text)
+ Amazonka.Redshift.Types: availabilityZone_supportedPlatforms :: Lens' AvailabilityZone (Maybe [SupportedPlatform])
+ Amazonka.Redshift.Types: clusterAssociatedToSchedule_clusterIdentifier :: Lens' ClusterAssociatedToSchedule (Maybe Text)
+ Amazonka.Redshift.Types: clusterAssociatedToSchedule_scheduleAssociationState :: Lens' ClusterAssociatedToSchedule (Maybe ScheduleState)
+ Amazonka.Redshift.Types: clusterDbRevision_clusterIdentifier :: Lens' ClusterDbRevision (Maybe Text)
+ Amazonka.Redshift.Types: clusterDbRevision_currentDatabaseRevision :: Lens' ClusterDbRevision (Maybe Text)
+ Amazonka.Redshift.Types: clusterDbRevision_databaseRevisionReleaseDate :: Lens' ClusterDbRevision (Maybe UTCTime)
+ Amazonka.Redshift.Types: clusterDbRevision_revisionTargets :: Lens' ClusterDbRevision (Maybe [RevisionTarget])
+ Amazonka.Redshift.Types: clusterIamRole_applyStatus :: Lens' ClusterIamRole (Maybe Text)
+ Amazonka.Redshift.Types: clusterIamRole_iamRoleArn :: Lens' ClusterIamRole (Maybe Text)
+ Amazonka.Redshift.Types: clusterNode_nodeRole :: Lens' ClusterNode (Maybe Text)
+ Amazonka.Redshift.Types: clusterNode_privateIPAddress :: Lens' ClusterNode (Maybe Text)
+ Amazonka.Redshift.Types: clusterNode_publicIPAddress :: Lens' ClusterNode (Maybe Text)
+ Amazonka.Redshift.Types: clusterParameterGroupNameMessage_parameterGroupName :: Lens' ClusterParameterGroupNameMessage (Maybe Text)
+ Amazonka.Redshift.Types: clusterParameterGroupNameMessage_parameterGroupStatus :: Lens' ClusterParameterGroupNameMessage (Maybe Text)
+ Amazonka.Redshift.Types: clusterParameterGroupStatus_clusterParameterStatusList :: Lens' ClusterParameterGroupStatus (Maybe [ClusterParameterStatus])
+ Amazonka.Redshift.Types: clusterParameterGroupStatus_parameterApplyStatus :: Lens' ClusterParameterGroupStatus (Maybe Text)
+ Amazonka.Redshift.Types: clusterParameterGroupStatus_parameterGroupName :: Lens' ClusterParameterGroupStatus (Maybe Text)
+ Amazonka.Redshift.Types: clusterParameterGroup_description :: Lens' ClusterParameterGroup (Maybe Text)
+ Amazonka.Redshift.Types: clusterParameterGroup_parameterGroupFamily :: Lens' ClusterParameterGroup (Maybe Text)
+ Amazonka.Redshift.Types: clusterParameterGroup_parameterGroupName :: Lens' ClusterParameterGroup (Maybe Text)
+ Amazonka.Redshift.Types: clusterParameterGroup_tags :: Lens' ClusterParameterGroup (Maybe [Tag])
+ Amazonka.Redshift.Types: clusterParameterStatus_parameterApplyErrorDescription :: Lens' ClusterParameterStatus (Maybe Text)
+ Amazonka.Redshift.Types: clusterParameterStatus_parameterApplyStatus :: Lens' ClusterParameterStatus (Maybe Text)
+ Amazonka.Redshift.Types: clusterParameterStatus_parameterName :: Lens' ClusterParameterStatus (Maybe Text)
+ Amazonka.Redshift.Types: clusterSecurityGroupMembership_clusterSecurityGroupName :: Lens' ClusterSecurityGroupMembership (Maybe Text)
+ Amazonka.Redshift.Types: clusterSecurityGroupMembership_status :: Lens' ClusterSecurityGroupMembership (Maybe Text)
+ Amazonka.Redshift.Types: clusterSecurityGroup_clusterSecurityGroupName :: Lens' ClusterSecurityGroup (Maybe Text)
+ Amazonka.Redshift.Types: clusterSecurityGroup_description :: Lens' ClusterSecurityGroup (Maybe Text)
+ Amazonka.Redshift.Types: clusterSecurityGroup_eC2SecurityGroups :: Lens' ClusterSecurityGroup (Maybe [EC2SecurityGroup])
+ Amazonka.Redshift.Types: clusterSecurityGroup_iPRanges :: Lens' ClusterSecurityGroup (Maybe [IPRange])
+ Amazonka.Redshift.Types: clusterSecurityGroup_tags :: Lens' ClusterSecurityGroup (Maybe [Tag])
+ Amazonka.Redshift.Types: clusterSnapshotCopyStatus_destinationRegion :: Lens' ClusterSnapshotCopyStatus (Maybe Text)
+ Amazonka.Redshift.Types: clusterSnapshotCopyStatus_manualSnapshotRetentionPeriod :: Lens' ClusterSnapshotCopyStatus (Maybe Int)
+ Amazonka.Redshift.Types: clusterSnapshotCopyStatus_retentionPeriod :: Lens' ClusterSnapshotCopyStatus (Maybe Integer)
+ Amazonka.Redshift.Types: clusterSnapshotCopyStatus_snapshotCopyGrantName :: Lens' ClusterSnapshotCopyStatus (Maybe Text)
+ Amazonka.Redshift.Types: clusterSubnetGroup_clusterSubnetGroupName :: Lens' ClusterSubnetGroup (Maybe Text)
+ Amazonka.Redshift.Types: clusterSubnetGroup_description :: Lens' ClusterSubnetGroup (Maybe Text)
+ Amazonka.Redshift.Types: clusterSubnetGroup_subnetGroupStatus :: Lens' ClusterSubnetGroup (Maybe Text)
+ Amazonka.Redshift.Types: clusterSubnetGroup_subnets :: Lens' ClusterSubnetGroup (Maybe [Subnet])
+ Amazonka.Redshift.Types: clusterSubnetGroup_tags :: Lens' ClusterSubnetGroup (Maybe [Tag])
+ Amazonka.Redshift.Types: clusterSubnetGroup_vpcId :: Lens' ClusterSubnetGroup (Maybe Text)
+ Amazonka.Redshift.Types: clusterVersion_clusterParameterGroupFamily :: Lens' ClusterVersion (Maybe Text)
+ Amazonka.Redshift.Types: clusterVersion_clusterVersion :: Lens' ClusterVersion (Maybe Text)
+ Amazonka.Redshift.Types: clusterVersion_description :: Lens' ClusterVersion (Maybe Text)
+ Amazonka.Redshift.Types: cluster_allowVersionUpgrade :: Lens' Cluster (Maybe Bool)
+ Amazonka.Redshift.Types: cluster_aquaConfiguration :: Lens' Cluster (Maybe AquaConfiguration)
+ Amazonka.Redshift.Types: cluster_automatedSnapshotRetentionPeriod :: Lens' Cluster (Maybe Int)
+ Amazonka.Redshift.Types: cluster_availabilityZone :: Lens' Cluster (Maybe Text)
+ Amazonka.Redshift.Types: cluster_availabilityZoneRelocationStatus :: Lens' Cluster (Maybe Text)
+ Amazonka.Redshift.Types: cluster_clusterAvailabilityStatus :: Lens' Cluster (Maybe Text)
+ Amazonka.Redshift.Types: cluster_clusterCreateTime :: Lens' Cluster (Maybe UTCTime)
+ Amazonka.Redshift.Types: cluster_clusterIdentifier :: Lens' Cluster (Maybe Text)
+ Amazonka.Redshift.Types: cluster_clusterNamespaceArn :: Lens' Cluster (Maybe Text)
+ Amazonka.Redshift.Types: cluster_clusterNodes :: Lens' Cluster (Maybe [ClusterNode])
+ Amazonka.Redshift.Types: cluster_clusterParameterGroups :: Lens' Cluster (Maybe [ClusterParameterGroupStatus])
+ Amazonka.Redshift.Types: cluster_clusterPublicKey :: Lens' Cluster (Maybe Text)
+ Amazonka.Redshift.Types: cluster_clusterRevisionNumber :: Lens' Cluster (Maybe Text)
+ Amazonka.Redshift.Types: cluster_clusterSecurityGroups :: Lens' Cluster (Maybe [ClusterSecurityGroupMembership])
+ Amazonka.Redshift.Types: cluster_clusterSnapshotCopyStatus :: Lens' Cluster (Maybe ClusterSnapshotCopyStatus)
+ Amazonka.Redshift.Types: cluster_clusterStatus :: Lens' Cluster (Maybe Text)
+ Amazonka.Redshift.Types: cluster_clusterSubnetGroupName :: Lens' Cluster (Maybe Text)
+ Amazonka.Redshift.Types: cluster_clusterVersion :: Lens' Cluster (Maybe Text)
+ Amazonka.Redshift.Types: cluster_dataTransferProgress :: Lens' Cluster (Maybe DataTransferProgress)
+ Amazonka.Redshift.Types: cluster_dbName :: Lens' Cluster (Maybe Text)
+ Amazonka.Redshift.Types: cluster_defaultIamRoleArn :: Lens' Cluster (Maybe Text)
+ Amazonka.Redshift.Types: cluster_deferredMaintenanceWindows :: Lens' Cluster (Maybe [DeferredMaintenanceWindow])
+ Amazonka.Redshift.Types: cluster_elasticIpStatus :: Lens' Cluster (Maybe ElasticIpStatus)
+ Amazonka.Redshift.Types: cluster_elasticResizeNumberOfNodeOptions :: Lens' Cluster (Maybe Text)
+ Amazonka.Redshift.Types: cluster_encrypted :: Lens' Cluster (Maybe Bool)
+ Amazonka.Redshift.Types: cluster_endpoint :: Lens' Cluster (Maybe Endpoint)
+ Amazonka.Redshift.Types: cluster_enhancedVpcRouting :: Lens' Cluster (Maybe Bool)
+ Amazonka.Redshift.Types: cluster_expectedNextSnapshotScheduleTime :: Lens' Cluster (Maybe UTCTime)
+ Amazonka.Redshift.Types: cluster_expectedNextSnapshotScheduleTimeStatus :: Lens' Cluster (Maybe Text)
+ Amazonka.Redshift.Types: cluster_hsmStatus :: Lens' Cluster (Maybe HsmStatus)
+ Amazonka.Redshift.Types: cluster_iamRoles :: Lens' Cluster (Maybe [ClusterIamRole])
+ Amazonka.Redshift.Types: cluster_kmsKeyId :: Lens' Cluster (Maybe Text)
+ Amazonka.Redshift.Types: cluster_maintenanceTrackName :: Lens' Cluster (Maybe Text)
+ Amazonka.Redshift.Types: cluster_manualSnapshotRetentionPeriod :: Lens' Cluster (Maybe Int)
+ Amazonka.Redshift.Types: cluster_masterUsername :: Lens' Cluster (Maybe Text)
+ Amazonka.Redshift.Types: cluster_modifyStatus :: Lens' Cluster (Maybe Text)
+ Amazonka.Redshift.Types: cluster_nextMaintenanceWindowStartTime :: Lens' Cluster (Maybe UTCTime)
+ Amazonka.Redshift.Types: cluster_nodeType :: Lens' Cluster (Maybe Text)
+ Amazonka.Redshift.Types: cluster_numberOfNodes :: Lens' Cluster (Maybe Int)
+ Amazonka.Redshift.Types: cluster_pendingActions :: Lens' Cluster (Maybe [Text])
+ Amazonka.Redshift.Types: cluster_pendingModifiedValues :: Lens' Cluster (Maybe PendingModifiedValues)
+ Amazonka.Redshift.Types: cluster_preferredMaintenanceWindow :: Lens' Cluster (Maybe Text)
+ Amazonka.Redshift.Types: cluster_publiclyAccessible :: Lens' Cluster (Maybe Bool)
+ Amazonka.Redshift.Types: cluster_reservedNodeExchangeStatus :: Lens' Cluster (Maybe ReservedNodeExchangeStatus)
+ Amazonka.Redshift.Types: cluster_resizeInfo :: Lens' Cluster (Maybe ResizeInfo)
+ Amazonka.Redshift.Types: cluster_restoreStatus :: Lens' Cluster (Maybe RestoreStatus)
+ Amazonka.Redshift.Types: cluster_snapshotScheduleIdentifier :: Lens' Cluster (Maybe Text)
+ Amazonka.Redshift.Types: cluster_snapshotScheduleState :: Lens' Cluster (Maybe ScheduleState)
+ Amazonka.Redshift.Types: cluster_tags :: Lens' Cluster (Maybe [Tag])
+ Amazonka.Redshift.Types: cluster_totalStorageCapacityInMegaBytes :: Lens' Cluster (Maybe Integer)
+ Amazonka.Redshift.Types: cluster_vpcId :: Lens' Cluster (Maybe Text)
+ Amazonka.Redshift.Types: cluster_vpcSecurityGroups :: Lens' Cluster (Maybe [VpcSecurityGroupMembership])
+ Amazonka.Redshift.Types: data AccountAttribute
+ Amazonka.Redshift.Types: data AccountWithRestoreAccess
+ Amazonka.Redshift.Types: data AquaConfiguration
+ Amazonka.Redshift.Types: data AttributeValueTarget
+ Amazonka.Redshift.Types: data AuthenticationProfile
+ Amazonka.Redshift.Types: data AvailabilityZone
+ Amazonka.Redshift.Types: data Cluster
+ Amazonka.Redshift.Types: data ClusterAssociatedToSchedule
+ Amazonka.Redshift.Types: data ClusterDbRevision
+ Amazonka.Redshift.Types: data ClusterIamRole
+ Amazonka.Redshift.Types: data ClusterNode
+ Amazonka.Redshift.Types: data ClusterParameterGroup
+ Amazonka.Redshift.Types: data ClusterParameterGroupNameMessage
+ Amazonka.Redshift.Types: data ClusterParameterGroupStatus
+ Amazonka.Redshift.Types: data ClusterParameterStatus
+ Amazonka.Redshift.Types: data ClusterSecurityGroup
+ Amazonka.Redshift.Types: data ClusterSecurityGroupMembership
+ Amazonka.Redshift.Types: data ClusterSnapshotCopyStatus
+ Amazonka.Redshift.Types: data ClusterSubnetGroup
+ Amazonka.Redshift.Types: data ClusterVersion
+ Amazonka.Redshift.Types: data DataShare
+ Amazonka.Redshift.Types: data DataShareAssociation
+ Amazonka.Redshift.Types: data DataTransferProgress
+ Amazonka.Redshift.Types: data DefaultClusterParameters
+ Amazonka.Redshift.Types: data DeferredMaintenanceWindow
+ Amazonka.Redshift.Types: data DeleteClusterSnapshotMessage
+ Amazonka.Redshift.Types: data EC2SecurityGroup
+ Amazonka.Redshift.Types: data ElasticIpStatus
+ Amazonka.Redshift.Types: data Endpoint
+ Amazonka.Redshift.Types: data EndpointAccess
+ Amazonka.Redshift.Types: data EndpointAuthorization
+ Amazonka.Redshift.Types: data Event
+ Amazonka.Redshift.Types: data EventCategoriesMap
+ Amazonka.Redshift.Types: data EventInfoMap
+ Amazonka.Redshift.Types: data EventSubscription
+ Amazonka.Redshift.Types: data HsmClientCertificate
+ Amazonka.Redshift.Types: data HsmConfiguration
+ Amazonka.Redshift.Types: data HsmStatus
+ Amazonka.Redshift.Types: data IPRange
+ Amazonka.Redshift.Types: data LoggingStatus
+ Amazonka.Redshift.Types: data MaintenanceTrack
+ Amazonka.Redshift.Types: data NetworkInterface
+ Amazonka.Redshift.Types: data NodeConfigurationOption
+ Amazonka.Redshift.Types: data NodeConfigurationOptionsFilter
+ Amazonka.Redshift.Types: data OrderableClusterOption
+ Amazonka.Redshift.Types: data Parameter
+ Amazonka.Redshift.Types: data PartnerIntegrationInfo
+ Amazonka.Redshift.Types: data PartnerIntegrationInputMessage
+ Amazonka.Redshift.Types: data PartnerIntegrationOutputMessage
+ Amazonka.Redshift.Types: data PauseClusterMessage
+ Amazonka.Redshift.Types: data PendingModifiedValues
+ Amazonka.Redshift.Types: data RecurringCharge
+ Amazonka.Redshift.Types: data ReservedNode
+ Amazonka.Redshift.Types: data ReservedNodeConfigurationOption
+ Amazonka.Redshift.Types: data ReservedNodeExchangeStatus
+ Amazonka.Redshift.Types: data ReservedNodeOffering
+ Amazonka.Redshift.Types: data ResizeClusterMessage
+ Amazonka.Redshift.Types: data ResizeInfo
+ Amazonka.Redshift.Types: data ResizeProgressMessage
+ Amazonka.Redshift.Types: data RestoreStatus
+ Amazonka.Redshift.Types: data ResumeClusterMessage
+ Amazonka.Redshift.Types: data RevisionTarget
+ Amazonka.Redshift.Types: data ScheduledAction
+ Amazonka.Redshift.Types: data ScheduledActionFilter
+ Amazonka.Redshift.Types: data ScheduledActionType
+ Amazonka.Redshift.Types: data Snapshot
+ Amazonka.Redshift.Types: data SnapshotCopyGrant
+ Amazonka.Redshift.Types: data SnapshotErrorMessage
+ Amazonka.Redshift.Types: data SnapshotSchedule
+ Amazonka.Redshift.Types: data SnapshotSortingEntity
+ Amazonka.Redshift.Types: data Subnet
+ Amazonka.Redshift.Types: data SupportedOperation
+ Amazonka.Redshift.Types: data SupportedPlatform
+ Amazonka.Redshift.Types: data TableRestoreStatus
+ Amazonka.Redshift.Types: data Tag
+ Amazonka.Redshift.Types: data TaggedResource
+ Amazonka.Redshift.Types: data UpdateTarget
+ Amazonka.Redshift.Types: data UsageLimit
+ Amazonka.Redshift.Types: data VpcEndpoint
+ Amazonka.Redshift.Types: data VpcSecurityGroupMembership
+ Amazonka.Redshift.Types: dataShareAssociation_consumerIdentifier :: Lens' DataShareAssociation (Maybe Text)
+ Amazonka.Redshift.Types: dataShareAssociation_consumerRegion :: Lens' DataShareAssociation (Maybe Text)
+ Amazonka.Redshift.Types: dataShareAssociation_createdDate :: Lens' DataShareAssociation (Maybe UTCTime)
+ Amazonka.Redshift.Types: dataShareAssociation_status :: Lens' DataShareAssociation (Maybe DataShareStatus)
+ Amazonka.Redshift.Types: dataShareAssociation_statusChangeDate :: Lens' DataShareAssociation (Maybe UTCTime)
+ Amazonka.Redshift.Types: dataShare_allowPubliclyAccessibleConsumers :: Lens' DataShare (Maybe Bool)
+ Amazonka.Redshift.Types: dataShare_dataShareArn :: Lens' DataShare (Maybe Text)
+ Amazonka.Redshift.Types: dataShare_dataShareAssociations :: Lens' DataShare (Maybe [DataShareAssociation])
+ Amazonka.Redshift.Types: dataShare_managedBy :: Lens' DataShare (Maybe Text)
+ Amazonka.Redshift.Types: dataShare_producerArn :: Lens' DataShare (Maybe Text)
+ Amazonka.Redshift.Types: dataTransferProgress_currentRateInMegaBytesPerSecond :: Lens' DataTransferProgress (Maybe Double)
+ Amazonka.Redshift.Types: dataTransferProgress_dataTransferredInMegaBytes :: Lens' DataTransferProgress (Maybe Integer)
+ Amazonka.Redshift.Types: dataTransferProgress_elapsedTimeInSeconds :: Lens' DataTransferProgress (Maybe Integer)
+ Amazonka.Redshift.Types: dataTransferProgress_estimatedTimeToCompletionInSeconds :: Lens' DataTransferProgress (Maybe Integer)
+ Amazonka.Redshift.Types: dataTransferProgress_status :: Lens' DataTransferProgress (Maybe Text)
+ Amazonka.Redshift.Types: dataTransferProgress_totalDataInMegaBytes :: Lens' DataTransferProgress (Maybe Integer)
+ Amazonka.Redshift.Types: defaultClusterParameters_marker :: Lens' DefaultClusterParameters (Maybe Text)
+ Amazonka.Redshift.Types: defaultClusterParameters_parameterGroupFamily :: Lens' DefaultClusterParameters (Maybe Text)
+ Amazonka.Redshift.Types: defaultClusterParameters_parameters :: Lens' DefaultClusterParameters (Maybe [Parameter])
+ Amazonka.Redshift.Types: defaultService :: Service
+ Amazonka.Redshift.Types: deferredMaintenanceWindow_deferMaintenanceEndTime :: Lens' DeferredMaintenanceWindow (Maybe UTCTime)
+ Amazonka.Redshift.Types: deferredMaintenanceWindow_deferMaintenanceIdentifier :: Lens' DeferredMaintenanceWindow (Maybe Text)
+ Amazonka.Redshift.Types: deferredMaintenanceWindow_deferMaintenanceStartTime :: Lens' DeferredMaintenanceWindow (Maybe UTCTime)
+ Amazonka.Redshift.Types: deleteClusterSnapshotMessage_snapshotClusterIdentifier :: Lens' DeleteClusterSnapshotMessage (Maybe Text)
+ Amazonka.Redshift.Types: deleteClusterSnapshotMessage_snapshotIdentifier :: Lens' DeleteClusterSnapshotMessage Text
+ Amazonka.Redshift.Types: eC2SecurityGroup_eC2SecurityGroupName :: Lens' EC2SecurityGroup (Maybe Text)
+ Amazonka.Redshift.Types: eC2SecurityGroup_eC2SecurityGroupOwnerId :: Lens' EC2SecurityGroup (Maybe Text)
+ Amazonka.Redshift.Types: eC2SecurityGroup_status :: Lens' EC2SecurityGroup (Maybe Text)
+ Amazonka.Redshift.Types: eC2SecurityGroup_tags :: Lens' EC2SecurityGroup (Maybe [Tag])
+ Amazonka.Redshift.Types: elasticIpStatus_elasticIp :: Lens' ElasticIpStatus (Maybe Text)
+ Amazonka.Redshift.Types: elasticIpStatus_status :: Lens' ElasticIpStatus (Maybe Text)
+ Amazonka.Redshift.Types: endpointAccess_address :: Lens' EndpointAccess (Maybe Text)
+ Amazonka.Redshift.Types: endpointAccess_clusterIdentifier :: Lens' EndpointAccess (Maybe Text)
+ Amazonka.Redshift.Types: endpointAccess_endpointCreateTime :: Lens' EndpointAccess (Maybe UTCTime)
+ Amazonka.Redshift.Types: endpointAccess_endpointName :: Lens' EndpointAccess (Maybe Text)
+ Amazonka.Redshift.Types: endpointAccess_endpointStatus :: Lens' EndpointAccess (Maybe Text)
+ Amazonka.Redshift.Types: endpointAccess_port :: Lens' EndpointAccess (Maybe Int)
+ Amazonka.Redshift.Types: endpointAccess_resourceOwner :: Lens' EndpointAccess (Maybe Text)
+ Amazonka.Redshift.Types: endpointAccess_subnetGroupName :: Lens' EndpointAccess (Maybe Text)
+ Amazonka.Redshift.Types: endpointAccess_vpcEndpoint :: Lens' EndpointAccess (Maybe VpcEndpoint)
+ Amazonka.Redshift.Types: endpointAccess_vpcSecurityGroups :: Lens' EndpointAccess (Maybe [VpcSecurityGroupMembership])
+ Amazonka.Redshift.Types: endpointAuthorization_allowedAllVPCs :: Lens' EndpointAuthorization (Maybe Bool)
+ Amazonka.Redshift.Types: endpointAuthorization_allowedVPCs :: Lens' EndpointAuthorization (Maybe [Text])
+ Amazonka.Redshift.Types: endpointAuthorization_authorizeTime :: Lens' EndpointAuthorization (Maybe UTCTime)
+ Amazonka.Redshift.Types: endpointAuthorization_clusterIdentifier :: Lens' EndpointAuthorization (Maybe Text)
+ Amazonka.Redshift.Types: endpointAuthorization_clusterStatus :: Lens' EndpointAuthorization (Maybe Text)
+ Amazonka.Redshift.Types: endpointAuthorization_endpointCount :: Lens' EndpointAuthorization (Maybe Int)
+ Amazonka.Redshift.Types: endpointAuthorization_grantee :: Lens' EndpointAuthorization (Maybe Text)
+ Amazonka.Redshift.Types: endpointAuthorization_grantor :: Lens' EndpointAuthorization (Maybe Text)
+ Amazonka.Redshift.Types: endpointAuthorization_status :: Lens' EndpointAuthorization (Maybe AuthorizationStatus)
+ Amazonka.Redshift.Types: endpoint_address :: Lens' Endpoint (Maybe Text)
+ Amazonka.Redshift.Types: endpoint_port :: Lens' Endpoint (Maybe Int)
+ Amazonka.Redshift.Types: endpoint_vpcEndpoints :: Lens' Endpoint (Maybe [VpcEndpoint])
+ Amazonka.Redshift.Types: eventCategoriesMap_events :: Lens' EventCategoriesMap (Maybe [EventInfoMap])
+ Amazonka.Redshift.Types: eventCategoriesMap_sourceType :: Lens' EventCategoriesMap (Maybe Text)
+ Amazonka.Redshift.Types: eventInfoMap_eventCategories :: Lens' EventInfoMap (Maybe [Text])
+ Amazonka.Redshift.Types: eventInfoMap_eventDescription :: Lens' EventInfoMap (Maybe Text)
+ Amazonka.Redshift.Types: eventInfoMap_eventId :: Lens' EventInfoMap (Maybe Text)
+ Amazonka.Redshift.Types: eventInfoMap_severity :: Lens' EventInfoMap (Maybe Text)
+ Amazonka.Redshift.Types: eventSubscription_custSubscriptionId :: Lens' EventSubscription (Maybe Text)
+ Amazonka.Redshift.Types: eventSubscription_customerAwsId :: Lens' EventSubscription (Maybe Text)
+ Amazonka.Redshift.Types: eventSubscription_enabled :: Lens' EventSubscription (Maybe Bool)
+ Amazonka.Redshift.Types: eventSubscription_eventCategoriesList :: Lens' EventSubscription (Maybe [Text])
+ Amazonka.Redshift.Types: eventSubscription_severity :: Lens' EventSubscription (Maybe Text)
+ Amazonka.Redshift.Types: eventSubscription_snsTopicArn :: Lens' EventSubscription (Maybe Text)
+ Amazonka.Redshift.Types: eventSubscription_sourceIdsList :: Lens' EventSubscription (Maybe [Text])
+ Amazonka.Redshift.Types: eventSubscription_sourceType :: Lens' EventSubscription (Maybe Text)
+ Amazonka.Redshift.Types: eventSubscription_status :: Lens' EventSubscription (Maybe Text)
+ Amazonka.Redshift.Types: eventSubscription_subscriptionCreationTime :: Lens' EventSubscription (Maybe UTCTime)
+ Amazonka.Redshift.Types: eventSubscription_tags :: Lens' EventSubscription (Maybe [Tag])
+ Amazonka.Redshift.Types: event_date :: Lens' Event (Maybe UTCTime)
+ Amazonka.Redshift.Types: event_eventCategories :: Lens' Event (Maybe [Text])
+ Amazonka.Redshift.Types: event_eventId :: Lens' Event (Maybe Text)
+ Amazonka.Redshift.Types: event_message :: Lens' Event (Maybe Text)
+ Amazonka.Redshift.Types: event_severity :: Lens' Event (Maybe Text)
+ Amazonka.Redshift.Types: event_sourceIdentifier :: Lens' Event (Maybe Text)
+ Amazonka.Redshift.Types: event_sourceType :: Lens' Event (Maybe SourceType)
+ Amazonka.Redshift.Types: hsmClientCertificate_hsmClientCertificateIdentifier :: Lens' HsmClientCertificate (Maybe Text)
+ Amazonka.Redshift.Types: hsmClientCertificate_hsmClientCertificatePublicKey :: Lens' HsmClientCertificate (Maybe Text)
+ Amazonka.Redshift.Types: hsmClientCertificate_tags :: Lens' HsmClientCertificate (Maybe [Tag])
+ Amazonka.Redshift.Types: hsmConfiguration_description :: Lens' HsmConfiguration (Maybe Text)
+ Amazonka.Redshift.Types: hsmConfiguration_hsmConfigurationIdentifier :: Lens' HsmConfiguration (Maybe Text)
+ Amazonka.Redshift.Types: hsmConfiguration_hsmIpAddress :: Lens' HsmConfiguration (Maybe Text)
+ Amazonka.Redshift.Types: hsmConfiguration_hsmPartitionName :: Lens' HsmConfiguration (Maybe Text)
+ Amazonka.Redshift.Types: hsmConfiguration_tags :: Lens' HsmConfiguration (Maybe [Tag])
+ Amazonka.Redshift.Types: hsmStatus_hsmClientCertificateIdentifier :: Lens' HsmStatus (Maybe Text)
+ Amazonka.Redshift.Types: hsmStatus_hsmConfigurationIdentifier :: Lens' HsmStatus (Maybe Text)
+ Amazonka.Redshift.Types: hsmStatus_status :: Lens' HsmStatus (Maybe Text)
+ Amazonka.Redshift.Types: iPRange_cidrip :: Lens' IPRange (Maybe Text)
+ Amazonka.Redshift.Types: iPRange_status :: Lens' IPRange (Maybe Text)
+ Amazonka.Redshift.Types: iPRange_tags :: Lens' IPRange (Maybe [Tag])
+ Amazonka.Redshift.Types: loggingStatus_bucketName :: Lens' LoggingStatus (Maybe Text)
+ Amazonka.Redshift.Types: loggingStatus_lastFailureMessage :: Lens' LoggingStatus (Maybe Text)
+ Amazonka.Redshift.Types: loggingStatus_lastFailureTime :: Lens' LoggingStatus (Maybe UTCTime)
+ Amazonka.Redshift.Types: loggingStatus_lastSuccessfulDeliveryTime :: Lens' LoggingStatus (Maybe UTCTime)
+ Amazonka.Redshift.Types: loggingStatus_logDestinationType :: Lens' LoggingStatus (Maybe LogDestinationType)
+ Amazonka.Redshift.Types: loggingStatus_logExports :: Lens' LoggingStatus (Maybe [Text])
+ Amazonka.Redshift.Types: loggingStatus_loggingEnabled :: Lens' LoggingStatus (Maybe Bool)
+ Amazonka.Redshift.Types: loggingStatus_s3KeyPrefix :: Lens' LoggingStatus (Maybe Text)
+ Amazonka.Redshift.Types: maintenanceTrack_databaseVersion :: Lens' MaintenanceTrack (Maybe Text)
+ Amazonka.Redshift.Types: maintenanceTrack_maintenanceTrackName :: Lens' MaintenanceTrack (Maybe Text)
+ Amazonka.Redshift.Types: maintenanceTrack_updateTargets :: Lens' MaintenanceTrack (Maybe [UpdateTarget])
+ Amazonka.Redshift.Types: networkInterface_availabilityZone :: Lens' NetworkInterface (Maybe Text)
+ Amazonka.Redshift.Types: networkInterface_networkInterfaceId :: Lens' NetworkInterface (Maybe Text)
+ Amazonka.Redshift.Types: networkInterface_privateIpAddress :: Lens' NetworkInterface (Maybe Text)
+ Amazonka.Redshift.Types: networkInterface_subnetId :: Lens' NetworkInterface (Maybe Text)
+ Amazonka.Redshift.Types: newAccountAttribute :: AccountAttribute
+ Amazonka.Redshift.Types: newAccountWithRestoreAccess :: AccountWithRestoreAccess
+ Amazonka.Redshift.Types: newAquaConfiguration :: AquaConfiguration
+ Amazonka.Redshift.Types: newAttributeValueTarget :: AttributeValueTarget
+ Amazonka.Redshift.Types: newAuthenticationProfile :: AuthenticationProfile
+ Amazonka.Redshift.Types: newAvailabilityZone :: AvailabilityZone
+ Amazonka.Redshift.Types: newCluster :: Cluster
+ Amazonka.Redshift.Types: newClusterAssociatedToSchedule :: ClusterAssociatedToSchedule
+ Amazonka.Redshift.Types: newClusterDbRevision :: ClusterDbRevision
+ Amazonka.Redshift.Types: newClusterIamRole :: ClusterIamRole
+ Amazonka.Redshift.Types: newClusterNode :: ClusterNode
+ Amazonka.Redshift.Types: newClusterParameterGroup :: ClusterParameterGroup
+ Amazonka.Redshift.Types: newClusterParameterGroupNameMessage :: ClusterParameterGroupNameMessage
+ Amazonka.Redshift.Types: newClusterParameterGroupStatus :: ClusterParameterGroupStatus
+ Amazonka.Redshift.Types: newClusterParameterStatus :: ClusterParameterStatus
+ Amazonka.Redshift.Types: newClusterSecurityGroup :: ClusterSecurityGroup
+ Amazonka.Redshift.Types: newClusterSecurityGroupMembership :: ClusterSecurityGroupMembership
+ Amazonka.Redshift.Types: newClusterSnapshotCopyStatus :: ClusterSnapshotCopyStatus
+ Amazonka.Redshift.Types: newClusterSubnetGroup :: ClusterSubnetGroup
+ Amazonka.Redshift.Types: newClusterVersion :: ClusterVersion
+ Amazonka.Redshift.Types: newDataShare :: DataShare
+ Amazonka.Redshift.Types: newDataShareAssociation :: DataShareAssociation
+ Amazonka.Redshift.Types: newDataTransferProgress :: DataTransferProgress
+ Amazonka.Redshift.Types: newDefaultClusterParameters :: DefaultClusterParameters
+ Amazonka.Redshift.Types: newDeferredMaintenanceWindow :: DeferredMaintenanceWindow
+ Amazonka.Redshift.Types: newDeleteClusterSnapshotMessage :: Text -> DeleteClusterSnapshotMessage
+ Amazonka.Redshift.Types: newEC2SecurityGroup :: EC2SecurityGroup
+ Amazonka.Redshift.Types: newElasticIpStatus :: ElasticIpStatus
+ Amazonka.Redshift.Types: newEndpoint :: Endpoint
+ Amazonka.Redshift.Types: newEndpointAccess :: EndpointAccess
+ Amazonka.Redshift.Types: newEndpointAuthorization :: EndpointAuthorization
+ Amazonka.Redshift.Types: newEvent :: Event
+ Amazonka.Redshift.Types: newEventCategoriesMap :: EventCategoriesMap
+ Amazonka.Redshift.Types: newEventInfoMap :: EventInfoMap
+ Amazonka.Redshift.Types: newEventSubscription :: EventSubscription
+ Amazonka.Redshift.Types: newHsmClientCertificate :: HsmClientCertificate
+ Amazonka.Redshift.Types: newHsmConfiguration :: HsmConfiguration
+ Amazonka.Redshift.Types: newHsmStatus :: HsmStatus
+ Amazonka.Redshift.Types: newIPRange :: IPRange
+ Amazonka.Redshift.Types: newLoggingStatus :: LoggingStatus
+ Amazonka.Redshift.Types: newMaintenanceTrack :: MaintenanceTrack
+ Amazonka.Redshift.Types: newNetworkInterface :: NetworkInterface
+ Amazonka.Redshift.Types: newNodeConfigurationOption :: NodeConfigurationOption
+ Amazonka.Redshift.Types: newNodeConfigurationOptionsFilter :: NodeConfigurationOptionsFilter
+ Amazonka.Redshift.Types: newOrderableClusterOption :: OrderableClusterOption
+ Amazonka.Redshift.Types: newParameter :: Parameter
+ Amazonka.Redshift.Types: newPartnerIntegrationInfo :: PartnerIntegrationInfo
+ Amazonka.Redshift.Types: newPartnerIntegrationInputMessage :: Text -> Text -> Text -> Text -> PartnerIntegrationInputMessage
+ Amazonka.Redshift.Types: newPartnerIntegrationOutputMessage :: PartnerIntegrationOutputMessage
+ Amazonka.Redshift.Types: newPauseClusterMessage :: Text -> PauseClusterMessage
+ Amazonka.Redshift.Types: newPendingModifiedValues :: PendingModifiedValues
+ Amazonka.Redshift.Types: newRecurringCharge :: RecurringCharge
+ Amazonka.Redshift.Types: newReservedNode :: ReservedNode
+ Amazonka.Redshift.Types: newReservedNodeConfigurationOption :: ReservedNodeConfigurationOption
+ Amazonka.Redshift.Types: newReservedNodeExchangeStatus :: ReservedNodeExchangeStatus
+ Amazonka.Redshift.Types: newReservedNodeOffering :: ReservedNodeOffering
+ Amazonka.Redshift.Types: newResizeClusterMessage :: Text -> ResizeClusterMessage
+ Amazonka.Redshift.Types: newResizeInfo :: ResizeInfo
+ Amazonka.Redshift.Types: newResizeProgressMessage :: ResizeProgressMessage
+ Amazonka.Redshift.Types: newRestoreStatus :: RestoreStatus
+ Amazonka.Redshift.Types: newResumeClusterMessage :: Text -> ResumeClusterMessage
+ Amazonka.Redshift.Types: newRevisionTarget :: RevisionTarget
+ Amazonka.Redshift.Types: newScheduledAction :: ScheduledAction
+ Amazonka.Redshift.Types: newScheduledActionFilter :: ScheduledActionFilterName -> ScheduledActionFilter
+ Amazonka.Redshift.Types: newScheduledActionType :: ScheduledActionType
+ Amazonka.Redshift.Types: newSnapshot :: Snapshot
+ Amazonka.Redshift.Types: newSnapshotCopyGrant :: SnapshotCopyGrant
+ Amazonka.Redshift.Types: newSnapshotErrorMessage :: SnapshotErrorMessage
+ Amazonka.Redshift.Types: newSnapshotSchedule :: SnapshotSchedule
+ Amazonka.Redshift.Types: newSnapshotSortingEntity :: SnapshotAttributeToSortBy -> SnapshotSortingEntity
+ Amazonka.Redshift.Types: newSubnet :: Subnet
+ Amazonka.Redshift.Types: newSupportedOperation :: SupportedOperation
+ Amazonka.Redshift.Types: newSupportedPlatform :: SupportedPlatform
+ Amazonka.Redshift.Types: newTableRestoreStatus :: TableRestoreStatus
+ Amazonka.Redshift.Types: newTag :: Tag
+ Amazonka.Redshift.Types: newTaggedResource :: TaggedResource
+ Amazonka.Redshift.Types: newUpdateTarget :: UpdateTarget
+ Amazonka.Redshift.Types: newUsageLimit :: UsageLimit
+ Amazonka.Redshift.Types: newVpcEndpoint :: VpcEndpoint
+ Amazonka.Redshift.Types: newVpcSecurityGroupMembership :: VpcSecurityGroupMembership
+ Amazonka.Redshift.Types: newtype ActionType
+ Amazonka.Redshift.Types: newtype AquaConfigurationStatus
+ Amazonka.Redshift.Types: newtype AquaStatus
+ Amazonka.Redshift.Types: newtype AuthorizationStatus
+ Amazonka.Redshift.Types: newtype DataShareStatus
+ Amazonka.Redshift.Types: newtype DataShareStatusForConsumer
+ Amazonka.Redshift.Types: newtype DataShareStatusForProducer
+ Amazonka.Redshift.Types: newtype LogDestinationType
+ Amazonka.Redshift.Types: newtype Mode
+ Amazonka.Redshift.Types: newtype NodeConfigurationOptionsFilterName
+ Amazonka.Redshift.Types: newtype OperatorType
+ Amazonka.Redshift.Types: newtype ParameterApplyType
+ Amazonka.Redshift.Types: newtype PartnerIntegrationStatus
+ Amazonka.Redshift.Types: newtype ReservedNodeExchangeActionType
+ Amazonka.Redshift.Types: newtype ReservedNodeExchangeStatusType
+ Amazonka.Redshift.Types: newtype ReservedNodeOfferingType
+ Amazonka.Redshift.Types: newtype ScheduleState
+ Amazonka.Redshift.Types: newtype ScheduledActionFilterName
+ Amazonka.Redshift.Types: newtype ScheduledActionState
+ Amazonka.Redshift.Types: newtype ScheduledActionTypeValues
+ Amazonka.Redshift.Types: newtype SnapshotAttributeToSortBy
+ Amazonka.Redshift.Types: newtype SortByOrder
+ Amazonka.Redshift.Types: newtype SourceType
+ Amazonka.Redshift.Types: newtype TableRestoreStatusType
+ Amazonka.Redshift.Types: newtype UsageLimitBreachAction
+ Amazonka.Redshift.Types: newtype UsageLimitFeatureType
+ Amazonka.Redshift.Types: newtype UsageLimitLimitType
+ Amazonka.Redshift.Types: newtype UsageLimitPeriod
+ Amazonka.Redshift.Types: nodeConfigurationOption_estimatedDiskUtilizationPercent :: Lens' NodeConfigurationOption (Maybe Double)
+ Amazonka.Redshift.Types: nodeConfigurationOption_mode :: Lens' NodeConfigurationOption (Maybe Mode)
+ Amazonka.Redshift.Types: nodeConfigurationOption_nodeType :: Lens' NodeConfigurationOption (Maybe Text)
+ Amazonka.Redshift.Types: nodeConfigurationOption_numberOfNodes :: Lens' NodeConfigurationOption (Maybe Int)
+ Amazonka.Redshift.Types: nodeConfigurationOptionsFilter_name :: Lens' NodeConfigurationOptionsFilter (Maybe NodeConfigurationOptionsFilterName)
+ Amazonka.Redshift.Types: nodeConfigurationOptionsFilter_operator :: Lens' NodeConfigurationOptionsFilter (Maybe OperatorType)
+ Amazonka.Redshift.Types: nodeConfigurationOptionsFilter_values :: Lens' NodeConfigurationOptionsFilter (Maybe [Text])
+ Amazonka.Redshift.Types: orderableClusterOption_availabilityZones :: Lens' OrderableClusterOption (Maybe [AvailabilityZone])
+ Amazonka.Redshift.Types: orderableClusterOption_clusterType :: Lens' OrderableClusterOption (Maybe Text)
+ Amazonka.Redshift.Types: orderableClusterOption_clusterVersion :: Lens' OrderableClusterOption (Maybe Text)
+ Amazonka.Redshift.Types: orderableClusterOption_nodeType :: Lens' OrderableClusterOption (Maybe Text)
+ Amazonka.Redshift.Types: parameter_allowedValues :: Lens' Parameter (Maybe Text)
+ Amazonka.Redshift.Types: parameter_applyType :: Lens' Parameter (Maybe ParameterApplyType)
+ Amazonka.Redshift.Types: parameter_dataType :: Lens' Parameter (Maybe Text)
+ Amazonka.Redshift.Types: parameter_description :: Lens' Parameter (Maybe Text)
+ Amazonka.Redshift.Types: parameter_isModifiable :: Lens' Parameter (Maybe Bool)
+ Amazonka.Redshift.Types: parameter_minimumEngineVersion :: Lens' Parameter (Maybe Text)
+ Amazonka.Redshift.Types: parameter_parameterName :: Lens' Parameter (Maybe Text)
+ Amazonka.Redshift.Types: parameter_parameterValue :: Lens' Parameter (Maybe Text)
+ Amazonka.Redshift.Types: parameter_source :: Lens' Parameter (Maybe Text)
+ Amazonka.Redshift.Types: partnerIntegrationInfo_createdAt :: Lens' PartnerIntegrationInfo (Maybe UTCTime)
+ Amazonka.Redshift.Types: partnerIntegrationInfo_databaseName :: Lens' PartnerIntegrationInfo (Maybe Text)
+ Amazonka.Redshift.Types: partnerIntegrationInfo_partnerName :: Lens' PartnerIntegrationInfo (Maybe Text)
+ Amazonka.Redshift.Types: partnerIntegrationInfo_status :: Lens' PartnerIntegrationInfo (Maybe PartnerIntegrationStatus)
+ Amazonka.Redshift.Types: partnerIntegrationInfo_statusMessage :: Lens' PartnerIntegrationInfo (Maybe Text)
+ Amazonka.Redshift.Types: partnerIntegrationInfo_updatedAt :: Lens' PartnerIntegrationInfo (Maybe UTCTime)
+ Amazonka.Redshift.Types: partnerIntegrationInputMessage_accountId :: Lens' PartnerIntegrationInputMessage Text
+ Amazonka.Redshift.Types: partnerIntegrationInputMessage_clusterIdentifier :: Lens' PartnerIntegrationInputMessage Text
+ Amazonka.Redshift.Types: partnerIntegrationInputMessage_databaseName :: Lens' PartnerIntegrationInputMessage Text
+ Amazonka.Redshift.Types: partnerIntegrationInputMessage_partnerName :: Lens' PartnerIntegrationInputMessage Text
+ Amazonka.Redshift.Types: partnerIntegrationOutputMessage_databaseName :: Lens' PartnerIntegrationOutputMessage (Maybe Text)
+ Amazonka.Redshift.Types: partnerIntegrationOutputMessage_partnerName :: Lens' PartnerIntegrationOutputMessage (Maybe Text)
+ Amazonka.Redshift.Types: pattern ActionType_Recommend_node_config :: ActionType
+ Amazonka.Redshift.Types: pattern ActionType_Resize_cluster :: ActionType
+ Amazonka.Redshift.Types: pattern ActionType_Restore_cluster :: ActionType
+ Amazonka.Redshift.Types: pattern AquaConfigurationStatus_Auto :: AquaConfigurationStatus
+ Amazonka.Redshift.Types: pattern AquaConfigurationStatus_Disabled :: AquaConfigurationStatus
+ Amazonka.Redshift.Types: pattern AquaConfigurationStatus_Enabled :: AquaConfigurationStatus
+ Amazonka.Redshift.Types: pattern AquaStatus_Applying :: AquaStatus
+ Amazonka.Redshift.Types: pattern AquaStatus_Disabled :: AquaStatus
+ Amazonka.Redshift.Types: pattern AquaStatus_Enabled :: AquaStatus
+ Amazonka.Redshift.Types: pattern AuthorizationStatus_Authorized :: AuthorizationStatus
+ Amazonka.Redshift.Types: pattern AuthorizationStatus_Revoking :: AuthorizationStatus
+ Amazonka.Redshift.Types: pattern DataShareStatusForConsumer_ACTIVE :: DataShareStatusForConsumer
+ Amazonka.Redshift.Types: pattern DataShareStatusForConsumer_AVAILABLE :: DataShareStatusForConsumer
+ Amazonka.Redshift.Types: pattern DataShareStatusForProducer_ACTIVE :: DataShareStatusForProducer
+ Amazonka.Redshift.Types: pattern DataShareStatusForProducer_AUTHORIZED :: DataShareStatusForProducer
+ Amazonka.Redshift.Types: pattern DataShareStatusForProducer_DEAUTHORIZED :: DataShareStatusForProducer
+ Amazonka.Redshift.Types: pattern DataShareStatusForProducer_PENDING_AUTHORIZATION :: DataShareStatusForProducer
+ Amazonka.Redshift.Types: pattern DataShareStatusForProducer_REJECTED :: DataShareStatusForProducer
+ Amazonka.Redshift.Types: pattern DataShareStatus_ACTIVE :: DataShareStatus
+ Amazonka.Redshift.Types: pattern DataShareStatus_AUTHORIZED :: DataShareStatus
+ Amazonka.Redshift.Types: pattern DataShareStatus_AVAILABLE :: DataShareStatus
+ Amazonka.Redshift.Types: pattern DataShareStatus_DEAUTHORIZED :: DataShareStatus
+ Amazonka.Redshift.Types: pattern DataShareStatus_PENDING_AUTHORIZATION :: DataShareStatus
+ Amazonka.Redshift.Types: pattern DataShareStatus_REJECTED :: DataShareStatus
+ Amazonka.Redshift.Types: pattern LogDestinationType_Cloudwatch :: LogDestinationType
+ Amazonka.Redshift.Types: pattern LogDestinationType_S3 :: LogDestinationType
+ Amazonka.Redshift.Types: pattern Mode_High_performance :: Mode
+ Amazonka.Redshift.Types: pattern Mode_Standard :: Mode
+ Amazonka.Redshift.Types: pattern NodeConfigurationOptionsFilterName_EstimatedDiskUtilizationPercent :: NodeConfigurationOptionsFilterName
+ Amazonka.Redshift.Types: pattern NodeConfigurationOptionsFilterName_Mode :: NodeConfigurationOptionsFilterName
+ Amazonka.Redshift.Types: pattern NodeConfigurationOptionsFilterName_NodeType :: NodeConfigurationOptionsFilterName
+ Amazonka.Redshift.Types: pattern NodeConfigurationOptionsFilterName_NumberOfNodes :: NodeConfigurationOptionsFilterName
+ Amazonka.Redshift.Types: pattern OperatorType_Between :: OperatorType
+ Amazonka.Redshift.Types: pattern OperatorType_Eq :: OperatorType
+ Amazonka.Redshift.Types: pattern OperatorType_Ge :: OperatorType
+ Amazonka.Redshift.Types: pattern OperatorType_Gt :: OperatorType
+ Amazonka.Redshift.Types: pattern OperatorType_In :: OperatorType
+ Amazonka.Redshift.Types: pattern OperatorType_Le :: OperatorType
+ Amazonka.Redshift.Types: pattern OperatorType_Lt :: OperatorType
+ Amazonka.Redshift.Types: pattern ParameterApplyType_Dynamic :: ParameterApplyType
+ Amazonka.Redshift.Types: pattern ParameterApplyType_Static :: ParameterApplyType
+ Amazonka.Redshift.Types: pattern PartnerIntegrationStatus_Active :: PartnerIntegrationStatus
+ Amazonka.Redshift.Types: pattern PartnerIntegrationStatus_ConnectionFailure :: PartnerIntegrationStatus
+ Amazonka.Redshift.Types: pattern PartnerIntegrationStatus_Inactive :: PartnerIntegrationStatus
+ Amazonka.Redshift.Types: pattern PartnerIntegrationStatus_RuntimeFailure :: PartnerIntegrationStatus
+ Amazonka.Redshift.Types: pattern ReservedNodeExchangeActionType_Resize_cluster :: ReservedNodeExchangeActionType
+ Amazonka.Redshift.Types: pattern ReservedNodeExchangeActionType_Restore_cluster :: ReservedNodeExchangeActionType
+ Amazonka.Redshift.Types: pattern ReservedNodeExchangeStatusType_FAILED :: ReservedNodeExchangeStatusType
+ Amazonka.Redshift.Types: pattern ReservedNodeExchangeStatusType_IN_PROGRESS :: ReservedNodeExchangeStatusType
+ Amazonka.Redshift.Types: pattern ReservedNodeExchangeStatusType_PENDING :: ReservedNodeExchangeStatusType
+ Amazonka.Redshift.Types: pattern ReservedNodeExchangeStatusType_REQUESTED :: ReservedNodeExchangeStatusType
+ Amazonka.Redshift.Types: pattern ReservedNodeExchangeStatusType_RETRYING :: ReservedNodeExchangeStatusType
+ Amazonka.Redshift.Types: pattern ReservedNodeExchangeStatusType_SUCCEEDED :: ReservedNodeExchangeStatusType
+ Amazonka.Redshift.Types: pattern ReservedNodeOfferingType_Regular :: ReservedNodeOfferingType
+ Amazonka.Redshift.Types: pattern ReservedNodeOfferingType_Upgradable :: ReservedNodeOfferingType
+ Amazonka.Redshift.Types: pattern ScheduleState_ACTIVE :: ScheduleState
+ Amazonka.Redshift.Types: pattern ScheduleState_FAILED :: ScheduleState
+ Amazonka.Redshift.Types: pattern ScheduleState_MODIFYING :: ScheduleState
+ Amazonka.Redshift.Types: pattern ScheduledActionFilterName_Cluster_identifier :: ScheduledActionFilterName
+ Amazonka.Redshift.Types: pattern ScheduledActionFilterName_Iam_role :: ScheduledActionFilterName
+ Amazonka.Redshift.Types: pattern ScheduledActionState_ACTIVE :: ScheduledActionState
+ Amazonka.Redshift.Types: pattern ScheduledActionState_DISABLED :: ScheduledActionState
+ Amazonka.Redshift.Types: pattern ScheduledActionTypeValues_PauseCluster :: ScheduledActionTypeValues
+ Amazonka.Redshift.Types: pattern ScheduledActionTypeValues_ResizeCluster :: ScheduledActionTypeValues
+ Amazonka.Redshift.Types: pattern ScheduledActionTypeValues_ResumeCluster :: ScheduledActionTypeValues
+ Amazonka.Redshift.Types: pattern SnapshotAttributeToSortBy_CREATE_TIME :: SnapshotAttributeToSortBy
+ Amazonka.Redshift.Types: pattern SnapshotAttributeToSortBy_SOURCE_TYPE :: SnapshotAttributeToSortBy
+ Amazonka.Redshift.Types: pattern SnapshotAttributeToSortBy_TOTAL_SIZE :: SnapshotAttributeToSortBy
+ Amazonka.Redshift.Types: pattern SortByOrder_ASC :: SortByOrder
+ Amazonka.Redshift.Types: pattern SortByOrder_DESC :: SortByOrder
+ Amazonka.Redshift.Types: pattern SourceType_Cluster :: SourceType
+ Amazonka.Redshift.Types: pattern SourceType_Cluster_parameter_group :: SourceType
+ Amazonka.Redshift.Types: pattern SourceType_Cluster_security_group :: SourceType
+ Amazonka.Redshift.Types: pattern SourceType_Cluster_snapshot :: SourceType
+ Amazonka.Redshift.Types: pattern SourceType_Scheduled_action :: SourceType
+ Amazonka.Redshift.Types: pattern TableRestoreStatusType_CANCELED :: TableRestoreStatusType
+ Amazonka.Redshift.Types: pattern TableRestoreStatusType_FAILED :: TableRestoreStatusType
+ Amazonka.Redshift.Types: pattern TableRestoreStatusType_IN_PROGRESS :: TableRestoreStatusType
+ Amazonka.Redshift.Types: pattern TableRestoreStatusType_PENDING :: TableRestoreStatusType
+ Amazonka.Redshift.Types: pattern TableRestoreStatusType_SUCCEEDED :: TableRestoreStatusType
+ Amazonka.Redshift.Types: pattern UsageLimitBreachAction_Disable :: UsageLimitBreachAction
+ Amazonka.Redshift.Types: pattern UsageLimitBreachAction_Emit_metric :: UsageLimitBreachAction
+ Amazonka.Redshift.Types: pattern UsageLimitBreachAction_Log :: UsageLimitBreachAction
+ Amazonka.Redshift.Types: pattern UsageLimitFeatureType_Concurrency_scaling :: UsageLimitFeatureType
+ Amazonka.Redshift.Types: pattern UsageLimitFeatureType_Cross_region_datasharing :: UsageLimitFeatureType
+ Amazonka.Redshift.Types: pattern UsageLimitFeatureType_Spectrum :: UsageLimitFeatureType
+ Amazonka.Redshift.Types: pattern UsageLimitLimitType_Data_scanned :: UsageLimitLimitType
+ Amazonka.Redshift.Types: pattern UsageLimitLimitType_Time :: UsageLimitLimitType
+ Amazonka.Redshift.Types: pattern UsageLimitPeriod_Daily :: UsageLimitPeriod
+ Amazonka.Redshift.Types: pattern UsageLimitPeriod_Monthly :: UsageLimitPeriod
+ Amazonka.Redshift.Types: pattern UsageLimitPeriod_Weekly :: UsageLimitPeriod
+ Amazonka.Redshift.Types: pauseClusterMessage_clusterIdentifier :: Lens' PauseClusterMessage Text
+ Amazonka.Redshift.Types: pendingModifiedValues_automatedSnapshotRetentionPeriod :: Lens' PendingModifiedValues (Maybe Int)
+ Amazonka.Redshift.Types: pendingModifiedValues_clusterIdentifier :: Lens' PendingModifiedValues (Maybe Text)
+ Amazonka.Redshift.Types: pendingModifiedValues_clusterType :: Lens' PendingModifiedValues (Maybe Text)
+ Amazonka.Redshift.Types: pendingModifiedValues_clusterVersion :: Lens' PendingModifiedValues (Maybe Text)
+ Amazonka.Redshift.Types: pendingModifiedValues_encryptionType :: Lens' PendingModifiedValues (Maybe Text)
+ Amazonka.Redshift.Types: pendingModifiedValues_enhancedVpcRouting :: Lens' PendingModifiedValues (Maybe Bool)
+ Amazonka.Redshift.Types: pendingModifiedValues_maintenanceTrackName :: Lens' PendingModifiedValues (Maybe Text)
+ Amazonka.Redshift.Types: pendingModifiedValues_masterUserPassword :: Lens' PendingModifiedValues (Maybe Text)
+ Amazonka.Redshift.Types: pendingModifiedValues_nodeType :: Lens' PendingModifiedValues (Maybe Text)
+ Amazonka.Redshift.Types: pendingModifiedValues_numberOfNodes :: Lens' PendingModifiedValues (Maybe Int)
+ Amazonka.Redshift.Types: pendingModifiedValues_publiclyAccessible :: Lens' PendingModifiedValues (Maybe Bool)
+ Amazonka.Redshift.Types: recurringCharge_recurringChargeAmount :: Lens' RecurringCharge (Maybe Double)
+ Amazonka.Redshift.Types: recurringCharge_recurringChargeFrequency :: Lens' RecurringCharge (Maybe Text)
+ Amazonka.Redshift.Types: reservedNodeConfigurationOption_sourceReservedNode :: Lens' ReservedNodeConfigurationOption (Maybe ReservedNode)
+ Amazonka.Redshift.Types: reservedNodeConfigurationOption_targetReservedNodeCount :: Lens' ReservedNodeConfigurationOption (Maybe Int)
+ Amazonka.Redshift.Types: reservedNodeConfigurationOption_targetReservedNodeOffering :: Lens' ReservedNodeConfigurationOption (Maybe ReservedNodeOffering)
+ Amazonka.Redshift.Types: reservedNodeExchangeStatus_requestTime :: Lens' ReservedNodeExchangeStatus (Maybe UTCTime)
+ Amazonka.Redshift.Types: reservedNodeExchangeStatus_reservedNodeExchangeRequestId :: Lens' ReservedNodeExchangeStatus (Maybe Text)
+ Amazonka.Redshift.Types: reservedNodeExchangeStatus_sourceReservedNodeCount :: Lens' ReservedNodeExchangeStatus (Maybe Int)
+ Amazonka.Redshift.Types: reservedNodeExchangeStatus_sourceReservedNodeId :: Lens' ReservedNodeExchangeStatus (Maybe Text)
+ Amazonka.Redshift.Types: reservedNodeExchangeStatus_sourceReservedNodeType :: Lens' ReservedNodeExchangeStatus (Maybe Text)
+ Amazonka.Redshift.Types: reservedNodeExchangeStatus_status :: Lens' ReservedNodeExchangeStatus (Maybe ReservedNodeExchangeStatusType)
+ Amazonka.Redshift.Types: reservedNodeExchangeStatus_targetReservedNodeCount :: Lens' ReservedNodeExchangeStatus (Maybe Int)
+ Amazonka.Redshift.Types: reservedNodeExchangeStatus_targetReservedNodeOfferingId :: Lens' ReservedNodeExchangeStatus (Maybe Text)
+ Amazonka.Redshift.Types: reservedNodeExchangeStatus_targetReservedNodeType :: Lens' ReservedNodeExchangeStatus (Maybe Text)
+ Amazonka.Redshift.Types: reservedNodeOffering_currencyCode :: Lens' ReservedNodeOffering (Maybe Text)
+ Amazonka.Redshift.Types: reservedNodeOffering_duration :: Lens' ReservedNodeOffering (Maybe Int)
+ Amazonka.Redshift.Types: reservedNodeOffering_fixedPrice :: Lens' ReservedNodeOffering (Maybe Double)
+ Amazonka.Redshift.Types: reservedNodeOffering_nodeType :: Lens' ReservedNodeOffering (Maybe Text)
+ Amazonka.Redshift.Types: reservedNodeOffering_offeringType :: Lens' ReservedNodeOffering (Maybe Text)
+ Amazonka.Redshift.Types: reservedNodeOffering_recurringCharges :: Lens' ReservedNodeOffering (Maybe [RecurringCharge])
+ Amazonka.Redshift.Types: reservedNodeOffering_reservedNodeOfferingId :: Lens' ReservedNodeOffering (Maybe Text)
+ Amazonka.Redshift.Types: reservedNodeOffering_reservedNodeOfferingType :: Lens' ReservedNodeOffering (Maybe ReservedNodeOfferingType)
+ Amazonka.Redshift.Types: reservedNodeOffering_usagePrice :: Lens' ReservedNodeOffering (Maybe Double)
+ Amazonka.Redshift.Types: reservedNode_currencyCode :: Lens' ReservedNode (Maybe Text)
+ Amazonka.Redshift.Types: reservedNode_duration :: Lens' ReservedNode (Maybe Int)
+ Amazonka.Redshift.Types: reservedNode_fixedPrice :: Lens' ReservedNode (Maybe Double)
+ Amazonka.Redshift.Types: reservedNode_nodeCount :: Lens' ReservedNode (Maybe Int)
+ Amazonka.Redshift.Types: reservedNode_nodeType :: Lens' ReservedNode (Maybe Text)
+ Amazonka.Redshift.Types: reservedNode_offeringType :: Lens' ReservedNode (Maybe Text)
+ Amazonka.Redshift.Types: reservedNode_recurringCharges :: Lens' ReservedNode (Maybe [RecurringCharge])
+ Amazonka.Redshift.Types: reservedNode_reservedNodeId :: Lens' ReservedNode (Maybe Text)
+ Amazonka.Redshift.Types: reservedNode_reservedNodeOfferingId :: Lens' ReservedNode (Maybe Text)
+ Amazonka.Redshift.Types: reservedNode_reservedNodeOfferingType :: Lens' ReservedNode (Maybe ReservedNodeOfferingType)
+ Amazonka.Redshift.Types: reservedNode_startTime :: Lens' ReservedNode (Maybe UTCTime)
+ Amazonka.Redshift.Types: reservedNode_state :: Lens' ReservedNode (Maybe Text)
+ Amazonka.Redshift.Types: reservedNode_usagePrice :: Lens' ReservedNode (Maybe Double)
+ Amazonka.Redshift.Types: resizeClusterMessage_classic :: Lens' ResizeClusterMessage (Maybe Bool)
+ Amazonka.Redshift.Types: resizeClusterMessage_clusterIdentifier :: Lens' ResizeClusterMessage Text
+ Amazonka.Redshift.Types: resizeClusterMessage_clusterType :: Lens' ResizeClusterMessage (Maybe Text)
+ Amazonka.Redshift.Types: resizeClusterMessage_nodeType :: Lens' ResizeClusterMessage (Maybe Text)
+ Amazonka.Redshift.Types: resizeClusterMessage_numberOfNodes :: Lens' ResizeClusterMessage (Maybe Int)
+ Amazonka.Redshift.Types: resizeClusterMessage_reservedNodeId :: Lens' ResizeClusterMessage (Maybe Text)
+ Amazonka.Redshift.Types: resizeClusterMessage_targetReservedNodeOfferingId :: Lens' ResizeClusterMessage (Maybe Text)
+ Amazonka.Redshift.Types: resizeInfo_allowCancelResize :: Lens' ResizeInfo (Maybe Bool)
+ Amazonka.Redshift.Types: resizeInfo_resizeType :: Lens' ResizeInfo (Maybe Text)
+ Amazonka.Redshift.Types: resizeProgressMessage_avgResizeRateInMegaBytesPerSecond :: Lens' ResizeProgressMessage (Maybe Double)
+ Amazonka.Redshift.Types: resizeProgressMessage_dataTransferProgressPercent :: Lens' ResizeProgressMessage (Maybe Double)
+ Amazonka.Redshift.Types: resizeProgressMessage_elapsedTimeInSeconds :: Lens' ResizeProgressMessage (Maybe Integer)
+ Amazonka.Redshift.Types: resizeProgressMessage_estimatedTimeToCompletionInSeconds :: Lens' ResizeProgressMessage (Maybe Integer)
+ Amazonka.Redshift.Types: resizeProgressMessage_importTablesCompleted :: Lens' ResizeProgressMessage (Maybe [Text])
+ Amazonka.Redshift.Types: resizeProgressMessage_importTablesInProgress :: Lens' ResizeProgressMessage (Maybe [Text])
+ Amazonka.Redshift.Types: resizeProgressMessage_importTablesNotStarted :: Lens' ResizeProgressMessage (Maybe [Text])
+ Amazonka.Redshift.Types: resizeProgressMessage_message :: Lens' ResizeProgressMessage (Maybe Text)
+ Amazonka.Redshift.Types: resizeProgressMessage_progressInMegaBytes :: Lens' ResizeProgressMessage (Maybe Integer)
+ Amazonka.Redshift.Types: resizeProgressMessage_resizeType :: Lens' ResizeProgressMessage (Maybe Text)
+ Amazonka.Redshift.Types: resizeProgressMessage_status :: Lens' ResizeProgressMessage (Maybe Text)
+ Amazonka.Redshift.Types: resizeProgressMessage_targetClusterType :: Lens' ResizeProgressMessage (Maybe Text)
+ Amazonka.Redshift.Types: resizeProgressMessage_targetEncryptionType :: Lens' ResizeProgressMessage (Maybe Text)
+ Amazonka.Redshift.Types: resizeProgressMessage_targetNodeType :: Lens' ResizeProgressMessage (Maybe Text)
+ Amazonka.Redshift.Types: resizeProgressMessage_targetNumberOfNodes :: Lens' ResizeProgressMessage (Maybe Int)
+ Amazonka.Redshift.Types: resizeProgressMessage_totalResizeDataInMegaBytes :: Lens' ResizeProgressMessage (Maybe Integer)
+ Amazonka.Redshift.Types: restoreStatus_currentRestoreRateInMegaBytesPerSecond :: Lens' RestoreStatus (Maybe Double)
+ Amazonka.Redshift.Types: restoreStatus_elapsedTimeInSeconds :: Lens' RestoreStatus (Maybe Integer)
+ Amazonka.Redshift.Types: restoreStatus_estimatedTimeToCompletionInSeconds :: Lens' RestoreStatus (Maybe Integer)
+ Amazonka.Redshift.Types: restoreStatus_progressInMegaBytes :: Lens' RestoreStatus (Maybe Integer)
+ Amazonka.Redshift.Types: restoreStatus_snapshotSizeInMegaBytes :: Lens' RestoreStatus (Maybe Integer)
+ Amazonka.Redshift.Types: restoreStatus_status :: Lens' RestoreStatus (Maybe Text)
+ Amazonka.Redshift.Types: resumeClusterMessage_clusterIdentifier :: Lens' ResumeClusterMessage Text
+ Amazonka.Redshift.Types: revisionTarget_databaseRevision :: Lens' RevisionTarget (Maybe Text)
+ Amazonka.Redshift.Types: revisionTarget_databaseRevisionReleaseDate :: Lens' RevisionTarget (Maybe UTCTime)
+ Amazonka.Redshift.Types: revisionTarget_description :: Lens' RevisionTarget (Maybe Text)
+ Amazonka.Redshift.Types: scheduledActionFilter_name :: Lens' ScheduledActionFilter ScheduledActionFilterName
+ Amazonka.Redshift.Types: scheduledActionFilter_values :: Lens' ScheduledActionFilter [Text]
+ Amazonka.Redshift.Types: scheduledActionType_pauseCluster :: Lens' ScheduledActionType (Maybe PauseClusterMessage)
+ Amazonka.Redshift.Types: scheduledActionType_resizeCluster :: Lens' ScheduledActionType (Maybe ResizeClusterMessage)
+ Amazonka.Redshift.Types: scheduledActionType_resumeCluster :: Lens' ScheduledActionType (Maybe ResumeClusterMessage)
+ Amazonka.Redshift.Types: scheduledAction_endTime :: Lens' ScheduledAction (Maybe UTCTime)
+ Amazonka.Redshift.Types: scheduledAction_iamRole :: Lens' ScheduledAction (Maybe Text)
+ Amazonka.Redshift.Types: scheduledAction_nextInvocations :: Lens' ScheduledAction (Maybe [UTCTime])
+ Amazonka.Redshift.Types: scheduledAction_schedule :: Lens' ScheduledAction (Maybe Text)
+ Amazonka.Redshift.Types: scheduledAction_scheduledActionDescription :: Lens' ScheduledAction (Maybe Text)
+ Amazonka.Redshift.Types: scheduledAction_scheduledActionName :: Lens' ScheduledAction (Maybe Text)
+ Amazonka.Redshift.Types: scheduledAction_startTime :: Lens' ScheduledAction (Maybe UTCTime)
+ Amazonka.Redshift.Types: scheduledAction_state :: Lens' ScheduledAction (Maybe ScheduledActionState)
+ Amazonka.Redshift.Types: scheduledAction_targetAction :: Lens' ScheduledAction (Maybe ScheduledActionType)
+ Amazonka.Redshift.Types: snapshotCopyGrant_kmsKeyId :: Lens' SnapshotCopyGrant (Maybe Text)
+ Amazonka.Redshift.Types: snapshotCopyGrant_snapshotCopyGrantName :: Lens' SnapshotCopyGrant (Maybe Text)
+ Amazonka.Redshift.Types: snapshotCopyGrant_tags :: Lens' SnapshotCopyGrant (Maybe [Tag])
+ Amazonka.Redshift.Types: snapshotErrorMessage_failureCode :: Lens' SnapshotErrorMessage (Maybe Text)
+ Amazonka.Redshift.Types: snapshotErrorMessage_failureReason :: Lens' SnapshotErrorMessage (Maybe Text)
+ Amazonka.Redshift.Types: snapshotErrorMessage_snapshotClusterIdentifier :: Lens' SnapshotErrorMessage (Maybe Text)
+ Amazonka.Redshift.Types: snapshotErrorMessage_snapshotIdentifier :: Lens' SnapshotErrorMessage (Maybe Text)
+ Amazonka.Redshift.Types: snapshotSchedule_associatedClusterCount :: Lens' SnapshotSchedule (Maybe Int)
+ Amazonka.Redshift.Types: snapshotSchedule_associatedClusters :: Lens' SnapshotSchedule (Maybe [ClusterAssociatedToSchedule])
+ Amazonka.Redshift.Types: snapshotSchedule_nextInvocations :: Lens' SnapshotSchedule (Maybe [UTCTime])
+ Amazonka.Redshift.Types: snapshotSchedule_scheduleDefinitions :: Lens' SnapshotSchedule (Maybe [Text])
+ Amazonka.Redshift.Types: snapshotSchedule_scheduleDescription :: Lens' SnapshotSchedule (Maybe Text)
+ Amazonka.Redshift.Types: snapshotSchedule_scheduleIdentifier :: Lens' SnapshotSchedule (Maybe Text)
+ Amazonka.Redshift.Types: snapshotSchedule_tags :: Lens' SnapshotSchedule (Maybe [Tag])
+ Amazonka.Redshift.Types: snapshotSortingEntity_attribute :: Lens' SnapshotSortingEntity SnapshotAttributeToSortBy
+ Amazonka.Redshift.Types: snapshotSortingEntity_sortOrder :: Lens' SnapshotSortingEntity (Maybe SortByOrder)
+ Amazonka.Redshift.Types: snapshot_accountsWithRestoreAccess :: Lens' Snapshot (Maybe [AccountWithRestoreAccess])
+ Amazonka.Redshift.Types: snapshot_actualIncrementalBackupSizeInMegaBytes :: Lens' Snapshot (Maybe Double)
+ Amazonka.Redshift.Types: snapshot_availabilityZone :: Lens' Snapshot (Maybe Text)
+ Amazonka.Redshift.Types: snapshot_backupProgressInMegaBytes :: Lens' Snapshot (Maybe Double)
+ Amazonka.Redshift.Types: snapshot_clusterCreateTime :: Lens' Snapshot (Maybe UTCTime)
+ Amazonka.Redshift.Types: snapshot_clusterIdentifier :: Lens' Snapshot (Maybe Text)
+ Amazonka.Redshift.Types: snapshot_clusterVersion :: Lens' Snapshot (Maybe Text)
+ Amazonka.Redshift.Types: snapshot_currentBackupRateInMegaBytesPerSecond :: Lens' Snapshot (Maybe Double)
+ Amazonka.Redshift.Types: snapshot_dbName :: Lens' Snapshot (Maybe Text)
+ Amazonka.Redshift.Types: snapshot_elapsedTimeInSeconds :: Lens' Snapshot (Maybe Integer)
+ Amazonka.Redshift.Types: snapshot_encrypted :: Lens' Snapshot (Maybe Bool)
+ Amazonka.Redshift.Types: snapshot_encryptedWithHSM :: Lens' Snapshot (Maybe Bool)
+ Amazonka.Redshift.Types: snapshot_engineFullVersion :: Lens' Snapshot (Maybe Text)
+ Amazonka.Redshift.Types: snapshot_enhancedVpcRouting :: Lens' Snapshot (Maybe Bool)
+ Amazonka.Redshift.Types: snapshot_estimatedSecondsToCompletion :: Lens' Snapshot (Maybe Integer)
+ Amazonka.Redshift.Types: snapshot_kmsKeyId :: Lens' Snapshot (Maybe Text)
+ Amazonka.Redshift.Types: snapshot_maintenanceTrackName :: Lens' Snapshot (Maybe Text)
+ Amazonka.Redshift.Types: snapshot_manualSnapshotRemainingDays :: Lens' Snapshot (Maybe Int)
+ Amazonka.Redshift.Types: snapshot_manualSnapshotRetentionPeriod :: Lens' Snapshot (Maybe Int)
+ Amazonka.Redshift.Types: snapshot_masterUsername :: Lens' Snapshot (Maybe Text)
+ Amazonka.Redshift.Types: snapshot_nodeType :: Lens' Snapshot (Maybe Text)
+ Amazonka.Redshift.Types: snapshot_numberOfNodes :: Lens' Snapshot (Maybe Int)
+ Amazonka.Redshift.Types: snapshot_ownerAccount :: Lens' Snapshot (Maybe Text)
+ Amazonka.Redshift.Types: snapshot_port :: Lens' Snapshot (Maybe Int)
+ Amazonka.Redshift.Types: snapshot_restorableNodeTypes :: Lens' Snapshot (Maybe [Text])
+ Amazonka.Redshift.Types: snapshot_snapshotCreateTime :: Lens' Snapshot (Maybe UTCTime)
+ Amazonka.Redshift.Types: snapshot_snapshotIdentifier :: Lens' Snapshot (Maybe Text)
+ Amazonka.Redshift.Types: snapshot_snapshotRetentionStartTime :: Lens' Snapshot (Maybe UTCTime)
+ Amazonka.Redshift.Types: snapshot_snapshotType :: Lens' Snapshot (Maybe Text)
+ Amazonka.Redshift.Types: snapshot_sourceRegion :: Lens' Snapshot (Maybe Text)
+ Amazonka.Redshift.Types: snapshot_status :: Lens' Snapshot (Maybe Text)
+ Amazonka.Redshift.Types: snapshot_tags :: Lens' Snapshot (Maybe [Tag])
+ Amazonka.Redshift.Types: snapshot_totalBackupSizeInMegaBytes :: Lens' Snapshot (Maybe Double)
+ Amazonka.Redshift.Types: snapshot_vpcId :: Lens' Snapshot (Maybe Text)
+ Amazonka.Redshift.Types: subnet_subnetAvailabilityZone :: Lens' Subnet (Maybe AvailabilityZone)
+ Amazonka.Redshift.Types: subnet_subnetIdentifier :: Lens' Subnet (Maybe Text)
+ Amazonka.Redshift.Types: subnet_subnetStatus :: Lens' Subnet (Maybe Text)
+ Amazonka.Redshift.Types: supportedOperation_operationName :: Lens' SupportedOperation (Maybe Text)
+ Amazonka.Redshift.Types: supportedPlatform_name :: Lens' SupportedPlatform (Maybe Text)
+ Amazonka.Redshift.Types: tableRestoreStatus_clusterIdentifier :: Lens' TableRestoreStatus (Maybe Text)
+ Amazonka.Redshift.Types: tableRestoreStatus_message :: Lens' TableRestoreStatus (Maybe Text)
+ Amazonka.Redshift.Types: tableRestoreStatus_newTableName :: Lens' TableRestoreStatus (Maybe Text)
+ Amazonka.Redshift.Types: tableRestoreStatus_progressInMegaBytes :: Lens' TableRestoreStatus (Maybe Integer)
+ Amazonka.Redshift.Types: tableRestoreStatus_requestTime :: Lens' TableRestoreStatus (Maybe UTCTime)
+ Amazonka.Redshift.Types: tableRestoreStatus_snapshotIdentifier :: Lens' TableRestoreStatus (Maybe Text)
+ Amazonka.Redshift.Types: tableRestoreStatus_sourceDatabaseName :: Lens' TableRestoreStatus (Maybe Text)
+ Amazonka.Redshift.Types: tableRestoreStatus_sourceSchemaName :: Lens' TableRestoreStatus (Maybe Text)
+ Amazonka.Redshift.Types: tableRestoreStatus_sourceTableName :: Lens' TableRestoreStatus (Maybe Text)
+ Amazonka.Redshift.Types: tableRestoreStatus_status :: Lens' TableRestoreStatus (Maybe TableRestoreStatusType)
+ Amazonka.Redshift.Types: tableRestoreStatus_tableRestoreRequestId :: Lens' TableRestoreStatus (Maybe Text)
+ Amazonka.Redshift.Types: tableRestoreStatus_targetDatabaseName :: Lens' TableRestoreStatus (Maybe Text)
+ Amazonka.Redshift.Types: tableRestoreStatus_targetSchemaName :: Lens' TableRestoreStatus (Maybe Text)
+ Amazonka.Redshift.Types: tableRestoreStatus_totalDataInMegaBytes :: Lens' TableRestoreStatus (Maybe Integer)
+ Amazonka.Redshift.Types: tag_key :: Lens' Tag (Maybe Text)
+ Amazonka.Redshift.Types: tag_value :: Lens' Tag (Maybe Text)
+ Amazonka.Redshift.Types: taggedResource_resourceName :: Lens' TaggedResource (Maybe Text)
+ Amazonka.Redshift.Types: taggedResource_resourceType :: Lens' TaggedResource (Maybe Text)
+ Amazonka.Redshift.Types: taggedResource_tag :: Lens' TaggedResource (Maybe Tag)
+ Amazonka.Redshift.Types: updateTarget_databaseVersion :: Lens' UpdateTarget (Maybe Text)
+ Amazonka.Redshift.Types: updateTarget_maintenanceTrackName :: Lens' UpdateTarget (Maybe Text)
+ Amazonka.Redshift.Types: updateTarget_supportedOperations :: Lens' UpdateTarget (Maybe [SupportedOperation])
+ Amazonka.Redshift.Types: usageLimit_amount :: Lens' UsageLimit (Maybe Integer)
+ Amazonka.Redshift.Types: usageLimit_breachAction :: Lens' UsageLimit (Maybe UsageLimitBreachAction)
+ Amazonka.Redshift.Types: usageLimit_clusterIdentifier :: Lens' UsageLimit (Maybe Text)
+ Amazonka.Redshift.Types: usageLimit_featureType :: Lens' UsageLimit (Maybe UsageLimitFeatureType)
+ Amazonka.Redshift.Types: usageLimit_limitType :: Lens' UsageLimit (Maybe UsageLimitLimitType)
+ Amazonka.Redshift.Types: usageLimit_period :: Lens' UsageLimit (Maybe UsageLimitPeriod)
+ Amazonka.Redshift.Types: usageLimit_tags :: Lens' UsageLimit (Maybe [Tag])
+ Amazonka.Redshift.Types: usageLimit_usageLimitId :: Lens' UsageLimit (Maybe Text)
+ Amazonka.Redshift.Types: vpcEndpoint_networkInterfaces :: Lens' VpcEndpoint (Maybe [NetworkInterface])
+ Amazonka.Redshift.Types: vpcEndpoint_vpcEndpointId :: Lens' VpcEndpoint (Maybe Text)
+ Amazonka.Redshift.Types: vpcEndpoint_vpcId :: Lens' VpcEndpoint (Maybe Text)
+ Amazonka.Redshift.Types: vpcSecurityGroupMembership_status :: Lens' VpcSecurityGroupMembership (Maybe Text)
+ Amazonka.Redshift.Types: vpcSecurityGroupMembership_vpcSecurityGroupId :: Lens' VpcSecurityGroupMembership (Maybe Text)
+ Amazonka.Redshift.Types.AccountAttribute: AccountAttribute' :: Maybe Text -> Maybe [AttributeValueTarget] -> AccountAttribute
+ Amazonka.Redshift.Types.AccountAttribute: [$sel:attributeName:AccountAttribute'] :: AccountAttribute -> Maybe Text
+ Amazonka.Redshift.Types.AccountAttribute: [$sel:attributeValues:AccountAttribute'] :: AccountAttribute -> Maybe [AttributeValueTarget]
+ Amazonka.Redshift.Types.AccountAttribute: accountAttribute_attributeName :: Lens' AccountAttribute (Maybe Text)
+ Amazonka.Redshift.Types.AccountAttribute: accountAttribute_attributeValues :: Lens' AccountAttribute (Maybe [AttributeValueTarget])
+ Amazonka.Redshift.Types.AccountAttribute: data AccountAttribute
+ Amazonka.Redshift.Types.AccountAttribute: instance Amazonka.Data.XML.FromXML Amazonka.Redshift.Types.AccountAttribute.AccountAttribute
+ Amazonka.Redshift.Types.AccountAttribute: instance Control.DeepSeq.NFData Amazonka.Redshift.Types.AccountAttribute.AccountAttribute
+ Amazonka.Redshift.Types.AccountAttribute: instance Data.Hashable.Class.Hashable Amazonka.Redshift.Types.AccountAttribute.AccountAttribute
+ Amazonka.Redshift.Types.AccountAttribute: instance GHC.Classes.Eq Amazonka.Redshift.Types.AccountAttribute.AccountAttribute
+ Amazonka.Redshift.Types.AccountAttribute: instance GHC.Generics.Generic Amazonka.Redshift.Types.AccountAttribute.AccountAttribute
+ Amazonka.Redshift.Types.AccountAttribute: instance GHC.Read.Read Amazonka.Redshift.Types.AccountAttribute.AccountAttribute
+ Amazonka.Redshift.Types.AccountAttribute: instance GHC.Show.Show Amazonka.Redshift.Types.AccountAttribute.AccountAttribute
+ Amazonka.Redshift.Types.AccountAttribute: newAccountAttribute :: AccountAttribute
+ Amazonka.Redshift.Types.AccountWithRestoreAccess: AccountWithRestoreAccess' :: Maybe Text -> Maybe Text -> AccountWithRestoreAccess
+ Amazonka.Redshift.Types.AccountWithRestoreAccess: [$sel:accountAlias:AccountWithRestoreAccess'] :: AccountWithRestoreAccess -> Maybe Text
+ Amazonka.Redshift.Types.AccountWithRestoreAccess: [$sel:accountId:AccountWithRestoreAccess'] :: AccountWithRestoreAccess -> Maybe Text
+ Amazonka.Redshift.Types.AccountWithRestoreAccess: accountWithRestoreAccess_accountAlias :: Lens' AccountWithRestoreAccess (Maybe Text)
+ Amazonka.Redshift.Types.AccountWithRestoreAccess: accountWithRestoreAccess_accountId :: Lens' AccountWithRestoreAccess (Maybe Text)
+ Amazonka.Redshift.Types.AccountWithRestoreAccess: data AccountWithRestoreAccess
+ Amazonka.Redshift.Types.AccountWithRestoreAccess: instance Amazonka.Data.XML.FromXML Amazonka.Redshift.Types.AccountWithRestoreAccess.AccountWithRestoreAccess
+ Amazonka.Redshift.Types.AccountWithRestoreAccess: instance Control.DeepSeq.NFData Amazonka.Redshift.Types.AccountWithRestoreAccess.AccountWithRestoreAccess
+ Amazonka.Redshift.Types.AccountWithRestoreAccess: instance Data.Hashable.Class.Hashable Amazonka.Redshift.Types.AccountWithRestoreAccess.AccountWithRestoreAccess
+ Amazonka.Redshift.Types.AccountWithRestoreAccess: instance GHC.Classes.Eq Amazonka.Redshift.Types.AccountWithRestoreAccess.AccountWithRestoreAccess
+ Amazonka.Redshift.Types.AccountWithRestoreAccess: instance GHC.Generics.Generic Amazonka.Redshift.Types.AccountWithRestoreAccess.AccountWithRestoreAccess
+ Amazonka.Redshift.Types.AccountWithRestoreAccess: instance GHC.Read.Read Amazonka.Redshift.Types.AccountWithRestoreAccess.AccountWithRestoreAccess
+ Amazonka.Redshift.Types.AccountWithRestoreAccess: instance GHC.Show.Show Amazonka.Redshift.Types.AccountWithRestoreAccess.AccountWithRestoreAccess
+ Amazonka.Redshift.Types.AccountWithRestoreAccess: newAccountWithRestoreAccess :: AccountWithRestoreAccess
+ Amazonka.Redshift.Types.ActionType: ActionType' :: Text -> ActionType
+ Amazonka.Redshift.Types.ActionType: [fromActionType] :: ActionType -> Text
+ Amazonka.Redshift.Types.ActionType: instance Amazonka.Data.ByteString.ToByteString Amazonka.Redshift.Types.ActionType.ActionType
+ Amazonka.Redshift.Types.ActionType: instance Amazonka.Data.Headers.ToHeader Amazonka.Redshift.Types.ActionType.ActionType
+ Amazonka.Redshift.Types.ActionType: instance Amazonka.Data.Log.ToLog Amazonka.Redshift.Types.ActionType.ActionType
+ Amazonka.Redshift.Types.ActionType: instance Amazonka.Data.Query.ToQuery Amazonka.Redshift.Types.ActionType.ActionType
+ Amazonka.Redshift.Types.ActionType: instance Amazonka.Data.Text.FromText Amazonka.Redshift.Types.ActionType.ActionType
+ Amazonka.Redshift.Types.ActionType: instance Amazonka.Data.Text.ToText Amazonka.Redshift.Types.ActionType.ActionType
+ Amazonka.Redshift.Types.ActionType: instance Amazonka.Data.XML.FromXML Amazonka.Redshift.Types.ActionType.ActionType
+ Amazonka.Redshift.Types.ActionType: instance Amazonka.Data.XML.ToXML Amazonka.Redshift.Types.ActionType.ActionType
+ Amazonka.Redshift.Types.ActionType: instance Control.DeepSeq.NFData Amazonka.Redshift.Types.ActionType.ActionType
+ Amazonka.Redshift.Types.ActionType: instance Data.Aeson.Types.FromJSON.FromJSON Amazonka.Redshift.Types.ActionType.ActionType
+ Amazonka.Redshift.Types.ActionType: instance Data.Aeson.Types.FromJSON.FromJSONKey Amazonka.Redshift.Types.ActionType.ActionType
+ Amazonka.Redshift.Types.ActionType: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.Redshift.Types.ActionType.ActionType
+ Amazonka.Redshift.Types.ActionType: instance Data.Aeson.Types.ToJSON.ToJSONKey Amazonka.Redshift.Types.ActionType.ActionType
+ Amazonka.Redshift.Types.ActionType: instance Data.Hashable.Class.Hashable Amazonka.Redshift.Types.ActionType.ActionType
+ Amazonka.Redshift.Types.ActionType: instance GHC.Classes.Eq Amazonka.Redshift.Types.ActionType.ActionType
+ Amazonka.Redshift.Types.ActionType: instance GHC.Classes.Ord Amazonka.Redshift.Types.ActionType.ActionType
+ Amazonka.Redshift.Types.ActionType: instance GHC.Generics.Generic Amazonka.Redshift.Types.ActionType.ActionType
+ Amazonka.Redshift.Types.ActionType: instance GHC.Read.Read Amazonka.Redshift.Types.ActionType.ActionType
+ Amazonka.Redshift.Types.ActionType: instance GHC.Show.Show Amazonka.Redshift.Types.ActionType.ActionType
+ Amazonka.Redshift.Types.ActionType: newtype ActionType
+ Amazonka.Redshift.Types.ActionType: pattern ActionType_Recommend_node_config :: ActionType
+ Amazonka.Redshift.Types.ActionType: pattern ActionType_Resize_cluster :: ActionType
+ Amazonka.Redshift.Types.ActionType: pattern ActionType_Restore_cluster :: ActionType
+ Amazonka.Redshift.Types.AquaConfiguration: AquaConfiguration' :: Maybe AquaConfigurationStatus -> Maybe AquaStatus -> AquaConfiguration
+ Amazonka.Redshift.Types.AquaConfiguration: [$sel:aquaConfigurationStatus:AquaConfiguration'] :: AquaConfiguration -> Maybe AquaConfigurationStatus
+ Amazonka.Redshift.Types.AquaConfiguration: [$sel:aquaStatus:AquaConfiguration'] :: AquaConfiguration -> Maybe AquaStatus
+ Amazonka.Redshift.Types.AquaConfiguration: aquaConfiguration_aquaConfigurationStatus :: Lens' AquaConfiguration (Maybe AquaConfigurationStatus)
+ Amazonka.Redshift.Types.AquaConfiguration: aquaConfiguration_aquaStatus :: Lens' AquaConfiguration (Maybe AquaStatus)
+ Amazonka.Redshift.Types.AquaConfiguration: data AquaConfiguration
+ Amazonka.Redshift.Types.AquaConfiguration: instance Amazonka.Data.XML.FromXML Amazonka.Redshift.Types.AquaConfiguration.AquaConfiguration
+ Amazonka.Redshift.Types.AquaConfiguration: instance Control.DeepSeq.NFData Amazonka.Redshift.Types.AquaConfiguration.AquaConfiguration
+ Amazonka.Redshift.Types.AquaConfiguration: instance Data.Hashable.Class.Hashable Amazonka.Redshift.Types.AquaConfiguration.AquaConfiguration
+ Amazonka.Redshift.Types.AquaConfiguration: instance GHC.Classes.Eq Amazonka.Redshift.Types.AquaConfiguration.AquaConfiguration
+ Amazonka.Redshift.Types.AquaConfiguration: instance GHC.Generics.Generic Amazonka.Redshift.Types.AquaConfiguration.AquaConfiguration
+ Amazonka.Redshift.Types.AquaConfiguration: instance GHC.Read.Read Amazonka.Redshift.Types.AquaConfiguration.AquaConfiguration
+ Amazonka.Redshift.Types.AquaConfiguration: instance GHC.Show.Show Amazonka.Redshift.Types.AquaConfiguration.AquaConfiguration
+ Amazonka.Redshift.Types.AquaConfiguration: newAquaConfiguration :: AquaConfiguration
+ Amazonka.Redshift.Types.AquaConfigurationStatus: AquaConfigurationStatus' :: Text -> AquaConfigurationStatus
+ Amazonka.Redshift.Types.AquaConfigurationStatus: [fromAquaConfigurationStatus] :: AquaConfigurationStatus -> Text
+ Amazonka.Redshift.Types.AquaConfigurationStatus: instance Amazonka.Data.ByteString.ToByteString Amazonka.Redshift.Types.AquaConfigurationStatus.AquaConfigurationStatus
+ Amazonka.Redshift.Types.AquaConfigurationStatus: instance Amazonka.Data.Headers.ToHeader Amazonka.Redshift.Types.AquaConfigurationStatus.AquaConfigurationStatus
+ Amazonka.Redshift.Types.AquaConfigurationStatus: instance Amazonka.Data.Log.ToLog Amazonka.Redshift.Types.AquaConfigurationStatus.AquaConfigurationStatus
+ Amazonka.Redshift.Types.AquaConfigurationStatus: instance Amazonka.Data.Query.ToQuery Amazonka.Redshift.Types.AquaConfigurationStatus.AquaConfigurationStatus
+ Amazonka.Redshift.Types.AquaConfigurationStatus: instance Amazonka.Data.Text.FromText Amazonka.Redshift.Types.AquaConfigurationStatus.AquaConfigurationStatus
+ Amazonka.Redshift.Types.AquaConfigurationStatus: instance Amazonka.Data.Text.ToText Amazonka.Redshift.Types.AquaConfigurationStatus.AquaConfigurationStatus
+ Amazonka.Redshift.Types.AquaConfigurationStatus: instance Amazonka.Data.XML.FromXML Amazonka.Redshift.Types.AquaConfigurationStatus.AquaConfigurationStatus
+ Amazonka.Redshift.Types.AquaConfigurationStatus: instance Amazonka.Data.XML.ToXML Amazonka.Redshift.Types.AquaConfigurationStatus.AquaConfigurationStatus
+ Amazonka.Redshift.Types.AquaConfigurationStatus: instance Control.DeepSeq.NFData Amazonka.Redshift.Types.AquaConfigurationStatus.AquaConfigurationStatus
+ Amazonka.Redshift.Types.AquaConfigurationStatus: instance Data.Aeson.Types.FromJSON.FromJSON Amazonka.Redshift.Types.AquaConfigurationStatus.AquaConfigurationStatus
+ Amazonka.Redshift.Types.AquaConfigurationStatus: instance Data.Aeson.Types.FromJSON.FromJSONKey Amazonka.Redshift.Types.AquaConfigurationStatus.AquaConfigurationStatus
+ Amazonka.Redshift.Types.AquaConfigurationStatus: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.Redshift.Types.AquaConfigurationStatus.AquaConfigurationStatus
+ Amazonka.Redshift.Types.AquaConfigurationStatus: instance Data.Aeson.Types.ToJSON.ToJSONKey Amazonka.Redshift.Types.AquaConfigurationStatus.AquaConfigurationStatus
+ Amazonka.Redshift.Types.AquaConfigurationStatus: instance Data.Hashable.Class.Hashable Amazonka.Redshift.Types.AquaConfigurationStatus.AquaConfigurationStatus
+ Amazonka.Redshift.Types.AquaConfigurationStatus: instance GHC.Classes.Eq Amazonka.Redshift.Types.AquaConfigurationStatus.AquaConfigurationStatus
+ Amazonka.Redshift.Types.AquaConfigurationStatus: instance GHC.Classes.Ord Amazonka.Redshift.Types.AquaConfigurationStatus.AquaConfigurationStatus
+ Amazonka.Redshift.Types.AquaConfigurationStatus: instance GHC.Generics.Generic Amazonka.Redshift.Types.AquaConfigurationStatus.AquaConfigurationStatus
+ Amazonka.Redshift.Types.AquaConfigurationStatus: instance GHC.Read.Read Amazonka.Redshift.Types.AquaConfigurationStatus.AquaConfigurationStatus
+ Amazonka.Redshift.Types.AquaConfigurationStatus: instance GHC.Show.Show Amazonka.Redshift.Types.AquaConfigurationStatus.AquaConfigurationStatus
+ Amazonka.Redshift.Types.AquaConfigurationStatus: newtype AquaConfigurationStatus
+ Amazonka.Redshift.Types.AquaConfigurationStatus: pattern AquaConfigurationStatus_Auto :: AquaConfigurationStatus
+ Amazonka.Redshift.Types.AquaConfigurationStatus: pattern AquaConfigurationStatus_Disabled :: AquaConfigurationStatus
+ Amazonka.Redshift.Types.AquaConfigurationStatus: pattern AquaConfigurationStatus_Enabled :: AquaConfigurationStatus
+ Amazonka.Redshift.Types.AquaStatus: AquaStatus' :: Text -> AquaStatus
+ Amazonka.Redshift.Types.AquaStatus: [fromAquaStatus] :: AquaStatus -> Text
+ Amazonka.Redshift.Types.AquaStatus: instance Amazonka.Data.ByteString.ToByteString Amazonka.Redshift.Types.AquaStatus.AquaStatus
+ Amazonka.Redshift.Types.AquaStatus: instance Amazonka.Data.Headers.ToHeader Amazonka.Redshift.Types.AquaStatus.AquaStatus
+ Amazonka.Redshift.Types.AquaStatus: instance Amazonka.Data.Log.ToLog Amazonka.Redshift.Types.AquaStatus.AquaStatus
+ Amazonka.Redshift.Types.AquaStatus: instance Amazonka.Data.Query.ToQuery Amazonka.Redshift.Types.AquaStatus.AquaStatus
+ Amazonka.Redshift.Types.AquaStatus: instance Amazonka.Data.Text.FromText Amazonka.Redshift.Types.AquaStatus.AquaStatus
+ Amazonka.Redshift.Types.AquaStatus: instance Amazonka.Data.Text.ToText Amazonka.Redshift.Types.AquaStatus.AquaStatus
+ Amazonka.Redshift.Types.AquaStatus: instance Amazonka.Data.XML.FromXML Amazonka.Redshift.Types.AquaStatus.AquaStatus
+ Amazonka.Redshift.Types.AquaStatus: instance Amazonka.Data.XML.ToXML Amazonka.Redshift.Types.AquaStatus.AquaStatus
+ Amazonka.Redshift.Types.AquaStatus: instance Control.DeepSeq.NFData Amazonka.Redshift.Types.AquaStatus.AquaStatus
+ Amazonka.Redshift.Types.AquaStatus: instance Data.Aeson.Types.FromJSON.FromJSON Amazonka.Redshift.Types.AquaStatus.AquaStatus
+ Amazonka.Redshift.Types.AquaStatus: instance Data.Aeson.Types.FromJSON.FromJSONKey Amazonka.Redshift.Types.AquaStatus.AquaStatus
+ Amazonka.Redshift.Types.AquaStatus: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.Redshift.Types.AquaStatus.AquaStatus
+ Amazonka.Redshift.Types.AquaStatus: instance Data.Aeson.Types.ToJSON.ToJSONKey Amazonka.Redshift.Types.AquaStatus.AquaStatus
+ Amazonka.Redshift.Types.AquaStatus: instance Data.Hashable.Class.Hashable Amazonka.Redshift.Types.AquaStatus.AquaStatus
+ Amazonka.Redshift.Types.AquaStatus: instance GHC.Classes.Eq Amazonka.Redshift.Types.AquaStatus.AquaStatus
+ Amazonka.Redshift.Types.AquaStatus: instance GHC.Classes.Ord Amazonka.Redshift.Types.AquaStatus.AquaStatus
+ Amazonka.Redshift.Types.AquaStatus: instance GHC.Generics.Generic Amazonka.Redshift.Types.AquaStatus.AquaStatus
+ Amazonka.Redshift.Types.AquaStatus: instance GHC.Read.Read Amazonka.Redshift.Types.AquaStatus.AquaStatus
+ Amazonka.Redshift.Types.AquaStatus: instance GHC.Show.Show Amazonka.Redshift.Types.AquaStatus.AquaStatus
+ Amazonka.Redshift.Types.AquaStatus: newtype AquaStatus
+ Amazonka.Redshift.Types.AquaStatus: pattern AquaStatus_Applying :: AquaStatus
+ Amazonka.Redshift.Types.AquaStatus: pattern AquaStatus_Disabled :: AquaStatus
+ Amazonka.Redshift.Types.AquaStatus: pattern AquaStatus_Enabled :: AquaStatus
+ Amazonka.Redshift.Types.AttributeValueTarget: AttributeValueTarget' :: Maybe Text -> AttributeValueTarget
+ Amazonka.Redshift.Types.AttributeValueTarget: [$sel:attributeValue:AttributeValueTarget'] :: AttributeValueTarget -> Maybe Text
+ Amazonka.Redshift.Types.AttributeValueTarget: attributeValueTarget_attributeValue :: Lens' AttributeValueTarget (Maybe Text)
+ Amazonka.Redshift.Types.AttributeValueTarget: data AttributeValueTarget
+ Amazonka.Redshift.Types.AttributeValueTarget: instance Amazonka.Data.XML.FromXML Amazonka.Redshift.Types.AttributeValueTarget.AttributeValueTarget
+ Amazonka.Redshift.Types.AttributeValueTarget: instance Control.DeepSeq.NFData Amazonka.Redshift.Types.AttributeValueTarget.AttributeValueTarget
+ Amazonka.Redshift.Types.AttributeValueTarget: instance Data.Hashable.Class.Hashable Amazonka.Redshift.Types.AttributeValueTarget.AttributeValueTarget
+ Amazonka.Redshift.Types.AttributeValueTarget: instance GHC.Classes.Eq Amazonka.Redshift.Types.AttributeValueTarget.AttributeValueTarget
+ Amazonka.Redshift.Types.AttributeValueTarget: instance GHC.Generics.Generic Amazonka.Redshift.Types.AttributeValueTarget.AttributeValueTarget
+ Amazonka.Redshift.Types.AttributeValueTarget: instance GHC.Read.Read Amazonka.Redshift.Types.AttributeValueTarget.AttributeValueTarget
+ Amazonka.Redshift.Types.AttributeValueTarget: instance GHC.Show.Show Amazonka.Redshift.Types.AttributeValueTarget.AttributeValueTarget
+ Amazonka.Redshift.Types.AttributeValueTarget: newAttributeValueTarget :: AttributeValueTarget
+ Amazonka.Redshift.Types.AuthenticationProfile: AuthenticationProfile' :: Maybe Text -> Maybe Text -> AuthenticationProfile
+ Amazonka.Redshift.Types.AuthenticationProfile: [$sel:authenticationProfileContent:AuthenticationProfile'] :: AuthenticationProfile -> Maybe Text
+ Amazonka.Redshift.Types.AuthenticationProfile: [$sel:authenticationProfileName:AuthenticationProfile'] :: AuthenticationProfile -> Maybe Text
+ Amazonka.Redshift.Types.AuthenticationProfile: authenticationProfile_authenticationProfileContent :: Lens' AuthenticationProfile (Maybe Text)
+ Amazonka.Redshift.Types.AuthenticationProfile: authenticationProfile_authenticationProfileName :: Lens' AuthenticationProfile (Maybe Text)
+ Amazonka.Redshift.Types.AuthenticationProfile: data AuthenticationProfile
+ Amazonka.Redshift.Types.AuthenticationProfile: instance Amazonka.Data.XML.FromXML Amazonka.Redshift.Types.AuthenticationProfile.AuthenticationProfile
+ Amazonka.Redshift.Types.AuthenticationProfile: instance Control.DeepSeq.NFData Amazonka.Redshift.Types.AuthenticationProfile.AuthenticationProfile
+ Amazonka.Redshift.Types.AuthenticationProfile: instance Data.Hashable.Class.Hashable Amazonka.Redshift.Types.AuthenticationProfile.AuthenticationProfile
+ Amazonka.Redshift.Types.AuthenticationProfile: instance GHC.Classes.Eq Amazonka.Redshift.Types.AuthenticationProfile.AuthenticationProfile
+ Amazonka.Redshift.Types.AuthenticationProfile: instance GHC.Generics.Generic Amazonka.Redshift.Types.AuthenticationProfile.AuthenticationProfile
+ Amazonka.Redshift.Types.AuthenticationProfile: instance GHC.Read.Read Amazonka.Redshift.Types.AuthenticationProfile.AuthenticationProfile
+ Amazonka.Redshift.Types.AuthenticationProfile: instance GHC.Show.Show Amazonka.Redshift.Types.AuthenticationProfile.AuthenticationProfile
+ Amazonka.Redshift.Types.AuthenticationProfile: newAuthenticationProfile :: AuthenticationProfile
+ Amazonka.Redshift.Types.AuthorizationStatus: AuthorizationStatus' :: Text -> AuthorizationStatus
+ Amazonka.Redshift.Types.AuthorizationStatus: [fromAuthorizationStatus] :: AuthorizationStatus -> Text
+ Amazonka.Redshift.Types.AuthorizationStatus: instance Amazonka.Data.ByteString.ToByteString Amazonka.Redshift.Types.AuthorizationStatus.AuthorizationStatus
+ Amazonka.Redshift.Types.AuthorizationStatus: instance Amazonka.Data.Headers.ToHeader Amazonka.Redshift.Types.AuthorizationStatus.AuthorizationStatus
+ Amazonka.Redshift.Types.AuthorizationStatus: instance Amazonka.Data.Log.ToLog Amazonka.Redshift.Types.AuthorizationStatus.AuthorizationStatus
+ Amazonka.Redshift.Types.AuthorizationStatus: instance Amazonka.Data.Query.ToQuery Amazonka.Redshift.Types.AuthorizationStatus.AuthorizationStatus
+ Amazonka.Redshift.Types.AuthorizationStatus: instance Amazonka.Data.Text.FromText Amazonka.Redshift.Types.AuthorizationStatus.AuthorizationStatus
+ Amazonka.Redshift.Types.AuthorizationStatus: instance Amazonka.Data.Text.ToText Amazonka.Redshift.Types.AuthorizationStatus.AuthorizationStatus
+ Amazonka.Redshift.Types.AuthorizationStatus: instance Amazonka.Data.XML.FromXML Amazonka.Redshift.Types.AuthorizationStatus.AuthorizationStatus
+ Amazonka.Redshift.Types.AuthorizationStatus: instance Amazonka.Data.XML.ToXML Amazonka.Redshift.Types.AuthorizationStatus.AuthorizationStatus
+ Amazonka.Redshift.Types.AuthorizationStatus: instance Control.DeepSeq.NFData Amazonka.Redshift.Types.AuthorizationStatus.AuthorizationStatus
+ Amazonka.Redshift.Types.AuthorizationStatus: instance Data.Aeson.Types.FromJSON.FromJSON Amazonka.Redshift.Types.AuthorizationStatus.AuthorizationStatus
+ Amazonka.Redshift.Types.AuthorizationStatus: instance Data.Aeson.Types.FromJSON.FromJSONKey Amazonka.Redshift.Types.AuthorizationStatus.AuthorizationStatus
+ Amazonka.Redshift.Types.AuthorizationStatus: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.Redshift.Types.AuthorizationStatus.AuthorizationStatus
+ Amazonka.Redshift.Types.AuthorizationStatus: instance Data.Aeson.Types.ToJSON.ToJSONKey Amazonka.Redshift.Types.AuthorizationStatus.AuthorizationStatus
+ Amazonka.Redshift.Types.AuthorizationStatus: instance Data.Hashable.Class.Hashable Amazonka.Redshift.Types.AuthorizationStatus.AuthorizationStatus
+ Amazonka.Redshift.Types.AuthorizationStatus: instance GHC.Classes.Eq Amazonka.Redshift.Types.AuthorizationStatus.AuthorizationStatus
+ Amazonka.Redshift.Types.AuthorizationStatus: instance GHC.Classes.Ord Amazonka.Redshift.Types.AuthorizationStatus.AuthorizationStatus
+ Amazonka.Redshift.Types.AuthorizationStatus: instance GHC.Generics.Generic Amazonka.Redshift.Types.AuthorizationStatus.AuthorizationStatus
+ Amazonka.Redshift.Types.AuthorizationStatus: instance GHC.Read.Read Amazonka.Redshift.Types.AuthorizationStatus.AuthorizationStatus
+ Amazonka.Redshift.Types.AuthorizationStatus: instance GHC.Show.Show Amazonka.Redshift.Types.AuthorizationStatus.AuthorizationStatus
+ Amazonka.Redshift.Types.AuthorizationStatus: newtype AuthorizationStatus
+ Amazonka.Redshift.Types.AuthorizationStatus: pattern AuthorizationStatus_Authorized :: AuthorizationStatus
+ Amazonka.Redshift.Types.AuthorizationStatus: pattern AuthorizationStatus_Revoking :: AuthorizationStatus
+ Amazonka.Redshift.Types.AvailabilityZone: AvailabilityZone' :: Maybe Text -> Maybe [SupportedPlatform] -> AvailabilityZone
+ Amazonka.Redshift.Types.AvailabilityZone: [$sel:name:AvailabilityZone'] :: AvailabilityZone -> Maybe Text
+ Amazonka.Redshift.Types.AvailabilityZone: [$sel:supportedPlatforms:AvailabilityZone'] :: AvailabilityZone -> Maybe [SupportedPlatform]
+ Amazonka.Redshift.Types.AvailabilityZone: availabilityZone_name :: Lens' AvailabilityZone (Maybe Text)
+ Amazonka.Redshift.Types.AvailabilityZone: availabilityZone_supportedPlatforms :: Lens' AvailabilityZone (Maybe [SupportedPlatform])
+ Amazonka.Redshift.Types.AvailabilityZone: data AvailabilityZone
+ Amazonka.Redshift.Types.AvailabilityZone: instance Amazonka.Data.XML.FromXML Amazonka.Redshift.Types.AvailabilityZone.AvailabilityZone
+ Amazonka.Redshift.Types.AvailabilityZone: instance Control.DeepSeq.NFData Amazonka.Redshift.Types.AvailabilityZone.AvailabilityZone
+ Amazonka.Redshift.Types.AvailabilityZone: instance Data.Hashable.Class.Hashable Amazonka.Redshift.Types.AvailabilityZone.AvailabilityZone
+ Amazonka.Redshift.Types.AvailabilityZone: instance GHC.Classes.Eq Amazonka.Redshift.Types.AvailabilityZone.AvailabilityZone
+ Amazonka.Redshift.Types.AvailabilityZone: instance GHC.Generics.Generic Amazonka.Redshift.Types.AvailabilityZone.AvailabilityZone
+ Amazonka.Redshift.Types.AvailabilityZone: instance GHC.Read.Read Amazonka.Redshift.Types.AvailabilityZone.AvailabilityZone
+ Amazonka.Redshift.Types.AvailabilityZone: instance GHC.Show.Show Amazonka.Redshift.Types.AvailabilityZone.AvailabilityZone
+ Amazonka.Redshift.Types.AvailabilityZone: newAvailabilityZone :: AvailabilityZone
+ Amazonka.Redshift.Types.Cluster: Cluster' :: Maybe Bool -> Maybe AquaConfiguration -> Maybe Int -> Maybe Text -> Maybe Text -> Maybe Text -> Maybe ISO8601 -> Maybe Text -> Maybe Text -> Maybe [ClusterNode] -> Maybe [ClusterParameterGroupStatus] -> Maybe Text -> Maybe Text -> Maybe [ClusterSecurityGroupMembership] -> Maybe ClusterSnapshotCopyStatus -> Maybe Text -> Maybe Text -> Maybe Text -> Maybe Text -> Maybe DataTransferProgress -> Maybe Text -> Maybe [DeferredMaintenanceWindow] -> Maybe ElasticIpStatus -> Maybe Text -> Maybe Bool -> Maybe Endpoint -> Maybe Bool -> Maybe ISO8601 -> Maybe Text -> Maybe HsmStatus -> Maybe [ClusterIamRole] -> Maybe Text -> Maybe Text -> Maybe Int -> Maybe Text -> Maybe Text -> Maybe ISO8601 -> Maybe Text -> Maybe Int -> Maybe [Text] -> Maybe PendingModifiedValues -> Maybe Text -> Maybe Bool -> Maybe ReservedNodeExchangeStatus -> Maybe ResizeInfo -> Maybe RestoreStatus -> Maybe Text -> Maybe ScheduleState -> Maybe [Tag] -> Maybe Integer -> Maybe Text -> Maybe [VpcSecurityGroupMembership] -> Cluster
+ Amazonka.Redshift.Types.Cluster: [$sel:allowVersionUpgrade:Cluster'] :: Cluster -> Maybe Bool
+ Amazonka.Redshift.Types.Cluster: [$sel:aquaConfiguration:Cluster'] :: Cluster -> Maybe AquaConfiguration
+ Amazonka.Redshift.Types.Cluster: [$sel:automatedSnapshotRetentionPeriod:Cluster'] :: Cluster -> Maybe Int
+ Amazonka.Redshift.Types.Cluster: [$sel:availabilityZone:Cluster'] :: Cluster -> Maybe Text
+ Amazonka.Redshift.Types.Cluster: [$sel:availabilityZoneRelocationStatus:Cluster'] :: Cluster -> Maybe Text
+ Amazonka.Redshift.Types.Cluster: [$sel:clusterAvailabilityStatus:Cluster'] :: Cluster -> Maybe Text
+ Amazonka.Redshift.Types.Cluster: [$sel:clusterCreateTime:Cluster'] :: Cluster -> Maybe ISO8601
+ Amazonka.Redshift.Types.Cluster: [$sel:clusterIdentifier:Cluster'] :: Cluster -> Maybe Text
+ Amazonka.Redshift.Types.Cluster: [$sel:clusterNamespaceArn:Cluster'] :: Cluster -> Maybe Text
+ Amazonka.Redshift.Types.Cluster: [$sel:clusterNodes:Cluster'] :: Cluster -> Maybe [ClusterNode]
+ Amazonka.Redshift.Types.Cluster: [$sel:clusterParameterGroups:Cluster'] :: Cluster -> Maybe [ClusterParameterGroupStatus]
+ Amazonka.Redshift.Types.Cluster: [$sel:clusterPublicKey:Cluster'] :: Cluster -> Maybe Text
+ Amazonka.Redshift.Types.Cluster: [$sel:clusterRevisionNumber:Cluster'] :: Cluster -> Maybe Text
+ Amazonka.Redshift.Types.Cluster: [$sel:clusterSecurityGroups:Cluster'] :: Cluster -> Maybe [ClusterSecurityGroupMembership]
+ Amazonka.Redshift.Types.Cluster: [$sel:clusterSnapshotCopyStatus:Cluster'] :: Cluster -> Maybe ClusterSnapshotCopyStatus
+ Amazonka.Redshift.Types.Cluster: [$sel:clusterStatus:Cluster'] :: Cluster -> Maybe Text
+ Amazonka.Redshift.Types.Cluster: [$sel:clusterSubnetGroupName:Cluster'] :: Cluster -> Maybe Text
+ Amazonka.Redshift.Types.Cluster: [$sel:clusterVersion:Cluster'] :: Cluster -> Maybe Text
+ Amazonka.Redshift.Types.Cluster: [$sel:dataTransferProgress:Cluster'] :: Cluster -> Maybe DataTransferProgress
+ Amazonka.Redshift.Types.Cluster: [$sel:dbName:Cluster'] :: Cluster -> Maybe Text
+ Amazonka.Redshift.Types.Cluster: [$sel:defaultIamRoleArn:Cluster'] :: Cluster -> Maybe Text
+ Amazonka.Redshift.Types.Cluster: [$sel:deferredMaintenanceWindows:Cluster'] :: Cluster -> Maybe [DeferredMaintenanceWindow]
+ Amazonka.Redshift.Types.Cluster: [$sel:elasticIpStatus:Cluster'] :: Cluster -> Maybe ElasticIpStatus
+ Amazonka.Redshift.Types.Cluster: [$sel:elasticResizeNumberOfNodeOptions:Cluster'] :: Cluster -> Maybe Text
+ Amazonka.Redshift.Types.Cluster: [$sel:encrypted:Cluster'] :: Cluster -> Maybe Bool
+ Amazonka.Redshift.Types.Cluster: [$sel:endpoint:Cluster'] :: Cluster -> Maybe Endpoint
+ Amazonka.Redshift.Types.Cluster: [$sel:enhancedVpcRouting:Cluster'] :: Cluster -> Maybe Bool
+ Amazonka.Redshift.Types.Cluster: [$sel:expectedNextSnapshotScheduleTime:Cluster'] :: Cluster -> Maybe ISO8601
+ Amazonka.Redshift.Types.Cluster: [$sel:expectedNextSnapshotScheduleTimeStatus:Cluster'] :: Cluster -> Maybe Text
+ Amazonka.Redshift.Types.Cluster: [$sel:hsmStatus:Cluster'] :: Cluster -> Maybe HsmStatus
+ Amazonka.Redshift.Types.Cluster: [$sel:iamRoles:Cluster'] :: Cluster -> Maybe [ClusterIamRole]
+ Amazonka.Redshift.Types.Cluster: [$sel:kmsKeyId:Cluster'] :: Cluster -> Maybe Text
+ Amazonka.Redshift.Types.Cluster: [$sel:maintenanceTrackName:Cluster'] :: Cluster -> Maybe Text
+ Amazonka.Redshift.Types.Cluster: [$sel:manualSnapshotRetentionPeriod:Cluster'] :: Cluster -> Maybe Int
+ Amazonka.Redshift.Types.Cluster: [$sel:masterUsername:Cluster'] :: Cluster -> Maybe Text
+ Amazonka.Redshift.Types.Cluster: [$sel:modifyStatus:Cluster'] :: Cluster -> Maybe Text
+ Amazonka.Redshift.Types.Cluster: [$sel:nextMaintenanceWindowStartTime:Cluster'] :: Cluster -> Maybe ISO8601
+ Amazonka.Redshift.Types.Cluster: [$sel:nodeType:Cluster'] :: Cluster -> Maybe Text
+ Amazonka.Redshift.Types.Cluster: [$sel:numberOfNodes:Cluster'] :: Cluster -> Maybe Int
+ Amazonka.Redshift.Types.Cluster: [$sel:pendingActions:Cluster'] :: Cluster -> Maybe [Text]
+ Amazonka.Redshift.Types.Cluster: [$sel:pendingModifiedValues:Cluster'] :: Cluster -> Maybe PendingModifiedValues
+ Amazonka.Redshift.Types.Cluster: [$sel:preferredMaintenanceWindow:Cluster'] :: Cluster -> Maybe Text
+ Amazonka.Redshift.Types.Cluster: [$sel:publiclyAccessible:Cluster'] :: Cluster -> Maybe Bool
+ Amazonka.Redshift.Types.Cluster: [$sel:reservedNodeExchangeStatus:Cluster'] :: Cluster -> Maybe ReservedNodeExchangeStatus
+ Amazonka.Redshift.Types.Cluster: [$sel:resizeInfo:Cluster'] :: Cluster -> Maybe ResizeInfo
+ Amazonka.Redshift.Types.Cluster: [$sel:restoreStatus:Cluster'] :: Cluster -> Maybe RestoreStatus
+ Amazonka.Redshift.Types.Cluster: [$sel:snapshotScheduleIdentifier:Cluster'] :: Cluster -> Maybe Text
+ Amazonka.Redshift.Types.Cluster: [$sel:snapshotScheduleState:Cluster'] :: Cluster -> Maybe ScheduleState
+ Amazonka.Redshift.Types.Cluster: [$sel:tags:Cluster'] :: Cluster -> Maybe [Tag]
+ Amazonka.Redshift.Types.Cluster: [$sel:totalStorageCapacityInMegaBytes:Cluster'] :: Cluster -> Maybe Integer
+ Amazonka.Redshift.Types.Cluster: [$sel:vpcId:Cluster'] :: Cluster -> Maybe Text
+ Amazonka.Redshift.Types.Cluster: [$sel:vpcSecurityGroups:Cluster'] :: Cluster -> Maybe [VpcSecurityGroupMembership]
+ Amazonka.Redshift.Types.Cluster: cluster_allowVersionUpgrade :: Lens' Cluster (Maybe Bool)
+ Amazonka.Redshift.Types.Cluster: cluster_aquaConfiguration :: Lens' Cluster (Maybe AquaConfiguration)
+ Amazonka.Redshift.Types.Cluster: cluster_automatedSnapshotRetentionPeriod :: Lens' Cluster (Maybe Int)
+ Amazonka.Redshift.Types.Cluster: cluster_availabilityZone :: Lens' Cluster (Maybe Text)
+ Amazonka.Redshift.Types.Cluster: cluster_availabilityZoneRelocationStatus :: Lens' Cluster (Maybe Text)
+ Amazonka.Redshift.Types.Cluster: cluster_clusterAvailabilityStatus :: Lens' Cluster (Maybe Text)
+ Amazonka.Redshift.Types.Cluster: cluster_clusterCreateTime :: Lens' Cluster (Maybe UTCTime)
+ Amazonka.Redshift.Types.Cluster: cluster_clusterIdentifier :: Lens' Cluster (Maybe Text)
+ Amazonka.Redshift.Types.Cluster: cluster_clusterNamespaceArn :: Lens' Cluster (Maybe Text)
+ Amazonka.Redshift.Types.Cluster: cluster_clusterNodes :: Lens' Cluster (Maybe [ClusterNode])
+ Amazonka.Redshift.Types.Cluster: cluster_clusterParameterGroups :: Lens' Cluster (Maybe [ClusterParameterGroupStatus])
+ Amazonka.Redshift.Types.Cluster: cluster_clusterPublicKey :: Lens' Cluster (Maybe Text)
+ Amazonka.Redshift.Types.Cluster: cluster_clusterRevisionNumber :: Lens' Cluster (Maybe Text)
+ Amazonka.Redshift.Types.Cluster: cluster_clusterSecurityGroups :: Lens' Cluster (Maybe [ClusterSecurityGroupMembership])
+ Amazonka.Redshift.Types.Cluster: cluster_clusterSnapshotCopyStatus :: Lens' Cluster (Maybe ClusterSnapshotCopyStatus)
+ Amazonka.Redshift.Types.Cluster: cluster_clusterStatus :: Lens' Cluster (Maybe Text)
+ Amazonka.Redshift.Types.Cluster: cluster_clusterSubnetGroupName :: Lens' Cluster (Maybe Text)
+ Amazonka.Redshift.Types.Cluster: cluster_clusterVersion :: Lens' Cluster (Maybe Text)
+ Amazonka.Redshift.Types.Cluster: cluster_dataTransferProgress :: Lens' Cluster (Maybe DataTransferProgress)
+ Amazonka.Redshift.Types.Cluster: cluster_dbName :: Lens' Cluster (Maybe Text)
+ Amazonka.Redshift.Types.Cluster: cluster_defaultIamRoleArn :: Lens' Cluster (Maybe Text)
+ Amazonka.Redshift.Types.Cluster: cluster_deferredMaintenanceWindows :: Lens' Cluster (Maybe [DeferredMaintenanceWindow])
+ Amazonka.Redshift.Types.Cluster: cluster_elasticIpStatus :: Lens' Cluster (Maybe ElasticIpStatus)
+ Amazonka.Redshift.Types.Cluster: cluster_elasticResizeNumberOfNodeOptions :: Lens' Cluster (Maybe Text)
+ Amazonka.Redshift.Types.Cluster: cluster_encrypted :: Lens' Cluster (Maybe Bool)
+ Amazonka.Redshift.Types.Cluster: cluster_endpoint :: Lens' Cluster (Maybe Endpoint)
+ Amazonka.Redshift.Types.Cluster: cluster_enhancedVpcRouting :: Lens' Cluster (Maybe Bool)
+ Amazonka.Redshift.Types.Cluster: cluster_expectedNextSnapshotScheduleTime :: Lens' Cluster (Maybe UTCTime)
+ Amazonka.Redshift.Types.Cluster: cluster_expectedNextSnapshotScheduleTimeStatus :: Lens' Cluster (Maybe Text)
+ Amazonka.Redshift.Types.Cluster: cluster_hsmStatus :: Lens' Cluster (Maybe HsmStatus)
+ Amazonka.Redshift.Types.Cluster: cluster_iamRoles :: Lens' Cluster (Maybe [ClusterIamRole])
+ Amazonka.Redshift.Types.Cluster: cluster_kmsKeyId :: Lens' Cluster (Maybe Text)
+ Amazonka.Redshift.Types.Cluster: cluster_maintenanceTrackName :: Lens' Cluster (Maybe Text)
+ Amazonka.Redshift.Types.Cluster: cluster_manualSnapshotRetentionPeriod :: Lens' Cluster (Maybe Int)
+ Amazonka.Redshift.Types.Cluster: cluster_masterUsername :: Lens' Cluster (Maybe Text)
+ Amazonka.Redshift.Types.Cluster: cluster_modifyStatus :: Lens' Cluster (Maybe Text)
+ Amazonka.Redshift.Types.Cluster: cluster_nextMaintenanceWindowStartTime :: Lens' Cluster (Maybe UTCTime)
+ Amazonka.Redshift.Types.Cluster: cluster_nodeType :: Lens' Cluster (Maybe Text)
+ Amazonka.Redshift.Types.Cluster: cluster_numberOfNodes :: Lens' Cluster (Maybe Int)
+ Amazonka.Redshift.Types.Cluster: cluster_pendingActions :: Lens' Cluster (Maybe [Text])
+ Amazonka.Redshift.Types.Cluster: cluster_pendingModifiedValues :: Lens' Cluster (Maybe PendingModifiedValues)
+ Amazonka.Redshift.Types.Cluster: cluster_preferredMaintenanceWindow :: Lens' Cluster (Maybe Text)
+ Amazonka.Redshift.Types.Cluster: cluster_publiclyAccessible :: Lens' Cluster (Maybe Bool)
+ Amazonka.Redshift.Types.Cluster: cluster_reservedNodeExchangeStatus :: Lens' Cluster (Maybe ReservedNodeExchangeStatus)
+ Amazonka.Redshift.Types.Cluster: cluster_resizeInfo :: Lens' Cluster (Maybe ResizeInfo)
+ Amazonka.Redshift.Types.Cluster: cluster_restoreStatus :: Lens' Cluster (Maybe RestoreStatus)
+ Amazonka.Redshift.Types.Cluster: cluster_snapshotScheduleIdentifier :: Lens' Cluster (Maybe Text)
+ Amazonka.Redshift.Types.Cluster: cluster_snapshotScheduleState :: Lens' Cluster (Maybe ScheduleState)
+ Amazonka.Redshift.Types.Cluster: cluster_tags :: Lens' Cluster (Maybe [Tag])
+ Amazonka.Redshift.Types.Cluster: cluster_totalStorageCapacityInMegaBytes :: Lens' Cluster (Maybe Integer)
+ Amazonka.Redshift.Types.Cluster: cluster_vpcId :: Lens' Cluster (Maybe Text)
+ Amazonka.Redshift.Types.Cluster: cluster_vpcSecurityGroups :: Lens' Cluster (Maybe [VpcSecurityGroupMembership])
+ Amazonka.Redshift.Types.Cluster: data Cluster
+ Amazonka.Redshift.Types.Cluster: instance Amazonka.Data.XML.FromXML Amazonka.Redshift.Types.Cluster.Cluster
+ Amazonka.Redshift.Types.Cluster: instance Control.DeepSeq.NFData Amazonka.Redshift.Types.Cluster.Cluster
+ Amazonka.Redshift.Types.Cluster: instance Data.Hashable.Class.Hashable Amazonka.Redshift.Types.Cluster.Cluster
+ Amazonka.Redshift.Types.Cluster: instance GHC.Classes.Eq Amazonka.Redshift.Types.Cluster.Cluster
+ Amazonka.Redshift.Types.Cluster: instance GHC.Generics.Generic Amazonka.Redshift.Types.Cluster.Cluster
+ Amazonka.Redshift.Types.Cluster: instance GHC.Read.Read Amazonka.Redshift.Types.Cluster.Cluster
+ Amazonka.Redshift.Types.Cluster: instance GHC.Show.Show Amazonka.Redshift.Types.Cluster.Cluster
+ Amazonka.Redshift.Types.Cluster: newCluster :: Cluster
+ Amazonka.Redshift.Types.ClusterAssociatedToSchedule: ClusterAssociatedToSchedule' :: Maybe Text -> Maybe ScheduleState -> ClusterAssociatedToSchedule
+ Amazonka.Redshift.Types.ClusterAssociatedToSchedule: [$sel:clusterIdentifier:ClusterAssociatedToSchedule'] :: ClusterAssociatedToSchedule -> Maybe Text
+ Amazonka.Redshift.Types.ClusterAssociatedToSchedule: [$sel:scheduleAssociationState:ClusterAssociatedToSchedule'] :: ClusterAssociatedToSchedule -> Maybe ScheduleState
+ Amazonka.Redshift.Types.ClusterAssociatedToSchedule: clusterAssociatedToSchedule_clusterIdentifier :: Lens' ClusterAssociatedToSchedule (Maybe Text)
+ Amazonka.Redshift.Types.ClusterAssociatedToSchedule: clusterAssociatedToSchedule_scheduleAssociationState :: Lens' ClusterAssociatedToSchedule (Maybe ScheduleState)
+ Amazonka.Redshift.Types.ClusterAssociatedToSchedule: data ClusterAssociatedToSchedule
+ Amazonka.Redshift.Types.ClusterAssociatedToSchedule: instance Amazonka.Data.XML.FromXML Amazonka.Redshift.Types.ClusterAssociatedToSchedule.ClusterAssociatedToSchedule
+ Amazonka.Redshift.Types.ClusterAssociatedToSchedule: instance Control.DeepSeq.NFData Amazonka.Redshift.Types.ClusterAssociatedToSchedule.ClusterAssociatedToSchedule
+ Amazonka.Redshift.Types.ClusterAssociatedToSchedule: instance Data.Hashable.Class.Hashable Amazonka.Redshift.Types.ClusterAssociatedToSchedule.ClusterAssociatedToSchedule
+ Amazonka.Redshift.Types.ClusterAssociatedToSchedule: instance GHC.Classes.Eq Amazonka.Redshift.Types.ClusterAssociatedToSchedule.ClusterAssociatedToSchedule
+ Amazonka.Redshift.Types.ClusterAssociatedToSchedule: instance GHC.Generics.Generic Amazonka.Redshift.Types.ClusterAssociatedToSchedule.ClusterAssociatedToSchedule
+ Amazonka.Redshift.Types.ClusterAssociatedToSchedule: instance GHC.Read.Read Amazonka.Redshift.Types.ClusterAssociatedToSchedule.ClusterAssociatedToSchedule
+ Amazonka.Redshift.Types.ClusterAssociatedToSchedule: instance GHC.Show.Show Amazonka.Redshift.Types.ClusterAssociatedToSchedule.ClusterAssociatedToSchedule
+ Amazonka.Redshift.Types.ClusterAssociatedToSchedule: newClusterAssociatedToSchedule :: ClusterAssociatedToSchedule
+ Amazonka.Redshift.Types.ClusterDbRevision: ClusterDbRevision' :: Maybe Text -> Maybe Text -> Maybe ISO8601 -> Maybe [RevisionTarget] -> ClusterDbRevision
+ Amazonka.Redshift.Types.ClusterDbRevision: [$sel:clusterIdentifier:ClusterDbRevision'] :: ClusterDbRevision -> Maybe Text
+ Amazonka.Redshift.Types.ClusterDbRevision: [$sel:currentDatabaseRevision:ClusterDbRevision'] :: ClusterDbRevision -> Maybe Text
+ Amazonka.Redshift.Types.ClusterDbRevision: [$sel:databaseRevisionReleaseDate:ClusterDbRevision'] :: ClusterDbRevision -> Maybe ISO8601
+ Amazonka.Redshift.Types.ClusterDbRevision: [$sel:revisionTargets:ClusterDbRevision'] :: ClusterDbRevision -> Maybe [RevisionTarget]
+ Amazonka.Redshift.Types.ClusterDbRevision: clusterDbRevision_clusterIdentifier :: Lens' ClusterDbRevision (Maybe Text)
+ Amazonka.Redshift.Types.ClusterDbRevision: clusterDbRevision_currentDatabaseRevision :: Lens' ClusterDbRevision (Maybe Text)
+ Amazonka.Redshift.Types.ClusterDbRevision: clusterDbRevision_databaseRevisionReleaseDate :: Lens' ClusterDbRevision (Maybe UTCTime)
+ Amazonka.Redshift.Types.ClusterDbRevision: clusterDbRevision_revisionTargets :: Lens' ClusterDbRevision (Maybe [RevisionTarget])
+ Amazonka.Redshift.Types.ClusterDbRevision: data ClusterDbRevision
+ Amazonka.Redshift.Types.ClusterDbRevision: instance Amazonka.Data.XML.FromXML Amazonka.Redshift.Types.ClusterDbRevision.ClusterDbRevision
+ Amazonka.Redshift.Types.ClusterDbRevision: instance Control.DeepSeq.NFData Amazonka.Redshift.Types.ClusterDbRevision.ClusterDbRevision
+ Amazonka.Redshift.Types.ClusterDbRevision: instance Data.Hashable.Class.Hashable Amazonka.Redshift.Types.ClusterDbRevision.ClusterDbRevision
+ Amazonka.Redshift.Types.ClusterDbRevision: instance GHC.Classes.Eq Amazonka.Redshift.Types.ClusterDbRevision.ClusterDbRevision
+ Amazonka.Redshift.Types.ClusterDbRevision: instance GHC.Generics.Generic Amazonka.Redshift.Types.ClusterDbRevision.ClusterDbRevision
+ Amazonka.Redshift.Types.ClusterDbRevision: instance GHC.Read.Read Amazonka.Redshift.Types.ClusterDbRevision.ClusterDbRevision
+ Amazonka.Redshift.Types.ClusterDbRevision: instance GHC.Show.Show Amazonka.Redshift.Types.ClusterDbRevision.ClusterDbRevision
+ Amazonka.Redshift.Types.ClusterDbRevision: newClusterDbRevision :: ClusterDbRevision
+ Amazonka.Redshift.Types.ClusterIamRole: ClusterIamRole' :: Maybe Text -> Maybe Text -> ClusterIamRole
+ Amazonka.Redshift.Types.ClusterIamRole: [$sel:applyStatus:ClusterIamRole'] :: ClusterIamRole -> Maybe Text
+ Amazonka.Redshift.Types.ClusterIamRole: [$sel:iamRoleArn:ClusterIamRole'] :: ClusterIamRole -> Maybe Text
+ Amazonka.Redshift.Types.ClusterIamRole: clusterIamRole_applyStatus :: Lens' ClusterIamRole (Maybe Text)
+ Amazonka.Redshift.Types.ClusterIamRole: clusterIamRole_iamRoleArn :: Lens' ClusterIamRole (Maybe Text)
+ Amazonka.Redshift.Types.ClusterIamRole: data ClusterIamRole
+ Amazonka.Redshift.Types.ClusterIamRole: instance Amazonka.Data.XML.FromXML Amazonka.Redshift.Types.ClusterIamRole.ClusterIamRole
+ Amazonka.Redshift.Types.ClusterIamRole: instance Control.DeepSeq.NFData Amazonka.Redshift.Types.ClusterIamRole.ClusterIamRole
+ Amazonka.Redshift.Types.ClusterIamRole: instance Data.Hashable.Class.Hashable Amazonka.Redshift.Types.ClusterIamRole.ClusterIamRole
+ Amazonka.Redshift.Types.ClusterIamRole: instance GHC.Classes.Eq Amazonka.Redshift.Types.ClusterIamRole.ClusterIamRole
+ Amazonka.Redshift.Types.ClusterIamRole: instance GHC.Generics.Generic Amazonka.Redshift.Types.ClusterIamRole.ClusterIamRole
+ Amazonka.Redshift.Types.ClusterIamRole: instance GHC.Read.Read Amazonka.Redshift.Types.ClusterIamRole.ClusterIamRole
+ Amazonka.Redshift.Types.ClusterIamRole: instance GHC.Show.Show Amazonka.Redshift.Types.ClusterIamRole.ClusterIamRole
+ Amazonka.Redshift.Types.ClusterIamRole: newClusterIamRole :: ClusterIamRole
+ Amazonka.Redshift.Types.ClusterNode: ClusterNode' :: Maybe Text -> Maybe Text -> Maybe Text -> ClusterNode
+ Amazonka.Redshift.Types.ClusterNode: [$sel:nodeRole:ClusterNode'] :: ClusterNode -> Maybe Text
+ Amazonka.Redshift.Types.ClusterNode: [$sel:privateIPAddress:ClusterNode'] :: ClusterNode -> Maybe Text
+ Amazonka.Redshift.Types.ClusterNode: [$sel:publicIPAddress:ClusterNode'] :: ClusterNode -> Maybe Text
+ Amazonka.Redshift.Types.ClusterNode: clusterNode_nodeRole :: Lens' ClusterNode (Maybe Text)
+ Amazonka.Redshift.Types.ClusterNode: clusterNode_privateIPAddress :: Lens' ClusterNode (Maybe Text)
+ Amazonka.Redshift.Types.ClusterNode: clusterNode_publicIPAddress :: Lens' ClusterNode (Maybe Text)
+ Amazonka.Redshift.Types.ClusterNode: data ClusterNode
+ Amazonka.Redshift.Types.ClusterNode: instance Amazonka.Data.XML.FromXML Amazonka.Redshift.Types.ClusterNode.ClusterNode
+ Amazonka.Redshift.Types.ClusterNode: instance Control.DeepSeq.NFData Amazonka.Redshift.Types.ClusterNode.ClusterNode
+ Amazonka.Redshift.Types.ClusterNode: instance Data.Hashable.Class.Hashable Amazonka.Redshift.Types.ClusterNode.ClusterNode
+ Amazonka.Redshift.Types.ClusterNode: instance GHC.Classes.Eq Amazonka.Redshift.Types.ClusterNode.ClusterNode
+ Amazonka.Redshift.Types.ClusterNode: instance GHC.Generics.Generic Amazonka.Redshift.Types.ClusterNode.ClusterNode
+ Amazonka.Redshift.Types.ClusterNode: instance GHC.Read.Read Amazonka.Redshift.Types.ClusterNode.ClusterNode
+ Amazonka.Redshift.Types.ClusterNode: instance GHC.Show.Show Amazonka.Redshift.Types.ClusterNode.ClusterNode
+ Amazonka.Redshift.Types.ClusterNode: newClusterNode :: ClusterNode
+ Amazonka.Redshift.Types.ClusterParameterGroup: ClusterParameterGroup' :: Maybe Text -> Maybe Text -> Maybe Text -> Maybe [Tag] -> ClusterParameterGroup
+ Amazonka.Redshift.Types.ClusterParameterGroup: [$sel:description:ClusterParameterGroup'] :: ClusterParameterGroup -> Maybe Text
+ Amazonka.Redshift.Types.ClusterParameterGroup: [$sel:parameterGroupFamily:ClusterParameterGroup'] :: ClusterParameterGroup -> Maybe Text
+ Amazonka.Redshift.Types.ClusterParameterGroup: [$sel:parameterGroupName:ClusterParameterGroup'] :: ClusterParameterGroup -> Maybe Text
+ Amazonka.Redshift.Types.ClusterParameterGroup: [$sel:tags:ClusterParameterGroup'] :: ClusterParameterGroup -> Maybe [Tag]
+ Amazonka.Redshift.Types.ClusterParameterGroup: clusterParameterGroup_description :: Lens' ClusterParameterGroup (Maybe Text)
+ Amazonka.Redshift.Types.ClusterParameterGroup: clusterParameterGroup_parameterGroupFamily :: Lens' ClusterParameterGroup (Maybe Text)
+ Amazonka.Redshift.Types.ClusterParameterGroup: clusterParameterGroup_parameterGroupName :: Lens' ClusterParameterGroup (Maybe Text)
+ Amazonka.Redshift.Types.ClusterParameterGroup: clusterParameterGroup_tags :: Lens' ClusterParameterGroup (Maybe [Tag])
+ Amazonka.Redshift.Types.ClusterParameterGroup: data ClusterParameterGroup
+ Amazonka.Redshift.Types.ClusterParameterGroup: instance Amazonka.Data.XML.FromXML Amazonka.Redshift.Types.ClusterParameterGroup.ClusterParameterGroup
+ Amazonka.Redshift.Types.ClusterParameterGroup: instance Control.DeepSeq.NFData Amazonka.Redshift.Types.ClusterParameterGroup.ClusterParameterGroup
+ Amazonka.Redshift.Types.ClusterParameterGroup: instance Data.Hashable.Class.Hashable Amazonka.Redshift.Types.ClusterParameterGroup.ClusterParameterGroup
+ Amazonka.Redshift.Types.ClusterParameterGroup: instance GHC.Classes.Eq Amazonka.Redshift.Types.ClusterParameterGroup.ClusterParameterGroup
+ Amazonka.Redshift.Types.ClusterParameterGroup: instance GHC.Generics.Generic Amazonka.Redshift.Types.ClusterParameterGroup.ClusterParameterGroup
+ Amazonka.Redshift.Types.ClusterParameterGroup: instance GHC.Read.Read Amazonka.Redshift.Types.ClusterParameterGroup.ClusterParameterGroup
+ Amazonka.Redshift.Types.ClusterParameterGroup: instance GHC.Show.Show Amazonka.Redshift.Types.ClusterParameterGroup.ClusterParameterGroup
+ Amazonka.Redshift.Types.ClusterParameterGroup: newClusterParameterGroup :: ClusterParameterGroup
+ Amazonka.Redshift.Types.ClusterParameterGroupNameMessage: ClusterParameterGroupNameMessage' :: Maybe Text -> Maybe Text -> ClusterParameterGroupNameMessage
+ Amazonka.Redshift.Types.ClusterParameterGroupNameMessage: [$sel:parameterGroupName:ClusterParameterGroupNameMessage'] :: ClusterParameterGroupNameMessage -> Maybe Text
+ Amazonka.Redshift.Types.ClusterParameterGroupNameMessage: [$sel:parameterGroupStatus:ClusterParameterGroupNameMessage'] :: ClusterParameterGroupNameMessage -> Maybe Text
+ Amazonka.Redshift.Types.ClusterParameterGroupNameMessage: clusterParameterGroupNameMessage_parameterGroupName :: Lens' ClusterParameterGroupNameMessage (Maybe Text)
+ Amazonka.Redshift.Types.ClusterParameterGroupNameMessage: clusterParameterGroupNameMessage_parameterGroupStatus :: Lens' ClusterParameterGroupNameMessage (Maybe Text)
+ Amazonka.Redshift.Types.ClusterParameterGroupNameMessage: data ClusterParameterGroupNameMessage
+ Amazonka.Redshift.Types.ClusterParameterGroupNameMessage: instance Amazonka.Data.XML.FromXML Amazonka.Redshift.Types.ClusterParameterGroupNameMessage.ClusterParameterGroupNameMessage
+ Amazonka.Redshift.Types.ClusterParameterGroupNameMessage: instance Control.DeepSeq.NFData Amazonka.Redshift.Types.ClusterParameterGroupNameMessage.ClusterParameterGroupNameMessage
+ Amazonka.Redshift.Types.ClusterParameterGroupNameMessage: instance Data.Hashable.Class.Hashable Amazonka.Redshift.Types.ClusterParameterGroupNameMessage.ClusterParameterGroupNameMessage
+ Amazonka.Redshift.Types.ClusterParameterGroupNameMessage: instance GHC.Classes.Eq Amazonka.Redshift.Types.ClusterParameterGroupNameMessage.ClusterParameterGroupNameMessage
+ Amazonka.Redshift.Types.ClusterParameterGroupNameMessage: instance GHC.Generics.Generic Amazonka.Redshift.Types.ClusterParameterGroupNameMessage.ClusterParameterGroupNameMessage
+ Amazonka.Redshift.Types.ClusterParameterGroupNameMessage: instance GHC.Read.Read Amazonka.Redshift.Types.ClusterParameterGroupNameMessage.ClusterParameterGroupNameMessage
+ Amazonka.Redshift.Types.ClusterParameterGroupNameMessage: instance GHC.Show.Show Amazonka.Redshift.Types.ClusterParameterGroupNameMessage.ClusterParameterGroupNameMessage
+ Amazonka.Redshift.Types.ClusterParameterGroupNameMessage: newClusterParameterGroupNameMessage :: ClusterParameterGroupNameMessage
+ Amazonka.Redshift.Types.ClusterParameterGroupStatus: ClusterParameterGroupStatus' :: Maybe [ClusterParameterStatus] -> Maybe Text -> Maybe Text -> ClusterParameterGroupStatus
+ Amazonka.Redshift.Types.ClusterParameterGroupStatus: [$sel:clusterParameterStatusList:ClusterParameterGroupStatus'] :: ClusterParameterGroupStatus -> Maybe [ClusterParameterStatus]
+ Amazonka.Redshift.Types.ClusterParameterGroupStatus: [$sel:parameterApplyStatus:ClusterParameterGroupStatus'] :: ClusterParameterGroupStatus -> Maybe Text
+ Amazonka.Redshift.Types.ClusterParameterGroupStatus: [$sel:parameterGroupName:ClusterParameterGroupStatus'] :: ClusterParameterGroupStatus -> Maybe Text
+ Amazonka.Redshift.Types.ClusterParameterGroupStatus: clusterParameterGroupStatus_clusterParameterStatusList :: Lens' ClusterParameterGroupStatus (Maybe [ClusterParameterStatus])
+ Amazonka.Redshift.Types.ClusterParameterGroupStatus: clusterParameterGroupStatus_parameterApplyStatus :: Lens' ClusterParameterGroupStatus (Maybe Text)
+ Amazonka.Redshift.Types.ClusterParameterGroupStatus: clusterParameterGroupStatus_parameterGroupName :: Lens' ClusterParameterGroupStatus (Maybe Text)
+ Amazonka.Redshift.Types.ClusterParameterGroupStatus: data ClusterParameterGroupStatus
+ Amazonka.Redshift.Types.ClusterParameterGroupStatus: instance Amazonka.Data.XML.FromXML Amazonka.Redshift.Types.ClusterParameterGroupStatus.ClusterParameterGroupStatus
+ Amazonka.Redshift.Types.ClusterParameterGroupStatus: instance Control.DeepSeq.NFData Amazonka.Redshift.Types.ClusterParameterGroupStatus.ClusterParameterGroupStatus
+ Amazonka.Redshift.Types.ClusterParameterGroupStatus: instance Data.Hashable.Class.Hashable Amazonka.Redshift.Types.ClusterParameterGroupStatus.ClusterParameterGroupStatus
+ Amazonka.Redshift.Types.ClusterParameterGroupStatus: instance GHC.Classes.Eq Amazonka.Redshift.Types.ClusterParameterGroupStatus.ClusterParameterGroupStatus
+ Amazonka.Redshift.Types.ClusterParameterGroupStatus: instance GHC.Generics.Generic Amazonka.Redshift.Types.ClusterParameterGroupStatus.ClusterParameterGroupStatus
+ Amazonka.Redshift.Types.ClusterParameterGroupStatus: instance GHC.Read.Read Amazonka.Redshift.Types.ClusterParameterGroupStatus.ClusterParameterGroupStatus
+ Amazonka.Redshift.Types.ClusterParameterGroupStatus: instance GHC.Show.Show Amazonka.Redshift.Types.ClusterParameterGroupStatus.ClusterParameterGroupStatus
+ Amazonka.Redshift.Types.ClusterParameterGroupStatus: newClusterParameterGroupStatus :: ClusterParameterGroupStatus
+ Amazonka.Redshift.Types.ClusterParameterStatus: ClusterParameterStatus' :: Maybe Text -> Maybe Text -> Maybe Text -> ClusterParameterStatus
+ Amazonka.Redshift.Types.ClusterParameterStatus: [$sel:parameterApplyErrorDescription:ClusterParameterStatus'] :: ClusterParameterStatus -> Maybe Text
+ Amazonka.Redshift.Types.ClusterParameterStatus: [$sel:parameterApplyStatus:ClusterParameterStatus'] :: ClusterParameterStatus -> Maybe Text
+ Amazonka.Redshift.Types.ClusterParameterStatus: [$sel:parameterName:ClusterParameterStatus'] :: ClusterParameterStatus -> Maybe Text
+ Amazonka.Redshift.Types.ClusterParameterStatus: clusterParameterStatus_parameterApplyErrorDescription :: Lens' ClusterParameterStatus (Maybe Text)
+ Amazonka.Redshift.Types.ClusterParameterStatus: clusterParameterStatus_parameterApplyStatus :: Lens' ClusterParameterStatus (Maybe Text)
+ Amazonka.Redshift.Types.ClusterParameterStatus: clusterParameterStatus_parameterName :: Lens' ClusterParameterStatus (Maybe Text)
+ Amazonka.Redshift.Types.ClusterParameterStatus: data ClusterParameterStatus
+ Amazonka.Redshift.Types.ClusterParameterStatus: instance Amazonka.Data.XML.FromXML Amazonka.Redshift.Types.ClusterParameterStatus.ClusterParameterStatus
+ Amazonka.Redshift.Types.ClusterParameterStatus: instance Control.DeepSeq.NFData Amazonka.Redshift.Types.ClusterParameterStatus.ClusterParameterStatus
+ Amazonka.Redshift.Types.ClusterParameterStatus: instance Data.Hashable.Class.Hashable Amazonka.Redshift.Types.ClusterParameterStatus.ClusterParameterStatus
+ Amazonka.Redshift.Types.ClusterParameterStatus: instance GHC.Classes.Eq Amazonka.Redshift.Types.ClusterParameterStatus.ClusterParameterStatus
+ Amazonka.Redshift.Types.ClusterParameterStatus: instance GHC.Generics.Generic Amazonka.Redshift.Types.ClusterParameterStatus.ClusterParameterStatus
+ Amazonka.Redshift.Types.ClusterParameterStatus: instance GHC.Read.Read Amazonka.Redshift.Types.ClusterParameterStatus.ClusterParameterStatus
+ Amazonka.Redshift.Types.ClusterParameterStatus: instance GHC.Show.Show Amazonka.Redshift.Types.ClusterParameterStatus.ClusterParameterStatus
+ Amazonka.Redshift.Types.ClusterParameterStatus: newClusterParameterStatus :: ClusterParameterStatus
+ Amazonka.Redshift.Types.ClusterSecurityGroup: ClusterSecurityGroup' :: Maybe Text -> Maybe Text -> Maybe [EC2SecurityGroup] -> Maybe [IPRange] -> Maybe [Tag] -> ClusterSecurityGroup
+ Amazonka.Redshift.Types.ClusterSecurityGroup: [$sel:clusterSecurityGroupName:ClusterSecurityGroup'] :: ClusterSecurityGroup -> Maybe Text
+ Amazonka.Redshift.Types.ClusterSecurityGroup: [$sel:description:ClusterSecurityGroup'] :: ClusterSecurityGroup -> Maybe Text
+ Amazonka.Redshift.Types.ClusterSecurityGroup: [$sel:eC2SecurityGroups:ClusterSecurityGroup'] :: ClusterSecurityGroup -> Maybe [EC2SecurityGroup]
+ Amazonka.Redshift.Types.ClusterSecurityGroup: [$sel:iPRanges:ClusterSecurityGroup'] :: ClusterSecurityGroup -> Maybe [IPRange]
+ Amazonka.Redshift.Types.ClusterSecurityGroup: [$sel:tags:ClusterSecurityGroup'] :: ClusterSecurityGroup -> Maybe [Tag]
+ Amazonka.Redshift.Types.ClusterSecurityGroup: clusterSecurityGroup_clusterSecurityGroupName :: Lens' ClusterSecurityGroup (Maybe Text)
+ Amazonka.Redshift.Types.ClusterSecurityGroup: clusterSecurityGroup_description :: Lens' ClusterSecurityGroup (Maybe Text)
+ Amazonka.Redshift.Types.ClusterSecurityGroup: clusterSecurityGroup_eC2SecurityGroups :: Lens' ClusterSecurityGroup (Maybe [EC2SecurityGroup])
+ Amazonka.Redshift.Types.ClusterSecurityGroup: clusterSecurityGroup_iPRanges :: Lens' ClusterSecurityGroup (Maybe [IPRange])
+ Amazonka.Redshift.Types.ClusterSecurityGroup: clusterSecurityGroup_tags :: Lens' ClusterSecurityGroup (Maybe [Tag])
+ Amazonka.Redshift.Types.ClusterSecurityGroup: data ClusterSecurityGroup
+ Amazonka.Redshift.Types.ClusterSecurityGroup: instance Amazonka.Data.XML.FromXML Amazonka.Redshift.Types.ClusterSecurityGroup.ClusterSecurityGroup
+ Amazonka.Redshift.Types.ClusterSecurityGroup: instance Control.DeepSeq.NFData Amazonka.Redshift.Types.ClusterSecurityGroup.ClusterSecurityGroup
+ Amazonka.Redshift.Types.ClusterSecurityGroup: instance Data.Hashable.Class.Hashable Amazonka.Redshift.Types.ClusterSecurityGroup.ClusterSecurityGroup
+ Amazonka.Redshift.Types.ClusterSecurityGroup: instance GHC.Classes.Eq Amazonka.Redshift.Types.ClusterSecurityGroup.ClusterSecurityGroup
+ Amazonka.Redshift.Types.ClusterSecurityGroup: instance GHC.Generics.Generic Amazonka.Redshift.Types.ClusterSecurityGroup.ClusterSecurityGroup
+ Amazonka.Redshift.Types.ClusterSecurityGroup: instance GHC.Read.Read Amazonka.Redshift.Types.ClusterSecurityGroup.ClusterSecurityGroup
+ Amazonka.Redshift.Types.ClusterSecurityGroup: instance GHC.Show.Show Amazonka.Redshift.Types.ClusterSecurityGroup.ClusterSecurityGroup
+ Amazonka.Redshift.Types.ClusterSecurityGroup: newClusterSecurityGroup :: ClusterSecurityGroup
+ Amazonka.Redshift.Types.ClusterSecurityGroupMembership: ClusterSecurityGroupMembership' :: Maybe Text -> Maybe Text -> ClusterSecurityGroupMembership
+ Amazonka.Redshift.Types.ClusterSecurityGroupMembership: [$sel:clusterSecurityGroupName:ClusterSecurityGroupMembership'] :: ClusterSecurityGroupMembership -> Maybe Text
+ Amazonka.Redshift.Types.ClusterSecurityGroupMembership: [$sel:status:ClusterSecurityGroupMembership'] :: ClusterSecurityGroupMembership -> Maybe Text
+ Amazonka.Redshift.Types.ClusterSecurityGroupMembership: clusterSecurityGroupMembership_clusterSecurityGroupName :: Lens' ClusterSecurityGroupMembership (Maybe Text)
+ Amazonka.Redshift.Types.ClusterSecurityGroupMembership: clusterSecurityGroupMembership_status :: Lens' ClusterSecurityGroupMembership (Maybe Text)
+ Amazonka.Redshift.Types.ClusterSecurityGroupMembership: data ClusterSecurityGroupMembership
+ Amazonka.Redshift.Types.ClusterSecurityGroupMembership: instance Amazonka.Data.XML.FromXML Amazonka.Redshift.Types.ClusterSecurityGroupMembership.ClusterSecurityGroupMembership
+ Amazonka.Redshift.Types.ClusterSecurityGroupMembership: instance Control.DeepSeq.NFData Amazonka.Redshift.Types.ClusterSecurityGroupMembership.ClusterSecurityGroupMembership
+ Amazonka.Redshift.Types.ClusterSecurityGroupMembership: instance Data.Hashable.Class.Hashable Amazonka.Redshift.Types.ClusterSecurityGroupMembership.ClusterSecurityGroupMembership
+ Amazonka.Redshift.Types.ClusterSecurityGroupMembership: instance GHC.Classes.Eq Amazonka.Redshift.Types.ClusterSecurityGroupMembership.ClusterSecurityGroupMembership
+ Amazonka.Redshift.Types.ClusterSecurityGroupMembership: instance GHC.Generics.Generic Amazonka.Redshift.Types.ClusterSecurityGroupMembership.ClusterSecurityGroupMembership
+ Amazonka.Redshift.Types.ClusterSecurityGroupMembership: instance GHC.Read.Read Amazonka.Redshift.Types.ClusterSecurityGroupMembership.ClusterSecurityGroupMembership
+ Amazonka.Redshift.Types.ClusterSecurityGroupMembership: instance GHC.Show.Show Amazonka.Redshift.Types.ClusterSecurityGroupMembership.ClusterSecurityGroupMembership
+ Amazonka.Redshift.Types.ClusterSecurityGroupMembership: newClusterSecurityGroupMembership :: ClusterSecurityGroupMembership
+ Amazonka.Redshift.Types.ClusterSnapshotCopyStatus: ClusterSnapshotCopyStatus' :: Maybe Text -> Maybe Int -> Maybe Integer -> Maybe Text -> ClusterSnapshotCopyStatus
+ Amazonka.Redshift.Types.ClusterSnapshotCopyStatus: [$sel:destinationRegion:ClusterSnapshotCopyStatus'] :: ClusterSnapshotCopyStatus -> Maybe Text
+ Amazonka.Redshift.Types.ClusterSnapshotCopyStatus: [$sel:manualSnapshotRetentionPeriod:ClusterSnapshotCopyStatus'] :: ClusterSnapshotCopyStatus -> Maybe Int
+ Amazonka.Redshift.Types.ClusterSnapshotCopyStatus: [$sel:retentionPeriod:ClusterSnapshotCopyStatus'] :: ClusterSnapshotCopyStatus -> Maybe Integer
+ Amazonka.Redshift.Types.ClusterSnapshotCopyStatus: [$sel:snapshotCopyGrantName:ClusterSnapshotCopyStatus'] :: ClusterSnapshotCopyStatus -> Maybe Text
+ Amazonka.Redshift.Types.ClusterSnapshotCopyStatus: clusterSnapshotCopyStatus_destinationRegion :: Lens' ClusterSnapshotCopyStatus (Maybe Text)
+ Amazonka.Redshift.Types.ClusterSnapshotCopyStatus: clusterSnapshotCopyStatus_manualSnapshotRetentionPeriod :: Lens' ClusterSnapshotCopyStatus (Maybe Int)
+ Amazonka.Redshift.Types.ClusterSnapshotCopyStatus: clusterSnapshotCopyStatus_retentionPeriod :: Lens' ClusterSnapshotCopyStatus (Maybe Integer)
+ Amazonka.Redshift.Types.ClusterSnapshotCopyStatus: clusterSnapshotCopyStatus_snapshotCopyGrantName :: Lens' ClusterSnapshotCopyStatus (Maybe Text)
+ Amazonka.Redshift.Types.ClusterSnapshotCopyStatus: data ClusterSnapshotCopyStatus
+ Amazonka.Redshift.Types.ClusterSnapshotCopyStatus: instance Amazonka.Data.XML.FromXML Amazonka.Redshift.Types.ClusterSnapshotCopyStatus.ClusterSnapshotCopyStatus
+ Amazonka.Redshift.Types.ClusterSnapshotCopyStatus: instance Control.DeepSeq.NFData Amazonka.Redshift.Types.ClusterSnapshotCopyStatus.ClusterSnapshotCopyStatus
+ Amazonka.Redshift.Types.ClusterSnapshotCopyStatus: instance Data.Hashable.Class.Hashable Amazonka.Redshift.Types.ClusterSnapshotCopyStatus.ClusterSnapshotCopyStatus
+ Amazonka.Redshift.Types.ClusterSnapshotCopyStatus: instance GHC.Classes.Eq Amazonka.Redshift.Types.ClusterSnapshotCopyStatus.ClusterSnapshotCopyStatus
+ Amazonka.Redshift.Types.ClusterSnapshotCopyStatus: instance GHC.Generics.Generic Amazonka.Redshift.Types.ClusterSnapshotCopyStatus.ClusterSnapshotCopyStatus
+ Amazonka.Redshift.Types.ClusterSnapshotCopyStatus: instance GHC.Read.Read Amazonka.Redshift.Types.ClusterSnapshotCopyStatus.ClusterSnapshotCopyStatus
+ Amazonka.Redshift.Types.ClusterSnapshotCopyStatus: instance GHC.Show.Show Amazonka.Redshift.Types.ClusterSnapshotCopyStatus.ClusterSnapshotCopyStatus
+ Amazonka.Redshift.Types.ClusterSnapshotCopyStatus: newClusterSnapshotCopyStatus :: ClusterSnapshotCopyStatus
+ Amazonka.Redshift.Types.ClusterSubnetGroup: ClusterSubnetGroup' :: Maybe Text -> Maybe Text -> Maybe Text -> Maybe [Subnet] -> Maybe [Tag] -> Maybe Text -> ClusterSubnetGroup
+ Amazonka.Redshift.Types.ClusterSubnetGroup: [$sel:clusterSubnetGroupName:ClusterSubnetGroup'] :: ClusterSubnetGroup -> Maybe Text
+ Amazonka.Redshift.Types.ClusterSubnetGroup: [$sel:description:ClusterSubnetGroup'] :: ClusterSubnetGroup -> Maybe Text
+ Amazonka.Redshift.Types.ClusterSubnetGroup: [$sel:subnetGroupStatus:ClusterSubnetGroup'] :: ClusterSubnetGroup -> Maybe Text
+ Amazonka.Redshift.Types.ClusterSubnetGroup: [$sel:subnets:ClusterSubnetGroup'] :: ClusterSubnetGroup -> Maybe [Subnet]
+ Amazonka.Redshift.Types.ClusterSubnetGroup: [$sel:tags:ClusterSubnetGroup'] :: ClusterSubnetGroup -> Maybe [Tag]
+ Amazonka.Redshift.Types.ClusterSubnetGroup: [$sel:vpcId:ClusterSubnetGroup'] :: ClusterSubnetGroup -> Maybe Text
+ Amazonka.Redshift.Types.ClusterSubnetGroup: clusterSubnetGroup_clusterSubnetGroupName :: Lens' ClusterSubnetGroup (Maybe Text)
+ Amazonka.Redshift.Types.ClusterSubnetGroup: clusterSubnetGroup_description :: Lens' ClusterSubnetGroup (Maybe Text)
+ Amazonka.Redshift.Types.ClusterSubnetGroup: clusterSubnetGroup_subnetGroupStatus :: Lens' ClusterSubnetGroup (Maybe Text)
+ Amazonka.Redshift.Types.ClusterSubnetGroup: clusterSubnetGroup_subnets :: Lens' ClusterSubnetGroup (Maybe [Subnet])
+ Amazonka.Redshift.Types.ClusterSubnetGroup: clusterSubnetGroup_tags :: Lens' ClusterSubnetGroup (Maybe [Tag])
+ Amazonka.Redshift.Types.ClusterSubnetGroup: clusterSubnetGroup_vpcId :: Lens' ClusterSubnetGroup (Maybe Text)
+ Amazonka.Redshift.Types.ClusterSubnetGroup: data ClusterSubnetGroup
+ Amazonka.Redshift.Types.ClusterSubnetGroup: instance Amazonka.Data.XML.FromXML Amazonka.Redshift.Types.ClusterSubnetGroup.ClusterSubnetGroup
+ Amazonka.Redshift.Types.ClusterSubnetGroup: instance Control.DeepSeq.NFData Amazonka.Redshift.Types.ClusterSubnetGroup.ClusterSubnetGroup
+ Amazonka.Redshift.Types.ClusterSubnetGroup: instance Data.Hashable.Class.Hashable Amazonka.Redshift.Types.ClusterSubnetGroup.ClusterSubnetGroup
+ Amazonka.Redshift.Types.ClusterSubnetGroup: instance GHC.Classes.Eq Amazonka.Redshift.Types.ClusterSubnetGroup.ClusterSubnetGroup
+ Amazonka.Redshift.Types.ClusterSubnetGroup: instance GHC.Generics.Generic Amazonka.Redshift.Types.ClusterSubnetGroup.ClusterSubnetGroup
+ Amazonka.Redshift.Types.ClusterSubnetGroup: instance GHC.Read.Read Amazonka.Redshift.Types.ClusterSubnetGroup.ClusterSubnetGroup
+ Amazonka.Redshift.Types.ClusterSubnetGroup: instance GHC.Show.Show Amazonka.Redshift.Types.ClusterSubnetGroup.ClusterSubnetGroup
+ Amazonka.Redshift.Types.ClusterSubnetGroup: newClusterSubnetGroup :: ClusterSubnetGroup
+ Amazonka.Redshift.Types.ClusterVersion: ClusterVersion' :: Maybe Text -> Maybe Text -> Maybe Text -> ClusterVersion
+ Amazonka.Redshift.Types.ClusterVersion: [$sel:clusterParameterGroupFamily:ClusterVersion'] :: ClusterVersion -> Maybe Text
+ Amazonka.Redshift.Types.ClusterVersion: [$sel:clusterVersion:ClusterVersion'] :: ClusterVersion -> Maybe Text
+ Amazonka.Redshift.Types.ClusterVersion: [$sel:description:ClusterVersion'] :: ClusterVersion -> Maybe Text
+ Amazonka.Redshift.Types.ClusterVersion: clusterVersion_clusterParameterGroupFamily :: Lens' ClusterVersion (Maybe Text)
+ Amazonka.Redshift.Types.ClusterVersion: clusterVersion_clusterVersion :: Lens' ClusterVersion (Maybe Text)
+ Amazonka.Redshift.Types.ClusterVersion: clusterVersion_description :: Lens' ClusterVersion (Maybe Text)
+ Amazonka.Redshift.Types.ClusterVersion: data ClusterVersion
+ Amazonka.Redshift.Types.ClusterVersion: instance Amazonka.Data.XML.FromXML Amazonka.Redshift.Types.ClusterVersion.ClusterVersion
+ Amazonka.Redshift.Types.ClusterVersion: instance Control.DeepSeq.NFData Amazonka.Redshift.Types.ClusterVersion.ClusterVersion
+ Amazonka.Redshift.Types.ClusterVersion: instance Data.Hashable.Class.Hashable Amazonka.Redshift.Types.ClusterVersion.ClusterVersion
+ Amazonka.Redshift.Types.ClusterVersion: instance GHC.Classes.Eq Amazonka.Redshift.Types.ClusterVersion.ClusterVersion
+ Amazonka.Redshift.Types.ClusterVersion: instance GHC.Generics.Generic Amazonka.Redshift.Types.ClusterVersion.ClusterVersion
+ Amazonka.Redshift.Types.ClusterVersion: instance GHC.Read.Read Amazonka.Redshift.Types.ClusterVersion.ClusterVersion
+ Amazonka.Redshift.Types.ClusterVersion: instance GHC.Show.Show Amazonka.Redshift.Types.ClusterVersion.ClusterVersion
+ Amazonka.Redshift.Types.ClusterVersion: newClusterVersion :: ClusterVersion
+ Amazonka.Redshift.Types.DataShare: DataShare' :: Maybe Bool -> Maybe Text -> Maybe [DataShareAssociation] -> Maybe Text -> Maybe Text -> DataShare
+ Amazonka.Redshift.Types.DataShare: [$sel:allowPubliclyAccessibleConsumers:DataShare'] :: DataShare -> Maybe Bool
+ Amazonka.Redshift.Types.DataShare: [$sel:dataShareArn:DataShare'] :: DataShare -> Maybe Text
+ Amazonka.Redshift.Types.DataShare: [$sel:dataShareAssociations:DataShare'] :: DataShare -> Maybe [DataShareAssociation]
+ Amazonka.Redshift.Types.DataShare: [$sel:managedBy:DataShare'] :: DataShare -> Maybe Text
+ Amazonka.Redshift.Types.DataShare: [$sel:producerArn:DataShare'] :: DataShare -> Maybe Text
+ Amazonka.Redshift.Types.DataShare: data DataShare
+ Amazonka.Redshift.Types.DataShare: dataShare_allowPubliclyAccessibleConsumers :: Lens' DataShare (Maybe Bool)
+ Amazonka.Redshift.Types.DataShare: dataShare_dataShareArn :: Lens' DataShare (Maybe Text)
+ Amazonka.Redshift.Types.DataShare: dataShare_dataShareAssociations :: Lens' DataShare (Maybe [DataShareAssociation])
+ Amazonka.Redshift.Types.DataShare: dataShare_managedBy :: Lens' DataShare (Maybe Text)
+ Amazonka.Redshift.Types.DataShare: dataShare_producerArn :: Lens' DataShare (Maybe Text)
+ Amazonka.Redshift.Types.DataShare: instance Amazonka.Data.XML.FromXML Amazonka.Redshift.Types.DataShare.DataShare
+ Amazonka.Redshift.Types.DataShare: instance Control.DeepSeq.NFData Amazonka.Redshift.Types.DataShare.DataShare
+ Amazonka.Redshift.Types.DataShare: instance Data.Hashable.Class.Hashable Amazonka.Redshift.Types.DataShare.DataShare
+ Amazonka.Redshift.Types.DataShare: instance GHC.Classes.Eq Amazonka.Redshift.Types.DataShare.DataShare
+ Amazonka.Redshift.Types.DataShare: instance GHC.Generics.Generic Amazonka.Redshift.Types.DataShare.DataShare
+ Amazonka.Redshift.Types.DataShare: instance GHC.Read.Read Amazonka.Redshift.Types.DataShare.DataShare
+ Amazonka.Redshift.Types.DataShare: instance GHC.Show.Show Amazonka.Redshift.Types.DataShare.DataShare
+ Amazonka.Redshift.Types.DataShare: newDataShare :: DataShare
+ Amazonka.Redshift.Types.DataShareAssociation: DataShareAssociation' :: Maybe Text -> Maybe Text -> Maybe ISO8601 -> Maybe DataShareStatus -> Maybe ISO8601 -> DataShareAssociation
+ Amazonka.Redshift.Types.DataShareAssociation: [$sel:consumerIdentifier:DataShareAssociation'] :: DataShareAssociation -> Maybe Text
+ Amazonka.Redshift.Types.DataShareAssociation: [$sel:consumerRegion:DataShareAssociation'] :: DataShareAssociation -> Maybe Text
+ Amazonka.Redshift.Types.DataShareAssociation: [$sel:createdDate:DataShareAssociation'] :: DataShareAssociation -> Maybe ISO8601
+ Amazonka.Redshift.Types.DataShareAssociation: [$sel:status:DataShareAssociation'] :: DataShareAssociation -> Maybe DataShareStatus
+ Amazonka.Redshift.Types.DataShareAssociation: [$sel:statusChangeDate:DataShareAssociation'] :: DataShareAssociation -> Maybe ISO8601
+ Amazonka.Redshift.Types.DataShareAssociation: data DataShareAssociation
+ Amazonka.Redshift.Types.DataShareAssociation: dataShareAssociation_consumerIdentifier :: Lens' DataShareAssociation (Maybe Text)
+ Amazonka.Redshift.Types.DataShareAssociation: dataShareAssociation_consumerRegion :: Lens' DataShareAssociation (Maybe Text)
+ Amazonka.Redshift.Types.DataShareAssociation: dataShareAssociation_createdDate :: Lens' DataShareAssociation (Maybe UTCTime)
+ Amazonka.Redshift.Types.DataShareAssociation: dataShareAssociation_status :: Lens' DataShareAssociation (Maybe DataShareStatus)
+ Amazonka.Redshift.Types.DataShareAssociation: dataShareAssociation_statusChangeDate :: Lens' DataShareAssociation (Maybe UTCTime)
+ Amazonka.Redshift.Types.DataShareAssociation: instance Amazonka.Data.XML.FromXML Amazonka.Redshift.Types.DataShareAssociation.DataShareAssociation
+ Amazonka.Redshift.Types.DataShareAssociation: instance Control.DeepSeq.NFData Amazonka.Redshift.Types.DataShareAssociation.DataShareAssociation
+ Amazonka.Redshift.Types.DataShareAssociation: instance Data.Hashable.Class.Hashable Amazonka.Redshift.Types.DataShareAssociation.DataShareAssociation
+ Amazonka.Redshift.Types.DataShareAssociation: instance GHC.Classes.Eq Amazonka.Redshift.Types.DataShareAssociation.DataShareAssociation
+ Amazonka.Redshift.Types.DataShareAssociation: instance GHC.Generics.Generic Amazonka.Redshift.Types.DataShareAssociation.DataShareAssociation
+ Amazonka.Redshift.Types.DataShareAssociation: instance GHC.Read.Read Amazonka.Redshift.Types.DataShareAssociation.DataShareAssociation
+ Amazonka.Redshift.Types.DataShareAssociation: instance GHC.Show.Show Amazonka.Redshift.Types.DataShareAssociation.DataShareAssociation
+ Amazonka.Redshift.Types.DataShareAssociation: newDataShareAssociation :: DataShareAssociation
+ Amazonka.Redshift.Types.DataShareStatus: DataShareStatus' :: Text -> DataShareStatus
+ Amazonka.Redshift.Types.DataShareStatus: [fromDataShareStatus] :: DataShareStatus -> Text
+ Amazonka.Redshift.Types.DataShareStatus: instance Amazonka.Data.ByteString.ToByteString Amazonka.Redshift.Types.DataShareStatus.DataShareStatus
+ Amazonka.Redshift.Types.DataShareStatus: instance Amazonka.Data.Headers.ToHeader Amazonka.Redshift.Types.DataShareStatus.DataShareStatus
+ Amazonka.Redshift.Types.DataShareStatus: instance Amazonka.Data.Log.ToLog Amazonka.Redshift.Types.DataShareStatus.DataShareStatus
+ Amazonka.Redshift.Types.DataShareStatus: instance Amazonka.Data.Query.ToQuery Amazonka.Redshift.Types.DataShareStatus.DataShareStatus
+ Amazonka.Redshift.Types.DataShareStatus: instance Amazonka.Data.Text.FromText Amazonka.Redshift.Types.DataShareStatus.DataShareStatus
+ Amazonka.Redshift.Types.DataShareStatus: instance Amazonka.Data.Text.ToText Amazonka.Redshift.Types.DataShareStatus.DataShareStatus
+ Amazonka.Redshift.Types.DataShareStatus: instance Amazonka.Data.XML.FromXML Amazonka.Redshift.Types.DataShareStatus.DataShareStatus
+ Amazonka.Redshift.Types.DataShareStatus: instance Amazonka.Data.XML.ToXML Amazonka.Redshift.Types.DataShareStatus.DataShareStatus
+ Amazonka.Redshift.Types.DataShareStatus: instance Control.DeepSeq.NFData Amazonka.Redshift.Types.DataShareStatus.DataShareStatus
+ Amazonka.Redshift.Types.DataShareStatus: instance Data.Aeson.Types.FromJSON.FromJSON Amazonka.Redshift.Types.DataShareStatus.DataShareStatus
+ Amazonka.Redshift.Types.DataShareStatus: instance Data.Aeson.Types.FromJSON.FromJSONKey Amazonka.Redshift.Types.DataShareStatus.DataShareStatus
+ Amazonka.Redshift.Types.DataShareStatus: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.Redshift.Types.DataShareStatus.DataShareStatus
+ Amazonka.Redshift.Types.DataShareStatus: instance Data.Aeson.Types.ToJSON.ToJSONKey Amazonka.Redshift.Types.DataShareStatus.DataShareStatus
+ Amazonka.Redshift.Types.DataShareStatus: instance Data.Hashable.Class.Hashable Amazonka.Redshift.Types.DataShareStatus.DataShareStatus
+ Amazonka.Redshift.Types.DataShareStatus: instance GHC.Classes.Eq Amazonka.Redshift.Types.DataShareStatus.DataShareStatus
+ Amazonka.Redshift.Types.DataShareStatus: instance GHC.Classes.Ord Amazonka.Redshift.Types.DataShareStatus.DataShareStatus
+ Amazonka.Redshift.Types.DataShareStatus: instance GHC.Generics.Generic Amazonka.Redshift.Types.DataShareStatus.DataShareStatus
+ Amazonka.Redshift.Types.DataShareStatus: instance GHC.Read.Read Amazonka.Redshift.Types.DataShareStatus.DataShareStatus
+ Amazonka.Redshift.Types.DataShareStatus: instance GHC.Show.Show Amazonka.Redshift.Types.DataShareStatus.DataShareStatus
+ Amazonka.Redshift.Types.DataShareStatus: newtype DataShareStatus
+ Amazonka.Redshift.Types.DataShareStatus: pattern DataShareStatus_ACTIVE :: DataShareStatus
+ Amazonka.Redshift.Types.DataShareStatus: pattern DataShareStatus_AUTHORIZED :: DataShareStatus
+ Amazonka.Redshift.Types.DataShareStatus: pattern DataShareStatus_AVAILABLE :: DataShareStatus
+ Amazonka.Redshift.Types.DataShareStatus: pattern DataShareStatus_DEAUTHORIZED :: DataShareStatus
+ Amazonka.Redshift.Types.DataShareStatus: pattern DataShareStatus_PENDING_AUTHORIZATION :: DataShareStatus
+ Amazonka.Redshift.Types.DataShareStatus: pattern DataShareStatus_REJECTED :: DataShareStatus
+ Amazonka.Redshift.Types.DataShareStatusForConsumer: DataShareStatusForConsumer' :: Text -> DataShareStatusForConsumer
+ Amazonka.Redshift.Types.DataShareStatusForConsumer: [fromDataShareStatusForConsumer] :: DataShareStatusForConsumer -> Text
+ Amazonka.Redshift.Types.DataShareStatusForConsumer: instance Amazonka.Data.ByteString.ToByteString Amazonka.Redshift.Types.DataShareStatusForConsumer.DataShareStatusForConsumer
+ Amazonka.Redshift.Types.DataShareStatusForConsumer: instance Amazonka.Data.Headers.ToHeader Amazonka.Redshift.Types.DataShareStatusForConsumer.DataShareStatusForConsumer
+ Amazonka.Redshift.Types.DataShareStatusForConsumer: instance Amazonka.Data.Log.ToLog Amazonka.Redshift.Types.DataShareStatusForConsumer.DataShareStatusForConsumer
+ Amazonka.Redshift.Types.DataShareStatusForConsumer: instance Amazonka.Data.Query.ToQuery Amazonka.Redshift.Types.DataShareStatusForConsumer.DataShareStatusForConsumer
+ Amazonka.Redshift.Types.DataShareStatusForConsumer: instance Amazonka.Data.Text.FromText Amazonka.Redshift.Types.DataShareStatusForConsumer.DataShareStatusForConsumer
+ Amazonka.Redshift.Types.DataShareStatusForConsumer: instance Amazonka.Data.Text.ToText Amazonka.Redshift.Types.DataShareStatusForConsumer.DataShareStatusForConsumer
+ Amazonka.Redshift.Types.DataShareStatusForConsumer: instance Amazonka.Data.XML.FromXML Amazonka.Redshift.Types.DataShareStatusForConsumer.DataShareStatusForConsumer
+ Amazonka.Redshift.Types.DataShareStatusForConsumer: instance Amazonka.Data.XML.ToXML Amazonka.Redshift.Types.DataShareStatusForConsumer.DataShareStatusForConsumer
+ Amazonka.Redshift.Types.DataShareStatusForConsumer: instance Control.DeepSeq.NFData Amazonka.Redshift.Types.DataShareStatusForConsumer.DataShareStatusForConsumer
+ Amazonka.Redshift.Types.DataShareStatusForConsumer: instance Data.Aeson.Types.FromJSON.FromJSON Amazonka.Redshift.Types.DataShareStatusForConsumer.DataShareStatusForConsumer
+ Amazonka.Redshift.Types.DataShareStatusForConsumer: instance Data.Aeson.Types.FromJSON.FromJSONKey Amazonka.Redshift.Types.DataShareStatusForConsumer.DataShareStatusForConsumer
+ Amazonka.Redshift.Types.DataShareStatusForConsumer: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.Redshift.Types.DataShareStatusForConsumer.DataShareStatusForConsumer
+ Amazonka.Redshift.Types.DataShareStatusForConsumer: instance Data.Aeson.Types.ToJSON.ToJSONKey Amazonka.Redshift.Types.DataShareStatusForConsumer.DataShareStatusForConsumer
+ Amazonka.Redshift.Types.DataShareStatusForConsumer: instance Data.Hashable.Class.Hashable Amazonka.Redshift.Types.DataShareStatusForConsumer.DataShareStatusForConsumer
+ Amazonka.Redshift.Types.DataShareStatusForConsumer: instance GHC.Classes.Eq Amazonka.Redshift.Types.DataShareStatusForConsumer.DataShareStatusForConsumer
+ Amazonka.Redshift.Types.DataShareStatusForConsumer: instance GHC.Classes.Ord Amazonka.Redshift.Types.DataShareStatusForConsumer.DataShareStatusForConsumer
+ Amazonka.Redshift.Types.DataShareStatusForConsumer: instance GHC.Generics.Generic Amazonka.Redshift.Types.DataShareStatusForConsumer.DataShareStatusForConsumer
+ Amazonka.Redshift.Types.DataShareStatusForConsumer: instance GHC.Read.Read Amazonka.Redshift.Types.DataShareStatusForConsumer.DataShareStatusForConsumer
+ Amazonka.Redshift.Types.DataShareStatusForConsumer: instance GHC.Show.Show Amazonka.Redshift.Types.DataShareStatusForConsumer.DataShareStatusForConsumer
+ Amazonka.Redshift.Types.DataShareStatusForConsumer: newtype DataShareStatusForConsumer
+ Amazonka.Redshift.Types.DataShareStatusForConsumer: pattern DataShareStatusForConsumer_ACTIVE :: DataShareStatusForConsumer
+ Amazonka.Redshift.Types.DataShareStatusForConsumer: pattern DataShareStatusForConsumer_AVAILABLE :: DataShareStatusForConsumer
+ Amazonka.Redshift.Types.DataShareStatusForProducer: DataShareStatusForProducer' :: Text -> DataShareStatusForProducer
+ Amazonka.Redshift.Types.DataShareStatusForProducer: [fromDataShareStatusForProducer] :: DataShareStatusForProducer -> Text
+ Amazonka.Redshift.Types.DataShareStatusForProducer: instance Amazonka.Data.ByteString.ToByteString Amazonka.Redshift.Types.DataShareStatusForProducer.DataShareStatusForProducer
+ Amazonka.Redshift.Types.DataShareStatusForProducer: instance Amazonka.Data.Headers.ToHeader Amazonka.Redshift.Types.DataShareStatusForProducer.DataShareStatusForProducer
+ Amazonka.Redshift.Types.DataShareStatusForProducer: instance Amazonka.Data.Log.ToLog Amazonka.Redshift.Types.DataShareStatusForProducer.DataShareStatusForProducer
+ Amazonka.Redshift.Types.DataShareStatusForProducer: instance Amazonka.Data.Query.ToQuery Amazonka.Redshift.Types.DataShareStatusForProducer.DataShareStatusForProducer
+ Amazonka.Redshift.Types.DataShareStatusForProducer: instance Amazonka.Data.Text.FromText Amazonka.Redshift.Types.DataShareStatusForProducer.DataShareStatusForProducer
+ Amazonka.Redshift.Types.DataShareStatusForProducer: instance Amazonka.Data.Text.ToText Amazonka.Redshift.Types.DataShareStatusForProducer.DataShareStatusForProducer
+ Amazonka.Redshift.Types.DataShareStatusForProducer: instance Amazonka.Data.XML.FromXML Amazonka.Redshift.Types.DataShareStatusForProducer.DataShareStatusForProducer
+ Amazonka.Redshift.Types.DataShareStatusForProducer: instance Amazonka.Data.XML.ToXML Amazonka.Redshift.Types.DataShareStatusForProducer.DataShareStatusForProducer
+ Amazonka.Redshift.Types.DataShareStatusForProducer: instance Control.DeepSeq.NFData Amazonka.Redshift.Types.DataShareStatusForProducer.DataShareStatusForProducer
+ Amazonka.Redshift.Types.DataShareStatusForProducer: instance Data.Aeson.Types.FromJSON.FromJSON Amazonka.Redshift.Types.DataShareStatusForProducer.DataShareStatusForProducer
+ Amazonka.Redshift.Types.DataShareStatusForProducer: instance Data.Aeson.Types.FromJSON.FromJSONKey Amazonka.Redshift.Types.DataShareStatusForProducer.DataShareStatusForProducer
+ Amazonka.Redshift.Types.DataShareStatusForProducer: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.Redshift.Types.DataShareStatusForProducer.DataShareStatusForProducer
+ Amazonka.Redshift.Types.DataShareStatusForProducer: instance Data.Aeson.Types.ToJSON.ToJSONKey Amazonka.Redshift.Types.DataShareStatusForProducer.DataShareStatusForProducer
+ Amazonka.Redshift.Types.DataShareStatusForProducer: instance Data.Hashable.Class.Hashable Amazonka.Redshift.Types.DataShareStatusForProducer.DataShareStatusForProducer
+ Amazonka.Redshift.Types.DataShareStatusForProducer: instance GHC.Classes.Eq Amazonka.Redshift.Types.DataShareStatusForProducer.DataShareStatusForProducer
+ Amazonka.Redshift.Types.DataShareStatusForProducer: instance GHC.Classes.Ord Amazonka.Redshift.Types.DataShareStatusForProducer.DataShareStatusForProducer
+ Amazonka.Redshift.Types.DataShareStatusForProducer: instance GHC.Generics.Generic Amazonka.Redshift.Types.DataShareStatusForProducer.DataShareStatusForProducer
+ Amazonka.Redshift.Types.DataShareStatusForProducer: instance GHC.Read.Read Amazonka.Redshift.Types.DataShareStatusForProducer.DataShareStatusForProducer
+ Amazonka.Redshift.Types.DataShareStatusForProducer: instance GHC.Show.Show Amazonka.Redshift.Types.DataShareStatusForProducer.DataShareStatusForProducer
+ Amazonka.Redshift.Types.DataShareStatusForProducer: newtype DataShareStatusForProducer
+ Amazonka.Redshift.Types.DataShareStatusForProducer: pattern DataShareStatusForProducer_ACTIVE :: DataShareStatusForProducer
+ Amazonka.Redshift.Types.DataShareStatusForProducer: pattern DataShareStatusForProducer_AUTHORIZED :: DataShareStatusForProducer
+ Amazonka.Redshift.Types.DataShareStatusForProducer: pattern DataShareStatusForProducer_DEAUTHORIZED :: DataShareStatusForProducer
+ Amazonka.Redshift.Types.DataShareStatusForProducer: pattern DataShareStatusForProducer_PENDING_AUTHORIZATION :: DataShareStatusForProducer
+ Amazonka.Redshift.Types.DataShareStatusForProducer: pattern DataShareStatusForProducer_REJECTED :: DataShareStatusForProducer
+ Amazonka.Redshift.Types.DataTransferProgress: DataTransferProgress' :: Maybe Double -> Maybe Integer -> Maybe Integer -> Maybe Integer -> Maybe Text -> Maybe Integer -> DataTransferProgress
+ Amazonka.Redshift.Types.DataTransferProgress: [$sel:currentRateInMegaBytesPerSecond:DataTransferProgress'] :: DataTransferProgress -> Maybe Double
+ Amazonka.Redshift.Types.DataTransferProgress: [$sel:dataTransferredInMegaBytes:DataTransferProgress'] :: DataTransferProgress -> Maybe Integer
+ Amazonka.Redshift.Types.DataTransferProgress: [$sel:elapsedTimeInSeconds:DataTransferProgress'] :: DataTransferProgress -> Maybe Integer
+ Amazonka.Redshift.Types.DataTransferProgress: [$sel:estimatedTimeToCompletionInSeconds:DataTransferProgress'] :: DataTransferProgress -> Maybe Integer
+ Amazonka.Redshift.Types.DataTransferProgress: [$sel:status:DataTransferProgress'] :: DataTransferProgress -> Maybe Text
+ Amazonka.Redshift.Types.DataTransferProgress: [$sel:totalDataInMegaBytes:DataTransferProgress'] :: DataTransferProgress -> Maybe Integer
+ Amazonka.Redshift.Types.DataTransferProgress: data DataTransferProgress
+ Amazonka.Redshift.Types.DataTransferProgress: dataTransferProgress_currentRateInMegaBytesPerSecond :: Lens' DataTransferProgress (Maybe Double)
+ Amazonka.Redshift.Types.DataTransferProgress: dataTransferProgress_dataTransferredInMegaBytes :: Lens' DataTransferProgress (Maybe Integer)
+ Amazonka.Redshift.Types.DataTransferProgress: dataTransferProgress_elapsedTimeInSeconds :: Lens' DataTransferProgress (Maybe Integer)
+ Amazonka.Redshift.Types.DataTransferProgress: dataTransferProgress_estimatedTimeToCompletionInSeconds :: Lens' DataTransferProgress (Maybe Integer)
+ Amazonka.Redshift.Types.DataTransferProgress: dataTransferProgress_status :: Lens' DataTransferProgress (Maybe Text)
+ Amazonka.Redshift.Types.DataTransferProgress: dataTransferProgress_totalDataInMegaBytes :: Lens' DataTransferProgress (Maybe Integer)
+ Amazonka.Redshift.Types.DataTransferProgress: instance Amazonka.Data.XML.FromXML Amazonka.Redshift.Types.DataTransferProgress.DataTransferProgress
+ Amazonka.Redshift.Types.DataTransferProgress: instance Control.DeepSeq.NFData Amazonka.Redshift.Types.DataTransferProgress.DataTransferProgress
+ Amazonka.Redshift.Types.DataTransferProgress: instance Data.Hashable.Class.Hashable Amazonka.Redshift.Types.DataTransferProgress.DataTransferProgress
+ Amazonka.Redshift.Types.DataTransferProgress: instance GHC.Classes.Eq Amazonka.Redshift.Types.DataTransferProgress.DataTransferProgress
+ Amazonka.Redshift.Types.DataTransferProgress: instance GHC.Generics.Generic Amazonka.Redshift.Types.DataTransferProgress.DataTransferProgress
+ Amazonka.Redshift.Types.DataTransferProgress: instance GHC.Read.Read Amazonka.Redshift.Types.DataTransferProgress.DataTransferProgress
+ Amazonka.Redshift.Types.DataTransferProgress: instance GHC.Show.Show Amazonka.Redshift.Types.DataTransferProgress.DataTransferProgress
+ Amazonka.Redshift.Types.DataTransferProgress: newDataTransferProgress :: DataTransferProgress
+ Amazonka.Redshift.Types.DefaultClusterParameters: DefaultClusterParameters' :: Maybe Text -> Maybe Text -> Maybe [Parameter] -> DefaultClusterParameters
+ Amazonka.Redshift.Types.DefaultClusterParameters: [$sel:marker:DefaultClusterParameters'] :: DefaultClusterParameters -> Maybe Text
+ Amazonka.Redshift.Types.DefaultClusterParameters: [$sel:parameterGroupFamily:DefaultClusterParameters'] :: DefaultClusterParameters -> Maybe Text
+ Amazonka.Redshift.Types.DefaultClusterParameters: [$sel:parameters:DefaultClusterParameters'] :: DefaultClusterParameters -> Maybe [Parameter]
+ Amazonka.Redshift.Types.DefaultClusterParameters: data DefaultClusterParameters
+ Amazonka.Redshift.Types.DefaultClusterParameters: defaultClusterParameters_marker :: Lens' DefaultClusterParameters (Maybe Text)
+ Amazonka.Redshift.Types.DefaultClusterParameters: defaultClusterParameters_parameterGroupFamily :: Lens' DefaultClusterParameters (Maybe Text)
+ Amazonka.Redshift.Types.DefaultClusterParameters: defaultClusterParameters_parameters :: Lens' DefaultClusterParameters (Maybe [Parameter])
+ Amazonka.Redshift.Types.DefaultClusterParameters: instance Amazonka.Data.XML.FromXML Amazonka.Redshift.Types.DefaultClusterParameters.DefaultClusterParameters
+ Amazonka.Redshift.Types.DefaultClusterParameters: instance Control.DeepSeq.NFData Amazonka.Redshift.Types.DefaultClusterParameters.DefaultClusterParameters
+ Amazonka.Redshift.Types.DefaultClusterParameters: instance Data.Hashable.Class.Hashable Amazonka.Redshift.Types.DefaultClusterParameters.DefaultClusterParameters
+ Amazonka.Redshift.Types.DefaultClusterParameters: instance GHC.Classes.Eq Amazonka.Redshift.Types.DefaultClusterParameters.DefaultClusterParameters
+ Amazonka.Redshift.Types.DefaultClusterParameters: instance GHC.Generics.Generic Amazonka.Redshift.Types.DefaultClusterParameters.DefaultClusterParameters
+ Amazonka.Redshift.Types.DefaultClusterParameters: instance GHC.Read.Read Amazonka.Redshift.Types.DefaultClusterParameters.DefaultClusterParameters
+ Amazonka.Redshift.Types.DefaultClusterParameters: instance GHC.Show.Show Amazonka.Redshift.Types.DefaultClusterParameters.DefaultClusterParameters
+ Amazonka.Redshift.Types.DefaultClusterParameters: newDefaultClusterParameters :: DefaultClusterParameters
+ Amazonka.Redshift.Types.DeferredMaintenanceWindow: DeferredMaintenanceWindow' :: Maybe ISO8601 -> Maybe Text -> Maybe ISO8601 -> DeferredMaintenanceWindow
+ Amazonka.Redshift.Types.DeferredMaintenanceWindow: [$sel:deferMaintenanceEndTime:DeferredMaintenanceWindow'] :: DeferredMaintenanceWindow -> Maybe ISO8601
+ Amazonka.Redshift.Types.DeferredMaintenanceWindow: [$sel:deferMaintenanceIdentifier:DeferredMaintenanceWindow'] :: DeferredMaintenanceWindow -> Maybe Text
+ Amazonka.Redshift.Types.DeferredMaintenanceWindow: [$sel:deferMaintenanceStartTime:DeferredMaintenanceWindow'] :: DeferredMaintenanceWindow -> Maybe ISO8601
+ Amazonka.Redshift.Types.DeferredMaintenanceWindow: data DeferredMaintenanceWindow
+ Amazonka.Redshift.Types.DeferredMaintenanceWindow: deferredMaintenanceWindow_deferMaintenanceEndTime :: Lens' DeferredMaintenanceWindow (Maybe UTCTime)
+ Amazonka.Redshift.Types.DeferredMaintenanceWindow: deferredMaintenanceWindow_deferMaintenanceIdentifier :: Lens' DeferredMaintenanceWindow (Maybe Text)
+ Amazonka.Redshift.Types.DeferredMaintenanceWindow: deferredMaintenanceWindow_deferMaintenanceStartTime :: Lens' DeferredMaintenanceWindow (Maybe UTCTime)
+ Amazonka.Redshift.Types.DeferredMaintenanceWindow: instance Amazonka.Data.XML.FromXML Amazonka.Redshift.Types.DeferredMaintenanceWindow.DeferredMaintenanceWindow
+ Amazonka.Redshift.Types.DeferredMaintenanceWindow: instance Control.DeepSeq.NFData Amazonka.Redshift.Types.DeferredMaintenanceWindow.DeferredMaintenanceWindow
+ Amazonka.Redshift.Types.DeferredMaintenanceWindow: instance Data.Hashable.Class.Hashable Amazonka.Redshift.Types.DeferredMaintenanceWindow.DeferredMaintenanceWindow
+ Amazonka.Redshift.Types.DeferredMaintenanceWindow: instance GHC.Classes.Eq Amazonka.Redshift.Types.DeferredMaintenanceWindow.DeferredMaintenanceWindow
+ Amazonka.Redshift.Types.DeferredMaintenanceWindow: instance GHC.Generics.Generic Amazonka.Redshift.Types.DeferredMaintenanceWindow.DeferredMaintenanceWindow
+ Amazonka.Redshift.Types.DeferredMaintenanceWindow: instance GHC.Read.Read Amazonka.Redshift.Types.DeferredMaintenanceWindow.DeferredMaintenanceWindow
+ Amazonka.Redshift.Types.DeferredMaintenanceWindow: instance GHC.Show.Show Amazonka.Redshift.Types.DeferredMaintenanceWindow.DeferredMaintenanceWindow
+ Amazonka.Redshift.Types.DeferredMaintenanceWindow: newDeferredMaintenanceWindow :: DeferredMaintenanceWindow
+ Amazonka.Redshift.Types.DeleteClusterSnapshotMessage: DeleteClusterSnapshotMessage' :: Maybe Text -> Text -> DeleteClusterSnapshotMessage
+ Amazonka.Redshift.Types.DeleteClusterSnapshotMessage: [$sel:snapshotClusterIdentifier:DeleteClusterSnapshotMessage'] :: DeleteClusterSnapshotMessage -> Maybe Text
+ Amazonka.Redshift.Types.DeleteClusterSnapshotMessage: [$sel:snapshotIdentifier:DeleteClusterSnapshotMessage'] :: DeleteClusterSnapshotMessage -> Text
+ Amazonka.Redshift.Types.DeleteClusterSnapshotMessage: data DeleteClusterSnapshotMessage
+ Amazonka.Redshift.Types.DeleteClusterSnapshotMessage: deleteClusterSnapshotMessage_snapshotClusterIdentifier :: Lens' DeleteClusterSnapshotMessage (Maybe Text)
+ Amazonka.Redshift.Types.DeleteClusterSnapshotMessage: deleteClusterSnapshotMessage_snapshotIdentifier :: Lens' DeleteClusterSnapshotMessage Text
+ Amazonka.Redshift.Types.DeleteClusterSnapshotMessage: instance Amazonka.Data.Query.ToQuery Amazonka.Redshift.Types.DeleteClusterSnapshotMessage.DeleteClusterSnapshotMessage
+ Amazonka.Redshift.Types.DeleteClusterSnapshotMessage: instance Control.DeepSeq.NFData Amazonka.Redshift.Types.DeleteClusterSnapshotMessage.DeleteClusterSnapshotMessage
+ Amazonka.Redshift.Types.DeleteClusterSnapshotMessage: instance Data.Hashable.Class.Hashable Amazonka.Redshift.Types.DeleteClusterSnapshotMessage.DeleteClusterSnapshotMessage
+ Amazonka.Redshift.Types.DeleteClusterSnapshotMessage: instance GHC.Classes.Eq Amazonka.Redshift.Types.DeleteClusterSnapshotMessage.DeleteClusterSnapshotMessage
+ Amazonka.Redshift.Types.DeleteClusterSnapshotMessage: instance GHC.Generics.Generic Amazonka.Redshift.Types.DeleteClusterSnapshotMessage.DeleteClusterSnapshotMessage
+ Amazonka.Redshift.Types.DeleteClusterSnapshotMessage: instance GHC.Read.Read Amazonka.Redshift.Types.DeleteClusterSnapshotMessage.DeleteClusterSnapshotMessage
+ Amazonka.Redshift.Types.DeleteClusterSnapshotMessage: instance GHC.Show.Show Amazonka.Redshift.Types.DeleteClusterSnapshotMessage.DeleteClusterSnapshotMessage
+ Amazonka.Redshift.Types.DeleteClusterSnapshotMessage: newDeleteClusterSnapshotMessage :: Text -> DeleteClusterSnapshotMessage
+ Amazonka.Redshift.Types.EC2SecurityGroup: EC2SecurityGroup' :: Maybe Text -> Maybe Text -> Maybe Text -> Maybe [Tag] -> EC2SecurityGroup
+ Amazonka.Redshift.Types.EC2SecurityGroup: [$sel:eC2SecurityGroupName:EC2SecurityGroup'] :: EC2SecurityGroup -> Maybe Text
+ Amazonka.Redshift.Types.EC2SecurityGroup: [$sel:eC2SecurityGroupOwnerId:EC2SecurityGroup'] :: EC2SecurityGroup -> Maybe Text
+ Amazonka.Redshift.Types.EC2SecurityGroup: [$sel:status:EC2SecurityGroup'] :: EC2SecurityGroup -> Maybe Text
+ Amazonka.Redshift.Types.EC2SecurityGroup: [$sel:tags:EC2SecurityGroup'] :: EC2SecurityGroup -> Maybe [Tag]
+ Amazonka.Redshift.Types.EC2SecurityGroup: data EC2SecurityGroup
+ Amazonka.Redshift.Types.EC2SecurityGroup: eC2SecurityGroup_eC2SecurityGroupName :: Lens' EC2SecurityGroup (Maybe Text)
+ Amazonka.Redshift.Types.EC2SecurityGroup: eC2SecurityGroup_eC2SecurityGroupOwnerId :: Lens' EC2SecurityGroup (Maybe Text)
+ Amazonka.Redshift.Types.EC2SecurityGroup: eC2SecurityGroup_status :: Lens' EC2SecurityGroup (Maybe Text)
+ Amazonka.Redshift.Types.EC2SecurityGroup: eC2SecurityGroup_tags :: Lens' EC2SecurityGroup (Maybe [Tag])
+ Amazonka.Redshift.Types.EC2SecurityGroup: instance Amazonka.Data.XML.FromXML Amazonka.Redshift.Types.EC2SecurityGroup.EC2SecurityGroup
+ Amazonka.Redshift.Types.EC2SecurityGroup: instance Control.DeepSeq.NFData Amazonka.Redshift.Types.EC2SecurityGroup.EC2SecurityGroup
+ Amazonka.Redshift.Types.EC2SecurityGroup: instance Data.Hashable.Class.Hashable Amazonka.Redshift.Types.EC2SecurityGroup.EC2SecurityGroup
+ Amazonka.Redshift.Types.EC2SecurityGroup: instance GHC.Classes.Eq Amazonka.Redshift.Types.EC2SecurityGroup.EC2SecurityGroup
+ Amazonka.Redshift.Types.EC2SecurityGroup: instance GHC.Generics.Generic Amazonka.Redshift.Types.EC2SecurityGroup.EC2SecurityGroup
+ Amazonka.Redshift.Types.EC2SecurityGroup: instance GHC.Read.Read Amazonka.Redshift.Types.EC2SecurityGroup.EC2SecurityGroup
+ Amazonka.Redshift.Types.EC2SecurityGroup: instance GHC.Show.Show Amazonka.Redshift.Types.EC2SecurityGroup.EC2SecurityGroup
+ Amazonka.Redshift.Types.EC2SecurityGroup: newEC2SecurityGroup :: EC2SecurityGroup
+ Amazonka.Redshift.Types.ElasticIpStatus: ElasticIpStatus' :: Maybe Text -> Maybe Text -> ElasticIpStatus
+ Amazonka.Redshift.Types.ElasticIpStatus: [$sel:elasticIp:ElasticIpStatus'] :: ElasticIpStatus -> Maybe Text
+ Amazonka.Redshift.Types.ElasticIpStatus: [$sel:status:ElasticIpStatus'] :: ElasticIpStatus -> Maybe Text
+ Amazonka.Redshift.Types.ElasticIpStatus: data ElasticIpStatus
+ Amazonka.Redshift.Types.ElasticIpStatus: elasticIpStatus_elasticIp :: Lens' ElasticIpStatus (Maybe Text)
+ Amazonka.Redshift.Types.ElasticIpStatus: elasticIpStatus_status :: Lens' ElasticIpStatus (Maybe Text)
+ Amazonka.Redshift.Types.ElasticIpStatus: instance Amazonka.Data.XML.FromXML Amazonka.Redshift.Types.ElasticIpStatus.ElasticIpStatus
+ Amazonka.Redshift.Types.ElasticIpStatus: instance Control.DeepSeq.NFData Amazonka.Redshift.Types.ElasticIpStatus.ElasticIpStatus
+ Amazonka.Redshift.Types.ElasticIpStatus: instance Data.Hashable.Class.Hashable Amazonka.Redshift.Types.ElasticIpStatus.ElasticIpStatus
+ Amazonka.Redshift.Types.ElasticIpStatus: instance GHC.Classes.Eq Amazonka.Redshift.Types.ElasticIpStatus.ElasticIpStatus
+ Amazonka.Redshift.Types.ElasticIpStatus: instance GHC.Generics.Generic Amazonka.Redshift.Types.ElasticIpStatus.ElasticIpStatus
+ Amazonka.Redshift.Types.ElasticIpStatus: instance GHC.Read.Read Amazonka.Redshift.Types.ElasticIpStatus.ElasticIpStatus
+ Amazonka.Redshift.Types.ElasticIpStatus: instance GHC.Show.Show Amazonka.Redshift.Types.ElasticIpStatus.ElasticIpStatus
+ Amazonka.Redshift.Types.ElasticIpStatus: newElasticIpStatus :: ElasticIpStatus
+ Amazonka.Redshift.Types.Endpoint: Endpoint' :: Maybe Text -> Maybe Int -> Maybe [VpcEndpoint] -> Endpoint
+ Amazonka.Redshift.Types.Endpoint: [$sel:address:Endpoint'] :: Endpoint -> Maybe Text
+ Amazonka.Redshift.Types.Endpoint: [$sel:port:Endpoint'] :: Endpoint -> Maybe Int
+ Amazonka.Redshift.Types.Endpoint: [$sel:vpcEndpoints:Endpoint'] :: Endpoint -> Maybe [VpcEndpoint]
+ Amazonka.Redshift.Types.Endpoint: data Endpoint
+ Amazonka.Redshift.Types.Endpoint: endpoint_address :: Lens' Endpoint (Maybe Text)
+ Amazonka.Redshift.Types.Endpoint: endpoint_port :: Lens' Endpoint (Maybe Int)
+ Amazonka.Redshift.Types.Endpoint: endpoint_vpcEndpoints :: Lens' Endpoint (Maybe [VpcEndpoint])
+ Amazonka.Redshift.Types.Endpoint: instance Amazonka.Data.XML.FromXML Amazonka.Redshift.Types.Endpoint.Endpoint
+ Amazonka.Redshift.Types.Endpoint: instance Control.DeepSeq.NFData Amazonka.Redshift.Types.Endpoint.Endpoint
+ Amazonka.Redshift.Types.Endpoint: instance Data.Hashable.Class.Hashable Amazonka.Redshift.Types.Endpoint.Endpoint
+ Amazonka.Redshift.Types.Endpoint: instance GHC.Classes.Eq Amazonka.Redshift.Types.Endpoint.Endpoint
+ Amazonka.Redshift.Types.Endpoint: instance GHC.Generics.Generic Amazonka.Redshift.Types.Endpoint.Endpoint
+ Amazonka.Redshift.Types.Endpoint: instance GHC.Read.Read Amazonka.Redshift.Types.Endpoint.Endpoint
+ Amazonka.Redshift.Types.Endpoint: instance GHC.Show.Show Amazonka.Redshift.Types.Endpoint.Endpoint
+ Amazonka.Redshift.Types.Endpoint: newEndpoint :: Endpoint
+ Amazonka.Redshift.Types.EndpointAccess: EndpointAccess' :: Maybe Text -> Maybe Text -> Maybe ISO8601 -> Maybe Text -> Maybe Text -> Maybe Int -> Maybe Text -> Maybe Text -> Maybe VpcEndpoint -> Maybe [VpcSecurityGroupMembership] -> EndpointAccess
+ Amazonka.Redshift.Types.EndpointAccess: [$sel:address:EndpointAccess'] :: EndpointAccess -> Maybe Text
+ Amazonka.Redshift.Types.EndpointAccess: [$sel:clusterIdentifier:EndpointAccess'] :: EndpointAccess -> Maybe Text
+ Amazonka.Redshift.Types.EndpointAccess: [$sel:endpointCreateTime:EndpointAccess'] :: EndpointAccess -> Maybe ISO8601
+ Amazonka.Redshift.Types.EndpointAccess: [$sel:endpointName:EndpointAccess'] :: EndpointAccess -> Maybe Text
+ Amazonka.Redshift.Types.EndpointAccess: [$sel:endpointStatus:EndpointAccess'] :: EndpointAccess -> Maybe Text
+ Amazonka.Redshift.Types.EndpointAccess: [$sel:port:EndpointAccess'] :: EndpointAccess -> Maybe Int
+ Amazonka.Redshift.Types.EndpointAccess: [$sel:resourceOwner:EndpointAccess'] :: EndpointAccess -> Maybe Text
+ Amazonka.Redshift.Types.EndpointAccess: [$sel:subnetGroupName:EndpointAccess'] :: EndpointAccess -> Maybe Text
+ Amazonka.Redshift.Types.EndpointAccess: [$sel:vpcEndpoint:EndpointAccess'] :: EndpointAccess -> Maybe VpcEndpoint
+ Amazonka.Redshift.Types.EndpointAccess: [$sel:vpcSecurityGroups:EndpointAccess'] :: EndpointAccess -> Maybe [VpcSecurityGroupMembership]
+ Amazonka.Redshift.Types.EndpointAccess: data EndpointAccess
+ Amazonka.Redshift.Types.EndpointAccess: endpointAccess_address :: Lens' EndpointAccess (Maybe Text)
+ Amazonka.Redshift.Types.EndpointAccess: endpointAccess_clusterIdentifier :: Lens' EndpointAccess (Maybe Text)
+ Amazonka.Redshift.Types.EndpointAccess: endpointAccess_endpointCreateTime :: Lens' EndpointAccess (Maybe UTCTime)
+ Amazonka.Redshift.Types.EndpointAccess: endpointAccess_endpointName :: Lens' EndpointAccess (Maybe Text)
+ Amazonka.Redshift.Types.EndpointAccess: endpointAccess_endpointStatus :: Lens' EndpointAccess (Maybe Text)
+ Amazonka.Redshift.Types.EndpointAccess: endpointAccess_port :: Lens' EndpointAccess (Maybe Int)
+ Amazonka.Redshift.Types.EndpointAccess: endpointAccess_resourceOwner :: Lens' EndpointAccess (Maybe Text)
+ Amazonka.Redshift.Types.EndpointAccess: endpointAccess_subnetGroupName :: Lens' EndpointAccess (Maybe Text)
+ Amazonka.Redshift.Types.EndpointAccess: endpointAccess_vpcEndpoint :: Lens' EndpointAccess (Maybe VpcEndpoint)
+ Amazonka.Redshift.Types.EndpointAccess: endpointAccess_vpcSecurityGroups :: Lens' EndpointAccess (Maybe [VpcSecurityGroupMembership])
+ Amazonka.Redshift.Types.EndpointAccess: instance Amazonka.Data.XML.FromXML Amazonka.Redshift.Types.EndpointAccess.EndpointAccess
+ Amazonka.Redshift.Types.EndpointAccess: instance Control.DeepSeq.NFData Amazonka.Redshift.Types.EndpointAccess.EndpointAccess
+ Amazonka.Redshift.Types.EndpointAccess: instance Data.Hashable.Class.Hashable Amazonka.Redshift.Types.EndpointAccess.EndpointAccess
+ Amazonka.Redshift.Types.EndpointAccess: instance GHC.Classes.Eq Amazonka.Redshift.Types.EndpointAccess.EndpointAccess
+ Amazonka.Redshift.Types.EndpointAccess: instance GHC.Generics.Generic Amazonka.Redshift.Types.EndpointAccess.EndpointAccess
+ Amazonka.Redshift.Types.EndpointAccess: instance GHC.Read.Read Amazonka.Redshift.Types.EndpointAccess.EndpointAccess
+ Amazonka.Redshift.Types.EndpointAccess: instance GHC.Show.Show Amazonka.Redshift.Types.EndpointAccess.EndpointAccess
+ Amazonka.Redshift.Types.EndpointAccess: newEndpointAccess :: EndpointAccess
+ Amazonka.Redshift.Types.EndpointAuthorization: EndpointAuthorization' :: Maybe Bool -> Maybe [Text] -> Maybe ISO8601 -> Maybe Text -> Maybe Text -> Maybe Int -> Maybe Text -> Maybe Text -> Maybe AuthorizationStatus -> EndpointAuthorization
+ Amazonka.Redshift.Types.EndpointAuthorization: [$sel:allowedAllVPCs:EndpointAuthorization'] :: EndpointAuthorization -> Maybe Bool
+ Amazonka.Redshift.Types.EndpointAuthorization: [$sel:allowedVPCs:EndpointAuthorization'] :: EndpointAuthorization -> Maybe [Text]
+ Amazonka.Redshift.Types.EndpointAuthorization: [$sel:authorizeTime:EndpointAuthorization'] :: EndpointAuthorization -> Maybe ISO8601
+ Amazonka.Redshift.Types.EndpointAuthorization: [$sel:clusterIdentifier:EndpointAuthorization'] :: EndpointAuthorization -> Maybe Text
+ Amazonka.Redshift.Types.EndpointAuthorization: [$sel:clusterStatus:EndpointAuthorization'] :: EndpointAuthorization -> Maybe Text
+ Amazonka.Redshift.Types.EndpointAuthorization: [$sel:endpointCount:EndpointAuthorization'] :: EndpointAuthorization -> Maybe Int
+ Amazonka.Redshift.Types.EndpointAuthorization: [$sel:grantee:EndpointAuthorization'] :: EndpointAuthorization -> Maybe Text
+ Amazonka.Redshift.Types.EndpointAuthorization: [$sel:grantor:EndpointAuthorization'] :: EndpointAuthorization -> Maybe Text
+ Amazonka.Redshift.Types.EndpointAuthorization: [$sel:status:EndpointAuthorization'] :: EndpointAuthorization -> Maybe AuthorizationStatus
+ Amazonka.Redshift.Types.EndpointAuthorization: data EndpointAuthorization
+ Amazonka.Redshift.Types.EndpointAuthorization: endpointAuthorization_allowedAllVPCs :: Lens' EndpointAuthorization (Maybe Bool)
+ Amazonka.Redshift.Types.EndpointAuthorization: endpointAuthorization_allowedVPCs :: Lens' EndpointAuthorization (Maybe [Text])
+ Amazonka.Redshift.Types.EndpointAuthorization: endpointAuthorization_authorizeTime :: Lens' EndpointAuthorization (Maybe UTCTime)
+ Amazonka.Redshift.Types.EndpointAuthorization: endpointAuthorization_clusterIdentifier :: Lens' EndpointAuthorization (Maybe Text)
+ Amazonka.Redshift.Types.EndpointAuthorization: endpointAuthorization_clusterStatus :: Lens' EndpointAuthorization (Maybe Text)
+ Amazonka.Redshift.Types.EndpointAuthorization: endpointAuthorization_endpointCount :: Lens' EndpointAuthorization (Maybe Int)
+ Amazonka.Redshift.Types.EndpointAuthorization: endpointAuthorization_grantee :: Lens' EndpointAuthorization (Maybe Text)
+ Amazonka.Redshift.Types.EndpointAuthorization: endpointAuthorization_grantor :: Lens' EndpointAuthorization (Maybe Text)
+ Amazonka.Redshift.Types.EndpointAuthorization: endpointAuthorization_status :: Lens' EndpointAuthorization (Maybe AuthorizationStatus)
+ Amazonka.Redshift.Types.EndpointAuthorization: instance Amazonka.Data.XML.FromXML Amazonka.Redshift.Types.EndpointAuthorization.EndpointAuthorization
+ Amazonka.Redshift.Types.EndpointAuthorization: instance Control.DeepSeq.NFData Amazonka.Redshift.Types.EndpointAuthorization.EndpointAuthorization
+ Amazonka.Redshift.Types.EndpointAuthorization: instance Data.Hashable.Class.Hashable Amazonka.Redshift.Types.EndpointAuthorization.EndpointAuthorization
+ Amazonka.Redshift.Types.EndpointAuthorization: instance GHC.Classes.Eq Amazonka.Redshift.Types.EndpointAuthorization.EndpointAuthorization
+ Amazonka.Redshift.Types.EndpointAuthorization: instance GHC.Generics.Generic Amazonka.Redshift.Types.EndpointAuthorization.EndpointAuthorization
+ Amazonka.Redshift.Types.EndpointAuthorization: instance GHC.Read.Read Amazonka.Redshift.Types.EndpointAuthorization.EndpointAuthorization
+ Amazonka.Redshift.Types.EndpointAuthorization: instance GHC.Show.Show Amazonka.Redshift.Types.EndpointAuthorization.EndpointAuthorization
+ Amazonka.Redshift.Types.EndpointAuthorization: newEndpointAuthorization :: EndpointAuthorization
+ Amazonka.Redshift.Types.Event: Event' :: Maybe ISO8601 -> Maybe [Text] -> Maybe Text -> Maybe Text -> Maybe Text -> Maybe Text -> Maybe SourceType -> Event
+ Amazonka.Redshift.Types.Event: [$sel:date:Event'] :: Event -> Maybe ISO8601
+ Amazonka.Redshift.Types.Event: [$sel:eventCategories:Event'] :: Event -> Maybe [Text]
+ Amazonka.Redshift.Types.Event: [$sel:eventId:Event'] :: Event -> Maybe Text
+ Amazonka.Redshift.Types.Event: [$sel:message:Event'] :: Event -> Maybe Text
+ Amazonka.Redshift.Types.Event: [$sel:severity:Event'] :: Event -> Maybe Text
+ Amazonka.Redshift.Types.Event: [$sel:sourceIdentifier:Event'] :: Event -> Maybe Text
+ Amazonka.Redshift.Types.Event: [$sel:sourceType:Event'] :: Event -> Maybe SourceType
+ Amazonka.Redshift.Types.Event: data Event
+ Amazonka.Redshift.Types.Event: event_date :: Lens' Event (Maybe UTCTime)
+ Amazonka.Redshift.Types.Event: event_eventCategories :: Lens' Event (Maybe [Text])
+ Amazonka.Redshift.Types.Event: event_eventId :: Lens' Event (Maybe Text)
+ Amazonka.Redshift.Types.Event: event_message :: Lens' Event (Maybe Text)
+ Amazonka.Redshift.Types.Event: event_severity :: Lens' Event (Maybe Text)
+ Amazonka.Redshift.Types.Event: event_sourceIdentifier :: Lens' Event (Maybe Text)
+ Amazonka.Redshift.Types.Event: event_sourceType :: Lens' Event (Maybe SourceType)
+ Amazonka.Redshift.Types.Event: instance Amazonka.Data.XML.FromXML Amazonka.Redshift.Types.Event.Event
+ Amazonka.Redshift.Types.Event: instance Control.DeepSeq.NFData Amazonka.Redshift.Types.Event.Event
+ Amazonka.Redshift.Types.Event: instance Data.Hashable.Class.Hashable Amazonka.Redshift.Types.Event.Event
+ Amazonka.Redshift.Types.Event: instance GHC.Classes.Eq Amazonka.Redshift.Types.Event.Event
+ Amazonka.Redshift.Types.Event: instance GHC.Generics.Generic Amazonka.Redshift.Types.Event.Event
+ Amazonka.Redshift.Types.Event: instance GHC.Read.Read Amazonka.Redshift.Types.Event.Event
+ Amazonka.Redshift.Types.Event: instance GHC.Show.Show Amazonka.Redshift.Types.Event.Event
+ Amazonka.Redshift.Types.Event: newEvent :: Event
+ Amazonka.Redshift.Types.EventCategoriesMap: EventCategoriesMap' :: Maybe [EventInfoMap] -> Maybe Text -> EventCategoriesMap
+ Amazonka.Redshift.Types.EventCategoriesMap: [$sel:events:EventCategoriesMap'] :: EventCategoriesMap -> Maybe [EventInfoMap]
+ Amazonka.Redshift.Types.EventCategoriesMap: [$sel:sourceType:EventCategoriesMap'] :: EventCategoriesMap -> Maybe Text
+ Amazonka.Redshift.Types.EventCategoriesMap: data EventCategoriesMap
+ Amazonka.Redshift.Types.EventCategoriesMap: eventCategoriesMap_events :: Lens' EventCategoriesMap (Maybe [EventInfoMap])
+ Amazonka.Redshift.Types.EventCategoriesMap: eventCategoriesMap_sourceType :: Lens' EventCategoriesMap (Maybe Text)
+ Amazonka.Redshift.Types.EventCategoriesMap: instance Amazonka.Data.XML.FromXML Amazonka.Redshift.Types.EventCategoriesMap.EventCategoriesMap
+ Amazonka.Redshift.Types.EventCategoriesMap: instance Control.DeepSeq.NFData Amazonka.Redshift.Types.EventCategoriesMap.EventCategoriesMap
+ Amazonka.Redshift.Types.EventCategoriesMap: instance Data.Hashable.Class.Hashable Amazonka.Redshift.Types.EventCategoriesMap.EventCategoriesMap
+ Amazonka.Redshift.Types.EventCategoriesMap: instance GHC.Classes.Eq Amazonka.Redshift.Types.EventCategoriesMap.EventCategoriesMap
+ Amazonka.Redshift.Types.EventCategoriesMap: instance GHC.Generics.Generic Amazonka.Redshift.Types.EventCategoriesMap.EventCategoriesMap
+ Amazonka.Redshift.Types.EventCategoriesMap: instance GHC.Read.Read Amazonka.Redshift.Types.EventCategoriesMap.EventCategoriesMap
+ Amazonka.Redshift.Types.EventCategoriesMap: instance GHC.Show.Show Amazonka.Redshift.Types.EventCategoriesMap.EventCategoriesMap
+ Amazonka.Redshift.Types.EventCategoriesMap: newEventCategoriesMap :: EventCategoriesMap
+ Amazonka.Redshift.Types.EventInfoMap: EventInfoMap' :: Maybe [Text] -> Maybe Text -> Maybe Text -> Maybe Text -> EventInfoMap
+ Amazonka.Redshift.Types.EventInfoMap: [$sel:eventCategories:EventInfoMap'] :: EventInfoMap -> Maybe [Text]
+ Amazonka.Redshift.Types.EventInfoMap: [$sel:eventDescription:EventInfoMap'] :: EventInfoMap -> Maybe Text
+ Amazonka.Redshift.Types.EventInfoMap: [$sel:eventId:EventInfoMap'] :: EventInfoMap -> Maybe Text
+ Amazonka.Redshift.Types.EventInfoMap: [$sel:severity:EventInfoMap'] :: EventInfoMap -> Maybe Text
+ Amazonka.Redshift.Types.EventInfoMap: data EventInfoMap
+ Amazonka.Redshift.Types.EventInfoMap: eventInfoMap_eventCategories :: Lens' EventInfoMap (Maybe [Text])
+ Amazonka.Redshift.Types.EventInfoMap: eventInfoMap_eventDescription :: Lens' EventInfoMap (Maybe Text)
+ Amazonka.Redshift.Types.EventInfoMap: eventInfoMap_eventId :: Lens' EventInfoMap (Maybe Text)
+ Amazonka.Redshift.Types.EventInfoMap: eventInfoMap_severity :: Lens' EventInfoMap (Maybe Text)
+ Amazonka.Redshift.Types.EventInfoMap: instance Amazonka.Data.XML.FromXML Amazonka.Redshift.Types.EventInfoMap.EventInfoMap
+ Amazonka.Redshift.Types.EventInfoMap: instance Control.DeepSeq.NFData Amazonka.Redshift.Types.EventInfoMap.EventInfoMap
+ Amazonka.Redshift.Types.EventInfoMap: instance Data.Hashable.Class.Hashable Amazonka.Redshift.Types.EventInfoMap.EventInfoMap
+ Amazonka.Redshift.Types.EventInfoMap: instance GHC.Classes.Eq Amazonka.Redshift.Types.EventInfoMap.EventInfoMap
+ Amazonka.Redshift.Types.EventInfoMap: instance GHC.Generics.Generic Amazonka.Redshift.Types.EventInfoMap.EventInfoMap
+ Amazonka.Redshift.Types.EventInfoMap: instance GHC.Read.Read Amazonka.Redshift.Types.EventInfoMap.EventInfoMap
+ Amazonka.Redshift.Types.EventInfoMap: instance GHC.Show.Show Amazonka.Redshift.Types.EventInfoMap.EventInfoMap
+ Amazonka.Redshift.Types.EventInfoMap: newEventInfoMap :: EventInfoMap
+ Amazonka.Redshift.Types.EventSubscription: EventSubscription' :: Maybe Text -> Maybe Text -> Maybe Bool -> Maybe [Text] -> Maybe Text -> Maybe Text -> Maybe [Text] -> Maybe Text -> Maybe Text -> Maybe ISO8601 -> Maybe [Tag] -> EventSubscription
+ Amazonka.Redshift.Types.EventSubscription: [$sel:custSubscriptionId:EventSubscription'] :: EventSubscription -> Maybe Text
+ Amazonka.Redshift.Types.EventSubscription: [$sel:customerAwsId:EventSubscription'] :: EventSubscription -> Maybe Text
+ Amazonka.Redshift.Types.EventSubscription: [$sel:enabled:EventSubscription'] :: EventSubscription -> Maybe Bool
+ Amazonka.Redshift.Types.EventSubscription: [$sel:eventCategoriesList:EventSubscription'] :: EventSubscription -> Maybe [Text]
+ Amazonka.Redshift.Types.EventSubscription: [$sel:severity:EventSubscription'] :: EventSubscription -> Maybe Text
+ Amazonka.Redshift.Types.EventSubscription: [$sel:snsTopicArn:EventSubscription'] :: EventSubscription -> Maybe Text
+ Amazonka.Redshift.Types.EventSubscription: [$sel:sourceIdsList:EventSubscription'] :: EventSubscription -> Maybe [Text]
+ Amazonka.Redshift.Types.EventSubscription: [$sel:sourceType:EventSubscription'] :: EventSubscription -> Maybe Text
+ Amazonka.Redshift.Types.EventSubscription: [$sel:status:EventSubscription'] :: EventSubscription -> Maybe Text
+ Amazonka.Redshift.Types.EventSubscription: [$sel:subscriptionCreationTime:EventSubscription'] :: EventSubscription -> Maybe ISO8601
+ Amazonka.Redshift.Types.EventSubscription: [$sel:tags:EventSubscription'] :: EventSubscription -> Maybe [Tag]
+ Amazonka.Redshift.Types.EventSubscription: data EventSubscription
+ Amazonka.Redshift.Types.EventSubscription: eventSubscription_custSubscriptionId :: Lens' EventSubscription (Maybe Text)
+ Amazonka.Redshift.Types.EventSubscription: eventSubscription_customerAwsId :: Lens' EventSubscription (Maybe Text)
+ Amazonka.Redshift.Types.EventSubscription: eventSubscription_enabled :: Lens' EventSubscription (Maybe Bool)
+ Amazonka.Redshift.Types.EventSubscription: eventSubscription_eventCategoriesList :: Lens' EventSubscription (Maybe [Text])
+ Amazonka.Redshift.Types.EventSubscription: eventSubscription_severity :: Lens' EventSubscription (Maybe Text)
+ Amazonka.Redshift.Types.EventSubscription: eventSubscription_snsTopicArn :: Lens' EventSubscription (Maybe Text)
+ Amazonka.Redshift.Types.EventSubscription: eventSubscription_sourceIdsList :: Lens' EventSubscription (Maybe [Text])
+ Amazonka.Redshift.Types.EventSubscription: eventSubscription_sourceType :: Lens' EventSubscription (Maybe Text)
+ Amazonka.Redshift.Types.EventSubscription: eventSubscription_status :: Lens' EventSubscription (Maybe Text)
+ Amazonka.Redshift.Types.EventSubscription: eventSubscription_subscriptionCreationTime :: Lens' EventSubscription (Maybe UTCTime)
+ Amazonka.Redshift.Types.EventSubscription: eventSubscription_tags :: Lens' EventSubscription (Maybe [Tag])
+ Amazonka.Redshift.Types.EventSubscription: instance Amazonka.Data.XML.FromXML Amazonka.Redshift.Types.EventSubscription.EventSubscription
+ Amazonka.Redshift.Types.EventSubscription: instance Control.DeepSeq.NFData Amazonka.Redshift.Types.EventSubscription.EventSubscription
+ Amazonka.Redshift.Types.EventSubscription: instance Data.Hashable.Class.Hashable Amazonka.Redshift.Types.EventSubscription.EventSubscription
+ Amazonka.Redshift.Types.EventSubscription: instance GHC.Classes.Eq Amazonka.Redshift.Types.EventSubscription.EventSubscription
+ Amazonka.Redshift.Types.EventSubscription: instance GHC.Generics.Generic Amazonka.Redshift.Types.EventSubscription.EventSubscription
+ Amazonka.Redshift.Types.EventSubscription: instance GHC.Read.Read Amazonka.Redshift.Types.EventSubscription.EventSubscription
+ Amazonka.Redshift.Types.EventSubscription: instance GHC.Show.Show Amazonka.Redshift.Types.EventSubscription.EventSubscription
+ Amazonka.Redshift.Types.EventSubscription: newEventSubscription :: EventSubscription
+ Amazonka.Redshift.Types.HsmClientCertificate: HsmClientCertificate' :: Maybe Text -> Maybe Text -> Maybe [Tag] -> HsmClientCertificate
+ Amazonka.Redshift.Types.HsmClientCertificate: [$sel:hsmClientCertificateIdentifier:HsmClientCertificate'] :: HsmClientCertificate -> Maybe Text
+ Amazonka.Redshift.Types.HsmClientCertificate: [$sel:hsmClientCertificatePublicKey:HsmClientCertificate'] :: HsmClientCertificate -> Maybe Text
+ Amazonka.Redshift.Types.HsmClientCertificate: [$sel:tags:HsmClientCertificate'] :: HsmClientCertificate -> Maybe [Tag]
+ Amazonka.Redshift.Types.HsmClientCertificate: data HsmClientCertificate
+ Amazonka.Redshift.Types.HsmClientCertificate: hsmClientCertificate_hsmClientCertificateIdentifier :: Lens' HsmClientCertificate (Maybe Text)
+ Amazonka.Redshift.Types.HsmClientCertificate: hsmClientCertificate_hsmClientCertificatePublicKey :: Lens' HsmClientCertificate (Maybe Text)
+ Amazonka.Redshift.Types.HsmClientCertificate: hsmClientCertificate_tags :: Lens' HsmClientCertificate (Maybe [Tag])
+ Amazonka.Redshift.Types.HsmClientCertificate: instance Amazonka.Data.XML.FromXML Amazonka.Redshift.Types.HsmClientCertificate.HsmClientCertificate
+ Amazonka.Redshift.Types.HsmClientCertificate: instance Control.DeepSeq.NFData Amazonka.Redshift.Types.HsmClientCertificate.HsmClientCertificate
+ Amazonka.Redshift.Types.HsmClientCertificate: instance Data.Hashable.Class.Hashable Amazonka.Redshift.Types.HsmClientCertificate.HsmClientCertificate
+ Amazonka.Redshift.Types.HsmClientCertificate: instance GHC.Classes.Eq Amazonka.Redshift.Types.HsmClientCertificate.HsmClientCertificate
+ Amazonka.Redshift.Types.HsmClientCertificate: instance GHC.Generics.Generic Amazonka.Redshift.Types.HsmClientCertificate.HsmClientCertificate
+ Amazonka.Redshift.Types.HsmClientCertificate: instance GHC.Read.Read Amazonka.Redshift.Types.HsmClientCertificate.HsmClientCertificate
+ Amazonka.Redshift.Types.HsmClientCertificate: instance GHC.Show.Show Amazonka.Redshift.Types.HsmClientCertificate.HsmClientCertificate
+ Amazonka.Redshift.Types.HsmClientCertificate: newHsmClientCertificate :: HsmClientCertificate
+ Amazonka.Redshift.Types.HsmConfiguration: HsmConfiguration' :: Maybe Text -> Maybe Text -> Maybe Text -> Maybe Text -> Maybe [Tag] -> HsmConfiguration
+ Amazonka.Redshift.Types.HsmConfiguration: [$sel:description:HsmConfiguration'] :: HsmConfiguration -> Maybe Text
+ Amazonka.Redshift.Types.HsmConfiguration: [$sel:hsmConfigurationIdentifier:HsmConfiguration'] :: HsmConfiguration -> Maybe Text
+ Amazonka.Redshift.Types.HsmConfiguration: [$sel:hsmIpAddress:HsmConfiguration'] :: HsmConfiguration -> Maybe Text
+ Amazonka.Redshift.Types.HsmConfiguration: [$sel:hsmPartitionName:HsmConfiguration'] :: HsmConfiguration -> Maybe Text
+ Amazonka.Redshift.Types.HsmConfiguration: [$sel:tags:HsmConfiguration'] :: HsmConfiguration -> Maybe [Tag]
+ Amazonka.Redshift.Types.HsmConfiguration: data HsmConfiguration
+ Amazonka.Redshift.Types.HsmConfiguration: hsmConfiguration_description :: Lens' HsmConfiguration (Maybe Text)
+ Amazonka.Redshift.Types.HsmConfiguration: hsmConfiguration_hsmConfigurationIdentifier :: Lens' HsmConfiguration (Maybe Text)
+ Amazonka.Redshift.Types.HsmConfiguration: hsmConfiguration_hsmIpAddress :: Lens' HsmConfiguration (Maybe Text)
+ Amazonka.Redshift.Types.HsmConfiguration: hsmConfiguration_hsmPartitionName :: Lens' HsmConfiguration (Maybe Text)
+ Amazonka.Redshift.Types.HsmConfiguration: hsmConfiguration_tags :: Lens' HsmConfiguration (Maybe [Tag])
+ Amazonka.Redshift.Types.HsmConfiguration: instance Amazonka.Data.XML.FromXML Amazonka.Redshift.Types.HsmConfiguration.HsmConfiguration
+ Amazonka.Redshift.Types.HsmConfiguration: instance Control.DeepSeq.NFData Amazonka.Redshift.Types.HsmConfiguration.HsmConfiguration
+ Amazonka.Redshift.Types.HsmConfiguration: instance Data.Hashable.Class.Hashable Amazonka.Redshift.Types.HsmConfiguration.HsmConfiguration
+ Amazonka.Redshift.Types.HsmConfiguration: instance GHC.Classes.Eq Amazonka.Redshift.Types.HsmConfiguration.HsmConfiguration
+ Amazonka.Redshift.Types.HsmConfiguration: instance GHC.Generics.Generic Amazonka.Redshift.Types.HsmConfiguration.HsmConfiguration
+ Amazonka.Redshift.Types.HsmConfiguration: instance GHC.Read.Read Amazonka.Redshift.Types.HsmConfiguration.HsmConfiguration
+ Amazonka.Redshift.Types.HsmConfiguration: instance GHC.Show.Show Amazonka.Redshift.Types.HsmConfiguration.HsmConfiguration
+ Amazonka.Redshift.Types.HsmConfiguration: newHsmConfiguration :: HsmConfiguration
+ Amazonka.Redshift.Types.HsmStatus: HsmStatus' :: Maybe Text -> Maybe Text -> Maybe Text -> HsmStatus
+ Amazonka.Redshift.Types.HsmStatus: [$sel:hsmClientCertificateIdentifier:HsmStatus'] :: HsmStatus -> Maybe Text
+ Amazonka.Redshift.Types.HsmStatus: [$sel:hsmConfigurationIdentifier:HsmStatus'] :: HsmStatus -> Maybe Text
+ Amazonka.Redshift.Types.HsmStatus: [$sel:status:HsmStatus'] :: HsmStatus -> Maybe Text
+ Amazonka.Redshift.Types.HsmStatus: data HsmStatus
+ Amazonka.Redshift.Types.HsmStatus: hsmStatus_hsmClientCertificateIdentifier :: Lens' HsmStatus (Maybe Text)
+ Amazonka.Redshift.Types.HsmStatus: hsmStatus_hsmConfigurationIdentifier :: Lens' HsmStatus (Maybe Text)
+ Amazonka.Redshift.Types.HsmStatus: hsmStatus_status :: Lens' HsmStatus (Maybe Text)
+ Amazonka.Redshift.Types.HsmStatus: instance Amazonka.Data.XML.FromXML Amazonka.Redshift.Types.HsmStatus.HsmStatus
+ Amazonka.Redshift.Types.HsmStatus: instance Control.DeepSeq.NFData Amazonka.Redshift.Types.HsmStatus.HsmStatus
+ Amazonka.Redshift.Types.HsmStatus: instance Data.Hashable.Class.Hashable Amazonka.Redshift.Types.HsmStatus.HsmStatus
+ Amazonka.Redshift.Types.HsmStatus: instance GHC.Classes.Eq Amazonka.Redshift.Types.HsmStatus.HsmStatus
+ Amazonka.Redshift.Types.HsmStatus: instance GHC.Generics.Generic Amazonka.Redshift.Types.HsmStatus.HsmStatus
+ Amazonka.Redshift.Types.HsmStatus: instance GHC.Read.Read Amazonka.Redshift.Types.HsmStatus.HsmStatus
+ Amazonka.Redshift.Types.HsmStatus: instance GHC.Show.Show Amazonka.Redshift.Types.HsmStatus.HsmStatus
+ Amazonka.Redshift.Types.HsmStatus: newHsmStatus :: HsmStatus
+ Amazonka.Redshift.Types.IPRange: IPRange' :: Maybe Text -> Maybe Text -> Maybe [Tag] -> IPRange
+ Amazonka.Redshift.Types.IPRange: [$sel:cidrip:IPRange'] :: IPRange -> Maybe Text
+ Amazonka.Redshift.Types.IPRange: [$sel:status:IPRange'] :: IPRange -> Maybe Text
+ Amazonka.Redshift.Types.IPRange: [$sel:tags:IPRange'] :: IPRange -> Maybe [Tag]
+ Amazonka.Redshift.Types.IPRange: data IPRange
+ Amazonka.Redshift.Types.IPRange: iPRange_cidrip :: Lens' IPRange (Maybe Text)
+ Amazonka.Redshift.Types.IPRange: iPRange_status :: Lens' IPRange (Maybe Text)
+ Amazonka.Redshift.Types.IPRange: iPRange_tags :: Lens' IPRange (Maybe [Tag])
+ Amazonka.Redshift.Types.IPRange: instance Amazonka.Data.XML.FromXML Amazonka.Redshift.Types.IPRange.IPRange
+ Amazonka.Redshift.Types.IPRange: instance Control.DeepSeq.NFData Amazonka.Redshift.Types.IPRange.IPRange
+ Amazonka.Redshift.Types.IPRange: instance Data.Hashable.Class.Hashable Amazonka.Redshift.Types.IPRange.IPRange
+ Amazonka.Redshift.Types.IPRange: instance GHC.Classes.Eq Amazonka.Redshift.Types.IPRange.IPRange
+ Amazonka.Redshift.Types.IPRange: instance GHC.Generics.Generic Amazonka.Redshift.Types.IPRange.IPRange
+ Amazonka.Redshift.Types.IPRange: instance GHC.Read.Read Amazonka.Redshift.Types.IPRange.IPRange
+ Amazonka.Redshift.Types.IPRange: instance GHC.Show.Show Amazonka.Redshift.Types.IPRange.IPRange
+ Amazonka.Redshift.Types.IPRange: newIPRange :: IPRange
+ Amazonka.Redshift.Types.LogDestinationType: LogDestinationType' :: Text -> LogDestinationType
+ Amazonka.Redshift.Types.LogDestinationType: [fromLogDestinationType] :: LogDestinationType -> Text
+ Amazonka.Redshift.Types.LogDestinationType: instance Amazonka.Data.ByteString.ToByteString Amazonka.Redshift.Types.LogDestinationType.LogDestinationType
+ Amazonka.Redshift.Types.LogDestinationType: instance Amazonka.Data.Headers.ToHeader Amazonka.Redshift.Types.LogDestinationType.LogDestinationType
+ Amazonka.Redshift.Types.LogDestinationType: instance Amazonka.Data.Log.ToLog Amazonka.Redshift.Types.LogDestinationType.LogDestinationType
+ Amazonka.Redshift.Types.LogDestinationType: instance Amazonka.Data.Query.ToQuery Amazonka.Redshift.Types.LogDestinationType.LogDestinationType
+ Amazonka.Redshift.Types.LogDestinationType: instance Amazonka.Data.Text.FromText Amazonka.Redshift.Types.LogDestinationType.LogDestinationType
+ Amazonka.Redshift.Types.LogDestinationType: instance Amazonka.Data.Text.ToText Amazonka.Redshift.Types.LogDestinationType.LogDestinationType
+ Amazonka.Redshift.Types.LogDestinationType: instance Amazonka.Data.XML.FromXML Amazonka.Redshift.Types.LogDestinationType.LogDestinationType
+ Amazonka.Redshift.Types.LogDestinationType: instance Amazonka.Data.XML.ToXML Amazonka.Redshift.Types.LogDestinationType.LogDestinationType
+ Amazonka.Redshift.Types.LogDestinationType: instance Control.DeepSeq.NFData Amazonka.Redshift.Types.LogDestinationType.LogDestinationType
+ Amazonka.Redshift.Types.LogDestinationType: instance Data.Aeson.Types.FromJSON.FromJSON Amazonka.Redshift.Types.LogDestinationType.LogDestinationType
+ Amazonka.Redshift.Types.LogDestinationType: instance Data.Aeson.Types.FromJSON.FromJSONKey Amazonka.Redshift.Types.LogDestinationType.LogDestinationType
+ Amazonka.Redshift.Types.LogDestinationType: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.Redshift.Types.LogDestinationType.LogDestinationType
+ Amazonka.Redshift.Types.LogDestinationType: instance Data.Aeson.Types.ToJSON.ToJSONKey Amazonka.Redshift.Types.LogDestinationType.LogDestinationType
+ Amazonka.Redshift.Types.LogDestinationType: instance Data.Hashable.Class.Hashable Amazonka.Redshift.Types.LogDestinationType.LogDestinationType
+ Amazonka.Redshift.Types.LogDestinationType: instance GHC.Classes.Eq Amazonka.Redshift.Types.LogDestinationType.LogDestinationType
+ Amazonka.Redshift.Types.LogDestinationType: instance GHC.Classes.Ord Amazonka.Redshift.Types.LogDestinationType.LogDestinationType
+ Amazonka.Redshift.Types.LogDestinationType: instance GHC.Generics.Generic Amazonka.Redshift.Types.LogDestinationType.LogDestinationType
+ Amazonka.Redshift.Types.LogDestinationType: instance GHC.Read.Read Amazonka.Redshift.Types.LogDestinationType.LogDestinationType
+ Amazonka.Redshift.Types.LogDestinationType: instance GHC.Show.Show Amazonka.Redshift.Types.LogDestinationType.LogDestinationType
+ Amazonka.Redshift.Types.LogDestinationType: newtype LogDestinationType
+ Amazonka.Redshift.Types.LogDestinationType: pattern LogDestinationType_Cloudwatch :: LogDestinationType
+ Amazonka.Redshift.Types.LogDestinationType: pattern LogDestinationType_S3 :: LogDestinationType
+ Amazonka.Redshift.Types.LoggingStatus: LoggingStatus' :: Maybe Text -> Maybe Text -> Maybe ISO8601 -> Maybe ISO8601 -> Maybe LogDestinationType -> Maybe [Text] -> Maybe Bool -> Maybe Text -> LoggingStatus
+ Amazonka.Redshift.Types.LoggingStatus: [$sel:bucketName:LoggingStatus'] :: LoggingStatus -> Maybe Text
+ Amazonka.Redshift.Types.LoggingStatus: [$sel:lastFailureMessage:LoggingStatus'] :: LoggingStatus -> Maybe Text
+ Amazonka.Redshift.Types.LoggingStatus: [$sel:lastFailureTime:LoggingStatus'] :: LoggingStatus -> Maybe ISO8601
+ Amazonka.Redshift.Types.LoggingStatus: [$sel:lastSuccessfulDeliveryTime:LoggingStatus'] :: LoggingStatus -> Maybe ISO8601
+ Amazonka.Redshift.Types.LoggingStatus: [$sel:logDestinationType:LoggingStatus'] :: LoggingStatus -> Maybe LogDestinationType
+ Amazonka.Redshift.Types.LoggingStatus: [$sel:logExports:LoggingStatus'] :: LoggingStatus -> Maybe [Text]
+ Amazonka.Redshift.Types.LoggingStatus: [$sel:loggingEnabled:LoggingStatus'] :: LoggingStatus -> Maybe Bool
+ Amazonka.Redshift.Types.LoggingStatus: [$sel:s3KeyPrefix:LoggingStatus'] :: LoggingStatus -> Maybe Text
+ Amazonka.Redshift.Types.LoggingStatus: data LoggingStatus
+ Amazonka.Redshift.Types.LoggingStatus: instance Amazonka.Data.XML.FromXML Amazonka.Redshift.Types.LoggingStatus.LoggingStatus
+ Amazonka.Redshift.Types.LoggingStatus: instance Control.DeepSeq.NFData Amazonka.Redshift.Types.LoggingStatus.LoggingStatus
+ Amazonka.Redshift.Types.LoggingStatus: instance Data.Hashable.Class.Hashable Amazonka.Redshift.Types.LoggingStatus.LoggingStatus
+ Amazonka.Redshift.Types.LoggingStatus: instance GHC.Classes.Eq Amazonka.Redshift.Types.LoggingStatus.LoggingStatus
+ Amazonka.Redshift.Types.LoggingStatus: instance GHC.Generics.Generic Amazonka.Redshift.Types.LoggingStatus.LoggingStatus
+ Amazonka.Redshift.Types.LoggingStatus: instance GHC.Read.Read Amazonka.Redshift.Types.LoggingStatus.LoggingStatus
+ Amazonka.Redshift.Types.LoggingStatus: instance GHC.Show.Show Amazonka.Redshift.Types.LoggingStatus.LoggingStatus
+ Amazonka.Redshift.Types.LoggingStatus: loggingStatus_bucketName :: Lens' LoggingStatus (Maybe Text)
+ Amazonka.Redshift.Types.LoggingStatus: loggingStatus_lastFailureMessage :: Lens' LoggingStatus (Maybe Text)
+ Amazonka.Redshift.Types.LoggingStatus: loggingStatus_lastFailureTime :: Lens' LoggingStatus (Maybe UTCTime)
+ Amazonka.Redshift.Types.LoggingStatus: loggingStatus_lastSuccessfulDeliveryTime :: Lens' LoggingStatus (Maybe UTCTime)
+ Amazonka.Redshift.Types.LoggingStatus: loggingStatus_logDestinationType :: Lens' LoggingStatus (Maybe LogDestinationType)
+ Amazonka.Redshift.Types.LoggingStatus: loggingStatus_logExports :: Lens' LoggingStatus (Maybe [Text])
+ Amazonka.Redshift.Types.LoggingStatus: loggingStatus_loggingEnabled :: Lens' LoggingStatus (Maybe Bool)
+ Amazonka.Redshift.Types.LoggingStatus: loggingStatus_s3KeyPrefix :: Lens' LoggingStatus (Maybe Text)
+ Amazonka.Redshift.Types.LoggingStatus: newLoggingStatus :: LoggingStatus
+ Amazonka.Redshift.Types.MaintenanceTrack: MaintenanceTrack' :: Maybe Text -> Maybe Text -> Maybe [UpdateTarget] -> MaintenanceTrack
+ Amazonka.Redshift.Types.MaintenanceTrack: [$sel:databaseVersion:MaintenanceTrack'] :: MaintenanceTrack -> Maybe Text
+ Amazonka.Redshift.Types.MaintenanceTrack: [$sel:maintenanceTrackName:MaintenanceTrack'] :: MaintenanceTrack -> Maybe Text
+ Amazonka.Redshift.Types.MaintenanceTrack: [$sel:updateTargets:MaintenanceTrack'] :: MaintenanceTrack -> Maybe [UpdateTarget]
+ Amazonka.Redshift.Types.MaintenanceTrack: data MaintenanceTrack
+ Amazonka.Redshift.Types.MaintenanceTrack: instance Amazonka.Data.XML.FromXML Amazonka.Redshift.Types.MaintenanceTrack.MaintenanceTrack
+ Amazonka.Redshift.Types.MaintenanceTrack: instance Control.DeepSeq.NFData Amazonka.Redshift.Types.MaintenanceTrack.MaintenanceTrack
+ Amazonka.Redshift.Types.MaintenanceTrack: instance Data.Hashable.Class.Hashable Amazonka.Redshift.Types.MaintenanceTrack.MaintenanceTrack
+ Amazonka.Redshift.Types.MaintenanceTrack: instance GHC.Classes.Eq Amazonka.Redshift.Types.MaintenanceTrack.MaintenanceTrack
+ Amazonka.Redshift.Types.MaintenanceTrack: instance GHC.Generics.Generic Amazonka.Redshift.Types.MaintenanceTrack.MaintenanceTrack
+ Amazonka.Redshift.Types.MaintenanceTrack: instance GHC.Read.Read Amazonka.Redshift.Types.MaintenanceTrack.MaintenanceTrack
+ Amazonka.Redshift.Types.MaintenanceTrack: instance GHC.Show.Show Amazonka.Redshift.Types.MaintenanceTrack.MaintenanceTrack
+ Amazonka.Redshift.Types.MaintenanceTrack: maintenanceTrack_databaseVersion :: Lens' MaintenanceTrack (Maybe Text)
+ Amazonka.Redshift.Types.MaintenanceTrack: maintenanceTrack_maintenanceTrackName :: Lens' MaintenanceTrack (Maybe Text)
+ Amazonka.Redshift.Types.MaintenanceTrack: maintenanceTrack_updateTargets :: Lens' MaintenanceTrack (Maybe [UpdateTarget])
+ Amazonka.Redshift.Types.MaintenanceTrack: newMaintenanceTrack :: MaintenanceTrack
+ Amazonka.Redshift.Types.Mode: Mode' :: Text -> Mode
+ Amazonka.Redshift.Types.Mode: [fromMode] :: Mode -> Text
+ Amazonka.Redshift.Types.Mode: instance Amazonka.Data.ByteString.ToByteString Amazonka.Redshift.Types.Mode.Mode
+ Amazonka.Redshift.Types.Mode: instance Amazonka.Data.Headers.ToHeader Amazonka.Redshift.Types.Mode.Mode
+ Amazonka.Redshift.Types.Mode: instance Amazonka.Data.Log.ToLog Amazonka.Redshift.Types.Mode.Mode
+ Amazonka.Redshift.Types.Mode: instance Amazonka.Data.Query.ToQuery Amazonka.Redshift.Types.Mode.Mode
+ Amazonka.Redshift.Types.Mode: instance Amazonka.Data.Text.FromText Amazonka.Redshift.Types.Mode.Mode
+ Amazonka.Redshift.Types.Mode: instance Amazonka.Data.Text.ToText Amazonka.Redshift.Types.Mode.Mode
+ Amazonka.Redshift.Types.Mode: instance Amazonka.Data.XML.FromXML Amazonka.Redshift.Types.Mode.Mode
+ Amazonka.Redshift.Types.Mode: instance Amazonka.Data.XML.ToXML Amazonka.Redshift.Types.Mode.Mode
+ Amazonka.Redshift.Types.Mode: instance Control.DeepSeq.NFData Amazonka.Redshift.Types.Mode.Mode
+ Amazonka.Redshift.Types.Mode: instance Data.Aeson.Types.FromJSON.FromJSON Amazonka.Redshift.Types.Mode.Mode
+ Amazonka.Redshift.Types.Mode: instance Data.Aeson.Types.FromJSON.FromJSONKey Amazonka.Redshift.Types.Mode.Mode
+ Amazonka.Redshift.Types.Mode: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.Redshift.Types.Mode.Mode
+ Amazonka.Redshift.Types.Mode: instance Data.Aeson.Types.ToJSON.ToJSONKey Amazonka.Redshift.Types.Mode.Mode
+ Amazonka.Redshift.Types.Mode: instance Data.Hashable.Class.Hashable Amazonka.Redshift.Types.Mode.Mode
+ Amazonka.Redshift.Types.Mode: instance GHC.Classes.Eq Amazonka.Redshift.Types.Mode.Mode
+ Amazonka.Redshift.Types.Mode: instance GHC.Classes.Ord Amazonka.Redshift.Types.Mode.Mode
+ Amazonka.Redshift.Types.Mode: instance GHC.Generics.Generic Amazonka.Redshift.Types.Mode.Mode
+ Amazonka.Redshift.Types.Mode: instance GHC.Read.Read Amazonka.Redshift.Types.Mode.Mode
+ Amazonka.Redshift.Types.Mode: instance GHC.Show.Show Amazonka.Redshift.Types.Mode.Mode
+ Amazonka.Redshift.Types.Mode: newtype Mode
+ Amazonka.Redshift.Types.Mode: pattern Mode_High_performance :: Mode
+ Amazonka.Redshift.Types.Mode: pattern Mode_Standard :: Mode
+ Amazonka.Redshift.Types.NetworkInterface: NetworkInterface' :: Maybe Text -> Maybe Text -> Maybe Text -> Maybe Text -> NetworkInterface
+ Amazonka.Redshift.Types.NetworkInterface: [$sel:availabilityZone:NetworkInterface'] :: NetworkInterface -> Maybe Text
+ Amazonka.Redshift.Types.NetworkInterface: [$sel:networkInterfaceId:NetworkInterface'] :: NetworkInterface -> Maybe Text
+ Amazonka.Redshift.Types.NetworkInterface: [$sel:privateIpAddress:NetworkInterface'] :: NetworkInterface -> Maybe Text
+ Amazonka.Redshift.Types.NetworkInterface: [$sel:subnetId:NetworkInterface'] :: NetworkInterface -> Maybe Text
+ Amazonka.Redshift.Types.NetworkInterface: data NetworkInterface
+ Amazonka.Redshift.Types.NetworkInterface: instance Amazonka.Data.XML.FromXML Amazonka.Redshift.Types.NetworkInterface.NetworkInterface
+ Amazonka.Redshift.Types.NetworkInterface: instance Control.DeepSeq.NFData Amazonka.Redshift.Types.NetworkInterface.NetworkInterface
+ Amazonka.Redshift.Types.NetworkInterface: instance Data.Hashable.Class.Hashable Amazonka.Redshift.Types.NetworkInterface.NetworkInterface
+ Amazonka.Redshift.Types.NetworkInterface: instance GHC.Classes.Eq Amazonka.Redshift.Types.NetworkInterface.NetworkInterface
+ Amazonka.Redshift.Types.NetworkInterface: instance GHC.Generics.Generic Amazonka.Redshift.Types.NetworkInterface.NetworkInterface
+ Amazonka.Redshift.Types.NetworkInterface: instance GHC.Read.Read Amazonka.Redshift.Types.NetworkInterface.NetworkInterface
+ Amazonka.Redshift.Types.NetworkInterface: instance GHC.Show.Show Amazonka.Redshift.Types.NetworkInterface.NetworkInterface
+ Amazonka.Redshift.Types.NetworkInterface: networkInterface_availabilityZone :: Lens' NetworkInterface (Maybe Text)
+ Amazonka.Redshift.Types.NetworkInterface: networkInterface_networkInterfaceId :: Lens' NetworkInterface (Maybe Text)
+ Amazonka.Redshift.Types.NetworkInterface: networkInterface_privateIpAddress :: Lens' NetworkInterface (Maybe Text)
+ Amazonka.Redshift.Types.NetworkInterface: networkInterface_subnetId :: Lens' NetworkInterface (Maybe Text)
+ Amazonka.Redshift.Types.NetworkInterface: newNetworkInterface :: NetworkInterface
+ Amazonka.Redshift.Types.NodeConfigurationOption: NodeConfigurationOption' :: Maybe Double -> Maybe Mode -> Maybe Text -> Maybe Int -> NodeConfigurationOption
+ Amazonka.Redshift.Types.NodeConfigurationOption: [$sel:estimatedDiskUtilizationPercent:NodeConfigurationOption'] :: NodeConfigurationOption -> Maybe Double
+ Amazonka.Redshift.Types.NodeConfigurationOption: [$sel:mode:NodeConfigurationOption'] :: NodeConfigurationOption -> Maybe Mode
+ Amazonka.Redshift.Types.NodeConfigurationOption: [$sel:nodeType:NodeConfigurationOption'] :: NodeConfigurationOption -> Maybe Text
+ Amazonka.Redshift.Types.NodeConfigurationOption: [$sel:numberOfNodes:NodeConfigurationOption'] :: NodeConfigurationOption -> Maybe Int
+ Amazonka.Redshift.Types.NodeConfigurationOption: data NodeConfigurationOption
+ Amazonka.Redshift.Types.NodeConfigurationOption: instance Amazonka.Data.XML.FromXML Amazonka.Redshift.Types.NodeConfigurationOption.NodeConfigurationOption
+ Amazonka.Redshift.Types.NodeConfigurationOption: instance Control.DeepSeq.NFData Amazonka.Redshift.Types.NodeConfigurationOption.NodeConfigurationOption
+ Amazonka.Redshift.Types.NodeConfigurationOption: instance Data.Hashable.Class.Hashable Amazonka.Redshift.Types.NodeConfigurationOption.NodeConfigurationOption
+ Amazonka.Redshift.Types.NodeConfigurationOption: instance GHC.Classes.Eq Amazonka.Redshift.Types.NodeConfigurationOption.NodeConfigurationOption
+ Amazonka.Redshift.Types.NodeConfigurationOption: instance GHC.Generics.Generic Amazonka.Redshift.Types.NodeConfigurationOption.NodeConfigurationOption
+ Amazonka.Redshift.Types.NodeConfigurationOption: instance GHC.Read.Read Amazonka.Redshift.Types.NodeConfigurationOption.NodeConfigurationOption
+ Amazonka.Redshift.Types.NodeConfigurationOption: instance GHC.Show.Show Amazonka.Redshift.Types.NodeConfigurationOption.NodeConfigurationOption
+ Amazonka.Redshift.Types.NodeConfigurationOption: newNodeConfigurationOption :: NodeConfigurationOption
+ Amazonka.Redshift.Types.NodeConfigurationOption: nodeConfigurationOption_estimatedDiskUtilizationPercent :: Lens' NodeConfigurationOption (Maybe Double)
+ Amazonka.Redshift.Types.NodeConfigurationOption: nodeConfigurationOption_mode :: Lens' NodeConfigurationOption (Maybe Mode)
+ Amazonka.Redshift.Types.NodeConfigurationOption: nodeConfigurationOption_nodeType :: Lens' NodeConfigurationOption (Maybe Text)
+ Amazonka.Redshift.Types.NodeConfigurationOption: nodeConfigurationOption_numberOfNodes :: Lens' NodeConfigurationOption (Maybe Int)
+ Amazonka.Redshift.Types.NodeConfigurationOptionsFilter: NodeConfigurationOptionsFilter' :: Maybe NodeConfigurationOptionsFilterName -> Maybe OperatorType -> Maybe [Text] -> NodeConfigurationOptionsFilter
+ Amazonka.Redshift.Types.NodeConfigurationOptionsFilter: [$sel:name:NodeConfigurationOptionsFilter'] :: NodeConfigurationOptionsFilter -> Maybe NodeConfigurationOptionsFilterName
+ Amazonka.Redshift.Types.NodeConfigurationOptionsFilter: [$sel:operator:NodeConfigurationOptionsFilter'] :: NodeConfigurationOptionsFilter -> Maybe OperatorType
+ Amazonka.Redshift.Types.NodeConfigurationOptionsFilter: [$sel:values:NodeConfigurationOptionsFilter'] :: NodeConfigurationOptionsFilter -> Maybe [Text]
+ Amazonka.Redshift.Types.NodeConfigurationOptionsFilter: data NodeConfigurationOptionsFilter
+ Amazonka.Redshift.Types.NodeConfigurationOptionsFilter: instance Amazonka.Data.Query.ToQuery Amazonka.Redshift.Types.NodeConfigurationOptionsFilter.NodeConfigurationOptionsFilter
+ Amazonka.Redshift.Types.NodeConfigurationOptionsFilter: instance Control.DeepSeq.NFData Amazonka.Redshift.Types.NodeConfigurationOptionsFilter.NodeConfigurationOptionsFilter
+ Amazonka.Redshift.Types.NodeConfigurationOptionsFilter: instance Data.Hashable.Class.Hashable Amazonka.Redshift.Types.NodeConfigurationOptionsFilter.NodeConfigurationOptionsFilter
+ Amazonka.Redshift.Types.NodeConfigurationOptionsFilter: instance GHC.Classes.Eq Amazonka.Redshift.Types.NodeConfigurationOptionsFilter.NodeConfigurationOptionsFilter
+ Amazonka.Redshift.Types.NodeConfigurationOptionsFilter: instance GHC.Generics.Generic Amazonka.Redshift.Types.NodeConfigurationOptionsFilter.NodeConfigurationOptionsFilter
+ Amazonka.Redshift.Types.NodeConfigurationOptionsFilter: instance GHC.Read.Read Amazonka.Redshift.Types.NodeConfigurationOptionsFilter.NodeConfigurationOptionsFilter
+ Amazonka.Redshift.Types.NodeConfigurationOptionsFilter: instance GHC.Show.Show Amazonka.Redshift.Types.NodeConfigurationOptionsFilter.NodeConfigurationOptionsFilter
+ Amazonka.Redshift.Types.NodeConfigurationOptionsFilter: newNodeConfigurationOptionsFilter :: NodeConfigurationOptionsFilter
+ Amazonka.Redshift.Types.NodeConfigurationOptionsFilter: nodeConfigurationOptionsFilter_name :: Lens' NodeConfigurationOptionsFilter (Maybe NodeConfigurationOptionsFilterName)
+ Amazonka.Redshift.Types.NodeConfigurationOptionsFilter: nodeConfigurationOptionsFilter_operator :: Lens' NodeConfigurationOptionsFilter (Maybe OperatorType)
+ Amazonka.Redshift.Types.NodeConfigurationOptionsFilter: nodeConfigurationOptionsFilter_values :: Lens' NodeConfigurationOptionsFilter (Maybe [Text])
+ Amazonka.Redshift.Types.NodeConfigurationOptionsFilterName: NodeConfigurationOptionsFilterName' :: Text -> NodeConfigurationOptionsFilterName
+ Amazonka.Redshift.Types.NodeConfigurationOptionsFilterName: [fromNodeConfigurationOptionsFilterName] :: NodeConfigurationOptionsFilterName -> Text
+ Amazonka.Redshift.Types.NodeConfigurationOptionsFilterName: instance Amazonka.Data.ByteString.ToByteString Amazonka.Redshift.Types.NodeConfigurationOptionsFilterName.NodeConfigurationOptionsFilterName
+ Amazonka.Redshift.Types.NodeConfigurationOptionsFilterName: instance Amazonka.Data.Headers.ToHeader Amazonka.Redshift.Types.NodeConfigurationOptionsFilterName.NodeConfigurationOptionsFilterName
+ Amazonka.Redshift.Types.NodeConfigurationOptionsFilterName: instance Amazonka.Data.Log.ToLog Amazonka.Redshift.Types.NodeConfigurationOptionsFilterName.NodeConfigurationOptionsFilterName
+ Amazonka.Redshift.Types.NodeConfigurationOptionsFilterName: instance Amazonka.Data.Query.ToQuery Amazonka.Redshift.Types.NodeConfigurationOptionsFilterName.NodeConfigurationOptionsFilterName
+ Amazonka.Redshift.Types.NodeConfigurationOptionsFilterName: instance Amazonka.Data.Text.FromText Amazonka.Redshift.Types.NodeConfigurationOptionsFilterName.NodeConfigurationOptionsFilterName
+ Amazonka.Redshift.Types.NodeConfigurationOptionsFilterName: instance Amazonka.Data.Text.ToText Amazonka.Redshift.Types.NodeConfigurationOptionsFilterName.NodeConfigurationOptionsFilterName
+ Amazonka.Redshift.Types.NodeConfigurationOptionsFilterName: instance Amazonka.Data.XML.FromXML Amazonka.Redshift.Types.NodeConfigurationOptionsFilterName.NodeConfigurationOptionsFilterName
+ Amazonka.Redshift.Types.NodeConfigurationOptionsFilterName: instance Amazonka.Data.XML.ToXML Amazonka.Redshift.Types.NodeConfigurationOptionsFilterName.NodeConfigurationOptionsFilterName
+ Amazonka.Redshift.Types.NodeConfigurationOptionsFilterName: instance Control.DeepSeq.NFData Amazonka.Redshift.Types.NodeConfigurationOptionsFilterName.NodeConfigurationOptionsFilterName
+ Amazonka.Redshift.Types.NodeConfigurationOptionsFilterName: instance Data.Aeson.Types.FromJSON.FromJSON Amazonka.Redshift.Types.NodeConfigurationOptionsFilterName.NodeConfigurationOptionsFilterName
+ Amazonka.Redshift.Types.NodeConfigurationOptionsFilterName: instance Data.Aeson.Types.FromJSON.FromJSONKey Amazonka.Redshift.Types.NodeConfigurationOptionsFilterName.NodeConfigurationOptionsFilterName
+ Amazonka.Redshift.Types.NodeConfigurationOptionsFilterName: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.Redshift.Types.NodeConfigurationOptionsFilterName.NodeConfigurationOptionsFilterName
+ Amazonka.Redshift.Types.NodeConfigurationOptionsFilterName: instance Data.Aeson.Types.ToJSON.ToJSONKey Amazonka.Redshift.Types.NodeConfigurationOptionsFilterName.NodeConfigurationOptionsFilterName
+ Amazonka.Redshift.Types.NodeConfigurationOptionsFilterName: instance Data.Hashable.Class.Hashable Amazonka.Redshift.Types.NodeConfigurationOptionsFilterName.NodeConfigurationOptionsFilterName
+ Amazonka.Redshift.Types.NodeConfigurationOptionsFilterName: instance GHC.Classes.Eq Amazonka.Redshift.Types.NodeConfigurationOptionsFilterName.NodeConfigurationOptionsFilterName
+ Amazonka.Redshift.Types.NodeConfigurationOptionsFilterName: instance GHC.Classes.Ord Amazonka.Redshift.Types.NodeConfigurationOptionsFilterName.NodeConfigurationOptionsFilterName
+ Amazonka.Redshift.Types.NodeConfigurationOptionsFilterName: instance GHC.Generics.Generic Amazonka.Redshift.Types.NodeConfigurationOptionsFilterName.NodeConfigurationOptionsFilterName
+ Amazonka.Redshift.Types.NodeConfigurationOptionsFilterName: instance GHC.Read.Read Amazonka.Redshift.Types.NodeConfigurationOptionsFilterName.NodeConfigurationOptionsFilterName
+ Amazonka.Redshift.Types.NodeConfigurationOptionsFilterName: instance GHC.Show.Show Amazonka.Redshift.Types.NodeConfigurationOptionsFilterName.NodeConfigurationOptionsFilterName
+ Amazonka.Redshift.Types.NodeConfigurationOptionsFilterName: newtype NodeConfigurationOptionsFilterName
+ Amazonka.Redshift.Types.NodeConfigurationOptionsFilterName: pattern NodeConfigurationOptionsFilterName_EstimatedDiskUtilizationPercent :: NodeConfigurationOptionsFilterName
+ Amazonka.Redshift.Types.NodeConfigurationOptionsFilterName: pattern NodeConfigurationOptionsFilterName_Mode :: NodeConfigurationOptionsFilterName
+ Amazonka.Redshift.Types.NodeConfigurationOptionsFilterName: pattern NodeConfigurationOptionsFilterName_NodeType :: NodeConfigurationOptionsFilterName
+ Amazonka.Redshift.Types.NodeConfigurationOptionsFilterName: pattern NodeConfigurationOptionsFilterName_NumberOfNodes :: NodeConfigurationOptionsFilterName
+ Amazonka.Redshift.Types.OperatorType: OperatorType' :: Text -> OperatorType
+ Amazonka.Redshift.Types.OperatorType: [fromOperatorType] :: OperatorType -> Text
+ Amazonka.Redshift.Types.OperatorType: instance Amazonka.Data.ByteString.ToByteString Amazonka.Redshift.Types.OperatorType.OperatorType
+ Amazonka.Redshift.Types.OperatorType: instance Amazonka.Data.Headers.ToHeader Amazonka.Redshift.Types.OperatorType.OperatorType
+ Amazonka.Redshift.Types.OperatorType: instance Amazonka.Data.Log.ToLog Amazonka.Redshift.Types.OperatorType.OperatorType
+ Amazonka.Redshift.Types.OperatorType: instance Amazonka.Data.Query.ToQuery Amazonka.Redshift.Types.OperatorType.OperatorType
+ Amazonka.Redshift.Types.OperatorType: instance Amazonka.Data.Text.FromText Amazonka.Redshift.Types.OperatorType.OperatorType
+ Amazonka.Redshift.Types.OperatorType: instance Amazonka.Data.Text.ToText Amazonka.Redshift.Types.OperatorType.OperatorType
+ Amazonka.Redshift.Types.OperatorType: instance Amazonka.Data.XML.FromXML Amazonka.Redshift.Types.OperatorType.OperatorType
+ Amazonka.Redshift.Types.OperatorType: instance Amazonka.Data.XML.ToXML Amazonka.Redshift.Types.OperatorType.OperatorType
+ Amazonka.Redshift.Types.OperatorType: instance Control.DeepSeq.NFData Amazonka.Redshift.Types.OperatorType.OperatorType
+ Amazonka.Redshift.Types.OperatorType: instance Data.Aeson.Types.FromJSON.FromJSON Amazonka.Redshift.Types.OperatorType.OperatorType
+ Amazonka.Redshift.Types.OperatorType: instance Data.Aeson.Types.FromJSON.FromJSONKey Amazonka.Redshift.Types.OperatorType.OperatorType
+ Amazonka.Redshift.Types.OperatorType: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.Redshift.Types.OperatorType.OperatorType
+ Amazonka.Redshift.Types.OperatorType: instance Data.Aeson.Types.ToJSON.ToJSONKey Amazonka.Redshift.Types.OperatorType.OperatorType
+ Amazonka.Redshift.Types.OperatorType: instance Data.Hashable.Class.Hashable Amazonka.Redshift.Types.OperatorType.OperatorType
+ Amazonka.Redshift.Types.OperatorType: instance GHC.Classes.Eq Amazonka.Redshift.Types.OperatorType.OperatorType
+ Amazonka.Redshift.Types.OperatorType: instance GHC.Classes.Ord Amazonka.Redshift.Types.OperatorType.OperatorType
+ Amazonka.Redshift.Types.OperatorType: instance GHC.Generics.Generic Amazonka.Redshift.Types.OperatorType.OperatorType
+ Amazonka.Redshift.Types.OperatorType: instance GHC.Read.Read Amazonka.Redshift.Types.OperatorType.OperatorType
+ Amazonka.Redshift.Types.OperatorType: instance GHC.Show.Show Amazonka.Redshift.Types.OperatorType.OperatorType
+ Amazonka.Redshift.Types.OperatorType: newtype OperatorType
+ Amazonka.Redshift.Types.OperatorType: pattern OperatorType_Between :: OperatorType
+ Amazonka.Redshift.Types.OperatorType: pattern OperatorType_Eq :: OperatorType
+ Amazonka.Redshift.Types.OperatorType: pattern OperatorType_Ge :: OperatorType
+ Amazonka.Redshift.Types.OperatorType: pattern OperatorType_Gt :: OperatorType
+ Amazonka.Redshift.Types.OperatorType: pattern OperatorType_In :: OperatorType
+ Amazonka.Redshift.Types.OperatorType: pattern OperatorType_Le :: OperatorType
+ Amazonka.Redshift.Types.OperatorType: pattern OperatorType_Lt :: OperatorType
+ Amazonka.Redshift.Types.OrderableClusterOption: OrderableClusterOption' :: Maybe [AvailabilityZone] -> Maybe Text -> Maybe Text -> Maybe Text -> OrderableClusterOption
+ Amazonka.Redshift.Types.OrderableClusterOption: [$sel:availabilityZones:OrderableClusterOption'] :: OrderableClusterOption -> Maybe [AvailabilityZone]
+ Amazonka.Redshift.Types.OrderableClusterOption: [$sel:clusterType:OrderableClusterOption'] :: OrderableClusterOption -> Maybe Text
+ Amazonka.Redshift.Types.OrderableClusterOption: [$sel:clusterVersion:OrderableClusterOption'] :: OrderableClusterOption -> Maybe Text
+ Amazonka.Redshift.Types.OrderableClusterOption: [$sel:nodeType:OrderableClusterOption'] :: OrderableClusterOption -> Maybe Text
+ Amazonka.Redshift.Types.OrderableClusterOption: data OrderableClusterOption
+ Amazonka.Redshift.Types.OrderableClusterOption: instance Amazonka.Data.XML.FromXML Amazonka.Redshift.Types.OrderableClusterOption.OrderableClusterOption
+ Amazonka.Redshift.Types.OrderableClusterOption: instance Control.DeepSeq.NFData Amazonka.Redshift.Types.OrderableClusterOption.OrderableClusterOption
+ Amazonka.Redshift.Types.OrderableClusterOption: instance Data.Hashable.Class.Hashable Amazonka.Redshift.Types.OrderableClusterOption.OrderableClusterOption
+ Amazonka.Redshift.Types.OrderableClusterOption: instance GHC.Classes.Eq Amazonka.Redshift.Types.OrderableClusterOption.OrderableClusterOption
+ Amazonka.Redshift.Types.OrderableClusterOption: instance GHC.Generics.Generic Amazonka.Redshift.Types.OrderableClusterOption.OrderableClusterOption
+ Amazonka.Redshift.Types.OrderableClusterOption: instance GHC.Read.Read Amazonka.Redshift.Types.OrderableClusterOption.OrderableClusterOption
+ Amazonka.Redshift.Types.OrderableClusterOption: instance GHC.Show.Show Amazonka.Redshift.Types.OrderableClusterOption.OrderableClusterOption
+ Amazonka.Redshift.Types.OrderableClusterOption: newOrderableClusterOption :: OrderableClusterOption
+ Amazonka.Redshift.Types.OrderableClusterOption: orderableClusterOption_availabilityZones :: Lens' OrderableClusterOption (Maybe [AvailabilityZone])
+ Amazonka.Redshift.Types.OrderableClusterOption: orderableClusterOption_clusterType :: Lens' OrderableClusterOption (Maybe Text)
+ Amazonka.Redshift.Types.OrderableClusterOption: orderableClusterOption_clusterVersion :: Lens' OrderableClusterOption (Maybe Text)
+ Amazonka.Redshift.Types.OrderableClusterOption: orderableClusterOption_nodeType :: Lens' OrderableClusterOption (Maybe Text)
+ Amazonka.Redshift.Types.Parameter: Parameter' :: Maybe Text -> Maybe ParameterApplyType -> Maybe Text -> Maybe Text -> Maybe Bool -> Maybe Text -> Maybe Text -> Maybe Text -> Maybe Text -> Parameter
+ Amazonka.Redshift.Types.Parameter: [$sel:allowedValues:Parameter'] :: Parameter -> Maybe Text
+ Amazonka.Redshift.Types.Parameter: [$sel:applyType:Parameter'] :: Parameter -> Maybe ParameterApplyType
+ Amazonka.Redshift.Types.Parameter: [$sel:dataType:Parameter'] :: Parameter -> Maybe Text
+ Amazonka.Redshift.Types.Parameter: [$sel:description:Parameter'] :: Parameter -> Maybe Text
+ Amazonka.Redshift.Types.Parameter: [$sel:isModifiable:Parameter'] :: Parameter -> Maybe Bool
+ Amazonka.Redshift.Types.Parameter: [$sel:minimumEngineVersion:Parameter'] :: Parameter -> Maybe Text
+ Amazonka.Redshift.Types.Parameter: [$sel:parameterName:Parameter'] :: Parameter -> Maybe Text
+ Amazonka.Redshift.Types.Parameter: [$sel:parameterValue:Parameter'] :: Parameter -> Maybe Text
+ Amazonka.Redshift.Types.Parameter: [$sel:source:Parameter'] :: Parameter -> Maybe Text
+ Amazonka.Redshift.Types.Parameter: data Parameter
+ Amazonka.Redshift.Types.Parameter: instance Amazonka.Data.Query.ToQuery Amazonka.Redshift.Types.Parameter.Parameter
+ Amazonka.Redshift.Types.Parameter: instance Amazonka.Data.XML.FromXML Amazonka.Redshift.Types.Parameter.Parameter
+ Amazonka.Redshift.Types.Parameter: instance Control.DeepSeq.NFData Amazonka.Redshift.Types.Parameter.Parameter
+ Amazonka.Redshift.Types.Parameter: instance Data.Hashable.Class.Hashable Amazonka.Redshift.Types.Parameter.Parameter
+ Amazonka.Redshift.Types.Parameter: instance GHC.Classes.Eq Amazonka.Redshift.Types.Parameter.Parameter
+ Amazonka.Redshift.Types.Parameter: instance GHC.Generics.Generic Amazonka.Redshift.Types.Parameter.Parameter
+ Amazonka.Redshift.Types.Parameter: instance GHC.Read.Read Amazonka.Redshift.Types.Parameter.Parameter
+ Amazonka.Redshift.Types.Parameter: instance GHC.Show.Show Amazonka.Redshift.Types.Parameter.Parameter
+ Amazonka.Redshift.Types.Parameter: newParameter :: Parameter
+ Amazonka.Redshift.Types.Parameter: parameter_allowedValues :: Lens' Parameter (Maybe Text)
+ Amazonka.Redshift.Types.Parameter: parameter_applyType :: Lens' Parameter (Maybe ParameterApplyType)
+ Amazonka.Redshift.Types.Parameter: parameter_dataType :: Lens' Parameter (Maybe Text)
+ Amazonka.Redshift.Types.Parameter: parameter_description :: Lens' Parameter (Maybe Text)
+ Amazonka.Redshift.Types.Parameter: parameter_isModifiable :: Lens' Parameter (Maybe Bool)
+ Amazonka.Redshift.Types.Parameter: parameter_minimumEngineVersion :: Lens' Parameter (Maybe Text)
+ Amazonka.Redshift.Types.Parameter: parameter_parameterName :: Lens' Parameter (Maybe Text)
+ Amazonka.Redshift.Types.Parameter: parameter_parameterValue :: Lens' Parameter (Maybe Text)
+ Amazonka.Redshift.Types.Parameter: parameter_source :: Lens' Parameter (Maybe Text)
+ Amazonka.Redshift.Types.ParameterApplyType: ParameterApplyType' :: Text -> ParameterApplyType
+ Amazonka.Redshift.Types.ParameterApplyType: [fromParameterApplyType] :: ParameterApplyType -> Text
+ Amazonka.Redshift.Types.ParameterApplyType: instance Amazonka.Data.ByteString.ToByteString Amazonka.Redshift.Types.ParameterApplyType.ParameterApplyType
+ Amazonka.Redshift.Types.ParameterApplyType: instance Amazonka.Data.Headers.ToHeader Amazonka.Redshift.Types.ParameterApplyType.ParameterApplyType
+ Amazonka.Redshift.Types.ParameterApplyType: instance Amazonka.Data.Log.ToLog Amazonka.Redshift.Types.ParameterApplyType.ParameterApplyType
+ Amazonka.Redshift.Types.ParameterApplyType: instance Amazonka.Data.Query.ToQuery Amazonka.Redshift.Types.ParameterApplyType.ParameterApplyType
+ Amazonka.Redshift.Types.ParameterApplyType: instance Amazonka.Data.Text.FromText Amazonka.Redshift.Types.ParameterApplyType.ParameterApplyType
+ Amazonka.Redshift.Types.ParameterApplyType: instance Amazonka.Data.Text.ToText Amazonka.Redshift.Types.ParameterApplyType.ParameterApplyType
+ Amazonka.Redshift.Types.ParameterApplyType: instance Amazonka.Data.XML.FromXML Amazonka.Redshift.Types.ParameterApplyType.ParameterApplyType
+ Amazonka.Redshift.Types.ParameterApplyType: instance Amazonka.Data.XML.ToXML Amazonka.Redshift.Types.ParameterApplyType.ParameterApplyType
+ Amazonka.Redshift.Types.ParameterApplyType: instance Control.DeepSeq.NFData Amazonka.Redshift.Types.ParameterApplyType.ParameterApplyType
+ Amazonka.Redshift.Types.ParameterApplyType: instance Data.Aeson.Types.FromJSON.FromJSON Amazonka.Redshift.Types.ParameterApplyType.ParameterApplyType
+ Amazonka.Redshift.Types.ParameterApplyType: instance Data.Aeson.Types.FromJSON.FromJSONKey Amazonka.Redshift.Types.ParameterApplyType.ParameterApplyType
+ Amazonka.Redshift.Types.ParameterApplyType: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.Redshift.Types.ParameterApplyType.ParameterApplyType
+ Amazonka.Redshift.Types.ParameterApplyType: instance Data.Aeson.Types.ToJSON.ToJSONKey Amazonka.Redshift.Types.ParameterApplyType.ParameterApplyType
+ Amazonka.Redshift.Types.ParameterApplyType: instance Data.Hashable.Class.Hashable Amazonka.Redshift.Types.ParameterApplyType.ParameterApplyType
+ Amazonka.Redshift.Types.ParameterApplyType: instance GHC.Classes.Eq Amazonka.Redshift.Types.ParameterApplyType.ParameterApplyType
+ Amazonka.Redshift.Types.ParameterApplyType: instance GHC.Classes.Ord Amazonka.Redshift.Types.ParameterApplyType.ParameterApplyType
+ Amazonka.Redshift.Types.ParameterApplyType: instance GHC.Generics.Generic Amazonka.Redshift.Types.ParameterApplyType.ParameterApplyType
+ Amazonka.Redshift.Types.ParameterApplyType: instance GHC.Read.Read Amazonka.Redshift.Types.ParameterApplyType.ParameterApplyType
+ Amazonka.Redshift.Types.ParameterApplyType: instance GHC.Show.Show Amazonka.Redshift.Types.ParameterApplyType.ParameterApplyType
+ Amazonka.Redshift.Types.ParameterApplyType: newtype ParameterApplyType
+ Amazonka.Redshift.Types.ParameterApplyType: pattern ParameterApplyType_Dynamic :: ParameterApplyType
+ Amazonka.Redshift.Types.ParameterApplyType: pattern ParameterApplyType_Static :: ParameterApplyType
+ Amazonka.Redshift.Types.PartnerIntegrationInfo: PartnerIntegrationInfo' :: Maybe ISO8601 -> Maybe Text -> Maybe Text -> Maybe PartnerIntegrationStatus -> Maybe Text -> Maybe ISO8601 -> PartnerIntegrationInfo
+ Amazonka.Redshift.Types.PartnerIntegrationInfo: [$sel:createdAt:PartnerIntegrationInfo'] :: PartnerIntegrationInfo -> Maybe ISO8601
+ Amazonka.Redshift.Types.PartnerIntegrationInfo: [$sel:databaseName:PartnerIntegrationInfo'] :: PartnerIntegrationInfo -> Maybe Text
+ Amazonka.Redshift.Types.PartnerIntegrationInfo: [$sel:partnerName:PartnerIntegrationInfo'] :: PartnerIntegrationInfo -> Maybe Text
+ Amazonka.Redshift.Types.PartnerIntegrationInfo: [$sel:status:PartnerIntegrationInfo'] :: PartnerIntegrationInfo -> Maybe PartnerIntegrationStatus
+ Amazonka.Redshift.Types.PartnerIntegrationInfo: [$sel:statusMessage:PartnerIntegrationInfo'] :: PartnerIntegrationInfo -> Maybe Text
+ Amazonka.Redshift.Types.PartnerIntegrationInfo: [$sel:updatedAt:PartnerIntegrationInfo'] :: PartnerIntegrationInfo -> Maybe ISO8601
+ Amazonka.Redshift.Types.PartnerIntegrationInfo: data PartnerIntegrationInfo
+ Amazonka.Redshift.Types.PartnerIntegrationInfo: instance Amazonka.Data.XML.FromXML Amazonka.Redshift.Types.PartnerIntegrationInfo.PartnerIntegrationInfo
+ Amazonka.Redshift.Types.PartnerIntegrationInfo: instance Control.DeepSeq.NFData Amazonka.Redshift.Types.PartnerIntegrationInfo.PartnerIntegrationInfo
+ Amazonka.Redshift.Types.PartnerIntegrationInfo: instance Data.Hashable.Class.Hashable Amazonka.Redshift.Types.PartnerIntegrationInfo.PartnerIntegrationInfo
+ Amazonka.Redshift.Types.PartnerIntegrationInfo: instance GHC.Classes.Eq Amazonka.Redshift.Types.PartnerIntegrationInfo.PartnerIntegrationInfo
+ Amazonka.Redshift.Types.PartnerIntegrationInfo: instance GHC.Generics.Generic Amazonka.Redshift.Types.PartnerIntegrationInfo.PartnerIntegrationInfo
+ Amazonka.Redshift.Types.PartnerIntegrationInfo: instance GHC.Read.Read Amazonka.Redshift.Types.PartnerIntegrationInfo.PartnerIntegrationInfo
+ Amazonka.Redshift.Types.PartnerIntegrationInfo: instance GHC.Show.Show Amazonka.Redshift.Types.PartnerIntegrationInfo.PartnerIntegrationInfo
+ Amazonka.Redshift.Types.PartnerIntegrationInfo: newPartnerIntegrationInfo :: PartnerIntegrationInfo
+ Amazonka.Redshift.Types.PartnerIntegrationInfo: partnerIntegrationInfo_createdAt :: Lens' PartnerIntegrationInfo (Maybe UTCTime)
+ Amazonka.Redshift.Types.PartnerIntegrationInfo: partnerIntegrationInfo_databaseName :: Lens' PartnerIntegrationInfo (Maybe Text)
+ Amazonka.Redshift.Types.PartnerIntegrationInfo: partnerIntegrationInfo_partnerName :: Lens' PartnerIntegrationInfo (Maybe Text)
+ Amazonka.Redshift.Types.PartnerIntegrationInfo: partnerIntegrationInfo_status :: Lens' PartnerIntegrationInfo (Maybe PartnerIntegrationStatus)
+ Amazonka.Redshift.Types.PartnerIntegrationInfo: partnerIntegrationInfo_statusMessage :: Lens' PartnerIntegrationInfo (Maybe Text)
+ Amazonka.Redshift.Types.PartnerIntegrationInfo: partnerIntegrationInfo_updatedAt :: Lens' PartnerIntegrationInfo (Maybe UTCTime)
+ Amazonka.Redshift.Types.PartnerIntegrationInputMessage: PartnerIntegrationInputMessage' :: Text -> Text -> Text -> Text -> PartnerIntegrationInputMessage
+ Amazonka.Redshift.Types.PartnerIntegrationInputMessage: [$sel:accountId:PartnerIntegrationInputMessage'] :: PartnerIntegrationInputMessage -> Text
+ Amazonka.Redshift.Types.PartnerIntegrationInputMessage: [$sel:clusterIdentifier:PartnerIntegrationInputMessage'] :: PartnerIntegrationInputMessage -> Text
+ Amazonka.Redshift.Types.PartnerIntegrationInputMessage: [$sel:databaseName:PartnerIntegrationInputMessage'] :: PartnerIntegrationInputMessage -> Text
+ Amazonka.Redshift.Types.PartnerIntegrationInputMessage: [$sel:partnerName:PartnerIntegrationInputMessage'] :: PartnerIntegrationInputMessage -> Text
+ Amazonka.Redshift.Types.PartnerIntegrationInputMessage: data PartnerIntegrationInputMessage
+ Amazonka.Redshift.Types.PartnerIntegrationInputMessage: instance Amazonka.Data.Query.ToQuery Amazonka.Redshift.Types.PartnerIntegrationInputMessage.PartnerIntegrationInputMessage
+ Amazonka.Redshift.Types.PartnerIntegrationInputMessage: instance Control.DeepSeq.NFData Amazonka.Redshift.Types.PartnerIntegrationInputMessage.PartnerIntegrationInputMessage
+ Amazonka.Redshift.Types.PartnerIntegrationInputMessage: instance Data.Hashable.Class.Hashable Amazonka.Redshift.Types.PartnerIntegrationInputMessage.PartnerIntegrationInputMessage
+ Amazonka.Redshift.Types.PartnerIntegrationInputMessage: instance GHC.Classes.Eq Amazonka.Redshift.Types.PartnerIntegrationInputMessage.PartnerIntegrationInputMessage
+ Amazonka.Redshift.Types.PartnerIntegrationInputMessage: instance GHC.Generics.Generic Amazonka.Redshift.Types.PartnerIntegrationInputMessage.PartnerIntegrationInputMessage
+ Amazonka.Redshift.Types.PartnerIntegrationInputMessage: instance GHC.Read.Read Amazonka.Redshift.Types.PartnerIntegrationInputMessage.PartnerIntegrationInputMessage
+ Amazonka.Redshift.Types.PartnerIntegrationInputMessage: instance GHC.Show.Show Amazonka.Redshift.Types.PartnerIntegrationInputMessage.PartnerIntegrationInputMessage
+ Amazonka.Redshift.Types.PartnerIntegrationInputMessage: newPartnerIntegrationInputMessage :: Text -> Text -> Text -> Text -> PartnerIntegrationInputMessage
+ Amazonka.Redshift.Types.PartnerIntegrationInputMessage: partnerIntegrationInputMessage_accountId :: Lens' PartnerIntegrationInputMessage Text
+ Amazonka.Redshift.Types.PartnerIntegrationInputMessage: partnerIntegrationInputMessage_clusterIdentifier :: Lens' PartnerIntegrationInputMessage Text
+ Amazonka.Redshift.Types.PartnerIntegrationInputMessage: partnerIntegrationInputMessage_databaseName :: Lens' PartnerIntegrationInputMessage Text
+ Amazonka.Redshift.Types.PartnerIntegrationInputMessage: partnerIntegrationInputMessage_partnerName :: Lens' PartnerIntegrationInputMessage Text
+ Amazonka.Redshift.Types.PartnerIntegrationOutputMessage: PartnerIntegrationOutputMessage' :: Maybe Text -> Maybe Text -> PartnerIntegrationOutputMessage
+ Amazonka.Redshift.Types.PartnerIntegrationOutputMessage: [$sel:databaseName:PartnerIntegrationOutputMessage'] :: PartnerIntegrationOutputMessage -> Maybe Text
+ Amazonka.Redshift.Types.PartnerIntegrationOutputMessage: [$sel:partnerName:PartnerIntegrationOutputMessage'] :: PartnerIntegrationOutputMessage -> Maybe Text
+ Amazonka.Redshift.Types.PartnerIntegrationOutputMessage: data PartnerIntegrationOutputMessage
+ Amazonka.Redshift.Types.PartnerIntegrationOutputMessage: instance Amazonka.Data.XML.FromXML Amazonka.Redshift.Types.PartnerIntegrationOutputMessage.PartnerIntegrationOutputMessage
+ Amazonka.Redshift.Types.PartnerIntegrationOutputMessage: instance Control.DeepSeq.NFData Amazonka.Redshift.Types.PartnerIntegrationOutputMessage.PartnerIntegrationOutputMessage
+ Amazonka.Redshift.Types.PartnerIntegrationOutputMessage: instance Data.Hashable.Class.Hashable Amazonka.Redshift.Types.PartnerIntegrationOutputMessage.PartnerIntegrationOutputMessage
+ Amazonka.Redshift.Types.PartnerIntegrationOutputMessage: instance GHC.Classes.Eq Amazonka.Redshift.Types.PartnerIntegrationOutputMessage.PartnerIntegrationOutputMessage
+ Amazonka.Redshift.Types.PartnerIntegrationOutputMessage: instance GHC.Generics.Generic Amazonka.Redshift.Types.PartnerIntegrationOutputMessage.PartnerIntegrationOutputMessage
+ Amazonka.Redshift.Types.PartnerIntegrationOutputMessage: instance GHC.Read.Read Amazonka.Redshift.Types.PartnerIntegrationOutputMessage.PartnerIntegrationOutputMessage
+ Amazonka.Redshift.Types.PartnerIntegrationOutputMessage: instance GHC.Show.Show Amazonka.Redshift.Types.PartnerIntegrationOutputMessage.PartnerIntegrationOutputMessage
+ Amazonka.Redshift.Types.PartnerIntegrationOutputMessage: newPartnerIntegrationOutputMessage :: PartnerIntegrationOutputMessage
+ Amazonka.Redshift.Types.PartnerIntegrationOutputMessage: partnerIntegrationOutputMessage_databaseName :: Lens' PartnerIntegrationOutputMessage (Maybe Text)
+ Amazonka.Redshift.Types.PartnerIntegrationOutputMessage: partnerIntegrationOutputMessage_partnerName :: Lens' PartnerIntegrationOutputMessage (Maybe Text)
+ Amazonka.Redshift.Types.PartnerIntegrationStatus: PartnerIntegrationStatus' :: Text -> PartnerIntegrationStatus
+ Amazonka.Redshift.Types.PartnerIntegrationStatus: [fromPartnerIntegrationStatus] :: PartnerIntegrationStatus -> Text
+ Amazonka.Redshift.Types.PartnerIntegrationStatus: instance Amazonka.Data.ByteString.ToByteString Amazonka.Redshift.Types.PartnerIntegrationStatus.PartnerIntegrationStatus
+ Amazonka.Redshift.Types.PartnerIntegrationStatus: instance Amazonka.Data.Headers.ToHeader Amazonka.Redshift.Types.PartnerIntegrationStatus.PartnerIntegrationStatus
+ Amazonka.Redshift.Types.PartnerIntegrationStatus: instance Amazonka.Data.Log.ToLog Amazonka.Redshift.Types.PartnerIntegrationStatus.PartnerIntegrationStatus
+ Amazonka.Redshift.Types.PartnerIntegrationStatus: instance Amazonka.Data.Query.ToQuery Amazonka.Redshift.Types.PartnerIntegrationStatus.PartnerIntegrationStatus
+ Amazonka.Redshift.Types.PartnerIntegrationStatus: instance Amazonka.Data.Text.FromText Amazonka.Redshift.Types.PartnerIntegrationStatus.PartnerIntegrationStatus
+ Amazonka.Redshift.Types.PartnerIntegrationStatus: instance Amazonka.Data.Text.ToText Amazonka.Redshift.Types.PartnerIntegrationStatus.PartnerIntegrationStatus
+ Amazonka.Redshift.Types.PartnerIntegrationStatus: instance Amazonka.Data.XML.FromXML Amazonka.Redshift.Types.PartnerIntegrationStatus.PartnerIntegrationStatus
+ Amazonka.Redshift.Types.PartnerIntegrationStatus: instance Amazonka.Data.XML.ToXML Amazonka.Redshift.Types.PartnerIntegrationStatus.PartnerIntegrationStatus
+ Amazonka.Redshift.Types.PartnerIntegrationStatus: instance Control.DeepSeq.NFData Amazonka.Redshift.Types.PartnerIntegrationStatus.PartnerIntegrationStatus
+ Amazonka.Redshift.Types.PartnerIntegrationStatus: instance Data.Aeson.Types.FromJSON.FromJSON Amazonka.Redshift.Types.PartnerIntegrationStatus.PartnerIntegrationStatus
+ Amazonka.Redshift.Types.PartnerIntegrationStatus: instance Data.Aeson.Types.FromJSON.FromJSONKey Amazonka.Redshift.Types.PartnerIntegrationStatus.PartnerIntegrationStatus
+ Amazonka.Redshift.Types.PartnerIntegrationStatus: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.Redshift.Types.PartnerIntegrationStatus.PartnerIntegrationStatus
+ Amazonka.Redshift.Types.PartnerIntegrationStatus: instance Data.Aeson.Types.ToJSON.ToJSONKey Amazonka.Redshift.Types.PartnerIntegrationStatus.PartnerIntegrationStatus
+ Amazonka.Redshift.Types.PartnerIntegrationStatus: instance Data.Hashable.Class.Hashable Amazonka.Redshift.Types.PartnerIntegrationStatus.PartnerIntegrationStatus
+ Amazonka.Redshift.Types.PartnerIntegrationStatus: instance GHC.Classes.Eq Amazonka.Redshift.Types.PartnerIntegrationStatus.PartnerIntegrationStatus
+ Amazonka.Redshift.Types.PartnerIntegrationStatus: instance GHC.Classes.Ord Amazonka.Redshift.Types.PartnerIntegrationStatus.PartnerIntegrationStatus
+ Amazonka.Redshift.Types.PartnerIntegrationStatus: instance GHC.Generics.Generic Amazonka.Redshift.Types.PartnerIntegrationStatus.PartnerIntegrationStatus
+ Amazonka.Redshift.Types.PartnerIntegrationStatus: instance GHC.Read.Read Amazonka.Redshift.Types.PartnerIntegrationStatus.PartnerIntegrationStatus
+ Amazonka.Redshift.Types.PartnerIntegrationStatus: instance GHC.Show.Show Amazonka.Redshift.Types.PartnerIntegrationStatus.PartnerIntegrationStatus
+ Amazonka.Redshift.Types.PartnerIntegrationStatus: newtype PartnerIntegrationStatus
+ Amazonka.Redshift.Types.PartnerIntegrationStatus: pattern PartnerIntegrationStatus_Active :: PartnerIntegrationStatus
+ Amazonka.Redshift.Types.PartnerIntegrationStatus: pattern PartnerIntegrationStatus_ConnectionFailure :: PartnerIntegrationStatus
+ Amazonka.Redshift.Types.PartnerIntegrationStatus: pattern PartnerIntegrationStatus_Inactive :: PartnerIntegrationStatus
+ Amazonka.Redshift.Types.PartnerIntegrationStatus: pattern PartnerIntegrationStatus_RuntimeFailure :: PartnerIntegrationStatus
+ Amazonka.Redshift.Types.PauseClusterMessage: PauseClusterMessage' :: Text -> PauseClusterMessage
+ Amazonka.Redshift.Types.PauseClusterMessage: [$sel:clusterIdentifier:PauseClusterMessage'] :: PauseClusterMessage -> Text
+ Amazonka.Redshift.Types.PauseClusterMessage: data PauseClusterMessage
+ Amazonka.Redshift.Types.PauseClusterMessage: instance Amazonka.Data.Query.ToQuery Amazonka.Redshift.Types.PauseClusterMessage.PauseClusterMessage
+ Amazonka.Redshift.Types.PauseClusterMessage: instance Amazonka.Data.XML.FromXML Amazonka.Redshift.Types.PauseClusterMessage.PauseClusterMessage
+ Amazonka.Redshift.Types.PauseClusterMessage: instance Control.DeepSeq.NFData Amazonka.Redshift.Types.PauseClusterMessage.PauseClusterMessage
+ Amazonka.Redshift.Types.PauseClusterMessage: instance Data.Hashable.Class.Hashable Amazonka.Redshift.Types.PauseClusterMessage.PauseClusterMessage
+ Amazonka.Redshift.Types.PauseClusterMessage: instance GHC.Classes.Eq Amazonka.Redshift.Types.PauseClusterMessage.PauseClusterMessage
+ Amazonka.Redshift.Types.PauseClusterMessage: instance GHC.Generics.Generic Amazonka.Redshift.Types.PauseClusterMessage.PauseClusterMessage
+ Amazonka.Redshift.Types.PauseClusterMessage: instance GHC.Read.Read Amazonka.Redshift.Types.PauseClusterMessage.PauseClusterMessage
+ Amazonka.Redshift.Types.PauseClusterMessage: instance GHC.Show.Show Amazonka.Redshift.Types.PauseClusterMessage.PauseClusterMessage
+ Amazonka.Redshift.Types.PauseClusterMessage: newPauseClusterMessage :: Text -> PauseClusterMessage
+ Amazonka.Redshift.Types.PauseClusterMessage: pauseClusterMessage_clusterIdentifier :: Lens' PauseClusterMessage Text
+ Amazonka.Redshift.Types.PendingModifiedValues: PendingModifiedValues' :: Maybe Int -> Maybe Text -> Maybe Text -> Maybe Text -> Maybe Text -> Maybe Bool -> Maybe Text -> Maybe Text -> Maybe Text -> Maybe Int -> Maybe Bool -> PendingModifiedValues
+ Amazonka.Redshift.Types.PendingModifiedValues: [$sel:automatedSnapshotRetentionPeriod:PendingModifiedValues'] :: PendingModifiedValues -> Maybe Int
+ Amazonka.Redshift.Types.PendingModifiedValues: [$sel:clusterIdentifier:PendingModifiedValues'] :: PendingModifiedValues -> Maybe Text
+ Amazonka.Redshift.Types.PendingModifiedValues: [$sel:clusterType:PendingModifiedValues'] :: PendingModifiedValues -> Maybe Text
+ Amazonka.Redshift.Types.PendingModifiedValues: [$sel:clusterVersion:PendingModifiedValues'] :: PendingModifiedValues -> Maybe Text
+ Amazonka.Redshift.Types.PendingModifiedValues: [$sel:encryptionType:PendingModifiedValues'] :: PendingModifiedValues -> Maybe Text
+ Amazonka.Redshift.Types.PendingModifiedValues: [$sel:enhancedVpcRouting:PendingModifiedValues'] :: PendingModifiedValues -> Maybe Bool
+ Amazonka.Redshift.Types.PendingModifiedValues: [$sel:maintenanceTrackName:PendingModifiedValues'] :: PendingModifiedValues -> Maybe Text
+ Amazonka.Redshift.Types.PendingModifiedValues: [$sel:masterUserPassword:PendingModifiedValues'] :: PendingModifiedValues -> Maybe Text
+ Amazonka.Redshift.Types.PendingModifiedValues: [$sel:nodeType:PendingModifiedValues'] :: PendingModifiedValues -> Maybe Text
+ Amazonka.Redshift.Types.PendingModifiedValues: [$sel:numberOfNodes:PendingModifiedValues'] :: PendingModifiedValues -> Maybe Int
+ Amazonka.Redshift.Types.PendingModifiedValues: [$sel:publiclyAccessible:PendingModifiedValues'] :: PendingModifiedValues -> Maybe Bool
+ Amazonka.Redshift.Types.PendingModifiedValues: data PendingModifiedValues
+ Amazonka.Redshift.Types.PendingModifiedValues: instance Amazonka.Data.XML.FromXML Amazonka.Redshift.Types.PendingModifiedValues.PendingModifiedValues
+ Amazonka.Redshift.Types.PendingModifiedValues: instance Control.DeepSeq.NFData Amazonka.Redshift.Types.PendingModifiedValues.PendingModifiedValues
+ Amazonka.Redshift.Types.PendingModifiedValues: instance Data.Hashable.Class.Hashable Amazonka.Redshift.Types.PendingModifiedValues.PendingModifiedValues
+ Amazonka.Redshift.Types.PendingModifiedValues: instance GHC.Classes.Eq Amazonka.Redshift.Types.PendingModifiedValues.PendingModifiedValues
+ Amazonka.Redshift.Types.PendingModifiedValues: instance GHC.Generics.Generic Amazonka.Redshift.Types.PendingModifiedValues.PendingModifiedValues
+ Amazonka.Redshift.Types.PendingModifiedValues: instance GHC.Read.Read Amazonka.Redshift.Types.PendingModifiedValues.PendingModifiedValues
+ Amazonka.Redshift.Types.PendingModifiedValues: instance GHC.Show.Show Amazonka.Redshift.Types.PendingModifiedValues.PendingModifiedValues
+ Amazonka.Redshift.Types.PendingModifiedValues: newPendingModifiedValues :: PendingModifiedValues
+ Amazonka.Redshift.Types.PendingModifiedValues: pendingModifiedValues_automatedSnapshotRetentionPeriod :: Lens' PendingModifiedValues (Maybe Int)
+ Amazonka.Redshift.Types.PendingModifiedValues: pendingModifiedValues_clusterIdentifier :: Lens' PendingModifiedValues (Maybe Text)
+ Amazonka.Redshift.Types.PendingModifiedValues: pendingModifiedValues_clusterType :: Lens' PendingModifiedValues (Maybe Text)
+ Amazonka.Redshift.Types.PendingModifiedValues: pendingModifiedValues_clusterVersion :: Lens' PendingModifiedValues (Maybe Text)
+ Amazonka.Redshift.Types.PendingModifiedValues: pendingModifiedValues_encryptionType :: Lens' PendingModifiedValues (Maybe Text)
+ Amazonka.Redshift.Types.PendingModifiedValues: pendingModifiedValues_enhancedVpcRouting :: Lens' PendingModifiedValues (Maybe Bool)
+ Amazonka.Redshift.Types.PendingModifiedValues: pendingModifiedValues_maintenanceTrackName :: Lens' PendingModifiedValues (Maybe Text)
+ Amazonka.Redshift.Types.PendingModifiedValues: pendingModifiedValues_masterUserPassword :: Lens' PendingModifiedValues (Maybe Text)
+ Amazonka.Redshift.Types.PendingModifiedValues: pendingModifiedValues_nodeType :: Lens' PendingModifiedValues (Maybe Text)
+ Amazonka.Redshift.Types.PendingModifiedValues: pendingModifiedValues_numberOfNodes :: Lens' PendingModifiedValues (Maybe Int)
+ Amazonka.Redshift.Types.PendingModifiedValues: pendingModifiedValues_publiclyAccessible :: Lens' PendingModifiedValues (Maybe Bool)
+ Amazonka.Redshift.Types.RecurringCharge: RecurringCharge' :: Maybe Double -> Maybe Text -> RecurringCharge
+ Amazonka.Redshift.Types.RecurringCharge: [$sel:recurringChargeAmount:RecurringCharge'] :: RecurringCharge -> Maybe Double
+ Amazonka.Redshift.Types.RecurringCharge: [$sel:recurringChargeFrequency:RecurringCharge'] :: RecurringCharge -> Maybe Text
+ Amazonka.Redshift.Types.RecurringCharge: data RecurringCharge
+ Amazonka.Redshift.Types.RecurringCharge: instance Amazonka.Data.XML.FromXML Amazonka.Redshift.Types.RecurringCharge.RecurringCharge
+ Amazonka.Redshift.Types.RecurringCharge: instance Control.DeepSeq.NFData Amazonka.Redshift.Types.RecurringCharge.RecurringCharge
+ Amazonka.Redshift.Types.RecurringCharge: instance Data.Hashable.Class.Hashable Amazonka.Redshift.Types.RecurringCharge.RecurringCharge
+ Amazonka.Redshift.Types.RecurringCharge: instance GHC.Classes.Eq Amazonka.Redshift.Types.RecurringCharge.RecurringCharge
+ Amazonka.Redshift.Types.RecurringCharge: instance GHC.Generics.Generic Amazonka.Redshift.Types.RecurringCharge.RecurringCharge
+ Amazonka.Redshift.Types.RecurringCharge: instance GHC.Read.Read Amazonka.Redshift.Types.RecurringCharge.RecurringCharge
+ Amazonka.Redshift.Types.RecurringCharge: instance GHC.Show.Show Amazonka.Redshift.Types.RecurringCharge.RecurringCharge
+ Amazonka.Redshift.Types.RecurringCharge: newRecurringCharge :: RecurringCharge
+ Amazonka.Redshift.Types.RecurringCharge: recurringCharge_recurringChargeAmount :: Lens' RecurringCharge (Maybe Double)
+ Amazonka.Redshift.Types.RecurringCharge: recurringCharge_recurringChargeFrequency :: Lens' RecurringCharge (Maybe Text)
+ Amazonka.Redshift.Types.ReservedNode: ReservedNode' :: Maybe Text -> Maybe Int -> Maybe Double -> Maybe Int -> Maybe Text -> Maybe Text -> Maybe [RecurringCharge] -> Maybe Text -> Maybe Text -> Maybe ReservedNodeOfferingType -> Maybe ISO8601 -> Maybe Text -> Maybe Double -> ReservedNode
+ Amazonka.Redshift.Types.ReservedNode: [$sel:currencyCode:ReservedNode'] :: ReservedNode -> Maybe Text
+ Amazonka.Redshift.Types.ReservedNode: [$sel:duration:ReservedNode'] :: ReservedNode -> Maybe Int
+ Amazonka.Redshift.Types.ReservedNode: [$sel:fixedPrice:ReservedNode'] :: ReservedNode -> Maybe Double
+ Amazonka.Redshift.Types.ReservedNode: [$sel:nodeCount:ReservedNode'] :: ReservedNode -> Maybe Int
+ Amazonka.Redshift.Types.ReservedNode: [$sel:nodeType:ReservedNode'] :: ReservedNode -> Maybe Text
+ Amazonka.Redshift.Types.ReservedNode: [$sel:offeringType:ReservedNode'] :: ReservedNode -> Maybe Text
+ Amazonka.Redshift.Types.ReservedNode: [$sel:recurringCharges:ReservedNode'] :: ReservedNode -> Maybe [RecurringCharge]
+ Amazonka.Redshift.Types.ReservedNode: [$sel:reservedNodeId:ReservedNode'] :: ReservedNode -> Maybe Text
+ Amazonka.Redshift.Types.ReservedNode: [$sel:reservedNodeOfferingId:ReservedNode'] :: ReservedNode -> Maybe Text
+ Amazonka.Redshift.Types.ReservedNode: [$sel:reservedNodeOfferingType:ReservedNode'] :: ReservedNode -> Maybe ReservedNodeOfferingType
+ Amazonka.Redshift.Types.ReservedNode: [$sel:startTime:ReservedNode'] :: ReservedNode -> Maybe ISO8601
+ Amazonka.Redshift.Types.ReservedNode: [$sel:state:ReservedNode'] :: ReservedNode -> Maybe Text
+ Amazonka.Redshift.Types.ReservedNode: [$sel:usagePrice:ReservedNode'] :: ReservedNode -> Maybe Double
+ Amazonka.Redshift.Types.ReservedNode: data ReservedNode
+ Amazonka.Redshift.Types.ReservedNode: instance Amazonka.Data.XML.FromXML Amazonka.Redshift.Types.ReservedNode.ReservedNode
+ Amazonka.Redshift.Types.ReservedNode: instance Control.DeepSeq.NFData Amazonka.Redshift.Types.ReservedNode.ReservedNode
+ Amazonka.Redshift.Types.ReservedNode: instance Data.Hashable.Class.Hashable Amazonka.Redshift.Types.ReservedNode.ReservedNode
+ Amazonka.Redshift.Types.ReservedNode: instance GHC.Classes.Eq Amazonka.Redshift.Types.ReservedNode.ReservedNode
+ Amazonka.Redshift.Types.ReservedNode: instance GHC.Generics.Generic Amazonka.Redshift.Types.ReservedNode.ReservedNode
+ Amazonka.Redshift.Types.ReservedNode: instance GHC.Read.Read Amazonka.Redshift.Types.ReservedNode.ReservedNode
+ Amazonka.Redshift.Types.ReservedNode: instance GHC.Show.Show Amazonka.Redshift.Types.ReservedNode.ReservedNode
+ Amazonka.Redshift.Types.ReservedNode: newReservedNode :: ReservedNode
+ Amazonka.Redshift.Types.ReservedNode: reservedNode_currencyCode :: Lens' ReservedNode (Maybe Text)
+ Amazonka.Redshift.Types.ReservedNode: reservedNode_duration :: Lens' ReservedNode (Maybe Int)
+ Amazonka.Redshift.Types.ReservedNode: reservedNode_fixedPrice :: Lens' ReservedNode (Maybe Double)
+ Amazonka.Redshift.Types.ReservedNode: reservedNode_nodeCount :: Lens' ReservedNode (Maybe Int)
+ Amazonka.Redshift.Types.ReservedNode: reservedNode_nodeType :: Lens' ReservedNode (Maybe Text)
+ Amazonka.Redshift.Types.ReservedNode: reservedNode_offeringType :: Lens' ReservedNode (Maybe Text)
+ Amazonka.Redshift.Types.ReservedNode: reservedNode_recurringCharges :: Lens' ReservedNode (Maybe [RecurringCharge])
+ Amazonka.Redshift.Types.ReservedNode: reservedNode_reservedNodeId :: Lens' ReservedNode (Maybe Text)
+ Amazonka.Redshift.Types.ReservedNode: reservedNode_reservedNodeOfferingId :: Lens' ReservedNode (Maybe Text)
+ Amazonka.Redshift.Types.ReservedNode: reservedNode_reservedNodeOfferingType :: Lens' ReservedNode (Maybe ReservedNodeOfferingType)
+ Amazonka.Redshift.Types.ReservedNode: reservedNode_startTime :: Lens' ReservedNode (Maybe UTCTime)
+ Amazonka.Redshift.Types.ReservedNode: reservedNode_state :: Lens' ReservedNode (Maybe Text)
+ Amazonka.Redshift.Types.ReservedNode: reservedNode_usagePrice :: Lens' ReservedNode (Maybe Double)
+ Amazonka.Redshift.Types.ReservedNodeConfigurationOption: ReservedNodeConfigurationOption' :: Maybe ReservedNode -> Maybe Int -> Maybe ReservedNodeOffering -> ReservedNodeConfigurationOption
+ Amazonka.Redshift.Types.ReservedNodeConfigurationOption: [$sel:sourceReservedNode:ReservedNodeConfigurationOption'] :: ReservedNodeConfigurationOption -> Maybe ReservedNode
+ Amazonka.Redshift.Types.ReservedNodeConfigurationOption: [$sel:targetReservedNodeCount:ReservedNodeConfigurationOption'] :: ReservedNodeConfigurationOption -> Maybe Int
+ Amazonka.Redshift.Types.ReservedNodeConfigurationOption: [$sel:targetReservedNodeOffering:ReservedNodeConfigurationOption'] :: ReservedNodeConfigurationOption -> Maybe ReservedNodeOffering
+ Amazonka.Redshift.Types.ReservedNodeConfigurationOption: data ReservedNodeConfigurationOption
+ Amazonka.Redshift.Types.ReservedNodeConfigurationOption: instance Amazonka.Data.XML.FromXML Amazonka.Redshift.Types.ReservedNodeConfigurationOption.ReservedNodeConfigurationOption
+ Amazonka.Redshift.Types.ReservedNodeConfigurationOption: instance Control.DeepSeq.NFData Amazonka.Redshift.Types.ReservedNodeConfigurationOption.ReservedNodeConfigurationOption
+ Amazonka.Redshift.Types.ReservedNodeConfigurationOption: instance Data.Hashable.Class.Hashable Amazonka.Redshift.Types.ReservedNodeConfigurationOption.ReservedNodeConfigurationOption
+ Amazonka.Redshift.Types.ReservedNodeConfigurationOption: instance GHC.Classes.Eq Amazonka.Redshift.Types.ReservedNodeConfigurationOption.ReservedNodeConfigurationOption
+ Amazonka.Redshift.Types.ReservedNodeConfigurationOption: instance GHC.Generics.Generic Amazonka.Redshift.Types.ReservedNodeConfigurationOption.ReservedNodeConfigurationOption
+ Amazonka.Redshift.Types.ReservedNodeConfigurationOption: instance GHC.Read.Read Amazonka.Redshift.Types.ReservedNodeConfigurationOption.ReservedNodeConfigurationOption
+ Amazonka.Redshift.Types.ReservedNodeConfigurationOption: instance GHC.Show.Show Amazonka.Redshift.Types.ReservedNodeConfigurationOption.ReservedNodeConfigurationOption
+ Amazonka.Redshift.Types.ReservedNodeConfigurationOption: newReservedNodeConfigurationOption :: ReservedNodeConfigurationOption
+ Amazonka.Redshift.Types.ReservedNodeConfigurationOption: reservedNodeConfigurationOption_sourceReservedNode :: Lens' ReservedNodeConfigurationOption (Maybe ReservedNode)
+ Amazonka.Redshift.Types.ReservedNodeConfigurationOption: reservedNodeConfigurationOption_targetReservedNodeCount :: Lens' ReservedNodeConfigurationOption (Maybe Int)
+ Amazonka.Redshift.Types.ReservedNodeConfigurationOption: reservedNodeConfigurationOption_targetReservedNodeOffering :: Lens' ReservedNodeConfigurationOption (Maybe ReservedNodeOffering)
+ Amazonka.Redshift.Types.ReservedNodeExchangeActionType: ReservedNodeExchangeActionType' :: Text -> ReservedNodeExchangeActionType
+ Amazonka.Redshift.Types.ReservedNodeExchangeActionType: [fromReservedNodeExchangeActionType] :: ReservedNodeExchangeActionType -> Text
+ Amazonka.Redshift.Types.ReservedNodeExchangeActionType: instance Amazonka.Data.ByteString.ToByteString Amazonka.Redshift.Types.ReservedNodeExchangeActionType.ReservedNodeExchangeActionType
+ Amazonka.Redshift.Types.ReservedNodeExchangeActionType: instance Amazonka.Data.Headers.ToHeader Amazonka.Redshift.Types.ReservedNodeExchangeActionType.ReservedNodeExchangeActionType
+ Amazonka.Redshift.Types.ReservedNodeExchangeActionType: instance Amazonka.Data.Log.ToLog Amazonka.Redshift.Types.ReservedNodeExchangeActionType.ReservedNodeExchangeActionType
+ Amazonka.Redshift.Types.ReservedNodeExchangeActionType: instance Amazonka.Data.Query.ToQuery Amazonka.Redshift.Types.ReservedNodeExchangeActionType.ReservedNodeExchangeActionType
+ Amazonka.Redshift.Types.ReservedNodeExchangeActionType: instance Amazonka.Data.Text.FromText Amazonka.Redshift.Types.ReservedNodeExchangeActionType.ReservedNodeExchangeActionType
+ Amazonka.Redshift.Types.ReservedNodeExchangeActionType: instance Amazonka.Data.Text.ToText Amazonka.Redshift.Types.ReservedNodeExchangeActionType.ReservedNodeExchangeActionType
+ Amazonka.Redshift.Types.ReservedNodeExchangeActionType: instance Amazonka.Data.XML.FromXML Amazonka.Redshift.Types.ReservedNodeExchangeActionType.ReservedNodeExchangeActionType
+ Amazonka.Redshift.Types.ReservedNodeExchangeActionType: instance Amazonka.Data.XML.ToXML Amazonka.Redshift.Types.ReservedNodeExchangeActionType.ReservedNodeExchangeActionType
+ Amazonka.Redshift.Types.ReservedNodeExchangeActionType: instance Control.DeepSeq.NFData Amazonka.Redshift.Types.ReservedNodeExchangeActionType.ReservedNodeExchangeActionType
+ Amazonka.Redshift.Types.ReservedNodeExchangeActionType: instance Data.Aeson.Types.FromJSON.FromJSON Amazonka.Redshift.Types.ReservedNodeExchangeActionType.ReservedNodeExchangeActionType
+ Amazonka.Redshift.Types.ReservedNodeExchangeActionType: instance Data.Aeson.Types.FromJSON.FromJSONKey Amazonka.Redshift.Types.ReservedNodeExchangeActionType.ReservedNodeExchangeActionType
+ Amazonka.Redshift.Types.ReservedNodeExchangeActionType: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.Redshift.Types.ReservedNodeExchangeActionType.ReservedNodeExchangeActionType
+ Amazonka.Redshift.Types.ReservedNodeExchangeActionType: instance Data.Aeson.Types.ToJSON.ToJSONKey Amazonka.Redshift.Types.ReservedNodeExchangeActionType.ReservedNodeExchangeActionType
+ Amazonka.Redshift.Types.ReservedNodeExchangeActionType: instance Data.Hashable.Class.Hashable Amazonka.Redshift.Types.ReservedNodeExchangeActionType.ReservedNodeExchangeActionType
+ Amazonka.Redshift.Types.ReservedNodeExchangeActionType: instance GHC.Classes.Eq Amazonka.Redshift.Types.ReservedNodeExchangeActionType.ReservedNodeExchangeActionType
+ Amazonka.Redshift.Types.ReservedNodeExchangeActionType: instance GHC.Classes.Ord Amazonka.Redshift.Types.ReservedNodeExchangeActionType.ReservedNodeExchangeActionType
+ Amazonka.Redshift.Types.ReservedNodeExchangeActionType: instance GHC.Generics.Generic Amazonka.Redshift.Types.ReservedNodeExchangeActionType.ReservedNodeExchangeActionType
+ Amazonka.Redshift.Types.ReservedNodeExchangeActionType: instance GHC.Read.Read Amazonka.Redshift.Types.ReservedNodeExchangeActionType.ReservedNodeExchangeActionType
+ Amazonka.Redshift.Types.ReservedNodeExchangeActionType: instance GHC.Show.Show Amazonka.Redshift.Types.ReservedNodeExchangeActionType.ReservedNodeExchangeActionType
+ Amazonka.Redshift.Types.ReservedNodeExchangeActionType: newtype ReservedNodeExchangeActionType
+ Amazonka.Redshift.Types.ReservedNodeExchangeActionType: pattern ReservedNodeExchangeActionType_Resize_cluster :: ReservedNodeExchangeActionType
+ Amazonka.Redshift.Types.ReservedNodeExchangeActionType: pattern ReservedNodeExchangeActionType_Restore_cluster :: ReservedNodeExchangeActionType
+ Amazonka.Redshift.Types.ReservedNodeExchangeStatus: ReservedNodeExchangeStatus' :: Maybe ISO8601 -> Maybe Text -> Maybe Int -> Maybe Text -> Maybe Text -> Maybe ReservedNodeExchangeStatusType -> Maybe Int -> Maybe Text -> Maybe Text -> ReservedNodeExchangeStatus
+ Amazonka.Redshift.Types.ReservedNodeExchangeStatus: [$sel:requestTime:ReservedNodeExchangeStatus'] :: ReservedNodeExchangeStatus -> Maybe ISO8601
+ Amazonka.Redshift.Types.ReservedNodeExchangeStatus: [$sel:reservedNodeExchangeRequestId:ReservedNodeExchangeStatus'] :: ReservedNodeExchangeStatus -> Maybe Text
+ Amazonka.Redshift.Types.ReservedNodeExchangeStatus: [$sel:sourceReservedNodeCount:ReservedNodeExchangeStatus'] :: ReservedNodeExchangeStatus -> Maybe Int
+ Amazonka.Redshift.Types.ReservedNodeExchangeStatus: [$sel:sourceReservedNodeId:ReservedNodeExchangeStatus'] :: ReservedNodeExchangeStatus -> Maybe Text
+ Amazonka.Redshift.Types.ReservedNodeExchangeStatus: [$sel:sourceReservedNodeType:ReservedNodeExchangeStatus'] :: ReservedNodeExchangeStatus -> Maybe Text
+ Amazonka.Redshift.Types.ReservedNodeExchangeStatus: [$sel:status:ReservedNodeExchangeStatus'] :: ReservedNodeExchangeStatus -> Maybe ReservedNodeExchangeStatusType
+ Amazonka.Redshift.Types.ReservedNodeExchangeStatus: [$sel:targetReservedNodeCount:ReservedNodeExchangeStatus'] :: ReservedNodeExchangeStatus -> Maybe Int
+ Amazonka.Redshift.Types.ReservedNodeExchangeStatus: [$sel:targetReservedNodeOfferingId:ReservedNodeExchangeStatus'] :: ReservedNodeExchangeStatus -> Maybe Text
+ Amazonka.Redshift.Types.ReservedNodeExchangeStatus: [$sel:targetReservedNodeType:ReservedNodeExchangeStatus'] :: ReservedNodeExchangeStatus -> Maybe Text
+ Amazonka.Redshift.Types.ReservedNodeExchangeStatus: data ReservedNodeExchangeStatus
+ Amazonka.Redshift.Types.ReservedNodeExchangeStatus: instance Amazonka.Data.XML.FromXML Amazonka.Redshift.Types.ReservedNodeExchangeStatus.ReservedNodeExchangeStatus
+ Amazonka.Redshift.Types.ReservedNodeExchangeStatus: instance Control.DeepSeq.NFData Amazonka.Redshift.Types.ReservedNodeExchangeStatus.ReservedNodeExchangeStatus
+ Amazonka.Redshift.Types.ReservedNodeExchangeStatus: instance Data.Hashable.Class.Hashable Amazonka.Redshift.Types.ReservedNodeExchangeStatus.ReservedNodeExchangeStatus
+ Amazonka.Redshift.Types.ReservedNodeExchangeStatus: instance GHC.Classes.Eq Amazonka.Redshift.Types.ReservedNodeExchangeStatus.ReservedNodeExchangeStatus
+ Amazonka.Redshift.Types.ReservedNodeExchangeStatus: instance GHC.Generics.Generic Amazonka.Redshift.Types.ReservedNodeExchangeStatus.ReservedNodeExchangeStatus
+ Amazonka.Redshift.Types.ReservedNodeExchangeStatus: instance GHC.Read.Read Amazonka.Redshift.Types.ReservedNodeExchangeStatus.ReservedNodeExchangeStatus
+ Amazonka.Redshift.Types.ReservedNodeExchangeStatus: instance GHC.Show.Show Amazonka.Redshift.Types.ReservedNodeExchangeStatus.ReservedNodeExchangeStatus
+ Amazonka.Redshift.Types.ReservedNodeExchangeStatus: newReservedNodeExchangeStatus :: ReservedNodeExchangeStatus
+ Amazonka.Redshift.Types.ReservedNodeExchangeStatus: reservedNodeExchangeStatus_requestTime :: Lens' ReservedNodeExchangeStatus (Maybe UTCTime)
+ Amazonka.Redshift.Types.ReservedNodeExchangeStatus: reservedNodeExchangeStatus_reservedNodeExchangeRequestId :: Lens' ReservedNodeExchangeStatus (Maybe Text)
+ Amazonka.Redshift.Types.ReservedNodeExchangeStatus: reservedNodeExchangeStatus_sourceReservedNodeCount :: Lens' ReservedNodeExchangeStatus (Maybe Int)
+ Amazonka.Redshift.Types.ReservedNodeExchangeStatus: reservedNodeExchangeStatus_sourceReservedNodeId :: Lens' ReservedNodeExchangeStatus (Maybe Text)
+ Amazonka.Redshift.Types.ReservedNodeExchangeStatus: reservedNodeExchangeStatus_sourceReservedNodeType :: Lens' ReservedNodeExchangeStatus (Maybe Text)
+ Amazonka.Redshift.Types.ReservedNodeExchangeStatus: reservedNodeExchangeStatus_status :: Lens' ReservedNodeExchangeStatus (Maybe ReservedNodeExchangeStatusType)
+ Amazonka.Redshift.Types.ReservedNodeExchangeStatus: reservedNodeExchangeStatus_targetReservedNodeCount :: Lens' ReservedNodeExchangeStatus (Maybe Int)
+ Amazonka.Redshift.Types.ReservedNodeExchangeStatus: reservedNodeExchangeStatus_targetReservedNodeOfferingId :: Lens' ReservedNodeExchangeStatus (Maybe Text)
+ Amazonka.Redshift.Types.ReservedNodeExchangeStatus: reservedNodeExchangeStatus_targetReservedNodeType :: Lens' ReservedNodeExchangeStatus (Maybe Text)
+ Amazonka.Redshift.Types.ReservedNodeExchangeStatusType: ReservedNodeExchangeStatusType' :: Text -> ReservedNodeExchangeStatusType
+ Amazonka.Redshift.Types.ReservedNodeExchangeStatusType: [fromReservedNodeExchangeStatusType] :: ReservedNodeExchangeStatusType -> Text
+ Amazonka.Redshift.Types.ReservedNodeExchangeStatusType: instance Amazonka.Data.ByteString.ToByteString Amazonka.Redshift.Types.ReservedNodeExchangeStatusType.ReservedNodeExchangeStatusType
+ Amazonka.Redshift.Types.ReservedNodeExchangeStatusType: instance Amazonka.Data.Headers.ToHeader Amazonka.Redshift.Types.ReservedNodeExchangeStatusType.ReservedNodeExchangeStatusType
+ Amazonka.Redshift.Types.ReservedNodeExchangeStatusType: instance Amazonka.Data.Log.ToLog Amazonka.Redshift.Types.ReservedNodeExchangeStatusType.ReservedNodeExchangeStatusType
+ Amazonka.Redshift.Types.ReservedNodeExchangeStatusType: instance Amazonka.Data.Query.ToQuery Amazonka.Redshift.Types.ReservedNodeExchangeStatusType.ReservedNodeExchangeStatusType
+ Amazonka.Redshift.Types.ReservedNodeExchangeStatusType: instance Amazonka.Data.Text.FromText Amazonka.Redshift.Types.ReservedNodeExchangeStatusType.ReservedNodeExchangeStatusType
+ Amazonka.Redshift.Types.ReservedNodeExchangeStatusType: instance Amazonka.Data.Text.ToText Amazonka.Redshift.Types.ReservedNodeExchangeStatusType.ReservedNodeExchangeStatusType
+ Amazonka.Redshift.Types.ReservedNodeExchangeStatusType: instance Amazonka.Data.XML.FromXML Amazonka.Redshift.Types.ReservedNodeExchangeStatusType.ReservedNodeExchangeStatusType
+ Amazonka.Redshift.Types.ReservedNodeExchangeStatusType: instance Amazonka.Data.XML.ToXML Amazonka.Redshift.Types.ReservedNodeExchangeStatusType.ReservedNodeExchangeStatusType
+ Amazonka.Redshift.Types.ReservedNodeExchangeStatusType: instance Control.DeepSeq.NFData Amazonka.Redshift.Types.ReservedNodeExchangeStatusType.ReservedNodeExchangeStatusType
+ Amazonka.Redshift.Types.ReservedNodeExchangeStatusType: instance Data.Aeson.Types.FromJSON.FromJSON Amazonka.Redshift.Types.ReservedNodeExchangeStatusType.ReservedNodeExchangeStatusType
+ Amazonka.Redshift.Types.ReservedNodeExchangeStatusType: instance Data.Aeson.Types.FromJSON.FromJSONKey Amazonka.Redshift.Types.ReservedNodeExchangeStatusType.ReservedNodeExchangeStatusType
+ Amazonka.Redshift.Types.ReservedNodeExchangeStatusType: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.Redshift.Types.ReservedNodeExchangeStatusType.ReservedNodeExchangeStatusType
+ Amazonka.Redshift.Types.ReservedNodeExchangeStatusType: instance Data.Aeson.Types.ToJSON.ToJSONKey Amazonka.Redshift.Types.ReservedNodeExchangeStatusType.ReservedNodeExchangeStatusType
+ Amazonka.Redshift.Types.ReservedNodeExchangeStatusType: instance Data.Hashable.Class.Hashable Amazonka.Redshift.Types.ReservedNodeExchangeStatusType.ReservedNodeExchangeStatusType
+ Amazonka.Redshift.Types.ReservedNodeExchangeStatusType: instance GHC.Classes.Eq Amazonka.Redshift.Types.ReservedNodeExchangeStatusType.ReservedNodeExchangeStatusType
+ Amazonka.Redshift.Types.ReservedNodeExchangeStatusType: instance GHC.Classes.Ord Amazonka.Redshift.Types.ReservedNodeExchangeStatusType.ReservedNodeExchangeStatusType
+ Amazonka.Redshift.Types.ReservedNodeExchangeStatusType: instance GHC.Generics.Generic Amazonka.Redshift.Types.ReservedNodeExchangeStatusType.ReservedNodeExchangeStatusType
+ Amazonka.Redshift.Types.ReservedNodeExchangeStatusType: instance GHC.Read.Read Amazonka.Redshift.Types.ReservedNodeExchangeStatusType.ReservedNodeExchangeStatusType
+ Amazonka.Redshift.Types.ReservedNodeExchangeStatusType: instance GHC.Show.Show Amazonka.Redshift.Types.ReservedNodeExchangeStatusType.ReservedNodeExchangeStatusType
+ Amazonka.Redshift.Types.ReservedNodeExchangeStatusType: newtype ReservedNodeExchangeStatusType
+ Amazonka.Redshift.Types.ReservedNodeExchangeStatusType: pattern ReservedNodeExchangeStatusType_FAILED :: ReservedNodeExchangeStatusType
+ Amazonka.Redshift.Types.ReservedNodeExchangeStatusType: pattern ReservedNodeExchangeStatusType_IN_PROGRESS :: ReservedNodeExchangeStatusType
+ Amazonka.Redshift.Types.ReservedNodeExchangeStatusType: pattern ReservedNodeExchangeStatusType_PENDING :: ReservedNodeExchangeStatusType
+ Amazonka.Redshift.Types.ReservedNodeExchangeStatusType: pattern ReservedNodeExchangeStatusType_REQUESTED :: ReservedNodeExchangeStatusType
+ Amazonka.Redshift.Types.ReservedNodeExchangeStatusType: pattern ReservedNodeExchangeStatusType_RETRYING :: ReservedNodeExchangeStatusType
+ Amazonka.Redshift.Types.ReservedNodeExchangeStatusType: pattern ReservedNodeExchangeStatusType_SUCCEEDED :: ReservedNodeExchangeStatusType
+ Amazonka.Redshift.Types.ReservedNodeOffering: ReservedNodeOffering' :: Maybe Text -> Maybe Int -> Maybe Double -> Maybe Text -> Maybe Text -> Maybe [RecurringCharge] -> Maybe Text -> Maybe ReservedNodeOfferingType -> Maybe Double -> ReservedNodeOffering
+ Amazonka.Redshift.Types.ReservedNodeOffering: [$sel:currencyCode:ReservedNodeOffering'] :: ReservedNodeOffering -> Maybe Text
+ Amazonka.Redshift.Types.ReservedNodeOffering: [$sel:duration:ReservedNodeOffering'] :: ReservedNodeOffering -> Maybe Int
+ Amazonka.Redshift.Types.ReservedNodeOffering: [$sel:fixedPrice:ReservedNodeOffering'] :: ReservedNodeOffering -> Maybe Double
+ Amazonka.Redshift.Types.ReservedNodeOffering: [$sel:nodeType:ReservedNodeOffering'] :: ReservedNodeOffering -> Maybe Text
+ Amazonka.Redshift.Types.ReservedNodeOffering: [$sel:offeringType:ReservedNodeOffering'] :: ReservedNodeOffering -> Maybe Text
+ Amazonka.Redshift.Types.ReservedNodeOffering: [$sel:recurringCharges:ReservedNodeOffering'] :: ReservedNodeOffering -> Maybe [RecurringCharge]
+ Amazonka.Redshift.Types.ReservedNodeOffering: [$sel:reservedNodeOfferingId:ReservedNodeOffering'] :: ReservedNodeOffering -> Maybe Text
+ Amazonka.Redshift.Types.ReservedNodeOffering: [$sel:reservedNodeOfferingType:ReservedNodeOffering'] :: ReservedNodeOffering -> Maybe ReservedNodeOfferingType
+ Amazonka.Redshift.Types.ReservedNodeOffering: [$sel:usagePrice:ReservedNodeOffering'] :: ReservedNodeOffering -> Maybe Double
+ Amazonka.Redshift.Types.ReservedNodeOffering: data ReservedNodeOffering
+ Amazonka.Redshift.Types.ReservedNodeOffering: instance Amazonka.Data.XML.FromXML Amazonka.Redshift.Types.ReservedNodeOffering.ReservedNodeOffering
+ Amazonka.Redshift.Types.ReservedNodeOffering: instance Control.DeepSeq.NFData Amazonka.Redshift.Types.ReservedNodeOffering.ReservedNodeOffering
+ Amazonka.Redshift.Types.ReservedNodeOffering: instance Data.Hashable.Class.Hashable Amazonka.Redshift.Types.ReservedNodeOffering.ReservedNodeOffering
+ Amazonka.Redshift.Types.ReservedNodeOffering: instance GHC.Classes.Eq Amazonka.Redshift.Types.ReservedNodeOffering.ReservedNodeOffering
+ Amazonka.Redshift.Types.ReservedNodeOffering: instance GHC.Generics.Generic Amazonka.Redshift.Types.ReservedNodeOffering.ReservedNodeOffering
+ Amazonka.Redshift.Types.ReservedNodeOffering: instance GHC.Read.Read Amazonka.Redshift.Types.ReservedNodeOffering.ReservedNodeOffering
+ Amazonka.Redshift.Types.ReservedNodeOffering: instance GHC.Show.Show Amazonka.Redshift.Types.ReservedNodeOffering.ReservedNodeOffering
+ Amazonka.Redshift.Types.ReservedNodeOffering: newReservedNodeOffering :: ReservedNodeOffering
+ Amazonka.Redshift.Types.ReservedNodeOffering: reservedNodeOffering_currencyCode :: Lens' ReservedNodeOffering (Maybe Text)
+ Amazonka.Redshift.Types.ReservedNodeOffering: reservedNodeOffering_duration :: Lens' ReservedNodeOffering (Maybe Int)
+ Amazonka.Redshift.Types.ReservedNodeOffering: reservedNodeOffering_fixedPrice :: Lens' ReservedNodeOffering (Maybe Double)
+ Amazonka.Redshift.Types.ReservedNodeOffering: reservedNodeOffering_nodeType :: Lens' ReservedNodeOffering (Maybe Text)
+ Amazonka.Redshift.Types.ReservedNodeOffering: reservedNodeOffering_offeringType :: Lens' ReservedNodeOffering (Maybe Text)
+ Amazonka.Redshift.Types.ReservedNodeOffering: reservedNodeOffering_recurringCharges :: Lens' ReservedNodeOffering (Maybe [RecurringCharge])
+ Amazonka.Redshift.Types.ReservedNodeOffering: reservedNodeOffering_reservedNodeOfferingId :: Lens' ReservedNodeOffering (Maybe Text)
+ Amazonka.Redshift.Types.ReservedNodeOffering: reservedNodeOffering_reservedNodeOfferingType :: Lens' ReservedNodeOffering (Maybe ReservedNodeOfferingType)
+ Amazonka.Redshift.Types.ReservedNodeOffering: reservedNodeOffering_usagePrice :: Lens' ReservedNodeOffering (Maybe Double)
+ Amazonka.Redshift.Types.ReservedNodeOfferingType: ReservedNodeOfferingType' :: Text -> ReservedNodeOfferingType
+ Amazonka.Redshift.Types.ReservedNodeOfferingType: [fromReservedNodeOfferingType] :: ReservedNodeOfferingType -> Text
+ Amazonka.Redshift.Types.ReservedNodeOfferingType: instance Amazonka.Data.ByteString.ToByteString Amazonka.Redshift.Types.ReservedNodeOfferingType.ReservedNodeOfferingType
+ Amazonka.Redshift.Types.ReservedNodeOfferingType: instance Amazonka.Data.Headers.ToHeader Amazonka.Redshift.Types.ReservedNodeOfferingType.ReservedNodeOfferingType
+ Amazonka.Redshift.Types.ReservedNodeOfferingType: instance Amazonka.Data.Log.ToLog Amazonka.Redshift.Types.ReservedNodeOfferingType.ReservedNodeOfferingType
+ Amazonka.Redshift.Types.ReservedNodeOfferingType: instance Amazonka.Data.Query.ToQuery Amazonka.Redshift.Types.ReservedNodeOfferingType.ReservedNodeOfferingType
+ Amazonka.Redshift.Types.ReservedNodeOfferingType: instance Amazonka.Data.Text.FromText Amazonka.Redshift.Types.ReservedNodeOfferingType.ReservedNodeOfferingType
+ Amazonka.Redshift.Types.ReservedNodeOfferingType: instance Amazonka.Data.Text.ToText Amazonka.Redshift.Types.ReservedNodeOfferingType.ReservedNodeOfferingType
+ Amazonka.Redshift.Types.ReservedNodeOfferingType: instance Amazonka.Data.XML.FromXML Amazonka.Redshift.Types.ReservedNodeOfferingType.ReservedNodeOfferingType
+ Amazonka.Redshift.Types.ReservedNodeOfferingType: instance Amazonka.Data.XML.ToXML Amazonka.Redshift.Types.ReservedNodeOfferingType.ReservedNodeOfferingType
+ Amazonka.Redshift.Types.ReservedNodeOfferingType: instance Control.DeepSeq.NFData Amazonka.Redshift.Types.ReservedNodeOfferingType.ReservedNodeOfferingType
+ Amazonka.Redshift.Types.ReservedNodeOfferingType: instance Data.Aeson.Types.FromJSON.FromJSON Amazonka.Redshift.Types.ReservedNodeOfferingType.ReservedNodeOfferingType
+ Amazonka.Redshift.Types.ReservedNodeOfferingType: instance Data.Aeson.Types.FromJSON.FromJSONKey Amazonka.Redshift.Types.ReservedNodeOfferingType.ReservedNodeOfferingType
+ Amazonka.Redshift.Types.ReservedNodeOfferingType: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.Redshift.Types.ReservedNodeOfferingType.ReservedNodeOfferingType
+ Amazonka.Redshift.Types.ReservedNodeOfferingType: instance Data.Aeson.Types.ToJSON.ToJSONKey Amazonka.Redshift.Types.ReservedNodeOfferingType.ReservedNodeOfferingType
+ Amazonka.Redshift.Types.ReservedNodeOfferingType: instance Data.Hashable.Class.Hashable Amazonka.Redshift.Types.ReservedNodeOfferingType.ReservedNodeOfferingType
+ Amazonka.Redshift.Types.ReservedNodeOfferingType: instance GHC.Classes.Eq Amazonka.Redshift.Types.ReservedNodeOfferingType.ReservedNodeOfferingType
+ Amazonka.Redshift.Types.ReservedNodeOfferingType: instance GHC.Classes.Ord Amazonka.Redshift.Types.ReservedNodeOfferingType.ReservedNodeOfferingType
+ Amazonka.Redshift.Types.ReservedNodeOfferingType: instance GHC.Generics.Generic Amazonka.Redshift.Types.ReservedNodeOfferingType.ReservedNodeOfferingType
+ Amazonka.Redshift.Types.ReservedNodeOfferingType: instance GHC.Read.Read Amazonka.Redshift.Types.ReservedNodeOfferingType.ReservedNodeOfferingType
+ Amazonka.Redshift.Types.ReservedNodeOfferingType: instance GHC.Show.Show Amazonka.Redshift.Types.ReservedNodeOfferingType.ReservedNodeOfferingType
+ Amazonka.Redshift.Types.ReservedNodeOfferingType: newtype ReservedNodeOfferingType
+ Amazonka.Redshift.Types.ReservedNodeOfferingType: pattern ReservedNodeOfferingType_Regular :: ReservedNodeOfferingType
+ Amazonka.Redshift.Types.ReservedNodeOfferingType: pattern ReservedNodeOfferingType_Upgradable :: ReservedNodeOfferingType
+ Amazonka.Redshift.Types.ResizeClusterMessage: ResizeClusterMessage' :: Maybe Bool -> Maybe Text -> Maybe Text -> Maybe Int -> Maybe Text -> Maybe Text -> Text -> ResizeClusterMessage
+ Amazonka.Redshift.Types.ResizeClusterMessage: [$sel:classic:ResizeClusterMessage'] :: ResizeClusterMessage -> Maybe Bool
+ Amazonka.Redshift.Types.ResizeClusterMessage: [$sel:clusterIdentifier:ResizeClusterMessage'] :: ResizeClusterMessage -> Text
+ Amazonka.Redshift.Types.ResizeClusterMessage: [$sel:clusterType:ResizeClusterMessage'] :: ResizeClusterMessage -> Maybe Text
+ Amazonka.Redshift.Types.ResizeClusterMessage: [$sel:nodeType:ResizeClusterMessage'] :: ResizeClusterMessage -> Maybe Text
+ Amazonka.Redshift.Types.ResizeClusterMessage: [$sel:numberOfNodes:ResizeClusterMessage'] :: ResizeClusterMessage -> Maybe Int
+ Amazonka.Redshift.Types.ResizeClusterMessage: [$sel:reservedNodeId:ResizeClusterMessage'] :: ResizeClusterMessage -> Maybe Text
+ Amazonka.Redshift.Types.ResizeClusterMessage: [$sel:targetReservedNodeOfferingId:ResizeClusterMessage'] :: ResizeClusterMessage -> Maybe Text
+ Amazonka.Redshift.Types.ResizeClusterMessage: data ResizeClusterMessage
+ Amazonka.Redshift.Types.ResizeClusterMessage: instance Amazonka.Data.Query.ToQuery Amazonka.Redshift.Types.ResizeClusterMessage.ResizeClusterMessage
+ Amazonka.Redshift.Types.ResizeClusterMessage: instance Amazonka.Data.XML.FromXML Amazonka.Redshift.Types.ResizeClusterMessage.ResizeClusterMessage
+ Amazonka.Redshift.Types.ResizeClusterMessage: instance Control.DeepSeq.NFData Amazonka.Redshift.Types.ResizeClusterMessage.ResizeClusterMessage
+ Amazonka.Redshift.Types.ResizeClusterMessage: instance Data.Hashable.Class.Hashable Amazonka.Redshift.Types.ResizeClusterMessage.ResizeClusterMessage
+ Amazonka.Redshift.Types.ResizeClusterMessage: instance GHC.Classes.Eq Amazonka.Redshift.Types.ResizeClusterMessage.ResizeClusterMessage
+ Amazonka.Redshift.Types.ResizeClusterMessage: instance GHC.Generics.Generic Amazonka.Redshift.Types.ResizeClusterMessage.ResizeClusterMessage
+ Amazonka.Redshift.Types.ResizeClusterMessage: instance GHC.Read.Read Amazonka.Redshift.Types.ResizeClusterMessage.ResizeClusterMessage
+ Amazonka.Redshift.Types.ResizeClusterMessage: instance GHC.Show.Show Amazonka.Redshift.Types.ResizeClusterMessage.ResizeClusterMessage
+ Amazonka.Redshift.Types.ResizeClusterMessage: newResizeClusterMessage :: Text -> ResizeClusterMessage
+ Amazonka.Redshift.Types.ResizeClusterMessage: resizeClusterMessage_classic :: Lens' ResizeClusterMessage (Maybe Bool)
+ Amazonka.Redshift.Types.ResizeClusterMessage: resizeClusterMessage_clusterIdentifier :: Lens' ResizeClusterMessage Text
+ Amazonka.Redshift.Types.ResizeClusterMessage: resizeClusterMessage_clusterType :: Lens' ResizeClusterMessage (Maybe Text)
+ Amazonka.Redshift.Types.ResizeClusterMessage: resizeClusterMessage_nodeType :: Lens' ResizeClusterMessage (Maybe Text)
+ Amazonka.Redshift.Types.ResizeClusterMessage: resizeClusterMessage_numberOfNodes :: Lens' ResizeClusterMessage (Maybe Int)
+ Amazonka.Redshift.Types.ResizeClusterMessage: resizeClusterMessage_reservedNodeId :: Lens' ResizeClusterMessage (Maybe Text)
+ Amazonka.Redshift.Types.ResizeClusterMessage: resizeClusterMessage_targetReservedNodeOfferingId :: Lens' ResizeClusterMessage (Maybe Text)
+ Amazonka.Redshift.Types.ResizeInfo: ResizeInfo' :: Maybe Bool -> Maybe Text -> ResizeInfo
+ Amazonka.Redshift.Types.ResizeInfo: [$sel:allowCancelResize:ResizeInfo'] :: ResizeInfo -> Maybe Bool
+ Amazonka.Redshift.Types.ResizeInfo: [$sel:resizeType:ResizeInfo'] :: ResizeInfo -> Maybe Text
+ Amazonka.Redshift.Types.ResizeInfo: data ResizeInfo
+ Amazonka.Redshift.Types.ResizeInfo: instance Amazonka.Data.XML.FromXML Amazonka.Redshift.Types.ResizeInfo.ResizeInfo
+ Amazonka.Redshift.Types.ResizeInfo: instance Control.DeepSeq.NFData Amazonka.Redshift.Types.ResizeInfo.ResizeInfo
+ Amazonka.Redshift.Types.ResizeInfo: instance Data.Hashable.Class.Hashable Amazonka.Redshift.Types.ResizeInfo.ResizeInfo
+ Amazonka.Redshift.Types.ResizeInfo: instance GHC.Classes.Eq Amazonka.Redshift.Types.ResizeInfo.ResizeInfo
+ Amazonka.Redshift.Types.ResizeInfo: instance GHC.Generics.Generic Amazonka.Redshift.Types.ResizeInfo.ResizeInfo
+ Amazonka.Redshift.Types.ResizeInfo: instance GHC.Read.Read Amazonka.Redshift.Types.ResizeInfo.ResizeInfo
+ Amazonka.Redshift.Types.ResizeInfo: instance GHC.Show.Show Amazonka.Redshift.Types.ResizeInfo.ResizeInfo
+ Amazonka.Redshift.Types.ResizeInfo: newResizeInfo :: ResizeInfo
+ Amazonka.Redshift.Types.ResizeInfo: resizeInfo_allowCancelResize :: Lens' ResizeInfo (Maybe Bool)
+ Amazonka.Redshift.Types.ResizeInfo: resizeInfo_resizeType :: Lens' ResizeInfo (Maybe Text)
+ Amazonka.Redshift.Types.ResizeProgressMessage: ResizeProgressMessage' :: Maybe Double -> Maybe Double -> Maybe Integer -> Maybe Integer -> Maybe [Text] -> Maybe [Text] -> Maybe [Text] -> Maybe Text -> Maybe Integer -> Maybe Text -> Maybe Text -> Maybe Text -> Maybe Text -> Maybe Text -> Maybe Int -> Maybe Integer -> ResizeProgressMessage
+ Amazonka.Redshift.Types.ResizeProgressMessage: [$sel:avgResizeRateInMegaBytesPerSecond:ResizeProgressMessage'] :: ResizeProgressMessage -> Maybe Double
+ Amazonka.Redshift.Types.ResizeProgressMessage: [$sel:dataTransferProgressPercent:ResizeProgressMessage'] :: ResizeProgressMessage -> Maybe Double
+ Amazonka.Redshift.Types.ResizeProgressMessage: [$sel:elapsedTimeInSeconds:ResizeProgressMessage'] :: ResizeProgressMessage -> Maybe Integer
+ Amazonka.Redshift.Types.ResizeProgressMessage: [$sel:estimatedTimeToCompletionInSeconds:ResizeProgressMessage'] :: ResizeProgressMessage -> Maybe Integer
+ Amazonka.Redshift.Types.ResizeProgressMessage: [$sel:importTablesCompleted:ResizeProgressMessage'] :: ResizeProgressMessage -> Maybe [Text]
+ Amazonka.Redshift.Types.ResizeProgressMessage: [$sel:importTablesInProgress:ResizeProgressMessage'] :: ResizeProgressMessage -> Maybe [Text]
+ Amazonka.Redshift.Types.ResizeProgressMessage: [$sel:importTablesNotStarted:ResizeProgressMessage'] :: ResizeProgressMessage -> Maybe [Text]
+ Amazonka.Redshift.Types.ResizeProgressMessage: [$sel:message:ResizeProgressMessage'] :: ResizeProgressMessage -> Maybe Text
+ Amazonka.Redshift.Types.ResizeProgressMessage: [$sel:progressInMegaBytes:ResizeProgressMessage'] :: ResizeProgressMessage -> Maybe Integer
+ Amazonka.Redshift.Types.ResizeProgressMessage: [$sel:resizeType:ResizeProgressMessage'] :: ResizeProgressMessage -> Maybe Text
+ Amazonka.Redshift.Types.ResizeProgressMessage: [$sel:status:ResizeProgressMessage'] :: ResizeProgressMessage -> Maybe Text
+ Amazonka.Redshift.Types.ResizeProgressMessage: [$sel:targetClusterType:ResizeProgressMessage'] :: ResizeProgressMessage -> Maybe Text
+ Amazonka.Redshift.Types.ResizeProgressMessage: [$sel:targetEncryptionType:ResizeProgressMessage'] :: ResizeProgressMessage -> Maybe Text
+ Amazonka.Redshift.Types.ResizeProgressMessage: [$sel:targetNodeType:ResizeProgressMessage'] :: ResizeProgressMessage -> Maybe Text
+ Amazonka.Redshift.Types.ResizeProgressMessage: [$sel:targetNumberOfNodes:ResizeProgressMessage'] :: ResizeProgressMessage -> Maybe Int
+ Amazonka.Redshift.Types.ResizeProgressMessage: [$sel:totalResizeDataInMegaBytes:ResizeProgressMessage'] :: ResizeProgressMessage -> Maybe Integer
+ Amazonka.Redshift.Types.ResizeProgressMessage: data ResizeProgressMessage
+ Amazonka.Redshift.Types.ResizeProgressMessage: instance Amazonka.Data.XML.FromXML Amazonka.Redshift.Types.ResizeProgressMessage.ResizeProgressMessage
+ Amazonka.Redshift.Types.ResizeProgressMessage: instance Control.DeepSeq.NFData Amazonka.Redshift.Types.ResizeProgressMessage.ResizeProgressMessage
+ Amazonka.Redshift.Types.ResizeProgressMessage: instance Data.Hashable.Class.Hashable Amazonka.Redshift.Types.ResizeProgressMessage.ResizeProgressMessage
+ Amazonka.Redshift.Types.ResizeProgressMessage: instance GHC.Classes.Eq Amazonka.Redshift.Types.ResizeProgressMessage.ResizeProgressMessage
+ Amazonka.Redshift.Types.ResizeProgressMessage: instance GHC.Generics.Generic Amazonka.Redshift.Types.ResizeProgressMessage.ResizeProgressMessage
+ Amazonka.Redshift.Types.ResizeProgressMessage: instance GHC.Read.Read Amazonka.Redshift.Types.ResizeProgressMessage.ResizeProgressMessage
+ Amazonka.Redshift.Types.ResizeProgressMessage: instance GHC.Show.Show Amazonka.Redshift.Types.ResizeProgressMessage.ResizeProgressMessage
+ Amazonka.Redshift.Types.ResizeProgressMessage: newResizeProgressMessage :: ResizeProgressMessage
+ Amazonka.Redshift.Types.ResizeProgressMessage: resizeProgressMessage_avgResizeRateInMegaBytesPerSecond :: Lens' ResizeProgressMessage (Maybe Double)
+ Amazonka.Redshift.Types.ResizeProgressMessage: resizeProgressMessage_dataTransferProgressPercent :: Lens' ResizeProgressMessage (Maybe Double)
+ Amazonka.Redshift.Types.ResizeProgressMessage: resizeProgressMessage_elapsedTimeInSeconds :: Lens' ResizeProgressMessage (Maybe Integer)
+ Amazonka.Redshift.Types.ResizeProgressMessage: resizeProgressMessage_estimatedTimeToCompletionInSeconds :: Lens' ResizeProgressMessage (Maybe Integer)
+ Amazonka.Redshift.Types.ResizeProgressMessage: resizeProgressMessage_importTablesCompleted :: Lens' ResizeProgressMessage (Maybe [Text])
+ Amazonka.Redshift.Types.ResizeProgressMessage: resizeProgressMessage_importTablesInProgress :: Lens' ResizeProgressMessage (Maybe [Text])
+ Amazonka.Redshift.Types.ResizeProgressMessage: resizeProgressMessage_importTablesNotStarted :: Lens' ResizeProgressMessage (Maybe [Text])
+ Amazonka.Redshift.Types.ResizeProgressMessage: resizeProgressMessage_message :: Lens' ResizeProgressMessage (Maybe Text)
+ Amazonka.Redshift.Types.ResizeProgressMessage: resizeProgressMessage_progressInMegaBytes :: Lens' ResizeProgressMessage (Maybe Integer)
+ Amazonka.Redshift.Types.ResizeProgressMessage: resizeProgressMessage_resizeType :: Lens' ResizeProgressMessage (Maybe Text)
+ Amazonka.Redshift.Types.ResizeProgressMessage: resizeProgressMessage_status :: Lens' ResizeProgressMessage (Maybe Text)
+ Amazonka.Redshift.Types.ResizeProgressMessage: resizeProgressMessage_targetClusterType :: Lens' ResizeProgressMessage (Maybe Text)
+ Amazonka.Redshift.Types.ResizeProgressMessage: resizeProgressMessage_targetEncryptionType :: Lens' ResizeProgressMessage (Maybe Text)
+ Amazonka.Redshift.Types.ResizeProgressMessage: resizeProgressMessage_targetNodeType :: Lens' ResizeProgressMessage (Maybe Text)
+ Amazonka.Redshift.Types.ResizeProgressMessage: resizeProgressMessage_targetNumberOfNodes :: Lens' ResizeProgressMessage (Maybe Int)
+ Amazonka.Redshift.Types.ResizeProgressMessage: resizeProgressMessage_totalResizeDataInMegaBytes :: Lens' ResizeProgressMessage (Maybe Integer)
+ Amazonka.Redshift.Types.RestoreStatus: RestoreStatus' :: Maybe Double -> Maybe Integer -> Maybe Integer -> Maybe Integer -> Maybe Integer -> Maybe Text -> RestoreStatus
+ Amazonka.Redshift.Types.RestoreStatus: [$sel:currentRestoreRateInMegaBytesPerSecond:RestoreStatus'] :: RestoreStatus -> Maybe Double
+ Amazonka.Redshift.Types.RestoreStatus: [$sel:elapsedTimeInSeconds:RestoreStatus'] :: RestoreStatus -> Maybe Integer
+ Amazonka.Redshift.Types.RestoreStatus: [$sel:estimatedTimeToCompletionInSeconds:RestoreStatus'] :: RestoreStatus -> Maybe Integer
+ Amazonka.Redshift.Types.RestoreStatus: [$sel:progressInMegaBytes:RestoreStatus'] :: RestoreStatus -> Maybe Integer
+ Amazonka.Redshift.Types.RestoreStatus: [$sel:snapshotSizeInMegaBytes:RestoreStatus'] :: RestoreStatus -> Maybe Integer
+ Amazonka.Redshift.Types.RestoreStatus: [$sel:status:RestoreStatus'] :: RestoreStatus -> Maybe Text
+ Amazonka.Redshift.Types.RestoreStatus: data RestoreStatus
+ Amazonka.Redshift.Types.RestoreStatus: instance Amazonka.Data.XML.FromXML Amazonka.Redshift.Types.RestoreStatus.RestoreStatus
+ Amazonka.Redshift.Types.RestoreStatus: instance Control.DeepSeq.NFData Amazonka.Redshift.Types.RestoreStatus.RestoreStatus
+ Amazonka.Redshift.Types.RestoreStatus: instance Data.Hashable.Class.Hashable Amazonka.Redshift.Types.RestoreStatus.RestoreStatus
+ Amazonka.Redshift.Types.RestoreStatus: instance GHC.Classes.Eq Amazonka.Redshift.Types.RestoreStatus.RestoreStatus
+ Amazonka.Redshift.Types.RestoreStatus: instance GHC.Generics.Generic Amazonka.Redshift.Types.RestoreStatus.RestoreStatus
+ Amazonka.Redshift.Types.RestoreStatus: instance GHC.Read.Read Amazonka.Redshift.Types.RestoreStatus.RestoreStatus
+ Amazonka.Redshift.Types.RestoreStatus: instance GHC.Show.Show Amazonka.Redshift.Types.RestoreStatus.RestoreStatus
+ Amazonka.Redshift.Types.RestoreStatus: newRestoreStatus :: RestoreStatus
+ Amazonka.Redshift.Types.RestoreStatus: restoreStatus_currentRestoreRateInMegaBytesPerSecond :: Lens' RestoreStatus (Maybe Double)
+ Amazonka.Redshift.Types.RestoreStatus: restoreStatus_elapsedTimeInSeconds :: Lens' RestoreStatus (Maybe Integer)
+ Amazonka.Redshift.Types.RestoreStatus: restoreStatus_estimatedTimeToCompletionInSeconds :: Lens' RestoreStatus (Maybe Integer)
+ Amazonka.Redshift.Types.RestoreStatus: restoreStatus_progressInMegaBytes :: Lens' RestoreStatus (Maybe Integer)
+ Amazonka.Redshift.Types.RestoreStatus: restoreStatus_snapshotSizeInMegaBytes :: Lens' RestoreStatus (Maybe Integer)
+ Amazonka.Redshift.Types.RestoreStatus: restoreStatus_status :: Lens' RestoreStatus (Maybe Text)
+ Amazonka.Redshift.Types.ResumeClusterMessage: ResumeClusterMessage' :: Text -> ResumeClusterMessage
+ Amazonka.Redshift.Types.ResumeClusterMessage: [$sel:clusterIdentifier:ResumeClusterMessage'] :: ResumeClusterMessage -> Text
+ Amazonka.Redshift.Types.ResumeClusterMessage: data ResumeClusterMessage
+ Amazonka.Redshift.Types.ResumeClusterMessage: instance Amazonka.Data.Query.ToQuery Amazonka.Redshift.Types.ResumeClusterMessage.ResumeClusterMessage
+ Amazonka.Redshift.Types.ResumeClusterMessage: instance Amazonka.Data.XML.FromXML Amazonka.Redshift.Types.ResumeClusterMessage.ResumeClusterMessage
+ Amazonka.Redshift.Types.ResumeClusterMessage: instance Control.DeepSeq.NFData Amazonka.Redshift.Types.ResumeClusterMessage.ResumeClusterMessage
+ Amazonka.Redshift.Types.ResumeClusterMessage: instance Data.Hashable.Class.Hashable Amazonka.Redshift.Types.ResumeClusterMessage.ResumeClusterMessage
+ Amazonka.Redshift.Types.ResumeClusterMessage: instance GHC.Classes.Eq Amazonka.Redshift.Types.ResumeClusterMessage.ResumeClusterMessage
+ Amazonka.Redshift.Types.ResumeClusterMessage: instance GHC.Generics.Generic Amazonka.Redshift.Types.ResumeClusterMessage.ResumeClusterMessage
+ Amazonka.Redshift.Types.ResumeClusterMessage: instance GHC.Read.Read Amazonka.Redshift.Types.ResumeClusterMessage.ResumeClusterMessage
+ Amazonka.Redshift.Types.ResumeClusterMessage: instance GHC.Show.Show Amazonka.Redshift.Types.ResumeClusterMessage.ResumeClusterMessage
+ Amazonka.Redshift.Types.ResumeClusterMessage: newResumeClusterMessage :: Text -> ResumeClusterMessage
+ Amazonka.Redshift.Types.ResumeClusterMessage: resumeClusterMessage_clusterIdentifier :: Lens' ResumeClusterMessage Text
+ Amazonka.Redshift.Types.RevisionTarget: RevisionTarget' :: Maybe Text -> Maybe ISO8601 -> Maybe Text -> RevisionTarget
+ Amazonka.Redshift.Types.RevisionTarget: [$sel:databaseRevision:RevisionTarget'] :: RevisionTarget -> Maybe Text
+ Amazonka.Redshift.Types.RevisionTarget: [$sel:databaseRevisionReleaseDate:RevisionTarget'] :: RevisionTarget -> Maybe ISO8601
+ Amazonka.Redshift.Types.RevisionTarget: [$sel:description:RevisionTarget'] :: RevisionTarget -> Maybe Text
+ Amazonka.Redshift.Types.RevisionTarget: data RevisionTarget
+ Amazonka.Redshift.Types.RevisionTarget: instance Amazonka.Data.XML.FromXML Amazonka.Redshift.Types.RevisionTarget.RevisionTarget
+ Amazonka.Redshift.Types.RevisionTarget: instance Control.DeepSeq.NFData Amazonka.Redshift.Types.RevisionTarget.RevisionTarget
+ Amazonka.Redshift.Types.RevisionTarget: instance Data.Hashable.Class.Hashable Amazonka.Redshift.Types.RevisionTarget.RevisionTarget
+ Amazonka.Redshift.Types.RevisionTarget: instance GHC.Classes.Eq Amazonka.Redshift.Types.RevisionTarget.RevisionTarget
+ Amazonka.Redshift.Types.RevisionTarget: instance GHC.Generics.Generic Amazonka.Redshift.Types.RevisionTarget.RevisionTarget
+ Amazonka.Redshift.Types.RevisionTarget: instance GHC.Read.Read Amazonka.Redshift.Types.RevisionTarget.RevisionTarget
+ Amazonka.Redshift.Types.RevisionTarget: instance GHC.Show.Show Amazonka.Redshift.Types.RevisionTarget.RevisionTarget
+ Amazonka.Redshift.Types.RevisionTarget: newRevisionTarget :: RevisionTarget
+ Amazonka.Redshift.Types.RevisionTarget: revisionTarget_databaseRevision :: Lens' RevisionTarget (Maybe Text)
+ Amazonka.Redshift.Types.RevisionTarget: revisionTarget_databaseRevisionReleaseDate :: Lens' RevisionTarget (Maybe UTCTime)
+ Amazonka.Redshift.Types.RevisionTarget: revisionTarget_description :: Lens' RevisionTarget (Maybe Text)
+ Amazonka.Redshift.Types.ScheduleState: ScheduleState' :: Text -> ScheduleState
+ Amazonka.Redshift.Types.ScheduleState: [fromScheduleState] :: ScheduleState -> Text
+ Amazonka.Redshift.Types.ScheduleState: instance Amazonka.Data.ByteString.ToByteString Amazonka.Redshift.Types.ScheduleState.ScheduleState
+ Amazonka.Redshift.Types.ScheduleState: instance Amazonka.Data.Headers.ToHeader Amazonka.Redshift.Types.ScheduleState.ScheduleState
+ Amazonka.Redshift.Types.ScheduleState: instance Amazonka.Data.Log.ToLog Amazonka.Redshift.Types.ScheduleState.ScheduleState
+ Amazonka.Redshift.Types.ScheduleState: instance Amazonka.Data.Query.ToQuery Amazonka.Redshift.Types.ScheduleState.ScheduleState
+ Amazonka.Redshift.Types.ScheduleState: instance Amazonka.Data.Text.FromText Amazonka.Redshift.Types.ScheduleState.ScheduleState
+ Amazonka.Redshift.Types.ScheduleState: instance Amazonka.Data.Text.ToText Amazonka.Redshift.Types.ScheduleState.ScheduleState
+ Amazonka.Redshift.Types.ScheduleState: instance Amazonka.Data.XML.FromXML Amazonka.Redshift.Types.ScheduleState.ScheduleState
+ Amazonka.Redshift.Types.ScheduleState: instance Amazonka.Data.XML.ToXML Amazonka.Redshift.Types.ScheduleState.ScheduleState
+ Amazonka.Redshift.Types.ScheduleState: instance Control.DeepSeq.NFData Amazonka.Redshift.Types.ScheduleState.ScheduleState
+ Amazonka.Redshift.Types.ScheduleState: instance Data.Aeson.Types.FromJSON.FromJSON Amazonka.Redshift.Types.ScheduleState.ScheduleState
+ Amazonka.Redshift.Types.ScheduleState: instance Data.Aeson.Types.FromJSON.FromJSONKey Amazonka.Redshift.Types.ScheduleState.ScheduleState
+ Amazonka.Redshift.Types.ScheduleState: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.Redshift.Types.ScheduleState.ScheduleState
+ Amazonka.Redshift.Types.ScheduleState: instance Data.Aeson.Types.ToJSON.ToJSONKey Amazonka.Redshift.Types.ScheduleState.ScheduleState
+ Amazonka.Redshift.Types.ScheduleState: instance Data.Hashable.Class.Hashable Amazonka.Redshift.Types.ScheduleState.ScheduleState
+ Amazonka.Redshift.Types.ScheduleState: instance GHC.Classes.Eq Amazonka.Redshift.Types.ScheduleState.ScheduleState
+ Amazonka.Redshift.Types.ScheduleState: instance GHC.Classes.Ord Amazonka.Redshift.Types.ScheduleState.ScheduleState
+ Amazonka.Redshift.Types.ScheduleState: instance GHC.Generics.Generic Amazonka.Redshift.Types.ScheduleState.ScheduleState
+ Amazonka.Redshift.Types.ScheduleState: instance GHC.Read.Read Amazonka.Redshift.Types.ScheduleState.ScheduleState
+ Amazonka.Redshift.Types.ScheduleState: instance GHC.Show.Show Amazonka.Redshift.Types.ScheduleState.ScheduleState
+ Amazonka.Redshift.Types.ScheduleState: newtype ScheduleState
+ Amazonka.Redshift.Types.ScheduleState: pattern ScheduleState_ACTIVE :: ScheduleState
+ Amazonka.Redshift.Types.ScheduleState: pattern ScheduleState_FAILED :: ScheduleState
+ Amazonka.Redshift.Types.ScheduleState: pattern ScheduleState_MODIFYING :: ScheduleState
+ Amazonka.Redshift.Types.ScheduledAction: ScheduledAction' :: Maybe ISO8601 -> Maybe Text -> Maybe [ISO8601] -> Maybe Text -> Maybe Text -> Maybe Text -> Maybe ISO8601 -> Maybe ScheduledActionState -> Maybe ScheduledActionType -> ScheduledAction
+ Amazonka.Redshift.Types.ScheduledAction: [$sel:endTime:ScheduledAction'] :: ScheduledAction -> Maybe ISO8601
+ Amazonka.Redshift.Types.ScheduledAction: [$sel:iamRole:ScheduledAction'] :: ScheduledAction -> Maybe Text
+ Amazonka.Redshift.Types.ScheduledAction: [$sel:nextInvocations:ScheduledAction'] :: ScheduledAction -> Maybe [ISO8601]
+ Amazonka.Redshift.Types.ScheduledAction: [$sel:schedule:ScheduledAction'] :: ScheduledAction -> Maybe Text
+ Amazonka.Redshift.Types.ScheduledAction: [$sel:scheduledActionDescription:ScheduledAction'] :: ScheduledAction -> Maybe Text
+ Amazonka.Redshift.Types.ScheduledAction: [$sel:scheduledActionName:ScheduledAction'] :: ScheduledAction -> Maybe Text
+ Amazonka.Redshift.Types.ScheduledAction: [$sel:startTime:ScheduledAction'] :: ScheduledAction -> Maybe ISO8601
+ Amazonka.Redshift.Types.ScheduledAction: [$sel:state:ScheduledAction'] :: ScheduledAction -> Maybe ScheduledActionState
+ Amazonka.Redshift.Types.ScheduledAction: [$sel:targetAction:ScheduledAction'] :: ScheduledAction -> Maybe ScheduledActionType
+ Amazonka.Redshift.Types.ScheduledAction: data ScheduledAction
+ Amazonka.Redshift.Types.ScheduledAction: instance Amazonka.Data.XML.FromXML Amazonka.Redshift.Types.ScheduledAction.ScheduledAction
+ Amazonka.Redshift.Types.ScheduledAction: instance Control.DeepSeq.NFData Amazonka.Redshift.Types.ScheduledAction.ScheduledAction
+ Amazonka.Redshift.Types.ScheduledAction: instance Data.Hashable.Class.Hashable Amazonka.Redshift.Types.ScheduledAction.ScheduledAction
+ Amazonka.Redshift.Types.ScheduledAction: instance GHC.Classes.Eq Amazonka.Redshift.Types.ScheduledAction.ScheduledAction
+ Amazonka.Redshift.Types.ScheduledAction: instance GHC.Generics.Generic Amazonka.Redshift.Types.ScheduledAction.ScheduledAction
+ Amazonka.Redshift.Types.ScheduledAction: instance GHC.Read.Read Amazonka.Redshift.Types.ScheduledAction.ScheduledAction
+ Amazonka.Redshift.Types.ScheduledAction: instance GHC.Show.Show Amazonka.Redshift.Types.ScheduledAction.ScheduledAction
+ Amazonka.Redshift.Types.ScheduledAction: newScheduledAction :: ScheduledAction
+ Amazonka.Redshift.Types.ScheduledAction: scheduledAction_endTime :: Lens' ScheduledAction (Maybe UTCTime)
+ Amazonka.Redshift.Types.ScheduledAction: scheduledAction_iamRole :: Lens' ScheduledAction (Maybe Text)
+ Amazonka.Redshift.Types.ScheduledAction: scheduledAction_nextInvocations :: Lens' ScheduledAction (Maybe [UTCTime])
+ Amazonka.Redshift.Types.ScheduledAction: scheduledAction_schedule :: Lens' ScheduledAction (Maybe Text)
+ Amazonka.Redshift.Types.ScheduledAction: scheduledAction_scheduledActionDescription :: Lens' ScheduledAction (Maybe Text)
+ Amazonka.Redshift.Types.ScheduledAction: scheduledAction_scheduledActionName :: Lens' ScheduledAction (Maybe Text)
+ Amazonka.Redshift.Types.ScheduledAction: scheduledAction_startTime :: Lens' ScheduledAction (Maybe UTCTime)
+ Amazonka.Redshift.Types.ScheduledAction: scheduledAction_state :: Lens' ScheduledAction (Maybe ScheduledActionState)
+ Amazonka.Redshift.Types.ScheduledAction: scheduledAction_targetAction :: Lens' ScheduledAction (Maybe ScheduledActionType)
+ Amazonka.Redshift.Types.ScheduledActionFilter: ScheduledActionFilter' :: ScheduledActionFilterName -> [Text] -> ScheduledActionFilter
+ Amazonka.Redshift.Types.ScheduledActionFilter: [$sel:name:ScheduledActionFilter'] :: ScheduledActionFilter -> ScheduledActionFilterName
+ Amazonka.Redshift.Types.ScheduledActionFilter: [$sel:values:ScheduledActionFilter'] :: ScheduledActionFilter -> [Text]
+ Amazonka.Redshift.Types.ScheduledActionFilter: data ScheduledActionFilter
+ Amazonka.Redshift.Types.ScheduledActionFilter: instance Amazonka.Data.Query.ToQuery Amazonka.Redshift.Types.ScheduledActionFilter.ScheduledActionFilter
+ Amazonka.Redshift.Types.ScheduledActionFilter: instance Control.DeepSeq.NFData Amazonka.Redshift.Types.ScheduledActionFilter.ScheduledActionFilter
+ Amazonka.Redshift.Types.ScheduledActionFilter: instance Data.Hashable.Class.Hashable Amazonka.Redshift.Types.ScheduledActionFilter.ScheduledActionFilter
+ Amazonka.Redshift.Types.ScheduledActionFilter: instance GHC.Classes.Eq Amazonka.Redshift.Types.ScheduledActionFilter.ScheduledActionFilter
+ Amazonka.Redshift.Types.ScheduledActionFilter: instance GHC.Generics.Generic Amazonka.Redshift.Types.ScheduledActionFilter.ScheduledActionFilter
+ Amazonka.Redshift.Types.ScheduledActionFilter: instance GHC.Read.Read Amazonka.Redshift.Types.ScheduledActionFilter.ScheduledActionFilter
+ Amazonka.Redshift.Types.ScheduledActionFilter: instance GHC.Show.Show Amazonka.Redshift.Types.ScheduledActionFilter.ScheduledActionFilter
+ Amazonka.Redshift.Types.ScheduledActionFilter: newScheduledActionFilter :: ScheduledActionFilterName -> ScheduledActionFilter
+ Amazonka.Redshift.Types.ScheduledActionFilter: scheduledActionFilter_name :: Lens' ScheduledActionFilter ScheduledActionFilterName
+ Amazonka.Redshift.Types.ScheduledActionFilter: scheduledActionFilter_values :: Lens' ScheduledActionFilter [Text]
+ Amazonka.Redshift.Types.ScheduledActionFilterName: ScheduledActionFilterName' :: Text -> ScheduledActionFilterName
+ Amazonka.Redshift.Types.ScheduledActionFilterName: [fromScheduledActionFilterName] :: ScheduledActionFilterName -> Text
+ Amazonka.Redshift.Types.ScheduledActionFilterName: instance Amazonka.Data.ByteString.ToByteString Amazonka.Redshift.Types.ScheduledActionFilterName.ScheduledActionFilterName
+ Amazonka.Redshift.Types.ScheduledActionFilterName: instance Amazonka.Data.Headers.ToHeader Amazonka.Redshift.Types.ScheduledActionFilterName.ScheduledActionFilterName
+ Amazonka.Redshift.Types.ScheduledActionFilterName: instance Amazonka.Data.Log.ToLog Amazonka.Redshift.Types.ScheduledActionFilterName.ScheduledActionFilterName
+ Amazonka.Redshift.Types.ScheduledActionFilterName: instance Amazonka.Data.Query.ToQuery Amazonka.Redshift.Types.ScheduledActionFilterName.ScheduledActionFilterName
+ Amazonka.Redshift.Types.ScheduledActionFilterName: instance Amazonka.Data.Text.FromText Amazonka.Redshift.Types.ScheduledActionFilterName.ScheduledActionFilterName
+ Amazonka.Redshift.Types.ScheduledActionFilterName: instance Amazonka.Data.Text.ToText Amazonka.Redshift.Types.ScheduledActionFilterName.ScheduledActionFilterName
+ Amazonka.Redshift.Types.ScheduledActionFilterName: instance Amazonka.Data.XML.FromXML Amazonka.Redshift.Types.ScheduledActionFilterName.ScheduledActionFilterName
+ Amazonka.Redshift.Types.ScheduledActionFilterName: instance Amazonka.Data.XML.ToXML Amazonka.Redshift.Types.ScheduledActionFilterName.ScheduledActionFilterName
+ Amazonka.Redshift.Types.ScheduledActionFilterName: instance Control.DeepSeq.NFData Amazonka.Redshift.Types.ScheduledActionFilterName.ScheduledActionFilterName
+ Amazonka.Redshift.Types.ScheduledActionFilterName: instance Data.Aeson.Types.FromJSON.FromJSON Amazonka.Redshift.Types.ScheduledActionFilterName.ScheduledActionFilterName
+ Amazonka.Redshift.Types.ScheduledActionFilterName: instance Data.Aeson.Types.FromJSON.FromJSONKey Amazonka.Redshift.Types.ScheduledActionFilterName.ScheduledActionFilterName
+ Amazonka.Redshift.Types.ScheduledActionFilterName: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.Redshift.Types.ScheduledActionFilterName.ScheduledActionFilterName
+ Amazonka.Redshift.Types.ScheduledActionFilterName: instance Data.Aeson.Types.ToJSON.ToJSONKey Amazonka.Redshift.Types.ScheduledActionFilterName.ScheduledActionFilterName
+ Amazonka.Redshift.Types.ScheduledActionFilterName: instance Data.Hashable.Class.Hashable Amazonka.Redshift.Types.ScheduledActionFilterName.ScheduledActionFilterName
+ Amazonka.Redshift.Types.ScheduledActionFilterName: instance GHC.Classes.Eq Amazonka.Redshift.Types.ScheduledActionFilterName.ScheduledActionFilterName
+ Amazonka.Redshift.Types.ScheduledActionFilterName: instance GHC.Classes.Ord Amazonka.Redshift.Types.ScheduledActionFilterName.ScheduledActionFilterName
+ Amazonka.Redshift.Types.ScheduledActionFilterName: instance GHC.Generics.Generic Amazonka.Redshift.Types.ScheduledActionFilterName.ScheduledActionFilterName
+ Amazonka.Redshift.Types.ScheduledActionFilterName: instance GHC.Read.Read Amazonka.Redshift.Types.ScheduledActionFilterName.ScheduledActionFilterName
+ Amazonka.Redshift.Types.ScheduledActionFilterName: instance GHC.Show.Show Amazonka.Redshift.Types.ScheduledActionFilterName.ScheduledActionFilterName
+ Amazonka.Redshift.Types.ScheduledActionFilterName: newtype ScheduledActionFilterName
+ Amazonka.Redshift.Types.ScheduledActionFilterName: pattern ScheduledActionFilterName_Cluster_identifier :: ScheduledActionFilterName
+ Amazonka.Redshift.Types.ScheduledActionFilterName: pattern ScheduledActionFilterName_Iam_role :: ScheduledActionFilterName
+ Amazonka.Redshift.Types.ScheduledActionState: ScheduledActionState' :: Text -> ScheduledActionState
+ Amazonka.Redshift.Types.ScheduledActionState: [fromScheduledActionState] :: ScheduledActionState -> Text
+ Amazonka.Redshift.Types.ScheduledActionState: instance Amazonka.Data.ByteString.ToByteString Amazonka.Redshift.Types.ScheduledActionState.ScheduledActionState
+ Amazonka.Redshift.Types.ScheduledActionState: instance Amazonka.Data.Headers.ToHeader Amazonka.Redshift.Types.ScheduledActionState.ScheduledActionState
+ Amazonka.Redshift.Types.ScheduledActionState: instance Amazonka.Data.Log.ToLog Amazonka.Redshift.Types.ScheduledActionState.ScheduledActionState
+ Amazonka.Redshift.Types.ScheduledActionState: instance Amazonka.Data.Query.ToQuery Amazonka.Redshift.Types.ScheduledActionState.ScheduledActionState
+ Amazonka.Redshift.Types.ScheduledActionState: instance Amazonka.Data.Text.FromText Amazonka.Redshift.Types.ScheduledActionState.ScheduledActionState
+ Amazonka.Redshift.Types.ScheduledActionState: instance Amazonka.Data.Text.ToText Amazonka.Redshift.Types.ScheduledActionState.ScheduledActionState
+ Amazonka.Redshift.Types.ScheduledActionState: instance Amazonka.Data.XML.FromXML Amazonka.Redshift.Types.ScheduledActionState.ScheduledActionState
+ Amazonka.Redshift.Types.ScheduledActionState: instance Amazonka.Data.XML.ToXML Amazonka.Redshift.Types.ScheduledActionState.ScheduledActionState
+ Amazonka.Redshift.Types.ScheduledActionState: instance Control.DeepSeq.NFData Amazonka.Redshift.Types.ScheduledActionState.ScheduledActionState
+ Amazonka.Redshift.Types.ScheduledActionState: instance Data.Aeson.Types.FromJSON.FromJSON Amazonka.Redshift.Types.ScheduledActionState.ScheduledActionState
+ Amazonka.Redshift.Types.ScheduledActionState: instance Data.Aeson.Types.FromJSON.FromJSONKey Amazonka.Redshift.Types.ScheduledActionState.ScheduledActionState
+ Amazonka.Redshift.Types.ScheduledActionState: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.Redshift.Types.ScheduledActionState.ScheduledActionState
+ Amazonka.Redshift.Types.ScheduledActionState: instance Data.Aeson.Types.ToJSON.ToJSONKey Amazonka.Redshift.Types.ScheduledActionState.ScheduledActionState
+ Amazonka.Redshift.Types.ScheduledActionState: instance Data.Hashable.Class.Hashable Amazonka.Redshift.Types.ScheduledActionState.ScheduledActionState
+ Amazonka.Redshift.Types.ScheduledActionState: instance GHC.Classes.Eq Amazonka.Redshift.Types.ScheduledActionState.ScheduledActionState
+ Amazonka.Redshift.Types.ScheduledActionState: instance GHC.Classes.Ord Amazonka.Redshift.Types.ScheduledActionState.ScheduledActionState
+ Amazonka.Redshift.Types.ScheduledActionState: instance GHC.Generics.Generic Amazonka.Redshift.Types.ScheduledActionState.ScheduledActionState
+ Amazonka.Redshift.Types.ScheduledActionState: instance GHC.Read.Read Amazonka.Redshift.Types.ScheduledActionState.ScheduledActionState
+ Amazonka.Redshift.Types.ScheduledActionState: instance GHC.Show.Show Amazonka.Redshift.Types.ScheduledActionState.ScheduledActionState
+ Amazonka.Redshift.Types.ScheduledActionState: newtype ScheduledActionState
+ Amazonka.Redshift.Types.ScheduledActionState: pattern ScheduledActionState_ACTIVE :: ScheduledActionState
+ Amazonka.Redshift.Types.ScheduledActionState: pattern ScheduledActionState_DISABLED :: ScheduledActionState
+ Amazonka.Redshift.Types.ScheduledActionType: ScheduledActionType' :: Maybe PauseClusterMessage -> Maybe ResizeClusterMessage -> Maybe ResumeClusterMessage -> ScheduledActionType
+ Amazonka.Redshift.Types.ScheduledActionType: [$sel:pauseCluster:ScheduledActionType'] :: ScheduledActionType -> Maybe PauseClusterMessage
+ Amazonka.Redshift.Types.ScheduledActionType: [$sel:resizeCluster:ScheduledActionType'] :: ScheduledActionType -> Maybe ResizeClusterMessage
+ Amazonka.Redshift.Types.ScheduledActionType: [$sel:resumeCluster:ScheduledActionType'] :: ScheduledActionType -> Maybe ResumeClusterMessage
+ Amazonka.Redshift.Types.ScheduledActionType: data ScheduledActionType
+ Amazonka.Redshift.Types.ScheduledActionType: instance Amazonka.Data.Query.ToQuery Amazonka.Redshift.Types.ScheduledActionType.ScheduledActionType
+ Amazonka.Redshift.Types.ScheduledActionType: instance Amazonka.Data.XML.FromXML Amazonka.Redshift.Types.ScheduledActionType.ScheduledActionType
+ Amazonka.Redshift.Types.ScheduledActionType: instance Control.DeepSeq.NFData Amazonka.Redshift.Types.ScheduledActionType.ScheduledActionType
+ Amazonka.Redshift.Types.ScheduledActionType: instance Data.Hashable.Class.Hashable Amazonka.Redshift.Types.ScheduledActionType.ScheduledActionType
+ Amazonka.Redshift.Types.ScheduledActionType: instance GHC.Classes.Eq Amazonka.Redshift.Types.ScheduledActionType.ScheduledActionType
+ Amazonka.Redshift.Types.ScheduledActionType: instance GHC.Generics.Generic Amazonka.Redshift.Types.ScheduledActionType.ScheduledActionType
+ Amazonka.Redshift.Types.ScheduledActionType: instance GHC.Read.Read Amazonka.Redshift.Types.ScheduledActionType.ScheduledActionType
+ Amazonka.Redshift.Types.ScheduledActionType: instance GHC.Show.Show Amazonka.Redshift.Types.ScheduledActionType.ScheduledActionType
+ Amazonka.Redshift.Types.ScheduledActionType: newScheduledActionType :: ScheduledActionType
+ Amazonka.Redshift.Types.ScheduledActionType: scheduledActionType_pauseCluster :: Lens' ScheduledActionType (Maybe PauseClusterMessage)
+ Amazonka.Redshift.Types.ScheduledActionType: scheduledActionType_resizeCluster :: Lens' ScheduledActionType (Maybe ResizeClusterMessage)
+ Amazonka.Redshift.Types.ScheduledActionType: scheduledActionType_resumeCluster :: Lens' ScheduledActionType (Maybe ResumeClusterMessage)
+ Amazonka.Redshift.Types.ScheduledActionTypeValues: ScheduledActionTypeValues' :: Text -> ScheduledActionTypeValues
+ Amazonka.Redshift.Types.ScheduledActionTypeValues: [fromScheduledActionTypeValues] :: ScheduledActionTypeValues -> Text
+ Amazonka.Redshift.Types.ScheduledActionTypeValues: instance Amazonka.Data.ByteString.ToByteString Amazonka.Redshift.Types.ScheduledActionTypeValues.ScheduledActionTypeValues
+ Amazonka.Redshift.Types.ScheduledActionTypeValues: instance Amazonka.Data.Headers.ToHeader Amazonka.Redshift.Types.ScheduledActionTypeValues.ScheduledActionTypeValues
+ Amazonka.Redshift.Types.ScheduledActionTypeValues: instance Amazonka.Data.Log.ToLog Amazonka.Redshift.Types.ScheduledActionTypeValues.ScheduledActionTypeValues
+ Amazonka.Redshift.Types.ScheduledActionTypeValues: instance Amazonka.Data.Query.ToQuery Amazonka.Redshift.Types.ScheduledActionTypeValues.ScheduledActionTypeValues
+ Amazonka.Redshift.Types.ScheduledActionTypeValues: instance Amazonka.Data.Text.FromText Amazonka.Redshift.Types.ScheduledActionTypeValues.ScheduledActionTypeValues
+ Amazonka.Redshift.Types.ScheduledActionTypeValues: instance Amazonka.Data.Text.ToText Amazonka.Redshift.Types.ScheduledActionTypeValues.ScheduledActionTypeValues
+ Amazonka.Redshift.Types.ScheduledActionTypeValues: instance Amazonka.Data.XML.FromXML Amazonka.Redshift.Types.ScheduledActionTypeValues.ScheduledActionTypeValues
+ Amazonka.Redshift.Types.ScheduledActionTypeValues: instance Amazonka.Data.XML.ToXML Amazonka.Redshift.Types.ScheduledActionTypeValues.ScheduledActionTypeValues
+ Amazonka.Redshift.Types.ScheduledActionTypeValues: instance Control.DeepSeq.NFData Amazonka.Redshift.Types.ScheduledActionTypeValues.ScheduledActionTypeValues
+ Amazonka.Redshift.Types.ScheduledActionTypeValues: instance Data.Aeson.Types.FromJSON.FromJSON Amazonka.Redshift.Types.ScheduledActionTypeValues.ScheduledActionTypeValues
+ Amazonka.Redshift.Types.ScheduledActionTypeValues: instance Data.Aeson.Types.FromJSON.FromJSONKey Amazonka.Redshift.Types.ScheduledActionTypeValues.ScheduledActionTypeValues
+ Amazonka.Redshift.Types.ScheduledActionTypeValues: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.Redshift.Types.ScheduledActionTypeValues.ScheduledActionTypeValues
+ Amazonka.Redshift.Types.ScheduledActionTypeValues: instance Data.Aeson.Types.ToJSON.ToJSONKey Amazonka.Redshift.Types.ScheduledActionTypeValues.ScheduledActionTypeValues
+ Amazonka.Redshift.Types.ScheduledActionTypeValues: instance Data.Hashable.Class.Hashable Amazonka.Redshift.Types.ScheduledActionTypeValues.ScheduledActionTypeValues
+ Amazonka.Redshift.Types.ScheduledActionTypeValues: instance GHC.Classes.Eq Amazonka.Redshift.Types.ScheduledActionTypeValues.ScheduledActionTypeValues
+ Amazonka.Redshift.Types.ScheduledActionTypeValues: instance GHC.Classes.Ord Amazonka.Redshift.Types.ScheduledActionTypeValues.ScheduledActionTypeValues
+ Amazonka.Redshift.Types.ScheduledActionTypeValues: instance GHC.Generics.Generic Amazonka.Redshift.Types.ScheduledActionTypeValues.ScheduledActionTypeValues
+ Amazonka.Redshift.Types.ScheduledActionTypeValues: instance GHC.Read.Read Amazonka.Redshift.Types.ScheduledActionTypeValues.ScheduledActionTypeValues
+ Amazonka.Redshift.Types.ScheduledActionTypeValues: instance GHC.Show.Show Amazonka.Redshift.Types.ScheduledActionTypeValues.ScheduledActionTypeValues
+ Amazonka.Redshift.Types.ScheduledActionTypeValues: newtype ScheduledActionTypeValues
+ Amazonka.Redshift.Types.ScheduledActionTypeValues: pattern ScheduledActionTypeValues_PauseCluster :: ScheduledActionTypeValues
+ Amazonka.Redshift.Types.ScheduledActionTypeValues: pattern ScheduledActionTypeValues_ResizeCluster :: ScheduledActionTypeValues
+ Amazonka.Redshift.Types.ScheduledActionTypeValues: pattern ScheduledActionTypeValues_ResumeCluster :: ScheduledActionTypeValues
+ Amazonka.Redshift.Types.Snapshot: Snapshot' :: Maybe [AccountWithRestoreAccess] -> Maybe Double -> Maybe Text -> Maybe Double -> Maybe ISO8601 -> Maybe Text -> Maybe Text -> Maybe Double -> Maybe Text -> Maybe Integer -> Maybe Bool -> Maybe Bool -> Maybe Text -> Maybe Bool -> Maybe Integer -> Maybe Text -> Maybe Text -> Maybe Int -> Maybe Int -> Maybe Text -> Maybe Text -> Maybe Int -> Maybe Text -> Maybe Int -> Maybe [Text] -> Maybe ISO8601 -> Maybe Text -> Maybe ISO8601 -> Maybe Text -> Maybe Text -> Maybe Text -> Maybe [Tag] -> Maybe Double -> Maybe Text -> Snapshot
+ Amazonka.Redshift.Types.Snapshot: [$sel:accountsWithRestoreAccess:Snapshot'] :: Snapshot -> Maybe [AccountWithRestoreAccess]
+ Amazonka.Redshift.Types.Snapshot: [$sel:actualIncrementalBackupSizeInMegaBytes:Snapshot'] :: Snapshot -> Maybe Double
+ Amazonka.Redshift.Types.Snapshot: [$sel:availabilityZone:Snapshot'] :: Snapshot -> Maybe Text
+ Amazonka.Redshift.Types.Snapshot: [$sel:backupProgressInMegaBytes:Snapshot'] :: Snapshot -> Maybe Double
+ Amazonka.Redshift.Types.Snapshot: [$sel:clusterCreateTime:Snapshot'] :: Snapshot -> Maybe ISO8601
+ Amazonka.Redshift.Types.Snapshot: [$sel:clusterIdentifier:Snapshot'] :: Snapshot -> Maybe Text
+ Amazonka.Redshift.Types.Snapshot: [$sel:clusterVersion:Snapshot'] :: Snapshot -> Maybe Text
+ Amazonka.Redshift.Types.Snapshot: [$sel:currentBackupRateInMegaBytesPerSecond:Snapshot'] :: Snapshot -> Maybe Double
+ Amazonka.Redshift.Types.Snapshot: [$sel:dbName:Snapshot'] :: Snapshot -> Maybe Text
+ Amazonka.Redshift.Types.Snapshot: [$sel:elapsedTimeInSeconds:Snapshot'] :: Snapshot -> Maybe Integer
+ Amazonka.Redshift.Types.Snapshot: [$sel:encrypted:Snapshot'] :: Snapshot -> Maybe Bool
+ Amazonka.Redshift.Types.Snapshot: [$sel:encryptedWithHSM:Snapshot'] :: Snapshot -> Maybe Bool
+ Amazonka.Redshift.Types.Snapshot: [$sel:engineFullVersion:Snapshot'] :: Snapshot -> Maybe Text
+ Amazonka.Redshift.Types.Snapshot: [$sel:enhancedVpcRouting:Snapshot'] :: Snapshot -> Maybe Bool
+ Amazonka.Redshift.Types.Snapshot: [$sel:estimatedSecondsToCompletion:Snapshot'] :: Snapshot -> Maybe Integer
+ Amazonka.Redshift.Types.Snapshot: [$sel:kmsKeyId:Snapshot'] :: Snapshot -> Maybe Text
+ Amazonka.Redshift.Types.Snapshot: [$sel:maintenanceTrackName:Snapshot'] :: Snapshot -> Maybe Text
+ Amazonka.Redshift.Types.Snapshot: [$sel:manualSnapshotRemainingDays:Snapshot'] :: Snapshot -> Maybe Int
+ Amazonka.Redshift.Types.Snapshot: [$sel:manualSnapshotRetentionPeriod:Snapshot'] :: Snapshot -> Maybe Int
+ Amazonka.Redshift.Types.Snapshot: [$sel:masterUsername:Snapshot'] :: Snapshot -> Maybe Text
+ Amazonka.Redshift.Types.Snapshot: [$sel:nodeType:Snapshot'] :: Snapshot -> Maybe Text
+ Amazonka.Redshift.Types.Snapshot: [$sel:numberOfNodes:Snapshot'] :: Snapshot -> Maybe Int
+ Amazonka.Redshift.Types.Snapshot: [$sel:ownerAccount:Snapshot'] :: Snapshot -> Maybe Text
+ Amazonka.Redshift.Types.Snapshot: [$sel:port:Snapshot'] :: Snapshot -> Maybe Int
+ Amazonka.Redshift.Types.Snapshot: [$sel:restorableNodeTypes:Snapshot'] :: Snapshot -> Maybe [Text]
+ Amazonka.Redshift.Types.Snapshot: [$sel:snapshotCreateTime:Snapshot'] :: Snapshot -> Maybe ISO8601
+ Amazonka.Redshift.Types.Snapshot: [$sel:snapshotIdentifier:Snapshot'] :: Snapshot -> Maybe Text
+ Amazonka.Redshift.Types.Snapshot: [$sel:snapshotRetentionStartTime:Snapshot'] :: Snapshot -> Maybe ISO8601
+ Amazonka.Redshift.Types.Snapshot: [$sel:snapshotType:Snapshot'] :: Snapshot -> Maybe Text
+ Amazonka.Redshift.Types.Snapshot: [$sel:sourceRegion:Snapshot'] :: Snapshot -> Maybe Text
+ Amazonka.Redshift.Types.Snapshot: [$sel:status:Snapshot'] :: Snapshot -> Maybe Text
+ Amazonka.Redshift.Types.Snapshot: [$sel:tags:Snapshot'] :: Snapshot -> Maybe [Tag]
+ Amazonka.Redshift.Types.Snapshot: [$sel:totalBackupSizeInMegaBytes:Snapshot'] :: Snapshot -> Maybe Double
+ Amazonka.Redshift.Types.Snapshot: [$sel:vpcId:Snapshot'] :: Snapshot -> Maybe Text
+ Amazonka.Redshift.Types.Snapshot: data Snapshot
+ Amazonka.Redshift.Types.Snapshot: instance Amazonka.Data.XML.FromXML Amazonka.Redshift.Types.Snapshot.Snapshot
+ Amazonka.Redshift.Types.Snapshot: instance Control.DeepSeq.NFData Amazonka.Redshift.Types.Snapshot.Snapshot
+ Amazonka.Redshift.Types.Snapshot: instance Data.Hashable.Class.Hashable Amazonka.Redshift.Types.Snapshot.Snapshot
+ Amazonka.Redshift.Types.Snapshot: instance GHC.Classes.Eq Amazonka.Redshift.Types.Snapshot.Snapshot
+ Amazonka.Redshift.Types.Snapshot: instance GHC.Generics.Generic Amazonka.Redshift.Types.Snapshot.Snapshot
+ Amazonka.Redshift.Types.Snapshot: instance GHC.Read.Read Amazonka.Redshift.Types.Snapshot.Snapshot
+ Amazonka.Redshift.Types.Snapshot: instance GHC.Show.Show Amazonka.Redshift.Types.Snapshot.Snapshot
+ Amazonka.Redshift.Types.Snapshot: newSnapshot :: Snapshot
+ Amazonka.Redshift.Types.Snapshot: snapshot_accountsWithRestoreAccess :: Lens' Snapshot (Maybe [AccountWithRestoreAccess])
+ Amazonka.Redshift.Types.Snapshot: snapshot_actualIncrementalBackupSizeInMegaBytes :: Lens' Snapshot (Maybe Double)
+ Amazonka.Redshift.Types.Snapshot: snapshot_availabilityZone :: Lens' Snapshot (Maybe Text)
+ Amazonka.Redshift.Types.Snapshot: snapshot_backupProgressInMegaBytes :: Lens' Snapshot (Maybe Double)
+ Amazonka.Redshift.Types.Snapshot: snapshot_clusterCreateTime :: Lens' Snapshot (Maybe UTCTime)
+ Amazonka.Redshift.Types.Snapshot: snapshot_clusterIdentifier :: Lens' Snapshot (Maybe Text)
+ Amazonka.Redshift.Types.Snapshot: snapshot_clusterVersion :: Lens' Snapshot (Maybe Text)
+ Amazonka.Redshift.Types.Snapshot: snapshot_currentBackupRateInMegaBytesPerSecond :: Lens' Snapshot (Maybe Double)
+ Amazonka.Redshift.Types.Snapshot: snapshot_dbName :: Lens' Snapshot (Maybe Text)
+ Amazonka.Redshift.Types.Snapshot: snapshot_elapsedTimeInSeconds :: Lens' Snapshot (Maybe Integer)
+ Amazonka.Redshift.Types.Snapshot: snapshot_encrypted :: Lens' Snapshot (Maybe Bool)
+ Amazonka.Redshift.Types.Snapshot: snapshot_encryptedWithHSM :: Lens' Snapshot (Maybe Bool)
+ Amazonka.Redshift.Types.Snapshot: snapshot_engineFullVersion :: Lens' Snapshot (Maybe Text)
+ Amazonka.Redshift.Types.Snapshot: snapshot_enhancedVpcRouting :: Lens' Snapshot (Maybe Bool)
+ Amazonka.Redshift.Types.Snapshot: snapshot_estimatedSecondsToCompletion :: Lens' Snapshot (Maybe Integer)
+ Amazonka.Redshift.Types.Snapshot: snapshot_kmsKeyId :: Lens' Snapshot (Maybe Text)
+ Amazonka.Redshift.Types.Snapshot: snapshot_maintenanceTrackName :: Lens' Snapshot (Maybe Text)
+ Amazonka.Redshift.Types.Snapshot: snapshot_manualSnapshotRemainingDays :: Lens' Snapshot (Maybe Int)
+ Amazonka.Redshift.Types.Snapshot: snapshot_manualSnapshotRetentionPeriod :: Lens' Snapshot (Maybe Int)
+ Amazonka.Redshift.Types.Snapshot: snapshot_masterUsername :: Lens' Snapshot (Maybe Text)
+ Amazonka.Redshift.Types.Snapshot: snapshot_nodeType :: Lens' Snapshot (Maybe Text)
+ Amazonka.Redshift.Types.Snapshot: snapshot_numberOfNodes :: Lens' Snapshot (Maybe Int)
+ Amazonka.Redshift.Types.Snapshot: snapshot_ownerAccount :: Lens' Snapshot (Maybe Text)
+ Amazonka.Redshift.Types.Snapshot: snapshot_port :: Lens' Snapshot (Maybe Int)
+ Amazonka.Redshift.Types.Snapshot: snapshot_restorableNodeTypes :: Lens' Snapshot (Maybe [Text])
+ Amazonka.Redshift.Types.Snapshot: snapshot_snapshotCreateTime :: Lens' Snapshot (Maybe UTCTime)
+ Amazonka.Redshift.Types.Snapshot: snapshot_snapshotIdentifier :: Lens' Snapshot (Maybe Text)
+ Amazonka.Redshift.Types.Snapshot: snapshot_snapshotRetentionStartTime :: Lens' Snapshot (Maybe UTCTime)
+ Amazonka.Redshift.Types.Snapshot: snapshot_snapshotType :: Lens' Snapshot (Maybe Text)
+ Amazonka.Redshift.Types.Snapshot: snapshot_sourceRegion :: Lens' Snapshot (Maybe Text)
+ Amazonka.Redshift.Types.Snapshot: snapshot_status :: Lens' Snapshot (Maybe Text)
+ Amazonka.Redshift.Types.Snapshot: snapshot_tags :: Lens' Snapshot (Maybe [Tag])
+ Amazonka.Redshift.Types.Snapshot: snapshot_totalBackupSizeInMegaBytes :: Lens' Snapshot (Maybe Double)
+ Amazonka.Redshift.Types.Snapshot: snapshot_vpcId :: Lens' Snapshot (Maybe Text)
+ Amazonka.Redshift.Types.SnapshotAttributeToSortBy: SnapshotAttributeToSortBy' :: Text -> SnapshotAttributeToSortBy
+ Amazonka.Redshift.Types.SnapshotAttributeToSortBy: [fromSnapshotAttributeToSortBy] :: SnapshotAttributeToSortBy -> Text
+ Amazonka.Redshift.Types.SnapshotAttributeToSortBy: instance Amazonka.Data.ByteString.ToByteString Amazonka.Redshift.Types.SnapshotAttributeToSortBy.SnapshotAttributeToSortBy
+ Amazonka.Redshift.Types.SnapshotAttributeToSortBy: instance Amazonka.Data.Headers.ToHeader Amazonka.Redshift.Types.SnapshotAttributeToSortBy.SnapshotAttributeToSortBy
+ Amazonka.Redshift.Types.SnapshotAttributeToSortBy: instance Amazonka.Data.Log.ToLog Amazonka.Redshift.Types.SnapshotAttributeToSortBy.SnapshotAttributeToSortBy
+ Amazonka.Redshift.Types.SnapshotAttributeToSortBy: instance Amazonka.Data.Query.ToQuery Amazonka.Redshift.Types.SnapshotAttributeToSortBy.SnapshotAttributeToSortBy
+ Amazonka.Redshift.Types.SnapshotAttributeToSortBy: instance Amazonka.Data.Text.FromText Amazonka.Redshift.Types.SnapshotAttributeToSortBy.SnapshotAttributeToSortBy
+ Amazonka.Redshift.Types.SnapshotAttributeToSortBy: instance Amazonka.Data.Text.ToText Amazonka.Redshift.Types.SnapshotAttributeToSortBy.SnapshotAttributeToSortBy
+ Amazonka.Redshift.Types.SnapshotAttributeToSortBy: instance Amazonka.Data.XML.FromXML Amazonka.Redshift.Types.SnapshotAttributeToSortBy.SnapshotAttributeToSortBy
+ Amazonka.Redshift.Types.SnapshotAttributeToSortBy: instance Amazonka.Data.XML.ToXML Amazonka.Redshift.Types.SnapshotAttributeToSortBy.SnapshotAttributeToSortBy
+ Amazonka.Redshift.Types.SnapshotAttributeToSortBy: instance Control.DeepSeq.NFData Amazonka.Redshift.Types.SnapshotAttributeToSortBy.SnapshotAttributeToSortBy
+ Amazonka.Redshift.Types.SnapshotAttributeToSortBy: instance Data.Aeson.Types.FromJSON.FromJSON Amazonka.Redshift.Types.SnapshotAttributeToSortBy.SnapshotAttributeToSortBy
+ Amazonka.Redshift.Types.SnapshotAttributeToSortBy: instance Data.Aeson.Types.FromJSON.FromJSONKey Amazonka.Redshift.Types.SnapshotAttributeToSortBy.SnapshotAttributeToSortBy
+ Amazonka.Redshift.Types.SnapshotAttributeToSortBy: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.Redshift.Types.SnapshotAttributeToSortBy.SnapshotAttributeToSortBy
+ Amazonka.Redshift.Types.SnapshotAttributeToSortBy: instance Data.Aeson.Types.ToJSON.ToJSONKey Amazonka.Redshift.Types.SnapshotAttributeToSortBy.SnapshotAttributeToSortBy
+ Amazonka.Redshift.Types.SnapshotAttributeToSortBy: instance Data.Hashable.Class.Hashable Amazonka.Redshift.Types.SnapshotAttributeToSortBy.SnapshotAttributeToSortBy
+ Amazonka.Redshift.Types.SnapshotAttributeToSortBy: instance GHC.Classes.Eq Amazonka.Redshift.Types.SnapshotAttributeToSortBy.SnapshotAttributeToSortBy
+ Amazonka.Redshift.Types.SnapshotAttributeToSortBy: instance GHC.Classes.Ord Amazonka.Redshift.Types.SnapshotAttributeToSortBy.SnapshotAttributeToSortBy
+ Amazonka.Redshift.Types.SnapshotAttributeToSortBy: instance GHC.Generics.Generic Amazonka.Redshift.Types.SnapshotAttributeToSortBy.SnapshotAttributeToSortBy
+ Amazonka.Redshift.Types.SnapshotAttributeToSortBy: instance GHC.Read.Read Amazonka.Redshift.Types.SnapshotAttributeToSortBy.SnapshotAttributeToSortBy
+ Amazonka.Redshift.Types.SnapshotAttributeToSortBy: instance GHC.Show.Show Amazonka.Redshift.Types.SnapshotAttributeToSortBy.SnapshotAttributeToSortBy
+ Amazonka.Redshift.Types.SnapshotAttributeToSortBy: newtype SnapshotAttributeToSortBy
+ Amazonka.Redshift.Types.SnapshotAttributeToSortBy: pattern SnapshotAttributeToSortBy_CREATE_TIME :: SnapshotAttributeToSortBy
+ Amazonka.Redshift.Types.SnapshotAttributeToSortBy: pattern SnapshotAttributeToSortBy_SOURCE_TYPE :: SnapshotAttributeToSortBy
+ Amazonka.Redshift.Types.SnapshotAttributeToSortBy: pattern SnapshotAttributeToSortBy_TOTAL_SIZE :: SnapshotAttributeToSortBy
+ Amazonka.Redshift.Types.SnapshotCopyGrant: SnapshotCopyGrant' :: Maybe Text -> Maybe Text -> Maybe [Tag] -> SnapshotCopyGrant
+ Amazonka.Redshift.Types.SnapshotCopyGrant: [$sel:kmsKeyId:SnapshotCopyGrant'] :: SnapshotCopyGrant -> Maybe Text
+ Amazonka.Redshift.Types.SnapshotCopyGrant: [$sel:snapshotCopyGrantName:SnapshotCopyGrant'] :: SnapshotCopyGrant -> Maybe Text
+ Amazonka.Redshift.Types.SnapshotCopyGrant: [$sel:tags:SnapshotCopyGrant'] :: SnapshotCopyGrant -> Maybe [Tag]
+ Amazonka.Redshift.Types.SnapshotCopyGrant: data SnapshotCopyGrant
+ Amazonka.Redshift.Types.SnapshotCopyGrant: instance Amazonka.Data.XML.FromXML Amazonka.Redshift.Types.SnapshotCopyGrant.SnapshotCopyGrant
+ Amazonka.Redshift.Types.SnapshotCopyGrant: instance Control.DeepSeq.NFData Amazonka.Redshift.Types.SnapshotCopyGrant.SnapshotCopyGrant
+ Amazonka.Redshift.Types.SnapshotCopyGrant: instance Data.Hashable.Class.Hashable Amazonka.Redshift.Types.SnapshotCopyGrant.SnapshotCopyGrant
+ Amazonka.Redshift.Types.SnapshotCopyGrant: instance GHC.Classes.Eq Amazonka.Redshift.Types.SnapshotCopyGrant.SnapshotCopyGrant
+ Amazonka.Redshift.Types.SnapshotCopyGrant: instance GHC.Generics.Generic Amazonka.Redshift.Types.SnapshotCopyGrant.SnapshotCopyGrant
+ Amazonka.Redshift.Types.SnapshotCopyGrant: instance GHC.Read.Read Amazonka.Redshift.Types.SnapshotCopyGrant.SnapshotCopyGrant
+ Amazonka.Redshift.Types.SnapshotCopyGrant: instance GHC.Show.Show Amazonka.Redshift.Types.SnapshotCopyGrant.SnapshotCopyGrant
+ Amazonka.Redshift.Types.SnapshotCopyGrant: newSnapshotCopyGrant :: SnapshotCopyGrant
+ Amazonka.Redshift.Types.SnapshotCopyGrant: snapshotCopyGrant_kmsKeyId :: Lens' SnapshotCopyGrant (Maybe Text)
+ Amazonka.Redshift.Types.SnapshotCopyGrant: snapshotCopyGrant_snapshotCopyGrantName :: Lens' SnapshotCopyGrant (Maybe Text)
+ Amazonka.Redshift.Types.SnapshotCopyGrant: snapshotCopyGrant_tags :: Lens' SnapshotCopyGrant (Maybe [Tag])
+ Amazonka.Redshift.Types.SnapshotErrorMessage: SnapshotErrorMessage' :: Maybe Text -> Maybe Text -> Maybe Text -> Maybe Text -> SnapshotErrorMessage
+ Amazonka.Redshift.Types.SnapshotErrorMessage: [$sel:failureCode:SnapshotErrorMessage'] :: SnapshotErrorMessage -> Maybe Text
+ Amazonka.Redshift.Types.SnapshotErrorMessage: [$sel:failureReason:SnapshotErrorMessage'] :: SnapshotErrorMessage -> Maybe Text
+ Amazonka.Redshift.Types.SnapshotErrorMessage: [$sel:snapshotClusterIdentifier:SnapshotErrorMessage'] :: SnapshotErrorMessage -> Maybe Text
+ Amazonka.Redshift.Types.SnapshotErrorMessage: [$sel:snapshotIdentifier:SnapshotErrorMessage'] :: SnapshotErrorMessage -> Maybe Text
+ Amazonka.Redshift.Types.SnapshotErrorMessage: data SnapshotErrorMessage
+ Amazonka.Redshift.Types.SnapshotErrorMessage: instance Amazonka.Data.XML.FromXML Amazonka.Redshift.Types.SnapshotErrorMessage.SnapshotErrorMessage
+ Amazonka.Redshift.Types.SnapshotErrorMessage: instance Control.DeepSeq.NFData Amazonka.Redshift.Types.SnapshotErrorMessage.SnapshotErrorMessage
+ Amazonka.Redshift.Types.SnapshotErrorMessage: instance Data.Hashable.Class.Hashable Amazonka.Redshift.Types.SnapshotErrorMessage.SnapshotErrorMessage
+ Amazonka.Redshift.Types.SnapshotErrorMessage: instance GHC.Classes.Eq Amazonka.Redshift.Types.SnapshotErrorMessage.SnapshotErrorMessage
+ Amazonka.Redshift.Types.SnapshotErrorMessage: instance GHC.Generics.Generic Amazonka.Redshift.Types.SnapshotErrorMessage.SnapshotErrorMessage
+ Amazonka.Redshift.Types.SnapshotErrorMessage: instance GHC.Read.Read Amazonka.Redshift.Types.SnapshotErrorMessage.SnapshotErrorMessage
+ Amazonka.Redshift.Types.SnapshotErrorMessage: instance GHC.Show.Show Amazonka.Redshift.Types.SnapshotErrorMessage.SnapshotErrorMessage
+ Amazonka.Redshift.Types.SnapshotErrorMessage: newSnapshotErrorMessage :: SnapshotErrorMessage
+ Amazonka.Redshift.Types.SnapshotErrorMessage: snapshotErrorMessage_failureCode :: Lens' SnapshotErrorMessage (Maybe Text)
+ Amazonka.Redshift.Types.SnapshotErrorMessage: snapshotErrorMessage_failureReason :: Lens' SnapshotErrorMessage (Maybe Text)
+ Amazonka.Redshift.Types.SnapshotErrorMessage: snapshotErrorMessage_snapshotClusterIdentifier :: Lens' SnapshotErrorMessage (Maybe Text)
+ Amazonka.Redshift.Types.SnapshotErrorMessage: snapshotErrorMessage_snapshotIdentifier :: Lens' SnapshotErrorMessage (Maybe Text)
+ Amazonka.Redshift.Types.SnapshotSchedule: SnapshotSchedule' :: Maybe Int -> Maybe [ClusterAssociatedToSchedule] -> Maybe [ISO8601] -> Maybe [Text] -> Maybe Text -> Maybe Text -> Maybe [Tag] -> SnapshotSchedule
+ Amazonka.Redshift.Types.SnapshotSchedule: [$sel:associatedClusterCount:SnapshotSchedule'] :: SnapshotSchedule -> Maybe Int
+ Amazonka.Redshift.Types.SnapshotSchedule: [$sel:associatedClusters:SnapshotSchedule'] :: SnapshotSchedule -> Maybe [ClusterAssociatedToSchedule]
+ Amazonka.Redshift.Types.SnapshotSchedule: [$sel:nextInvocations:SnapshotSchedule'] :: SnapshotSchedule -> Maybe [ISO8601]
+ Amazonka.Redshift.Types.SnapshotSchedule: [$sel:scheduleDefinitions:SnapshotSchedule'] :: SnapshotSchedule -> Maybe [Text]
+ Amazonka.Redshift.Types.SnapshotSchedule: [$sel:scheduleDescription:SnapshotSchedule'] :: SnapshotSchedule -> Maybe Text
+ Amazonka.Redshift.Types.SnapshotSchedule: [$sel:scheduleIdentifier:SnapshotSchedule'] :: SnapshotSchedule -> Maybe Text
+ Amazonka.Redshift.Types.SnapshotSchedule: [$sel:tags:SnapshotSchedule'] :: SnapshotSchedule -> Maybe [Tag]
+ Amazonka.Redshift.Types.SnapshotSchedule: data SnapshotSchedule
+ Amazonka.Redshift.Types.SnapshotSchedule: instance Amazonka.Data.XML.FromXML Amazonka.Redshift.Types.SnapshotSchedule.SnapshotSchedule
+ Amazonka.Redshift.Types.SnapshotSchedule: instance Control.DeepSeq.NFData Amazonka.Redshift.Types.SnapshotSchedule.SnapshotSchedule
+ Amazonka.Redshift.Types.SnapshotSchedule: instance Data.Hashable.Class.Hashable Amazonka.Redshift.Types.SnapshotSchedule.SnapshotSchedule
+ Amazonka.Redshift.Types.SnapshotSchedule: instance GHC.Classes.Eq Amazonka.Redshift.Types.SnapshotSchedule.SnapshotSchedule
+ Amazonka.Redshift.Types.SnapshotSchedule: instance GHC.Generics.Generic Amazonka.Redshift.Types.SnapshotSchedule.SnapshotSchedule
+ Amazonka.Redshift.Types.SnapshotSchedule: instance GHC.Read.Read Amazonka.Redshift.Types.SnapshotSchedule.SnapshotSchedule
+ Amazonka.Redshift.Types.SnapshotSchedule: instance GHC.Show.Show Amazonka.Redshift.Types.SnapshotSchedule.SnapshotSchedule
+ Amazonka.Redshift.Types.SnapshotSchedule: newSnapshotSchedule :: SnapshotSchedule
+ Amazonka.Redshift.Types.SnapshotSchedule: snapshotSchedule_associatedClusterCount :: Lens' SnapshotSchedule (Maybe Int)
+ Amazonka.Redshift.Types.SnapshotSchedule: snapshotSchedule_associatedClusters :: Lens' SnapshotSchedule (Maybe [ClusterAssociatedToSchedule])
+ Amazonka.Redshift.Types.SnapshotSchedule: snapshotSchedule_nextInvocations :: Lens' SnapshotSchedule (Maybe [UTCTime])
+ Amazonka.Redshift.Types.SnapshotSchedule: snapshotSchedule_scheduleDefinitions :: Lens' SnapshotSchedule (Maybe [Text])
+ Amazonka.Redshift.Types.SnapshotSchedule: snapshotSchedule_scheduleDescription :: Lens' SnapshotSchedule (Maybe Text)
+ Amazonka.Redshift.Types.SnapshotSchedule: snapshotSchedule_scheduleIdentifier :: Lens' SnapshotSchedule (Maybe Text)
+ Amazonka.Redshift.Types.SnapshotSchedule: snapshotSchedule_tags :: Lens' SnapshotSchedule (Maybe [Tag])
+ Amazonka.Redshift.Types.SnapshotSortingEntity: SnapshotSortingEntity' :: Maybe SortByOrder -> SnapshotAttributeToSortBy -> SnapshotSortingEntity
+ Amazonka.Redshift.Types.SnapshotSortingEntity: [$sel:attribute:SnapshotSortingEntity'] :: SnapshotSortingEntity -> SnapshotAttributeToSortBy
+ Amazonka.Redshift.Types.SnapshotSortingEntity: [$sel:sortOrder:SnapshotSortingEntity'] :: SnapshotSortingEntity -> Maybe SortByOrder
+ Amazonka.Redshift.Types.SnapshotSortingEntity: data SnapshotSortingEntity
+ Amazonka.Redshift.Types.SnapshotSortingEntity: instance Amazonka.Data.Query.ToQuery Amazonka.Redshift.Types.SnapshotSortingEntity.SnapshotSortingEntity
+ Amazonka.Redshift.Types.SnapshotSortingEntity: instance Control.DeepSeq.NFData Amazonka.Redshift.Types.SnapshotSortingEntity.SnapshotSortingEntity
+ Amazonka.Redshift.Types.SnapshotSortingEntity: instance Data.Hashable.Class.Hashable Amazonka.Redshift.Types.SnapshotSortingEntity.SnapshotSortingEntity
+ Amazonka.Redshift.Types.SnapshotSortingEntity: instance GHC.Classes.Eq Amazonka.Redshift.Types.SnapshotSortingEntity.SnapshotSortingEntity
+ Amazonka.Redshift.Types.SnapshotSortingEntity: instance GHC.Generics.Generic Amazonka.Redshift.Types.SnapshotSortingEntity.SnapshotSortingEntity
+ Amazonka.Redshift.Types.SnapshotSortingEntity: instance GHC.Read.Read Amazonka.Redshift.Types.SnapshotSortingEntity.SnapshotSortingEntity
+ Amazonka.Redshift.Types.SnapshotSortingEntity: instance GHC.Show.Show Amazonka.Redshift.Types.SnapshotSortingEntity.SnapshotSortingEntity
+ Amazonka.Redshift.Types.SnapshotSortingEntity: newSnapshotSortingEntity :: SnapshotAttributeToSortBy -> SnapshotSortingEntity
+ Amazonka.Redshift.Types.SnapshotSortingEntity: snapshotSortingEntity_attribute :: Lens' SnapshotSortingEntity SnapshotAttributeToSortBy
+ Amazonka.Redshift.Types.SnapshotSortingEntity: snapshotSortingEntity_sortOrder :: Lens' SnapshotSortingEntity (Maybe SortByOrder)
+ Amazonka.Redshift.Types.SortByOrder: SortByOrder' :: Text -> SortByOrder
+ Amazonka.Redshift.Types.SortByOrder: [fromSortByOrder] :: SortByOrder -> Text
+ Amazonka.Redshift.Types.SortByOrder: instance Amazonka.Data.ByteString.ToByteString Amazonka.Redshift.Types.SortByOrder.SortByOrder
+ Amazonka.Redshift.Types.SortByOrder: instance Amazonka.Data.Headers.ToHeader Amazonka.Redshift.Types.SortByOrder.SortByOrder
+ Amazonka.Redshift.Types.SortByOrder: instance Amazonka.Data.Log.ToLog Amazonka.Redshift.Types.SortByOrder.SortByOrder
+ Amazonka.Redshift.Types.SortByOrder: instance Amazonka.Data.Query.ToQuery Amazonka.Redshift.Types.SortByOrder.SortByOrder
+ Amazonka.Redshift.Types.SortByOrder: instance Amazonka.Data.Text.FromText Amazonka.Redshift.Types.SortByOrder.SortByOrder
+ Amazonka.Redshift.Types.SortByOrder: instance Amazonka.Data.Text.ToText Amazonka.Redshift.Types.SortByOrder.SortByOrder
+ Amazonka.Redshift.Types.SortByOrder: instance Amazonka.Data.XML.FromXML Amazonka.Redshift.Types.SortByOrder.SortByOrder
+ Amazonka.Redshift.Types.SortByOrder: instance Amazonka.Data.XML.ToXML Amazonka.Redshift.Types.SortByOrder.SortByOrder
+ Amazonka.Redshift.Types.SortByOrder: instance Control.DeepSeq.NFData Amazonka.Redshift.Types.SortByOrder.SortByOrder
+ Amazonka.Redshift.Types.SortByOrder: instance Data.Aeson.Types.FromJSON.FromJSON Amazonka.Redshift.Types.SortByOrder.SortByOrder
+ Amazonka.Redshift.Types.SortByOrder: instance Data.Aeson.Types.FromJSON.FromJSONKey Amazonka.Redshift.Types.SortByOrder.SortByOrder
+ Amazonka.Redshift.Types.SortByOrder: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.Redshift.Types.SortByOrder.SortByOrder
+ Amazonka.Redshift.Types.SortByOrder: instance Data.Aeson.Types.ToJSON.ToJSONKey Amazonka.Redshift.Types.SortByOrder.SortByOrder
+ Amazonka.Redshift.Types.SortByOrder: instance Data.Hashable.Class.Hashable Amazonka.Redshift.Types.SortByOrder.SortByOrder
+ Amazonka.Redshift.Types.SortByOrder: instance GHC.Classes.Eq Amazonka.Redshift.Types.SortByOrder.SortByOrder
+ Amazonka.Redshift.Types.SortByOrder: instance GHC.Classes.Ord Amazonka.Redshift.Types.SortByOrder.SortByOrder
+ Amazonka.Redshift.Types.SortByOrder: instance GHC.Generics.Generic Amazonka.Redshift.Types.SortByOrder.SortByOrder
+ Amazonka.Redshift.Types.SortByOrder: instance GHC.Read.Read Amazonka.Redshift.Types.SortByOrder.SortByOrder
+ Amazonka.Redshift.Types.SortByOrder: instance GHC.Show.Show Amazonka.Redshift.Types.SortByOrder.SortByOrder
+ Amazonka.Redshift.Types.SortByOrder: newtype SortByOrder
+ Amazonka.Redshift.Types.SortByOrder: pattern SortByOrder_ASC :: SortByOrder
+ Amazonka.Redshift.Types.SortByOrder: pattern SortByOrder_DESC :: SortByOrder
+ Amazonka.Redshift.Types.SourceType: SourceType' :: Text -> SourceType
+ Amazonka.Redshift.Types.SourceType: [fromSourceType] :: SourceType -> Text
+ Amazonka.Redshift.Types.SourceType: instance Amazonka.Data.ByteString.ToByteString Amazonka.Redshift.Types.SourceType.SourceType
+ Amazonka.Redshift.Types.SourceType: instance Amazonka.Data.Headers.ToHeader Amazonka.Redshift.Types.SourceType.SourceType
+ Amazonka.Redshift.Types.SourceType: instance Amazonka.Data.Log.ToLog Amazonka.Redshift.Types.SourceType.SourceType
+ Amazonka.Redshift.Types.SourceType: instance Amazonka.Data.Query.ToQuery Amazonka.Redshift.Types.SourceType.SourceType
+ Amazonka.Redshift.Types.SourceType: instance Amazonka.Data.Text.FromText Amazonka.Redshift.Types.SourceType.SourceType
+ Amazonka.Redshift.Types.SourceType: instance Amazonka.Data.Text.ToText Amazonka.Redshift.Types.SourceType.SourceType
+ Amazonka.Redshift.Types.SourceType: instance Amazonka.Data.XML.FromXML Amazonka.Redshift.Types.SourceType.SourceType
+ Amazonka.Redshift.Types.SourceType: instance Amazonka.Data.XML.ToXML Amazonka.Redshift.Types.SourceType.SourceType
+ Amazonka.Redshift.Types.SourceType: instance Control.DeepSeq.NFData Amazonka.Redshift.Types.SourceType.SourceType
+ Amazonka.Redshift.Types.SourceType: instance Data.Aeson.Types.FromJSON.FromJSON Amazonka.Redshift.Types.SourceType.SourceType
+ Amazonka.Redshift.Types.SourceType: instance Data.Aeson.Types.FromJSON.FromJSONKey Amazonka.Redshift.Types.SourceType.SourceType
+ Amazonka.Redshift.Types.SourceType: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.Redshift.Types.SourceType.SourceType
+ Amazonka.Redshift.Types.SourceType: instance Data.Aeson.Types.ToJSON.ToJSONKey Amazonka.Redshift.Types.SourceType.SourceType
+ Amazonka.Redshift.Types.SourceType: instance Data.Hashable.Class.Hashable Amazonka.Redshift.Types.SourceType.SourceType
+ Amazonka.Redshift.Types.SourceType: instance GHC.Classes.Eq Amazonka.Redshift.Types.SourceType.SourceType
+ Amazonka.Redshift.Types.SourceType: instance GHC.Classes.Ord Amazonka.Redshift.Types.SourceType.SourceType
+ Amazonka.Redshift.Types.SourceType: instance GHC.Generics.Generic Amazonka.Redshift.Types.SourceType.SourceType
+ Amazonka.Redshift.Types.SourceType: instance GHC.Read.Read Amazonka.Redshift.Types.SourceType.SourceType
+ Amazonka.Redshift.Types.SourceType: instance GHC.Show.Show Amazonka.Redshift.Types.SourceType.SourceType
+ Amazonka.Redshift.Types.SourceType: newtype SourceType
+ Amazonka.Redshift.Types.SourceType: pattern SourceType_Cluster :: SourceType
+ Amazonka.Redshift.Types.SourceType: pattern SourceType_Cluster_parameter_group :: SourceType
+ Amazonka.Redshift.Types.SourceType: pattern SourceType_Cluster_security_group :: SourceType
+ Amazonka.Redshift.Types.SourceType: pattern SourceType_Cluster_snapshot :: SourceType
+ Amazonka.Redshift.Types.SourceType: pattern SourceType_Scheduled_action :: SourceType
+ Amazonka.Redshift.Types.Subnet: Subnet' :: Maybe AvailabilityZone -> Maybe Text -> Maybe Text -> Subnet
+ Amazonka.Redshift.Types.Subnet: [$sel:subnetAvailabilityZone:Subnet'] :: Subnet -> Maybe AvailabilityZone
+ Amazonka.Redshift.Types.Subnet: [$sel:subnetIdentifier:Subnet'] :: Subnet -> Maybe Text
+ Amazonka.Redshift.Types.Subnet: [$sel:subnetStatus:Subnet'] :: Subnet -> Maybe Text
+ Amazonka.Redshift.Types.Subnet: data Subnet
+ Amazonka.Redshift.Types.Subnet: instance Amazonka.Data.XML.FromXML Amazonka.Redshift.Types.Subnet.Subnet
+ Amazonka.Redshift.Types.Subnet: instance Control.DeepSeq.NFData Amazonka.Redshift.Types.Subnet.Subnet
+ Amazonka.Redshift.Types.Subnet: instance Data.Hashable.Class.Hashable Amazonka.Redshift.Types.Subnet.Subnet
+ Amazonka.Redshift.Types.Subnet: instance GHC.Classes.Eq Amazonka.Redshift.Types.Subnet.Subnet
+ Amazonka.Redshift.Types.Subnet: instance GHC.Generics.Generic Amazonka.Redshift.Types.Subnet.Subnet
+ Amazonka.Redshift.Types.Subnet: instance GHC.Read.Read Amazonka.Redshift.Types.Subnet.Subnet
+ Amazonka.Redshift.Types.Subnet: instance GHC.Show.Show Amazonka.Redshift.Types.Subnet.Subnet
+ Amazonka.Redshift.Types.Subnet: newSubnet :: Subnet
+ Amazonka.Redshift.Types.Subnet: subnet_subnetAvailabilityZone :: Lens' Subnet (Maybe AvailabilityZone)
+ Amazonka.Redshift.Types.Subnet: subnet_subnetIdentifier :: Lens' Subnet (Maybe Text)
+ Amazonka.Redshift.Types.Subnet: subnet_subnetStatus :: Lens' Subnet (Maybe Text)
+ Amazonka.Redshift.Types.SupportedOperation: SupportedOperation' :: Maybe Text -> SupportedOperation
+ Amazonka.Redshift.Types.SupportedOperation: [$sel:operationName:SupportedOperation'] :: SupportedOperation -> Maybe Text
+ Amazonka.Redshift.Types.SupportedOperation: data SupportedOperation
+ Amazonka.Redshift.Types.SupportedOperation: instance Amazonka.Data.XML.FromXML Amazonka.Redshift.Types.SupportedOperation.SupportedOperation
+ Amazonka.Redshift.Types.SupportedOperation: instance Control.DeepSeq.NFData Amazonka.Redshift.Types.SupportedOperation.SupportedOperation
+ Amazonka.Redshift.Types.SupportedOperation: instance Data.Hashable.Class.Hashable Amazonka.Redshift.Types.SupportedOperation.SupportedOperation
+ Amazonka.Redshift.Types.SupportedOperation: instance GHC.Classes.Eq Amazonka.Redshift.Types.SupportedOperation.SupportedOperation
+ Amazonka.Redshift.Types.SupportedOperation: instance GHC.Generics.Generic Amazonka.Redshift.Types.SupportedOperation.SupportedOperation
+ Amazonka.Redshift.Types.SupportedOperation: instance GHC.Read.Read Amazonka.Redshift.Types.SupportedOperation.SupportedOperation
+ Amazonka.Redshift.Types.SupportedOperation: instance GHC.Show.Show Amazonka.Redshift.Types.SupportedOperation.SupportedOperation
+ Amazonka.Redshift.Types.SupportedOperation: newSupportedOperation :: SupportedOperation
+ Amazonka.Redshift.Types.SupportedOperation: supportedOperation_operationName :: Lens' SupportedOperation (Maybe Text)
+ Amazonka.Redshift.Types.SupportedPlatform: SupportedPlatform' :: Maybe Text -> SupportedPlatform
+ Amazonka.Redshift.Types.SupportedPlatform: [$sel:name:SupportedPlatform'] :: SupportedPlatform -> Maybe Text
+ Amazonka.Redshift.Types.SupportedPlatform: data SupportedPlatform
+ Amazonka.Redshift.Types.SupportedPlatform: instance Amazonka.Data.XML.FromXML Amazonka.Redshift.Types.SupportedPlatform.SupportedPlatform
+ Amazonka.Redshift.Types.SupportedPlatform: instance Control.DeepSeq.NFData Amazonka.Redshift.Types.SupportedPlatform.SupportedPlatform
+ Amazonka.Redshift.Types.SupportedPlatform: instance Data.Hashable.Class.Hashable Amazonka.Redshift.Types.SupportedPlatform.SupportedPlatform
+ Amazonka.Redshift.Types.SupportedPlatform: instance GHC.Classes.Eq Amazonka.Redshift.Types.SupportedPlatform.SupportedPlatform
+ Amazonka.Redshift.Types.SupportedPlatform: instance GHC.Generics.Generic Amazonka.Redshift.Types.SupportedPlatform.SupportedPlatform
+ Amazonka.Redshift.Types.SupportedPlatform: instance GHC.Read.Read Amazonka.Redshift.Types.SupportedPlatform.SupportedPlatform
+ Amazonka.Redshift.Types.SupportedPlatform: instance GHC.Show.Show Amazonka.Redshift.Types.SupportedPlatform.SupportedPlatform
+ Amazonka.Redshift.Types.SupportedPlatform: newSupportedPlatform :: SupportedPlatform
+ Amazonka.Redshift.Types.SupportedPlatform: supportedPlatform_name :: Lens' SupportedPlatform (Maybe Text)
+ Amazonka.Redshift.Types.TableRestoreStatus: TableRestoreStatus' :: Maybe Text -> Maybe Text -> Maybe Text -> Maybe Integer -> Maybe ISO8601 -> Maybe Text -> Maybe Text -> Maybe Text -> Maybe Text -> Maybe TableRestoreStatusType -> Maybe Text -> Maybe Text -> Maybe Text -> Maybe Integer -> TableRestoreStatus
+ Amazonka.Redshift.Types.TableRestoreStatus: [$sel:clusterIdentifier:TableRestoreStatus'] :: TableRestoreStatus -> Maybe Text
+ Amazonka.Redshift.Types.TableRestoreStatus: [$sel:message:TableRestoreStatus'] :: TableRestoreStatus -> Maybe Text
+ Amazonka.Redshift.Types.TableRestoreStatus: [$sel:newTableName':TableRestoreStatus'] :: TableRestoreStatus -> Maybe Text
+ Amazonka.Redshift.Types.TableRestoreStatus: [$sel:progressInMegaBytes:TableRestoreStatus'] :: TableRestoreStatus -> Maybe Integer
+ Amazonka.Redshift.Types.TableRestoreStatus: [$sel:requestTime:TableRestoreStatus'] :: TableRestoreStatus -> Maybe ISO8601
+ Amazonka.Redshift.Types.TableRestoreStatus: [$sel:snapshotIdentifier:TableRestoreStatus'] :: TableRestoreStatus -> Maybe Text
+ Amazonka.Redshift.Types.TableRestoreStatus: [$sel:sourceDatabaseName:TableRestoreStatus'] :: TableRestoreStatus -> Maybe Text
+ Amazonka.Redshift.Types.TableRestoreStatus: [$sel:sourceSchemaName:TableRestoreStatus'] :: TableRestoreStatus -> Maybe Text
+ Amazonka.Redshift.Types.TableRestoreStatus: [$sel:sourceTableName:TableRestoreStatus'] :: TableRestoreStatus -> Maybe Text
+ Amazonka.Redshift.Types.TableRestoreStatus: [$sel:status:TableRestoreStatus'] :: TableRestoreStatus -> Maybe TableRestoreStatusType
+ Amazonka.Redshift.Types.TableRestoreStatus: [$sel:tableRestoreRequestId:TableRestoreStatus'] :: TableRestoreStatus -> Maybe Text
+ Amazonka.Redshift.Types.TableRestoreStatus: [$sel:targetDatabaseName:TableRestoreStatus'] :: TableRestoreStatus -> Maybe Text
+ Amazonka.Redshift.Types.TableRestoreStatus: [$sel:targetSchemaName:TableRestoreStatus'] :: TableRestoreStatus -> Maybe Text
+ Amazonka.Redshift.Types.TableRestoreStatus: [$sel:totalDataInMegaBytes:TableRestoreStatus'] :: TableRestoreStatus -> Maybe Integer
+ Amazonka.Redshift.Types.TableRestoreStatus: data TableRestoreStatus
+ Amazonka.Redshift.Types.TableRestoreStatus: instance Amazonka.Data.XML.FromXML Amazonka.Redshift.Types.TableRestoreStatus.TableRestoreStatus
+ Amazonka.Redshift.Types.TableRestoreStatus: instance Control.DeepSeq.NFData Amazonka.Redshift.Types.TableRestoreStatus.TableRestoreStatus
+ Amazonka.Redshift.Types.TableRestoreStatus: instance Data.Hashable.Class.Hashable Amazonka.Redshift.Types.TableRestoreStatus.TableRestoreStatus
+ Amazonka.Redshift.Types.TableRestoreStatus: instance GHC.Classes.Eq Amazonka.Redshift.Types.TableRestoreStatus.TableRestoreStatus
+ Amazonka.Redshift.Types.TableRestoreStatus: instance GHC.Generics.Generic Amazonka.Redshift.Types.TableRestoreStatus.TableRestoreStatus
+ Amazonka.Redshift.Types.TableRestoreStatus: instance GHC.Read.Read Amazonka.Redshift.Types.TableRestoreStatus.TableRestoreStatus
+ Amazonka.Redshift.Types.TableRestoreStatus: instance GHC.Show.Show Amazonka.Redshift.Types.TableRestoreStatus.TableRestoreStatus
+ Amazonka.Redshift.Types.TableRestoreStatus: newTableRestoreStatus :: TableRestoreStatus
+ Amazonka.Redshift.Types.TableRestoreStatus: tableRestoreStatus_clusterIdentifier :: Lens' TableRestoreStatus (Maybe Text)
+ Amazonka.Redshift.Types.TableRestoreStatus: tableRestoreStatus_message :: Lens' TableRestoreStatus (Maybe Text)
+ Amazonka.Redshift.Types.TableRestoreStatus: tableRestoreStatus_newTableName :: Lens' TableRestoreStatus (Maybe Text)
+ Amazonka.Redshift.Types.TableRestoreStatus: tableRestoreStatus_progressInMegaBytes :: Lens' TableRestoreStatus (Maybe Integer)
+ Amazonka.Redshift.Types.TableRestoreStatus: tableRestoreStatus_requestTime :: Lens' TableRestoreStatus (Maybe UTCTime)
+ Amazonka.Redshift.Types.TableRestoreStatus: tableRestoreStatus_snapshotIdentifier :: Lens' TableRestoreStatus (Maybe Text)
+ Amazonka.Redshift.Types.TableRestoreStatus: tableRestoreStatus_sourceDatabaseName :: Lens' TableRestoreStatus (Maybe Text)
+ Amazonka.Redshift.Types.TableRestoreStatus: tableRestoreStatus_sourceSchemaName :: Lens' TableRestoreStatus (Maybe Text)
+ Amazonka.Redshift.Types.TableRestoreStatus: tableRestoreStatus_sourceTableName :: Lens' TableRestoreStatus (Maybe Text)
+ Amazonka.Redshift.Types.TableRestoreStatus: tableRestoreStatus_status :: Lens' TableRestoreStatus (Maybe TableRestoreStatusType)
+ Amazonka.Redshift.Types.TableRestoreStatus: tableRestoreStatus_tableRestoreRequestId :: Lens' TableRestoreStatus (Maybe Text)
+ Amazonka.Redshift.Types.TableRestoreStatus: tableRestoreStatus_targetDatabaseName :: Lens' TableRestoreStatus (Maybe Text)
+ Amazonka.Redshift.Types.TableRestoreStatus: tableRestoreStatus_targetSchemaName :: Lens' TableRestoreStatus (Maybe Text)
+ Amazonka.Redshift.Types.TableRestoreStatus: tableRestoreStatus_totalDataInMegaBytes :: Lens' TableRestoreStatus (Maybe Integer)
+ Amazonka.Redshift.Types.TableRestoreStatusType: TableRestoreStatusType' :: Text -> TableRestoreStatusType
+ Amazonka.Redshift.Types.TableRestoreStatusType: [fromTableRestoreStatusType] :: TableRestoreStatusType -> Text
+ Amazonka.Redshift.Types.TableRestoreStatusType: instance Amazonka.Data.ByteString.ToByteString Amazonka.Redshift.Types.TableRestoreStatusType.TableRestoreStatusType
+ Amazonka.Redshift.Types.TableRestoreStatusType: instance Amazonka.Data.Headers.ToHeader Amazonka.Redshift.Types.TableRestoreStatusType.TableRestoreStatusType
+ Amazonka.Redshift.Types.TableRestoreStatusType: instance Amazonka.Data.Log.ToLog Amazonka.Redshift.Types.TableRestoreStatusType.TableRestoreStatusType
+ Amazonka.Redshift.Types.TableRestoreStatusType: instance Amazonka.Data.Query.ToQuery Amazonka.Redshift.Types.TableRestoreStatusType.TableRestoreStatusType
+ Amazonka.Redshift.Types.TableRestoreStatusType: instance Amazonka.Data.Text.FromText Amazonka.Redshift.Types.TableRestoreStatusType.TableRestoreStatusType
+ Amazonka.Redshift.Types.TableRestoreStatusType: instance Amazonka.Data.Text.ToText Amazonka.Redshift.Types.TableRestoreStatusType.TableRestoreStatusType
+ Amazonka.Redshift.Types.TableRestoreStatusType: instance Amazonka.Data.XML.FromXML Amazonka.Redshift.Types.TableRestoreStatusType.TableRestoreStatusType
+ Amazonka.Redshift.Types.TableRestoreStatusType: instance Amazonka.Data.XML.ToXML Amazonka.Redshift.Types.TableRestoreStatusType.TableRestoreStatusType
+ Amazonka.Redshift.Types.TableRestoreStatusType: instance Control.DeepSeq.NFData Amazonka.Redshift.Types.TableRestoreStatusType.TableRestoreStatusType
+ Amazonka.Redshift.Types.TableRestoreStatusType: instance Data.Aeson.Types.FromJSON.FromJSON Amazonka.Redshift.Types.TableRestoreStatusType.TableRestoreStatusType
+ Amazonka.Redshift.Types.TableRestoreStatusType: instance Data.Aeson.Types.FromJSON.FromJSONKey Amazonka.Redshift.Types.TableRestoreStatusType.TableRestoreStatusType
+ Amazonka.Redshift.Types.TableRestoreStatusType: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.Redshift.Types.TableRestoreStatusType.TableRestoreStatusType
+ Amazonka.Redshift.Types.TableRestoreStatusType: instance Data.Aeson.Types.ToJSON.ToJSONKey Amazonka.Redshift.Types.TableRestoreStatusType.TableRestoreStatusType
+ Amazonka.Redshift.Types.TableRestoreStatusType: instance Data.Hashable.Class.Hashable Amazonka.Redshift.Types.TableRestoreStatusType.TableRestoreStatusType
+ Amazonka.Redshift.Types.TableRestoreStatusType: instance GHC.Classes.Eq Amazonka.Redshift.Types.TableRestoreStatusType.TableRestoreStatusType
+ Amazonka.Redshift.Types.TableRestoreStatusType: instance GHC.Classes.Ord Amazonka.Redshift.Types.TableRestoreStatusType.TableRestoreStatusType
+ Amazonka.Redshift.Types.TableRestoreStatusType: instance GHC.Generics.Generic Amazonka.Redshift.Types.TableRestoreStatusType.TableRestoreStatusType
+ Amazonka.Redshift.Types.TableRestoreStatusType: instance GHC.Read.Read Amazonka.Redshift.Types.TableRestoreStatusType.TableRestoreStatusType
+ Amazonka.Redshift.Types.TableRestoreStatusType: instance GHC.Show.Show Amazonka.Redshift.Types.TableRestoreStatusType.TableRestoreStatusType
+ Amazonka.Redshift.Types.TableRestoreStatusType: newtype TableRestoreStatusType
+ Amazonka.Redshift.Types.TableRestoreStatusType: pattern TableRestoreStatusType_CANCELED :: TableRestoreStatusType
+ Amazonka.Redshift.Types.TableRestoreStatusType: pattern TableRestoreStatusType_FAILED :: TableRestoreStatusType
+ Amazonka.Redshift.Types.TableRestoreStatusType: pattern TableRestoreStatusType_IN_PROGRESS :: TableRestoreStatusType
+ Amazonka.Redshift.Types.TableRestoreStatusType: pattern TableRestoreStatusType_PENDING :: TableRestoreStatusType
+ Amazonka.Redshift.Types.TableRestoreStatusType: pattern TableRestoreStatusType_SUCCEEDED :: TableRestoreStatusType
+ Amazonka.Redshift.Types.Tag: Tag' :: Maybe Text -> Maybe Text -> Tag
+ Amazonka.Redshift.Types.Tag: [$sel:key:Tag'] :: Tag -> Maybe Text
+ Amazonka.Redshift.Types.Tag: [$sel:value:Tag'] :: Tag -> Maybe Text
+ Amazonka.Redshift.Types.Tag: data Tag
+ Amazonka.Redshift.Types.Tag: instance Amazonka.Data.Query.ToQuery Amazonka.Redshift.Types.Tag.Tag
+ Amazonka.Redshift.Types.Tag: instance Amazonka.Data.XML.FromXML Amazonka.Redshift.Types.Tag.Tag
+ Amazonka.Redshift.Types.Tag: instance Control.DeepSeq.NFData Amazonka.Redshift.Types.Tag.Tag
+ Amazonka.Redshift.Types.Tag: instance Data.Hashable.Class.Hashable Amazonka.Redshift.Types.Tag.Tag
+ Amazonka.Redshift.Types.Tag: instance GHC.Classes.Eq Amazonka.Redshift.Types.Tag.Tag
+ Amazonka.Redshift.Types.Tag: instance GHC.Generics.Generic Amazonka.Redshift.Types.Tag.Tag
+ Amazonka.Redshift.Types.Tag: instance GHC.Read.Read Amazonka.Redshift.Types.Tag.Tag
+ Amazonka.Redshift.Types.Tag: instance GHC.Show.Show Amazonka.Redshift.Types.Tag.Tag
+ Amazonka.Redshift.Types.Tag: newTag :: Tag
+ Amazonka.Redshift.Types.Tag: tag_key :: Lens' Tag (Maybe Text)
+ Amazonka.Redshift.Types.Tag: tag_value :: Lens' Tag (Maybe Text)
+ Amazonka.Redshift.Types.TaggedResource: TaggedResource' :: Maybe Text -> Maybe Text -> Maybe Tag -> TaggedResource
+ Amazonka.Redshift.Types.TaggedResource: [$sel:resourceName:TaggedResource'] :: TaggedResource -> Maybe Text
+ Amazonka.Redshift.Types.TaggedResource: [$sel:resourceType:TaggedResource'] :: TaggedResource -> Maybe Text
+ Amazonka.Redshift.Types.TaggedResource: [$sel:tag:TaggedResource'] :: TaggedResource -> Maybe Tag
+ Amazonka.Redshift.Types.TaggedResource: data TaggedResource
+ Amazonka.Redshift.Types.TaggedResource: instance Amazonka.Data.XML.FromXML Amazonka.Redshift.Types.TaggedResource.TaggedResource
+ Amazonka.Redshift.Types.TaggedResource: instance Control.DeepSeq.NFData Amazonka.Redshift.Types.TaggedResource.TaggedResource
+ Amazonka.Redshift.Types.TaggedResource: instance Data.Hashable.Class.Hashable Amazonka.Redshift.Types.TaggedResource.TaggedResource
+ Amazonka.Redshift.Types.TaggedResource: instance GHC.Classes.Eq Amazonka.Redshift.Types.TaggedResource.TaggedResource
+ Amazonka.Redshift.Types.TaggedResource: instance GHC.Generics.Generic Amazonka.Redshift.Types.TaggedResource.TaggedResource
+ Amazonka.Redshift.Types.TaggedResource: instance GHC.Read.Read Amazonka.Redshift.Types.TaggedResource.TaggedResource
+ Amazonka.Redshift.Types.TaggedResource: instance GHC.Show.Show Amazonka.Redshift.Types.TaggedResource.TaggedResource
+ Amazonka.Redshift.Types.TaggedResource: newTaggedResource :: TaggedResource
+ Amazonka.Redshift.Types.TaggedResource: taggedResource_resourceName :: Lens' TaggedResource (Maybe Text)
+ Amazonka.Redshift.Types.TaggedResource: taggedResource_resourceType :: Lens' TaggedResource (Maybe Text)
+ Amazonka.Redshift.Types.TaggedResource: taggedResource_tag :: Lens' TaggedResource (Maybe Tag)
+ Amazonka.Redshift.Types.UpdateTarget: UpdateTarget' :: Maybe Text -> Maybe Text -> Maybe [SupportedOperation] -> UpdateTarget
+ Amazonka.Redshift.Types.UpdateTarget: [$sel:databaseVersion:UpdateTarget'] :: UpdateTarget -> Maybe Text
+ Amazonka.Redshift.Types.UpdateTarget: [$sel:maintenanceTrackName:UpdateTarget'] :: UpdateTarget -> Maybe Text
+ Amazonka.Redshift.Types.UpdateTarget: [$sel:supportedOperations:UpdateTarget'] :: UpdateTarget -> Maybe [SupportedOperation]
+ Amazonka.Redshift.Types.UpdateTarget: data UpdateTarget
+ Amazonka.Redshift.Types.UpdateTarget: instance Amazonka.Data.XML.FromXML Amazonka.Redshift.Types.UpdateTarget.UpdateTarget
+ Amazonka.Redshift.Types.UpdateTarget: instance Control.DeepSeq.NFData Amazonka.Redshift.Types.UpdateTarget.UpdateTarget
+ Amazonka.Redshift.Types.UpdateTarget: instance Data.Hashable.Class.Hashable Amazonka.Redshift.Types.UpdateTarget.UpdateTarget
+ Amazonka.Redshift.Types.UpdateTarget: instance GHC.Classes.Eq Amazonka.Redshift.Types.UpdateTarget.UpdateTarget
+ Amazonka.Redshift.Types.UpdateTarget: instance GHC.Generics.Generic Amazonka.Redshift.Types.UpdateTarget.UpdateTarget
+ Amazonka.Redshift.Types.UpdateTarget: instance GHC.Read.Read Amazonka.Redshift.Types.UpdateTarget.UpdateTarget
+ Amazonka.Redshift.Types.UpdateTarget: instance GHC.Show.Show Amazonka.Redshift.Types.UpdateTarget.UpdateTarget
+ Amazonka.Redshift.Types.UpdateTarget: newUpdateTarget :: UpdateTarget
+ Amazonka.Redshift.Types.UpdateTarget: updateTarget_databaseVersion :: Lens' UpdateTarget (Maybe Text)
+ Amazonka.Redshift.Types.UpdateTarget: updateTarget_maintenanceTrackName :: Lens' UpdateTarget (Maybe Text)
+ Amazonka.Redshift.Types.UpdateTarget: updateTarget_supportedOperations :: Lens' UpdateTarget (Maybe [SupportedOperation])
+ Amazonka.Redshift.Types.UsageLimit: UsageLimit' :: Maybe Integer -> Maybe UsageLimitBreachAction -> Maybe Text -> Maybe UsageLimitFeatureType -> Maybe UsageLimitLimitType -> Maybe UsageLimitPeriod -> Maybe [Tag] -> Maybe Text -> UsageLimit
+ Amazonka.Redshift.Types.UsageLimit: [$sel:amount:UsageLimit'] :: UsageLimit -> Maybe Integer
+ Amazonka.Redshift.Types.UsageLimit: [$sel:breachAction:UsageLimit'] :: UsageLimit -> Maybe UsageLimitBreachAction
+ Amazonka.Redshift.Types.UsageLimit: [$sel:clusterIdentifier:UsageLimit'] :: UsageLimit -> Maybe Text
+ Amazonka.Redshift.Types.UsageLimit: [$sel:featureType:UsageLimit'] :: UsageLimit -> Maybe UsageLimitFeatureType
+ Amazonka.Redshift.Types.UsageLimit: [$sel:limitType:UsageLimit'] :: UsageLimit -> Maybe UsageLimitLimitType
+ Amazonka.Redshift.Types.UsageLimit: [$sel:period:UsageLimit'] :: UsageLimit -> Maybe UsageLimitPeriod
+ Amazonka.Redshift.Types.UsageLimit: [$sel:tags:UsageLimit'] :: UsageLimit -> Maybe [Tag]
+ Amazonka.Redshift.Types.UsageLimit: [$sel:usageLimitId:UsageLimit'] :: UsageLimit -> Maybe Text
+ Amazonka.Redshift.Types.UsageLimit: data UsageLimit
+ Amazonka.Redshift.Types.UsageLimit: instance Amazonka.Data.XML.FromXML Amazonka.Redshift.Types.UsageLimit.UsageLimit
+ Amazonka.Redshift.Types.UsageLimit: instance Control.DeepSeq.NFData Amazonka.Redshift.Types.UsageLimit.UsageLimit
+ Amazonka.Redshift.Types.UsageLimit: instance Data.Hashable.Class.Hashable Amazonka.Redshift.Types.UsageLimit.UsageLimit
+ Amazonka.Redshift.Types.UsageLimit: instance GHC.Classes.Eq Amazonka.Redshift.Types.UsageLimit.UsageLimit
+ Amazonka.Redshift.Types.UsageLimit: instance GHC.Generics.Generic Amazonka.Redshift.Types.UsageLimit.UsageLimit
+ Amazonka.Redshift.Types.UsageLimit: instance GHC.Read.Read Amazonka.Redshift.Types.UsageLimit.UsageLimit
+ Amazonka.Redshift.Types.UsageLimit: instance GHC.Show.Show Amazonka.Redshift.Types.UsageLimit.UsageLimit
+ Amazonka.Redshift.Types.UsageLimit: newUsageLimit :: UsageLimit
+ Amazonka.Redshift.Types.UsageLimit: usageLimit_amount :: Lens' UsageLimit (Maybe Integer)
+ Amazonka.Redshift.Types.UsageLimit: usageLimit_breachAction :: Lens' UsageLimit (Maybe UsageLimitBreachAction)
+ Amazonka.Redshift.Types.UsageLimit: usageLimit_clusterIdentifier :: Lens' UsageLimit (Maybe Text)
+ Amazonka.Redshift.Types.UsageLimit: usageLimit_featureType :: Lens' UsageLimit (Maybe UsageLimitFeatureType)
+ Amazonka.Redshift.Types.UsageLimit: usageLimit_limitType :: Lens' UsageLimit (Maybe UsageLimitLimitType)
+ Amazonka.Redshift.Types.UsageLimit: usageLimit_period :: Lens' UsageLimit (Maybe UsageLimitPeriod)
+ Amazonka.Redshift.Types.UsageLimit: usageLimit_tags :: Lens' UsageLimit (Maybe [Tag])
+ Amazonka.Redshift.Types.UsageLimit: usageLimit_usageLimitId :: Lens' UsageLimit (Maybe Text)
+ Amazonka.Redshift.Types.UsageLimitBreachAction: UsageLimitBreachAction' :: Text -> UsageLimitBreachAction
+ Amazonka.Redshift.Types.UsageLimitBreachAction: [fromUsageLimitBreachAction] :: UsageLimitBreachAction -> Text
+ Amazonka.Redshift.Types.UsageLimitBreachAction: instance Amazonka.Data.ByteString.ToByteString Amazonka.Redshift.Types.UsageLimitBreachAction.UsageLimitBreachAction
+ Amazonka.Redshift.Types.UsageLimitBreachAction: instance Amazonka.Data.Headers.ToHeader Amazonka.Redshift.Types.UsageLimitBreachAction.UsageLimitBreachAction
+ Amazonka.Redshift.Types.UsageLimitBreachAction: instance Amazonka.Data.Log.ToLog Amazonka.Redshift.Types.UsageLimitBreachAction.UsageLimitBreachAction
+ Amazonka.Redshift.Types.UsageLimitBreachAction: instance Amazonka.Data.Query.ToQuery Amazonka.Redshift.Types.UsageLimitBreachAction.UsageLimitBreachAction
+ Amazonka.Redshift.Types.UsageLimitBreachAction: instance Amazonka.Data.Text.FromText Amazonka.Redshift.Types.UsageLimitBreachAction.UsageLimitBreachAction
+ Amazonka.Redshift.Types.UsageLimitBreachAction: instance Amazonka.Data.Text.ToText Amazonka.Redshift.Types.UsageLimitBreachAction.UsageLimitBreachAction
+ Amazonka.Redshift.Types.UsageLimitBreachAction: instance Amazonka.Data.XML.FromXML Amazonka.Redshift.Types.UsageLimitBreachAction.UsageLimitBreachAction
+ Amazonka.Redshift.Types.UsageLimitBreachAction: instance Amazonka.Data.XML.ToXML Amazonka.Redshift.Types.UsageLimitBreachAction.UsageLimitBreachAction
+ Amazonka.Redshift.Types.UsageLimitBreachAction: instance Control.DeepSeq.NFData Amazonka.Redshift.Types.UsageLimitBreachAction.UsageLimitBreachAction
+ Amazonka.Redshift.Types.UsageLimitBreachAction: instance Data.Aeson.Types.FromJSON.FromJSON Amazonka.Redshift.Types.UsageLimitBreachAction.UsageLimitBreachAction
+ Amazonka.Redshift.Types.UsageLimitBreachAction: instance Data.Aeson.Types.FromJSON.FromJSONKey Amazonka.Redshift.Types.UsageLimitBreachAction.UsageLimitBreachAction
+ Amazonka.Redshift.Types.UsageLimitBreachAction: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.Redshift.Types.UsageLimitBreachAction.UsageLimitBreachAction
+ Amazonka.Redshift.Types.UsageLimitBreachAction: instance Data.Aeson.Types.ToJSON.ToJSONKey Amazonka.Redshift.Types.UsageLimitBreachAction.UsageLimitBreachAction
+ Amazonka.Redshift.Types.UsageLimitBreachAction: instance Data.Hashable.Class.Hashable Amazonka.Redshift.Types.UsageLimitBreachAction.UsageLimitBreachAction
+ Amazonka.Redshift.Types.UsageLimitBreachAction: instance GHC.Classes.Eq Amazonka.Redshift.Types.UsageLimitBreachAction.UsageLimitBreachAction
+ Amazonka.Redshift.Types.UsageLimitBreachAction: instance GHC.Classes.Ord Amazonka.Redshift.Types.UsageLimitBreachAction.UsageLimitBreachAction
+ Amazonka.Redshift.Types.UsageLimitBreachAction: instance GHC.Generics.Generic Amazonka.Redshift.Types.UsageLimitBreachAction.UsageLimitBreachAction
+ Amazonka.Redshift.Types.UsageLimitBreachAction: instance GHC.Read.Read Amazonka.Redshift.Types.UsageLimitBreachAction.UsageLimitBreachAction
+ Amazonka.Redshift.Types.UsageLimitBreachAction: instance GHC.Show.Show Amazonka.Redshift.Types.UsageLimitBreachAction.UsageLimitBreachAction
+ Amazonka.Redshift.Types.UsageLimitBreachAction: newtype UsageLimitBreachAction
+ Amazonka.Redshift.Types.UsageLimitBreachAction: pattern UsageLimitBreachAction_Disable :: UsageLimitBreachAction
+ Amazonka.Redshift.Types.UsageLimitBreachAction: pattern UsageLimitBreachAction_Emit_metric :: UsageLimitBreachAction
+ Amazonka.Redshift.Types.UsageLimitBreachAction: pattern UsageLimitBreachAction_Log :: UsageLimitBreachAction
+ Amazonka.Redshift.Types.UsageLimitFeatureType: UsageLimitFeatureType' :: Text -> UsageLimitFeatureType
+ Amazonka.Redshift.Types.UsageLimitFeatureType: [fromUsageLimitFeatureType] :: UsageLimitFeatureType -> Text
+ Amazonka.Redshift.Types.UsageLimitFeatureType: instance Amazonka.Data.ByteString.ToByteString Amazonka.Redshift.Types.UsageLimitFeatureType.UsageLimitFeatureType
+ Amazonka.Redshift.Types.UsageLimitFeatureType: instance Amazonka.Data.Headers.ToHeader Amazonka.Redshift.Types.UsageLimitFeatureType.UsageLimitFeatureType
+ Amazonka.Redshift.Types.UsageLimitFeatureType: instance Amazonka.Data.Log.ToLog Amazonka.Redshift.Types.UsageLimitFeatureType.UsageLimitFeatureType
+ Amazonka.Redshift.Types.UsageLimitFeatureType: instance Amazonka.Data.Query.ToQuery Amazonka.Redshift.Types.UsageLimitFeatureType.UsageLimitFeatureType
+ Amazonka.Redshift.Types.UsageLimitFeatureType: instance Amazonka.Data.Text.FromText Amazonka.Redshift.Types.UsageLimitFeatureType.UsageLimitFeatureType
+ Amazonka.Redshift.Types.UsageLimitFeatureType: instance Amazonka.Data.Text.ToText Amazonka.Redshift.Types.UsageLimitFeatureType.UsageLimitFeatureType
+ Amazonka.Redshift.Types.UsageLimitFeatureType: instance Amazonka.Data.XML.FromXML Amazonka.Redshift.Types.UsageLimitFeatureType.UsageLimitFeatureType
+ Amazonka.Redshift.Types.UsageLimitFeatureType: instance Amazonka.Data.XML.ToXML Amazonka.Redshift.Types.UsageLimitFeatureType.UsageLimitFeatureType
+ Amazonka.Redshift.Types.UsageLimitFeatureType: instance Control.DeepSeq.NFData Amazonka.Redshift.Types.UsageLimitFeatureType.UsageLimitFeatureType
+ Amazonka.Redshift.Types.UsageLimitFeatureType: instance Data.Aeson.Types.FromJSON.FromJSON Amazonka.Redshift.Types.UsageLimitFeatureType.UsageLimitFeatureType
+ Amazonka.Redshift.Types.UsageLimitFeatureType: instance Data.Aeson.Types.FromJSON.FromJSONKey Amazonka.Redshift.Types.UsageLimitFeatureType.UsageLimitFeatureType
+ Amazonka.Redshift.Types.UsageLimitFeatureType: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.Redshift.Types.UsageLimitFeatureType.UsageLimitFeatureType
+ Amazonka.Redshift.Types.UsageLimitFeatureType: instance Data.Aeson.Types.ToJSON.ToJSONKey Amazonka.Redshift.Types.UsageLimitFeatureType.UsageLimitFeatureType
+ Amazonka.Redshift.Types.UsageLimitFeatureType: instance Data.Hashable.Class.Hashable Amazonka.Redshift.Types.UsageLimitFeatureType.UsageLimitFeatureType
+ Amazonka.Redshift.Types.UsageLimitFeatureType: instance GHC.Classes.Eq Amazonka.Redshift.Types.UsageLimitFeatureType.UsageLimitFeatureType
+ Amazonka.Redshift.Types.UsageLimitFeatureType: instance GHC.Classes.Ord Amazonka.Redshift.Types.UsageLimitFeatureType.UsageLimitFeatureType
+ Amazonka.Redshift.Types.UsageLimitFeatureType: instance GHC.Generics.Generic Amazonka.Redshift.Types.UsageLimitFeatureType.UsageLimitFeatureType
+ Amazonka.Redshift.Types.UsageLimitFeatureType: instance GHC.Read.Read Amazonka.Redshift.Types.UsageLimitFeatureType.UsageLimitFeatureType
+ Amazonka.Redshift.Types.UsageLimitFeatureType: instance GHC.Show.Show Amazonka.Redshift.Types.UsageLimitFeatureType.UsageLimitFeatureType
+ Amazonka.Redshift.Types.UsageLimitFeatureType: newtype UsageLimitFeatureType
+ Amazonka.Redshift.Types.UsageLimitFeatureType: pattern UsageLimitFeatureType_Concurrency_scaling :: UsageLimitFeatureType
+ Amazonka.Redshift.Types.UsageLimitFeatureType: pattern UsageLimitFeatureType_Cross_region_datasharing :: UsageLimitFeatureType
+ Amazonka.Redshift.Types.UsageLimitFeatureType: pattern UsageLimitFeatureType_Spectrum :: UsageLimitFeatureType
+ Amazonka.Redshift.Types.UsageLimitLimitType: UsageLimitLimitType' :: Text -> UsageLimitLimitType
+ Amazonka.Redshift.Types.UsageLimitLimitType: [fromUsageLimitLimitType] :: UsageLimitLimitType -> Text
+ Amazonka.Redshift.Types.UsageLimitLimitType: instance Amazonka.Data.ByteString.ToByteString Amazonka.Redshift.Types.UsageLimitLimitType.UsageLimitLimitType
+ Amazonka.Redshift.Types.UsageLimitLimitType: instance Amazonka.Data.Headers.ToHeader Amazonka.Redshift.Types.UsageLimitLimitType.UsageLimitLimitType
+ Amazonka.Redshift.Types.UsageLimitLimitType: instance Amazonka.Data.Log.ToLog Amazonka.Redshift.Types.UsageLimitLimitType.UsageLimitLimitType
+ Amazonka.Redshift.Types.UsageLimitLimitType: instance Amazonka.Data.Query.ToQuery Amazonka.Redshift.Types.UsageLimitLimitType.UsageLimitLimitType
+ Amazonka.Redshift.Types.UsageLimitLimitType: instance Amazonka.Data.Text.FromText Amazonka.Redshift.Types.UsageLimitLimitType.UsageLimitLimitType
+ Amazonka.Redshift.Types.UsageLimitLimitType: instance Amazonka.Data.Text.ToText Amazonka.Redshift.Types.UsageLimitLimitType.UsageLimitLimitType
+ Amazonka.Redshift.Types.UsageLimitLimitType: instance Amazonka.Data.XML.FromXML Amazonka.Redshift.Types.UsageLimitLimitType.UsageLimitLimitType
+ Amazonka.Redshift.Types.UsageLimitLimitType: instance Amazonka.Data.XML.ToXML Amazonka.Redshift.Types.UsageLimitLimitType.UsageLimitLimitType
+ Amazonka.Redshift.Types.UsageLimitLimitType: instance Control.DeepSeq.NFData Amazonka.Redshift.Types.UsageLimitLimitType.UsageLimitLimitType
+ Amazonka.Redshift.Types.UsageLimitLimitType: instance Data.Aeson.Types.FromJSON.FromJSON Amazonka.Redshift.Types.UsageLimitLimitType.UsageLimitLimitType
+ Amazonka.Redshift.Types.UsageLimitLimitType: instance Data.Aeson.Types.FromJSON.FromJSONKey Amazonka.Redshift.Types.UsageLimitLimitType.UsageLimitLimitType
+ Amazonka.Redshift.Types.UsageLimitLimitType: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.Redshift.Types.UsageLimitLimitType.UsageLimitLimitType
+ Amazonka.Redshift.Types.UsageLimitLimitType: instance Data.Aeson.Types.ToJSON.ToJSONKey Amazonka.Redshift.Types.UsageLimitLimitType.UsageLimitLimitType
+ Amazonka.Redshift.Types.UsageLimitLimitType: instance Data.Hashable.Class.Hashable Amazonka.Redshift.Types.UsageLimitLimitType.UsageLimitLimitType
+ Amazonka.Redshift.Types.UsageLimitLimitType: instance GHC.Classes.Eq Amazonka.Redshift.Types.UsageLimitLimitType.UsageLimitLimitType
+ Amazonka.Redshift.Types.UsageLimitLimitType: instance GHC.Classes.Ord Amazonka.Redshift.Types.UsageLimitLimitType.UsageLimitLimitType
+ Amazonka.Redshift.Types.UsageLimitLimitType: instance GHC.Generics.Generic Amazonka.Redshift.Types.UsageLimitLimitType.UsageLimitLimitType
+ Amazonka.Redshift.Types.UsageLimitLimitType: instance GHC.Read.Read Amazonka.Redshift.Types.UsageLimitLimitType.UsageLimitLimitType
+ Amazonka.Redshift.Types.UsageLimitLimitType: instance GHC.Show.Show Amazonka.Redshift.Types.UsageLimitLimitType.UsageLimitLimitType
+ Amazonka.Redshift.Types.UsageLimitLimitType: newtype UsageLimitLimitType
+ Amazonka.Redshift.Types.UsageLimitLimitType: pattern UsageLimitLimitType_Data_scanned :: UsageLimitLimitType
+ Amazonka.Redshift.Types.UsageLimitLimitType: pattern UsageLimitLimitType_Time :: UsageLimitLimitType
+ Amazonka.Redshift.Types.UsageLimitPeriod: UsageLimitPeriod' :: Text -> UsageLimitPeriod
+ Amazonka.Redshift.Types.UsageLimitPeriod: [fromUsageLimitPeriod] :: UsageLimitPeriod -> Text
+ Amazonka.Redshift.Types.UsageLimitPeriod: instance Amazonka.Data.ByteString.ToByteString Amazonka.Redshift.Types.UsageLimitPeriod.UsageLimitPeriod
+ Amazonka.Redshift.Types.UsageLimitPeriod: instance Amazonka.Data.Headers.ToHeader Amazonka.Redshift.Types.UsageLimitPeriod.UsageLimitPeriod
+ Amazonka.Redshift.Types.UsageLimitPeriod: instance Amazonka.Data.Log.ToLog Amazonka.Redshift.Types.UsageLimitPeriod.UsageLimitPeriod
+ Amazonka.Redshift.Types.UsageLimitPeriod: instance Amazonka.Data.Query.ToQuery Amazonka.Redshift.Types.UsageLimitPeriod.UsageLimitPeriod
+ Amazonka.Redshift.Types.UsageLimitPeriod: instance Amazonka.Data.Text.FromText Amazonka.Redshift.Types.UsageLimitPeriod.UsageLimitPeriod
+ Amazonka.Redshift.Types.UsageLimitPeriod: instance Amazonka.Data.Text.ToText Amazonka.Redshift.Types.UsageLimitPeriod.UsageLimitPeriod
+ Amazonka.Redshift.Types.UsageLimitPeriod: instance Amazonka.Data.XML.FromXML Amazonka.Redshift.Types.UsageLimitPeriod.UsageLimitPeriod
+ Amazonka.Redshift.Types.UsageLimitPeriod: instance Amazonka.Data.XML.ToXML Amazonka.Redshift.Types.UsageLimitPeriod.UsageLimitPeriod
+ Amazonka.Redshift.Types.UsageLimitPeriod: instance Control.DeepSeq.NFData Amazonka.Redshift.Types.UsageLimitPeriod.UsageLimitPeriod
+ Amazonka.Redshift.Types.UsageLimitPeriod: instance Data.Aeson.Types.FromJSON.FromJSON Amazonka.Redshift.Types.UsageLimitPeriod.UsageLimitPeriod
+ Amazonka.Redshift.Types.UsageLimitPeriod: instance Data.Aeson.Types.FromJSON.FromJSONKey Amazonka.Redshift.Types.UsageLimitPeriod.UsageLimitPeriod
+ Amazonka.Redshift.Types.UsageLimitPeriod: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.Redshift.Types.UsageLimitPeriod.UsageLimitPeriod
+ Amazonka.Redshift.Types.UsageLimitPeriod: instance Data.Aeson.Types.ToJSON.ToJSONKey Amazonka.Redshift.Types.UsageLimitPeriod.UsageLimitPeriod
+ Amazonka.Redshift.Types.UsageLimitPeriod: instance Data.Hashable.Class.Hashable Amazonka.Redshift.Types.UsageLimitPeriod.UsageLimitPeriod
+ Amazonka.Redshift.Types.UsageLimitPeriod: instance GHC.Classes.Eq Amazonka.Redshift.Types.UsageLimitPeriod.UsageLimitPeriod
+ Amazonka.Redshift.Types.UsageLimitPeriod: instance GHC.Classes.Ord Amazonka.Redshift.Types.UsageLimitPeriod.UsageLimitPeriod
+ Amazonka.Redshift.Types.UsageLimitPeriod: instance GHC.Generics.Generic Amazonka.Redshift.Types.UsageLimitPeriod.UsageLimitPeriod
+ Amazonka.Redshift.Types.UsageLimitPeriod: instance GHC.Read.Read Amazonka.Redshift.Types.UsageLimitPeriod.UsageLimitPeriod
+ Amazonka.Redshift.Types.UsageLimitPeriod: instance GHC.Show.Show Amazonka.Redshift.Types.UsageLimitPeriod.UsageLimitPeriod
+ Amazonka.Redshift.Types.UsageLimitPeriod: newtype UsageLimitPeriod
+ Amazonka.Redshift.Types.UsageLimitPeriod: pattern UsageLimitPeriod_Daily :: UsageLimitPeriod
+ Amazonka.Redshift.Types.UsageLimitPeriod: pattern UsageLimitPeriod_Monthly :: UsageLimitPeriod
+ Amazonka.Redshift.Types.UsageLimitPeriod: pattern UsageLimitPeriod_Weekly :: UsageLimitPeriod
+ Amazonka.Redshift.Types.VpcEndpoint: VpcEndpoint' :: Maybe [NetworkInterface] -> Maybe Text -> Maybe Text -> VpcEndpoint
+ Amazonka.Redshift.Types.VpcEndpoint: [$sel:networkInterfaces:VpcEndpoint'] :: VpcEndpoint -> Maybe [NetworkInterface]
+ Amazonka.Redshift.Types.VpcEndpoint: [$sel:vpcEndpointId:VpcEndpoint'] :: VpcEndpoint -> Maybe Text
+ Amazonka.Redshift.Types.VpcEndpoint: [$sel:vpcId:VpcEndpoint'] :: VpcEndpoint -> Maybe Text
+ Amazonka.Redshift.Types.VpcEndpoint: data VpcEndpoint
+ Amazonka.Redshift.Types.VpcEndpoint: instance Amazonka.Data.XML.FromXML Amazonka.Redshift.Types.VpcEndpoint.VpcEndpoint
+ Amazonka.Redshift.Types.VpcEndpoint: instance Control.DeepSeq.NFData Amazonka.Redshift.Types.VpcEndpoint.VpcEndpoint
+ Amazonka.Redshift.Types.VpcEndpoint: instance Data.Hashable.Class.Hashable Amazonka.Redshift.Types.VpcEndpoint.VpcEndpoint
+ Amazonka.Redshift.Types.VpcEndpoint: instance GHC.Classes.Eq Amazonka.Redshift.Types.VpcEndpoint.VpcEndpoint
+ Amazonka.Redshift.Types.VpcEndpoint: instance GHC.Generics.Generic Amazonka.Redshift.Types.VpcEndpoint.VpcEndpoint
+ Amazonka.Redshift.Types.VpcEndpoint: instance GHC.Read.Read Amazonka.Redshift.Types.VpcEndpoint.VpcEndpoint
+ Amazonka.Redshift.Types.VpcEndpoint: instance GHC.Show.Show Amazonka.Redshift.Types.VpcEndpoint.VpcEndpoint
+ Amazonka.Redshift.Types.VpcEndpoint: newVpcEndpoint :: VpcEndpoint
+ Amazonka.Redshift.Types.VpcEndpoint: vpcEndpoint_networkInterfaces :: Lens' VpcEndpoint (Maybe [NetworkInterface])
+ Amazonka.Redshift.Types.VpcEndpoint: vpcEndpoint_vpcEndpointId :: Lens' VpcEndpoint (Maybe Text)
+ Amazonka.Redshift.Types.VpcEndpoint: vpcEndpoint_vpcId :: Lens' VpcEndpoint (Maybe Text)
+ Amazonka.Redshift.Types.VpcSecurityGroupMembership: VpcSecurityGroupMembership' :: Maybe Text -> Maybe Text -> VpcSecurityGroupMembership
+ Amazonka.Redshift.Types.VpcSecurityGroupMembership: [$sel:status:VpcSecurityGroupMembership'] :: VpcSecurityGroupMembership -> Maybe Text
+ Amazonka.Redshift.Types.VpcSecurityGroupMembership: [$sel:vpcSecurityGroupId:VpcSecurityGroupMembership'] :: VpcSecurityGroupMembership -> Maybe Text
+ Amazonka.Redshift.Types.VpcSecurityGroupMembership: data VpcSecurityGroupMembership
+ Amazonka.Redshift.Types.VpcSecurityGroupMembership: instance Amazonka.Data.XML.FromXML Amazonka.Redshift.Types.VpcSecurityGroupMembership.VpcSecurityGroupMembership
+ Amazonka.Redshift.Types.VpcSecurityGroupMembership: instance Control.DeepSeq.NFData Amazonka.Redshift.Types.VpcSecurityGroupMembership.VpcSecurityGroupMembership
+ Amazonka.Redshift.Types.VpcSecurityGroupMembership: instance Data.Hashable.Class.Hashable Amazonka.Redshift.Types.VpcSecurityGroupMembership.VpcSecurityGroupMembership
+ Amazonka.Redshift.Types.VpcSecurityGroupMembership: instance GHC.Classes.Eq Amazonka.Redshift.Types.VpcSecurityGroupMembership.VpcSecurityGroupMembership
+ Amazonka.Redshift.Types.VpcSecurityGroupMembership: instance GHC.Generics.Generic Amazonka.Redshift.Types.VpcSecurityGroupMembership.VpcSecurityGroupMembership
+ Amazonka.Redshift.Types.VpcSecurityGroupMembership: instance GHC.Read.Read Amazonka.Redshift.Types.VpcSecurityGroupMembership.VpcSecurityGroupMembership
+ Amazonka.Redshift.Types.VpcSecurityGroupMembership: instance GHC.Show.Show Amazonka.Redshift.Types.VpcSecurityGroupMembership.VpcSecurityGroupMembership
+ Amazonka.Redshift.Types.VpcSecurityGroupMembership: newVpcSecurityGroupMembership :: VpcSecurityGroupMembership
+ Amazonka.Redshift.Types.VpcSecurityGroupMembership: vpcSecurityGroupMembership_status :: Lens' VpcSecurityGroupMembership (Maybe Text)
+ Amazonka.Redshift.Types.VpcSecurityGroupMembership: vpcSecurityGroupMembership_vpcSecurityGroupId :: Lens' VpcSecurityGroupMembership (Maybe Text)
+ Amazonka.Redshift.UpdatePartnerStatus: PartnerIntegrationOutputMessage' :: Maybe Text -> Maybe Text -> PartnerIntegrationOutputMessage
+ Amazonka.Redshift.UpdatePartnerStatus: UpdatePartnerStatus' :: Maybe Text -> Text -> Text -> Text -> Text -> PartnerIntegrationStatus -> UpdatePartnerStatus
+ Amazonka.Redshift.UpdatePartnerStatus: [$sel:accountId:UpdatePartnerStatus'] :: UpdatePartnerStatus -> Text
+ Amazonka.Redshift.UpdatePartnerStatus: [$sel:clusterIdentifier:UpdatePartnerStatus'] :: UpdatePartnerStatus -> Text
+ Amazonka.Redshift.UpdatePartnerStatus: [$sel:databaseName:PartnerIntegrationOutputMessage'] :: PartnerIntegrationOutputMessage -> Maybe Text
+ Amazonka.Redshift.UpdatePartnerStatus: [$sel:databaseName:UpdatePartnerStatus'] :: UpdatePartnerStatus -> Text
+ Amazonka.Redshift.UpdatePartnerStatus: [$sel:partnerName:PartnerIntegrationOutputMessage'] :: PartnerIntegrationOutputMessage -> Maybe Text
+ Amazonka.Redshift.UpdatePartnerStatus: [$sel:partnerName:UpdatePartnerStatus'] :: UpdatePartnerStatus -> Text
+ Amazonka.Redshift.UpdatePartnerStatus: [$sel:status:UpdatePartnerStatus'] :: UpdatePartnerStatus -> PartnerIntegrationStatus
+ Amazonka.Redshift.UpdatePartnerStatus: [$sel:statusMessage:UpdatePartnerStatus'] :: UpdatePartnerStatus -> Maybe Text
+ Amazonka.Redshift.UpdatePartnerStatus: data PartnerIntegrationOutputMessage
+ Amazonka.Redshift.UpdatePartnerStatus: data UpdatePartnerStatus
+ Amazonka.Redshift.UpdatePartnerStatus: instance Amazonka.Data.Headers.ToHeaders Amazonka.Redshift.UpdatePartnerStatus.UpdatePartnerStatus
+ Amazonka.Redshift.UpdatePartnerStatus: instance Amazonka.Data.Path.ToPath Amazonka.Redshift.UpdatePartnerStatus.UpdatePartnerStatus
+ Amazonka.Redshift.UpdatePartnerStatus: instance Amazonka.Data.Query.ToQuery Amazonka.Redshift.UpdatePartnerStatus.UpdatePartnerStatus
+ Amazonka.Redshift.UpdatePartnerStatus: instance Amazonka.Types.AWSRequest Amazonka.Redshift.UpdatePartnerStatus.UpdatePartnerStatus
+ Amazonka.Redshift.UpdatePartnerStatus: instance Control.DeepSeq.NFData Amazonka.Redshift.UpdatePartnerStatus.UpdatePartnerStatus
+ Amazonka.Redshift.UpdatePartnerStatus: instance Data.Hashable.Class.Hashable Amazonka.Redshift.UpdatePartnerStatus.UpdatePartnerStatus
+ Amazonka.Redshift.UpdatePartnerStatus: instance GHC.Classes.Eq Amazonka.Redshift.UpdatePartnerStatus.UpdatePartnerStatus
+ Amazonka.Redshift.UpdatePartnerStatus: instance GHC.Generics.Generic Amazonka.Redshift.UpdatePartnerStatus.UpdatePartnerStatus
+ Amazonka.Redshift.UpdatePartnerStatus: instance GHC.Read.Read Amazonka.Redshift.UpdatePartnerStatus.UpdatePartnerStatus
+ Amazonka.Redshift.UpdatePartnerStatus: instance GHC.Show.Show Amazonka.Redshift.UpdatePartnerStatus.UpdatePartnerStatus
+ Amazonka.Redshift.UpdatePartnerStatus: newPartnerIntegrationOutputMessage :: PartnerIntegrationOutputMessage
+ Amazonka.Redshift.UpdatePartnerStatus: newUpdatePartnerStatus :: Text -> Text -> Text -> Text -> PartnerIntegrationStatus -> UpdatePartnerStatus
+ Amazonka.Redshift.UpdatePartnerStatus: partnerIntegrationOutputMessage_databaseName :: Lens' PartnerIntegrationOutputMessage (Maybe Text)
+ Amazonka.Redshift.UpdatePartnerStatus: partnerIntegrationOutputMessage_partnerName :: Lens' PartnerIntegrationOutputMessage (Maybe Text)
+ Amazonka.Redshift.UpdatePartnerStatus: updatePartnerStatus_accountId :: Lens' UpdatePartnerStatus Text
+ Amazonka.Redshift.UpdatePartnerStatus: updatePartnerStatus_clusterIdentifier :: Lens' UpdatePartnerStatus Text
+ Amazonka.Redshift.UpdatePartnerStatus: updatePartnerStatus_databaseName :: Lens' UpdatePartnerStatus Text
+ Amazonka.Redshift.UpdatePartnerStatus: updatePartnerStatus_partnerName :: Lens' UpdatePartnerStatus Text
+ Amazonka.Redshift.UpdatePartnerStatus: updatePartnerStatus_status :: Lens' UpdatePartnerStatus PartnerIntegrationStatus
+ Amazonka.Redshift.UpdatePartnerStatus: updatePartnerStatus_statusMessage :: Lens' UpdatePartnerStatus (Maybe Text)
+ Amazonka.Redshift.Waiters: newClusterAvailable :: Wait DescribeClusters
+ Amazonka.Redshift.Waiters: newClusterDeleted :: Wait DescribeClusters
+ Amazonka.Redshift.Waiters: newClusterRestored :: Wait DescribeClusters
+ Amazonka.Redshift.Waiters: newSnapshotAvailable :: Wait DescribeClusterSnapshots
Files
- README.md +3/−4
- Setup.hs +0/−2
- amazonka-redshift.cabal +300/−138
- fixture/AcceptReservedNodeExchange.yaml +10/−0
- fixture/AcceptReservedNodeExchangeResponse.proto +0/−0
- fixture/AddPartner.yaml +10/−0
- fixture/AddPartnerResponse.proto +0/−0
- fixture/AssociateDataShareConsumer.yaml +10/−0
- fixture/AssociateDataShareConsumerResponse.proto +0/−0
- fixture/AuthorizeClusterSecurityGroupIngress.yaml +10/−0
- fixture/AuthorizeDataShare.yaml +10/−0
- fixture/AuthorizeDataShareResponse.proto +0/−0
- fixture/AuthorizeEndpointAccess.yaml +10/−0
- fixture/AuthorizeEndpointAccessResponse.proto +0/−0
- fixture/AuthorizeSnapshotAccess.yaml +10/−0
- fixture/BatchDeleteClusterSnapshots.yaml +10/−0
- fixture/BatchDeleteClusterSnapshotsResponse.proto +0/−0
- fixture/BatchModifyClusterSnapshots.yaml +10/−0
- fixture/BatchModifyClusterSnapshotsResponse.proto +0/−0
- fixture/CancelResize.yaml +10/−0
- fixture/CancelResizeResponse.proto +0/−0
- fixture/CopyClusterSnapshot.yaml +10/−0
- fixture/CreateAuthenticationProfile.yaml +10/−0
- fixture/CreateAuthenticationProfileResponse.proto +0/−0
- fixture/CreateCluster.yaml +10/−0
- fixture/CreateClusterParameterGroup.yaml +10/−0
- fixture/CreateClusterSecurityGroup.yaml +10/−0
- fixture/CreateClusterSnapshot.yaml +10/−0
- fixture/CreateClusterSubnetGroup.yaml +10/−0
- fixture/CreateEndpointAccess.yaml +10/−0
- fixture/CreateEndpointAccessResponse.proto +0/−0
- fixture/CreateEventSubscription.yaml +10/−0
- fixture/CreateHSMClientCertificate.yaml +0/−0
- fixture/CreateHSMClientCertificateResponse.proto +0/−0
- fixture/CreateHSMConfiguration.yaml +0/−0
- fixture/CreateHSMConfigurationResponse.proto +0/−0
- fixture/CreateHsmClientCertificate.yaml +10/−0
- fixture/CreateHsmClientCertificateResponse.proto +0/−0
- fixture/CreateHsmConfiguration.yaml +10/−0
- fixture/CreateHsmConfigurationResponse.proto +0/−0
- fixture/CreateScheduledAction.yaml +10/−0
- fixture/CreateScheduledActionResponse.proto +0/−0
- fixture/CreateSnapshotCopyGrant.yaml +10/−0
- fixture/CreateSnapshotSchedule.yaml +10/−0
- fixture/CreateSnapshotScheduleResponse.proto +0/−0
- fixture/CreateTags.yaml +10/−0
- fixture/CreateUsageLimit.yaml +10/−0
- fixture/CreateUsageLimitResponse.proto +0/−0
- fixture/DeauthorizeDataShare.yaml +10/−0
- fixture/DeauthorizeDataShareResponse.proto +0/−0
- fixture/DeleteAuthenticationProfile.yaml +10/−0
- fixture/DeleteAuthenticationProfileResponse.proto +0/−0
- fixture/DeleteCluster.yaml +10/−0
- fixture/DeleteClusterParameterGroup.yaml +10/−0
- fixture/DeleteClusterSecurityGroup.yaml +10/−0
- fixture/DeleteClusterSnapshot.yaml +10/−0
- fixture/DeleteClusterSubnetGroup.yaml +10/−0
- fixture/DeleteEndpointAccess.yaml +10/−0
- fixture/DeleteEndpointAccessResponse.proto +0/−0
- fixture/DeleteEventSubscription.yaml +10/−0
- fixture/DeleteHSMClientCertificate.yaml +0/−0
- fixture/DeleteHSMClientCertificateResponse.proto +0/−0
- fixture/DeleteHSMConfiguration.yaml +0/−0
- fixture/DeleteHSMConfigurationResponse.proto +0/−0
- fixture/DeleteHsmClientCertificate.yaml +10/−0
- fixture/DeleteHsmClientCertificateResponse.proto +0/−0
- fixture/DeleteHsmConfiguration.yaml +10/−0
- fixture/DeleteHsmConfigurationResponse.proto +0/−0
- fixture/DeletePartner.yaml +10/−0
- fixture/DeletePartnerResponse.proto +0/−0
- fixture/DeleteScheduledAction.yaml +10/−0
- fixture/DeleteScheduledActionResponse.proto +0/−0
- fixture/DeleteSnapshotCopyGrant.yaml +10/−0
- fixture/DeleteSnapshotSchedule.yaml +10/−0
- fixture/DeleteSnapshotScheduleResponse.proto +0/−0
- fixture/DeleteTags.yaml +10/−0
- fixture/DeleteUsageLimit.yaml +10/−0
- fixture/DeleteUsageLimitResponse.proto +0/−0
- fixture/DescribeAccountAttributes.yaml +10/−0
- fixture/DescribeAccountAttributesResponse.proto +0/−0
- fixture/DescribeAuthenticationProfiles.yaml +10/−0
- fixture/DescribeAuthenticationProfilesResponse.proto +0/−0
- fixture/DescribeClusterDbRevisions.yaml +10/−0
- fixture/DescribeClusterDbRevisionsResponse.proto +0/−0
- fixture/DescribeClusterParameterGroups.yaml +10/−0
- fixture/DescribeClusterParameters.yaml +10/−0
- fixture/DescribeClusterSecurityGroups.yaml +10/−0
- fixture/DescribeClusterSnapshots.yaml +10/−0
- fixture/DescribeClusterSubnetGroups.yaml +10/−0
- fixture/DescribeClusterTracks.yaml +10/−0
- fixture/DescribeClusterTracksResponse.proto +0/−0
- fixture/DescribeClusterVersions.yaml +10/−0
- fixture/DescribeClusters.yaml +10/−0
- fixture/DescribeDataShares.yaml +10/−0
- fixture/DescribeDataSharesForConsumer.yaml +10/−0
- fixture/DescribeDataSharesForConsumerResponse.proto +0/−0
- fixture/DescribeDataSharesForProducer.yaml +10/−0
- fixture/DescribeDataSharesForProducerResponse.proto +0/−0
- fixture/DescribeDataSharesResponse.proto +0/−0
- fixture/DescribeDefaultClusterParameters.yaml +10/−0
- fixture/DescribeEndpointAccess.yaml +10/−0
- fixture/DescribeEndpointAccessResponse.proto +0/−0
- fixture/DescribeEndpointAuthorization.yaml +10/−0
- fixture/DescribeEndpointAuthorizationResponse.proto +0/−0
- fixture/DescribeEventCategories.yaml +10/−0
- fixture/DescribeEventSubscriptions.yaml +10/−0
- fixture/DescribeEvents.yaml +10/−0
- fixture/DescribeHSMClientCertificates.yaml +0/−0
- fixture/DescribeHSMClientCertificatesResponse.proto +0/−0
- fixture/DescribeHSMConfigurations.yaml +0/−0
- fixture/DescribeHSMConfigurationsResponse.proto +0/−0
- fixture/DescribeHsmClientCertificates.yaml +10/−0
- fixture/DescribeHsmClientCertificatesResponse.proto +0/−0
- fixture/DescribeHsmConfigurations.yaml +10/−0
- fixture/DescribeHsmConfigurationsResponse.proto +0/−0
- fixture/DescribeLoggingStatus.yaml +10/−0
- fixture/DescribeNodeConfigurationOptions.yaml +10/−0
- fixture/DescribeNodeConfigurationOptionsResponse.proto +0/−0
- fixture/DescribeOrderableClusterOptions.yaml +10/−0
- fixture/DescribePartners.yaml +10/−0
- fixture/DescribePartnersResponse.proto +0/−0
- fixture/DescribeReservedNodeExchangeStatus.yaml +10/−0
- fixture/DescribeReservedNodeExchangeStatusResponse.proto +0/−0
- fixture/DescribeReservedNodeOfferings.yaml +10/−0
- fixture/DescribeReservedNodes.yaml +10/−0
- fixture/DescribeResize.yaml +10/−0
- fixture/DescribeScheduledActions.yaml +10/−0
- fixture/DescribeScheduledActionsResponse.proto +0/−0
- fixture/DescribeSnapshotCopyGrants.yaml +10/−0
- fixture/DescribeSnapshotSchedules.yaml +10/−0
- fixture/DescribeSnapshotSchedulesResponse.proto +0/−0
- fixture/DescribeStorage.yaml +10/−0
- fixture/DescribeStorageResponse.proto +0/−0
- fixture/DescribeTableRestoreStatus.yaml +10/−0
- fixture/DescribeTags.yaml +10/−0
- fixture/DescribeUsageLimits.yaml +10/−0
- fixture/DescribeUsageLimitsResponse.proto +0/−0
- fixture/DisableLogging.yaml +10/−0
- fixture/DisableSnapshotCopy.yaml +10/−0
- fixture/DisassociateDataShareConsumer.yaml +10/−0
- fixture/DisassociateDataShareConsumerResponse.proto +0/−0
- fixture/EnableLogging.yaml +10/−0
- fixture/EnableSnapshotCopy.yaml +10/−0
- fixture/GetClusterCredentialsWithIAM.yaml +10/−0
- fixture/GetClusterCredentialsWithIAMResponse.proto +0/−0
- fixture/GetReservedNodeExchangeConfigurationOptions.yaml +10/−0
- fixture/GetReservedNodeExchangeConfigurationOptionsResponse.proto +0/−0
- fixture/GetReservedNodeExchangeOfferings.yaml +10/−0
- fixture/GetReservedNodeExchangeOfferingsResponse.proto +0/−0
- fixture/ModifyAquaConfiguration.yaml +10/−0
- fixture/ModifyAquaConfigurationResponse.proto +0/−0
- fixture/ModifyAuthenticationProfile.yaml +10/−0
- fixture/ModifyAuthenticationProfileResponse.proto +0/−0
- fixture/ModifyCluster.yaml +10/−0
- fixture/ModifyClusterDbRevision.yaml +10/−0
- fixture/ModifyClusterDbRevisionResponse.proto +0/−0
- fixture/ModifyClusterIAMRoles.yaml +0/−0
- fixture/ModifyClusterIAMRolesResponse.proto +0/−0
- fixture/ModifyClusterIamRoles.yaml +10/−0
- fixture/ModifyClusterIamRolesResponse.proto +0/−0
- fixture/ModifyClusterMaintenance.yaml +10/−0
- fixture/ModifyClusterMaintenanceResponse.proto +0/−0
- fixture/ModifyClusterParameterGroup.yaml +10/−0
- fixture/ModifyClusterSnapshot.yaml +10/−0
- fixture/ModifyClusterSnapshotResponse.proto +0/−0
- fixture/ModifyClusterSnapshotSchedule.yaml +10/−0
- fixture/ModifyClusterSnapshotScheduleResponse.proto +0/−0
- fixture/ModifyClusterSubnetGroup.yaml +10/−0
- fixture/ModifyEndpointAccess.yaml +10/−0
- fixture/ModifyEndpointAccessResponse.proto +0/−0
- fixture/ModifyEventSubscription.yaml +10/−0
- fixture/ModifyScheduledAction.yaml +10/−0
- fixture/ModifyScheduledActionResponse.proto +0/−0
- fixture/ModifySnapshotCopyRetentionPeriod.yaml +10/−0
- fixture/ModifySnapshotSchedule.yaml +10/−0
- fixture/ModifySnapshotScheduleResponse.proto +0/−0
- fixture/ModifyUsageLimit.yaml +10/−0
- fixture/ModifyUsageLimitResponse.proto +0/−0
- fixture/PauseCluster.yaml +10/−0
- fixture/PauseClusterResponse.proto +0/−0
- fixture/PurchaseReservedNodeOffering.yaml +10/−0
- fixture/RebootCluster.yaml +10/−0
- fixture/RejectDataShare.yaml +10/−0
- fixture/RejectDataShareResponse.proto +0/−0
- fixture/ResetClusterParameterGroup.yaml +10/−0
- fixture/ResizeCluster.yaml +10/−0
- fixture/ResizeClusterResponse.proto +0/−0
- fixture/RestoreFromClusterSnapshot.yaml +10/−0
- fixture/RestoreTableFromClusterSnapshot.yaml +10/−0
- fixture/ResumeCluster.yaml +10/−0
- fixture/ResumeClusterResponse.proto +0/−0
- fixture/RevokeClusterSecurityGroupIngress.yaml +10/−0
- fixture/RevokeEndpointAccess.yaml +10/−0
- fixture/RevokeEndpointAccessResponse.proto +0/−0
- fixture/RevokeSnapshotAccess.yaml +10/−0
- fixture/RotateEncryptionKey.yaml +10/−0
- fixture/UpdatePartnerStatus.yaml +10/−0
- fixture/UpdatePartnerStatusResponse.proto +0/−0
- gen/Amazonka/Redshift.hs +1720/−0
- gen/Amazonka/Redshift/AcceptReservedNodeExchange.hs +193/−0
- gen/Amazonka/Redshift/AddPartner.hs +167/−0
- gen/Amazonka/Redshift/AssociateDataShareConsumer.hs +175/−0
- gen/Amazonka/Redshift/AuthorizeClusterSecurityGroupIngress.hs +267/−0
- gen/Amazonka/Redshift/AuthorizeDataShare.hs +143/−0
- gen/Amazonka/Redshift/AuthorizeEndpointAccess.hs +151/−0
- gen/Amazonka/Redshift/AuthorizeSnapshotAccess.hs +234/−0
- gen/Amazonka/Redshift/BatchDeleteClusterSnapshots.hs +187/−0
- gen/Amazonka/Redshift/BatchModifyClusterSnapshots.hs +241/−0
- gen/Amazonka/Redshift/CancelResize.hs +127/−0
- gen/Amazonka/Redshift/CopyClusterSnapshot.hs +315/−0
- gen/Amazonka/Redshift/CreateAuthenticationProfile.hs +203/−0
- gen/Amazonka/Redshift/CreateCluster.hs +1267/−0
- gen/Amazonka/Redshift/CreateClusterParameterGroup.hs +290/−0
- gen/Amazonka/Redshift/CreateClusterSecurityGroup.hs +240/−0
- gen/Amazonka/Redshift/CreateClusterSnapshot.hs +271/−0
- gen/Amazonka/Redshift/CreateClusterSubnetGroup.hs +257/−0
- gen/Amazonka/Redshift/CreateEndpointAccess.hs +203/−0
- gen/Amazonka/Redshift/CreateEventSubscription.hs +393/−0
- gen/Amazonka/Redshift/CreateHsmClientCertificate.hs +199/−0
- gen/Amazonka/Redshift/CreateHsmConfiguration.hs +286/−0
- gen/Amazonka/Redshift/CreateScheduledAction.hs +257/−0
- gen/Amazonka/Redshift/CreateSnapshotCopyGrant.hs +249/−0
- gen/Amazonka/Redshift/CreateSnapshotSchedule.hs +193/−0
- gen/Amazonka/Redshift/CreateTags.hs +161/−0
- gen/Amazonka/Redshift/CreateUsageLimit.hs +236/−0
- gen/Amazonka/Redshift/DeauthorizeDataShare.hs +142/−0
- gen/Amazonka/Redshift/DeleteAuthenticationProfile.hs +169/−0
- gen/Amazonka/Redshift/DeleteCluster.hs +323/−0
- gen/Amazonka/Redshift/DeleteClusterParameterGroup.hs +153/−0
- gen/Amazonka/Redshift/DeleteClusterSecurityGroup.hs +141/−0
- gen/Amazonka/Redshift/DeleteClusterSnapshot.hs +210/−0
- gen/Amazonka/Redshift/DeleteClusterSubnetGroup.hs +132/−0
- gen/Amazonka/Redshift/DeleteEndpointAccess.hs +121/−0
- gen/Amazonka/Redshift/DeleteEventSubscription.hs +134/−0
- gen/Amazonka/Redshift/DeleteHsmClientCertificate.hs +134/−0
- gen/Amazonka/Redshift/DeleteHsmConfiguration.hs +134/−0
- gen/Amazonka/Redshift/DeletePartner.hs +166/−0
- gen/Amazonka/Redshift/DeleteScheduledAction.hs +125/−0
- gen/Amazonka/Redshift/DeleteSnapshotCopyGrant.hs +132/−0
- gen/Amazonka/Redshift/DeleteSnapshotSchedule.hs +129/−0
- gen/Amazonka/Redshift/DeleteTags.hs +140/−0
- gen/Amazonka/Redshift/DeleteUsageLimit.hs +121/−0
- gen/Amazonka/Redshift/DescribeAccountAttributes.hs +170/−0
- gen/Amazonka/Redshift/DescribeAuthenticationProfiles.hs +188/−0
- gen/Amazonka/Redshift/DescribeClusterDbRevisions.hs +298/−0
- gen/Amazonka/Redshift/DescribeClusterParameterGroups.hs +400/−0
- gen/Amazonka/Redshift/DescribeClusterParameters.hs +335/−0
- gen/Amazonka/Redshift/DescribeClusterSecurityGroups.hs +396/−0
- gen/Amazonka/Redshift/DescribeClusterSnapshots.hs +574/−0
- gen/Amazonka/Redshift/DescribeClusterSubnetGroups.hs +366/−0
- gen/Amazonka/Redshift/DescribeClusterTracks.hs +250/−0
- gen/Amazonka/Redshift/DescribeClusterVersions.hs +339/−0
- gen/Amazonka/Redshift/DescribeClusters.hs +377/−0
- gen/Amazonka/Redshift/DescribeDataShares.hs +268/−0
- gen/Amazonka/Redshift/DescribeDataSharesForConsumer.hs +302/−0
- gen/Amazonka/Redshift/DescribeDataSharesForProducer.hs +302/−0
- gen/Amazonka/Redshift/DescribeDefaultClusterParameters.hs +295/−0
- gen/Amazonka/Redshift/DescribeEndpointAccess.hs +295/−0
- gen/Amazonka/Redshift/DescribeEndpointAuthorization.hs +305/−0
- gen/Amazonka/Redshift/DescribeEventCategories.hs +185/−0
- gen/Amazonka/Redshift/DescribeEventSubscriptions.hs +369/−0
- gen/Amazonka/Redshift/DescribeEvents.hs +476/−0
- gen/Amazonka/Redshift/DescribeHsmClientCertificates.hs +387/−0
- gen/Amazonka/Redshift/DescribeHsmConfigurations.hs +373/−0
- gen/Amazonka/Redshift/DescribeLoggingStatus.hs +128/−0
- gen/Amazonka/Redshift/DescribeNodeConfigurationOptions.hs +413/−0
- gen/Amazonka/Redshift/DescribeOrderableClusterOptions.hs +358/−0
- gen/Amazonka/Redshift/DescribePartners.hs +220/−0
- gen/Amazonka/Redshift/DescribeReservedNodeExchangeStatus.hs +310/−0
- gen/Amazonka/Redshift/DescribeReservedNodeOfferings.hs +307/−0
- gen/Amazonka/Redshift/DescribeReservedNodes.hs +283/−0
- gen/Amazonka/Redshift/DescribeResize.hs +148/−0
- gen/Amazonka/Redshift/DescribeScheduledActions.hs +360/−0
- gen/Amazonka/Redshift/DescribeSnapshotCopyGrants.hs +371/−0
- gen/Amazonka/Redshift/DescribeSnapshotSchedules.hs +317/−0
- gen/Amazonka/Redshift/DescribeStorage.hs +155/−0
- gen/Amazonka/Redshift/DescribeTableRestoreStatus.hs +284/−0
- gen/Amazonka/Redshift/DescribeTags.hs +445/−0
- gen/Amazonka/Redshift/DescribeUsageLimits.hs +388/−0
- gen/Amazonka/Redshift/DisableLogging.hs +126/−0
- gen/Amazonka/Redshift/DisableSnapshotCopy.hs +180/−0
- gen/Amazonka/Redshift/DisassociateDataShareConsumer.hs +181/−0
- gen/Amazonka/Redshift/EnableLogging.hs +258/−0
- gen/Amazonka/Redshift/EnableSnapshotCopy.hs +282/−0
- gen/Amazonka/Redshift/GetClusterCredentials.hs +504/−0
- gen/Amazonka/Redshift/GetClusterCredentialsWithIAM.hs +268/−0
- gen/Amazonka/Redshift/GetReservedNodeExchangeConfigurationOptions.hs +344/−0
- gen/Amazonka/Redshift/GetReservedNodeExchangeOfferings.hs +285/−0
- gen/Amazonka/Redshift/Lens.hs +1940/−0
- gen/Amazonka/Redshift/ModifyAquaConfiguration.hs +187/−0
- gen/Amazonka/Redshift/ModifyAuthenticationProfile.hs +206/−0
- gen/Amazonka/Redshift/ModifyCluster.hs +1008/−0
- gen/Amazonka/Redshift/ModifyClusterDbRevision.hs +194/−0
- gen/Amazonka/Redshift/ModifyClusterIamRoles.hs +225/−0
- gen/Amazonka/Redshift/ModifyClusterMaintenance.hs +245/−0
- gen/Amazonka/Redshift/ModifyClusterParameterGroup.hs +161/−0
- gen/Amazonka/Redshift/ModifyClusterSnapshot.hs +211/−0
- gen/Amazonka/Redshift/ModifyClusterSnapshotSchedule.hs +173/−0
- gen/Amazonka/Redshift/ModifyClusterSubnetGroup.hs +199/−0
- gen/Amazonka/Redshift/ModifyEndpointAccess.hs +142/−0
- gen/Amazonka/Redshift/ModifyEventSubscription.hs +321/−0
- gen/Amazonka/Redshift/ModifyScheduledAction.hs +230/−0
- gen/Amazonka/Redshift/ModifySnapshotCopyRetentionPeriod.hs +314/−0
- gen/Amazonka/Redshift/ModifySnapshotSchedule.hs +142/−0
- gen/Amazonka/Redshift/ModifyUsageLimit.hs +150/−0
- gen/Amazonka/Redshift/PauseCluster.hs +159/−0
- gen/Amazonka/Redshift/PurchaseReservedNodeOffering.hs +205/−0
- gen/Amazonka/Redshift/RebootCluster.hs +168/−0
- gen/Amazonka/Redshift/RejectDataShare.hs +110/−0
- gen/Amazonka/Redshift/ResetClusterParameterGroup.hs +171/−0
- gen/Amazonka/Redshift/ResizeCluster.hs +282/−0
- gen/Amazonka/Redshift/RestoreFromClusterSnapshot.hs +1046/−0
- gen/Amazonka/Redshift/RestoreTableFromClusterSnapshot.hs +332/−0
- gen/Amazonka/Redshift/ResumeCluster.hs +162/−0
- gen/Amazonka/Redshift/RevokeClusterSecurityGroupIngress.hs +271/−0
- gen/Amazonka/Redshift/RevokeEndpointAccess.hs +170/−0
- gen/Amazonka/Redshift/RevokeSnapshotAccess.hs +226/−0
- gen/Amazonka/Redshift/RotateEncryptionKey.hs +174/−0
- gen/Amazonka/Redshift/Types.hs +2275/−0
- gen/Amazonka/Redshift/Types/AccountAttribute.hs +86/−0
- gen/Amazonka/Redshift/Types/AccountWithRestoreAccess.hs +92/−0
- gen/Amazonka/Redshift/Types/ActionType.hs +77/−0
- gen/Amazonka/Redshift/Types/AquaConfiguration.hs +92/−0
- gen/Amazonka/Redshift/Types/AquaConfigurationStatus.hs +77/−0
- gen/Amazonka/Redshift/Types/AquaStatus.hs +77/−0
- gen/Amazonka/Redshift/Types/AttributeValueTarget.hs +69/−0
- gen/Amazonka/Redshift/Types/AuthenticationProfile.hs +85/−0
- gen/Amazonka/Redshift/Types/AuthorizationStatus.hs +72/−0
- gen/Amazonka/Redshift/Types/AvailabilityZone.hs +84/−0
- gen/Amazonka/Redshift/Types/Cluster.hs +1103/−0
- gen/Amazonka/Redshift/Types/ClusterAssociatedToSchedule.hs +79/−0
- gen/Amazonka/Redshift/Types/ClusterDbRevision.hs +114/−0
- gen/Amazonka/Redshift/Types/ClusterIamRole.hs +119/−0
- gen/Amazonka/Redshift/Types/ClusterNode.hs +93/−0
- gen/Amazonka/Redshift/Types/ClusterParameterGroup.hs +114/−0
- gen/Amazonka/Redshift/Types/ClusterParameterGroupNameMessage.hs +99/−0
- gen/Amazonka/Redshift/Types/ClusterParameterGroupStatus.hs +111/−0
- gen/Amazonka/Redshift/Types/ClusterParameterStatus.hs +166/−0
- gen/Amazonka/Redshift/Types/ClusterSecurityGroup.hs +142/−0
- gen/Amazonka/Redshift/Types/ClusterSecurityGroupMembership.hs +90/−0
- gen/Amazonka/Redshift/Types/ClusterSnapshotCopyStatus.hs +125/−0
- gen/Amazonka/Redshift/Types/ClusterSubnetGroup.hs +143/−0
- gen/Amazonka/Redshift/Types/ClusterVersion.hs +95/−0
- gen/Amazonka/Redshift/Types/DataShare.hs +139/−0
- gen/Amazonka/Redshift/Types/DataShareAssociation.hs +126/−0
- gen/Amazonka/Redshift/Types/DataShareStatus.hs +92/−0
- gen/Amazonka/Redshift/Types/DataShareStatusForConsumer.hs +72/−0
- gen/Amazonka/Redshift/Types/DataShareStatusForProducer.hs +87/−0
- gen/Amazonka/Redshift/Types/DataTransferProgress.hs +140/−0
- gen/Amazonka/Redshift/Types/DefaultClusterParameters.hs +116/−0
- gen/Amazonka/Redshift/Types/DeferredMaintenanceWindow.hs +97/−0
- gen/Amazonka/Redshift/Types/DeleteClusterSnapshotMessage.hs +113/−0
- gen/Amazonka/Redshift/Types/EC2SecurityGroup.hs +114/−0
- gen/Amazonka/Redshift/Types/ElasticIpStatus.hs +81/−0
- gen/Amazonka/Redshift/Types/Endpoint.hs +98/−0
- gen/Amazonka/Redshift/Types/EndpointAccess.hs +185/−0
- gen/Amazonka/Redshift/Types/EndpointAuthorization.hs +178/−0
- gen/Amazonka/Redshift/Types/Event.hs +158/−0
- gen/Amazonka/Redshift/Types/EventCategoriesMap.hs +89/−0
- gen/Amazonka/Redshift/Types/EventInfoMap.hs +115/−0
- gen/Amazonka/Redshift/Types/EventSubscription.hs +272/−0
- gen/Amazonka/Redshift/Types/HsmClientCertificate.hs +104/−0
- gen/Amazonka/Redshift/Types/HsmConfiguration.hs +130/−0
- gen/Amazonka/Redshift/Types/HsmStatus.hs +112/−0
- gen/Amazonka/Redshift/Types/IPRange.hs +98/−0
- gen/Amazonka/Redshift/Types/LogDestinationType.hs +72/−0
- gen/Amazonka/Redshift/Types/LoggingStatus.hs +164/−0
- gen/Amazonka/Redshift/Types/MaintenanceTrack.hs +106/−0
- gen/Amazonka/Redshift/Types/Mode.hs +69/−0
- gen/Amazonka/Redshift/Types/NetworkInterface.hs +106/−0
- gen/Amazonka/Redshift/Types/NodeConfigurationOption.hs +107/−0
- gen/Amazonka/Redshift/Types/NodeConfigurationOptionsFilter.hs +125/−0
- gen/Amazonka/Redshift/Types/NodeConfigurationOptionsFilterName.hs +82/−0
- gen/Amazonka/Redshift/Types/OperatorType.hs +97/−0
- gen/Amazonka/Redshift/Types/OrderableClusterOption.hs +111/−0
- gen/Amazonka/Redshift/Types/Parameter.hs +210/−0
- gen/Amazonka/Redshift/Types/ParameterApplyType.hs +72/−0
- gen/Amazonka/Redshift/Types/PartnerIntegrationInfo.hs +134/−0
- gen/Amazonka/Redshift/Types/PartnerIntegrationInputMessage.hs +128/−0
- gen/Amazonka/Redshift/Types/PartnerIntegrationOutputMessage.hs +88/−0
- gen/Amazonka/Redshift/Types/PartnerIntegrationStatus.hs +82/−0
- gen/Amazonka/Redshift/Types/PauseClusterMessage.hs +77/−0
- gen/Amazonka/Redshift/Types/PendingModifiedValues.hs +228/−0
- gen/Amazonka/Redshift/Types/RecurringCharge.hs +85/−0
- gen/Amazonka/Redshift/Types/ReservedNode.hs +270/−0
- gen/Amazonka/Redshift/Types/ReservedNodeConfigurationOption.hs +105/−0
- gen/Amazonka/Redshift/Types/ReservedNodeExchangeActionType.hs +72/−0
- gen/Amazonka/Redshift/Types/ReservedNodeExchangeStatus.hs +175/−0
- gen/Amazonka/Redshift/Types/ReservedNodeExchangeStatusType.hs +92/−0
- gen/Amazonka/Redshift/Types/ReservedNodeOffering.hs +185/−0
- gen/Amazonka/Redshift/Types/ReservedNodeOfferingType.hs +72/−0
- gen/Amazonka/Redshift/Types/ResizeClusterMessage.hs +169/−0
- gen/Amazonka/Redshift/Types/ResizeInfo.hs +81/−0
- gen/Amazonka/Redshift/Types/ResizeProgressMessage.hs +352/−0
- gen/Amazonka/Redshift/Types/RestoreStatus.hs +161/−0
- gen/Amazonka/Redshift/Types/ResumeClusterMessage.hs +77/−0
- gen/Amazonka/Redshift/Types/RevisionTarget.hs +99/−0
- gen/Amazonka/Redshift/Types/ScheduleState.hs +77/−0
- gen/Amazonka/Redshift/Types/ScheduledAction.hs +242/−0
- gen/Amazonka/Redshift/Types/ScheduledActionFilter.hs +87/−0
- gen/Amazonka/Redshift/Types/ScheduledActionFilterName.hs +72/−0
- gen/Amazonka/Redshift/Types/ScheduledActionState.hs +72/−0
- gen/Amazonka/Redshift/Types/ScheduledActionType.hs +106/−0
- gen/Amazonka/Redshift/Types/ScheduledActionTypeValues.hs +77/−0
- gen/Amazonka/Redshift/Types/Snapshot.hs +618/−0
- gen/Amazonka/Redshift/Types/SnapshotAttributeToSortBy.hs +77/−0
- gen/Amazonka/Redshift/Types/SnapshotCopyGrant.hs +107/−0
- gen/Amazonka/Redshift/Types/SnapshotErrorMessage.hs +106/−0
- gen/Amazonka/Redshift/Types/SnapshotSchedule.hs +164/−0
- gen/Amazonka/Redshift/Types/SnapshotSortingEntity.hs +86/−0
- gen/Amazonka/Redshift/Types/SortByOrder.hs +72/−0
- gen/Amazonka/Redshift/Types/SourceType.hs +87/−0
- gen/Amazonka/Redshift/Types/Subnet.hs +92/−0
- gen/Amazonka/Redshift/Types/SupportedOperation.hs +69/−0
- gen/Amazonka/Redshift/Types/SupportedPlatform.hs +62/−0
- gen/Amazonka/Redshift/Types/TableRestoreStatus.hs +248/−0
- gen/Amazonka/Redshift/Types/TableRestoreStatusType.hs +87/−0
- gen/Amazonka/Redshift/Types/Tag.hs +85/−0
- gen/Amazonka/Redshift/Types/TaggedResource.hs +169/−0
- gen/Amazonka/Redshift/Types/UpdateTarget.hs +98/−0
- gen/Amazonka/Redshift/Types/UsageLimit.hs +195/−0
- gen/Amazonka/Redshift/Types/UsageLimitBreachAction.hs +77/−0
- gen/Amazonka/Redshift/Types/UsageLimitFeatureType.hs +77/−0
- gen/Amazonka/Redshift/Types/UsageLimitLimitType.hs +72/−0
- gen/Amazonka/Redshift/Types/UsageLimitPeriod.hs +77/−0
- gen/Amazonka/Redshift/Types/VpcEndpoint.hs +105/−0
- gen/Amazonka/Redshift/Types/VpcSecurityGroupMembership.hs +82/−0
- gen/Amazonka/Redshift/UpdatePartnerStatus.hs +198/−0
- gen/Amazonka/Redshift/Waiters.hs +193/−0
- gen/Network/AWS/Redshift.hs +0/−1011
- gen/Network/AWS/Redshift/AuthorizeClusterSecurityGroupIngress.hs +0/−187
- gen/Network/AWS/Redshift/AuthorizeSnapshotAccess.hs +0/−158
- gen/Network/AWS/Redshift/CopyClusterSnapshot.hs +0/−160
- gen/Network/AWS/Redshift/CreateCluster.hs +0/−408
- gen/Network/AWS/Redshift/CreateClusterParameterGroup.hs +0/−174
- gen/Network/AWS/Redshift/CreateClusterSecurityGroup.hs +0/−160
- gen/Network/AWS/Redshift/CreateClusterSnapshot.hs +0/−155
- gen/Network/AWS/Redshift/CreateClusterSubnetGroup.hs +0/−171
- gen/Network/AWS/Redshift/CreateEventSubscription.hs +0/−212
- gen/Network/AWS/Redshift/CreateHSMClientCertificate.hs +0/−151
- gen/Network/AWS/Redshift/CreateHSMConfiguration.hs +0/−202
- gen/Network/AWS/Redshift/CreateSnapshotCopyGrant.hs +0/−158
- gen/Network/AWS/Redshift/CreateTags.hs +0/−118
- gen/Network/AWS/Redshift/DeleteCluster.hs +0/−157
- gen/Network/AWS/Redshift/DeleteClusterParameterGroup.hs +0/−109
- gen/Network/AWS/Redshift/DeleteClusterSecurityGroup.hs +0/−113
- gen/Network/AWS/Redshift/DeleteClusterSnapshot.hs +0/−145
- gen/Network/AWS/Redshift/DeleteClusterSubnetGroup.hs +0/−111
- gen/Network/AWS/Redshift/DeleteEventSubscription.hs +0/−108
- gen/Network/AWS/Redshift/DeleteHSMClientCertificate.hs +0/−111
- gen/Network/AWS/Redshift/DeleteHSMConfiguration.hs +0/−110
- gen/Network/AWS/Redshift/DeleteSnapshotCopyGrant.hs +0/−110
- gen/Network/AWS/Redshift/DeleteTags.hs +0/−114
- gen/Network/AWS/Redshift/DescribeClusterParameterGroups.hs +0/−215
- gen/Network/AWS/Redshift/DescribeClusterParameters.hs +0/−196
- gen/Network/AWS/Redshift/DescribeClusterSecurityGroups.hs +0/−213
- gen/Network/AWS/Redshift/DescribeClusterSnapshots.hs +0/−266
- gen/Network/AWS/Redshift/DescribeClusterSubnetGroups.hs +0/−209
- gen/Network/AWS/Redshift/DescribeClusterVersions.hs +0/−191
- gen/Network/AWS/Redshift/DescribeClusters.hs +0/−203
- gen/Network/AWS/Redshift/DescribeDefaultClusterParameters.hs +0/−188
- gen/Network/AWS/Redshift/DescribeEventCategories.hs +0/−137
- gen/Network/AWS/Redshift/DescribeEventSubscriptions.hs +0/−208
- gen/Network/AWS/Redshift/DescribeEvents.hs +0/−216
- gen/Network/AWS/Redshift/DescribeHSMClientCertificates.hs +0/−211
- gen/Network/AWS/Redshift/DescribeHSMConfigurations.hs +0/−208
- gen/Network/AWS/Redshift/DescribeLoggingStatus.hs +0/−99
- gen/Network/AWS/Redshift/DescribeOrderableClusterOptions.hs +0/−199
- gen/Network/AWS/Redshift/DescribeReservedNodeOfferings.hs +0/−187
- gen/Network/AWS/Redshift/DescribeReservedNodes.hs +0/−179
- gen/Network/AWS/Redshift/DescribeResize.hs +0/−253
- gen/Network/AWS/Redshift/DescribeSnapshotCopyGrants.hs +0/−197
- gen/Network/AWS/Redshift/DescribeTableRestoreStatus.hs +0/−183
- gen/Network/AWS/Redshift/DescribeTags.hs +0/−213
- gen/Network/AWS/Redshift/DisableLogging.hs +0/−99
- gen/Network/AWS/Redshift/DisableSnapshotCopy.hs +0/−132
- gen/Network/AWS/Redshift/EnableLogging.hs +0/−122
- gen/Network/AWS/Redshift/EnableSnapshotCopy.hs +0/−163
- gen/Network/AWS/Redshift/GetClusterCredentials.hs +0/−217
- gen/Network/AWS/Redshift/ModifyCluster.hs +0/−314
- gen/Network/AWS/Redshift/ModifyClusterIAMRoles.hs +0/−158
- gen/Network/AWS/Redshift/ModifyClusterParameterGroup.hs +0/−111
- gen/Network/AWS/Redshift/ModifyClusterSubnetGroup.hs +0/−158
- gen/Network/AWS/Redshift/ModifyEventSubscription.hs +0/−197
- gen/Network/AWS/Redshift/ModifySnapshotCopyRetentionPeriod.hs +0/−153
- gen/Network/AWS/Redshift/PurchaseReservedNodeOffering.hs +0/−149
- gen/Network/AWS/Redshift/RebootCluster.hs +0/−129
- gen/Network/AWS/Redshift/ResetClusterParameterGroup.hs +0/−122
- gen/Network/AWS/Redshift/RestoreFromClusterSnapshot.hs +0/−364
- gen/Network/AWS/Redshift/RestoreTableFromClusterSnapshot.hs +0/−218
- gen/Network/AWS/Redshift/RevokeClusterSecurityGroupIngress.hs +0/−177
- gen/Network/AWS/Redshift/RevokeSnapshotAccess.hs +0/−157
- gen/Network/AWS/Redshift/RotateEncryptionKey.hs +0/−130
- gen/Network/AWS/Redshift/Types.hs +0/−1258
- gen/Network/AWS/Redshift/Types/Product.hs +0/−3307
- gen/Network/AWS/Redshift/Types/Sum.hs +0/−144
- gen/Network/AWS/Redshift/Waiters.hs +0/−117
- src/Amazonka/Redshift/Internal.hs +92/−0
- src/Network/AWS/Redshift/Internal.hs +0/−42
- test/Main.hs +11/−9
- test/Test/AWS/Gen/Redshift.hs +0/−1173
- test/Test/AWS/Redshift.hs +0/−26
- test/Test/AWS/Redshift/Internal.hs +0/−16
- test/Test/Amazonka/Gen/Redshift.hs +2418/−0
- test/Test/Amazonka/Redshift.hs +20/−0
- test/Test/Amazonka/Redshift/Internal.hs +8/−0
README.md view
@@ -7,9 +7,8 @@ ## Version--`1.6.1`-+ +`2.0` - Derived from API version @2012-12-01@ of the AWS service descriptions, licensed under Apache 2.0. ## Description @@ -26,7 +25,7 @@ The provided lenses should be compatible with any of the major lens libraries [lens](http://hackage.haskell.org/package/lens) or [lens-family-core](http://hackage.haskell.org/package/lens-family-core). -See [Network.AWS.Redshift](http://hackage.haskell.org/package/amazonka-redshift/docs/Network-AWS-Redshift.html)+See [Amazonka.Redshift](http://hackage.haskell.org/package/amazonka-redshift/docs/Amazonka-Redshift.html) or [the AWS documentation](https://aws.amazon.com/documentation/) to get started.
− Setup.hs
@@ -1,2 +0,0 @@-import Distribution.Simple-main = defaultMain
amazonka-redshift.cabal view
@@ -1,149 +1,311 @@-name: amazonka-redshift-version: 1.6.1-synopsis: Amazon Redshift SDK.-homepage: https://github.com/brendanhay/amazonka-bug-reports: https://github.com/brendanhay/amazonka/issues-license: MPL-2.0-license-file: LICENSE-author: Brendan Hay-maintainer: Brendan Hay <brendan.g.hay+amazonka@gmail.com>-copyright: Copyright (c) 2013-2018 Brendan Hay-category: Network, AWS, Cloud, Distributed Computing-build-type: Simple-cabal-version: >= 1.10-extra-source-files: README.md fixture/*.yaml fixture/*.proto src/.gitkeep+cabal-version: 2.2+name: amazonka-redshift+version: 2.0+synopsis: Amazon Redshift SDK.+homepage: https://github.com/brendanhay/amazonka+bug-reports: https://github.com/brendanhay/amazonka/issues+license: MPL-2.0+license-file: LICENSE+author: Brendan Hay+maintainer:+ Brendan Hay <brendan.g.hay+amazonka@gmail.com>, Jack Kelly <jack@jackkelly.name>++copyright: Copyright (c) 2013-2023 Brendan Hay+category: AWS+build-type: Simple+extra-source-files:+ fixture/*.proto+ fixture/*.yaml+ README.md+ src/.gitkeep+ description:- The types from this library are intended to be used with- <http://hackage.haskell.org/package/amazonka amazonka>, which provides- mechanisms for specifying AuthN/AuthZ information, sending requests,- and receiving responses.- .- Lenses are used for constructing and manipulating types,- due to the depth of nesting of AWS types and transparency regarding- de/serialisation into more palatable Haskell values.- The provided lenses should be compatible with any of the major lens libraries- such as <http://hackage.haskell.org/package/lens lens> or- <http://hackage.haskell.org/package/lens-family-core lens-family-core>.- .- See "Network.AWS.Redshift" or <https://aws.amazon.com/documentation/ the AWS documentation>- to get started.+ Derived from API version @2012-12-01@ of the AWS service descriptions, licensed under Apache 2.0.+ .+ The types from this library are intended to be used with <http://hackage.haskell.org/package/amazonka amazonka>,+ which provides mechanisms for specifying AuthN/AuthZ information, sending requests, and receiving responses.+ .+ It is recommended to use generic lenses or optics from packages such as <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify optional fields and deconstruct responses.+ .+ Generated lenses can be found in "Amazonka.Redshift.Lens" and are+ suitable for use with a lens package such as <http://hackage.haskell.org/package/lens lens> or <http://hackage.haskell.org/package/lens-family-core lens-family-core>.+ .+ See "Amazonka.Redshift" and the <https://aws.amazon.com/documentation/ AWS documentation> to get started. source-repository head- type: git- location: git://github.com/brendanhay/amazonka.git- subdir: amazonka-redshift+ type: git+ location: git://github.com/brendanhay/amazonka.git+ subdir: amazonka-redshift library- default-language: Haskell2010- hs-source-dirs: src gen-- ghc-options:- -Wall- -fwarn-incomplete-uni-patterns- -fwarn-incomplete-record-updates- -funbox-strict-fields-- exposed-modules:- Network.AWS.Redshift- , Network.AWS.Redshift.AuthorizeClusterSecurityGroupIngress- , Network.AWS.Redshift.AuthorizeSnapshotAccess- , Network.AWS.Redshift.CopyClusterSnapshot- , Network.AWS.Redshift.CreateCluster- , Network.AWS.Redshift.CreateClusterParameterGroup- , Network.AWS.Redshift.CreateClusterSecurityGroup- , Network.AWS.Redshift.CreateClusterSnapshot- , Network.AWS.Redshift.CreateClusterSubnetGroup- , Network.AWS.Redshift.CreateEventSubscription- , Network.AWS.Redshift.CreateHSMClientCertificate- , Network.AWS.Redshift.CreateHSMConfiguration- , Network.AWS.Redshift.CreateSnapshotCopyGrant- , Network.AWS.Redshift.CreateTags- , Network.AWS.Redshift.DeleteCluster- , Network.AWS.Redshift.DeleteClusterParameterGroup- , Network.AWS.Redshift.DeleteClusterSecurityGroup- , Network.AWS.Redshift.DeleteClusterSnapshot- , Network.AWS.Redshift.DeleteClusterSubnetGroup- , Network.AWS.Redshift.DeleteEventSubscription- , Network.AWS.Redshift.DeleteHSMClientCertificate- , Network.AWS.Redshift.DeleteHSMConfiguration- , Network.AWS.Redshift.DeleteSnapshotCopyGrant- , Network.AWS.Redshift.DeleteTags- , Network.AWS.Redshift.DescribeClusterParameterGroups- , Network.AWS.Redshift.DescribeClusterParameters- , Network.AWS.Redshift.DescribeClusterSecurityGroups- , Network.AWS.Redshift.DescribeClusterSnapshots- , Network.AWS.Redshift.DescribeClusterSubnetGroups- , Network.AWS.Redshift.DescribeClusterVersions- , Network.AWS.Redshift.DescribeClusters- , Network.AWS.Redshift.DescribeDefaultClusterParameters- , Network.AWS.Redshift.DescribeEventCategories- , Network.AWS.Redshift.DescribeEventSubscriptions- , Network.AWS.Redshift.DescribeEvents- , Network.AWS.Redshift.DescribeHSMClientCertificates- , Network.AWS.Redshift.DescribeHSMConfigurations- , Network.AWS.Redshift.DescribeLoggingStatus- , Network.AWS.Redshift.DescribeOrderableClusterOptions- , Network.AWS.Redshift.DescribeReservedNodeOfferings- , Network.AWS.Redshift.DescribeReservedNodes- , Network.AWS.Redshift.DescribeResize- , Network.AWS.Redshift.DescribeSnapshotCopyGrants- , Network.AWS.Redshift.DescribeTableRestoreStatus- , Network.AWS.Redshift.DescribeTags- , Network.AWS.Redshift.DisableLogging- , Network.AWS.Redshift.DisableSnapshotCopy- , Network.AWS.Redshift.EnableLogging- , Network.AWS.Redshift.EnableSnapshotCopy- , Network.AWS.Redshift.GetClusterCredentials- , Network.AWS.Redshift.ModifyCluster- , Network.AWS.Redshift.ModifyClusterIAMRoles- , Network.AWS.Redshift.ModifyClusterParameterGroup- , Network.AWS.Redshift.ModifyClusterSubnetGroup- , Network.AWS.Redshift.ModifyEventSubscription- , Network.AWS.Redshift.ModifySnapshotCopyRetentionPeriod- , Network.AWS.Redshift.PurchaseReservedNodeOffering- , Network.AWS.Redshift.RebootCluster- , Network.AWS.Redshift.ResetClusterParameterGroup- , Network.AWS.Redshift.RestoreFromClusterSnapshot- , Network.AWS.Redshift.RestoreTableFromClusterSnapshot- , Network.AWS.Redshift.RevokeClusterSecurityGroupIngress- , Network.AWS.Redshift.RevokeSnapshotAccess- , Network.AWS.Redshift.RotateEncryptionKey- , Network.AWS.Redshift.Types- , Network.AWS.Redshift.Waiters+ default-language: Haskell2010+ hs-source-dirs: src gen+ ghc-options:+ -Wall -fwarn-incomplete-uni-patterns+ -fwarn-incomplete-record-updates -funbox-strict-fields - other-modules:- Network.AWS.Redshift.Internal- , Network.AWS.Redshift.Types.Product- , Network.AWS.Redshift.Types.Sum+ exposed-modules:+ Amazonka.Redshift+ Amazonka.Redshift.AcceptReservedNodeExchange+ Amazonka.Redshift.AddPartner+ Amazonka.Redshift.AssociateDataShareConsumer+ Amazonka.Redshift.AuthorizeClusterSecurityGroupIngress+ Amazonka.Redshift.AuthorizeDataShare+ Amazonka.Redshift.AuthorizeEndpointAccess+ Amazonka.Redshift.AuthorizeSnapshotAccess+ Amazonka.Redshift.BatchDeleteClusterSnapshots+ Amazonka.Redshift.BatchModifyClusterSnapshots+ Amazonka.Redshift.CancelResize+ Amazonka.Redshift.CopyClusterSnapshot+ Amazonka.Redshift.CreateAuthenticationProfile+ Amazonka.Redshift.CreateCluster+ Amazonka.Redshift.CreateClusterParameterGroup+ Amazonka.Redshift.CreateClusterSecurityGroup+ Amazonka.Redshift.CreateClusterSnapshot+ Amazonka.Redshift.CreateClusterSubnetGroup+ Amazonka.Redshift.CreateEndpointAccess+ Amazonka.Redshift.CreateEventSubscription+ Amazonka.Redshift.CreateHsmClientCertificate+ Amazonka.Redshift.CreateHsmConfiguration+ Amazonka.Redshift.CreateScheduledAction+ Amazonka.Redshift.CreateSnapshotCopyGrant+ Amazonka.Redshift.CreateSnapshotSchedule+ Amazonka.Redshift.CreateTags+ Amazonka.Redshift.CreateUsageLimit+ Amazonka.Redshift.DeauthorizeDataShare+ Amazonka.Redshift.DeleteAuthenticationProfile+ Amazonka.Redshift.DeleteCluster+ Amazonka.Redshift.DeleteClusterParameterGroup+ Amazonka.Redshift.DeleteClusterSecurityGroup+ Amazonka.Redshift.DeleteClusterSnapshot+ Amazonka.Redshift.DeleteClusterSubnetGroup+ Amazonka.Redshift.DeleteEndpointAccess+ Amazonka.Redshift.DeleteEventSubscription+ Amazonka.Redshift.DeleteHsmClientCertificate+ Amazonka.Redshift.DeleteHsmConfiguration+ Amazonka.Redshift.DeletePartner+ Amazonka.Redshift.DeleteScheduledAction+ Amazonka.Redshift.DeleteSnapshotCopyGrant+ Amazonka.Redshift.DeleteSnapshotSchedule+ Amazonka.Redshift.DeleteTags+ Amazonka.Redshift.DeleteUsageLimit+ Amazonka.Redshift.DescribeAccountAttributes+ Amazonka.Redshift.DescribeAuthenticationProfiles+ Amazonka.Redshift.DescribeClusterDbRevisions+ Amazonka.Redshift.DescribeClusterParameterGroups+ Amazonka.Redshift.DescribeClusterParameters+ Amazonka.Redshift.DescribeClusters+ Amazonka.Redshift.DescribeClusterSecurityGroups+ Amazonka.Redshift.DescribeClusterSnapshots+ Amazonka.Redshift.DescribeClusterSubnetGroups+ Amazonka.Redshift.DescribeClusterTracks+ Amazonka.Redshift.DescribeClusterVersions+ Amazonka.Redshift.DescribeDataShares+ Amazonka.Redshift.DescribeDataSharesForConsumer+ Amazonka.Redshift.DescribeDataSharesForProducer+ Amazonka.Redshift.DescribeDefaultClusterParameters+ Amazonka.Redshift.DescribeEndpointAccess+ Amazonka.Redshift.DescribeEndpointAuthorization+ Amazonka.Redshift.DescribeEventCategories+ Amazonka.Redshift.DescribeEvents+ Amazonka.Redshift.DescribeEventSubscriptions+ Amazonka.Redshift.DescribeHsmClientCertificates+ Amazonka.Redshift.DescribeHsmConfigurations+ Amazonka.Redshift.DescribeLoggingStatus+ Amazonka.Redshift.DescribeNodeConfigurationOptions+ Amazonka.Redshift.DescribeOrderableClusterOptions+ Amazonka.Redshift.DescribePartners+ Amazonka.Redshift.DescribeReservedNodeExchangeStatus+ Amazonka.Redshift.DescribeReservedNodeOfferings+ Amazonka.Redshift.DescribeReservedNodes+ Amazonka.Redshift.DescribeResize+ Amazonka.Redshift.DescribeScheduledActions+ Amazonka.Redshift.DescribeSnapshotCopyGrants+ Amazonka.Redshift.DescribeSnapshotSchedules+ Amazonka.Redshift.DescribeStorage+ Amazonka.Redshift.DescribeTableRestoreStatus+ Amazonka.Redshift.DescribeTags+ Amazonka.Redshift.DescribeUsageLimits+ Amazonka.Redshift.DisableLogging+ Amazonka.Redshift.DisableSnapshotCopy+ Amazonka.Redshift.DisassociateDataShareConsumer+ Amazonka.Redshift.EnableLogging+ Amazonka.Redshift.EnableSnapshotCopy+ Amazonka.Redshift.GetClusterCredentials+ Amazonka.Redshift.GetClusterCredentialsWithIAM+ Amazonka.Redshift.GetReservedNodeExchangeConfigurationOptions+ Amazonka.Redshift.GetReservedNodeExchangeOfferings+ Amazonka.Redshift.Internal+ Amazonka.Redshift.Lens+ Amazonka.Redshift.ModifyAquaConfiguration+ Amazonka.Redshift.ModifyAuthenticationProfile+ Amazonka.Redshift.ModifyCluster+ Amazonka.Redshift.ModifyClusterDbRevision+ Amazonka.Redshift.ModifyClusterIamRoles+ Amazonka.Redshift.ModifyClusterMaintenance+ Amazonka.Redshift.ModifyClusterParameterGroup+ Amazonka.Redshift.ModifyClusterSnapshot+ Amazonka.Redshift.ModifyClusterSnapshotSchedule+ Amazonka.Redshift.ModifyClusterSubnetGroup+ Amazonka.Redshift.ModifyEndpointAccess+ Amazonka.Redshift.ModifyEventSubscription+ Amazonka.Redshift.ModifyScheduledAction+ Amazonka.Redshift.ModifySnapshotCopyRetentionPeriod+ Amazonka.Redshift.ModifySnapshotSchedule+ Amazonka.Redshift.ModifyUsageLimit+ Amazonka.Redshift.PauseCluster+ Amazonka.Redshift.PurchaseReservedNodeOffering+ Amazonka.Redshift.RebootCluster+ Amazonka.Redshift.RejectDataShare+ Amazonka.Redshift.ResetClusterParameterGroup+ Amazonka.Redshift.ResizeCluster+ Amazonka.Redshift.RestoreFromClusterSnapshot+ Amazonka.Redshift.RestoreTableFromClusterSnapshot+ Amazonka.Redshift.ResumeCluster+ Amazonka.Redshift.RevokeClusterSecurityGroupIngress+ Amazonka.Redshift.RevokeEndpointAccess+ Amazonka.Redshift.RevokeSnapshotAccess+ Amazonka.Redshift.RotateEncryptionKey+ Amazonka.Redshift.Types+ Amazonka.Redshift.Types.AccountAttribute+ Amazonka.Redshift.Types.AccountWithRestoreAccess+ Amazonka.Redshift.Types.ActionType+ Amazonka.Redshift.Types.AquaConfiguration+ Amazonka.Redshift.Types.AquaConfigurationStatus+ Amazonka.Redshift.Types.AquaStatus+ Amazonka.Redshift.Types.AttributeValueTarget+ Amazonka.Redshift.Types.AuthenticationProfile+ Amazonka.Redshift.Types.AuthorizationStatus+ Amazonka.Redshift.Types.AvailabilityZone+ Amazonka.Redshift.Types.Cluster+ Amazonka.Redshift.Types.ClusterAssociatedToSchedule+ Amazonka.Redshift.Types.ClusterDbRevision+ Amazonka.Redshift.Types.ClusterIamRole+ Amazonka.Redshift.Types.ClusterNode+ Amazonka.Redshift.Types.ClusterParameterGroup+ Amazonka.Redshift.Types.ClusterParameterGroupNameMessage+ Amazonka.Redshift.Types.ClusterParameterGroupStatus+ Amazonka.Redshift.Types.ClusterParameterStatus+ Amazonka.Redshift.Types.ClusterSecurityGroup+ Amazonka.Redshift.Types.ClusterSecurityGroupMembership+ Amazonka.Redshift.Types.ClusterSnapshotCopyStatus+ Amazonka.Redshift.Types.ClusterSubnetGroup+ Amazonka.Redshift.Types.ClusterVersion+ Amazonka.Redshift.Types.DataShare+ Amazonka.Redshift.Types.DataShareAssociation+ Amazonka.Redshift.Types.DataShareStatus+ Amazonka.Redshift.Types.DataShareStatusForConsumer+ Amazonka.Redshift.Types.DataShareStatusForProducer+ Amazonka.Redshift.Types.DataTransferProgress+ Amazonka.Redshift.Types.DefaultClusterParameters+ Amazonka.Redshift.Types.DeferredMaintenanceWindow+ Amazonka.Redshift.Types.DeleteClusterSnapshotMessage+ Amazonka.Redshift.Types.EC2SecurityGroup+ Amazonka.Redshift.Types.ElasticIpStatus+ Amazonka.Redshift.Types.Endpoint+ Amazonka.Redshift.Types.EndpointAccess+ Amazonka.Redshift.Types.EndpointAuthorization+ Amazonka.Redshift.Types.Event+ Amazonka.Redshift.Types.EventCategoriesMap+ Amazonka.Redshift.Types.EventInfoMap+ Amazonka.Redshift.Types.EventSubscription+ Amazonka.Redshift.Types.HsmClientCertificate+ Amazonka.Redshift.Types.HsmConfiguration+ Amazonka.Redshift.Types.HsmStatus+ Amazonka.Redshift.Types.IPRange+ Amazonka.Redshift.Types.LogDestinationType+ Amazonka.Redshift.Types.LoggingStatus+ Amazonka.Redshift.Types.MaintenanceTrack+ Amazonka.Redshift.Types.Mode+ Amazonka.Redshift.Types.NetworkInterface+ Amazonka.Redshift.Types.NodeConfigurationOption+ Amazonka.Redshift.Types.NodeConfigurationOptionsFilter+ Amazonka.Redshift.Types.NodeConfigurationOptionsFilterName+ Amazonka.Redshift.Types.OperatorType+ Amazonka.Redshift.Types.OrderableClusterOption+ Amazonka.Redshift.Types.Parameter+ Amazonka.Redshift.Types.ParameterApplyType+ Amazonka.Redshift.Types.PartnerIntegrationInfo+ Amazonka.Redshift.Types.PartnerIntegrationInputMessage+ Amazonka.Redshift.Types.PartnerIntegrationOutputMessage+ Amazonka.Redshift.Types.PartnerIntegrationStatus+ Amazonka.Redshift.Types.PauseClusterMessage+ Amazonka.Redshift.Types.PendingModifiedValues+ Amazonka.Redshift.Types.RecurringCharge+ Amazonka.Redshift.Types.ReservedNode+ Amazonka.Redshift.Types.ReservedNodeConfigurationOption+ Amazonka.Redshift.Types.ReservedNodeExchangeActionType+ Amazonka.Redshift.Types.ReservedNodeExchangeStatus+ Amazonka.Redshift.Types.ReservedNodeExchangeStatusType+ Amazonka.Redshift.Types.ReservedNodeOffering+ Amazonka.Redshift.Types.ReservedNodeOfferingType+ Amazonka.Redshift.Types.ResizeClusterMessage+ Amazonka.Redshift.Types.ResizeInfo+ Amazonka.Redshift.Types.ResizeProgressMessage+ Amazonka.Redshift.Types.RestoreStatus+ Amazonka.Redshift.Types.ResumeClusterMessage+ Amazonka.Redshift.Types.RevisionTarget+ Amazonka.Redshift.Types.ScheduledAction+ Amazonka.Redshift.Types.ScheduledActionFilter+ Amazonka.Redshift.Types.ScheduledActionFilterName+ Amazonka.Redshift.Types.ScheduledActionState+ Amazonka.Redshift.Types.ScheduledActionType+ Amazonka.Redshift.Types.ScheduledActionTypeValues+ Amazonka.Redshift.Types.ScheduleState+ Amazonka.Redshift.Types.Snapshot+ Amazonka.Redshift.Types.SnapshotAttributeToSortBy+ Amazonka.Redshift.Types.SnapshotCopyGrant+ Amazonka.Redshift.Types.SnapshotErrorMessage+ Amazonka.Redshift.Types.SnapshotSchedule+ Amazonka.Redshift.Types.SnapshotSortingEntity+ Amazonka.Redshift.Types.SortByOrder+ Amazonka.Redshift.Types.SourceType+ Amazonka.Redshift.Types.Subnet+ Amazonka.Redshift.Types.SupportedOperation+ Amazonka.Redshift.Types.SupportedPlatform+ Amazonka.Redshift.Types.TableRestoreStatus+ Amazonka.Redshift.Types.TableRestoreStatusType+ Amazonka.Redshift.Types.Tag+ Amazonka.Redshift.Types.TaggedResource+ Amazonka.Redshift.Types.UpdateTarget+ Amazonka.Redshift.Types.UsageLimit+ Amazonka.Redshift.Types.UsageLimitBreachAction+ Amazonka.Redshift.Types.UsageLimitFeatureType+ Amazonka.Redshift.Types.UsageLimitLimitType+ Amazonka.Redshift.Types.UsageLimitPeriod+ Amazonka.Redshift.Types.VpcEndpoint+ Amazonka.Redshift.Types.VpcSecurityGroupMembership+ Amazonka.Redshift.UpdatePartnerStatus+ Amazonka.Redshift.Waiters - build-depends:- amazonka-core == 1.6.1.*- , base >= 4.7 && < 5+ build-depends:+ , amazonka-core >=2.0 && <2.1+ , base >=4.12 && <5 test-suite amazonka-redshift-test- type: exitcode-stdio-1.0- default-language: Haskell2010- hs-source-dirs: test- main-is: Main.hs-- ghc-options: -Wall -threaded+ type: exitcode-stdio-1.0+ default-language: Haskell2010+ hs-source-dirs: test+ main-is: Main.hs+ ghc-options: -Wall -threaded - -- This section is encoded by the template and any modules added by- -- hand outside these namespaces will not correctly be added to the- -- distribution package.- other-modules:- Test.AWS.Redshift- , Test.AWS.Gen.Redshift- , Test.AWS.Redshift.Internal+ -- This section is encoded by the template and any modules added by+ -- hand outside these namespaces will not correctly be added to the+ -- distribution package.+ other-modules:+ Test.Amazonka.Gen.Redshift+ Test.Amazonka.Redshift+ Test.Amazonka.Redshift.Internal - build-depends:- amazonka-core == 1.6.1.*- , amazonka-test == 1.6.1.*- , amazonka-redshift- , base- , bytestring- , tasty- , tasty-hunit- , text- , time- , unordered-containers+ build-depends:+ , amazonka-core >=2.0 && <2.1+ , amazonka-redshift+ , amazonka-test >=2.0 && <2.1+ , base+ , bytestring+ , case-insensitive+ , tasty+ , tasty-hunit+ , text+ , time+ , unordered-containers
+ fixture/AcceptReservedNodeExchange.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+ Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/redshift/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+ Host: redshift.us-east-1.amazonaws.com+ Content-Type: application/x-www-form-urlencoded; charset=utf-8+ X-Amz-Content-SHA256: abcdef+ X-Amz-Date: 20091028T223200Z+body:+ ''
+ fixture/AcceptReservedNodeExchangeResponse.proto view
+ fixture/AddPartner.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+ Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/redshift/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+ Host: redshift.us-east-1.amazonaws.com+ Content-Type: application/x-www-form-urlencoded; charset=utf-8+ X-Amz-Content-SHA256: abcdef+ X-Amz-Date: 20091028T223200Z+body:+ ''
+ fixture/AddPartnerResponse.proto view
@@ -0,0 +1,10 @@+---+method: POST+headers:+ Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/redshift/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+ Host: redshift.us-east-1.amazonaws.com+ Content-Type: application/x-www-form-urlencoded; charset=utf-8+ X-Amz-Content-SHA256: abcdef+ X-Amz-Date: 20091028T223200Z+body:+ ''
fixture/AuthorizeClusterSecurityGroupIngress.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+ Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/redshift/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+ Host: redshift.us-east-1.amazonaws.com+ Content-Type: application/x-www-form-urlencoded; charset=utf-8+ X-Amz-Content-SHA256: abcdef+ X-Amz-Date: 20091028T223200Z+body:+ ''
@@ -0,0 +1,10 @@+---+method: POST+headers:+ Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/redshift/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+ Host: redshift.us-east-1.amazonaws.com+ Content-Type: application/x-www-form-urlencoded; charset=utf-8+ X-Amz-Content-SHA256: abcdef+ X-Amz-Date: 20091028T223200Z+body:+ ''
+ fixture/AuthorizeEndpointAccess.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+ Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/redshift/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+ Host: redshift.us-east-1.amazonaws.com+ Content-Type: application/x-www-form-urlencoded; charset=utf-8+ X-Amz-Content-SHA256: abcdef+ X-Amz-Date: 20091028T223200Z+body:+ ''
+ fixture/AuthorizeEndpointAccessResponse.proto view
fixture/AuthorizeSnapshotAccess.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+ Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/redshift/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+ Host: redshift.us-east-1.amazonaws.com+ Content-Type: application/x-www-form-urlencoded; charset=utf-8+ X-Amz-Content-SHA256: abcdef+ X-Amz-Date: 20091028T223200Z+body:+ ''
+ fixture/BatchDeleteClusterSnapshots.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+ Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/redshift/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+ Host: redshift.us-east-1.amazonaws.com+ Content-Type: application/x-www-form-urlencoded; charset=utf-8+ X-Amz-Content-SHA256: abcdef+ X-Amz-Date: 20091028T223200Z+body:+ ''
+ fixture/BatchDeleteClusterSnapshotsResponse.proto view
+ fixture/BatchModifyClusterSnapshots.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+ Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/redshift/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+ Host: redshift.us-east-1.amazonaws.com+ Content-Type: application/x-www-form-urlencoded; charset=utf-8+ X-Amz-Content-SHA256: abcdef+ X-Amz-Date: 20091028T223200Z+body:+ ''
+ fixture/BatchModifyClusterSnapshotsResponse.proto view
+ fixture/CancelResize.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+ Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/redshift/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+ Host: redshift.us-east-1.amazonaws.com+ Content-Type: application/x-www-form-urlencoded; charset=utf-8+ X-Amz-Content-SHA256: abcdef+ X-Amz-Date: 20091028T223200Z+body:+ ''
+ fixture/CancelResizeResponse.proto view
fixture/CopyClusterSnapshot.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+ Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/redshift/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+ Host: redshift.us-east-1.amazonaws.com+ Content-Type: application/x-www-form-urlencoded; charset=utf-8+ X-Amz-Content-SHA256: abcdef+ X-Amz-Date: 20091028T223200Z+body:+ ''
+ fixture/CreateAuthenticationProfile.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+ Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/redshift/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+ Host: redshift.us-east-1.amazonaws.com+ Content-Type: application/x-www-form-urlencoded; charset=utf-8+ X-Amz-Content-SHA256: abcdef+ X-Amz-Date: 20091028T223200Z+body:+ ''
+ fixture/CreateAuthenticationProfileResponse.proto view
fixture/CreateCluster.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+ Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/redshift/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+ Host: redshift.us-east-1.amazonaws.com+ Content-Type: application/x-www-form-urlencoded; charset=utf-8+ X-Amz-Content-SHA256: abcdef+ X-Amz-Date: 20091028T223200Z+body:+ ''
fixture/CreateClusterParameterGroup.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+ Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/redshift/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+ Host: redshift.us-east-1.amazonaws.com+ Content-Type: application/x-www-form-urlencoded; charset=utf-8+ X-Amz-Content-SHA256: abcdef+ X-Amz-Date: 20091028T223200Z+body:+ ''
fixture/CreateClusterSecurityGroup.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+ Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/redshift/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+ Host: redshift.us-east-1.amazonaws.com+ Content-Type: application/x-www-form-urlencoded; charset=utf-8+ X-Amz-Content-SHA256: abcdef+ X-Amz-Date: 20091028T223200Z+body:+ ''
fixture/CreateClusterSnapshot.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+ Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/redshift/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+ Host: redshift.us-east-1.amazonaws.com+ Content-Type: application/x-www-form-urlencoded; charset=utf-8+ X-Amz-Content-SHA256: abcdef+ X-Amz-Date: 20091028T223200Z+body:+ ''
fixture/CreateClusterSubnetGroup.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+ Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/redshift/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+ Host: redshift.us-east-1.amazonaws.com+ Content-Type: application/x-www-form-urlencoded; charset=utf-8+ X-Amz-Content-SHA256: abcdef+ X-Amz-Date: 20091028T223200Z+body:+ ''
+ fixture/CreateEndpointAccess.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+ Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/redshift/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+ Host: redshift.us-east-1.amazonaws.com+ Content-Type: application/x-www-form-urlencoded; charset=utf-8+ X-Amz-Content-SHA256: abcdef+ X-Amz-Date: 20091028T223200Z+body:+ ''
+ fixture/CreateEndpointAccessResponse.proto view
fixture/CreateEventSubscription.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+ Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/redshift/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+ Host: redshift.us-east-1.amazonaws.com+ Content-Type: application/x-www-form-urlencoded; charset=utf-8+ X-Amz-Content-SHA256: abcdef+ X-Amz-Date: 20091028T223200Z+body:+ ''
− fixture/CreateHSMClientCertificate.yaml
− fixture/CreateHSMClientCertificateResponse.proto
− fixture/CreateHSMConfiguration.yaml
− fixture/CreateHSMConfigurationResponse.proto
+ fixture/CreateHsmClientCertificate.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+ Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/redshift/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+ Host: redshift.us-east-1.amazonaws.com+ Content-Type: application/x-www-form-urlencoded; charset=utf-8+ X-Amz-Content-SHA256: abcdef+ X-Amz-Date: 20091028T223200Z+body:+ ''
+ fixture/CreateHsmClientCertificateResponse.proto view
+ fixture/CreateHsmConfiguration.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+ Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/redshift/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+ Host: redshift.us-east-1.amazonaws.com+ Content-Type: application/x-www-form-urlencoded; charset=utf-8+ X-Amz-Content-SHA256: abcdef+ X-Amz-Date: 20091028T223200Z+body:+ ''
+ fixture/CreateHsmConfigurationResponse.proto view
+ fixture/CreateScheduledAction.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+ Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/redshift/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+ Host: redshift.us-east-1.amazonaws.com+ Content-Type: application/x-www-form-urlencoded; charset=utf-8+ X-Amz-Content-SHA256: abcdef+ X-Amz-Date: 20091028T223200Z+body:+ ''
+ fixture/CreateScheduledActionResponse.proto view
fixture/CreateSnapshotCopyGrant.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+ Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/redshift/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+ Host: redshift.us-east-1.amazonaws.com+ Content-Type: application/x-www-form-urlencoded; charset=utf-8+ X-Amz-Content-SHA256: abcdef+ X-Amz-Date: 20091028T223200Z+body:+ ''
+ fixture/CreateSnapshotSchedule.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+ Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/redshift/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+ Host: redshift.us-east-1.amazonaws.com+ Content-Type: application/x-www-form-urlencoded; charset=utf-8+ X-Amz-Content-SHA256: abcdef+ X-Amz-Date: 20091028T223200Z+body:+ ''
+ fixture/CreateSnapshotScheduleResponse.proto view
fixture/CreateTags.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+ Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/redshift/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+ Host: redshift.us-east-1.amazonaws.com+ Content-Type: application/x-www-form-urlencoded; charset=utf-8+ X-Amz-Content-SHA256: abcdef+ X-Amz-Date: 20091028T223200Z+body:+ ''
+ fixture/CreateUsageLimit.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+ Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/redshift/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+ Host: redshift.us-east-1.amazonaws.com+ Content-Type: application/x-www-form-urlencoded; charset=utf-8+ X-Amz-Content-SHA256: abcdef+ X-Amz-Date: 20091028T223200Z+body:+ ''
+ fixture/CreateUsageLimitResponse.proto view
@@ -0,0 +1,10 @@+---+method: POST+headers:+ Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/redshift/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+ Host: redshift.us-east-1.amazonaws.com+ Content-Type: application/x-www-form-urlencoded; charset=utf-8+ X-Amz-Content-SHA256: abcdef+ X-Amz-Date: 20091028T223200Z+body:+ ''
+ fixture/DeleteAuthenticationProfile.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+ Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/redshift/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+ Host: redshift.us-east-1.amazonaws.com+ Content-Type: application/x-www-form-urlencoded; charset=utf-8+ X-Amz-Content-SHA256: abcdef+ X-Amz-Date: 20091028T223200Z+body:+ ''
+ fixture/DeleteAuthenticationProfileResponse.proto view
fixture/DeleteCluster.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+ Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/redshift/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+ Host: redshift.us-east-1.amazonaws.com+ Content-Type: application/x-www-form-urlencoded; charset=utf-8+ X-Amz-Content-SHA256: abcdef+ X-Amz-Date: 20091028T223200Z+body:+ ''
fixture/DeleteClusterParameterGroup.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+ Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/redshift/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+ Host: redshift.us-east-1.amazonaws.com+ Content-Type: application/x-www-form-urlencoded; charset=utf-8+ X-Amz-Content-SHA256: abcdef+ X-Amz-Date: 20091028T223200Z+body:+ ''
fixture/DeleteClusterSecurityGroup.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+ Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/redshift/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+ Host: redshift.us-east-1.amazonaws.com+ Content-Type: application/x-www-form-urlencoded; charset=utf-8+ X-Amz-Content-SHA256: abcdef+ X-Amz-Date: 20091028T223200Z+body:+ ''
fixture/DeleteClusterSnapshot.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+ Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/redshift/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+ Host: redshift.us-east-1.amazonaws.com+ Content-Type: application/x-www-form-urlencoded; charset=utf-8+ X-Amz-Content-SHA256: abcdef+ X-Amz-Date: 20091028T223200Z+body:+ ''
fixture/DeleteClusterSubnetGroup.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+ Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/redshift/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+ Host: redshift.us-east-1.amazonaws.com+ Content-Type: application/x-www-form-urlencoded; charset=utf-8+ X-Amz-Content-SHA256: abcdef+ X-Amz-Date: 20091028T223200Z+body:+ ''
+ fixture/DeleteEndpointAccess.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+ Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/redshift/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+ Host: redshift.us-east-1.amazonaws.com+ Content-Type: application/x-www-form-urlencoded; charset=utf-8+ X-Amz-Content-SHA256: abcdef+ X-Amz-Date: 20091028T223200Z+body:+ ''
+ fixture/DeleteEndpointAccessResponse.proto view
fixture/DeleteEventSubscription.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+ Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/redshift/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+ Host: redshift.us-east-1.amazonaws.com+ Content-Type: application/x-www-form-urlencoded; charset=utf-8+ X-Amz-Content-SHA256: abcdef+ X-Amz-Date: 20091028T223200Z+body:+ ''
− fixture/DeleteHSMClientCertificate.yaml
− fixture/DeleteHSMClientCertificateResponse.proto
− fixture/DeleteHSMConfiguration.yaml
− fixture/DeleteHSMConfigurationResponse.proto
+ fixture/DeleteHsmClientCertificate.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+ Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/redshift/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+ Host: redshift.us-east-1.amazonaws.com+ Content-Type: application/x-www-form-urlencoded; charset=utf-8+ X-Amz-Content-SHA256: abcdef+ X-Amz-Date: 20091028T223200Z+body:+ ''
+ fixture/DeleteHsmClientCertificateResponse.proto view
+ fixture/DeleteHsmConfiguration.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+ Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/redshift/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+ Host: redshift.us-east-1.amazonaws.com+ Content-Type: application/x-www-form-urlencoded; charset=utf-8+ X-Amz-Content-SHA256: abcdef+ X-Amz-Date: 20091028T223200Z+body:+ ''
+ fixture/DeleteHsmConfigurationResponse.proto view
+ fixture/DeletePartner.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+ Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/redshift/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+ Host: redshift.us-east-1.amazonaws.com+ Content-Type: application/x-www-form-urlencoded; charset=utf-8+ X-Amz-Content-SHA256: abcdef+ X-Amz-Date: 20091028T223200Z+body:+ ''
+ fixture/DeletePartnerResponse.proto view
+ fixture/DeleteScheduledAction.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+ Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/redshift/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+ Host: redshift.us-east-1.amazonaws.com+ Content-Type: application/x-www-form-urlencoded; charset=utf-8+ X-Amz-Content-SHA256: abcdef+ X-Amz-Date: 20091028T223200Z+body:+ ''
+ fixture/DeleteScheduledActionResponse.proto view
fixture/DeleteSnapshotCopyGrant.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+ Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/redshift/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+ Host: redshift.us-east-1.amazonaws.com+ Content-Type: application/x-www-form-urlencoded; charset=utf-8+ X-Amz-Content-SHA256: abcdef+ X-Amz-Date: 20091028T223200Z+body:+ ''
+ fixture/DeleteSnapshotSchedule.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+ Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/redshift/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+ Host: redshift.us-east-1.amazonaws.com+ Content-Type: application/x-www-form-urlencoded; charset=utf-8+ X-Amz-Content-SHA256: abcdef+ X-Amz-Date: 20091028T223200Z+body:+ ''
+ fixture/DeleteSnapshotScheduleResponse.proto view
fixture/DeleteTags.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+ Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/redshift/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+ Host: redshift.us-east-1.amazonaws.com+ Content-Type: application/x-www-form-urlencoded; charset=utf-8+ X-Amz-Content-SHA256: abcdef+ X-Amz-Date: 20091028T223200Z+body:+ ''
+ fixture/DeleteUsageLimit.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+ Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/redshift/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+ Host: redshift.us-east-1.amazonaws.com+ Content-Type: application/x-www-form-urlencoded; charset=utf-8+ X-Amz-Content-SHA256: abcdef+ X-Amz-Date: 20091028T223200Z+body:+ ''
+ fixture/DeleteUsageLimitResponse.proto view
+ fixture/DescribeAccountAttributes.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+ Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/redshift/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+ Host: redshift.us-east-1.amazonaws.com+ Content-Type: application/x-www-form-urlencoded; charset=utf-8+ X-Amz-Content-SHA256: abcdef+ X-Amz-Date: 20091028T223200Z+body:+ ''
+ fixture/DescribeAccountAttributesResponse.proto view
+ fixture/DescribeAuthenticationProfiles.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+ Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/redshift/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+ Host: redshift.us-east-1.amazonaws.com+ Content-Type: application/x-www-form-urlencoded; charset=utf-8+ X-Amz-Content-SHA256: abcdef+ X-Amz-Date: 20091028T223200Z+body:+ ''
+ fixture/DescribeAuthenticationProfilesResponse.proto view
+ fixture/DescribeClusterDbRevisions.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+ Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/redshift/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+ Host: redshift.us-east-1.amazonaws.com+ Content-Type: application/x-www-form-urlencoded; charset=utf-8+ X-Amz-Content-SHA256: abcdef+ X-Amz-Date: 20091028T223200Z+body:+ ''
+ fixture/DescribeClusterDbRevisionsResponse.proto view
fixture/DescribeClusterParameterGroups.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+ Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/redshift/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+ Host: redshift.us-east-1.amazonaws.com+ Content-Type: application/x-www-form-urlencoded; charset=utf-8+ X-Amz-Content-SHA256: abcdef+ X-Amz-Date: 20091028T223200Z+body:+ ''
fixture/DescribeClusterParameters.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+ Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/redshift/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+ Host: redshift.us-east-1.amazonaws.com+ Content-Type: application/x-www-form-urlencoded; charset=utf-8+ X-Amz-Content-SHA256: abcdef+ X-Amz-Date: 20091028T223200Z+body:+ ''
fixture/DescribeClusterSecurityGroups.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+ Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/redshift/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+ Host: redshift.us-east-1.amazonaws.com+ Content-Type: application/x-www-form-urlencoded; charset=utf-8+ X-Amz-Content-SHA256: abcdef+ X-Amz-Date: 20091028T223200Z+body:+ ''
fixture/DescribeClusterSnapshots.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+ Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/redshift/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+ Host: redshift.us-east-1.amazonaws.com+ Content-Type: application/x-www-form-urlencoded; charset=utf-8+ X-Amz-Content-SHA256: abcdef+ X-Amz-Date: 20091028T223200Z+body:+ ''
fixture/DescribeClusterSubnetGroups.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+ Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/redshift/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+ Host: redshift.us-east-1.amazonaws.com+ Content-Type: application/x-www-form-urlencoded; charset=utf-8+ X-Amz-Content-SHA256: abcdef+ X-Amz-Date: 20091028T223200Z+body:+ ''
+ fixture/DescribeClusterTracks.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+ Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/redshift/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+ Host: redshift.us-east-1.amazonaws.com+ Content-Type: application/x-www-form-urlencoded; charset=utf-8+ X-Amz-Content-SHA256: abcdef+ X-Amz-Date: 20091028T223200Z+body:+ ''
+ fixture/DescribeClusterTracksResponse.proto view
fixture/DescribeClusterVersions.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+ Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/redshift/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+ Host: redshift.us-east-1.amazonaws.com+ Content-Type: application/x-www-form-urlencoded; charset=utf-8+ X-Amz-Content-SHA256: abcdef+ X-Amz-Date: 20091028T223200Z+body:+ ''
fixture/DescribeClusters.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+ Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/redshift/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+ Host: redshift.us-east-1.amazonaws.com+ Content-Type: application/x-www-form-urlencoded; charset=utf-8+ X-Amz-Content-SHA256: abcdef+ X-Amz-Date: 20091028T223200Z+body:+ ''
@@ -0,0 +1,10 @@+---+method: POST+headers:+ Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/redshift/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+ Host: redshift.us-east-1.amazonaws.com+ Content-Type: application/x-www-form-urlencoded; charset=utf-8+ X-Amz-Content-SHA256: abcdef+ X-Amz-Date: 20091028T223200Z+body:+ ''
@@ -0,0 +1,10 @@+---+method: POST+headers:+ Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/redshift/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+ Host: redshift.us-east-1.amazonaws.com+ Content-Type: application/x-www-form-urlencoded; charset=utf-8+ X-Amz-Content-SHA256: abcdef+ X-Amz-Date: 20091028T223200Z+body:+ ''
@@ -0,0 +1,10 @@+---+method: POST+headers:+ Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/redshift/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+ Host: redshift.us-east-1.amazonaws.com+ Content-Type: application/x-www-form-urlencoded; charset=utf-8+ X-Amz-Content-SHA256: abcdef+ X-Amz-Date: 20091028T223200Z+body:+ ''
fixture/DescribeDefaultClusterParameters.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+ Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/redshift/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+ Host: redshift.us-east-1.amazonaws.com+ Content-Type: application/x-www-form-urlencoded; charset=utf-8+ X-Amz-Content-SHA256: abcdef+ X-Amz-Date: 20091028T223200Z+body:+ ''
+ fixture/DescribeEndpointAccess.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+ Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/redshift/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+ Host: redshift.us-east-1.amazonaws.com+ Content-Type: application/x-www-form-urlencoded; charset=utf-8+ X-Amz-Content-SHA256: abcdef+ X-Amz-Date: 20091028T223200Z+body:+ ''
+ fixture/DescribeEndpointAccessResponse.proto view
+ fixture/DescribeEndpointAuthorization.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+ Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/redshift/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+ Host: redshift.us-east-1.amazonaws.com+ Content-Type: application/x-www-form-urlencoded; charset=utf-8+ X-Amz-Content-SHA256: abcdef+ X-Amz-Date: 20091028T223200Z+body:+ ''
+ fixture/DescribeEndpointAuthorizationResponse.proto view
fixture/DescribeEventCategories.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+ Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/redshift/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+ Host: redshift.us-east-1.amazonaws.com+ Content-Type: application/x-www-form-urlencoded; charset=utf-8+ X-Amz-Content-SHA256: abcdef+ X-Amz-Date: 20091028T223200Z+body:+ ''
fixture/DescribeEventSubscriptions.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+ Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/redshift/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+ Host: redshift.us-east-1.amazonaws.com+ Content-Type: application/x-www-form-urlencoded; charset=utf-8+ X-Amz-Content-SHA256: abcdef+ X-Amz-Date: 20091028T223200Z+body:+ ''
fixture/DescribeEvents.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+ Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/redshift/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+ Host: redshift.us-east-1.amazonaws.com+ Content-Type: application/x-www-form-urlencoded; charset=utf-8+ X-Amz-Content-SHA256: abcdef+ X-Amz-Date: 20091028T223200Z+body:+ ''
− fixture/DescribeHSMClientCertificates.yaml
− fixture/DescribeHSMClientCertificatesResponse.proto
− fixture/DescribeHSMConfigurations.yaml
− fixture/DescribeHSMConfigurationsResponse.proto
+ fixture/DescribeHsmClientCertificates.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+ Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/redshift/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+ Host: redshift.us-east-1.amazonaws.com+ Content-Type: application/x-www-form-urlencoded; charset=utf-8+ X-Amz-Content-SHA256: abcdef+ X-Amz-Date: 20091028T223200Z+body:+ ''
+ fixture/DescribeHsmClientCertificatesResponse.proto view
+ fixture/DescribeHsmConfigurations.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+ Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/redshift/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+ Host: redshift.us-east-1.amazonaws.com+ Content-Type: application/x-www-form-urlencoded; charset=utf-8+ X-Amz-Content-SHA256: abcdef+ X-Amz-Date: 20091028T223200Z+body:+ ''
+ fixture/DescribeHsmConfigurationsResponse.proto view
fixture/DescribeLoggingStatus.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+ Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/redshift/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+ Host: redshift.us-east-1.amazonaws.com+ Content-Type: application/x-www-form-urlencoded; charset=utf-8+ X-Amz-Content-SHA256: abcdef+ X-Amz-Date: 20091028T223200Z+body:+ ''
+ fixture/DescribeNodeConfigurationOptions.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+ Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/redshift/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+ Host: redshift.us-east-1.amazonaws.com+ Content-Type: application/x-www-form-urlencoded; charset=utf-8+ X-Amz-Content-SHA256: abcdef+ X-Amz-Date: 20091028T223200Z+body:+ ''
+ fixture/DescribeNodeConfigurationOptionsResponse.proto view
fixture/DescribeOrderableClusterOptions.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+ Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/redshift/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+ Host: redshift.us-east-1.amazonaws.com+ Content-Type: application/x-www-form-urlencoded; charset=utf-8+ X-Amz-Content-SHA256: abcdef+ X-Amz-Date: 20091028T223200Z+body:+ ''
+ fixture/DescribePartners.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+ Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/redshift/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+ Host: redshift.us-east-1.amazonaws.com+ Content-Type: application/x-www-form-urlencoded; charset=utf-8+ X-Amz-Content-SHA256: abcdef+ X-Amz-Date: 20091028T223200Z+body:+ ''
+ fixture/DescribePartnersResponse.proto view
+ fixture/DescribeReservedNodeExchangeStatus.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+ Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/redshift/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+ Host: redshift.us-east-1.amazonaws.com+ Content-Type: application/x-www-form-urlencoded; charset=utf-8+ X-Amz-Content-SHA256: abcdef+ X-Amz-Date: 20091028T223200Z+body:+ ''
+ fixture/DescribeReservedNodeExchangeStatusResponse.proto view
fixture/DescribeReservedNodeOfferings.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+ Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/redshift/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+ Host: redshift.us-east-1.amazonaws.com+ Content-Type: application/x-www-form-urlencoded; charset=utf-8+ X-Amz-Content-SHA256: abcdef+ X-Amz-Date: 20091028T223200Z+body:+ ''
fixture/DescribeReservedNodes.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+ Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/redshift/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+ Host: redshift.us-east-1.amazonaws.com+ Content-Type: application/x-www-form-urlencoded; charset=utf-8+ X-Amz-Content-SHA256: abcdef+ X-Amz-Date: 20091028T223200Z+body:+ ''
fixture/DescribeResize.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+ Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/redshift/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+ Host: redshift.us-east-1.amazonaws.com+ Content-Type: application/x-www-form-urlencoded; charset=utf-8+ X-Amz-Content-SHA256: abcdef+ X-Amz-Date: 20091028T223200Z+body:+ ''
+ fixture/DescribeScheduledActions.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+ Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/redshift/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+ Host: redshift.us-east-1.amazonaws.com+ Content-Type: application/x-www-form-urlencoded; charset=utf-8+ X-Amz-Content-SHA256: abcdef+ X-Amz-Date: 20091028T223200Z+body:+ ''
+ fixture/DescribeScheduledActionsResponse.proto view
fixture/DescribeSnapshotCopyGrants.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+ Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/redshift/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+ Host: redshift.us-east-1.amazonaws.com+ Content-Type: application/x-www-form-urlencoded; charset=utf-8+ X-Amz-Content-SHA256: abcdef+ X-Amz-Date: 20091028T223200Z+body:+ ''
+ fixture/DescribeSnapshotSchedules.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+ Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/redshift/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+ Host: redshift.us-east-1.amazonaws.com+ Content-Type: application/x-www-form-urlencoded; charset=utf-8+ X-Amz-Content-SHA256: abcdef+ X-Amz-Date: 20091028T223200Z+body:+ ''
+ fixture/DescribeSnapshotSchedulesResponse.proto view
+ fixture/DescribeStorage.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+ Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/redshift/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+ Host: redshift.us-east-1.amazonaws.com+ Content-Type: application/x-www-form-urlencoded; charset=utf-8+ X-Amz-Content-SHA256: abcdef+ X-Amz-Date: 20091028T223200Z+body:+ ''
+ fixture/DescribeStorageResponse.proto view
fixture/DescribeTableRestoreStatus.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+ Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/redshift/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+ Host: redshift.us-east-1.amazonaws.com+ Content-Type: application/x-www-form-urlencoded; charset=utf-8+ X-Amz-Content-SHA256: abcdef+ X-Amz-Date: 20091028T223200Z+body:+ ''
fixture/DescribeTags.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+ Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/redshift/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+ Host: redshift.us-east-1.amazonaws.com+ Content-Type: application/x-www-form-urlencoded; charset=utf-8+ X-Amz-Content-SHA256: abcdef+ X-Amz-Date: 20091028T223200Z+body:+ ''
+ fixture/DescribeUsageLimits.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+ Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/redshift/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+ Host: redshift.us-east-1.amazonaws.com+ Content-Type: application/x-www-form-urlencoded; charset=utf-8+ X-Amz-Content-SHA256: abcdef+ X-Amz-Date: 20091028T223200Z+body:+ ''
+ fixture/DescribeUsageLimitsResponse.proto view
fixture/DisableLogging.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+ Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/redshift/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+ Host: redshift.us-east-1.amazonaws.com+ Content-Type: application/x-www-form-urlencoded; charset=utf-8+ X-Amz-Content-SHA256: abcdef+ X-Amz-Date: 20091028T223200Z+body:+ ''
fixture/DisableSnapshotCopy.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+ Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/redshift/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+ Host: redshift.us-east-1.amazonaws.com+ Content-Type: application/x-www-form-urlencoded; charset=utf-8+ X-Amz-Content-SHA256: abcdef+ X-Amz-Date: 20091028T223200Z+body:+ ''
@@ -0,0 +1,10 @@+---+method: POST+headers:+ Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/redshift/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+ Host: redshift.us-east-1.amazonaws.com+ Content-Type: application/x-www-form-urlencoded; charset=utf-8+ X-Amz-Content-SHA256: abcdef+ X-Amz-Date: 20091028T223200Z+body:+ ''
fixture/EnableLogging.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+ Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/redshift/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+ Host: redshift.us-east-1.amazonaws.com+ Content-Type: application/x-www-form-urlencoded; charset=utf-8+ X-Amz-Content-SHA256: abcdef+ X-Amz-Date: 20091028T223200Z+body:+ ''
fixture/EnableSnapshotCopy.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+ Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/redshift/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+ Host: redshift.us-east-1.amazonaws.com+ Content-Type: application/x-www-form-urlencoded; charset=utf-8+ X-Amz-Content-SHA256: abcdef+ X-Amz-Date: 20091028T223200Z+body:+ ''
+ fixture/GetClusterCredentialsWithIAM.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+ Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/redshift/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+ Host: redshift.us-east-1.amazonaws.com+ Content-Type: application/x-www-form-urlencoded; charset=utf-8+ X-Amz-Content-SHA256: abcdef+ X-Amz-Date: 20091028T223200Z+body:+ ''
+ fixture/GetClusterCredentialsWithIAMResponse.proto view
+ fixture/GetReservedNodeExchangeConfigurationOptions.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+ Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/redshift/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+ Host: redshift.us-east-1.amazonaws.com+ Content-Type: application/x-www-form-urlencoded; charset=utf-8+ X-Amz-Content-SHA256: abcdef+ X-Amz-Date: 20091028T223200Z+body:+ ''
+ fixture/GetReservedNodeExchangeConfigurationOptionsResponse.proto view
+ fixture/GetReservedNodeExchangeOfferings.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+ Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/redshift/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+ Host: redshift.us-east-1.amazonaws.com+ Content-Type: application/x-www-form-urlencoded; charset=utf-8+ X-Amz-Content-SHA256: abcdef+ X-Amz-Date: 20091028T223200Z+body:+ ''
+ fixture/GetReservedNodeExchangeOfferingsResponse.proto view
+ fixture/ModifyAquaConfiguration.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+ Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/redshift/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+ Host: redshift.us-east-1.amazonaws.com+ Content-Type: application/x-www-form-urlencoded; charset=utf-8+ X-Amz-Content-SHA256: abcdef+ X-Amz-Date: 20091028T223200Z+body:+ ''
+ fixture/ModifyAquaConfigurationResponse.proto view
+ fixture/ModifyAuthenticationProfile.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+ Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/redshift/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+ Host: redshift.us-east-1.amazonaws.com+ Content-Type: application/x-www-form-urlencoded; charset=utf-8+ X-Amz-Content-SHA256: abcdef+ X-Amz-Date: 20091028T223200Z+body:+ ''
+ fixture/ModifyAuthenticationProfileResponse.proto view
fixture/ModifyCluster.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+ Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/redshift/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+ Host: redshift.us-east-1.amazonaws.com+ Content-Type: application/x-www-form-urlencoded; charset=utf-8+ X-Amz-Content-SHA256: abcdef+ X-Amz-Date: 20091028T223200Z+body:+ ''
+ fixture/ModifyClusterDbRevision.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+ Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/redshift/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+ Host: redshift.us-east-1.amazonaws.com+ Content-Type: application/x-www-form-urlencoded; charset=utf-8+ X-Amz-Content-SHA256: abcdef+ X-Amz-Date: 20091028T223200Z+body:+ ''
+ fixture/ModifyClusterDbRevisionResponse.proto view
− fixture/ModifyClusterIAMRoles.yaml
− fixture/ModifyClusterIAMRolesResponse.proto
+ fixture/ModifyClusterIamRoles.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+ Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/redshift/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+ Host: redshift.us-east-1.amazonaws.com+ Content-Type: application/x-www-form-urlencoded; charset=utf-8+ X-Amz-Content-SHA256: abcdef+ X-Amz-Date: 20091028T223200Z+body:+ ''
+ fixture/ModifyClusterIamRolesResponse.proto view
+ fixture/ModifyClusterMaintenance.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+ Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/redshift/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+ Host: redshift.us-east-1.amazonaws.com+ Content-Type: application/x-www-form-urlencoded; charset=utf-8+ X-Amz-Content-SHA256: abcdef+ X-Amz-Date: 20091028T223200Z+body:+ ''
+ fixture/ModifyClusterMaintenanceResponse.proto view
fixture/ModifyClusterParameterGroup.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+ Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/redshift/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+ Host: redshift.us-east-1.amazonaws.com+ Content-Type: application/x-www-form-urlencoded; charset=utf-8+ X-Amz-Content-SHA256: abcdef+ X-Amz-Date: 20091028T223200Z+body:+ ''
+ fixture/ModifyClusterSnapshot.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+ Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/redshift/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+ Host: redshift.us-east-1.amazonaws.com+ Content-Type: application/x-www-form-urlencoded; charset=utf-8+ X-Amz-Content-SHA256: abcdef+ X-Amz-Date: 20091028T223200Z+body:+ ''
+ fixture/ModifyClusterSnapshotResponse.proto view
+ fixture/ModifyClusterSnapshotSchedule.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+ Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/redshift/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+ Host: redshift.us-east-1.amazonaws.com+ Content-Type: application/x-www-form-urlencoded; charset=utf-8+ X-Amz-Content-SHA256: abcdef+ X-Amz-Date: 20091028T223200Z+body:+ ''
+ fixture/ModifyClusterSnapshotScheduleResponse.proto view
fixture/ModifyClusterSubnetGroup.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+ Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/redshift/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+ Host: redshift.us-east-1.amazonaws.com+ Content-Type: application/x-www-form-urlencoded; charset=utf-8+ X-Amz-Content-SHA256: abcdef+ X-Amz-Date: 20091028T223200Z+body:+ ''
+ fixture/ModifyEndpointAccess.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+ Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/redshift/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+ Host: redshift.us-east-1.amazonaws.com+ Content-Type: application/x-www-form-urlencoded; charset=utf-8+ X-Amz-Content-SHA256: abcdef+ X-Amz-Date: 20091028T223200Z+body:+ ''
+ fixture/ModifyEndpointAccessResponse.proto view
fixture/ModifyEventSubscription.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+ Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/redshift/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+ Host: redshift.us-east-1.amazonaws.com+ Content-Type: application/x-www-form-urlencoded; charset=utf-8+ X-Amz-Content-SHA256: abcdef+ X-Amz-Date: 20091028T223200Z+body:+ ''
+ fixture/ModifyScheduledAction.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+ Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/redshift/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+ Host: redshift.us-east-1.amazonaws.com+ Content-Type: application/x-www-form-urlencoded; charset=utf-8+ X-Amz-Content-SHA256: abcdef+ X-Amz-Date: 20091028T223200Z+body:+ ''
+ fixture/ModifyScheduledActionResponse.proto view
fixture/ModifySnapshotCopyRetentionPeriod.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+ Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/redshift/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+ Host: redshift.us-east-1.amazonaws.com+ Content-Type: application/x-www-form-urlencoded; charset=utf-8+ X-Amz-Content-SHA256: abcdef+ X-Amz-Date: 20091028T223200Z+body:+ ''
+ fixture/ModifySnapshotSchedule.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+ Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/redshift/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+ Host: redshift.us-east-1.amazonaws.com+ Content-Type: application/x-www-form-urlencoded; charset=utf-8+ X-Amz-Content-SHA256: abcdef+ X-Amz-Date: 20091028T223200Z+body:+ ''
+ fixture/ModifySnapshotScheduleResponse.proto view
+ fixture/ModifyUsageLimit.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+ Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/redshift/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+ Host: redshift.us-east-1.amazonaws.com+ Content-Type: application/x-www-form-urlencoded; charset=utf-8+ X-Amz-Content-SHA256: abcdef+ X-Amz-Date: 20091028T223200Z+body:+ ''
+ fixture/ModifyUsageLimitResponse.proto view
+ fixture/PauseCluster.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+ Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/redshift/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+ Host: redshift.us-east-1.amazonaws.com+ Content-Type: application/x-www-form-urlencoded; charset=utf-8+ X-Amz-Content-SHA256: abcdef+ X-Amz-Date: 20091028T223200Z+body:+ ''
+ fixture/PauseClusterResponse.proto view
fixture/PurchaseReservedNodeOffering.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+ Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/redshift/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+ Host: redshift.us-east-1.amazonaws.com+ Content-Type: application/x-www-form-urlencoded; charset=utf-8+ X-Amz-Content-SHA256: abcdef+ X-Amz-Date: 20091028T223200Z+body:+ ''
fixture/RebootCluster.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+ Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/redshift/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+ Host: redshift.us-east-1.amazonaws.com+ Content-Type: application/x-www-form-urlencoded; charset=utf-8+ X-Amz-Content-SHA256: abcdef+ X-Amz-Date: 20091028T223200Z+body:+ ''
@@ -0,0 +1,10 @@+---+method: POST+headers:+ Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/redshift/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+ Host: redshift.us-east-1.amazonaws.com+ Content-Type: application/x-www-form-urlencoded; charset=utf-8+ X-Amz-Content-SHA256: abcdef+ X-Amz-Date: 20091028T223200Z+body:+ ''
fixture/ResetClusterParameterGroup.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+ Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/redshift/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+ Host: redshift.us-east-1.amazonaws.com+ Content-Type: application/x-www-form-urlencoded; charset=utf-8+ X-Amz-Content-SHA256: abcdef+ X-Amz-Date: 20091028T223200Z+body:+ ''
+ fixture/ResizeCluster.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+ Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/redshift/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+ Host: redshift.us-east-1.amazonaws.com+ Content-Type: application/x-www-form-urlencoded; charset=utf-8+ X-Amz-Content-SHA256: abcdef+ X-Amz-Date: 20091028T223200Z+body:+ ''
+ fixture/ResizeClusterResponse.proto view
fixture/RestoreFromClusterSnapshot.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+ Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/redshift/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+ Host: redshift.us-east-1.amazonaws.com+ Content-Type: application/x-www-form-urlencoded; charset=utf-8+ X-Amz-Content-SHA256: abcdef+ X-Amz-Date: 20091028T223200Z+body:+ ''
fixture/RestoreTableFromClusterSnapshot.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+ Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/redshift/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+ Host: redshift.us-east-1.amazonaws.com+ Content-Type: application/x-www-form-urlencoded; charset=utf-8+ X-Amz-Content-SHA256: abcdef+ X-Amz-Date: 20091028T223200Z+body:+ ''
+ fixture/ResumeCluster.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+ Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/redshift/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+ Host: redshift.us-east-1.amazonaws.com+ Content-Type: application/x-www-form-urlencoded; charset=utf-8+ X-Amz-Content-SHA256: abcdef+ X-Amz-Date: 20091028T223200Z+body:+ ''
+ fixture/ResumeClusterResponse.proto view
fixture/RevokeClusterSecurityGroupIngress.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+ Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/redshift/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+ Host: redshift.us-east-1.amazonaws.com+ Content-Type: application/x-www-form-urlencoded; charset=utf-8+ X-Amz-Content-SHA256: abcdef+ X-Amz-Date: 20091028T223200Z+body:+ ''
+ fixture/RevokeEndpointAccess.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+ Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/redshift/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+ Host: redshift.us-east-1.amazonaws.com+ Content-Type: application/x-www-form-urlencoded; charset=utf-8+ X-Amz-Content-SHA256: abcdef+ X-Amz-Date: 20091028T223200Z+body:+ ''
+ fixture/RevokeEndpointAccessResponse.proto view
fixture/RevokeSnapshotAccess.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+ Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/redshift/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+ Host: redshift.us-east-1.amazonaws.com+ Content-Type: application/x-www-form-urlencoded; charset=utf-8+ X-Amz-Content-SHA256: abcdef+ X-Amz-Date: 20091028T223200Z+body:+ ''
fixture/RotateEncryptionKey.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+ Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/redshift/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+ Host: redshift.us-east-1.amazonaws.com+ Content-Type: application/x-www-form-urlencoded; charset=utf-8+ X-Amz-Content-SHA256: abcdef+ X-Amz-Date: 20091028T223200Z+body:+ ''
+ fixture/UpdatePartnerStatus.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+ Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/redshift/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+ Host: redshift.us-east-1.amazonaws.com+ Content-Type: application/x-www-form-urlencoded; charset=utf-8+ X-Amz-Content-SHA256: abcdef+ X-Amz-Date: 20091028T223200Z+body:+ ''
+ fixture/UpdatePartnerStatusResponse.proto view
+ gen/Amazonka/Redshift.hs view
@@ -0,0 +1,1720 @@+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- |+-- Module : Amazonka.Redshift+-- Copyright : (c) 2013-2023 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Derived from API version @2012-12-01@ of the AWS service descriptions, licensed under Apache 2.0.+--+-- Amazon Redshift+--+-- __Overview__+--+-- This is an interface reference for Amazon Redshift. It contains+-- documentation for one of the programming or command line interfaces you+-- can use to manage Amazon Redshift clusters. Note that Amazon Redshift is+-- asynchronous, which means that some interfaces may require techniques,+-- such as polling or asynchronous callback handlers, to determine when a+-- command has been applied. In this reference, the parameter descriptions+-- indicate whether a change is applied immediately, on the next instance+-- reboot, or during the next maintenance window. For a summary of the+-- Amazon Redshift cluster management interfaces, go to+-- <https://docs.aws.amazon.com/redshift/latest/mgmt/using-aws-sdk.html Using the Amazon Redshift Management Interfaces>.+--+-- Amazon Redshift manages all the work of setting up, operating, and+-- scaling a data warehouse: provisioning capacity, monitoring and backing+-- up the cluster, and applying patches and upgrades to the Amazon Redshift+-- engine. You can focus on using your data to acquire new insights for+-- your business and customers.+--+-- If you are a first-time user of Amazon Redshift, we recommend that you+-- begin by reading the+-- <https://docs.aws.amazon.com/redshift/latest/gsg/getting-started.html Amazon Redshift Getting Started Guide>.+--+-- If you are a database developer, the+-- <https://docs.aws.amazon.com/redshift/latest/dg/welcome.html Amazon Redshift Database Developer Guide>+-- explains how to design, build, query, and maintain the databases that+-- make up your data warehouse.+module Amazonka.Redshift+ ( -- * Service Configuration+ defaultService,++ -- * Errors+ -- $errors++ -- ** AccessToClusterDeniedFault+ _AccessToClusterDeniedFault,++ -- ** AccessToSnapshotDeniedFault+ _AccessToSnapshotDeniedFault,++ -- ** AuthenticationProfileAlreadyExistsFault+ _AuthenticationProfileAlreadyExistsFault,++ -- ** AuthenticationProfileNotFoundFault+ _AuthenticationProfileNotFoundFault,++ -- ** AuthenticationProfileQuotaExceededFault+ _AuthenticationProfileQuotaExceededFault,++ -- ** AuthorizationAlreadyExistsFault+ _AuthorizationAlreadyExistsFault,++ -- ** AuthorizationNotFoundFault+ _AuthorizationNotFoundFault,++ -- ** AuthorizationQuotaExceededFault+ _AuthorizationQuotaExceededFault,++ -- ** BatchDeleteRequestSizeExceededFault+ _BatchDeleteRequestSizeExceededFault,++ -- ** BatchModifyClusterSnapshotsLimitExceededFault+ _BatchModifyClusterSnapshotsLimitExceededFault,++ -- ** BucketNotFoundFault+ _BucketNotFoundFault,++ -- ** ClusterAlreadyExistsFault+ _ClusterAlreadyExistsFault,++ -- ** ClusterNotFoundFault+ _ClusterNotFoundFault,++ -- ** ClusterOnLatestRevisionFault+ _ClusterOnLatestRevisionFault,++ -- ** ClusterParameterGroupAlreadyExistsFault+ _ClusterParameterGroupAlreadyExistsFault,++ -- ** ClusterParameterGroupNotFoundFault+ _ClusterParameterGroupNotFoundFault,++ -- ** ClusterParameterGroupQuotaExceededFault+ _ClusterParameterGroupQuotaExceededFault,++ -- ** ClusterQuotaExceededFault+ _ClusterQuotaExceededFault,++ -- ** ClusterSecurityGroupAlreadyExistsFault+ _ClusterSecurityGroupAlreadyExistsFault,++ -- ** ClusterSecurityGroupNotFoundFault+ _ClusterSecurityGroupNotFoundFault,++ -- ** ClusterSecurityGroupQuotaExceededFault+ _ClusterSecurityGroupQuotaExceededFault,++ -- ** ClusterSnapshotAlreadyExistsFault+ _ClusterSnapshotAlreadyExistsFault,++ -- ** ClusterSnapshotNotFoundFault+ _ClusterSnapshotNotFoundFault,++ -- ** ClusterSnapshotQuotaExceededFault+ _ClusterSnapshotQuotaExceededFault,++ -- ** ClusterSubnetGroupAlreadyExistsFault+ _ClusterSubnetGroupAlreadyExistsFault,++ -- ** ClusterSubnetGroupNotFoundFault+ _ClusterSubnetGroupNotFoundFault,++ -- ** ClusterSubnetGroupQuotaExceededFault+ _ClusterSubnetGroupQuotaExceededFault,++ -- ** ClusterSubnetQuotaExceededFault+ _ClusterSubnetQuotaExceededFault,++ -- ** CopyToRegionDisabledFault+ _CopyToRegionDisabledFault,++ -- ** DependentServiceRequestThrottlingFault+ _DependentServiceRequestThrottlingFault,++ -- ** DependentServiceUnavailableFault+ _DependentServiceUnavailableFault,++ -- ** EndpointAlreadyExistsFault+ _EndpointAlreadyExistsFault,++ -- ** EndpointAuthorizationAlreadyExistsFault+ _EndpointAuthorizationAlreadyExistsFault,++ -- ** EndpointAuthorizationNotFoundFault+ _EndpointAuthorizationNotFoundFault,++ -- ** EndpointAuthorizationsPerClusterLimitExceededFault+ _EndpointAuthorizationsPerClusterLimitExceededFault,++ -- ** EndpointNotFoundFault+ _EndpointNotFoundFault,++ -- ** EndpointsPerAuthorizationLimitExceededFault+ _EndpointsPerAuthorizationLimitExceededFault,++ -- ** EndpointsPerClusterLimitExceededFault+ _EndpointsPerClusterLimitExceededFault,++ -- ** EventSubscriptionQuotaExceededFault+ _EventSubscriptionQuotaExceededFault,++ -- ** HsmClientCertificateAlreadyExistsFault+ _HsmClientCertificateAlreadyExistsFault,++ -- ** HsmClientCertificateNotFoundFault+ _HsmClientCertificateNotFoundFault,++ -- ** HsmClientCertificateQuotaExceededFault+ _HsmClientCertificateQuotaExceededFault,++ -- ** HsmConfigurationAlreadyExistsFault+ _HsmConfigurationAlreadyExistsFault,++ -- ** HsmConfigurationNotFoundFault+ _HsmConfigurationNotFoundFault,++ -- ** HsmConfigurationQuotaExceededFault+ _HsmConfigurationQuotaExceededFault,++ -- ** InProgressTableRestoreQuotaExceededFault+ _InProgressTableRestoreQuotaExceededFault,++ -- ** IncompatibleOrderableOptions+ _IncompatibleOrderableOptions,++ -- ** InsufficientClusterCapacityFault+ _InsufficientClusterCapacityFault,++ -- ** InsufficientS3BucketPolicyFault+ _InsufficientS3BucketPolicyFault,++ -- ** InvalidAuthenticationProfileRequestFault+ _InvalidAuthenticationProfileRequestFault,++ -- ** InvalidAuthorizationStateFault+ _InvalidAuthorizationStateFault,++ -- ** InvalidClusterParameterGroupStateFault+ _InvalidClusterParameterGroupStateFault,++ -- ** InvalidClusterSecurityGroupStateFault+ _InvalidClusterSecurityGroupStateFault,++ -- ** InvalidClusterSnapshotScheduleStateFault+ _InvalidClusterSnapshotScheduleStateFault,++ -- ** InvalidClusterSnapshotStateFault+ _InvalidClusterSnapshotStateFault,++ -- ** InvalidClusterStateFault+ _InvalidClusterStateFault,++ -- ** InvalidClusterSubnetGroupStateFault+ _InvalidClusterSubnetGroupStateFault,++ -- ** InvalidClusterSubnetStateFault+ _InvalidClusterSubnetStateFault,++ -- ** InvalidClusterTrackFault+ _InvalidClusterTrackFault,++ -- ** InvalidDataShareFault+ _InvalidDataShareFault,++ -- ** InvalidElasticIpFault+ _InvalidElasticIpFault,++ -- ** InvalidEndpointStateFault+ _InvalidEndpointStateFault,++ -- ** InvalidHsmClientCertificateStateFault+ _InvalidHsmClientCertificateStateFault,++ -- ** InvalidHsmConfigurationStateFault+ _InvalidHsmConfigurationStateFault,++ -- ** InvalidNamespaceFault+ _InvalidNamespaceFault,++ -- ** InvalidReservedNodeStateFault+ _InvalidReservedNodeStateFault,++ -- ** InvalidRestoreFault+ _InvalidRestoreFault,++ -- ** InvalidRetentionPeriodFault+ _InvalidRetentionPeriodFault,++ -- ** InvalidS3BucketNameFault+ _InvalidS3BucketNameFault,++ -- ** InvalidS3KeyPrefixFault+ _InvalidS3KeyPrefixFault,++ -- ** InvalidScheduleFault+ _InvalidScheduleFault,++ -- ** InvalidScheduledActionFault+ _InvalidScheduledActionFault,++ -- ** InvalidSnapshotCopyGrantStateFault+ _InvalidSnapshotCopyGrantStateFault,++ -- ** InvalidSubnet+ _InvalidSubnet,++ -- ** InvalidSubscriptionStateFault+ _InvalidSubscriptionStateFault,++ -- ** InvalidTableRestoreArgumentFault+ _InvalidTableRestoreArgumentFault,++ -- ** InvalidTagFault+ _InvalidTagFault,++ -- ** InvalidUsageLimitFault+ _InvalidUsageLimitFault,++ -- ** InvalidVPCNetworkStateFault+ _InvalidVPCNetworkStateFault,++ -- ** LimitExceededFault+ _LimitExceededFault,++ -- ** NumberOfNodesPerClusterLimitExceededFault+ _NumberOfNodesPerClusterLimitExceededFault,++ -- ** NumberOfNodesQuotaExceededFault+ _NumberOfNodesQuotaExceededFault,++ -- ** PartnerNotFoundFault+ _PartnerNotFoundFault,++ -- ** ReservedNodeAlreadyExistsFault+ _ReservedNodeAlreadyExistsFault,++ -- ** ReservedNodeAlreadyMigratedFault+ _ReservedNodeAlreadyMigratedFault,++ -- ** ReservedNodeExchangeNotFoundFault+ _ReservedNodeExchangeNotFoundFault,++ -- ** ReservedNodeNotFoundFault+ _ReservedNodeNotFoundFault,++ -- ** ReservedNodeOfferingNotFoundFault+ _ReservedNodeOfferingNotFoundFault,++ -- ** ReservedNodeQuotaExceededFault+ _ReservedNodeQuotaExceededFault,++ -- ** ResizeNotFoundFault+ _ResizeNotFoundFault,++ -- ** ResourceNotFoundFault+ _ResourceNotFoundFault,++ -- ** SNSInvalidTopicFault+ _SNSInvalidTopicFault,++ -- ** SNSNoAuthorizationFault+ _SNSNoAuthorizationFault,++ -- ** SNSTopicArnNotFoundFault+ _SNSTopicArnNotFoundFault,++ -- ** ScheduleDefinitionTypeUnsupportedFault+ _ScheduleDefinitionTypeUnsupportedFault,++ -- ** ScheduledActionAlreadyExistsFault+ _ScheduledActionAlreadyExistsFault,++ -- ** ScheduledActionNotFoundFault+ _ScheduledActionNotFoundFault,++ -- ** ScheduledActionQuotaExceededFault+ _ScheduledActionQuotaExceededFault,++ -- ** ScheduledActionTypeUnsupportedFault+ _ScheduledActionTypeUnsupportedFault,++ -- ** SnapshotCopyAlreadyDisabledFault+ _SnapshotCopyAlreadyDisabledFault,++ -- ** SnapshotCopyAlreadyEnabledFault+ _SnapshotCopyAlreadyEnabledFault,++ -- ** SnapshotCopyDisabledFault+ _SnapshotCopyDisabledFault,++ -- ** SnapshotCopyGrantAlreadyExistsFault+ _SnapshotCopyGrantAlreadyExistsFault,++ -- ** SnapshotCopyGrantNotFoundFault+ _SnapshotCopyGrantNotFoundFault,++ -- ** SnapshotCopyGrantQuotaExceededFault+ _SnapshotCopyGrantQuotaExceededFault,++ -- ** SnapshotScheduleAlreadyExistsFault+ _SnapshotScheduleAlreadyExistsFault,++ -- ** SnapshotScheduleNotFoundFault+ _SnapshotScheduleNotFoundFault,++ -- ** SnapshotScheduleQuotaExceededFault+ _SnapshotScheduleQuotaExceededFault,++ -- ** SnapshotScheduleUpdateInProgressFault+ _SnapshotScheduleUpdateInProgressFault,++ -- ** SourceNotFoundFault+ _SourceNotFoundFault,++ -- ** SubnetAlreadyInUse+ _SubnetAlreadyInUse,++ -- ** SubscriptionAlreadyExistFault+ _SubscriptionAlreadyExistFault,++ -- ** SubscriptionCategoryNotFoundFault+ _SubscriptionCategoryNotFoundFault,++ -- ** SubscriptionEventIdNotFoundFault+ _SubscriptionEventIdNotFoundFault,++ -- ** SubscriptionNotFoundFault+ _SubscriptionNotFoundFault,++ -- ** SubscriptionSeverityNotFoundFault+ _SubscriptionSeverityNotFoundFault,++ -- ** TableLimitExceededFault+ _TableLimitExceededFault,++ -- ** TableRestoreNotFoundFault+ _TableRestoreNotFoundFault,++ -- ** TagLimitExceededFault+ _TagLimitExceededFault,++ -- ** UnauthorizedOperation+ _UnauthorizedOperation,++ -- ** UnauthorizedPartnerIntegrationFault+ _UnauthorizedPartnerIntegrationFault,++ -- ** UnknownSnapshotCopyRegionFault+ _UnknownSnapshotCopyRegionFault,++ -- ** UnsupportedOperationFault+ _UnsupportedOperationFault,++ -- ** UnsupportedOptionFault+ _UnsupportedOptionFault,++ -- ** UsageLimitAlreadyExistsFault+ _UsageLimitAlreadyExistsFault,++ -- ** UsageLimitNotFoundFault+ _UsageLimitNotFoundFault,++ -- * Waiters+ -- $waiters++ -- ** ClusterAvailable+ newClusterAvailable,++ -- ** ClusterDeleted+ newClusterDeleted,++ -- ** ClusterRestored+ newClusterRestored,++ -- ** SnapshotAvailable+ newSnapshotAvailable,++ -- * Operations+ -- $operations++ -- ** AcceptReservedNodeExchange+ AcceptReservedNodeExchange (AcceptReservedNodeExchange'),+ newAcceptReservedNodeExchange,+ AcceptReservedNodeExchangeResponse (AcceptReservedNodeExchangeResponse'),+ newAcceptReservedNodeExchangeResponse,++ -- ** AddPartner+ AddPartner (AddPartner'),+ newAddPartner,+ PartnerIntegrationOutputMessage (PartnerIntegrationOutputMessage'),+ newPartnerIntegrationOutputMessage,++ -- ** AssociateDataShareConsumer+ AssociateDataShareConsumer (AssociateDataShareConsumer'),+ newAssociateDataShareConsumer,+ DataShare (DataShare'),+ newDataShare,++ -- ** AuthorizeClusterSecurityGroupIngress+ AuthorizeClusterSecurityGroupIngress (AuthorizeClusterSecurityGroupIngress'),+ newAuthorizeClusterSecurityGroupIngress,+ AuthorizeClusterSecurityGroupIngressResponse (AuthorizeClusterSecurityGroupIngressResponse'),+ newAuthorizeClusterSecurityGroupIngressResponse,++ -- ** AuthorizeDataShare+ AuthorizeDataShare (AuthorizeDataShare'),+ newAuthorizeDataShare,+ DataShare (DataShare'),+ newDataShare,++ -- ** AuthorizeEndpointAccess+ AuthorizeEndpointAccess (AuthorizeEndpointAccess'),+ newAuthorizeEndpointAccess,+ EndpointAuthorization (EndpointAuthorization'),+ newEndpointAuthorization,++ -- ** AuthorizeSnapshotAccess+ AuthorizeSnapshotAccess (AuthorizeSnapshotAccess'),+ newAuthorizeSnapshotAccess,+ AuthorizeSnapshotAccessResponse (AuthorizeSnapshotAccessResponse'),+ newAuthorizeSnapshotAccessResponse,++ -- ** BatchDeleteClusterSnapshots+ BatchDeleteClusterSnapshots (BatchDeleteClusterSnapshots'),+ newBatchDeleteClusterSnapshots,+ BatchDeleteClusterSnapshotsResponse (BatchDeleteClusterSnapshotsResponse'),+ newBatchDeleteClusterSnapshotsResponse,++ -- ** BatchModifyClusterSnapshots+ BatchModifyClusterSnapshots (BatchModifyClusterSnapshots'),+ newBatchModifyClusterSnapshots,+ BatchModifyClusterSnapshotsResponse (BatchModifyClusterSnapshotsResponse'),+ newBatchModifyClusterSnapshotsResponse,++ -- ** CancelResize+ CancelResize (CancelResize'),+ newCancelResize,+ ResizeProgressMessage (ResizeProgressMessage'),+ newResizeProgressMessage,++ -- ** CopyClusterSnapshot+ CopyClusterSnapshot (CopyClusterSnapshot'),+ newCopyClusterSnapshot,+ CopyClusterSnapshotResponse (CopyClusterSnapshotResponse'),+ newCopyClusterSnapshotResponse,++ -- ** CreateAuthenticationProfile+ CreateAuthenticationProfile (CreateAuthenticationProfile'),+ newCreateAuthenticationProfile,+ CreateAuthenticationProfileResponse (CreateAuthenticationProfileResponse'),+ newCreateAuthenticationProfileResponse,++ -- ** CreateCluster+ CreateCluster (CreateCluster'),+ newCreateCluster,+ CreateClusterResponse (CreateClusterResponse'),+ newCreateClusterResponse,++ -- ** CreateClusterParameterGroup+ CreateClusterParameterGroup (CreateClusterParameterGroup'),+ newCreateClusterParameterGroup,+ CreateClusterParameterGroupResponse (CreateClusterParameterGroupResponse'),+ newCreateClusterParameterGroupResponse,++ -- ** CreateClusterSecurityGroup+ CreateClusterSecurityGroup (CreateClusterSecurityGroup'),+ newCreateClusterSecurityGroup,+ CreateClusterSecurityGroupResponse (CreateClusterSecurityGroupResponse'),+ newCreateClusterSecurityGroupResponse,++ -- ** CreateClusterSnapshot+ CreateClusterSnapshot (CreateClusterSnapshot'),+ newCreateClusterSnapshot,+ CreateClusterSnapshotResponse (CreateClusterSnapshotResponse'),+ newCreateClusterSnapshotResponse,++ -- ** CreateClusterSubnetGroup+ CreateClusterSubnetGroup (CreateClusterSubnetGroup'),+ newCreateClusterSubnetGroup,+ CreateClusterSubnetGroupResponse (CreateClusterSubnetGroupResponse'),+ newCreateClusterSubnetGroupResponse,++ -- ** CreateEndpointAccess+ CreateEndpointAccess (CreateEndpointAccess'),+ newCreateEndpointAccess,+ EndpointAccess (EndpointAccess'),+ newEndpointAccess,++ -- ** CreateEventSubscription+ CreateEventSubscription (CreateEventSubscription'),+ newCreateEventSubscription,+ CreateEventSubscriptionResponse (CreateEventSubscriptionResponse'),+ newCreateEventSubscriptionResponse,++ -- ** CreateHsmClientCertificate+ CreateHsmClientCertificate (CreateHsmClientCertificate'),+ newCreateHsmClientCertificate,+ CreateHsmClientCertificateResponse (CreateHsmClientCertificateResponse'),+ newCreateHsmClientCertificateResponse,++ -- ** CreateHsmConfiguration+ CreateHsmConfiguration (CreateHsmConfiguration'),+ newCreateHsmConfiguration,+ CreateHsmConfigurationResponse (CreateHsmConfigurationResponse'),+ newCreateHsmConfigurationResponse,++ -- ** CreateScheduledAction+ CreateScheduledAction (CreateScheduledAction'),+ newCreateScheduledAction,+ ScheduledAction (ScheduledAction'),+ newScheduledAction,++ -- ** CreateSnapshotCopyGrant+ CreateSnapshotCopyGrant (CreateSnapshotCopyGrant'),+ newCreateSnapshotCopyGrant,+ CreateSnapshotCopyGrantResponse (CreateSnapshotCopyGrantResponse'),+ newCreateSnapshotCopyGrantResponse,++ -- ** CreateSnapshotSchedule+ CreateSnapshotSchedule (CreateSnapshotSchedule'),+ newCreateSnapshotSchedule,+ SnapshotSchedule (SnapshotSchedule'),+ newSnapshotSchedule,++ -- ** CreateTags+ CreateTags (CreateTags'),+ newCreateTags,+ CreateTagsResponse (CreateTagsResponse'),+ newCreateTagsResponse,++ -- ** CreateUsageLimit+ CreateUsageLimit (CreateUsageLimit'),+ newCreateUsageLimit,+ UsageLimit (UsageLimit'),+ newUsageLimit,++ -- ** DeauthorizeDataShare+ DeauthorizeDataShare (DeauthorizeDataShare'),+ newDeauthorizeDataShare,+ DataShare (DataShare'),+ newDataShare,++ -- ** DeleteAuthenticationProfile+ DeleteAuthenticationProfile (DeleteAuthenticationProfile'),+ newDeleteAuthenticationProfile,+ DeleteAuthenticationProfileResponse (DeleteAuthenticationProfileResponse'),+ newDeleteAuthenticationProfileResponse,++ -- ** DeleteCluster+ DeleteCluster (DeleteCluster'),+ newDeleteCluster,+ DeleteClusterResponse (DeleteClusterResponse'),+ newDeleteClusterResponse,++ -- ** DeleteClusterParameterGroup+ DeleteClusterParameterGroup (DeleteClusterParameterGroup'),+ newDeleteClusterParameterGroup,+ DeleteClusterParameterGroupResponse (DeleteClusterParameterGroupResponse'),+ newDeleteClusterParameterGroupResponse,++ -- ** DeleteClusterSecurityGroup+ DeleteClusterSecurityGroup (DeleteClusterSecurityGroup'),+ newDeleteClusterSecurityGroup,+ DeleteClusterSecurityGroupResponse (DeleteClusterSecurityGroupResponse'),+ newDeleteClusterSecurityGroupResponse,++ -- ** DeleteClusterSnapshot+ DeleteClusterSnapshot (DeleteClusterSnapshot'),+ newDeleteClusterSnapshot,+ DeleteClusterSnapshotResponse (DeleteClusterSnapshotResponse'),+ newDeleteClusterSnapshotResponse,++ -- ** DeleteClusterSubnetGroup+ DeleteClusterSubnetGroup (DeleteClusterSubnetGroup'),+ newDeleteClusterSubnetGroup,+ DeleteClusterSubnetGroupResponse (DeleteClusterSubnetGroupResponse'),+ newDeleteClusterSubnetGroupResponse,++ -- ** DeleteEndpointAccess+ DeleteEndpointAccess (DeleteEndpointAccess'),+ newDeleteEndpointAccess,+ EndpointAccess (EndpointAccess'),+ newEndpointAccess,++ -- ** DeleteEventSubscription+ DeleteEventSubscription (DeleteEventSubscription'),+ newDeleteEventSubscription,+ DeleteEventSubscriptionResponse (DeleteEventSubscriptionResponse'),+ newDeleteEventSubscriptionResponse,++ -- ** DeleteHsmClientCertificate+ DeleteHsmClientCertificate (DeleteHsmClientCertificate'),+ newDeleteHsmClientCertificate,+ DeleteHsmClientCertificateResponse (DeleteHsmClientCertificateResponse'),+ newDeleteHsmClientCertificateResponse,++ -- ** DeleteHsmConfiguration+ DeleteHsmConfiguration (DeleteHsmConfiguration'),+ newDeleteHsmConfiguration,+ DeleteHsmConfigurationResponse (DeleteHsmConfigurationResponse'),+ newDeleteHsmConfigurationResponse,++ -- ** DeletePartner+ DeletePartner (DeletePartner'),+ newDeletePartner,+ PartnerIntegrationOutputMessage (PartnerIntegrationOutputMessage'),+ newPartnerIntegrationOutputMessage,++ -- ** DeleteScheduledAction+ DeleteScheduledAction (DeleteScheduledAction'),+ newDeleteScheduledAction,+ DeleteScheduledActionResponse (DeleteScheduledActionResponse'),+ newDeleteScheduledActionResponse,++ -- ** DeleteSnapshotCopyGrant+ DeleteSnapshotCopyGrant (DeleteSnapshotCopyGrant'),+ newDeleteSnapshotCopyGrant,+ DeleteSnapshotCopyGrantResponse (DeleteSnapshotCopyGrantResponse'),+ newDeleteSnapshotCopyGrantResponse,++ -- ** DeleteSnapshotSchedule+ DeleteSnapshotSchedule (DeleteSnapshotSchedule'),+ newDeleteSnapshotSchedule,+ DeleteSnapshotScheduleResponse (DeleteSnapshotScheduleResponse'),+ newDeleteSnapshotScheduleResponse,++ -- ** DeleteTags+ DeleteTags (DeleteTags'),+ newDeleteTags,+ DeleteTagsResponse (DeleteTagsResponse'),+ newDeleteTagsResponse,++ -- ** DeleteUsageLimit+ DeleteUsageLimit (DeleteUsageLimit'),+ newDeleteUsageLimit,+ DeleteUsageLimitResponse (DeleteUsageLimitResponse'),+ newDeleteUsageLimitResponse,++ -- ** DescribeAccountAttributes+ DescribeAccountAttributes (DescribeAccountAttributes'),+ newDescribeAccountAttributes,+ DescribeAccountAttributesResponse (DescribeAccountAttributesResponse'),+ newDescribeAccountAttributesResponse,++ -- ** DescribeAuthenticationProfiles+ DescribeAuthenticationProfiles (DescribeAuthenticationProfiles'),+ newDescribeAuthenticationProfiles,+ DescribeAuthenticationProfilesResponse (DescribeAuthenticationProfilesResponse'),+ newDescribeAuthenticationProfilesResponse,++ -- ** DescribeClusterDbRevisions (Paginated)+ DescribeClusterDbRevisions (DescribeClusterDbRevisions'),+ newDescribeClusterDbRevisions,+ DescribeClusterDbRevisionsResponse (DescribeClusterDbRevisionsResponse'),+ newDescribeClusterDbRevisionsResponse,++ -- ** DescribeClusterParameterGroups (Paginated)+ DescribeClusterParameterGroups (DescribeClusterParameterGroups'),+ newDescribeClusterParameterGroups,+ DescribeClusterParameterGroupsResponse (DescribeClusterParameterGroupsResponse'),+ newDescribeClusterParameterGroupsResponse,++ -- ** DescribeClusterParameters (Paginated)+ DescribeClusterParameters (DescribeClusterParameters'),+ newDescribeClusterParameters,+ DescribeClusterParametersResponse (DescribeClusterParametersResponse'),+ newDescribeClusterParametersResponse,++ -- ** DescribeClusterSecurityGroups (Paginated)+ DescribeClusterSecurityGroups (DescribeClusterSecurityGroups'),+ newDescribeClusterSecurityGroups,+ DescribeClusterSecurityGroupsResponse (DescribeClusterSecurityGroupsResponse'),+ newDescribeClusterSecurityGroupsResponse,++ -- ** DescribeClusterSnapshots (Paginated)+ DescribeClusterSnapshots (DescribeClusterSnapshots'),+ newDescribeClusterSnapshots,+ DescribeClusterSnapshotsResponse (DescribeClusterSnapshotsResponse'),+ newDescribeClusterSnapshotsResponse,++ -- ** DescribeClusterSubnetGroups (Paginated)+ DescribeClusterSubnetGroups (DescribeClusterSubnetGroups'),+ newDescribeClusterSubnetGroups,+ DescribeClusterSubnetGroupsResponse (DescribeClusterSubnetGroupsResponse'),+ newDescribeClusterSubnetGroupsResponse,++ -- ** DescribeClusterTracks (Paginated)+ DescribeClusterTracks (DescribeClusterTracks'),+ newDescribeClusterTracks,+ DescribeClusterTracksResponse (DescribeClusterTracksResponse'),+ newDescribeClusterTracksResponse,++ -- ** DescribeClusterVersions (Paginated)+ DescribeClusterVersions (DescribeClusterVersions'),+ newDescribeClusterVersions,+ DescribeClusterVersionsResponse (DescribeClusterVersionsResponse'),+ newDescribeClusterVersionsResponse,++ -- ** DescribeClusters (Paginated)+ DescribeClusters (DescribeClusters'),+ newDescribeClusters,+ DescribeClustersResponse (DescribeClustersResponse'),+ newDescribeClustersResponse,++ -- ** DescribeDataShares (Paginated)+ DescribeDataShares (DescribeDataShares'),+ newDescribeDataShares,+ DescribeDataSharesResponse (DescribeDataSharesResponse'),+ newDescribeDataSharesResponse,++ -- ** DescribeDataSharesForConsumer (Paginated)+ DescribeDataSharesForConsumer (DescribeDataSharesForConsumer'),+ newDescribeDataSharesForConsumer,+ DescribeDataSharesForConsumerResponse (DescribeDataSharesForConsumerResponse'),+ newDescribeDataSharesForConsumerResponse,++ -- ** DescribeDataSharesForProducer (Paginated)+ DescribeDataSharesForProducer (DescribeDataSharesForProducer'),+ newDescribeDataSharesForProducer,+ DescribeDataSharesForProducerResponse (DescribeDataSharesForProducerResponse'),+ newDescribeDataSharesForProducerResponse,++ -- ** DescribeDefaultClusterParameters (Paginated)+ DescribeDefaultClusterParameters (DescribeDefaultClusterParameters'),+ newDescribeDefaultClusterParameters,+ DescribeDefaultClusterParametersResponse (DescribeDefaultClusterParametersResponse'),+ newDescribeDefaultClusterParametersResponse,++ -- ** DescribeEndpointAccess (Paginated)+ DescribeEndpointAccess (DescribeEndpointAccess'),+ newDescribeEndpointAccess,+ DescribeEndpointAccessResponse (DescribeEndpointAccessResponse'),+ newDescribeEndpointAccessResponse,++ -- ** DescribeEndpointAuthorization (Paginated)+ DescribeEndpointAuthorization (DescribeEndpointAuthorization'),+ newDescribeEndpointAuthorization,+ DescribeEndpointAuthorizationResponse (DescribeEndpointAuthorizationResponse'),+ newDescribeEndpointAuthorizationResponse,++ -- ** DescribeEventCategories+ DescribeEventCategories (DescribeEventCategories'),+ newDescribeEventCategories,+ DescribeEventCategoriesResponse (DescribeEventCategoriesResponse'),+ newDescribeEventCategoriesResponse,++ -- ** DescribeEventSubscriptions (Paginated)+ DescribeEventSubscriptions (DescribeEventSubscriptions'),+ newDescribeEventSubscriptions,+ DescribeEventSubscriptionsResponse (DescribeEventSubscriptionsResponse'),+ newDescribeEventSubscriptionsResponse,++ -- ** DescribeEvents (Paginated)+ DescribeEvents (DescribeEvents'),+ newDescribeEvents,+ DescribeEventsResponse (DescribeEventsResponse'),+ newDescribeEventsResponse,++ -- ** DescribeHsmClientCertificates (Paginated)+ DescribeHsmClientCertificates (DescribeHsmClientCertificates'),+ newDescribeHsmClientCertificates,+ DescribeHsmClientCertificatesResponse (DescribeHsmClientCertificatesResponse'),+ newDescribeHsmClientCertificatesResponse,++ -- ** DescribeHsmConfigurations (Paginated)+ DescribeHsmConfigurations (DescribeHsmConfigurations'),+ newDescribeHsmConfigurations,+ DescribeHsmConfigurationsResponse (DescribeHsmConfigurationsResponse'),+ newDescribeHsmConfigurationsResponse,++ -- ** DescribeLoggingStatus+ DescribeLoggingStatus (DescribeLoggingStatus'),+ newDescribeLoggingStatus,+ LoggingStatus (LoggingStatus'),+ newLoggingStatus,++ -- ** DescribeNodeConfigurationOptions (Paginated)+ DescribeNodeConfigurationOptions (DescribeNodeConfigurationOptions'),+ newDescribeNodeConfigurationOptions,+ DescribeNodeConfigurationOptionsResponse (DescribeNodeConfigurationOptionsResponse'),+ newDescribeNodeConfigurationOptionsResponse,++ -- ** DescribeOrderableClusterOptions (Paginated)+ DescribeOrderableClusterOptions (DescribeOrderableClusterOptions'),+ newDescribeOrderableClusterOptions,+ DescribeOrderableClusterOptionsResponse (DescribeOrderableClusterOptionsResponse'),+ newDescribeOrderableClusterOptionsResponse,++ -- ** DescribePartners+ DescribePartners (DescribePartners'),+ newDescribePartners,+ DescribePartnersResponse (DescribePartnersResponse'),+ newDescribePartnersResponse,++ -- ** DescribeReservedNodeExchangeStatus (Paginated)+ DescribeReservedNodeExchangeStatus (DescribeReservedNodeExchangeStatus'),+ newDescribeReservedNodeExchangeStatus,+ DescribeReservedNodeExchangeStatusResponse (DescribeReservedNodeExchangeStatusResponse'),+ newDescribeReservedNodeExchangeStatusResponse,++ -- ** DescribeReservedNodeOfferings (Paginated)+ DescribeReservedNodeOfferings (DescribeReservedNodeOfferings'),+ newDescribeReservedNodeOfferings,+ DescribeReservedNodeOfferingsResponse (DescribeReservedNodeOfferingsResponse'),+ newDescribeReservedNodeOfferingsResponse,++ -- ** DescribeReservedNodes (Paginated)+ DescribeReservedNodes (DescribeReservedNodes'),+ newDescribeReservedNodes,+ DescribeReservedNodesResponse (DescribeReservedNodesResponse'),+ newDescribeReservedNodesResponse,++ -- ** DescribeResize+ DescribeResize (DescribeResize'),+ newDescribeResize,+ ResizeProgressMessage (ResizeProgressMessage'),+ newResizeProgressMessage,++ -- ** DescribeScheduledActions (Paginated)+ DescribeScheduledActions (DescribeScheduledActions'),+ newDescribeScheduledActions,+ DescribeScheduledActionsResponse (DescribeScheduledActionsResponse'),+ newDescribeScheduledActionsResponse,++ -- ** DescribeSnapshotCopyGrants (Paginated)+ DescribeSnapshotCopyGrants (DescribeSnapshotCopyGrants'),+ newDescribeSnapshotCopyGrants,+ DescribeSnapshotCopyGrantsResponse (DescribeSnapshotCopyGrantsResponse'),+ newDescribeSnapshotCopyGrantsResponse,++ -- ** DescribeSnapshotSchedules (Paginated)+ DescribeSnapshotSchedules (DescribeSnapshotSchedules'),+ newDescribeSnapshotSchedules,+ DescribeSnapshotSchedulesResponse (DescribeSnapshotSchedulesResponse'),+ newDescribeSnapshotSchedulesResponse,++ -- ** DescribeStorage+ DescribeStorage (DescribeStorage'),+ newDescribeStorage,+ DescribeStorageResponse (DescribeStorageResponse'),+ newDescribeStorageResponse,++ -- ** DescribeTableRestoreStatus (Paginated)+ DescribeTableRestoreStatus (DescribeTableRestoreStatus'),+ newDescribeTableRestoreStatus,+ DescribeTableRestoreStatusResponse (DescribeTableRestoreStatusResponse'),+ newDescribeTableRestoreStatusResponse,++ -- ** DescribeTags (Paginated)+ DescribeTags (DescribeTags'),+ newDescribeTags,+ DescribeTagsResponse (DescribeTagsResponse'),+ newDescribeTagsResponse,++ -- ** DescribeUsageLimits (Paginated)+ DescribeUsageLimits (DescribeUsageLimits'),+ newDescribeUsageLimits,+ DescribeUsageLimitsResponse (DescribeUsageLimitsResponse'),+ newDescribeUsageLimitsResponse,++ -- ** DisableLogging+ DisableLogging (DisableLogging'),+ newDisableLogging,+ LoggingStatus (LoggingStatus'),+ newLoggingStatus,++ -- ** DisableSnapshotCopy+ DisableSnapshotCopy (DisableSnapshotCopy'),+ newDisableSnapshotCopy,+ DisableSnapshotCopyResponse (DisableSnapshotCopyResponse'),+ newDisableSnapshotCopyResponse,++ -- ** DisassociateDataShareConsumer+ DisassociateDataShareConsumer (DisassociateDataShareConsumer'),+ newDisassociateDataShareConsumer,+ DataShare (DataShare'),+ newDataShare,++ -- ** EnableLogging+ EnableLogging (EnableLogging'),+ newEnableLogging,+ LoggingStatus (LoggingStatus'),+ newLoggingStatus,++ -- ** EnableSnapshotCopy+ EnableSnapshotCopy (EnableSnapshotCopy'),+ newEnableSnapshotCopy,+ EnableSnapshotCopyResponse (EnableSnapshotCopyResponse'),+ newEnableSnapshotCopyResponse,++ -- ** GetClusterCredentials+ GetClusterCredentials (GetClusterCredentials'),+ newGetClusterCredentials,+ GetClusterCredentialsResponse (GetClusterCredentialsResponse'),+ newGetClusterCredentialsResponse,++ -- ** GetClusterCredentialsWithIAM+ GetClusterCredentialsWithIAM (GetClusterCredentialsWithIAM'),+ newGetClusterCredentialsWithIAM,+ GetClusterCredentialsWithIAMResponse (GetClusterCredentialsWithIAMResponse'),+ newGetClusterCredentialsWithIAMResponse,++ -- ** GetReservedNodeExchangeConfigurationOptions (Paginated)+ GetReservedNodeExchangeConfigurationOptions (GetReservedNodeExchangeConfigurationOptions'),+ newGetReservedNodeExchangeConfigurationOptions,+ GetReservedNodeExchangeConfigurationOptionsResponse (GetReservedNodeExchangeConfigurationOptionsResponse'),+ newGetReservedNodeExchangeConfigurationOptionsResponse,++ -- ** GetReservedNodeExchangeOfferings (Paginated)+ GetReservedNodeExchangeOfferings (GetReservedNodeExchangeOfferings'),+ newGetReservedNodeExchangeOfferings,+ GetReservedNodeExchangeOfferingsResponse (GetReservedNodeExchangeOfferingsResponse'),+ newGetReservedNodeExchangeOfferingsResponse,++ -- ** ModifyAquaConfiguration+ ModifyAquaConfiguration (ModifyAquaConfiguration'),+ newModifyAquaConfiguration,+ ModifyAquaConfigurationResponse (ModifyAquaConfigurationResponse'),+ newModifyAquaConfigurationResponse,++ -- ** ModifyAuthenticationProfile+ ModifyAuthenticationProfile (ModifyAuthenticationProfile'),+ newModifyAuthenticationProfile,+ ModifyAuthenticationProfileResponse (ModifyAuthenticationProfileResponse'),+ newModifyAuthenticationProfileResponse,++ -- ** ModifyCluster+ ModifyCluster (ModifyCluster'),+ newModifyCluster,+ ModifyClusterResponse (ModifyClusterResponse'),+ newModifyClusterResponse,++ -- ** ModifyClusterDbRevision+ ModifyClusterDbRevision (ModifyClusterDbRevision'),+ newModifyClusterDbRevision,+ ModifyClusterDbRevisionResponse (ModifyClusterDbRevisionResponse'),+ newModifyClusterDbRevisionResponse,++ -- ** ModifyClusterIamRoles+ ModifyClusterIamRoles (ModifyClusterIamRoles'),+ newModifyClusterIamRoles,+ ModifyClusterIamRolesResponse (ModifyClusterIamRolesResponse'),+ newModifyClusterIamRolesResponse,++ -- ** ModifyClusterMaintenance+ ModifyClusterMaintenance (ModifyClusterMaintenance'),+ newModifyClusterMaintenance,+ ModifyClusterMaintenanceResponse (ModifyClusterMaintenanceResponse'),+ newModifyClusterMaintenanceResponse,++ -- ** ModifyClusterParameterGroup+ ModifyClusterParameterGroup (ModifyClusterParameterGroup'),+ newModifyClusterParameterGroup,+ ClusterParameterGroupNameMessage (ClusterParameterGroupNameMessage'),+ newClusterParameterGroupNameMessage,++ -- ** ModifyClusterSnapshot+ ModifyClusterSnapshot (ModifyClusterSnapshot'),+ newModifyClusterSnapshot,+ ModifyClusterSnapshotResponse (ModifyClusterSnapshotResponse'),+ newModifyClusterSnapshotResponse,++ -- ** ModifyClusterSnapshotSchedule+ ModifyClusterSnapshotSchedule (ModifyClusterSnapshotSchedule'),+ newModifyClusterSnapshotSchedule,+ ModifyClusterSnapshotScheduleResponse (ModifyClusterSnapshotScheduleResponse'),+ newModifyClusterSnapshotScheduleResponse,++ -- ** ModifyClusterSubnetGroup+ ModifyClusterSubnetGroup (ModifyClusterSubnetGroup'),+ newModifyClusterSubnetGroup,+ ModifyClusterSubnetGroupResponse (ModifyClusterSubnetGroupResponse'),+ newModifyClusterSubnetGroupResponse,++ -- ** ModifyEndpointAccess+ ModifyEndpointAccess (ModifyEndpointAccess'),+ newModifyEndpointAccess,+ EndpointAccess (EndpointAccess'),+ newEndpointAccess,++ -- ** ModifyEventSubscription+ ModifyEventSubscription (ModifyEventSubscription'),+ newModifyEventSubscription,+ ModifyEventSubscriptionResponse (ModifyEventSubscriptionResponse'),+ newModifyEventSubscriptionResponse,++ -- ** ModifyScheduledAction+ ModifyScheduledAction (ModifyScheduledAction'),+ newModifyScheduledAction,+ ScheduledAction (ScheduledAction'),+ newScheduledAction,++ -- ** ModifySnapshotCopyRetentionPeriod+ ModifySnapshotCopyRetentionPeriod (ModifySnapshotCopyRetentionPeriod'),+ newModifySnapshotCopyRetentionPeriod,+ ModifySnapshotCopyRetentionPeriodResponse (ModifySnapshotCopyRetentionPeriodResponse'),+ newModifySnapshotCopyRetentionPeriodResponse,++ -- ** ModifySnapshotSchedule+ ModifySnapshotSchedule (ModifySnapshotSchedule'),+ newModifySnapshotSchedule,+ SnapshotSchedule (SnapshotSchedule'),+ newSnapshotSchedule,++ -- ** ModifyUsageLimit+ ModifyUsageLimit (ModifyUsageLimit'),+ newModifyUsageLimit,+ UsageLimit (UsageLimit'),+ newUsageLimit,++ -- ** PauseCluster+ PauseCluster (PauseCluster'),+ newPauseCluster,+ PauseClusterResponse (PauseClusterResponse'),+ newPauseClusterResponse,++ -- ** PurchaseReservedNodeOffering+ PurchaseReservedNodeOffering (PurchaseReservedNodeOffering'),+ newPurchaseReservedNodeOffering,+ PurchaseReservedNodeOfferingResponse (PurchaseReservedNodeOfferingResponse'),+ newPurchaseReservedNodeOfferingResponse,++ -- ** RebootCluster+ RebootCluster (RebootCluster'),+ newRebootCluster,+ RebootClusterResponse (RebootClusterResponse'),+ newRebootClusterResponse,++ -- ** RejectDataShare+ RejectDataShare (RejectDataShare'),+ newRejectDataShare,+ DataShare (DataShare'),+ newDataShare,++ -- ** ResetClusterParameterGroup+ ResetClusterParameterGroup (ResetClusterParameterGroup'),+ newResetClusterParameterGroup,+ ClusterParameterGroupNameMessage (ClusterParameterGroupNameMessage'),+ newClusterParameterGroupNameMessage,++ -- ** ResizeCluster+ ResizeCluster (ResizeCluster'),+ newResizeCluster,+ ResizeClusterResponse (ResizeClusterResponse'),+ newResizeClusterResponse,++ -- ** RestoreFromClusterSnapshot+ RestoreFromClusterSnapshot (RestoreFromClusterSnapshot'),+ newRestoreFromClusterSnapshot,+ RestoreFromClusterSnapshotResponse (RestoreFromClusterSnapshotResponse'),+ newRestoreFromClusterSnapshotResponse,++ -- ** RestoreTableFromClusterSnapshot+ RestoreTableFromClusterSnapshot (RestoreTableFromClusterSnapshot'),+ newRestoreTableFromClusterSnapshot,+ RestoreTableFromClusterSnapshotResponse (RestoreTableFromClusterSnapshotResponse'),+ newRestoreTableFromClusterSnapshotResponse,++ -- ** ResumeCluster+ ResumeCluster (ResumeCluster'),+ newResumeCluster,+ ResumeClusterResponse (ResumeClusterResponse'),+ newResumeClusterResponse,++ -- ** RevokeClusterSecurityGroupIngress+ RevokeClusterSecurityGroupIngress (RevokeClusterSecurityGroupIngress'),+ newRevokeClusterSecurityGroupIngress,+ RevokeClusterSecurityGroupIngressResponse (RevokeClusterSecurityGroupIngressResponse'),+ newRevokeClusterSecurityGroupIngressResponse,++ -- ** RevokeEndpointAccess+ RevokeEndpointAccess (RevokeEndpointAccess'),+ newRevokeEndpointAccess,+ EndpointAuthorization (EndpointAuthorization'),+ newEndpointAuthorization,++ -- ** RevokeSnapshotAccess+ RevokeSnapshotAccess (RevokeSnapshotAccess'),+ newRevokeSnapshotAccess,+ RevokeSnapshotAccessResponse (RevokeSnapshotAccessResponse'),+ newRevokeSnapshotAccessResponse,++ -- ** RotateEncryptionKey+ RotateEncryptionKey (RotateEncryptionKey'),+ newRotateEncryptionKey,+ RotateEncryptionKeyResponse (RotateEncryptionKeyResponse'),+ newRotateEncryptionKeyResponse,++ -- ** UpdatePartnerStatus+ UpdatePartnerStatus (UpdatePartnerStatus'),+ newUpdatePartnerStatus,+ PartnerIntegrationOutputMessage (PartnerIntegrationOutputMessage'),+ newPartnerIntegrationOutputMessage,++ -- * Types++ -- ** Common+ module Amazonka.Redshift.Internal,++ -- ** ActionType+ ActionType (..),++ -- ** AquaConfigurationStatus+ AquaConfigurationStatus (..),++ -- ** AquaStatus+ AquaStatus (..),++ -- ** AuthorizationStatus+ AuthorizationStatus (..),++ -- ** DataShareStatus+ DataShareStatus (..),++ -- ** DataShareStatusForConsumer+ DataShareStatusForConsumer (..),++ -- ** DataShareStatusForProducer+ DataShareStatusForProducer (..),++ -- ** LogDestinationType+ LogDestinationType (..),++ -- ** Mode+ Mode (..),++ -- ** NodeConfigurationOptionsFilterName+ NodeConfigurationOptionsFilterName (..),++ -- ** OperatorType+ OperatorType (..),++ -- ** ParameterApplyType+ ParameterApplyType (..),++ -- ** PartnerIntegrationStatus+ PartnerIntegrationStatus (..),++ -- ** ReservedNodeExchangeActionType+ ReservedNodeExchangeActionType (..),++ -- ** ReservedNodeExchangeStatusType+ ReservedNodeExchangeStatusType (..),++ -- ** ReservedNodeOfferingType+ ReservedNodeOfferingType (..),++ -- ** ScheduleState+ ScheduleState (..),++ -- ** ScheduledActionFilterName+ ScheduledActionFilterName (..),++ -- ** ScheduledActionState+ ScheduledActionState (..),++ -- ** ScheduledActionTypeValues+ ScheduledActionTypeValues (..),++ -- ** SnapshotAttributeToSortBy+ SnapshotAttributeToSortBy (..),++ -- ** SortByOrder+ SortByOrder (..),++ -- ** SourceType+ SourceType (..),++ -- ** TableRestoreStatusType+ TableRestoreStatusType (..),++ -- ** UsageLimitBreachAction+ UsageLimitBreachAction (..),++ -- ** UsageLimitFeatureType+ UsageLimitFeatureType (..),++ -- ** UsageLimitLimitType+ UsageLimitLimitType (..),++ -- ** UsageLimitPeriod+ UsageLimitPeriod (..),++ -- ** AccountAttribute+ AccountAttribute (AccountAttribute'),+ newAccountAttribute,++ -- ** AccountWithRestoreAccess+ AccountWithRestoreAccess (AccountWithRestoreAccess'),+ newAccountWithRestoreAccess,++ -- ** AquaConfiguration+ AquaConfiguration (AquaConfiguration'),+ newAquaConfiguration,++ -- ** AttributeValueTarget+ AttributeValueTarget (AttributeValueTarget'),+ newAttributeValueTarget,++ -- ** AuthenticationProfile+ AuthenticationProfile (AuthenticationProfile'),+ newAuthenticationProfile,++ -- ** AvailabilityZone+ AvailabilityZone (AvailabilityZone'),+ newAvailabilityZone,++ -- ** Cluster+ Cluster (Cluster'),+ newCluster,++ -- ** ClusterAssociatedToSchedule+ ClusterAssociatedToSchedule (ClusterAssociatedToSchedule'),+ newClusterAssociatedToSchedule,++ -- ** ClusterDbRevision+ ClusterDbRevision (ClusterDbRevision'),+ newClusterDbRevision,++ -- ** ClusterIamRole+ ClusterIamRole (ClusterIamRole'),+ newClusterIamRole,++ -- ** ClusterNode+ ClusterNode (ClusterNode'),+ newClusterNode,++ -- ** ClusterParameterGroup+ ClusterParameterGroup (ClusterParameterGroup'),+ newClusterParameterGroup,++ -- ** ClusterParameterGroupNameMessage+ ClusterParameterGroupNameMessage (ClusterParameterGroupNameMessage'),+ newClusterParameterGroupNameMessage,++ -- ** ClusterParameterGroupStatus+ ClusterParameterGroupStatus (ClusterParameterGroupStatus'),+ newClusterParameterGroupStatus,++ -- ** ClusterParameterStatus+ ClusterParameterStatus (ClusterParameterStatus'),+ newClusterParameterStatus,++ -- ** ClusterSecurityGroup+ ClusterSecurityGroup (ClusterSecurityGroup'),+ newClusterSecurityGroup,++ -- ** ClusterSecurityGroupMembership+ ClusterSecurityGroupMembership (ClusterSecurityGroupMembership'),+ newClusterSecurityGroupMembership,++ -- ** ClusterSnapshotCopyStatus+ ClusterSnapshotCopyStatus (ClusterSnapshotCopyStatus'),+ newClusterSnapshotCopyStatus,++ -- ** ClusterSubnetGroup+ ClusterSubnetGroup (ClusterSubnetGroup'),+ newClusterSubnetGroup,++ -- ** ClusterVersion+ ClusterVersion (ClusterVersion'),+ newClusterVersion,++ -- ** DataShare+ DataShare (DataShare'),+ newDataShare,++ -- ** DataShareAssociation+ DataShareAssociation (DataShareAssociation'),+ newDataShareAssociation,++ -- ** DataTransferProgress+ DataTransferProgress (DataTransferProgress'),+ newDataTransferProgress,++ -- ** DefaultClusterParameters+ DefaultClusterParameters (DefaultClusterParameters'),+ newDefaultClusterParameters,++ -- ** DeferredMaintenanceWindow+ DeferredMaintenanceWindow (DeferredMaintenanceWindow'),+ newDeferredMaintenanceWindow,++ -- ** DeleteClusterSnapshotMessage+ DeleteClusterSnapshotMessage (DeleteClusterSnapshotMessage'),+ newDeleteClusterSnapshotMessage,++ -- ** EC2SecurityGroup+ EC2SecurityGroup (EC2SecurityGroup'),+ newEC2SecurityGroup,++ -- ** ElasticIpStatus+ ElasticIpStatus (ElasticIpStatus'),+ newElasticIpStatus,++ -- ** Endpoint+ Endpoint (Endpoint'),+ newEndpoint,++ -- ** EndpointAccess+ EndpointAccess (EndpointAccess'),+ newEndpointAccess,++ -- ** EndpointAuthorization+ EndpointAuthorization (EndpointAuthorization'),+ newEndpointAuthorization,++ -- ** Event+ Event (Event'),+ newEvent,++ -- ** EventCategoriesMap+ EventCategoriesMap (EventCategoriesMap'),+ newEventCategoriesMap,++ -- ** EventInfoMap+ EventInfoMap (EventInfoMap'),+ newEventInfoMap,++ -- ** EventSubscription+ EventSubscription (EventSubscription'),+ newEventSubscription,++ -- ** HsmClientCertificate+ HsmClientCertificate (HsmClientCertificate'),+ newHsmClientCertificate,++ -- ** HsmConfiguration+ HsmConfiguration (HsmConfiguration'),+ newHsmConfiguration,++ -- ** HsmStatus+ HsmStatus (HsmStatus'),+ newHsmStatus,++ -- ** IPRange+ IPRange (IPRange'),+ newIPRange,++ -- ** LoggingStatus+ LoggingStatus (LoggingStatus'),+ newLoggingStatus,++ -- ** MaintenanceTrack+ MaintenanceTrack (MaintenanceTrack'),+ newMaintenanceTrack,++ -- ** NetworkInterface+ NetworkInterface (NetworkInterface'),+ newNetworkInterface,++ -- ** NodeConfigurationOption+ NodeConfigurationOption (NodeConfigurationOption'),+ newNodeConfigurationOption,++ -- ** NodeConfigurationOptionsFilter+ NodeConfigurationOptionsFilter (NodeConfigurationOptionsFilter'),+ newNodeConfigurationOptionsFilter,++ -- ** OrderableClusterOption+ OrderableClusterOption (OrderableClusterOption'),+ newOrderableClusterOption,++ -- ** Parameter+ Parameter (Parameter'),+ newParameter,++ -- ** PartnerIntegrationInfo+ PartnerIntegrationInfo (PartnerIntegrationInfo'),+ newPartnerIntegrationInfo,++ -- ** PartnerIntegrationInputMessage+ PartnerIntegrationInputMessage (PartnerIntegrationInputMessage'),+ newPartnerIntegrationInputMessage,++ -- ** PartnerIntegrationOutputMessage+ PartnerIntegrationOutputMessage (PartnerIntegrationOutputMessage'),+ newPartnerIntegrationOutputMessage,++ -- ** PauseClusterMessage+ PauseClusterMessage (PauseClusterMessage'),+ newPauseClusterMessage,++ -- ** PendingModifiedValues+ PendingModifiedValues (PendingModifiedValues'),+ newPendingModifiedValues,++ -- ** RecurringCharge+ RecurringCharge (RecurringCharge'),+ newRecurringCharge,++ -- ** ReservedNode+ ReservedNode (ReservedNode'),+ newReservedNode,++ -- ** ReservedNodeConfigurationOption+ ReservedNodeConfigurationOption (ReservedNodeConfigurationOption'),+ newReservedNodeConfigurationOption,++ -- ** ReservedNodeExchangeStatus+ ReservedNodeExchangeStatus (ReservedNodeExchangeStatus'),+ newReservedNodeExchangeStatus,++ -- ** ReservedNodeOffering+ ReservedNodeOffering (ReservedNodeOffering'),+ newReservedNodeOffering,++ -- ** ResizeClusterMessage+ ResizeClusterMessage (ResizeClusterMessage'),+ newResizeClusterMessage,++ -- ** ResizeInfo+ ResizeInfo (ResizeInfo'),+ newResizeInfo,++ -- ** ResizeProgressMessage+ ResizeProgressMessage (ResizeProgressMessage'),+ newResizeProgressMessage,++ -- ** RestoreStatus+ RestoreStatus (RestoreStatus'),+ newRestoreStatus,++ -- ** ResumeClusterMessage+ ResumeClusterMessage (ResumeClusterMessage'),+ newResumeClusterMessage,++ -- ** RevisionTarget+ RevisionTarget (RevisionTarget'),+ newRevisionTarget,++ -- ** ScheduledAction+ ScheduledAction (ScheduledAction'),+ newScheduledAction,++ -- ** ScheduledActionFilter+ ScheduledActionFilter (ScheduledActionFilter'),+ newScheduledActionFilter,++ -- ** ScheduledActionType+ ScheduledActionType (ScheduledActionType'),+ newScheduledActionType,++ -- ** Snapshot+ Snapshot (Snapshot'),+ newSnapshot,++ -- ** SnapshotCopyGrant+ SnapshotCopyGrant (SnapshotCopyGrant'),+ newSnapshotCopyGrant,++ -- ** SnapshotErrorMessage+ SnapshotErrorMessage (SnapshotErrorMessage'),+ newSnapshotErrorMessage,++ -- ** SnapshotSchedule+ SnapshotSchedule (SnapshotSchedule'),+ newSnapshotSchedule,++ -- ** SnapshotSortingEntity+ SnapshotSortingEntity (SnapshotSortingEntity'),+ newSnapshotSortingEntity,++ -- ** Subnet+ Subnet (Subnet'),+ newSubnet,++ -- ** SupportedOperation+ SupportedOperation (SupportedOperation'),+ newSupportedOperation,++ -- ** SupportedPlatform+ SupportedPlatform (SupportedPlatform'),+ newSupportedPlatform,++ -- ** TableRestoreStatus+ TableRestoreStatus (TableRestoreStatus'),+ newTableRestoreStatus,++ -- ** Tag+ Tag (Tag'),+ newTag,++ -- ** TaggedResource+ TaggedResource (TaggedResource'),+ newTaggedResource,++ -- ** UpdateTarget+ UpdateTarget (UpdateTarget'),+ newUpdateTarget,++ -- ** UsageLimit+ UsageLimit (UsageLimit'),+ newUsageLimit,++ -- ** VpcEndpoint+ VpcEndpoint (VpcEndpoint'),+ newVpcEndpoint,++ -- ** VpcSecurityGroupMembership+ VpcSecurityGroupMembership (VpcSecurityGroupMembership'),+ newVpcSecurityGroupMembership,+ )+where++import Amazonka.Redshift.AcceptReservedNodeExchange+import Amazonka.Redshift.AddPartner+import Amazonka.Redshift.AssociateDataShareConsumer+import Amazonka.Redshift.AuthorizeClusterSecurityGroupIngress+import Amazonka.Redshift.AuthorizeDataShare+import Amazonka.Redshift.AuthorizeEndpointAccess+import Amazonka.Redshift.AuthorizeSnapshotAccess+import Amazonka.Redshift.BatchDeleteClusterSnapshots+import Amazonka.Redshift.BatchModifyClusterSnapshots+import Amazonka.Redshift.CancelResize+import Amazonka.Redshift.CopyClusterSnapshot+import Amazonka.Redshift.CreateAuthenticationProfile+import Amazonka.Redshift.CreateCluster+import Amazonka.Redshift.CreateClusterParameterGroup+import Amazonka.Redshift.CreateClusterSecurityGroup+import Amazonka.Redshift.CreateClusterSnapshot+import Amazonka.Redshift.CreateClusterSubnetGroup+import Amazonka.Redshift.CreateEndpointAccess+import Amazonka.Redshift.CreateEventSubscription+import Amazonka.Redshift.CreateHsmClientCertificate+import Amazonka.Redshift.CreateHsmConfiguration+import Amazonka.Redshift.CreateScheduledAction+import Amazonka.Redshift.CreateSnapshotCopyGrant+import Amazonka.Redshift.CreateSnapshotSchedule+import Amazonka.Redshift.CreateTags+import Amazonka.Redshift.CreateUsageLimit+import Amazonka.Redshift.DeauthorizeDataShare+import Amazonka.Redshift.DeleteAuthenticationProfile+import Amazonka.Redshift.DeleteCluster+import Amazonka.Redshift.DeleteClusterParameterGroup+import Amazonka.Redshift.DeleteClusterSecurityGroup+import Amazonka.Redshift.DeleteClusterSnapshot+import Amazonka.Redshift.DeleteClusterSubnetGroup+import Amazonka.Redshift.DeleteEndpointAccess+import Amazonka.Redshift.DeleteEventSubscription+import Amazonka.Redshift.DeleteHsmClientCertificate+import Amazonka.Redshift.DeleteHsmConfiguration+import Amazonka.Redshift.DeletePartner+import Amazonka.Redshift.DeleteScheduledAction+import Amazonka.Redshift.DeleteSnapshotCopyGrant+import Amazonka.Redshift.DeleteSnapshotSchedule+import Amazonka.Redshift.DeleteTags+import Amazonka.Redshift.DeleteUsageLimit+import Amazonka.Redshift.DescribeAccountAttributes+import Amazonka.Redshift.DescribeAuthenticationProfiles+import Amazonka.Redshift.DescribeClusterDbRevisions+import Amazonka.Redshift.DescribeClusterParameterGroups+import Amazonka.Redshift.DescribeClusterParameters+import Amazonka.Redshift.DescribeClusterSecurityGroups+import Amazonka.Redshift.DescribeClusterSnapshots+import Amazonka.Redshift.DescribeClusterSubnetGroups+import Amazonka.Redshift.DescribeClusterTracks+import Amazonka.Redshift.DescribeClusterVersions+import Amazonka.Redshift.DescribeClusters+import Amazonka.Redshift.DescribeDataShares+import Amazonka.Redshift.DescribeDataSharesForConsumer+import Amazonka.Redshift.DescribeDataSharesForProducer+import Amazonka.Redshift.DescribeDefaultClusterParameters+import Amazonka.Redshift.DescribeEndpointAccess+import Amazonka.Redshift.DescribeEndpointAuthorization+import Amazonka.Redshift.DescribeEventCategories+import Amazonka.Redshift.DescribeEventSubscriptions+import Amazonka.Redshift.DescribeEvents+import Amazonka.Redshift.DescribeHsmClientCertificates+import Amazonka.Redshift.DescribeHsmConfigurations+import Amazonka.Redshift.DescribeLoggingStatus+import Amazonka.Redshift.DescribeNodeConfigurationOptions+import Amazonka.Redshift.DescribeOrderableClusterOptions+import Amazonka.Redshift.DescribePartners+import Amazonka.Redshift.DescribeReservedNodeExchangeStatus+import Amazonka.Redshift.DescribeReservedNodeOfferings+import Amazonka.Redshift.DescribeReservedNodes+import Amazonka.Redshift.DescribeResize+import Amazonka.Redshift.DescribeScheduledActions+import Amazonka.Redshift.DescribeSnapshotCopyGrants+import Amazonka.Redshift.DescribeSnapshotSchedules+import Amazonka.Redshift.DescribeStorage+import Amazonka.Redshift.DescribeTableRestoreStatus+import Amazonka.Redshift.DescribeTags+import Amazonka.Redshift.DescribeUsageLimits+import Amazonka.Redshift.DisableLogging+import Amazonka.Redshift.DisableSnapshotCopy+import Amazonka.Redshift.DisassociateDataShareConsumer+import Amazonka.Redshift.EnableLogging+import Amazonka.Redshift.EnableSnapshotCopy+import Amazonka.Redshift.GetClusterCredentials+import Amazonka.Redshift.GetClusterCredentialsWithIAM+import Amazonka.Redshift.GetReservedNodeExchangeConfigurationOptions+import Amazonka.Redshift.GetReservedNodeExchangeOfferings+import Amazonka.Redshift.Internal+import Amazonka.Redshift.Lens+import Amazonka.Redshift.ModifyAquaConfiguration+import Amazonka.Redshift.ModifyAuthenticationProfile+import Amazonka.Redshift.ModifyCluster+import Amazonka.Redshift.ModifyClusterDbRevision+import Amazonka.Redshift.ModifyClusterIamRoles+import Amazonka.Redshift.ModifyClusterMaintenance+import Amazonka.Redshift.ModifyClusterParameterGroup+import Amazonka.Redshift.ModifyClusterSnapshot+import Amazonka.Redshift.ModifyClusterSnapshotSchedule+import Amazonka.Redshift.ModifyClusterSubnetGroup+import Amazonka.Redshift.ModifyEndpointAccess+import Amazonka.Redshift.ModifyEventSubscription+import Amazonka.Redshift.ModifyScheduledAction+import Amazonka.Redshift.ModifySnapshotCopyRetentionPeriod+import Amazonka.Redshift.ModifySnapshotSchedule+import Amazonka.Redshift.ModifyUsageLimit+import Amazonka.Redshift.PauseCluster+import Amazonka.Redshift.PurchaseReservedNodeOffering+import Amazonka.Redshift.RebootCluster+import Amazonka.Redshift.RejectDataShare+import Amazonka.Redshift.ResetClusterParameterGroup+import Amazonka.Redshift.ResizeCluster+import Amazonka.Redshift.RestoreFromClusterSnapshot+import Amazonka.Redshift.RestoreTableFromClusterSnapshot+import Amazonka.Redshift.ResumeCluster+import Amazonka.Redshift.RevokeClusterSecurityGroupIngress+import Amazonka.Redshift.RevokeEndpointAccess+import Amazonka.Redshift.RevokeSnapshotAccess+import Amazonka.Redshift.RotateEncryptionKey+import Amazonka.Redshift.Types+import Amazonka.Redshift.UpdatePartnerStatus+import Amazonka.Redshift.Waiters++-- $errors+-- Error matchers are designed for use with the functions provided by+-- <http://hackage.haskell.org/package/lens/docs/Control-Exception-Lens.html Control.Exception.Lens>.+-- This allows catching (and rethrowing) service specific errors returned+-- by 'Redshift'.++-- $operations+-- Some AWS operations return results that are incomplete and require subsequent+-- requests in order to obtain the entire result set. The process of sending+-- subsequent requests to continue where a previous request left off is called+-- pagination. For example, the 'ListObjects' operation of Amazon S3 returns up to+-- 1000 objects at a time, and you must send subsequent requests with the+-- appropriate Marker in order to retrieve the next page of results.+--+-- Operations that have an 'AWSPager' instance can transparently perform subsequent+-- requests, correctly setting Markers and other request facets to iterate through+-- the entire result set of a truncated API operation. Operations which support+-- this have an additional note in the documentation.+--+-- Many operations have the ability to filter results on the server side. See the+-- individual operation parameters for details.++-- $waiters+-- Waiters poll by repeatedly sending a request until some remote success condition+-- configured by the 'Wait' specification is fulfilled. The 'Wait' specification+-- determines how many attempts should be made, in addition to delay and retry strategies.
+ gen/Amazonka/Redshift/AcceptReservedNodeExchange.hs view
@@ -0,0 +1,193 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module : Amazonka.Redshift.AcceptReservedNodeExchange+-- Copyright : (c) 2013-2023 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Exchanges a DC1 Reserved Node for a DC2 Reserved Node with no changes to+-- the configuration (term, payment type, or number of nodes) and no+-- additional costs.+module Amazonka.Redshift.AcceptReservedNodeExchange+ ( -- * Creating a Request+ AcceptReservedNodeExchange (..),+ newAcceptReservedNodeExchange,++ -- * Request Lenses+ acceptReservedNodeExchange_reservedNodeId,+ acceptReservedNodeExchange_targetReservedNodeOfferingId,++ -- * Destructuring the Response+ AcceptReservedNodeExchangeResponse (..),+ newAcceptReservedNodeExchangeResponse,++ -- * Response Lenses+ acceptReservedNodeExchangeResponse_exchangedReservedNode,+ acceptReservedNodeExchangeResponse_httpStatus,+ )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Redshift.Types+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newAcceptReservedNodeExchange' smart constructor.+data AcceptReservedNodeExchange = AcceptReservedNodeExchange'+ { -- | A string representing the node identifier of the DC1 Reserved Node to be+ -- exchanged.+ reservedNodeId :: Prelude.Text,+ -- | The unique identifier of the DC2 Reserved Node offering to be used for+ -- the exchange. You can obtain the value for the parameter by calling+ -- GetReservedNodeExchangeOfferings+ targetReservedNodeOfferingId :: Prelude.Text+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'AcceptReservedNodeExchange' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'reservedNodeId', 'acceptReservedNodeExchange_reservedNodeId' - A string representing the node identifier of the DC1 Reserved Node to be+-- exchanged.+--+-- 'targetReservedNodeOfferingId', 'acceptReservedNodeExchange_targetReservedNodeOfferingId' - The unique identifier of the DC2 Reserved Node offering to be used for+-- the exchange. You can obtain the value for the parameter by calling+-- GetReservedNodeExchangeOfferings+newAcceptReservedNodeExchange ::+ -- | 'reservedNodeId'+ Prelude.Text ->+ -- | 'targetReservedNodeOfferingId'+ Prelude.Text ->+ AcceptReservedNodeExchange+newAcceptReservedNodeExchange+ pReservedNodeId_+ pTargetReservedNodeOfferingId_ =+ AcceptReservedNodeExchange'+ { reservedNodeId =+ pReservedNodeId_,+ targetReservedNodeOfferingId =+ pTargetReservedNodeOfferingId_+ }++-- | A string representing the node identifier of the DC1 Reserved Node to be+-- exchanged.+acceptReservedNodeExchange_reservedNodeId :: Lens.Lens' AcceptReservedNodeExchange Prelude.Text+acceptReservedNodeExchange_reservedNodeId = Lens.lens (\AcceptReservedNodeExchange' {reservedNodeId} -> reservedNodeId) (\s@AcceptReservedNodeExchange' {} a -> s {reservedNodeId = a} :: AcceptReservedNodeExchange)++-- | The unique identifier of the DC2 Reserved Node offering to be used for+-- the exchange. You can obtain the value for the parameter by calling+-- GetReservedNodeExchangeOfferings+acceptReservedNodeExchange_targetReservedNodeOfferingId :: Lens.Lens' AcceptReservedNodeExchange Prelude.Text+acceptReservedNodeExchange_targetReservedNodeOfferingId = Lens.lens (\AcceptReservedNodeExchange' {targetReservedNodeOfferingId} -> targetReservedNodeOfferingId) (\s@AcceptReservedNodeExchange' {} a -> s {targetReservedNodeOfferingId = a} :: AcceptReservedNodeExchange)++instance Core.AWSRequest AcceptReservedNodeExchange where+ type+ AWSResponse AcceptReservedNodeExchange =+ AcceptReservedNodeExchangeResponse+ request overrides =+ Request.postQuery (overrides defaultService)+ response =+ Response.receiveXMLWrapper+ "AcceptReservedNodeExchangeResult"+ ( \s h x ->+ AcceptReservedNodeExchangeResponse'+ Prelude.<$> (x Data..@? "ExchangedReservedNode")+ Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+ )++instance Prelude.Hashable AcceptReservedNodeExchange where+ hashWithSalt _salt AcceptReservedNodeExchange' {..} =+ _salt+ `Prelude.hashWithSalt` reservedNodeId+ `Prelude.hashWithSalt` targetReservedNodeOfferingId++instance Prelude.NFData AcceptReservedNodeExchange where+ rnf AcceptReservedNodeExchange' {..} =+ Prelude.rnf reservedNodeId+ `Prelude.seq` Prelude.rnf targetReservedNodeOfferingId++instance Data.ToHeaders AcceptReservedNodeExchange where+ toHeaders = Prelude.const Prelude.mempty++instance Data.ToPath AcceptReservedNodeExchange where+ toPath = Prelude.const "/"++instance Data.ToQuery AcceptReservedNodeExchange where+ toQuery AcceptReservedNodeExchange' {..} =+ Prelude.mconcat+ [ "Action"+ Data.=: ("AcceptReservedNodeExchange" :: Prelude.ByteString),+ "Version"+ Data.=: ("2012-12-01" :: Prelude.ByteString),+ "ReservedNodeId" Data.=: reservedNodeId,+ "TargetReservedNodeOfferingId"+ Data.=: targetReservedNodeOfferingId+ ]++-- | /See:/ 'newAcceptReservedNodeExchangeResponse' smart constructor.+data AcceptReservedNodeExchangeResponse = AcceptReservedNodeExchangeResponse'+ { exchangedReservedNode :: Prelude.Maybe ReservedNode,+ -- | The response's http status code.+ httpStatus :: Prelude.Int+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'AcceptReservedNodeExchangeResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'exchangedReservedNode', 'acceptReservedNodeExchangeResponse_exchangedReservedNode' -+--+-- 'httpStatus', 'acceptReservedNodeExchangeResponse_httpStatus' - The response's http status code.+newAcceptReservedNodeExchangeResponse ::+ -- | 'httpStatus'+ Prelude.Int ->+ AcceptReservedNodeExchangeResponse+newAcceptReservedNodeExchangeResponse pHttpStatus_ =+ AcceptReservedNodeExchangeResponse'+ { exchangedReservedNode =+ Prelude.Nothing,+ httpStatus = pHttpStatus_+ }++acceptReservedNodeExchangeResponse_exchangedReservedNode :: Lens.Lens' AcceptReservedNodeExchangeResponse (Prelude.Maybe ReservedNode)+acceptReservedNodeExchangeResponse_exchangedReservedNode = Lens.lens (\AcceptReservedNodeExchangeResponse' {exchangedReservedNode} -> exchangedReservedNode) (\s@AcceptReservedNodeExchangeResponse' {} a -> s {exchangedReservedNode = a} :: AcceptReservedNodeExchangeResponse)++-- | The response's http status code.+acceptReservedNodeExchangeResponse_httpStatus :: Lens.Lens' AcceptReservedNodeExchangeResponse Prelude.Int+acceptReservedNodeExchangeResponse_httpStatus = Lens.lens (\AcceptReservedNodeExchangeResponse' {httpStatus} -> httpStatus) (\s@AcceptReservedNodeExchangeResponse' {} a -> s {httpStatus = a} :: AcceptReservedNodeExchangeResponse)++instance+ Prelude.NFData+ AcceptReservedNodeExchangeResponse+ where+ rnf AcceptReservedNodeExchangeResponse' {..} =+ Prelude.rnf exchangedReservedNode+ `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/Redshift/AddPartner.hs view
@@ -0,0 +1,167 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module : Amazonka.Redshift.AddPartner+-- Copyright : (c) 2013-2023 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Adds a partner integration to a cluster. This operation authorizes a+-- partner to push status updates for the specified database. To complete+-- the integration, you also set up the integration on the partner website.+module Amazonka.Redshift.AddPartner+ ( -- * Creating a Request+ AddPartner (..),+ newAddPartner,++ -- * Request Lenses+ addPartner_accountId,+ addPartner_clusterIdentifier,+ addPartner_databaseName,+ addPartner_partnerName,++ -- * Destructuring the Response+ PartnerIntegrationOutputMessage (..),+ newPartnerIntegrationOutputMessage,++ -- * Response Lenses+ partnerIntegrationOutputMessage_databaseName,+ partnerIntegrationOutputMessage_partnerName,+ )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Redshift.Types+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newAddPartner' smart constructor.+data AddPartner = AddPartner'+ { -- | The Amazon Web Services account ID that owns the cluster.+ accountId :: Prelude.Text,+ -- | The cluster identifier of the cluster that receives data from the+ -- partner.+ clusterIdentifier :: Prelude.Text,+ -- | The name of the database that receives data from the partner.+ databaseName :: Prelude.Text,+ -- | The name of the partner that is authorized to send data.+ partnerName :: Prelude.Text+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'AddPartner' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'accountId', 'addPartner_accountId' - The Amazon Web Services account ID that owns the cluster.+--+-- 'clusterIdentifier', 'addPartner_clusterIdentifier' - The cluster identifier of the cluster that receives data from the+-- partner.+--+-- 'databaseName', 'addPartner_databaseName' - The name of the database that receives data from the partner.+--+-- 'partnerName', 'addPartner_partnerName' - The name of the partner that is authorized to send data.+newAddPartner ::+ -- | 'accountId'+ Prelude.Text ->+ -- | 'clusterIdentifier'+ Prelude.Text ->+ -- | 'databaseName'+ Prelude.Text ->+ -- | 'partnerName'+ Prelude.Text ->+ AddPartner+newAddPartner+ pAccountId_+ pClusterIdentifier_+ pDatabaseName_+ pPartnerName_ =+ AddPartner'+ { accountId = pAccountId_,+ clusterIdentifier = pClusterIdentifier_,+ databaseName = pDatabaseName_,+ partnerName = pPartnerName_+ }++-- | The Amazon Web Services account ID that owns the cluster.+addPartner_accountId :: Lens.Lens' AddPartner Prelude.Text+addPartner_accountId = Lens.lens (\AddPartner' {accountId} -> accountId) (\s@AddPartner' {} a -> s {accountId = a} :: AddPartner)++-- | The cluster identifier of the cluster that receives data from the+-- partner.+addPartner_clusterIdentifier :: Lens.Lens' AddPartner Prelude.Text+addPartner_clusterIdentifier = Lens.lens (\AddPartner' {clusterIdentifier} -> clusterIdentifier) (\s@AddPartner' {} a -> s {clusterIdentifier = a} :: AddPartner)++-- | The name of the database that receives data from the partner.+addPartner_databaseName :: Lens.Lens' AddPartner Prelude.Text+addPartner_databaseName = Lens.lens (\AddPartner' {databaseName} -> databaseName) (\s@AddPartner' {} a -> s {databaseName = a} :: AddPartner)++-- | The name of the partner that is authorized to send data.+addPartner_partnerName :: Lens.Lens' AddPartner Prelude.Text+addPartner_partnerName = Lens.lens (\AddPartner' {partnerName} -> partnerName) (\s@AddPartner' {} a -> s {partnerName = a} :: AddPartner)++instance Core.AWSRequest AddPartner where+ type+ AWSResponse AddPartner =+ PartnerIntegrationOutputMessage+ request overrides =+ Request.postQuery (overrides defaultService)+ response =+ Response.receiveXMLWrapper+ "AddPartnerResult"+ (\s h x -> Data.parseXML x)++instance Prelude.Hashable AddPartner where+ hashWithSalt _salt AddPartner' {..} =+ _salt+ `Prelude.hashWithSalt` accountId+ `Prelude.hashWithSalt` clusterIdentifier+ `Prelude.hashWithSalt` databaseName+ `Prelude.hashWithSalt` partnerName++instance Prelude.NFData AddPartner where+ rnf AddPartner' {..} =+ Prelude.rnf accountId+ `Prelude.seq` Prelude.rnf clusterIdentifier+ `Prelude.seq` Prelude.rnf databaseName+ `Prelude.seq` Prelude.rnf partnerName++instance Data.ToHeaders AddPartner where+ toHeaders = Prelude.const Prelude.mempty++instance Data.ToPath AddPartner where+ toPath = Prelude.const "/"++instance Data.ToQuery AddPartner where+ toQuery AddPartner' {..} =+ Prelude.mconcat+ [ "Action"+ Data.=: ("AddPartner" :: Prelude.ByteString),+ "Version"+ Data.=: ("2012-12-01" :: Prelude.ByteString),+ "AccountId" Data.=: accountId,+ "ClusterIdentifier" Data.=: clusterIdentifier,+ "DatabaseName" Data.=: databaseName,+ "PartnerName" Data.=: partnerName+ ]
@@ -0,0 +1,175 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module : Amazonka.Redshift.AssociateDataShareConsumer+-- Copyright : (c) 2013-2023 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- From a datashare consumer account, associates a datashare with the+-- account (AssociateEntireAccount) or the specified namespace+-- (ConsumerArn). If you make this association, the consumer can consume+-- the datashare.+module Amazonka.Redshift.AssociateDataShareConsumer+ ( -- * Creating a Request+ AssociateDataShareConsumer (..),+ newAssociateDataShareConsumer,++ -- * Request Lenses+ associateDataShareConsumer_associateEntireAccount,+ associateDataShareConsumer_consumerArn,+ associateDataShareConsumer_consumerRegion,+ associateDataShareConsumer_dataShareArn,++ -- * Destructuring the Response+ DataShare (..),+ newDataShare,++ -- * Response Lenses+ dataShare_allowPubliclyAccessibleConsumers,+ dataShare_dataShareArn,+ dataShare_dataShareAssociations,+ dataShare_managedBy,+ dataShare_producerArn,+ )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Redshift.Types+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newAssociateDataShareConsumer' smart constructor.+data AssociateDataShareConsumer = AssociateDataShareConsumer'+ { -- | A value that specifies whether the datashare is associated with the+ -- entire account.+ associateEntireAccount :: Prelude.Maybe Prelude.Bool,+ -- | The Amazon Resource Name (ARN) of the consumer that is associated with+ -- the datashare.+ consumerArn :: Prelude.Maybe Prelude.Text,+ -- | From a datashare consumer account, associates a datashare with all+ -- existing and future namespaces in the specified Amazon Web Services+ -- Region.+ consumerRegion :: Prelude.Maybe Prelude.Text,+ -- | The Amazon Resource Name (ARN) of the datashare that the consumer is to+ -- use with the account or the namespace.+ dataShareArn :: Prelude.Text+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'AssociateDataShareConsumer' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'associateEntireAccount', 'associateDataShareConsumer_associateEntireAccount' - A value that specifies whether the datashare is associated with the+-- entire account.+--+-- 'consumerArn', 'associateDataShareConsumer_consumerArn' - The Amazon Resource Name (ARN) of the consumer that is associated with+-- the datashare.+--+-- 'consumerRegion', 'associateDataShareConsumer_consumerRegion' - From a datashare consumer account, associates a datashare with all+-- existing and future namespaces in the specified Amazon Web Services+-- Region.+--+-- 'dataShareArn', 'associateDataShareConsumer_dataShareArn' - The Amazon Resource Name (ARN) of the datashare that the consumer is to+-- use with the account or the namespace.+newAssociateDataShareConsumer ::+ -- | 'dataShareArn'+ Prelude.Text ->+ AssociateDataShareConsumer+newAssociateDataShareConsumer pDataShareArn_ =+ AssociateDataShareConsumer'+ { associateEntireAccount =+ Prelude.Nothing,+ consumerArn = Prelude.Nothing,+ consumerRegion = Prelude.Nothing,+ dataShareArn = pDataShareArn_+ }++-- | A value that specifies whether the datashare is associated with the+-- entire account.+associateDataShareConsumer_associateEntireAccount :: Lens.Lens' AssociateDataShareConsumer (Prelude.Maybe Prelude.Bool)+associateDataShareConsumer_associateEntireAccount = Lens.lens (\AssociateDataShareConsumer' {associateEntireAccount} -> associateEntireAccount) (\s@AssociateDataShareConsumer' {} a -> s {associateEntireAccount = a} :: AssociateDataShareConsumer)++-- | The Amazon Resource Name (ARN) of the consumer that is associated with+-- the datashare.+associateDataShareConsumer_consumerArn :: Lens.Lens' AssociateDataShareConsumer (Prelude.Maybe Prelude.Text)+associateDataShareConsumer_consumerArn = Lens.lens (\AssociateDataShareConsumer' {consumerArn} -> consumerArn) (\s@AssociateDataShareConsumer' {} a -> s {consumerArn = a} :: AssociateDataShareConsumer)++-- | From a datashare consumer account, associates a datashare with all+-- existing and future namespaces in the specified Amazon Web Services+-- Region.+associateDataShareConsumer_consumerRegion :: Lens.Lens' AssociateDataShareConsumer (Prelude.Maybe Prelude.Text)+associateDataShareConsumer_consumerRegion = Lens.lens (\AssociateDataShareConsumer' {consumerRegion} -> consumerRegion) (\s@AssociateDataShareConsumer' {} a -> s {consumerRegion = a} :: AssociateDataShareConsumer)++-- | The Amazon Resource Name (ARN) of the datashare that the consumer is to+-- use with the account or the namespace.+associateDataShareConsumer_dataShareArn :: Lens.Lens' AssociateDataShareConsumer Prelude.Text+associateDataShareConsumer_dataShareArn = Lens.lens (\AssociateDataShareConsumer' {dataShareArn} -> dataShareArn) (\s@AssociateDataShareConsumer' {} a -> s {dataShareArn = a} :: AssociateDataShareConsumer)++instance Core.AWSRequest AssociateDataShareConsumer where+ type+ AWSResponse AssociateDataShareConsumer =+ DataShare+ request overrides =+ Request.postQuery (overrides defaultService)+ response =+ Response.receiveXMLWrapper+ "AssociateDataShareConsumerResult"+ (\s h x -> Data.parseXML x)++instance Prelude.Hashable AssociateDataShareConsumer where+ hashWithSalt _salt AssociateDataShareConsumer' {..} =+ _salt+ `Prelude.hashWithSalt` associateEntireAccount+ `Prelude.hashWithSalt` consumerArn+ `Prelude.hashWithSalt` consumerRegion+ `Prelude.hashWithSalt` dataShareArn++instance Prelude.NFData AssociateDataShareConsumer where+ rnf AssociateDataShareConsumer' {..} =+ Prelude.rnf associateEntireAccount+ `Prelude.seq` Prelude.rnf consumerArn+ `Prelude.seq` Prelude.rnf consumerRegion+ `Prelude.seq` Prelude.rnf dataShareArn++instance Data.ToHeaders AssociateDataShareConsumer where+ toHeaders = Prelude.const Prelude.mempty++instance Data.ToPath AssociateDataShareConsumer where+ toPath = Prelude.const "/"++instance Data.ToQuery AssociateDataShareConsumer where+ toQuery AssociateDataShareConsumer' {..} =+ Prelude.mconcat+ [ "Action"+ Data.=: ("AssociateDataShareConsumer" :: Prelude.ByteString),+ "Version"+ Data.=: ("2012-12-01" :: Prelude.ByteString),+ "AssociateEntireAccount"+ Data.=: associateEntireAccount,+ "ConsumerArn" Data.=: consumerArn,+ "ConsumerRegion" Data.=: consumerRegion,+ "DataShareArn" Data.=: dataShareArn+ ]
+ gen/Amazonka/Redshift/AuthorizeClusterSecurityGroupIngress.hs view
@@ -0,0 +1,267 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module : Amazonka.Redshift.AuthorizeClusterSecurityGroupIngress+-- Copyright : (c) 2013-2023 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Adds an inbound (ingress) rule to an Amazon Redshift security group.+-- Depending on whether the application accessing your cluster is running+-- on the Internet or an Amazon EC2 instance, you can authorize inbound+-- access to either a Classless Interdomain Routing (CIDR)\/Internet+-- Protocol (IP) range or to an Amazon EC2 security group. You can add as+-- many as 20 ingress rules to an Amazon Redshift security group.+--+-- If you authorize access to an Amazon EC2 security group, specify+-- /EC2SecurityGroupName/ and /EC2SecurityGroupOwnerId/. The Amazon EC2+-- security group and Amazon Redshift cluster must be in the same Amazon+-- Web Services Region.+--+-- If you authorize access to a CIDR\/IP address range, specify /CIDRIP/.+-- For an overview of CIDR blocks, see the Wikipedia article on+-- <http://en.wikipedia.org/wiki/Classless_Inter-Domain_Routing Classless Inter-Domain Routing>.+--+-- You must also associate the security group with a cluster so that+-- clients running on these IP addresses or the EC2 instance are authorized+-- to connect to the cluster. For information about managing security+-- groups, go to+-- <https://docs.aws.amazon.com/redshift/latest/mgmt/working-with-security-groups.html Working with Security Groups>+-- in the /Amazon Redshift Cluster Management Guide/.+module Amazonka.Redshift.AuthorizeClusterSecurityGroupIngress+ ( -- * Creating a Request+ AuthorizeClusterSecurityGroupIngress (..),+ newAuthorizeClusterSecurityGroupIngress,++ -- * Request Lenses+ authorizeClusterSecurityGroupIngress_cidrip,+ authorizeClusterSecurityGroupIngress_eC2SecurityGroupName,+ authorizeClusterSecurityGroupIngress_eC2SecurityGroupOwnerId,+ authorizeClusterSecurityGroupIngress_clusterSecurityGroupName,++ -- * Destructuring the Response+ AuthorizeClusterSecurityGroupIngressResponse (..),+ newAuthorizeClusterSecurityGroupIngressResponse,++ -- * Response Lenses+ authorizeClusterSecurityGroupIngressResponse_clusterSecurityGroup,+ authorizeClusterSecurityGroupIngressResponse_httpStatus,+ )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Redshift.Types+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- |+--+-- /See:/ 'newAuthorizeClusterSecurityGroupIngress' smart constructor.+data AuthorizeClusterSecurityGroupIngress = AuthorizeClusterSecurityGroupIngress'+ { -- | The IP range to be added the Amazon Redshift security group.+ cidrip :: Prelude.Maybe Prelude.Text,+ -- | The EC2 security group to be added the Amazon Redshift security group.+ eC2SecurityGroupName :: Prelude.Maybe Prelude.Text,+ -- | The Amazon Web Services account number of the owner of the security+ -- group specified by the /EC2SecurityGroupName/ parameter. The Amazon Web+ -- Services Access Key ID is not an acceptable value.+ --+ -- Example: @111122223333@+ eC2SecurityGroupOwnerId :: Prelude.Maybe Prelude.Text,+ -- | The name of the security group to which the ingress rule is added.+ clusterSecurityGroupName :: Prelude.Text+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'AuthorizeClusterSecurityGroupIngress' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'cidrip', 'authorizeClusterSecurityGroupIngress_cidrip' - The IP range to be added the Amazon Redshift security group.+--+-- 'eC2SecurityGroupName', 'authorizeClusterSecurityGroupIngress_eC2SecurityGroupName' - The EC2 security group to be added the Amazon Redshift security group.+--+-- 'eC2SecurityGroupOwnerId', 'authorizeClusterSecurityGroupIngress_eC2SecurityGroupOwnerId' - The Amazon Web Services account number of the owner of the security+-- group specified by the /EC2SecurityGroupName/ parameter. The Amazon Web+-- Services Access Key ID is not an acceptable value.+--+-- Example: @111122223333@+--+-- 'clusterSecurityGroupName', 'authorizeClusterSecurityGroupIngress_clusterSecurityGroupName' - The name of the security group to which the ingress rule is added.+newAuthorizeClusterSecurityGroupIngress ::+ -- | 'clusterSecurityGroupName'+ Prelude.Text ->+ AuthorizeClusterSecurityGroupIngress+newAuthorizeClusterSecurityGroupIngress+ pClusterSecurityGroupName_ =+ AuthorizeClusterSecurityGroupIngress'+ { cidrip =+ Prelude.Nothing,+ eC2SecurityGroupName =+ Prelude.Nothing,+ eC2SecurityGroupOwnerId =+ Prelude.Nothing,+ clusterSecurityGroupName =+ pClusterSecurityGroupName_+ }++-- | The IP range to be added the Amazon Redshift security group.+authorizeClusterSecurityGroupIngress_cidrip :: Lens.Lens' AuthorizeClusterSecurityGroupIngress (Prelude.Maybe Prelude.Text)+authorizeClusterSecurityGroupIngress_cidrip = Lens.lens (\AuthorizeClusterSecurityGroupIngress' {cidrip} -> cidrip) (\s@AuthorizeClusterSecurityGroupIngress' {} a -> s {cidrip = a} :: AuthorizeClusterSecurityGroupIngress)++-- | The EC2 security group to be added the Amazon Redshift security group.+authorizeClusterSecurityGroupIngress_eC2SecurityGroupName :: Lens.Lens' AuthorizeClusterSecurityGroupIngress (Prelude.Maybe Prelude.Text)+authorizeClusterSecurityGroupIngress_eC2SecurityGroupName = Lens.lens (\AuthorizeClusterSecurityGroupIngress' {eC2SecurityGroupName} -> eC2SecurityGroupName) (\s@AuthorizeClusterSecurityGroupIngress' {} a -> s {eC2SecurityGroupName = a} :: AuthorizeClusterSecurityGroupIngress)++-- | The Amazon Web Services account number of the owner of the security+-- group specified by the /EC2SecurityGroupName/ parameter. The Amazon Web+-- Services Access Key ID is not an acceptable value.+--+-- Example: @111122223333@+authorizeClusterSecurityGroupIngress_eC2SecurityGroupOwnerId :: Lens.Lens' AuthorizeClusterSecurityGroupIngress (Prelude.Maybe Prelude.Text)+authorizeClusterSecurityGroupIngress_eC2SecurityGroupOwnerId = Lens.lens (\AuthorizeClusterSecurityGroupIngress' {eC2SecurityGroupOwnerId} -> eC2SecurityGroupOwnerId) (\s@AuthorizeClusterSecurityGroupIngress' {} a -> s {eC2SecurityGroupOwnerId = a} :: AuthorizeClusterSecurityGroupIngress)++-- | The name of the security group to which the ingress rule is added.+authorizeClusterSecurityGroupIngress_clusterSecurityGroupName :: Lens.Lens' AuthorizeClusterSecurityGroupIngress Prelude.Text+authorizeClusterSecurityGroupIngress_clusterSecurityGroupName = Lens.lens (\AuthorizeClusterSecurityGroupIngress' {clusterSecurityGroupName} -> clusterSecurityGroupName) (\s@AuthorizeClusterSecurityGroupIngress' {} a -> s {clusterSecurityGroupName = a} :: AuthorizeClusterSecurityGroupIngress)++instance+ Core.AWSRequest+ AuthorizeClusterSecurityGroupIngress+ where+ type+ AWSResponse AuthorizeClusterSecurityGroupIngress =+ AuthorizeClusterSecurityGroupIngressResponse+ request overrides =+ Request.postQuery (overrides defaultService)+ response =+ Response.receiveXMLWrapper+ "AuthorizeClusterSecurityGroupIngressResult"+ ( \s h x ->+ AuthorizeClusterSecurityGroupIngressResponse'+ Prelude.<$> (x Data..@? "ClusterSecurityGroup")+ Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+ )++instance+ Prelude.Hashable+ AuthorizeClusterSecurityGroupIngress+ where+ hashWithSalt+ _salt+ AuthorizeClusterSecurityGroupIngress' {..} =+ _salt+ `Prelude.hashWithSalt` cidrip+ `Prelude.hashWithSalt` eC2SecurityGroupName+ `Prelude.hashWithSalt` eC2SecurityGroupOwnerId+ `Prelude.hashWithSalt` clusterSecurityGroupName++instance+ Prelude.NFData+ AuthorizeClusterSecurityGroupIngress+ where+ rnf AuthorizeClusterSecurityGroupIngress' {..} =+ Prelude.rnf cidrip+ `Prelude.seq` Prelude.rnf eC2SecurityGroupName+ `Prelude.seq` Prelude.rnf eC2SecurityGroupOwnerId+ `Prelude.seq` Prelude.rnf clusterSecurityGroupName++instance+ Data.ToHeaders+ AuthorizeClusterSecurityGroupIngress+ where+ toHeaders = Prelude.const Prelude.mempty++instance+ Data.ToPath+ AuthorizeClusterSecurityGroupIngress+ where+ toPath = Prelude.const "/"++instance+ Data.ToQuery+ AuthorizeClusterSecurityGroupIngress+ where+ toQuery AuthorizeClusterSecurityGroupIngress' {..} =+ Prelude.mconcat+ [ "Action"+ Data.=: ( "AuthorizeClusterSecurityGroupIngress" ::+ Prelude.ByteString+ ),+ "Version"+ Data.=: ("2012-12-01" :: Prelude.ByteString),+ "CIDRIP" Data.=: cidrip,+ "EC2SecurityGroupName" Data.=: eC2SecurityGroupName,+ "EC2SecurityGroupOwnerId"+ Data.=: eC2SecurityGroupOwnerId,+ "ClusterSecurityGroupName"+ Data.=: clusterSecurityGroupName+ ]++-- | /See:/ 'newAuthorizeClusterSecurityGroupIngressResponse' smart constructor.+data AuthorizeClusterSecurityGroupIngressResponse = AuthorizeClusterSecurityGroupIngressResponse'+ { clusterSecurityGroup :: Prelude.Maybe ClusterSecurityGroup,+ -- | The response's http status code.+ httpStatus :: Prelude.Int+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'AuthorizeClusterSecurityGroupIngressResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'clusterSecurityGroup', 'authorizeClusterSecurityGroupIngressResponse_clusterSecurityGroup' - Undocumented member.+--+-- 'httpStatus', 'authorizeClusterSecurityGroupIngressResponse_httpStatus' - The response's http status code.+newAuthorizeClusterSecurityGroupIngressResponse ::+ -- | 'httpStatus'+ Prelude.Int ->+ AuthorizeClusterSecurityGroupIngressResponse+newAuthorizeClusterSecurityGroupIngressResponse+ pHttpStatus_ =+ AuthorizeClusterSecurityGroupIngressResponse'+ { clusterSecurityGroup =+ Prelude.Nothing,+ httpStatus = pHttpStatus_+ }++-- | Undocumented member.+authorizeClusterSecurityGroupIngressResponse_clusterSecurityGroup :: Lens.Lens' AuthorizeClusterSecurityGroupIngressResponse (Prelude.Maybe ClusterSecurityGroup)+authorizeClusterSecurityGroupIngressResponse_clusterSecurityGroup = Lens.lens (\AuthorizeClusterSecurityGroupIngressResponse' {clusterSecurityGroup} -> clusterSecurityGroup) (\s@AuthorizeClusterSecurityGroupIngressResponse' {} a -> s {clusterSecurityGroup = a} :: AuthorizeClusterSecurityGroupIngressResponse)++-- | The response's http status code.+authorizeClusterSecurityGroupIngressResponse_httpStatus :: Lens.Lens' AuthorizeClusterSecurityGroupIngressResponse Prelude.Int+authorizeClusterSecurityGroupIngressResponse_httpStatus = Lens.lens (\AuthorizeClusterSecurityGroupIngressResponse' {httpStatus} -> httpStatus) (\s@AuthorizeClusterSecurityGroupIngressResponse' {} a -> s {httpStatus = a} :: AuthorizeClusterSecurityGroupIngressResponse)++instance+ Prelude.NFData+ AuthorizeClusterSecurityGroupIngressResponse+ where+ rnf AuthorizeClusterSecurityGroupIngressResponse' {..} =+ Prelude.rnf clusterSecurityGroup+ `Prelude.seq` Prelude.rnf httpStatus
@@ -0,0 +1,143 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module : Amazonka.Redshift.AuthorizeDataShare+-- Copyright : (c) 2013-2023 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- From a data producer account, authorizes the sharing of a datashare with+-- one or more consumer accounts or managing entities. To authorize a+-- datashare for a data consumer, the producer account must have the+-- correct access permissions.+module Amazonka.Redshift.AuthorizeDataShare+ ( -- * Creating a Request+ AuthorizeDataShare (..),+ newAuthorizeDataShare,++ -- * Request Lenses+ authorizeDataShare_dataShareArn,+ authorizeDataShare_consumerIdentifier,++ -- * Destructuring the Response+ DataShare (..),+ newDataShare,++ -- * Response Lenses+ dataShare_allowPubliclyAccessibleConsumers,+ dataShare_dataShareArn,+ dataShare_dataShareAssociations,+ dataShare_managedBy,+ dataShare_producerArn,+ )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Redshift.Types+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newAuthorizeDataShare' smart constructor.+data AuthorizeDataShare = AuthorizeDataShare'+ { -- | The Amazon Resource Name (ARN) of the datashare that producers are to+ -- authorize sharing for.+ dataShareArn :: Prelude.Text,+ -- | The identifier of the data consumer that is authorized to access the+ -- datashare. This identifier is an Amazon Web Services account ID or a+ -- keyword, such as ADX.+ consumerIdentifier :: Prelude.Text+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'AuthorizeDataShare' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'dataShareArn', 'authorizeDataShare_dataShareArn' - The Amazon Resource Name (ARN) of the datashare that producers are to+-- authorize sharing for.+--+-- 'consumerIdentifier', 'authorizeDataShare_consumerIdentifier' - The identifier of the data consumer that is authorized to access the+-- datashare. This identifier is an Amazon Web Services account ID or a+-- keyword, such as ADX.+newAuthorizeDataShare ::+ -- | 'dataShareArn'+ Prelude.Text ->+ -- | 'consumerIdentifier'+ Prelude.Text ->+ AuthorizeDataShare+newAuthorizeDataShare+ pDataShareArn_+ pConsumerIdentifier_ =+ AuthorizeDataShare'+ { dataShareArn = pDataShareArn_,+ consumerIdentifier = pConsumerIdentifier_+ }++-- | The Amazon Resource Name (ARN) of the datashare that producers are to+-- authorize sharing for.+authorizeDataShare_dataShareArn :: Lens.Lens' AuthorizeDataShare Prelude.Text+authorizeDataShare_dataShareArn = Lens.lens (\AuthorizeDataShare' {dataShareArn} -> dataShareArn) (\s@AuthorizeDataShare' {} a -> s {dataShareArn = a} :: AuthorizeDataShare)++-- | The identifier of the data consumer that is authorized to access the+-- datashare. This identifier is an Amazon Web Services account ID or a+-- keyword, such as ADX.+authorizeDataShare_consumerIdentifier :: Lens.Lens' AuthorizeDataShare Prelude.Text+authorizeDataShare_consumerIdentifier = Lens.lens (\AuthorizeDataShare' {consumerIdentifier} -> consumerIdentifier) (\s@AuthorizeDataShare' {} a -> s {consumerIdentifier = a} :: AuthorizeDataShare)++instance Core.AWSRequest AuthorizeDataShare where+ type AWSResponse AuthorizeDataShare = DataShare+ request overrides =+ Request.postQuery (overrides defaultService)+ response =+ Response.receiveXMLWrapper+ "AuthorizeDataShareResult"+ (\s h x -> Data.parseXML x)++instance Prelude.Hashable AuthorizeDataShare where+ hashWithSalt _salt AuthorizeDataShare' {..} =+ _salt+ `Prelude.hashWithSalt` dataShareArn+ `Prelude.hashWithSalt` consumerIdentifier++instance Prelude.NFData AuthorizeDataShare where+ rnf AuthorizeDataShare' {..} =+ Prelude.rnf dataShareArn+ `Prelude.seq` Prelude.rnf consumerIdentifier++instance Data.ToHeaders AuthorizeDataShare where+ toHeaders = Prelude.const Prelude.mempty++instance Data.ToPath AuthorizeDataShare where+ toPath = Prelude.const "/"++instance Data.ToQuery AuthorizeDataShare where+ toQuery AuthorizeDataShare' {..} =+ Prelude.mconcat+ [ "Action"+ Data.=: ("AuthorizeDataShare" :: Prelude.ByteString),+ "Version"+ Data.=: ("2012-12-01" :: Prelude.ByteString),+ "DataShareArn" Data.=: dataShareArn,+ "ConsumerIdentifier" Data.=: consumerIdentifier+ ]
+ gen/Amazonka/Redshift/AuthorizeEndpointAccess.hs view
@@ -0,0 +1,151 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module : Amazonka.Redshift.AuthorizeEndpointAccess+-- Copyright : (c) 2013-2023 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Grants access to a cluster.+module Amazonka.Redshift.AuthorizeEndpointAccess+ ( -- * Creating a Request+ AuthorizeEndpointAccess (..),+ newAuthorizeEndpointAccess,++ -- * Request Lenses+ authorizeEndpointAccess_clusterIdentifier,+ authorizeEndpointAccess_vpcIds,+ authorizeEndpointAccess_account,++ -- * Destructuring the Response+ EndpointAuthorization (..),+ newEndpointAuthorization,++ -- * Response Lenses+ endpointAuthorization_allowedAllVPCs,+ endpointAuthorization_allowedVPCs,+ endpointAuthorization_authorizeTime,+ endpointAuthorization_clusterIdentifier,+ endpointAuthorization_clusterStatus,+ endpointAuthorization_endpointCount,+ endpointAuthorization_grantee,+ endpointAuthorization_grantor,+ endpointAuthorization_status,+ )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Redshift.Types+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newAuthorizeEndpointAccess' smart constructor.+data AuthorizeEndpointAccess = AuthorizeEndpointAccess'+ { -- | The cluster identifier of the cluster to grant access to.+ clusterIdentifier :: Prelude.Maybe Prelude.Text,+ -- | The virtual private cloud (VPC) identifiers to grant access to.+ vpcIds :: Prelude.Maybe [Prelude.Text],+ -- | The Amazon Web Services account ID to grant access to.+ account :: Prelude.Text+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'AuthorizeEndpointAccess' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'clusterIdentifier', 'authorizeEndpointAccess_clusterIdentifier' - The cluster identifier of the cluster to grant access to.+--+-- 'vpcIds', 'authorizeEndpointAccess_vpcIds' - The virtual private cloud (VPC) identifiers to grant access to.+--+-- 'account', 'authorizeEndpointAccess_account' - The Amazon Web Services account ID to grant access to.+newAuthorizeEndpointAccess ::+ -- | 'account'+ Prelude.Text ->+ AuthorizeEndpointAccess+newAuthorizeEndpointAccess pAccount_ =+ AuthorizeEndpointAccess'+ { clusterIdentifier =+ Prelude.Nothing,+ vpcIds = Prelude.Nothing,+ account = pAccount_+ }++-- | The cluster identifier of the cluster to grant access to.+authorizeEndpointAccess_clusterIdentifier :: Lens.Lens' AuthorizeEndpointAccess (Prelude.Maybe Prelude.Text)+authorizeEndpointAccess_clusterIdentifier = Lens.lens (\AuthorizeEndpointAccess' {clusterIdentifier} -> clusterIdentifier) (\s@AuthorizeEndpointAccess' {} a -> s {clusterIdentifier = a} :: AuthorizeEndpointAccess)++-- | The virtual private cloud (VPC) identifiers to grant access to.+authorizeEndpointAccess_vpcIds :: Lens.Lens' AuthorizeEndpointAccess (Prelude.Maybe [Prelude.Text])+authorizeEndpointAccess_vpcIds = Lens.lens (\AuthorizeEndpointAccess' {vpcIds} -> vpcIds) (\s@AuthorizeEndpointAccess' {} a -> s {vpcIds = a} :: AuthorizeEndpointAccess) Prelude.. Lens.mapping Lens.coerced++-- | The Amazon Web Services account ID to grant access to.+authorizeEndpointAccess_account :: Lens.Lens' AuthorizeEndpointAccess Prelude.Text+authorizeEndpointAccess_account = Lens.lens (\AuthorizeEndpointAccess' {account} -> account) (\s@AuthorizeEndpointAccess' {} a -> s {account = a} :: AuthorizeEndpointAccess)++instance Core.AWSRequest AuthorizeEndpointAccess where+ type+ AWSResponse AuthorizeEndpointAccess =+ EndpointAuthorization+ request overrides =+ Request.postQuery (overrides defaultService)+ response =+ Response.receiveXMLWrapper+ "AuthorizeEndpointAccessResult"+ (\s h x -> Data.parseXML x)++instance Prelude.Hashable AuthorizeEndpointAccess where+ hashWithSalt _salt AuthorizeEndpointAccess' {..} =+ _salt+ `Prelude.hashWithSalt` clusterIdentifier+ `Prelude.hashWithSalt` vpcIds+ `Prelude.hashWithSalt` account++instance Prelude.NFData AuthorizeEndpointAccess where+ rnf AuthorizeEndpointAccess' {..} =+ Prelude.rnf clusterIdentifier+ `Prelude.seq` Prelude.rnf vpcIds+ `Prelude.seq` Prelude.rnf account++instance Data.ToHeaders AuthorizeEndpointAccess where+ toHeaders = Prelude.const Prelude.mempty++instance Data.ToPath AuthorizeEndpointAccess where+ toPath = Prelude.const "/"++instance Data.ToQuery AuthorizeEndpointAccess where+ toQuery AuthorizeEndpointAccess' {..} =+ Prelude.mconcat+ [ "Action"+ Data.=: ("AuthorizeEndpointAccess" :: Prelude.ByteString),+ "Version"+ Data.=: ("2012-12-01" :: Prelude.ByteString),+ "ClusterIdentifier" Data.=: clusterIdentifier,+ "VpcIds"+ Data.=: Data.toQuery+ ( Data.toQueryList "VpcIdentifier"+ Prelude.<$> vpcIds+ ),+ "Account" Data.=: account+ ]
+ gen/Amazonka/Redshift/AuthorizeSnapshotAccess.hs view
@@ -0,0 +1,234 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module : Amazonka.Redshift.AuthorizeSnapshotAccess+-- Copyright : (c) 2013-2023 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Authorizes the specified Amazon Web Services account to restore the+-- specified snapshot.+--+-- For more information about working with snapshots, go to+-- <https://docs.aws.amazon.com/redshift/latest/mgmt/working-with-snapshots.html Amazon Redshift Snapshots>+-- in the /Amazon Redshift Cluster Management Guide/.+module Amazonka.Redshift.AuthorizeSnapshotAccess+ ( -- * Creating a Request+ AuthorizeSnapshotAccess (..),+ newAuthorizeSnapshotAccess,++ -- * Request Lenses+ authorizeSnapshotAccess_snapshotArn,+ authorizeSnapshotAccess_snapshotClusterIdentifier,+ authorizeSnapshotAccess_snapshotIdentifier,+ authorizeSnapshotAccess_accountWithRestoreAccess,++ -- * Destructuring the Response+ AuthorizeSnapshotAccessResponse (..),+ newAuthorizeSnapshotAccessResponse,++ -- * Response Lenses+ authorizeSnapshotAccessResponse_snapshot,+ authorizeSnapshotAccessResponse_httpStatus,+ )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Redshift.Types+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- |+--+-- /See:/ 'newAuthorizeSnapshotAccess' smart constructor.+data AuthorizeSnapshotAccess = AuthorizeSnapshotAccess'+ { -- | The Amazon Resource Name (ARN) of the snapshot to authorize access to.+ snapshotArn :: Prelude.Maybe Prelude.Text,+ -- | The identifier of the cluster the snapshot was created from. This+ -- parameter is required if your IAM user has a policy containing a+ -- snapshot resource element that specifies anything other than * for the+ -- cluster name.+ snapshotClusterIdentifier :: Prelude.Maybe Prelude.Text,+ -- | The identifier of the snapshot the account is authorized to restore.+ snapshotIdentifier :: Prelude.Maybe Prelude.Text,+ -- | The identifier of the Amazon Web Services account authorized to restore+ -- the specified snapshot.+ --+ -- To share a snapshot with Amazon Web Services Support, specify+ -- amazon-redshift-support.+ accountWithRestoreAccess :: Prelude.Text+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'AuthorizeSnapshotAccess' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'snapshotArn', 'authorizeSnapshotAccess_snapshotArn' - The Amazon Resource Name (ARN) of the snapshot to authorize access to.+--+-- 'snapshotClusterIdentifier', 'authorizeSnapshotAccess_snapshotClusterIdentifier' - The identifier of the cluster the snapshot was created from. This+-- parameter is required if your IAM user has a policy containing a+-- snapshot resource element that specifies anything other than * for the+-- cluster name.+--+-- 'snapshotIdentifier', 'authorizeSnapshotAccess_snapshotIdentifier' - The identifier of the snapshot the account is authorized to restore.+--+-- 'accountWithRestoreAccess', 'authorizeSnapshotAccess_accountWithRestoreAccess' - The identifier of the Amazon Web Services account authorized to restore+-- the specified snapshot.+--+-- To share a snapshot with Amazon Web Services Support, specify+-- amazon-redshift-support.+newAuthorizeSnapshotAccess ::+ -- | 'accountWithRestoreAccess'+ Prelude.Text ->+ AuthorizeSnapshotAccess+newAuthorizeSnapshotAccess pAccountWithRestoreAccess_ =+ AuthorizeSnapshotAccess'+ { snapshotArn =+ Prelude.Nothing,+ snapshotClusterIdentifier = Prelude.Nothing,+ snapshotIdentifier = Prelude.Nothing,+ accountWithRestoreAccess =+ pAccountWithRestoreAccess_+ }++-- | The Amazon Resource Name (ARN) of the snapshot to authorize access to.+authorizeSnapshotAccess_snapshotArn :: Lens.Lens' AuthorizeSnapshotAccess (Prelude.Maybe Prelude.Text)+authorizeSnapshotAccess_snapshotArn = Lens.lens (\AuthorizeSnapshotAccess' {snapshotArn} -> snapshotArn) (\s@AuthorizeSnapshotAccess' {} a -> s {snapshotArn = a} :: AuthorizeSnapshotAccess)++-- | The identifier of the cluster the snapshot was created from. This+-- parameter is required if your IAM user has a policy containing a+-- snapshot resource element that specifies anything other than * for the+-- cluster name.+authorizeSnapshotAccess_snapshotClusterIdentifier :: Lens.Lens' AuthorizeSnapshotAccess (Prelude.Maybe Prelude.Text)+authorizeSnapshotAccess_snapshotClusterIdentifier = Lens.lens (\AuthorizeSnapshotAccess' {snapshotClusterIdentifier} -> snapshotClusterIdentifier) (\s@AuthorizeSnapshotAccess' {} a -> s {snapshotClusterIdentifier = a} :: AuthorizeSnapshotAccess)++-- | The identifier of the snapshot the account is authorized to restore.+authorizeSnapshotAccess_snapshotIdentifier :: Lens.Lens' AuthorizeSnapshotAccess (Prelude.Maybe Prelude.Text)+authorizeSnapshotAccess_snapshotIdentifier = Lens.lens (\AuthorizeSnapshotAccess' {snapshotIdentifier} -> snapshotIdentifier) (\s@AuthorizeSnapshotAccess' {} a -> s {snapshotIdentifier = a} :: AuthorizeSnapshotAccess)++-- | The identifier of the Amazon Web Services account authorized to restore+-- the specified snapshot.+--+-- To share a snapshot with Amazon Web Services Support, specify+-- amazon-redshift-support.+authorizeSnapshotAccess_accountWithRestoreAccess :: Lens.Lens' AuthorizeSnapshotAccess Prelude.Text+authorizeSnapshotAccess_accountWithRestoreAccess = Lens.lens (\AuthorizeSnapshotAccess' {accountWithRestoreAccess} -> accountWithRestoreAccess) (\s@AuthorizeSnapshotAccess' {} a -> s {accountWithRestoreAccess = a} :: AuthorizeSnapshotAccess)++instance Core.AWSRequest AuthorizeSnapshotAccess where+ type+ AWSResponse AuthorizeSnapshotAccess =+ AuthorizeSnapshotAccessResponse+ request overrides =+ Request.postQuery (overrides defaultService)+ response =+ Response.receiveXMLWrapper+ "AuthorizeSnapshotAccessResult"+ ( \s h x ->+ AuthorizeSnapshotAccessResponse'+ Prelude.<$> (x Data..@? "Snapshot")+ Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+ )++instance Prelude.Hashable AuthorizeSnapshotAccess where+ hashWithSalt _salt AuthorizeSnapshotAccess' {..} =+ _salt+ `Prelude.hashWithSalt` snapshotArn+ `Prelude.hashWithSalt` snapshotClusterIdentifier+ `Prelude.hashWithSalt` snapshotIdentifier+ `Prelude.hashWithSalt` accountWithRestoreAccess++instance Prelude.NFData AuthorizeSnapshotAccess where+ rnf AuthorizeSnapshotAccess' {..} =+ Prelude.rnf snapshotArn+ `Prelude.seq` Prelude.rnf snapshotClusterIdentifier+ `Prelude.seq` Prelude.rnf snapshotIdentifier+ `Prelude.seq` Prelude.rnf accountWithRestoreAccess++instance Data.ToHeaders AuthorizeSnapshotAccess where+ toHeaders = Prelude.const Prelude.mempty++instance Data.ToPath AuthorizeSnapshotAccess where+ toPath = Prelude.const "/"++instance Data.ToQuery AuthorizeSnapshotAccess where+ toQuery AuthorizeSnapshotAccess' {..} =+ Prelude.mconcat+ [ "Action"+ Data.=: ("AuthorizeSnapshotAccess" :: Prelude.ByteString),+ "Version"+ Data.=: ("2012-12-01" :: Prelude.ByteString),+ "SnapshotArn" Data.=: snapshotArn,+ "SnapshotClusterIdentifier"+ Data.=: snapshotClusterIdentifier,+ "SnapshotIdentifier" Data.=: snapshotIdentifier,+ "AccountWithRestoreAccess"+ Data.=: accountWithRestoreAccess+ ]++-- | /See:/ 'newAuthorizeSnapshotAccessResponse' smart constructor.+data AuthorizeSnapshotAccessResponse = AuthorizeSnapshotAccessResponse'+ { snapshot :: Prelude.Maybe Snapshot,+ -- | The response's http status code.+ httpStatus :: Prelude.Int+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'AuthorizeSnapshotAccessResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'snapshot', 'authorizeSnapshotAccessResponse_snapshot' - Undocumented member.+--+-- 'httpStatus', 'authorizeSnapshotAccessResponse_httpStatus' - The response's http status code.+newAuthorizeSnapshotAccessResponse ::+ -- | 'httpStatus'+ Prelude.Int ->+ AuthorizeSnapshotAccessResponse+newAuthorizeSnapshotAccessResponse pHttpStatus_ =+ AuthorizeSnapshotAccessResponse'+ { snapshot =+ Prelude.Nothing,+ httpStatus = pHttpStatus_+ }++-- | Undocumented member.+authorizeSnapshotAccessResponse_snapshot :: Lens.Lens' AuthorizeSnapshotAccessResponse (Prelude.Maybe Snapshot)+authorizeSnapshotAccessResponse_snapshot = Lens.lens (\AuthorizeSnapshotAccessResponse' {snapshot} -> snapshot) (\s@AuthorizeSnapshotAccessResponse' {} a -> s {snapshot = a} :: AuthorizeSnapshotAccessResponse)++-- | The response's http status code.+authorizeSnapshotAccessResponse_httpStatus :: Lens.Lens' AuthorizeSnapshotAccessResponse Prelude.Int+authorizeSnapshotAccessResponse_httpStatus = Lens.lens (\AuthorizeSnapshotAccessResponse' {httpStatus} -> httpStatus) (\s@AuthorizeSnapshotAccessResponse' {} a -> s {httpStatus = a} :: AuthorizeSnapshotAccessResponse)++instance+ Prelude.NFData+ AuthorizeSnapshotAccessResponse+ where+ rnf AuthorizeSnapshotAccessResponse' {..} =+ Prelude.rnf snapshot+ `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/Redshift/BatchDeleteClusterSnapshots.hs view
@@ -0,0 +1,187 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module : Amazonka.Redshift.BatchDeleteClusterSnapshots+-- Copyright : (c) 2013-2023 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Deletes a set of cluster snapshots.+module Amazonka.Redshift.BatchDeleteClusterSnapshots+ ( -- * Creating a Request+ BatchDeleteClusterSnapshots (..),+ newBatchDeleteClusterSnapshots,++ -- * Request Lenses+ batchDeleteClusterSnapshots_identifiers,++ -- * Destructuring the Response+ BatchDeleteClusterSnapshotsResponse (..),+ newBatchDeleteClusterSnapshotsResponse,++ -- * Response Lenses+ batchDeleteClusterSnapshotsResponse_errors,+ batchDeleteClusterSnapshotsResponse_resources,+ batchDeleteClusterSnapshotsResponse_httpStatus,+ )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Redshift.Types+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newBatchDeleteClusterSnapshots' smart constructor.+data BatchDeleteClusterSnapshots = BatchDeleteClusterSnapshots'+ { -- | A list of identifiers for the snapshots that you want to delete.+ identifiers :: [DeleteClusterSnapshotMessage]+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'BatchDeleteClusterSnapshots' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'identifiers', 'batchDeleteClusterSnapshots_identifiers' - A list of identifiers for the snapshots that you want to delete.+newBatchDeleteClusterSnapshots ::+ BatchDeleteClusterSnapshots+newBatchDeleteClusterSnapshots =+ BatchDeleteClusterSnapshots'+ { identifiers =+ Prelude.mempty+ }++-- | A list of identifiers for the snapshots that you want to delete.+batchDeleteClusterSnapshots_identifiers :: Lens.Lens' BatchDeleteClusterSnapshots [DeleteClusterSnapshotMessage]+batchDeleteClusterSnapshots_identifiers = Lens.lens (\BatchDeleteClusterSnapshots' {identifiers} -> identifiers) (\s@BatchDeleteClusterSnapshots' {} a -> s {identifiers = a} :: BatchDeleteClusterSnapshots) Prelude.. Lens.coerced++instance Core.AWSRequest BatchDeleteClusterSnapshots where+ type+ AWSResponse BatchDeleteClusterSnapshots =+ BatchDeleteClusterSnapshotsResponse+ request overrides =+ Request.postQuery (overrides defaultService)+ response =+ Response.receiveXMLWrapper+ "BatchDeleteClusterSnapshotsResult"+ ( \s h x ->+ BatchDeleteClusterSnapshotsResponse'+ Prelude.<$> ( x+ Data..@? "Errors"+ Core..!@ Prelude.mempty+ Prelude.>>= Core.may (Data.parseXMLList "SnapshotErrorMessage")+ )+ Prelude.<*> ( x+ Data..@? "Resources"+ Core..!@ Prelude.mempty+ Prelude.>>= Core.may (Data.parseXMLList "String")+ )+ Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+ )++instance Prelude.Hashable BatchDeleteClusterSnapshots where+ hashWithSalt _salt BatchDeleteClusterSnapshots' {..} =+ _salt `Prelude.hashWithSalt` identifiers++instance Prelude.NFData BatchDeleteClusterSnapshots where+ rnf BatchDeleteClusterSnapshots' {..} =+ Prelude.rnf identifiers++instance Data.ToHeaders BatchDeleteClusterSnapshots where+ toHeaders = Prelude.const Prelude.mempty++instance Data.ToPath BatchDeleteClusterSnapshots where+ toPath = Prelude.const "/"++instance Data.ToQuery BatchDeleteClusterSnapshots where+ toQuery BatchDeleteClusterSnapshots' {..} =+ Prelude.mconcat+ [ "Action"+ Data.=: ( "BatchDeleteClusterSnapshots" ::+ Prelude.ByteString+ ),+ "Version"+ Data.=: ("2012-12-01" :: Prelude.ByteString),+ "Identifiers"+ Data.=: Data.toQueryList+ "DeleteClusterSnapshotMessage"+ identifiers+ ]++-- | /See:/ 'newBatchDeleteClusterSnapshotsResponse' smart constructor.+data BatchDeleteClusterSnapshotsResponse = BatchDeleteClusterSnapshotsResponse'+ { -- | A list of any errors returned.+ errors :: Prelude.Maybe [SnapshotErrorMessage],+ -- | A list of the snapshot identifiers that were deleted.+ resources :: Prelude.Maybe [Prelude.Text],+ -- | The response's http status code.+ httpStatus :: Prelude.Int+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'BatchDeleteClusterSnapshotsResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'errors', 'batchDeleteClusterSnapshotsResponse_errors' - A list of any errors returned.+--+-- 'resources', 'batchDeleteClusterSnapshotsResponse_resources' - A list of the snapshot identifiers that were deleted.+--+-- 'httpStatus', 'batchDeleteClusterSnapshotsResponse_httpStatus' - The response's http status code.+newBatchDeleteClusterSnapshotsResponse ::+ -- | 'httpStatus'+ Prelude.Int ->+ BatchDeleteClusterSnapshotsResponse+newBatchDeleteClusterSnapshotsResponse pHttpStatus_ =+ BatchDeleteClusterSnapshotsResponse'+ { errors =+ Prelude.Nothing,+ resources = Prelude.Nothing,+ httpStatus = pHttpStatus_+ }++-- | A list of any errors returned.+batchDeleteClusterSnapshotsResponse_errors :: Lens.Lens' BatchDeleteClusterSnapshotsResponse (Prelude.Maybe [SnapshotErrorMessage])+batchDeleteClusterSnapshotsResponse_errors = Lens.lens (\BatchDeleteClusterSnapshotsResponse' {errors} -> errors) (\s@BatchDeleteClusterSnapshotsResponse' {} a -> s {errors = a} :: BatchDeleteClusterSnapshotsResponse) Prelude.. Lens.mapping Lens.coerced++-- | A list of the snapshot identifiers that were deleted.+batchDeleteClusterSnapshotsResponse_resources :: Lens.Lens' BatchDeleteClusterSnapshotsResponse (Prelude.Maybe [Prelude.Text])+batchDeleteClusterSnapshotsResponse_resources = Lens.lens (\BatchDeleteClusterSnapshotsResponse' {resources} -> resources) (\s@BatchDeleteClusterSnapshotsResponse' {} a -> s {resources = a} :: BatchDeleteClusterSnapshotsResponse) Prelude.. Lens.mapping Lens.coerced++-- | The response's http status code.+batchDeleteClusterSnapshotsResponse_httpStatus :: Lens.Lens' BatchDeleteClusterSnapshotsResponse Prelude.Int+batchDeleteClusterSnapshotsResponse_httpStatus = Lens.lens (\BatchDeleteClusterSnapshotsResponse' {httpStatus} -> httpStatus) (\s@BatchDeleteClusterSnapshotsResponse' {} a -> s {httpStatus = a} :: BatchDeleteClusterSnapshotsResponse)++instance+ Prelude.NFData+ BatchDeleteClusterSnapshotsResponse+ where+ rnf BatchDeleteClusterSnapshotsResponse' {..} =+ Prelude.rnf errors+ `Prelude.seq` Prelude.rnf resources+ `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/Redshift/BatchModifyClusterSnapshots.hs view
@@ -0,0 +1,241 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module : Amazonka.Redshift.BatchModifyClusterSnapshots+-- Copyright : (c) 2013-2023 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Modifies the settings for a set of cluster snapshots.+module Amazonka.Redshift.BatchModifyClusterSnapshots+ ( -- * Creating a Request+ BatchModifyClusterSnapshots (..),+ newBatchModifyClusterSnapshots,++ -- * Request Lenses+ batchModifyClusterSnapshots_force,+ batchModifyClusterSnapshots_manualSnapshotRetentionPeriod,+ batchModifyClusterSnapshots_snapshotIdentifierList,++ -- * Destructuring the Response+ BatchModifyClusterSnapshotsResponse (..),+ newBatchModifyClusterSnapshotsResponse,++ -- * Response Lenses+ batchModifyClusterSnapshotsResponse_errors,+ batchModifyClusterSnapshotsResponse_resources,+ batchModifyClusterSnapshotsResponse_httpStatus,+ )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Redshift.Types+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newBatchModifyClusterSnapshots' smart constructor.+data BatchModifyClusterSnapshots = BatchModifyClusterSnapshots'+ { -- | A boolean value indicating whether to override an exception if the+ -- retention period has passed.+ force :: Prelude.Maybe Prelude.Bool,+ -- | The number of days that a manual snapshot is retained. If you specify+ -- the value -1, the manual snapshot is retained indefinitely.+ --+ -- The number must be either -1 or an integer between 1 and 3,653.+ --+ -- If you decrease the manual snapshot retention period from its current+ -- value, existing manual snapshots that fall outside of the new retention+ -- period will return an error. If you want to suppress the errors and+ -- delete the snapshots, use the force option.+ manualSnapshotRetentionPeriod :: Prelude.Maybe Prelude.Int,+ -- | A list of snapshot identifiers you want to modify.+ snapshotIdentifierList :: [Prelude.Text]+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'BatchModifyClusterSnapshots' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'force', 'batchModifyClusterSnapshots_force' - A boolean value indicating whether to override an exception if the+-- retention period has passed.+--+-- 'manualSnapshotRetentionPeriod', 'batchModifyClusterSnapshots_manualSnapshotRetentionPeriod' - The number of days that a manual snapshot is retained. If you specify+-- the value -1, the manual snapshot is retained indefinitely.+--+-- The number must be either -1 or an integer between 1 and 3,653.+--+-- If you decrease the manual snapshot retention period from its current+-- value, existing manual snapshots that fall outside of the new retention+-- period will return an error. If you want to suppress the errors and+-- delete the snapshots, use the force option.+--+-- 'snapshotIdentifierList', 'batchModifyClusterSnapshots_snapshotIdentifierList' - A list of snapshot identifiers you want to modify.+newBatchModifyClusterSnapshots ::+ BatchModifyClusterSnapshots+newBatchModifyClusterSnapshots =+ BatchModifyClusterSnapshots'+ { force =+ Prelude.Nothing,+ manualSnapshotRetentionPeriod =+ Prelude.Nothing,+ snapshotIdentifierList = Prelude.mempty+ }++-- | A boolean value indicating whether to override an exception if the+-- retention period has passed.+batchModifyClusterSnapshots_force :: Lens.Lens' BatchModifyClusterSnapshots (Prelude.Maybe Prelude.Bool)+batchModifyClusterSnapshots_force = Lens.lens (\BatchModifyClusterSnapshots' {force} -> force) (\s@BatchModifyClusterSnapshots' {} a -> s {force = a} :: BatchModifyClusterSnapshots)++-- | The number of days that a manual snapshot is retained. If you specify+-- the value -1, the manual snapshot is retained indefinitely.+--+-- The number must be either -1 or an integer between 1 and 3,653.+--+-- If you decrease the manual snapshot retention period from its current+-- value, existing manual snapshots that fall outside of the new retention+-- period will return an error. If you want to suppress the errors and+-- delete the snapshots, use the force option.+batchModifyClusterSnapshots_manualSnapshotRetentionPeriod :: Lens.Lens' BatchModifyClusterSnapshots (Prelude.Maybe Prelude.Int)+batchModifyClusterSnapshots_manualSnapshotRetentionPeriod = Lens.lens (\BatchModifyClusterSnapshots' {manualSnapshotRetentionPeriod} -> manualSnapshotRetentionPeriod) (\s@BatchModifyClusterSnapshots' {} a -> s {manualSnapshotRetentionPeriod = a} :: BatchModifyClusterSnapshots)++-- | A list of snapshot identifiers you want to modify.+batchModifyClusterSnapshots_snapshotIdentifierList :: Lens.Lens' BatchModifyClusterSnapshots [Prelude.Text]+batchModifyClusterSnapshots_snapshotIdentifierList = Lens.lens (\BatchModifyClusterSnapshots' {snapshotIdentifierList} -> snapshotIdentifierList) (\s@BatchModifyClusterSnapshots' {} a -> s {snapshotIdentifierList = a} :: BatchModifyClusterSnapshots) Prelude.. Lens.coerced++instance Core.AWSRequest BatchModifyClusterSnapshots where+ type+ AWSResponse BatchModifyClusterSnapshots =+ BatchModifyClusterSnapshotsResponse+ request overrides =+ Request.postQuery (overrides defaultService)+ response =+ Response.receiveXMLWrapper+ "BatchModifyClusterSnapshotsResult"+ ( \s h x ->+ BatchModifyClusterSnapshotsResponse'+ Prelude.<$> ( x+ Data..@? "Errors"+ Core..!@ Prelude.mempty+ Prelude.>>= Core.may (Data.parseXMLList "SnapshotErrorMessage")+ )+ Prelude.<*> ( x+ Data..@? "Resources"+ Core..!@ Prelude.mempty+ Prelude.>>= Core.may (Data.parseXMLList "String")+ )+ Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+ )++instance Prelude.Hashable BatchModifyClusterSnapshots where+ hashWithSalt _salt BatchModifyClusterSnapshots' {..} =+ _salt+ `Prelude.hashWithSalt` force+ `Prelude.hashWithSalt` manualSnapshotRetentionPeriod+ `Prelude.hashWithSalt` snapshotIdentifierList++instance Prelude.NFData BatchModifyClusterSnapshots where+ rnf BatchModifyClusterSnapshots' {..} =+ Prelude.rnf force+ `Prelude.seq` Prelude.rnf manualSnapshotRetentionPeriod+ `Prelude.seq` Prelude.rnf snapshotIdentifierList++instance Data.ToHeaders BatchModifyClusterSnapshots where+ toHeaders = Prelude.const Prelude.mempty++instance Data.ToPath BatchModifyClusterSnapshots where+ toPath = Prelude.const "/"++instance Data.ToQuery BatchModifyClusterSnapshots where+ toQuery BatchModifyClusterSnapshots' {..} =+ Prelude.mconcat+ [ "Action"+ Data.=: ( "BatchModifyClusterSnapshots" ::+ Prelude.ByteString+ ),+ "Version"+ Data.=: ("2012-12-01" :: Prelude.ByteString),+ "Force" Data.=: force,+ "ManualSnapshotRetentionPeriod"+ Data.=: manualSnapshotRetentionPeriod,+ "SnapshotIdentifierList"+ Data.=: Data.toQueryList "String" snapshotIdentifierList+ ]++-- | /See:/ 'newBatchModifyClusterSnapshotsResponse' smart constructor.+data BatchModifyClusterSnapshotsResponse = BatchModifyClusterSnapshotsResponse'+ { -- | A list of any errors returned.+ errors :: Prelude.Maybe [SnapshotErrorMessage],+ -- | A list of the snapshots that were modified.+ resources :: Prelude.Maybe [Prelude.Text],+ -- | The response's http status code.+ httpStatus :: Prelude.Int+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'BatchModifyClusterSnapshotsResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'errors', 'batchModifyClusterSnapshotsResponse_errors' - A list of any errors returned.+--+-- 'resources', 'batchModifyClusterSnapshotsResponse_resources' - A list of the snapshots that were modified.+--+-- 'httpStatus', 'batchModifyClusterSnapshotsResponse_httpStatus' - The response's http status code.+newBatchModifyClusterSnapshotsResponse ::+ -- | 'httpStatus'+ Prelude.Int ->+ BatchModifyClusterSnapshotsResponse+newBatchModifyClusterSnapshotsResponse pHttpStatus_ =+ BatchModifyClusterSnapshotsResponse'+ { errors =+ Prelude.Nothing,+ resources = Prelude.Nothing,+ httpStatus = pHttpStatus_+ }++-- | A list of any errors returned.+batchModifyClusterSnapshotsResponse_errors :: Lens.Lens' BatchModifyClusterSnapshotsResponse (Prelude.Maybe [SnapshotErrorMessage])+batchModifyClusterSnapshotsResponse_errors = Lens.lens (\BatchModifyClusterSnapshotsResponse' {errors} -> errors) (\s@BatchModifyClusterSnapshotsResponse' {} a -> s {errors = a} :: BatchModifyClusterSnapshotsResponse) Prelude.. Lens.mapping Lens.coerced++-- | A list of the snapshots that were modified.+batchModifyClusterSnapshotsResponse_resources :: Lens.Lens' BatchModifyClusterSnapshotsResponse (Prelude.Maybe [Prelude.Text])+batchModifyClusterSnapshotsResponse_resources = Lens.lens (\BatchModifyClusterSnapshotsResponse' {resources} -> resources) (\s@BatchModifyClusterSnapshotsResponse' {} a -> s {resources = a} :: BatchModifyClusterSnapshotsResponse) Prelude.. Lens.mapping Lens.coerced++-- | The response's http status code.+batchModifyClusterSnapshotsResponse_httpStatus :: Lens.Lens' BatchModifyClusterSnapshotsResponse Prelude.Int+batchModifyClusterSnapshotsResponse_httpStatus = Lens.lens (\BatchModifyClusterSnapshotsResponse' {httpStatus} -> httpStatus) (\s@BatchModifyClusterSnapshotsResponse' {} a -> s {httpStatus = a} :: BatchModifyClusterSnapshotsResponse)++instance+ Prelude.NFData+ BatchModifyClusterSnapshotsResponse+ where+ rnf BatchModifyClusterSnapshotsResponse' {..} =+ Prelude.rnf errors+ `Prelude.seq` Prelude.rnf resources+ `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/Redshift/CancelResize.hs view
@@ -0,0 +1,127 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module : Amazonka.Redshift.CancelResize+-- Copyright : (c) 2013-2023 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Cancels a resize operation for a cluster.+module Amazonka.Redshift.CancelResize+ ( -- * Creating a Request+ CancelResize (..),+ newCancelResize,++ -- * Request Lenses+ cancelResize_clusterIdentifier,++ -- * Destructuring the Response+ ResizeProgressMessage (..),+ newResizeProgressMessage,++ -- * Response Lenses+ resizeProgressMessage_avgResizeRateInMegaBytesPerSecond,+ resizeProgressMessage_dataTransferProgressPercent,+ resizeProgressMessage_elapsedTimeInSeconds,+ resizeProgressMessage_estimatedTimeToCompletionInSeconds,+ resizeProgressMessage_importTablesCompleted,+ resizeProgressMessage_importTablesInProgress,+ resizeProgressMessage_importTablesNotStarted,+ resizeProgressMessage_message,+ resizeProgressMessage_progressInMegaBytes,+ resizeProgressMessage_resizeType,+ resizeProgressMessage_status,+ resizeProgressMessage_targetClusterType,+ resizeProgressMessage_targetEncryptionType,+ resizeProgressMessage_targetNodeType,+ resizeProgressMessage_targetNumberOfNodes,+ resizeProgressMessage_totalResizeDataInMegaBytes,+ )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Redshift.Types+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newCancelResize' smart constructor.+data CancelResize = CancelResize'+ { -- | The unique identifier for the cluster that you want to cancel a resize+ -- operation for.+ clusterIdentifier :: Prelude.Text+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'CancelResize' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'clusterIdentifier', 'cancelResize_clusterIdentifier' - The unique identifier for the cluster that you want to cancel a resize+-- operation for.+newCancelResize ::+ -- | 'clusterIdentifier'+ Prelude.Text ->+ CancelResize+newCancelResize pClusterIdentifier_ =+ CancelResize'+ { clusterIdentifier =+ pClusterIdentifier_+ }++-- | The unique identifier for the cluster that you want to cancel a resize+-- operation for.+cancelResize_clusterIdentifier :: Lens.Lens' CancelResize Prelude.Text+cancelResize_clusterIdentifier = Lens.lens (\CancelResize' {clusterIdentifier} -> clusterIdentifier) (\s@CancelResize' {} a -> s {clusterIdentifier = a} :: CancelResize)++instance Core.AWSRequest CancelResize where+ type AWSResponse CancelResize = ResizeProgressMessage+ request overrides =+ Request.postQuery (overrides defaultService)+ response =+ Response.receiveXMLWrapper+ "CancelResizeResult"+ (\s h x -> Data.parseXML x)++instance Prelude.Hashable CancelResize where+ hashWithSalt _salt CancelResize' {..} =+ _salt `Prelude.hashWithSalt` clusterIdentifier++instance Prelude.NFData CancelResize where+ rnf CancelResize' {..} = Prelude.rnf clusterIdentifier++instance Data.ToHeaders CancelResize where+ toHeaders = Prelude.const Prelude.mempty++instance Data.ToPath CancelResize where+ toPath = Prelude.const "/"++instance Data.ToQuery CancelResize where+ toQuery CancelResize' {..} =+ Prelude.mconcat+ [ "Action"+ Data.=: ("CancelResize" :: Prelude.ByteString),+ "Version"+ Data.=: ("2012-12-01" :: Prelude.ByteString),+ "ClusterIdentifier" Data.=: clusterIdentifier+ ]
+ gen/Amazonka/Redshift/CopyClusterSnapshot.hs view
@@ -0,0 +1,315 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module : Amazonka.Redshift.CopyClusterSnapshot+-- Copyright : (c) 2013-2023 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Copies the specified automated cluster snapshot to a new manual cluster+-- snapshot. The source must be an automated snapshot and it must be in the+-- available state.+--+-- When you delete a cluster, Amazon Redshift deletes any automated+-- snapshots of the cluster. Also, when the retention period of the+-- snapshot expires, Amazon Redshift automatically deletes it. If you want+-- to keep an automated snapshot for a longer period, you can make a manual+-- copy of the snapshot. Manual snapshots are retained until you delete+-- them.+--+-- For more information about working with snapshots, go to+-- <https://docs.aws.amazon.com/redshift/latest/mgmt/working-with-snapshots.html Amazon Redshift Snapshots>+-- in the /Amazon Redshift Cluster Management Guide/.+module Amazonka.Redshift.CopyClusterSnapshot+ ( -- * Creating a Request+ CopyClusterSnapshot (..),+ newCopyClusterSnapshot,++ -- * Request Lenses+ copyClusterSnapshot_manualSnapshotRetentionPeriod,+ copyClusterSnapshot_sourceSnapshotClusterIdentifier,+ copyClusterSnapshot_sourceSnapshotIdentifier,+ copyClusterSnapshot_targetSnapshotIdentifier,++ -- * Destructuring the Response+ CopyClusterSnapshotResponse (..),+ newCopyClusterSnapshotResponse,++ -- * Response Lenses+ copyClusterSnapshotResponse_snapshot,+ copyClusterSnapshotResponse_httpStatus,+ )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Redshift.Types+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- |+--+-- /See:/ 'newCopyClusterSnapshot' smart constructor.+data CopyClusterSnapshot = CopyClusterSnapshot'+ { -- | The number of days that a manual snapshot is retained. If the value is+ -- -1, the manual snapshot is retained indefinitely.+ --+ -- The value must be either -1 or an integer between 1 and 3,653.+ --+ -- The default value is -1.+ manualSnapshotRetentionPeriod :: Prelude.Maybe Prelude.Int,+ -- | The identifier of the cluster the source snapshot was created from. This+ -- parameter is required if your IAM user has a policy containing a+ -- snapshot resource element that specifies anything other than * for the+ -- cluster name.+ --+ -- Constraints:+ --+ -- - Must be the identifier for a valid cluster.+ sourceSnapshotClusterIdentifier :: Prelude.Maybe Prelude.Text,+ -- | The identifier for the source snapshot.+ --+ -- Constraints:+ --+ -- - Must be the identifier for a valid automated snapshot whose state is+ -- @available@.+ sourceSnapshotIdentifier :: Prelude.Text,+ -- | The identifier given to the new manual snapshot.+ --+ -- Constraints:+ --+ -- - Cannot be null, empty, or blank.+ --+ -- - Must contain from 1 to 255 alphanumeric characters or hyphens.+ --+ -- - First character must be a letter.+ --+ -- - Cannot end with a hyphen or contain two consecutive hyphens.+ --+ -- - Must be unique for the Amazon Web Services account that is making+ -- the request.+ targetSnapshotIdentifier :: Prelude.Text+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'CopyClusterSnapshot' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'manualSnapshotRetentionPeriod', 'copyClusterSnapshot_manualSnapshotRetentionPeriod' - The number of days that a manual snapshot is retained. If the value is+-- -1, the manual snapshot is retained indefinitely.+--+-- The value must be either -1 or an integer between 1 and 3,653.+--+-- The default value is -1.+--+-- 'sourceSnapshotClusterIdentifier', 'copyClusterSnapshot_sourceSnapshotClusterIdentifier' - The identifier of the cluster the source snapshot was created from. This+-- parameter is required if your IAM user has a policy containing a+-- snapshot resource element that specifies anything other than * for the+-- cluster name.+--+-- Constraints:+--+-- - Must be the identifier for a valid cluster.+--+-- 'sourceSnapshotIdentifier', 'copyClusterSnapshot_sourceSnapshotIdentifier' - The identifier for the source snapshot.+--+-- Constraints:+--+-- - Must be the identifier for a valid automated snapshot whose state is+-- @available@.+--+-- 'targetSnapshotIdentifier', 'copyClusterSnapshot_targetSnapshotIdentifier' - The identifier given to the new manual snapshot.+--+-- Constraints:+--+-- - Cannot be null, empty, or blank.+--+-- - Must contain from 1 to 255 alphanumeric characters or hyphens.+--+-- - First character must be a letter.+--+-- - Cannot end with a hyphen or contain two consecutive hyphens.+--+-- - Must be unique for the Amazon Web Services account that is making+-- the request.+newCopyClusterSnapshot ::+ -- | 'sourceSnapshotIdentifier'+ Prelude.Text ->+ -- | 'targetSnapshotIdentifier'+ Prelude.Text ->+ CopyClusterSnapshot+newCopyClusterSnapshot+ pSourceSnapshotIdentifier_+ pTargetSnapshotIdentifier_ =+ CopyClusterSnapshot'+ { manualSnapshotRetentionPeriod =+ Prelude.Nothing,+ sourceSnapshotClusterIdentifier = Prelude.Nothing,+ sourceSnapshotIdentifier =+ pSourceSnapshotIdentifier_,+ targetSnapshotIdentifier =+ pTargetSnapshotIdentifier_+ }++-- | The number of days that a manual snapshot is retained. If the value is+-- -1, the manual snapshot is retained indefinitely.+--+-- The value must be either -1 or an integer between 1 and 3,653.+--+-- The default value is -1.+copyClusterSnapshot_manualSnapshotRetentionPeriod :: Lens.Lens' CopyClusterSnapshot (Prelude.Maybe Prelude.Int)+copyClusterSnapshot_manualSnapshotRetentionPeriod = Lens.lens (\CopyClusterSnapshot' {manualSnapshotRetentionPeriod} -> manualSnapshotRetentionPeriod) (\s@CopyClusterSnapshot' {} a -> s {manualSnapshotRetentionPeriod = a} :: CopyClusterSnapshot)++-- | The identifier of the cluster the source snapshot was created from. This+-- parameter is required if your IAM user has a policy containing a+-- snapshot resource element that specifies anything other than * for the+-- cluster name.+--+-- Constraints:+--+-- - Must be the identifier for a valid cluster.+copyClusterSnapshot_sourceSnapshotClusterIdentifier :: Lens.Lens' CopyClusterSnapshot (Prelude.Maybe Prelude.Text)+copyClusterSnapshot_sourceSnapshotClusterIdentifier = Lens.lens (\CopyClusterSnapshot' {sourceSnapshotClusterIdentifier} -> sourceSnapshotClusterIdentifier) (\s@CopyClusterSnapshot' {} a -> s {sourceSnapshotClusterIdentifier = a} :: CopyClusterSnapshot)++-- | The identifier for the source snapshot.+--+-- Constraints:+--+-- - Must be the identifier for a valid automated snapshot whose state is+-- @available@.+copyClusterSnapshot_sourceSnapshotIdentifier :: Lens.Lens' CopyClusterSnapshot Prelude.Text+copyClusterSnapshot_sourceSnapshotIdentifier = Lens.lens (\CopyClusterSnapshot' {sourceSnapshotIdentifier} -> sourceSnapshotIdentifier) (\s@CopyClusterSnapshot' {} a -> s {sourceSnapshotIdentifier = a} :: CopyClusterSnapshot)++-- | The identifier given to the new manual snapshot.+--+-- Constraints:+--+-- - Cannot be null, empty, or blank.+--+-- - Must contain from 1 to 255 alphanumeric characters or hyphens.+--+-- - First character must be a letter.+--+-- - Cannot end with a hyphen or contain two consecutive hyphens.+--+-- - Must be unique for the Amazon Web Services account that is making+-- the request.+copyClusterSnapshot_targetSnapshotIdentifier :: Lens.Lens' CopyClusterSnapshot Prelude.Text+copyClusterSnapshot_targetSnapshotIdentifier = Lens.lens (\CopyClusterSnapshot' {targetSnapshotIdentifier} -> targetSnapshotIdentifier) (\s@CopyClusterSnapshot' {} a -> s {targetSnapshotIdentifier = a} :: CopyClusterSnapshot)++instance Core.AWSRequest CopyClusterSnapshot where+ type+ AWSResponse CopyClusterSnapshot =+ CopyClusterSnapshotResponse+ request overrides =+ Request.postQuery (overrides defaultService)+ response =+ Response.receiveXMLWrapper+ "CopyClusterSnapshotResult"+ ( \s h x ->+ CopyClusterSnapshotResponse'+ Prelude.<$> (x Data..@? "Snapshot")+ Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+ )++instance Prelude.Hashable CopyClusterSnapshot where+ hashWithSalt _salt CopyClusterSnapshot' {..} =+ _salt+ `Prelude.hashWithSalt` manualSnapshotRetentionPeriod+ `Prelude.hashWithSalt` sourceSnapshotClusterIdentifier+ `Prelude.hashWithSalt` sourceSnapshotIdentifier+ `Prelude.hashWithSalt` targetSnapshotIdentifier++instance Prelude.NFData CopyClusterSnapshot where+ rnf CopyClusterSnapshot' {..} =+ Prelude.rnf manualSnapshotRetentionPeriod+ `Prelude.seq` Prelude.rnf sourceSnapshotClusterIdentifier+ `Prelude.seq` Prelude.rnf sourceSnapshotIdentifier+ `Prelude.seq` Prelude.rnf targetSnapshotIdentifier++instance Data.ToHeaders CopyClusterSnapshot where+ toHeaders = Prelude.const Prelude.mempty++instance Data.ToPath CopyClusterSnapshot where+ toPath = Prelude.const "/"++instance Data.ToQuery CopyClusterSnapshot where+ toQuery CopyClusterSnapshot' {..} =+ Prelude.mconcat+ [ "Action"+ Data.=: ("CopyClusterSnapshot" :: Prelude.ByteString),+ "Version"+ Data.=: ("2012-12-01" :: Prelude.ByteString),+ "ManualSnapshotRetentionPeriod"+ Data.=: manualSnapshotRetentionPeriod,+ "SourceSnapshotClusterIdentifier"+ Data.=: sourceSnapshotClusterIdentifier,+ "SourceSnapshotIdentifier"+ Data.=: sourceSnapshotIdentifier,+ "TargetSnapshotIdentifier"+ Data.=: targetSnapshotIdentifier+ ]++-- | /See:/ 'newCopyClusterSnapshotResponse' smart constructor.+data CopyClusterSnapshotResponse = CopyClusterSnapshotResponse'+ { snapshot :: Prelude.Maybe Snapshot,+ -- | The response's http status code.+ httpStatus :: Prelude.Int+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'CopyClusterSnapshotResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'snapshot', 'copyClusterSnapshotResponse_snapshot' - Undocumented member.+--+-- 'httpStatus', 'copyClusterSnapshotResponse_httpStatus' - The response's http status code.+newCopyClusterSnapshotResponse ::+ -- | 'httpStatus'+ Prelude.Int ->+ CopyClusterSnapshotResponse+newCopyClusterSnapshotResponse pHttpStatus_ =+ CopyClusterSnapshotResponse'+ { snapshot =+ Prelude.Nothing,+ httpStatus = pHttpStatus_+ }++-- | Undocumented member.+copyClusterSnapshotResponse_snapshot :: Lens.Lens' CopyClusterSnapshotResponse (Prelude.Maybe Snapshot)+copyClusterSnapshotResponse_snapshot = Lens.lens (\CopyClusterSnapshotResponse' {snapshot} -> snapshot) (\s@CopyClusterSnapshotResponse' {} a -> s {snapshot = a} :: CopyClusterSnapshotResponse)++-- | The response's http status code.+copyClusterSnapshotResponse_httpStatus :: Lens.Lens' CopyClusterSnapshotResponse Prelude.Int+copyClusterSnapshotResponse_httpStatus = Lens.lens (\CopyClusterSnapshotResponse' {httpStatus} -> httpStatus) (\s@CopyClusterSnapshotResponse' {} a -> s {httpStatus = a} :: CopyClusterSnapshotResponse)++instance Prelude.NFData CopyClusterSnapshotResponse where+ rnf CopyClusterSnapshotResponse' {..} =+ Prelude.rnf snapshot+ `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/Redshift/CreateAuthenticationProfile.hs view
@@ -0,0 +1,203 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module : Amazonka.Redshift.CreateAuthenticationProfile+-- Copyright : (c) 2013-2023 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Creates an authentication profile with the specified parameters.+module Amazonka.Redshift.CreateAuthenticationProfile+ ( -- * Creating a Request+ CreateAuthenticationProfile (..),+ newCreateAuthenticationProfile,++ -- * Request Lenses+ createAuthenticationProfile_authenticationProfileName,+ createAuthenticationProfile_authenticationProfileContent,++ -- * Destructuring the Response+ CreateAuthenticationProfileResponse (..),+ newCreateAuthenticationProfileResponse,++ -- * Response Lenses+ createAuthenticationProfileResponse_authenticationProfileContent,+ createAuthenticationProfileResponse_authenticationProfileName,+ createAuthenticationProfileResponse_httpStatus,+ )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Redshift.Types+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newCreateAuthenticationProfile' smart constructor.+data CreateAuthenticationProfile = CreateAuthenticationProfile'+ { -- | The name of the authentication profile to be created.+ authenticationProfileName :: Prelude.Text,+ -- | The content of the authentication profile in JSON format. The maximum+ -- length of the JSON string is determined by a quota for your account.+ authenticationProfileContent :: Prelude.Text+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'CreateAuthenticationProfile' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'authenticationProfileName', 'createAuthenticationProfile_authenticationProfileName' - The name of the authentication profile to be created.+--+-- 'authenticationProfileContent', 'createAuthenticationProfile_authenticationProfileContent' - The content of the authentication profile in JSON format. The maximum+-- length of the JSON string is determined by a quota for your account.+newCreateAuthenticationProfile ::+ -- | 'authenticationProfileName'+ Prelude.Text ->+ -- | 'authenticationProfileContent'+ Prelude.Text ->+ CreateAuthenticationProfile+newCreateAuthenticationProfile+ pAuthenticationProfileName_+ pAuthenticationProfileContent_ =+ CreateAuthenticationProfile'+ { authenticationProfileName =+ pAuthenticationProfileName_,+ authenticationProfileContent =+ pAuthenticationProfileContent_+ }++-- | The name of the authentication profile to be created.+createAuthenticationProfile_authenticationProfileName :: Lens.Lens' CreateAuthenticationProfile Prelude.Text+createAuthenticationProfile_authenticationProfileName = Lens.lens (\CreateAuthenticationProfile' {authenticationProfileName} -> authenticationProfileName) (\s@CreateAuthenticationProfile' {} a -> s {authenticationProfileName = a} :: CreateAuthenticationProfile)++-- | The content of the authentication profile in JSON format. The maximum+-- length of the JSON string is determined by a quota for your account.+createAuthenticationProfile_authenticationProfileContent :: Lens.Lens' CreateAuthenticationProfile Prelude.Text+createAuthenticationProfile_authenticationProfileContent = Lens.lens (\CreateAuthenticationProfile' {authenticationProfileContent} -> authenticationProfileContent) (\s@CreateAuthenticationProfile' {} a -> s {authenticationProfileContent = a} :: CreateAuthenticationProfile)++instance Core.AWSRequest CreateAuthenticationProfile where+ type+ AWSResponse CreateAuthenticationProfile =+ CreateAuthenticationProfileResponse+ request overrides =+ Request.postQuery (overrides defaultService)+ response =+ Response.receiveXMLWrapper+ "CreateAuthenticationProfileResult"+ ( \s h x ->+ CreateAuthenticationProfileResponse'+ Prelude.<$> (x Data..@? "AuthenticationProfileContent")+ Prelude.<*> (x Data..@? "AuthenticationProfileName")+ Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+ )++instance Prelude.Hashable CreateAuthenticationProfile where+ hashWithSalt _salt CreateAuthenticationProfile' {..} =+ _salt+ `Prelude.hashWithSalt` authenticationProfileName+ `Prelude.hashWithSalt` authenticationProfileContent++instance Prelude.NFData CreateAuthenticationProfile where+ rnf CreateAuthenticationProfile' {..} =+ Prelude.rnf authenticationProfileName+ `Prelude.seq` Prelude.rnf authenticationProfileContent++instance Data.ToHeaders CreateAuthenticationProfile where+ toHeaders = Prelude.const Prelude.mempty++instance Data.ToPath CreateAuthenticationProfile where+ toPath = Prelude.const "/"++instance Data.ToQuery CreateAuthenticationProfile where+ toQuery CreateAuthenticationProfile' {..} =+ Prelude.mconcat+ [ "Action"+ Data.=: ( "CreateAuthenticationProfile" ::+ Prelude.ByteString+ ),+ "Version"+ Data.=: ("2012-12-01" :: Prelude.ByteString),+ "AuthenticationProfileName"+ Data.=: authenticationProfileName,+ "AuthenticationProfileContent"+ Data.=: authenticationProfileContent+ ]++-- | /See:/ 'newCreateAuthenticationProfileResponse' smart constructor.+data CreateAuthenticationProfileResponse = CreateAuthenticationProfileResponse'+ { -- | The content of the authentication profile in JSON format.+ authenticationProfileContent :: Prelude.Maybe Prelude.Text,+ -- | The name of the authentication profile that was created.+ authenticationProfileName :: Prelude.Maybe Prelude.Text,+ -- | The response's http status code.+ httpStatus :: Prelude.Int+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'CreateAuthenticationProfileResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'authenticationProfileContent', 'createAuthenticationProfileResponse_authenticationProfileContent' - The content of the authentication profile in JSON format.+--+-- 'authenticationProfileName', 'createAuthenticationProfileResponse_authenticationProfileName' - The name of the authentication profile that was created.+--+-- 'httpStatus', 'createAuthenticationProfileResponse_httpStatus' - The response's http status code.+newCreateAuthenticationProfileResponse ::+ -- | 'httpStatus'+ Prelude.Int ->+ CreateAuthenticationProfileResponse+newCreateAuthenticationProfileResponse pHttpStatus_ =+ CreateAuthenticationProfileResponse'+ { authenticationProfileContent =+ Prelude.Nothing,+ authenticationProfileName =+ Prelude.Nothing,+ httpStatus = pHttpStatus_+ }++-- | The content of the authentication profile in JSON format.+createAuthenticationProfileResponse_authenticationProfileContent :: Lens.Lens' CreateAuthenticationProfileResponse (Prelude.Maybe Prelude.Text)+createAuthenticationProfileResponse_authenticationProfileContent = Lens.lens (\CreateAuthenticationProfileResponse' {authenticationProfileContent} -> authenticationProfileContent) (\s@CreateAuthenticationProfileResponse' {} a -> s {authenticationProfileContent = a} :: CreateAuthenticationProfileResponse)++-- | The name of the authentication profile that was created.+createAuthenticationProfileResponse_authenticationProfileName :: Lens.Lens' CreateAuthenticationProfileResponse (Prelude.Maybe Prelude.Text)+createAuthenticationProfileResponse_authenticationProfileName = Lens.lens (\CreateAuthenticationProfileResponse' {authenticationProfileName} -> authenticationProfileName) (\s@CreateAuthenticationProfileResponse' {} a -> s {authenticationProfileName = a} :: CreateAuthenticationProfileResponse)++-- | The response's http status code.+createAuthenticationProfileResponse_httpStatus :: Lens.Lens' CreateAuthenticationProfileResponse Prelude.Int+createAuthenticationProfileResponse_httpStatus = Lens.lens (\CreateAuthenticationProfileResponse' {httpStatus} -> httpStatus) (\s@CreateAuthenticationProfileResponse' {} a -> s {httpStatus = a} :: CreateAuthenticationProfileResponse)++instance+ Prelude.NFData+ CreateAuthenticationProfileResponse+ where+ rnf CreateAuthenticationProfileResponse' {..} =+ Prelude.rnf authenticationProfileContent+ `Prelude.seq` Prelude.rnf authenticationProfileName+ `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/Redshift/CreateCluster.hs view
@@ -0,0 +1,1267 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module : Amazonka.Redshift.CreateCluster+-- Copyright : (c) 2013-2023 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Creates a new cluster with the specified parameters.+--+-- To create a cluster in Virtual Private Cloud (VPC), you must provide a+-- cluster subnet group name. The cluster subnet group identifies the+-- subnets of your VPC that Amazon Redshift uses when creating the cluster.+-- For more information about managing clusters, go to+-- <https://docs.aws.amazon.com/redshift/latest/mgmt/working-with-clusters.html Amazon Redshift Clusters>+-- in the /Amazon Redshift Cluster Management Guide/.+module Amazonka.Redshift.CreateCluster+ ( -- * Creating a Request+ CreateCluster (..),+ newCreateCluster,++ -- * Request Lenses+ createCluster_additionalInfo,+ createCluster_allowVersionUpgrade,+ createCluster_aquaConfigurationStatus,+ createCluster_automatedSnapshotRetentionPeriod,+ createCluster_availabilityZone,+ createCluster_availabilityZoneRelocation,+ createCluster_clusterParameterGroupName,+ createCluster_clusterSecurityGroups,+ createCluster_clusterSubnetGroupName,+ createCluster_clusterType,+ createCluster_clusterVersion,+ createCluster_dbName,+ createCluster_defaultIamRoleArn,+ createCluster_elasticIp,+ createCluster_encrypted,+ createCluster_enhancedVpcRouting,+ createCluster_hsmClientCertificateIdentifier,+ createCluster_hsmConfigurationIdentifier,+ createCluster_iamRoles,+ createCluster_kmsKeyId,+ createCluster_loadSampleData,+ createCluster_maintenanceTrackName,+ createCluster_manualSnapshotRetentionPeriod,+ createCluster_numberOfNodes,+ createCluster_port,+ createCluster_preferredMaintenanceWindow,+ createCluster_publiclyAccessible,+ createCluster_snapshotScheduleIdentifier,+ createCluster_tags,+ createCluster_vpcSecurityGroupIds,+ createCluster_clusterIdentifier,+ createCluster_nodeType,+ createCluster_masterUsername,+ createCluster_masterUserPassword,++ -- * Destructuring the Response+ CreateClusterResponse (..),+ newCreateClusterResponse,++ -- * Response Lenses+ createClusterResponse_cluster,+ createClusterResponse_httpStatus,+ )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Redshift.Types+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- |+--+-- /See:/ 'newCreateCluster' smart constructor.+data CreateCluster = CreateCluster'+ { -- | Reserved.+ additionalInfo :: Prelude.Maybe Prelude.Text,+ -- | If @true@, major version upgrades can be applied during the maintenance+ -- window to the Amazon Redshift engine that is running on the cluster.+ --+ -- When a new major version of the Amazon Redshift engine is released, you+ -- can request that the service automatically apply upgrades during the+ -- maintenance window to the Amazon Redshift engine that is running on your+ -- cluster.+ --+ -- Default: @true@+ allowVersionUpgrade :: Prelude.Maybe Prelude.Bool,+ -- | This parameter is retired. It does not set the AQUA configuration+ -- status. Amazon Redshift automatically determines whether to use AQUA+ -- (Advanced Query Accelerator).+ aquaConfigurationStatus :: Prelude.Maybe AquaConfigurationStatus,+ -- | The number of days that automated snapshots are retained. If the value+ -- is 0, automated snapshots are disabled. Even if automated snapshots are+ -- disabled, you can still create manual snapshots when you want with+ -- CreateClusterSnapshot.+ --+ -- You can\'t disable automated snapshots for RA3 node types. Set the+ -- automated retention period from 1-35 days.+ --+ -- Default: @1@+ --+ -- Constraints: Must be a value from 0 to 35.+ automatedSnapshotRetentionPeriod :: Prelude.Maybe Prelude.Int,+ -- | The EC2 Availability Zone (AZ) in which you want Amazon Redshift to+ -- provision the cluster. For example, if you have several EC2 instances+ -- running in a specific Availability Zone, then you might want the cluster+ -- to be provisioned in the same zone in order to decrease network latency.+ --+ -- Default: A random, system-chosen Availability Zone in the region that is+ -- specified by the endpoint.+ --+ -- Example: @us-east-2d@+ --+ -- Constraint: The specified Availability Zone must be in the same region+ -- as the current endpoint.+ availabilityZone :: Prelude.Maybe Prelude.Text,+ -- | The option to enable relocation for an Amazon Redshift cluster between+ -- Availability Zones after the cluster is created.+ availabilityZoneRelocation :: Prelude.Maybe Prelude.Bool,+ -- | The name of the parameter group to be associated with this cluster.+ --+ -- Default: The default Amazon Redshift cluster parameter group. For+ -- information about the default parameter group, go to+ -- <https://docs.aws.amazon.com/redshift/latest/mgmt/working-with-parameter-groups.html Working with Amazon Redshift Parameter Groups>+ --+ -- Constraints:+ --+ -- - Must be 1 to 255 alphanumeric characters or hyphens.+ --+ -- - First character must be a letter.+ --+ -- - Cannot end with a hyphen or contain two consecutive hyphens.+ clusterParameterGroupName :: Prelude.Maybe Prelude.Text,+ -- | A list of security groups to be associated with this cluster.+ --+ -- Default: The default cluster security group for Amazon Redshift.+ clusterSecurityGroups :: Prelude.Maybe [Prelude.Text],+ -- | The name of a cluster subnet group to be associated with this cluster.+ --+ -- If this parameter is not provided the resulting cluster will be deployed+ -- outside virtual private cloud (VPC).+ clusterSubnetGroupName :: Prelude.Maybe Prelude.Text,+ -- | The type of the cluster. When cluster type is specified as+ --+ -- - @single-node@, the __NumberOfNodes__ parameter is not required.+ --+ -- - @multi-node@, the __NumberOfNodes__ parameter is required.+ --+ -- Valid Values: @multi-node@ | @single-node@+ --+ -- Default: @multi-node@+ clusterType :: Prelude.Maybe Prelude.Text,+ -- | The version of the Amazon Redshift engine software that you want to+ -- deploy on the cluster.+ --+ -- The version selected runs on all the nodes in the cluster.+ --+ -- Constraints: Only version 1.0 is currently available.+ --+ -- Example: @1.0@+ clusterVersion :: Prelude.Maybe Prelude.Text,+ -- | The name of the first database to be created when the cluster is+ -- created.+ --+ -- To create additional databases after the cluster is created, connect to+ -- the cluster with a SQL client and use SQL commands to create a database.+ -- For more information, go to+ -- <https://docs.aws.amazon.com/redshift/latest/dg/t_creating_database.html Create a Database>+ -- in the Amazon Redshift Database Developer Guide.+ --+ -- Default: @dev@+ --+ -- Constraints:+ --+ -- - Must contain 1 to 64 alphanumeric characters.+ --+ -- - Must contain only lowercase letters.+ --+ -- - Cannot be a word that is reserved by the service. A list of reserved+ -- words can be found in+ -- <https://docs.aws.amazon.com/redshift/latest/dg/r_pg_keywords.html Reserved Words>+ -- in the Amazon Redshift Database Developer Guide.+ dbName :: Prelude.Maybe Prelude.Text,+ -- | The Amazon Resource Name (ARN) for the IAM role that was set as default+ -- for the cluster when the cluster was created.+ defaultIamRoleArn :: Prelude.Maybe Prelude.Text,+ -- | The Elastic IP (EIP) address for the cluster.+ --+ -- Constraints: The cluster must be provisioned in EC2-VPC and+ -- publicly-accessible through an Internet gateway. Don\'t specify the+ -- Elastic IP address for a publicly accessible cluster with availability+ -- zone relocation turned on. For more information about provisioning+ -- clusters in EC2-VPC, go to+ -- <https://docs.aws.amazon.com/redshift/latest/mgmt/working-with-clusters.html#cluster-platforms Supported Platforms to Launch Your Cluster>+ -- in the Amazon Redshift Cluster Management Guide.+ elasticIp :: Prelude.Maybe Prelude.Text,+ -- | If @true@, the data in the cluster is encrypted at rest.+ --+ -- Default: false+ encrypted :: Prelude.Maybe Prelude.Bool,+ -- | An option that specifies whether to create the cluster with enhanced VPC+ -- routing enabled. To create a cluster that uses enhanced VPC routing, the+ -- cluster must be in a VPC. For more information, see+ -- <https://docs.aws.amazon.com/redshift/latest/mgmt/enhanced-vpc-routing.html Enhanced VPC Routing>+ -- in the Amazon Redshift Cluster Management Guide.+ --+ -- If this option is @true@, enhanced VPC routing is enabled.+ --+ -- Default: false+ enhancedVpcRouting :: Prelude.Maybe Prelude.Bool,+ -- | Specifies the name of the HSM client certificate the Amazon Redshift+ -- cluster uses to retrieve the data encryption keys stored in an HSM.+ hsmClientCertificateIdentifier :: Prelude.Maybe Prelude.Text,+ -- | Specifies the name of the HSM configuration that contains the+ -- information the Amazon Redshift cluster can use to retrieve and store+ -- keys in an HSM.+ hsmConfigurationIdentifier :: Prelude.Maybe Prelude.Text,+ -- | A list of Identity and Access Management (IAM) roles that can be used by+ -- the cluster to access other Amazon Web Services services. You must+ -- supply the IAM roles in their Amazon Resource Name (ARN) format.+ --+ -- The maximum number of IAM roles that you can associate is subject to a+ -- quota. For more information, go to+ -- <https://docs.aws.amazon.com/redshift/latest/mgmt/amazon-redshift-limits.html Quotas and limits>+ -- in the /Amazon Redshift Cluster Management Guide/.+ iamRoles :: Prelude.Maybe [Prelude.Text],+ -- | The Key Management Service (KMS) key ID of the encryption key that you+ -- want to use to encrypt data in the cluster.+ kmsKeyId :: Prelude.Maybe Prelude.Text,+ -- | A flag that specifies whether to load sample data once the cluster is+ -- created.+ loadSampleData :: Prelude.Maybe Prelude.Text,+ -- | An optional parameter for the name of the maintenance track for the+ -- cluster. If you don\'t provide a maintenance track name, the cluster is+ -- assigned to the @current@ track.+ maintenanceTrackName :: Prelude.Maybe Prelude.Text,+ -- | The default number of days to retain a manual snapshot. If the value is+ -- -1, the snapshot is retained indefinitely. This setting doesn\'t change+ -- the retention period of existing snapshots.+ --+ -- The value must be either -1 or an integer between 1 and 3,653.+ manualSnapshotRetentionPeriod :: Prelude.Maybe Prelude.Int,+ -- | The number of compute nodes in the cluster. This parameter is required+ -- when the __ClusterType__ parameter is specified as @multi-node@.+ --+ -- For information about determining how many nodes you need, go to+ -- <https://docs.aws.amazon.com/redshift/latest/mgmt/working-with-clusters.html#how-many-nodes Working with Clusters>+ -- in the /Amazon Redshift Cluster Management Guide/.+ --+ -- If you don\'t specify this parameter, you get a single-node cluster.+ -- When requesting a multi-node cluster, you must specify the number of+ -- nodes that you want in the cluster.+ --+ -- Default: @1@+ --+ -- Constraints: Value must be at least 1 and no more than 100.+ numberOfNodes :: Prelude.Maybe Prelude.Int,+ -- | The port number on which the cluster accepts incoming connections.+ --+ -- The cluster is accessible only via the JDBC and ODBC connection strings.+ -- Part of the connection string requires the port on which the cluster+ -- will listen for incoming connections.+ --+ -- Default: @5439@+ --+ -- Valid Values: @1150-65535@+ port :: Prelude.Maybe Prelude.Int,+ -- | The weekly time range (in UTC) during which automated cluster+ -- maintenance can occur.+ --+ -- Format: @ddd:hh24:mi-ddd:hh24:mi@+ --+ -- Default: A 30-minute window selected at random from an 8-hour block of+ -- time per region, occurring on a random day of the week. For more+ -- information about the time blocks for each region, see+ -- <https://docs.aws.amazon.com/redshift/latest/mgmt/working-with-clusters.html#rs-maintenance-windows Maintenance Windows>+ -- in Amazon Redshift Cluster Management Guide.+ --+ -- Valid Days: Mon | Tue | Wed | Thu | Fri | Sat | Sun+ --+ -- Constraints: Minimum 30-minute window.+ preferredMaintenanceWindow :: Prelude.Maybe Prelude.Text,+ -- | If @true@, the cluster can be accessed from a public network.+ publiclyAccessible :: Prelude.Maybe Prelude.Bool,+ -- | A unique identifier for the snapshot schedule.+ snapshotScheduleIdentifier :: Prelude.Maybe Prelude.Text,+ -- | A list of tag instances.+ tags :: Prelude.Maybe [Tag],+ -- | A list of Virtual Private Cloud (VPC) security groups to be associated+ -- with the cluster.+ --+ -- Default: The default VPC security group is associated with the cluster.+ vpcSecurityGroupIds :: Prelude.Maybe [Prelude.Text],+ -- | A unique identifier for the cluster. You use this identifier to refer to+ -- the cluster for any subsequent cluster operations such as deleting or+ -- modifying. The identifier also appears in the Amazon Redshift console.+ --+ -- Constraints:+ --+ -- - Must contain from 1 to 63 alphanumeric characters or hyphens.+ --+ -- - Alphabetic characters must be lowercase.+ --+ -- - First character must be a letter.+ --+ -- - Cannot end with a hyphen or contain two consecutive hyphens.+ --+ -- - Must be unique for all clusters within an Amazon Web Services+ -- account.+ --+ -- Example: @myexamplecluster@+ clusterIdentifier :: Prelude.Text,+ -- | The node type to be provisioned for the cluster. For information about+ -- node types, go to+ -- <https://docs.aws.amazon.com/redshift/latest/mgmt/working-with-clusters.html#how-many-nodes Working with Clusters>+ -- in the /Amazon Redshift Cluster Management Guide/.+ --+ -- Valid Values: @ds2.xlarge@ | @ds2.8xlarge@ | @dc1.large@ | @dc1.8xlarge@+ -- | @dc2.large@ | @dc2.8xlarge@ | @ra3.xlplus@ | @ra3.4xlarge@ |+ -- @ra3.16xlarge@+ nodeType :: Prelude.Text,+ -- | The user name associated with the admin user account for the cluster+ -- that is being created.+ --+ -- Constraints:+ --+ -- - Must be 1 - 128 alphanumeric characters. The user name can\'t be+ -- @PUBLIC@.+ --+ -- - First character must be a letter.+ --+ -- - Cannot be a reserved word. A list of reserved words can be found in+ -- <https://docs.aws.amazon.com/redshift/latest/dg/r_pg_keywords.html Reserved Words>+ -- in the Amazon Redshift Database Developer Guide.+ masterUsername :: Prelude.Text,+ -- | The password associated with the admin user account for the cluster that+ -- is being created.+ --+ -- Constraints:+ --+ -- - Must be between 8 and 64 characters in length.+ --+ -- - Must contain at least one uppercase letter.+ --+ -- - Must contain at least one lowercase letter.+ --+ -- - Must contain one number.+ --+ -- - Can be any printable ASCII character (ASCII code 33-126) except @\'@+ -- (single quote), @\"@ (double quote), @\\@, @\/@, or @\@@.+ masterUserPassword :: Prelude.Text+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'CreateCluster' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'additionalInfo', 'createCluster_additionalInfo' - Reserved.+--+-- 'allowVersionUpgrade', 'createCluster_allowVersionUpgrade' - If @true@, major version upgrades can be applied during the maintenance+-- window to the Amazon Redshift engine that is running on the cluster.+--+-- When a new major version of the Amazon Redshift engine is released, you+-- can request that the service automatically apply upgrades during the+-- maintenance window to the Amazon Redshift engine that is running on your+-- cluster.+--+-- Default: @true@+--+-- 'aquaConfigurationStatus', 'createCluster_aquaConfigurationStatus' - This parameter is retired. It does not set the AQUA configuration+-- status. Amazon Redshift automatically determines whether to use AQUA+-- (Advanced Query Accelerator).+--+-- 'automatedSnapshotRetentionPeriod', 'createCluster_automatedSnapshotRetentionPeriod' - The number of days that automated snapshots are retained. If the value+-- is 0, automated snapshots are disabled. Even if automated snapshots are+-- disabled, you can still create manual snapshots when you want with+-- CreateClusterSnapshot.+--+-- You can\'t disable automated snapshots for RA3 node types. Set the+-- automated retention period from 1-35 days.+--+-- Default: @1@+--+-- Constraints: Must be a value from 0 to 35.+--+-- 'availabilityZone', 'createCluster_availabilityZone' - The EC2 Availability Zone (AZ) in which you want Amazon Redshift to+-- provision the cluster. For example, if you have several EC2 instances+-- running in a specific Availability Zone, then you might want the cluster+-- to be provisioned in the same zone in order to decrease network latency.+--+-- Default: A random, system-chosen Availability Zone in the region that is+-- specified by the endpoint.+--+-- Example: @us-east-2d@+--+-- Constraint: The specified Availability Zone must be in the same region+-- as the current endpoint.+--+-- 'availabilityZoneRelocation', 'createCluster_availabilityZoneRelocation' - The option to enable relocation for an Amazon Redshift cluster between+-- Availability Zones after the cluster is created.+--+-- 'clusterParameterGroupName', 'createCluster_clusterParameterGroupName' - The name of the parameter group to be associated with this cluster.+--+-- Default: The default Amazon Redshift cluster parameter group. For+-- information about the default parameter group, go to+-- <https://docs.aws.amazon.com/redshift/latest/mgmt/working-with-parameter-groups.html Working with Amazon Redshift Parameter Groups>+--+-- Constraints:+--+-- - Must be 1 to 255 alphanumeric characters or hyphens.+--+-- - First character must be a letter.+--+-- - Cannot end with a hyphen or contain two consecutive hyphens.+--+-- 'clusterSecurityGroups', 'createCluster_clusterSecurityGroups' - A list of security groups to be associated with this cluster.+--+-- Default: The default cluster security group for Amazon Redshift.+--+-- 'clusterSubnetGroupName', 'createCluster_clusterSubnetGroupName' - The name of a cluster subnet group to be associated with this cluster.+--+-- If this parameter is not provided the resulting cluster will be deployed+-- outside virtual private cloud (VPC).+--+-- 'clusterType', 'createCluster_clusterType' - The type of the cluster. When cluster type is specified as+--+-- - @single-node@, the __NumberOfNodes__ parameter is not required.+--+-- - @multi-node@, the __NumberOfNodes__ parameter is required.+--+-- Valid Values: @multi-node@ | @single-node@+--+-- Default: @multi-node@+--+-- 'clusterVersion', 'createCluster_clusterVersion' - The version of the Amazon Redshift engine software that you want to+-- deploy on the cluster.+--+-- The version selected runs on all the nodes in the cluster.+--+-- Constraints: Only version 1.0 is currently available.+--+-- Example: @1.0@+--+-- 'dbName', 'createCluster_dbName' - The name of the first database to be created when the cluster is+-- created.+--+-- To create additional databases after the cluster is created, connect to+-- the cluster with a SQL client and use SQL commands to create a database.+-- For more information, go to+-- <https://docs.aws.amazon.com/redshift/latest/dg/t_creating_database.html Create a Database>+-- in the Amazon Redshift Database Developer Guide.+--+-- Default: @dev@+--+-- Constraints:+--+-- - Must contain 1 to 64 alphanumeric characters.+--+-- - Must contain only lowercase letters.+--+-- - Cannot be a word that is reserved by the service. A list of reserved+-- words can be found in+-- <https://docs.aws.amazon.com/redshift/latest/dg/r_pg_keywords.html Reserved Words>+-- in the Amazon Redshift Database Developer Guide.+--+-- 'defaultIamRoleArn', 'createCluster_defaultIamRoleArn' - The Amazon Resource Name (ARN) for the IAM role that was set as default+-- for the cluster when the cluster was created.+--+-- 'elasticIp', 'createCluster_elasticIp' - The Elastic IP (EIP) address for the cluster.+--+-- Constraints: The cluster must be provisioned in EC2-VPC and+-- publicly-accessible through an Internet gateway. Don\'t specify the+-- Elastic IP address for a publicly accessible cluster with availability+-- zone relocation turned on. For more information about provisioning+-- clusters in EC2-VPC, go to+-- <https://docs.aws.amazon.com/redshift/latest/mgmt/working-with-clusters.html#cluster-platforms Supported Platforms to Launch Your Cluster>+-- in the Amazon Redshift Cluster Management Guide.+--+-- 'encrypted', 'createCluster_encrypted' - If @true@, the data in the cluster is encrypted at rest.+--+-- Default: false+--+-- 'enhancedVpcRouting', 'createCluster_enhancedVpcRouting' - An option that specifies whether to create the cluster with enhanced VPC+-- routing enabled. To create a cluster that uses enhanced VPC routing, the+-- cluster must be in a VPC. For more information, see+-- <https://docs.aws.amazon.com/redshift/latest/mgmt/enhanced-vpc-routing.html Enhanced VPC Routing>+-- in the Amazon Redshift Cluster Management Guide.+--+-- If this option is @true@, enhanced VPC routing is enabled.+--+-- Default: false+--+-- 'hsmClientCertificateIdentifier', 'createCluster_hsmClientCertificateIdentifier' - Specifies the name of the HSM client certificate the Amazon Redshift+-- cluster uses to retrieve the data encryption keys stored in an HSM.+--+-- 'hsmConfigurationIdentifier', 'createCluster_hsmConfigurationIdentifier' - Specifies the name of the HSM configuration that contains the+-- information the Amazon Redshift cluster can use to retrieve and store+-- keys in an HSM.+--+-- 'iamRoles', 'createCluster_iamRoles' - A list of Identity and Access Management (IAM) roles that can be used by+-- the cluster to access other Amazon Web Services services. You must+-- supply the IAM roles in their Amazon Resource Name (ARN) format.+--+-- The maximum number of IAM roles that you can associate is subject to a+-- quota. For more information, go to+-- <https://docs.aws.amazon.com/redshift/latest/mgmt/amazon-redshift-limits.html Quotas and limits>+-- in the /Amazon Redshift Cluster Management Guide/.+--+-- 'kmsKeyId', 'createCluster_kmsKeyId' - The Key Management Service (KMS) key ID of the encryption key that you+-- want to use to encrypt data in the cluster.+--+-- 'loadSampleData', 'createCluster_loadSampleData' - A flag that specifies whether to load sample data once the cluster is+-- created.+--+-- 'maintenanceTrackName', 'createCluster_maintenanceTrackName' - An optional parameter for the name of the maintenance track for the+-- cluster. If you don\'t provide a maintenance track name, the cluster is+-- assigned to the @current@ track.+--+-- 'manualSnapshotRetentionPeriod', 'createCluster_manualSnapshotRetentionPeriod' - The default number of days to retain a manual snapshot. If the value is+-- -1, the snapshot is retained indefinitely. This setting doesn\'t change+-- the retention period of existing snapshots.+--+-- The value must be either -1 or an integer between 1 and 3,653.+--+-- 'numberOfNodes', 'createCluster_numberOfNodes' - The number of compute nodes in the cluster. This parameter is required+-- when the __ClusterType__ parameter is specified as @multi-node@.+--+-- For information about determining how many nodes you need, go to+-- <https://docs.aws.amazon.com/redshift/latest/mgmt/working-with-clusters.html#how-many-nodes Working with Clusters>+-- in the /Amazon Redshift Cluster Management Guide/.+--+-- If you don\'t specify this parameter, you get a single-node cluster.+-- When requesting a multi-node cluster, you must specify the number of+-- nodes that you want in the cluster.+--+-- Default: @1@+--+-- Constraints: Value must be at least 1 and no more than 100.+--+-- 'port', 'createCluster_port' - The port number on which the cluster accepts incoming connections.+--+-- The cluster is accessible only via the JDBC and ODBC connection strings.+-- Part of the connection string requires the port on which the cluster+-- will listen for incoming connections.+--+-- Default: @5439@+--+-- Valid Values: @1150-65535@+--+-- 'preferredMaintenanceWindow', 'createCluster_preferredMaintenanceWindow' - The weekly time range (in UTC) during which automated cluster+-- maintenance can occur.+--+-- Format: @ddd:hh24:mi-ddd:hh24:mi@+--+-- Default: A 30-minute window selected at random from an 8-hour block of+-- time per region, occurring on a random day of the week. For more+-- information about the time blocks for each region, see+-- <https://docs.aws.amazon.com/redshift/latest/mgmt/working-with-clusters.html#rs-maintenance-windows Maintenance Windows>+-- in Amazon Redshift Cluster Management Guide.+--+-- Valid Days: Mon | Tue | Wed | Thu | Fri | Sat | Sun+--+-- Constraints: Minimum 30-minute window.+--+-- 'publiclyAccessible', 'createCluster_publiclyAccessible' - If @true@, the cluster can be accessed from a public network.+--+-- 'snapshotScheduleIdentifier', 'createCluster_snapshotScheduleIdentifier' - A unique identifier for the snapshot schedule.+--+-- 'tags', 'createCluster_tags' - A list of tag instances.+--+-- 'vpcSecurityGroupIds', 'createCluster_vpcSecurityGroupIds' - A list of Virtual Private Cloud (VPC) security groups to be associated+-- with the cluster.+--+-- Default: The default VPC security group is associated with the cluster.+--+-- 'clusterIdentifier', 'createCluster_clusterIdentifier' - A unique identifier for the cluster. You use this identifier to refer to+-- the cluster for any subsequent cluster operations such as deleting or+-- modifying. The identifier also appears in the Amazon Redshift console.+--+-- Constraints:+--+-- - Must contain from 1 to 63 alphanumeric characters or hyphens.+--+-- - Alphabetic characters must be lowercase.+--+-- - First character must be a letter.+--+-- - Cannot end with a hyphen or contain two consecutive hyphens.+--+-- - Must be unique for all clusters within an Amazon Web Services+-- account.+--+-- Example: @myexamplecluster@+--+-- 'nodeType', 'createCluster_nodeType' - The node type to be provisioned for the cluster. For information about+-- node types, go to+-- <https://docs.aws.amazon.com/redshift/latest/mgmt/working-with-clusters.html#how-many-nodes Working with Clusters>+-- in the /Amazon Redshift Cluster Management Guide/.+--+-- Valid Values: @ds2.xlarge@ | @ds2.8xlarge@ | @dc1.large@ | @dc1.8xlarge@+-- | @dc2.large@ | @dc2.8xlarge@ | @ra3.xlplus@ | @ra3.4xlarge@ |+-- @ra3.16xlarge@+--+-- 'masterUsername', 'createCluster_masterUsername' - The user name associated with the admin user account for the cluster+-- that is being created.+--+-- Constraints:+--+-- - Must be 1 - 128 alphanumeric characters. The user name can\'t be+-- @PUBLIC@.+--+-- - First character must be a letter.+--+-- - Cannot be a reserved word. A list of reserved words can be found in+-- <https://docs.aws.amazon.com/redshift/latest/dg/r_pg_keywords.html Reserved Words>+-- in the Amazon Redshift Database Developer Guide.+--+-- 'masterUserPassword', 'createCluster_masterUserPassword' - The password associated with the admin user account for the cluster that+-- is being created.+--+-- Constraints:+--+-- - Must be between 8 and 64 characters in length.+--+-- - Must contain at least one uppercase letter.+--+-- - Must contain at least one lowercase letter.+--+-- - Must contain one number.+--+-- - Can be any printable ASCII character (ASCII code 33-126) except @\'@+-- (single quote), @\"@ (double quote), @\\@, @\/@, or @\@@.+newCreateCluster ::+ -- | 'clusterIdentifier'+ Prelude.Text ->+ -- | 'nodeType'+ Prelude.Text ->+ -- | 'masterUsername'+ Prelude.Text ->+ -- | 'masterUserPassword'+ Prelude.Text ->+ CreateCluster+newCreateCluster+ pClusterIdentifier_+ pNodeType_+ pMasterUsername_+ pMasterUserPassword_ =+ CreateCluster'+ { additionalInfo = Prelude.Nothing,+ allowVersionUpgrade = Prelude.Nothing,+ aquaConfigurationStatus = Prelude.Nothing,+ automatedSnapshotRetentionPeriod = Prelude.Nothing,+ availabilityZone = Prelude.Nothing,+ availabilityZoneRelocation = Prelude.Nothing,+ clusterParameterGroupName = Prelude.Nothing,+ clusterSecurityGroups = Prelude.Nothing,+ clusterSubnetGroupName = Prelude.Nothing,+ clusterType = Prelude.Nothing,+ clusterVersion = Prelude.Nothing,+ dbName = Prelude.Nothing,+ defaultIamRoleArn = Prelude.Nothing,+ elasticIp = Prelude.Nothing,+ encrypted = Prelude.Nothing,+ enhancedVpcRouting = Prelude.Nothing,+ hsmClientCertificateIdentifier = Prelude.Nothing,+ hsmConfigurationIdentifier = Prelude.Nothing,+ iamRoles = Prelude.Nothing,+ kmsKeyId = Prelude.Nothing,+ loadSampleData = Prelude.Nothing,+ maintenanceTrackName = Prelude.Nothing,+ manualSnapshotRetentionPeriod = Prelude.Nothing,+ numberOfNodes = Prelude.Nothing,+ port = Prelude.Nothing,+ preferredMaintenanceWindow = Prelude.Nothing,+ publiclyAccessible = Prelude.Nothing,+ snapshotScheduleIdentifier = Prelude.Nothing,+ tags = Prelude.Nothing,+ vpcSecurityGroupIds = Prelude.Nothing,+ clusterIdentifier = pClusterIdentifier_,+ nodeType = pNodeType_,+ masterUsername = pMasterUsername_,+ masterUserPassword = pMasterUserPassword_+ }++-- | Reserved.+createCluster_additionalInfo :: Lens.Lens' CreateCluster (Prelude.Maybe Prelude.Text)+createCluster_additionalInfo = Lens.lens (\CreateCluster' {additionalInfo} -> additionalInfo) (\s@CreateCluster' {} a -> s {additionalInfo = a} :: CreateCluster)++-- | If @true@, major version upgrades can be applied during the maintenance+-- window to the Amazon Redshift engine that is running on the cluster.+--+-- When a new major version of the Amazon Redshift engine is released, you+-- can request that the service automatically apply upgrades during the+-- maintenance window to the Amazon Redshift engine that is running on your+-- cluster.+--+-- Default: @true@+createCluster_allowVersionUpgrade :: Lens.Lens' CreateCluster (Prelude.Maybe Prelude.Bool)+createCluster_allowVersionUpgrade = Lens.lens (\CreateCluster' {allowVersionUpgrade} -> allowVersionUpgrade) (\s@CreateCluster' {} a -> s {allowVersionUpgrade = a} :: CreateCluster)++-- | This parameter is retired. It does not set the AQUA configuration+-- status. Amazon Redshift automatically determines whether to use AQUA+-- (Advanced Query Accelerator).+createCluster_aquaConfigurationStatus :: Lens.Lens' CreateCluster (Prelude.Maybe AquaConfigurationStatus)+createCluster_aquaConfigurationStatus = Lens.lens (\CreateCluster' {aquaConfigurationStatus} -> aquaConfigurationStatus) (\s@CreateCluster' {} a -> s {aquaConfigurationStatus = a} :: CreateCluster)++-- | The number of days that automated snapshots are retained. If the value+-- is 0, automated snapshots are disabled. Even if automated snapshots are+-- disabled, you can still create manual snapshots when you want with+-- CreateClusterSnapshot.+--+-- You can\'t disable automated snapshots for RA3 node types. Set the+-- automated retention period from 1-35 days.+--+-- Default: @1@+--+-- Constraints: Must be a value from 0 to 35.+createCluster_automatedSnapshotRetentionPeriod :: Lens.Lens' CreateCluster (Prelude.Maybe Prelude.Int)+createCluster_automatedSnapshotRetentionPeriod = Lens.lens (\CreateCluster' {automatedSnapshotRetentionPeriod} -> automatedSnapshotRetentionPeriod) (\s@CreateCluster' {} a -> s {automatedSnapshotRetentionPeriod = a} :: CreateCluster)++-- | The EC2 Availability Zone (AZ) in which you want Amazon Redshift to+-- provision the cluster. For example, if you have several EC2 instances+-- running in a specific Availability Zone, then you might want the cluster+-- to be provisioned in the same zone in order to decrease network latency.+--+-- Default: A random, system-chosen Availability Zone in the region that is+-- specified by the endpoint.+--+-- Example: @us-east-2d@+--+-- Constraint: The specified Availability Zone must be in the same region+-- as the current endpoint.+createCluster_availabilityZone :: Lens.Lens' CreateCluster (Prelude.Maybe Prelude.Text)+createCluster_availabilityZone = Lens.lens (\CreateCluster' {availabilityZone} -> availabilityZone) (\s@CreateCluster' {} a -> s {availabilityZone = a} :: CreateCluster)++-- | The option to enable relocation for an Amazon Redshift cluster between+-- Availability Zones after the cluster is created.+createCluster_availabilityZoneRelocation :: Lens.Lens' CreateCluster (Prelude.Maybe Prelude.Bool)+createCluster_availabilityZoneRelocation = Lens.lens (\CreateCluster' {availabilityZoneRelocation} -> availabilityZoneRelocation) (\s@CreateCluster' {} a -> s {availabilityZoneRelocation = a} :: CreateCluster)++-- | The name of the parameter group to be associated with this cluster.+--+-- Default: The default Amazon Redshift cluster parameter group. For+-- information about the default parameter group, go to+-- <https://docs.aws.amazon.com/redshift/latest/mgmt/working-with-parameter-groups.html Working with Amazon Redshift Parameter Groups>+--+-- Constraints:+--+-- - Must be 1 to 255 alphanumeric characters or hyphens.+--+-- - First character must be a letter.+--+-- - Cannot end with a hyphen or contain two consecutive hyphens.+createCluster_clusterParameterGroupName :: Lens.Lens' CreateCluster (Prelude.Maybe Prelude.Text)+createCluster_clusterParameterGroupName = Lens.lens (\CreateCluster' {clusterParameterGroupName} -> clusterParameterGroupName) (\s@CreateCluster' {} a -> s {clusterParameterGroupName = a} :: CreateCluster)++-- | A list of security groups to be associated with this cluster.+--+-- Default: The default cluster security group for Amazon Redshift.+createCluster_clusterSecurityGroups :: Lens.Lens' CreateCluster (Prelude.Maybe [Prelude.Text])+createCluster_clusterSecurityGroups = Lens.lens (\CreateCluster' {clusterSecurityGroups} -> clusterSecurityGroups) (\s@CreateCluster' {} a -> s {clusterSecurityGroups = a} :: CreateCluster) Prelude.. Lens.mapping Lens.coerced++-- | The name of a cluster subnet group to be associated with this cluster.+--+-- If this parameter is not provided the resulting cluster will be deployed+-- outside virtual private cloud (VPC).+createCluster_clusterSubnetGroupName :: Lens.Lens' CreateCluster (Prelude.Maybe Prelude.Text)+createCluster_clusterSubnetGroupName = Lens.lens (\CreateCluster' {clusterSubnetGroupName} -> clusterSubnetGroupName) (\s@CreateCluster' {} a -> s {clusterSubnetGroupName = a} :: CreateCluster)++-- | The type of the cluster. When cluster type is specified as+--+-- - @single-node@, the __NumberOfNodes__ parameter is not required.+--+-- - @multi-node@, the __NumberOfNodes__ parameter is required.+--+-- Valid Values: @multi-node@ | @single-node@+--+-- Default: @multi-node@+createCluster_clusterType :: Lens.Lens' CreateCluster (Prelude.Maybe Prelude.Text)+createCluster_clusterType = Lens.lens (\CreateCluster' {clusterType} -> clusterType) (\s@CreateCluster' {} a -> s {clusterType = a} :: CreateCluster)++-- | The version of the Amazon Redshift engine software that you want to+-- deploy on the cluster.+--+-- The version selected runs on all the nodes in the cluster.+--+-- Constraints: Only version 1.0 is currently available.+--+-- Example: @1.0@+createCluster_clusterVersion :: Lens.Lens' CreateCluster (Prelude.Maybe Prelude.Text)+createCluster_clusterVersion = Lens.lens (\CreateCluster' {clusterVersion} -> clusterVersion) (\s@CreateCluster' {} a -> s {clusterVersion = a} :: CreateCluster)++-- | The name of the first database to be created when the cluster is+-- created.+--+-- To create additional databases after the cluster is created, connect to+-- the cluster with a SQL client and use SQL commands to create a database.+-- For more information, go to+-- <https://docs.aws.amazon.com/redshift/latest/dg/t_creating_database.html Create a Database>+-- in the Amazon Redshift Database Developer Guide.+--+-- Default: @dev@+--+-- Constraints:+--+-- - Must contain 1 to 64 alphanumeric characters.+--+-- - Must contain only lowercase letters.+--+-- - Cannot be a word that is reserved by the service. A list of reserved+-- words can be found in+-- <https://docs.aws.amazon.com/redshift/latest/dg/r_pg_keywords.html Reserved Words>+-- in the Amazon Redshift Database Developer Guide.+createCluster_dbName :: Lens.Lens' CreateCluster (Prelude.Maybe Prelude.Text)+createCluster_dbName = Lens.lens (\CreateCluster' {dbName} -> dbName) (\s@CreateCluster' {} a -> s {dbName = a} :: CreateCluster)++-- | The Amazon Resource Name (ARN) for the IAM role that was set as default+-- for the cluster when the cluster was created.+createCluster_defaultIamRoleArn :: Lens.Lens' CreateCluster (Prelude.Maybe Prelude.Text)+createCluster_defaultIamRoleArn = Lens.lens (\CreateCluster' {defaultIamRoleArn} -> defaultIamRoleArn) (\s@CreateCluster' {} a -> s {defaultIamRoleArn = a} :: CreateCluster)++-- | The Elastic IP (EIP) address for the cluster.+--+-- Constraints: The cluster must be provisioned in EC2-VPC and+-- publicly-accessible through an Internet gateway. Don\'t specify the+-- Elastic IP address for a publicly accessible cluster with availability+-- zone relocation turned on. For more information about provisioning+-- clusters in EC2-VPC, go to+-- <https://docs.aws.amazon.com/redshift/latest/mgmt/working-with-clusters.html#cluster-platforms Supported Platforms to Launch Your Cluster>+-- in the Amazon Redshift Cluster Management Guide.+createCluster_elasticIp :: Lens.Lens' CreateCluster (Prelude.Maybe Prelude.Text)+createCluster_elasticIp = Lens.lens (\CreateCluster' {elasticIp} -> elasticIp) (\s@CreateCluster' {} a -> s {elasticIp = a} :: CreateCluster)++-- | If @true@, the data in the cluster is encrypted at rest.+--+-- Default: false+createCluster_encrypted :: Lens.Lens' CreateCluster (Prelude.Maybe Prelude.Bool)+createCluster_encrypted = Lens.lens (\CreateCluster' {encrypted} -> encrypted) (\s@CreateCluster' {} a -> s {encrypted = a} :: CreateCluster)++-- | An option that specifies whether to create the cluster with enhanced VPC+-- routing enabled. To create a cluster that uses enhanced VPC routing, the+-- cluster must be in a VPC. For more information, see+-- <https://docs.aws.amazon.com/redshift/latest/mgmt/enhanced-vpc-routing.html Enhanced VPC Routing>+-- in the Amazon Redshift Cluster Management Guide.+--+-- If this option is @true@, enhanced VPC routing is enabled.+--+-- Default: false+createCluster_enhancedVpcRouting :: Lens.Lens' CreateCluster (Prelude.Maybe Prelude.Bool)+createCluster_enhancedVpcRouting = Lens.lens (\CreateCluster' {enhancedVpcRouting} -> enhancedVpcRouting) (\s@CreateCluster' {} a -> s {enhancedVpcRouting = a} :: CreateCluster)++-- | Specifies the name of the HSM client certificate the Amazon Redshift+-- cluster uses to retrieve the data encryption keys stored in an HSM.+createCluster_hsmClientCertificateIdentifier :: Lens.Lens' CreateCluster (Prelude.Maybe Prelude.Text)+createCluster_hsmClientCertificateIdentifier = Lens.lens (\CreateCluster' {hsmClientCertificateIdentifier} -> hsmClientCertificateIdentifier) (\s@CreateCluster' {} a -> s {hsmClientCertificateIdentifier = a} :: CreateCluster)++-- | Specifies the name of the HSM configuration that contains the+-- information the Amazon Redshift cluster can use to retrieve and store+-- keys in an HSM.+createCluster_hsmConfigurationIdentifier :: Lens.Lens' CreateCluster (Prelude.Maybe Prelude.Text)+createCluster_hsmConfigurationIdentifier = Lens.lens (\CreateCluster' {hsmConfigurationIdentifier} -> hsmConfigurationIdentifier) (\s@CreateCluster' {} a -> s {hsmConfigurationIdentifier = a} :: CreateCluster)++-- | A list of Identity and Access Management (IAM) roles that can be used by+-- the cluster to access other Amazon Web Services services. You must+-- supply the IAM roles in their Amazon Resource Name (ARN) format.+--+-- The maximum number of IAM roles that you can associate is subject to a+-- quota. For more information, go to+-- <https://docs.aws.amazon.com/redshift/latest/mgmt/amazon-redshift-limits.html Quotas and limits>+-- in the /Amazon Redshift Cluster Management Guide/.+createCluster_iamRoles :: Lens.Lens' CreateCluster (Prelude.Maybe [Prelude.Text])+createCluster_iamRoles = Lens.lens (\CreateCluster' {iamRoles} -> iamRoles) (\s@CreateCluster' {} a -> s {iamRoles = a} :: CreateCluster) Prelude.. Lens.mapping Lens.coerced++-- | The Key Management Service (KMS) key ID of the encryption key that you+-- want to use to encrypt data in the cluster.+createCluster_kmsKeyId :: Lens.Lens' CreateCluster (Prelude.Maybe Prelude.Text)+createCluster_kmsKeyId = Lens.lens (\CreateCluster' {kmsKeyId} -> kmsKeyId) (\s@CreateCluster' {} a -> s {kmsKeyId = a} :: CreateCluster)++-- | A flag that specifies whether to load sample data once the cluster is+-- created.+createCluster_loadSampleData :: Lens.Lens' CreateCluster (Prelude.Maybe Prelude.Text)+createCluster_loadSampleData = Lens.lens (\CreateCluster' {loadSampleData} -> loadSampleData) (\s@CreateCluster' {} a -> s {loadSampleData = a} :: CreateCluster)++-- | An optional parameter for the name of the maintenance track for the+-- cluster. If you don\'t provide a maintenance track name, the cluster is+-- assigned to the @current@ track.+createCluster_maintenanceTrackName :: Lens.Lens' CreateCluster (Prelude.Maybe Prelude.Text)+createCluster_maintenanceTrackName = Lens.lens (\CreateCluster' {maintenanceTrackName} -> maintenanceTrackName) (\s@CreateCluster' {} a -> s {maintenanceTrackName = a} :: CreateCluster)++-- | The default number of days to retain a manual snapshot. If the value is+-- -1, the snapshot is retained indefinitely. This setting doesn\'t change+-- the retention period of existing snapshots.+--+-- The value must be either -1 or an integer between 1 and 3,653.+createCluster_manualSnapshotRetentionPeriod :: Lens.Lens' CreateCluster (Prelude.Maybe Prelude.Int)+createCluster_manualSnapshotRetentionPeriod = Lens.lens (\CreateCluster' {manualSnapshotRetentionPeriod} -> manualSnapshotRetentionPeriod) (\s@CreateCluster' {} a -> s {manualSnapshotRetentionPeriod = a} :: CreateCluster)++-- | The number of compute nodes in the cluster. This parameter is required+-- when the __ClusterType__ parameter is specified as @multi-node@.+--+-- For information about determining how many nodes you need, go to+-- <https://docs.aws.amazon.com/redshift/latest/mgmt/working-with-clusters.html#how-many-nodes Working with Clusters>+-- in the /Amazon Redshift Cluster Management Guide/.+--+-- If you don\'t specify this parameter, you get a single-node cluster.+-- When requesting a multi-node cluster, you must specify the number of+-- nodes that you want in the cluster.+--+-- Default: @1@+--+-- Constraints: Value must be at least 1 and no more than 100.+createCluster_numberOfNodes :: Lens.Lens' CreateCluster (Prelude.Maybe Prelude.Int)+createCluster_numberOfNodes = Lens.lens (\CreateCluster' {numberOfNodes} -> numberOfNodes) (\s@CreateCluster' {} a -> s {numberOfNodes = a} :: CreateCluster)++-- | The port number on which the cluster accepts incoming connections.+--+-- The cluster is accessible only via the JDBC and ODBC connection strings.+-- Part of the connection string requires the port on which the cluster+-- will listen for incoming connections.+--+-- Default: @5439@+--+-- Valid Values: @1150-65535@+createCluster_port :: Lens.Lens' CreateCluster (Prelude.Maybe Prelude.Int)+createCluster_port = Lens.lens (\CreateCluster' {port} -> port) (\s@CreateCluster' {} a -> s {port = a} :: CreateCluster)++-- | The weekly time range (in UTC) during which automated cluster+-- maintenance can occur.+--+-- Format: @ddd:hh24:mi-ddd:hh24:mi@+--+-- Default: A 30-minute window selected at random from an 8-hour block of+-- time per region, occurring on a random day of the week. For more+-- information about the time blocks for each region, see+-- <https://docs.aws.amazon.com/redshift/latest/mgmt/working-with-clusters.html#rs-maintenance-windows Maintenance Windows>+-- in Amazon Redshift Cluster Management Guide.+--+-- Valid Days: Mon | Tue | Wed | Thu | Fri | Sat | Sun+--+-- Constraints: Minimum 30-minute window.+createCluster_preferredMaintenanceWindow :: Lens.Lens' CreateCluster (Prelude.Maybe Prelude.Text)+createCluster_preferredMaintenanceWindow = Lens.lens (\CreateCluster' {preferredMaintenanceWindow} -> preferredMaintenanceWindow) (\s@CreateCluster' {} a -> s {preferredMaintenanceWindow = a} :: CreateCluster)++-- | If @true@, the cluster can be accessed from a public network.+createCluster_publiclyAccessible :: Lens.Lens' CreateCluster (Prelude.Maybe Prelude.Bool)+createCluster_publiclyAccessible = Lens.lens (\CreateCluster' {publiclyAccessible} -> publiclyAccessible) (\s@CreateCluster' {} a -> s {publiclyAccessible = a} :: CreateCluster)++-- | A unique identifier for the snapshot schedule.+createCluster_snapshotScheduleIdentifier :: Lens.Lens' CreateCluster (Prelude.Maybe Prelude.Text)+createCluster_snapshotScheduleIdentifier = Lens.lens (\CreateCluster' {snapshotScheduleIdentifier} -> snapshotScheduleIdentifier) (\s@CreateCluster' {} a -> s {snapshotScheduleIdentifier = a} :: CreateCluster)++-- | A list of tag instances.+createCluster_tags :: Lens.Lens' CreateCluster (Prelude.Maybe [Tag])+createCluster_tags = Lens.lens (\CreateCluster' {tags} -> tags) (\s@CreateCluster' {} a -> s {tags = a} :: CreateCluster) Prelude.. Lens.mapping Lens.coerced++-- | A list of Virtual Private Cloud (VPC) security groups to be associated+-- with the cluster.+--+-- Default: The default VPC security group is associated with the cluster.+createCluster_vpcSecurityGroupIds :: Lens.Lens' CreateCluster (Prelude.Maybe [Prelude.Text])+createCluster_vpcSecurityGroupIds = Lens.lens (\CreateCluster' {vpcSecurityGroupIds} -> vpcSecurityGroupIds) (\s@CreateCluster' {} a -> s {vpcSecurityGroupIds = a} :: CreateCluster) Prelude.. Lens.mapping Lens.coerced++-- | A unique identifier for the cluster. You use this identifier to refer to+-- the cluster for any subsequent cluster operations such as deleting or+-- modifying. The identifier also appears in the Amazon Redshift console.+--+-- Constraints:+--+-- - Must contain from 1 to 63 alphanumeric characters or hyphens.+--+-- - Alphabetic characters must be lowercase.+--+-- - First character must be a letter.+--+-- - Cannot end with a hyphen or contain two consecutive hyphens.+--+-- - Must be unique for all clusters within an Amazon Web Services+-- account.+--+-- Example: @myexamplecluster@+createCluster_clusterIdentifier :: Lens.Lens' CreateCluster Prelude.Text+createCluster_clusterIdentifier = Lens.lens (\CreateCluster' {clusterIdentifier} -> clusterIdentifier) (\s@CreateCluster' {} a -> s {clusterIdentifier = a} :: CreateCluster)++-- | The node type to be provisioned for the cluster. For information about+-- node types, go to+-- <https://docs.aws.amazon.com/redshift/latest/mgmt/working-with-clusters.html#how-many-nodes Working with Clusters>+-- in the /Amazon Redshift Cluster Management Guide/.+--+-- Valid Values: @ds2.xlarge@ | @ds2.8xlarge@ | @dc1.large@ | @dc1.8xlarge@+-- | @dc2.large@ | @dc2.8xlarge@ | @ra3.xlplus@ | @ra3.4xlarge@ |+-- @ra3.16xlarge@+createCluster_nodeType :: Lens.Lens' CreateCluster Prelude.Text+createCluster_nodeType = Lens.lens (\CreateCluster' {nodeType} -> nodeType) (\s@CreateCluster' {} a -> s {nodeType = a} :: CreateCluster)++-- | The user name associated with the admin user account for the cluster+-- that is being created.+--+-- Constraints:+--+-- - Must be 1 - 128 alphanumeric characters. The user name can\'t be+-- @PUBLIC@.+--+-- - First character must be a letter.+--+-- - Cannot be a reserved word. A list of reserved words can be found in+-- <https://docs.aws.amazon.com/redshift/latest/dg/r_pg_keywords.html Reserved Words>+-- in the Amazon Redshift Database Developer Guide.+createCluster_masterUsername :: Lens.Lens' CreateCluster Prelude.Text+createCluster_masterUsername = Lens.lens (\CreateCluster' {masterUsername} -> masterUsername) (\s@CreateCluster' {} a -> s {masterUsername = a} :: CreateCluster)++-- | The password associated with the admin user account for the cluster that+-- is being created.+--+-- Constraints:+--+-- - Must be between 8 and 64 characters in length.+--+-- - Must contain at least one uppercase letter.+--+-- - Must contain at least one lowercase letter.+--+-- - Must contain one number.+--+-- - Can be any printable ASCII character (ASCII code 33-126) except @\'@+-- (single quote), @\"@ (double quote), @\\@, @\/@, or @\@@.+createCluster_masterUserPassword :: Lens.Lens' CreateCluster Prelude.Text+createCluster_masterUserPassword = Lens.lens (\CreateCluster' {masterUserPassword} -> masterUserPassword) (\s@CreateCluster' {} a -> s {masterUserPassword = a} :: CreateCluster)++instance Core.AWSRequest CreateCluster where+ type+ AWSResponse CreateCluster =+ CreateClusterResponse+ request overrides =+ Request.postQuery (overrides defaultService)+ response =+ Response.receiveXMLWrapper+ "CreateClusterResult"+ ( \s h x ->+ CreateClusterResponse'+ Prelude.<$> (x Data..@? "Cluster")+ Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+ )++instance Prelude.Hashable CreateCluster where+ hashWithSalt _salt CreateCluster' {..} =+ _salt+ `Prelude.hashWithSalt` additionalInfo+ `Prelude.hashWithSalt` allowVersionUpgrade+ `Prelude.hashWithSalt` aquaConfigurationStatus+ `Prelude.hashWithSalt` automatedSnapshotRetentionPeriod+ `Prelude.hashWithSalt` availabilityZone+ `Prelude.hashWithSalt` availabilityZoneRelocation+ `Prelude.hashWithSalt` clusterParameterGroupName+ `Prelude.hashWithSalt` clusterSecurityGroups+ `Prelude.hashWithSalt` clusterSubnetGroupName+ `Prelude.hashWithSalt` clusterType+ `Prelude.hashWithSalt` clusterVersion+ `Prelude.hashWithSalt` dbName+ `Prelude.hashWithSalt` defaultIamRoleArn+ `Prelude.hashWithSalt` elasticIp+ `Prelude.hashWithSalt` encrypted+ `Prelude.hashWithSalt` enhancedVpcRouting+ `Prelude.hashWithSalt` hsmClientCertificateIdentifier+ `Prelude.hashWithSalt` hsmConfigurationIdentifier+ `Prelude.hashWithSalt` iamRoles+ `Prelude.hashWithSalt` kmsKeyId+ `Prelude.hashWithSalt` loadSampleData+ `Prelude.hashWithSalt` maintenanceTrackName+ `Prelude.hashWithSalt` manualSnapshotRetentionPeriod+ `Prelude.hashWithSalt` numberOfNodes+ `Prelude.hashWithSalt` port+ `Prelude.hashWithSalt` preferredMaintenanceWindow+ `Prelude.hashWithSalt` publiclyAccessible+ `Prelude.hashWithSalt` snapshotScheduleIdentifier+ `Prelude.hashWithSalt` tags+ `Prelude.hashWithSalt` vpcSecurityGroupIds+ `Prelude.hashWithSalt` clusterIdentifier+ `Prelude.hashWithSalt` nodeType+ `Prelude.hashWithSalt` masterUsername+ `Prelude.hashWithSalt` masterUserPassword++instance Prelude.NFData CreateCluster where+ rnf CreateCluster' {..} =+ Prelude.rnf additionalInfo+ `Prelude.seq` Prelude.rnf allowVersionUpgrade+ `Prelude.seq` Prelude.rnf aquaConfigurationStatus+ `Prelude.seq` Prelude.rnf automatedSnapshotRetentionPeriod+ `Prelude.seq` Prelude.rnf availabilityZone+ `Prelude.seq` Prelude.rnf availabilityZoneRelocation+ `Prelude.seq` Prelude.rnf clusterParameterGroupName+ `Prelude.seq` Prelude.rnf clusterSecurityGroups+ `Prelude.seq` Prelude.rnf clusterSubnetGroupName+ `Prelude.seq` Prelude.rnf clusterType+ `Prelude.seq` Prelude.rnf clusterVersion+ `Prelude.seq` Prelude.rnf dbName+ `Prelude.seq` Prelude.rnf defaultIamRoleArn+ `Prelude.seq` Prelude.rnf elasticIp+ `Prelude.seq` Prelude.rnf encrypted+ `Prelude.seq` Prelude.rnf enhancedVpcRouting+ `Prelude.seq` Prelude.rnf+ hsmClientCertificateIdentifier+ `Prelude.seq` Prelude.rnf+ hsmConfigurationIdentifier+ `Prelude.seq` Prelude.rnf iamRoles+ `Prelude.seq` Prelude.rnf kmsKeyId+ `Prelude.seq` Prelude.rnf loadSampleData+ `Prelude.seq` Prelude.rnf+ maintenanceTrackName+ `Prelude.seq` Prelude.rnf+ manualSnapshotRetentionPeriod+ `Prelude.seq` Prelude.rnf+ numberOfNodes+ `Prelude.seq` Prelude.rnf port+ `Prelude.seq` Prelude.rnf+ preferredMaintenanceWindow+ `Prelude.seq` Prelude.rnf+ publiclyAccessible+ `Prelude.seq` Prelude.rnf+ snapshotScheduleIdentifier+ `Prelude.seq` Prelude.rnf+ tags+ `Prelude.seq` Prelude.rnf+ vpcSecurityGroupIds+ `Prelude.seq` Prelude.rnf+ clusterIdentifier+ `Prelude.seq` Prelude.rnf+ nodeType+ `Prelude.seq` Prelude.rnf+ masterUsername+ `Prelude.seq` Prelude.rnf+ masterUserPassword++instance Data.ToHeaders CreateCluster where+ toHeaders = Prelude.const Prelude.mempty++instance Data.ToPath CreateCluster where+ toPath = Prelude.const "/"++instance Data.ToQuery CreateCluster where+ toQuery CreateCluster' {..} =+ Prelude.mconcat+ [ "Action"+ Data.=: ("CreateCluster" :: Prelude.ByteString),+ "Version"+ Data.=: ("2012-12-01" :: Prelude.ByteString),+ "AdditionalInfo" Data.=: additionalInfo,+ "AllowVersionUpgrade" Data.=: allowVersionUpgrade,+ "AquaConfigurationStatus"+ Data.=: aquaConfigurationStatus,+ "AutomatedSnapshotRetentionPeriod"+ Data.=: automatedSnapshotRetentionPeriod,+ "AvailabilityZone" Data.=: availabilityZone,+ "AvailabilityZoneRelocation"+ Data.=: availabilityZoneRelocation,+ "ClusterParameterGroupName"+ Data.=: clusterParameterGroupName,+ "ClusterSecurityGroups"+ Data.=: Data.toQuery+ ( Data.toQueryList "ClusterSecurityGroupName"+ Prelude.<$> clusterSecurityGroups+ ),+ "ClusterSubnetGroupName"+ Data.=: clusterSubnetGroupName,+ "ClusterType" Data.=: clusterType,+ "ClusterVersion" Data.=: clusterVersion,+ "DBName" Data.=: dbName,+ "DefaultIamRoleArn" Data.=: defaultIamRoleArn,+ "ElasticIp" Data.=: elasticIp,+ "Encrypted" Data.=: encrypted,+ "EnhancedVpcRouting" Data.=: enhancedVpcRouting,+ "HsmClientCertificateIdentifier"+ Data.=: hsmClientCertificateIdentifier,+ "HsmConfigurationIdentifier"+ Data.=: hsmConfigurationIdentifier,+ "IamRoles"+ Data.=: Data.toQuery+ (Data.toQueryList "IamRoleArn" Prelude.<$> iamRoles),+ "KmsKeyId" Data.=: kmsKeyId,+ "LoadSampleData" Data.=: loadSampleData,+ "MaintenanceTrackName" Data.=: maintenanceTrackName,+ "ManualSnapshotRetentionPeriod"+ Data.=: manualSnapshotRetentionPeriod,+ "NumberOfNodes" Data.=: numberOfNodes,+ "Port" Data.=: port,+ "PreferredMaintenanceWindow"+ Data.=: preferredMaintenanceWindow,+ "PubliclyAccessible" Data.=: publiclyAccessible,+ "SnapshotScheduleIdentifier"+ Data.=: snapshotScheduleIdentifier,+ "Tags"+ Data.=: Data.toQuery+ (Data.toQueryList "Tag" Prelude.<$> tags),+ "VpcSecurityGroupIds"+ Data.=: Data.toQuery+ ( Data.toQueryList "VpcSecurityGroupId"+ Prelude.<$> vpcSecurityGroupIds+ ),+ "ClusterIdentifier" Data.=: clusterIdentifier,+ "NodeType" Data.=: nodeType,+ "MasterUsername" Data.=: masterUsername,+ "MasterUserPassword" Data.=: masterUserPassword+ ]++-- | /See:/ 'newCreateClusterResponse' smart constructor.+data CreateClusterResponse = CreateClusterResponse'+ { cluster :: Prelude.Maybe Cluster,+ -- | The response's http status code.+ httpStatus :: Prelude.Int+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'CreateClusterResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'cluster', 'createClusterResponse_cluster' - Undocumented member.+--+-- 'httpStatus', 'createClusterResponse_httpStatus' - The response's http status code.+newCreateClusterResponse ::+ -- | 'httpStatus'+ Prelude.Int ->+ CreateClusterResponse+newCreateClusterResponse pHttpStatus_ =+ CreateClusterResponse'+ { cluster = Prelude.Nothing,+ httpStatus = pHttpStatus_+ }++-- | Undocumented member.+createClusterResponse_cluster :: Lens.Lens' CreateClusterResponse (Prelude.Maybe Cluster)+createClusterResponse_cluster = Lens.lens (\CreateClusterResponse' {cluster} -> cluster) (\s@CreateClusterResponse' {} a -> s {cluster = a} :: CreateClusterResponse)++-- | The response's http status code.+createClusterResponse_httpStatus :: Lens.Lens' CreateClusterResponse Prelude.Int+createClusterResponse_httpStatus = Lens.lens (\CreateClusterResponse' {httpStatus} -> httpStatus) (\s@CreateClusterResponse' {} a -> s {httpStatus = a} :: CreateClusterResponse)++instance Prelude.NFData CreateClusterResponse where+ rnf CreateClusterResponse' {..} =+ Prelude.rnf cluster+ `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/Redshift/CreateClusterParameterGroup.hs view
@@ -0,0 +1,290 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module : Amazonka.Redshift.CreateClusterParameterGroup+-- Copyright : (c) 2013-2023 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Creates an Amazon Redshift parameter group.+--+-- Creating parameter groups is independent of creating clusters. You can+-- associate a cluster with a parameter group when you create the cluster.+-- You can also associate an existing cluster with a parameter group after+-- the cluster is created by using ModifyCluster.+--+-- Parameters in the parameter group define specific behavior that applies+-- to the databases you create on the cluster. For more information about+-- parameters and parameter groups, go to+-- <https://docs.aws.amazon.com/redshift/latest/mgmt/working-with-parameter-groups.html Amazon Redshift Parameter Groups>+-- in the /Amazon Redshift Cluster Management Guide/.+module Amazonka.Redshift.CreateClusterParameterGroup+ ( -- * Creating a Request+ CreateClusterParameterGroup (..),+ newCreateClusterParameterGroup,++ -- * Request Lenses+ createClusterParameterGroup_tags,+ createClusterParameterGroup_parameterGroupName,+ createClusterParameterGroup_parameterGroupFamily,+ createClusterParameterGroup_description,++ -- * Destructuring the Response+ CreateClusterParameterGroupResponse (..),+ newCreateClusterParameterGroupResponse,++ -- * Response Lenses+ createClusterParameterGroupResponse_clusterParameterGroup,+ createClusterParameterGroupResponse_httpStatus,+ )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Redshift.Types+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- |+--+-- /See:/ 'newCreateClusterParameterGroup' smart constructor.+data CreateClusterParameterGroup = CreateClusterParameterGroup'+ { -- | A list of tag instances.+ tags :: Prelude.Maybe [Tag],+ -- | The name of the cluster parameter group.+ --+ -- Constraints:+ --+ -- - Must be 1 to 255 alphanumeric characters or hyphens+ --+ -- - First character must be a letter.+ --+ -- - Cannot end with a hyphen or contain two consecutive hyphens.+ --+ -- - Must be unique withing your Amazon Web Services account.+ --+ -- This value is stored as a lower-case string.+ parameterGroupName :: Prelude.Text,+ -- | The Amazon Redshift engine version to which the cluster parameter group+ -- applies. The cluster engine version determines the set of parameters.+ --+ -- To get a list of valid parameter group family names, you can call+ -- DescribeClusterParameterGroups. By default, Amazon Redshift returns a+ -- list of all the parameter groups that are owned by your Amazon Web+ -- Services account, including the default parameter groups for each Amazon+ -- Redshift engine version. The parameter group family names associated+ -- with the default parameter groups provide you the valid values. For+ -- example, a valid family name is \"redshift-1.0\".+ parameterGroupFamily :: Prelude.Text,+ -- | A description of the parameter group.+ description :: Prelude.Text+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'CreateClusterParameterGroup' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'tags', 'createClusterParameterGroup_tags' - A list of tag instances.+--+-- 'parameterGroupName', 'createClusterParameterGroup_parameterGroupName' - The name of the cluster parameter group.+--+-- Constraints:+--+-- - Must be 1 to 255 alphanumeric characters or hyphens+--+-- - First character must be a letter.+--+-- - Cannot end with a hyphen or contain two consecutive hyphens.+--+-- - Must be unique withing your Amazon Web Services account.+--+-- This value is stored as a lower-case string.+--+-- 'parameterGroupFamily', 'createClusterParameterGroup_parameterGroupFamily' - The Amazon Redshift engine version to which the cluster parameter group+-- applies. The cluster engine version determines the set of parameters.+--+-- To get a list of valid parameter group family names, you can call+-- DescribeClusterParameterGroups. By default, Amazon Redshift returns a+-- list of all the parameter groups that are owned by your Amazon Web+-- Services account, including the default parameter groups for each Amazon+-- Redshift engine version. The parameter group family names associated+-- with the default parameter groups provide you the valid values. For+-- example, a valid family name is \"redshift-1.0\".+--+-- 'description', 'createClusterParameterGroup_description' - A description of the parameter group.+newCreateClusterParameterGroup ::+ -- | 'parameterGroupName'+ Prelude.Text ->+ -- | 'parameterGroupFamily'+ Prelude.Text ->+ -- | 'description'+ Prelude.Text ->+ CreateClusterParameterGroup+newCreateClusterParameterGroup+ pParameterGroupName_+ pParameterGroupFamily_+ pDescription_ =+ CreateClusterParameterGroup'+ { tags =+ Prelude.Nothing,+ parameterGroupName = pParameterGroupName_,+ parameterGroupFamily = pParameterGroupFamily_,+ description = pDescription_+ }++-- | A list of tag instances.+createClusterParameterGroup_tags :: Lens.Lens' CreateClusterParameterGroup (Prelude.Maybe [Tag])+createClusterParameterGroup_tags = Lens.lens (\CreateClusterParameterGroup' {tags} -> tags) (\s@CreateClusterParameterGroup' {} a -> s {tags = a} :: CreateClusterParameterGroup) Prelude.. Lens.mapping Lens.coerced++-- | The name of the cluster parameter group.+--+-- Constraints:+--+-- - Must be 1 to 255 alphanumeric characters or hyphens+--+-- - First character must be a letter.+--+-- - Cannot end with a hyphen or contain two consecutive hyphens.+--+-- - Must be unique withing your Amazon Web Services account.+--+-- This value is stored as a lower-case string.+createClusterParameterGroup_parameterGroupName :: Lens.Lens' CreateClusterParameterGroup Prelude.Text+createClusterParameterGroup_parameterGroupName = Lens.lens (\CreateClusterParameterGroup' {parameterGroupName} -> parameterGroupName) (\s@CreateClusterParameterGroup' {} a -> s {parameterGroupName = a} :: CreateClusterParameterGroup)++-- | The Amazon Redshift engine version to which the cluster parameter group+-- applies. The cluster engine version determines the set of parameters.+--+-- To get a list of valid parameter group family names, you can call+-- DescribeClusterParameterGroups. By default, Amazon Redshift returns a+-- list of all the parameter groups that are owned by your Amazon Web+-- Services account, including the default parameter groups for each Amazon+-- Redshift engine version. The parameter group family names associated+-- with the default parameter groups provide you the valid values. For+-- example, a valid family name is \"redshift-1.0\".+createClusterParameterGroup_parameterGroupFamily :: Lens.Lens' CreateClusterParameterGroup Prelude.Text+createClusterParameterGroup_parameterGroupFamily = Lens.lens (\CreateClusterParameterGroup' {parameterGroupFamily} -> parameterGroupFamily) (\s@CreateClusterParameterGroup' {} a -> s {parameterGroupFamily = a} :: CreateClusterParameterGroup)++-- | A description of the parameter group.+createClusterParameterGroup_description :: Lens.Lens' CreateClusterParameterGroup Prelude.Text+createClusterParameterGroup_description = Lens.lens (\CreateClusterParameterGroup' {description} -> description) (\s@CreateClusterParameterGroup' {} a -> s {description = a} :: CreateClusterParameterGroup)++instance Core.AWSRequest CreateClusterParameterGroup where+ type+ AWSResponse CreateClusterParameterGroup =+ CreateClusterParameterGroupResponse+ request overrides =+ Request.postQuery (overrides defaultService)+ response =+ Response.receiveXMLWrapper+ "CreateClusterParameterGroupResult"+ ( \s h x ->+ CreateClusterParameterGroupResponse'+ Prelude.<$> (x Data..@? "ClusterParameterGroup")+ Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+ )++instance Prelude.Hashable CreateClusterParameterGroup where+ hashWithSalt _salt CreateClusterParameterGroup' {..} =+ _salt+ `Prelude.hashWithSalt` tags+ `Prelude.hashWithSalt` parameterGroupName+ `Prelude.hashWithSalt` parameterGroupFamily+ `Prelude.hashWithSalt` description++instance Prelude.NFData CreateClusterParameterGroup where+ rnf CreateClusterParameterGroup' {..} =+ Prelude.rnf tags+ `Prelude.seq` Prelude.rnf parameterGroupName+ `Prelude.seq` Prelude.rnf parameterGroupFamily+ `Prelude.seq` Prelude.rnf description++instance Data.ToHeaders CreateClusterParameterGroup where+ toHeaders = Prelude.const Prelude.mempty++instance Data.ToPath CreateClusterParameterGroup where+ toPath = Prelude.const "/"++instance Data.ToQuery CreateClusterParameterGroup where+ toQuery CreateClusterParameterGroup' {..} =+ Prelude.mconcat+ [ "Action"+ Data.=: ( "CreateClusterParameterGroup" ::+ Prelude.ByteString+ ),+ "Version"+ Data.=: ("2012-12-01" :: Prelude.ByteString),+ "Tags"+ Data.=: Data.toQuery+ (Data.toQueryList "Tag" Prelude.<$> tags),+ "ParameterGroupName" Data.=: parameterGroupName,+ "ParameterGroupFamily" Data.=: parameterGroupFamily,+ "Description" Data.=: description+ ]++-- | /See:/ 'newCreateClusterParameterGroupResponse' smart constructor.+data CreateClusterParameterGroupResponse = CreateClusterParameterGroupResponse'+ { clusterParameterGroup :: Prelude.Maybe ClusterParameterGroup,+ -- | The response's http status code.+ httpStatus :: Prelude.Int+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'CreateClusterParameterGroupResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'clusterParameterGroup', 'createClusterParameterGroupResponse_clusterParameterGroup' - Undocumented member.+--+-- 'httpStatus', 'createClusterParameterGroupResponse_httpStatus' - The response's http status code.+newCreateClusterParameterGroupResponse ::+ -- | 'httpStatus'+ Prelude.Int ->+ CreateClusterParameterGroupResponse+newCreateClusterParameterGroupResponse pHttpStatus_ =+ CreateClusterParameterGroupResponse'+ { clusterParameterGroup =+ Prelude.Nothing,+ httpStatus = pHttpStatus_+ }++-- | Undocumented member.+createClusterParameterGroupResponse_clusterParameterGroup :: Lens.Lens' CreateClusterParameterGroupResponse (Prelude.Maybe ClusterParameterGroup)+createClusterParameterGroupResponse_clusterParameterGroup = Lens.lens (\CreateClusterParameterGroupResponse' {clusterParameterGroup} -> clusterParameterGroup) (\s@CreateClusterParameterGroupResponse' {} a -> s {clusterParameterGroup = a} :: CreateClusterParameterGroupResponse)++-- | The response's http status code.+createClusterParameterGroupResponse_httpStatus :: Lens.Lens' CreateClusterParameterGroupResponse Prelude.Int+createClusterParameterGroupResponse_httpStatus = Lens.lens (\CreateClusterParameterGroupResponse' {httpStatus} -> httpStatus) (\s@CreateClusterParameterGroupResponse' {} a -> s {httpStatus = a} :: CreateClusterParameterGroupResponse)++instance+ Prelude.NFData+ CreateClusterParameterGroupResponse+ where+ rnf CreateClusterParameterGroupResponse' {..} =+ Prelude.rnf clusterParameterGroup+ `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/Redshift/CreateClusterSecurityGroup.hs view
@@ -0,0 +1,240 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module : Amazonka.Redshift.CreateClusterSecurityGroup+-- Copyright : (c) 2013-2023 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Creates a new Amazon Redshift security group. You use security groups to+-- control access to non-VPC clusters.+--+-- For information about managing security groups, go to+-- <https://docs.aws.amazon.com/redshift/latest/mgmt/working-with-security-groups.html Amazon Redshift Cluster Security Groups>+-- in the /Amazon Redshift Cluster Management Guide/.+module Amazonka.Redshift.CreateClusterSecurityGroup+ ( -- * Creating a Request+ CreateClusterSecurityGroup (..),+ newCreateClusterSecurityGroup,++ -- * Request Lenses+ createClusterSecurityGroup_tags,+ createClusterSecurityGroup_clusterSecurityGroupName,+ createClusterSecurityGroup_description,++ -- * Destructuring the Response+ CreateClusterSecurityGroupResponse (..),+ newCreateClusterSecurityGroupResponse,++ -- * Response Lenses+ createClusterSecurityGroupResponse_clusterSecurityGroup,+ createClusterSecurityGroupResponse_httpStatus,+ )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Redshift.Types+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- |+--+-- /See:/ 'newCreateClusterSecurityGroup' smart constructor.+data CreateClusterSecurityGroup = CreateClusterSecurityGroup'+ { -- | A list of tag instances.+ tags :: Prelude.Maybe [Tag],+ -- | The name for the security group. Amazon Redshift stores the value as a+ -- lowercase string.+ --+ -- Constraints:+ --+ -- - Must contain no more than 255 alphanumeric characters or hyphens.+ --+ -- - Must not be \"Default\".+ --+ -- - Must be unique for all security groups that are created by your+ -- Amazon Web Services account.+ --+ -- Example: @examplesecuritygroup@+ clusterSecurityGroupName :: Prelude.Text,+ -- | A description for the security group.+ description :: Prelude.Text+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'CreateClusterSecurityGroup' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'tags', 'createClusterSecurityGroup_tags' - A list of tag instances.+--+-- 'clusterSecurityGroupName', 'createClusterSecurityGroup_clusterSecurityGroupName' - The name for the security group. Amazon Redshift stores the value as a+-- lowercase string.+--+-- Constraints:+--+-- - Must contain no more than 255 alphanumeric characters or hyphens.+--+-- - Must not be \"Default\".+--+-- - Must be unique for all security groups that are created by your+-- Amazon Web Services account.+--+-- Example: @examplesecuritygroup@+--+-- 'description', 'createClusterSecurityGroup_description' - A description for the security group.+newCreateClusterSecurityGroup ::+ -- | 'clusterSecurityGroupName'+ Prelude.Text ->+ -- | 'description'+ Prelude.Text ->+ CreateClusterSecurityGroup+newCreateClusterSecurityGroup+ pClusterSecurityGroupName_+ pDescription_ =+ CreateClusterSecurityGroup'+ { tags = Prelude.Nothing,+ clusterSecurityGroupName =+ pClusterSecurityGroupName_,+ description = pDescription_+ }++-- | A list of tag instances.+createClusterSecurityGroup_tags :: Lens.Lens' CreateClusterSecurityGroup (Prelude.Maybe [Tag])+createClusterSecurityGroup_tags = Lens.lens (\CreateClusterSecurityGroup' {tags} -> tags) (\s@CreateClusterSecurityGroup' {} a -> s {tags = a} :: CreateClusterSecurityGroup) Prelude.. Lens.mapping Lens.coerced++-- | The name for the security group. Amazon Redshift stores the value as a+-- lowercase string.+--+-- Constraints:+--+-- - Must contain no more than 255 alphanumeric characters or hyphens.+--+-- - Must not be \"Default\".+--+-- - Must be unique for all security groups that are created by your+-- Amazon Web Services account.+--+-- Example: @examplesecuritygroup@+createClusterSecurityGroup_clusterSecurityGroupName :: Lens.Lens' CreateClusterSecurityGroup Prelude.Text+createClusterSecurityGroup_clusterSecurityGroupName = Lens.lens (\CreateClusterSecurityGroup' {clusterSecurityGroupName} -> clusterSecurityGroupName) (\s@CreateClusterSecurityGroup' {} a -> s {clusterSecurityGroupName = a} :: CreateClusterSecurityGroup)++-- | A description for the security group.+createClusterSecurityGroup_description :: Lens.Lens' CreateClusterSecurityGroup Prelude.Text+createClusterSecurityGroup_description = Lens.lens (\CreateClusterSecurityGroup' {description} -> description) (\s@CreateClusterSecurityGroup' {} a -> s {description = a} :: CreateClusterSecurityGroup)++instance Core.AWSRequest CreateClusterSecurityGroup where+ type+ AWSResponse CreateClusterSecurityGroup =+ CreateClusterSecurityGroupResponse+ request overrides =+ Request.postQuery (overrides defaultService)+ response =+ Response.receiveXMLWrapper+ "CreateClusterSecurityGroupResult"+ ( \s h x ->+ CreateClusterSecurityGroupResponse'+ Prelude.<$> (x Data..@? "ClusterSecurityGroup")+ Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+ )++instance Prelude.Hashable CreateClusterSecurityGroup where+ hashWithSalt _salt CreateClusterSecurityGroup' {..} =+ _salt+ `Prelude.hashWithSalt` tags+ `Prelude.hashWithSalt` clusterSecurityGroupName+ `Prelude.hashWithSalt` description++instance Prelude.NFData CreateClusterSecurityGroup where+ rnf CreateClusterSecurityGroup' {..} =+ Prelude.rnf tags+ `Prelude.seq` Prelude.rnf clusterSecurityGroupName+ `Prelude.seq` Prelude.rnf description++instance Data.ToHeaders CreateClusterSecurityGroup where+ toHeaders = Prelude.const Prelude.mempty++instance Data.ToPath CreateClusterSecurityGroup where+ toPath = Prelude.const "/"++instance Data.ToQuery CreateClusterSecurityGroup where+ toQuery CreateClusterSecurityGroup' {..} =+ Prelude.mconcat+ [ "Action"+ Data.=: ("CreateClusterSecurityGroup" :: Prelude.ByteString),+ "Version"+ Data.=: ("2012-12-01" :: Prelude.ByteString),+ "Tags"+ Data.=: Data.toQuery+ (Data.toQueryList "Tag" Prelude.<$> tags),+ "ClusterSecurityGroupName"+ Data.=: clusterSecurityGroupName,+ "Description" Data.=: description+ ]++-- | /See:/ 'newCreateClusterSecurityGroupResponse' smart constructor.+data CreateClusterSecurityGroupResponse = CreateClusterSecurityGroupResponse'+ { clusterSecurityGroup :: Prelude.Maybe ClusterSecurityGroup,+ -- | The response's http status code.+ httpStatus :: Prelude.Int+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'CreateClusterSecurityGroupResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'clusterSecurityGroup', 'createClusterSecurityGroupResponse_clusterSecurityGroup' - Undocumented member.+--+-- 'httpStatus', 'createClusterSecurityGroupResponse_httpStatus' - The response's http status code.+newCreateClusterSecurityGroupResponse ::+ -- | 'httpStatus'+ Prelude.Int ->+ CreateClusterSecurityGroupResponse+newCreateClusterSecurityGroupResponse pHttpStatus_ =+ CreateClusterSecurityGroupResponse'+ { clusterSecurityGroup =+ Prelude.Nothing,+ httpStatus = pHttpStatus_+ }++-- | Undocumented member.+createClusterSecurityGroupResponse_clusterSecurityGroup :: Lens.Lens' CreateClusterSecurityGroupResponse (Prelude.Maybe ClusterSecurityGroup)+createClusterSecurityGroupResponse_clusterSecurityGroup = Lens.lens (\CreateClusterSecurityGroupResponse' {clusterSecurityGroup} -> clusterSecurityGroup) (\s@CreateClusterSecurityGroupResponse' {} a -> s {clusterSecurityGroup = a} :: CreateClusterSecurityGroupResponse)++-- | The response's http status code.+createClusterSecurityGroupResponse_httpStatus :: Lens.Lens' CreateClusterSecurityGroupResponse Prelude.Int+createClusterSecurityGroupResponse_httpStatus = Lens.lens (\CreateClusterSecurityGroupResponse' {httpStatus} -> httpStatus) (\s@CreateClusterSecurityGroupResponse' {} a -> s {httpStatus = a} :: CreateClusterSecurityGroupResponse)++instance+ Prelude.NFData+ CreateClusterSecurityGroupResponse+ where+ rnf CreateClusterSecurityGroupResponse' {..} =+ Prelude.rnf clusterSecurityGroup+ `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/Redshift/CreateClusterSnapshot.hs view
@@ -0,0 +1,271 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module : Amazonka.Redshift.CreateClusterSnapshot+-- Copyright : (c) 2013-2023 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Creates a manual snapshot of the specified cluster. The cluster must be+-- in the @available@ state.+--+-- For more information about working with snapshots, go to+-- <https://docs.aws.amazon.com/redshift/latest/mgmt/working-with-snapshots.html Amazon Redshift Snapshots>+-- in the /Amazon Redshift Cluster Management Guide/.+module Amazonka.Redshift.CreateClusterSnapshot+ ( -- * Creating a Request+ CreateClusterSnapshot (..),+ newCreateClusterSnapshot,++ -- * Request Lenses+ createClusterSnapshot_manualSnapshotRetentionPeriod,+ createClusterSnapshot_tags,+ createClusterSnapshot_snapshotIdentifier,+ createClusterSnapshot_clusterIdentifier,++ -- * Destructuring the Response+ CreateClusterSnapshotResponse (..),+ newCreateClusterSnapshotResponse,++ -- * Response Lenses+ createClusterSnapshotResponse_snapshot,+ createClusterSnapshotResponse_httpStatus,+ )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Redshift.Types+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- |+--+-- /See:/ 'newCreateClusterSnapshot' smart constructor.+data CreateClusterSnapshot = CreateClusterSnapshot'+ { -- | The number of days that a manual snapshot is retained. If the value is+ -- -1, the manual snapshot is retained indefinitely.+ --+ -- The value must be either -1 or an integer between 1 and 3,653.+ --+ -- The default value is -1.+ manualSnapshotRetentionPeriod :: Prelude.Maybe Prelude.Int,+ -- | A list of tag instances.+ tags :: Prelude.Maybe [Tag],+ -- | A unique identifier for the snapshot that you are requesting. This+ -- identifier must be unique for all snapshots within the Amazon Web+ -- Services account.+ --+ -- Constraints:+ --+ -- - Cannot be null, empty, or blank+ --+ -- - Must contain from 1 to 255 alphanumeric characters or hyphens+ --+ -- - First character must be a letter+ --+ -- - Cannot end with a hyphen or contain two consecutive hyphens+ --+ -- Example: @my-snapshot-id@+ snapshotIdentifier :: Prelude.Text,+ -- | The cluster identifier for which you want a snapshot.+ clusterIdentifier :: Prelude.Text+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'CreateClusterSnapshot' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'manualSnapshotRetentionPeriod', 'createClusterSnapshot_manualSnapshotRetentionPeriod' - The number of days that a manual snapshot is retained. If the value is+-- -1, the manual snapshot is retained indefinitely.+--+-- The value must be either -1 or an integer between 1 and 3,653.+--+-- The default value is -1.+--+-- 'tags', 'createClusterSnapshot_tags' - A list of tag instances.+--+-- 'snapshotIdentifier', 'createClusterSnapshot_snapshotIdentifier' - A unique identifier for the snapshot that you are requesting. This+-- identifier must be unique for all snapshots within the Amazon Web+-- Services account.+--+-- Constraints:+--+-- - Cannot be null, empty, or blank+--+-- - Must contain from 1 to 255 alphanumeric characters or hyphens+--+-- - First character must be a letter+--+-- - Cannot end with a hyphen or contain two consecutive hyphens+--+-- Example: @my-snapshot-id@+--+-- 'clusterIdentifier', 'createClusterSnapshot_clusterIdentifier' - The cluster identifier for which you want a snapshot.+newCreateClusterSnapshot ::+ -- | 'snapshotIdentifier'+ Prelude.Text ->+ -- | 'clusterIdentifier'+ Prelude.Text ->+ CreateClusterSnapshot+newCreateClusterSnapshot+ pSnapshotIdentifier_+ pClusterIdentifier_ =+ CreateClusterSnapshot'+ { manualSnapshotRetentionPeriod =+ Prelude.Nothing,+ tags = Prelude.Nothing,+ snapshotIdentifier = pSnapshotIdentifier_,+ clusterIdentifier = pClusterIdentifier_+ }++-- | The number of days that a manual snapshot is retained. If the value is+-- -1, the manual snapshot is retained indefinitely.+--+-- The value must be either -1 or an integer between 1 and 3,653.+--+-- The default value is -1.+createClusterSnapshot_manualSnapshotRetentionPeriod :: Lens.Lens' CreateClusterSnapshot (Prelude.Maybe Prelude.Int)+createClusterSnapshot_manualSnapshotRetentionPeriod = Lens.lens (\CreateClusterSnapshot' {manualSnapshotRetentionPeriod} -> manualSnapshotRetentionPeriod) (\s@CreateClusterSnapshot' {} a -> s {manualSnapshotRetentionPeriod = a} :: CreateClusterSnapshot)++-- | A list of tag instances.+createClusterSnapshot_tags :: Lens.Lens' CreateClusterSnapshot (Prelude.Maybe [Tag])+createClusterSnapshot_tags = Lens.lens (\CreateClusterSnapshot' {tags} -> tags) (\s@CreateClusterSnapshot' {} a -> s {tags = a} :: CreateClusterSnapshot) Prelude.. Lens.mapping Lens.coerced++-- | A unique identifier for the snapshot that you are requesting. This+-- identifier must be unique for all snapshots within the Amazon Web+-- Services account.+--+-- Constraints:+--+-- - Cannot be null, empty, or blank+--+-- - Must contain from 1 to 255 alphanumeric characters or hyphens+--+-- - First character must be a letter+--+-- - Cannot end with a hyphen or contain two consecutive hyphens+--+-- Example: @my-snapshot-id@+createClusterSnapshot_snapshotIdentifier :: Lens.Lens' CreateClusterSnapshot Prelude.Text+createClusterSnapshot_snapshotIdentifier = Lens.lens (\CreateClusterSnapshot' {snapshotIdentifier} -> snapshotIdentifier) (\s@CreateClusterSnapshot' {} a -> s {snapshotIdentifier = a} :: CreateClusterSnapshot)++-- | The cluster identifier for which you want a snapshot.+createClusterSnapshot_clusterIdentifier :: Lens.Lens' CreateClusterSnapshot Prelude.Text+createClusterSnapshot_clusterIdentifier = Lens.lens (\CreateClusterSnapshot' {clusterIdentifier} -> clusterIdentifier) (\s@CreateClusterSnapshot' {} a -> s {clusterIdentifier = a} :: CreateClusterSnapshot)++instance Core.AWSRequest CreateClusterSnapshot where+ type+ AWSResponse CreateClusterSnapshot =+ CreateClusterSnapshotResponse+ request overrides =+ Request.postQuery (overrides defaultService)+ response =+ Response.receiveXMLWrapper+ "CreateClusterSnapshotResult"+ ( \s h x ->+ CreateClusterSnapshotResponse'+ Prelude.<$> (x Data..@? "Snapshot")+ Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+ )++instance Prelude.Hashable CreateClusterSnapshot where+ hashWithSalt _salt CreateClusterSnapshot' {..} =+ _salt+ `Prelude.hashWithSalt` manualSnapshotRetentionPeriod+ `Prelude.hashWithSalt` tags+ `Prelude.hashWithSalt` snapshotIdentifier+ `Prelude.hashWithSalt` clusterIdentifier++instance Prelude.NFData CreateClusterSnapshot where+ rnf CreateClusterSnapshot' {..} =+ Prelude.rnf manualSnapshotRetentionPeriod+ `Prelude.seq` Prelude.rnf tags+ `Prelude.seq` Prelude.rnf snapshotIdentifier+ `Prelude.seq` Prelude.rnf clusterIdentifier++instance Data.ToHeaders CreateClusterSnapshot where+ toHeaders = Prelude.const Prelude.mempty++instance Data.ToPath CreateClusterSnapshot where+ toPath = Prelude.const "/"++instance Data.ToQuery CreateClusterSnapshot where+ toQuery CreateClusterSnapshot' {..} =+ Prelude.mconcat+ [ "Action"+ Data.=: ("CreateClusterSnapshot" :: Prelude.ByteString),+ "Version"+ Data.=: ("2012-12-01" :: Prelude.ByteString),+ "ManualSnapshotRetentionPeriod"+ Data.=: manualSnapshotRetentionPeriod,+ "Tags"+ Data.=: Data.toQuery+ (Data.toQueryList "Tag" Prelude.<$> tags),+ "SnapshotIdentifier" Data.=: snapshotIdentifier,+ "ClusterIdentifier" Data.=: clusterIdentifier+ ]++-- | /See:/ 'newCreateClusterSnapshotResponse' smart constructor.+data CreateClusterSnapshotResponse = CreateClusterSnapshotResponse'+ { snapshot :: Prelude.Maybe Snapshot,+ -- | The response's http status code.+ httpStatus :: Prelude.Int+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'CreateClusterSnapshotResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'snapshot', 'createClusterSnapshotResponse_snapshot' - Undocumented member.+--+-- 'httpStatus', 'createClusterSnapshotResponse_httpStatus' - The response's http status code.+newCreateClusterSnapshotResponse ::+ -- | 'httpStatus'+ Prelude.Int ->+ CreateClusterSnapshotResponse+newCreateClusterSnapshotResponse pHttpStatus_ =+ CreateClusterSnapshotResponse'+ { snapshot =+ Prelude.Nothing,+ httpStatus = pHttpStatus_+ }++-- | Undocumented member.+createClusterSnapshotResponse_snapshot :: Lens.Lens' CreateClusterSnapshotResponse (Prelude.Maybe Snapshot)+createClusterSnapshotResponse_snapshot = Lens.lens (\CreateClusterSnapshotResponse' {snapshot} -> snapshot) (\s@CreateClusterSnapshotResponse' {} a -> s {snapshot = a} :: CreateClusterSnapshotResponse)++-- | The response's http status code.+createClusterSnapshotResponse_httpStatus :: Lens.Lens' CreateClusterSnapshotResponse Prelude.Int+createClusterSnapshotResponse_httpStatus = Lens.lens (\CreateClusterSnapshotResponse' {httpStatus} -> httpStatus) (\s@CreateClusterSnapshotResponse' {} a -> s {httpStatus = a} :: CreateClusterSnapshotResponse)++instance Prelude.NFData CreateClusterSnapshotResponse where+ rnf CreateClusterSnapshotResponse' {..} =+ Prelude.rnf snapshot+ `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/Redshift/CreateClusterSubnetGroup.hs view
@@ -0,0 +1,257 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module : Amazonka.Redshift.CreateClusterSubnetGroup+-- Copyright : (c) 2013-2023 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Creates a new Amazon Redshift subnet group. You must provide a list of+-- one or more subnets in your existing Amazon Virtual Private Cloud+-- (Amazon VPC) when creating Amazon Redshift subnet group.+--+-- For information about subnet groups, go to+-- <https://docs.aws.amazon.com/redshift/latest/mgmt/working-with-cluster-subnet-groups.html Amazon Redshift Cluster Subnet Groups>+-- in the /Amazon Redshift Cluster Management Guide/.+module Amazonka.Redshift.CreateClusterSubnetGroup+ ( -- * Creating a Request+ CreateClusterSubnetGroup (..),+ newCreateClusterSubnetGroup,++ -- * Request Lenses+ createClusterSubnetGroup_tags,+ createClusterSubnetGroup_clusterSubnetGroupName,+ createClusterSubnetGroup_description,+ createClusterSubnetGroup_subnetIds,++ -- * Destructuring the Response+ CreateClusterSubnetGroupResponse (..),+ newCreateClusterSubnetGroupResponse,++ -- * Response Lenses+ createClusterSubnetGroupResponse_clusterSubnetGroup,+ createClusterSubnetGroupResponse_httpStatus,+ )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Redshift.Types+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- |+--+-- /See:/ 'newCreateClusterSubnetGroup' smart constructor.+data CreateClusterSubnetGroup = CreateClusterSubnetGroup'+ { -- | A list of tag instances.+ tags :: Prelude.Maybe [Tag],+ -- | The name for the subnet group. Amazon Redshift stores the value as a+ -- lowercase string.+ --+ -- Constraints:+ --+ -- - Must contain no more than 255 alphanumeric characters or hyphens.+ --+ -- - Must not be \"Default\".+ --+ -- - Must be unique for all subnet groups that are created by your Amazon+ -- Web Services account.+ --+ -- Example: @examplesubnetgroup@+ clusterSubnetGroupName :: Prelude.Text,+ -- | A description for the subnet group.+ description :: Prelude.Text,+ -- | An array of VPC subnet IDs. A maximum of 20 subnets can be modified in a+ -- single request.+ subnetIds :: [Prelude.Text]+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'CreateClusterSubnetGroup' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'tags', 'createClusterSubnetGroup_tags' - A list of tag instances.+--+-- 'clusterSubnetGroupName', 'createClusterSubnetGroup_clusterSubnetGroupName' - The name for the subnet group. Amazon Redshift stores the value as a+-- lowercase string.+--+-- Constraints:+--+-- - Must contain no more than 255 alphanumeric characters or hyphens.+--+-- - Must not be \"Default\".+--+-- - Must be unique for all subnet groups that are created by your Amazon+-- Web Services account.+--+-- Example: @examplesubnetgroup@+--+-- 'description', 'createClusterSubnetGroup_description' - A description for the subnet group.+--+-- 'subnetIds', 'createClusterSubnetGroup_subnetIds' - An array of VPC subnet IDs. A maximum of 20 subnets can be modified in a+-- single request.+newCreateClusterSubnetGroup ::+ -- | 'clusterSubnetGroupName'+ Prelude.Text ->+ -- | 'description'+ Prelude.Text ->+ CreateClusterSubnetGroup+newCreateClusterSubnetGroup+ pClusterSubnetGroupName_+ pDescription_ =+ CreateClusterSubnetGroup'+ { tags = Prelude.Nothing,+ clusterSubnetGroupName = pClusterSubnetGroupName_,+ description = pDescription_,+ subnetIds = Prelude.mempty+ }++-- | A list of tag instances.+createClusterSubnetGroup_tags :: Lens.Lens' CreateClusterSubnetGroup (Prelude.Maybe [Tag])+createClusterSubnetGroup_tags = Lens.lens (\CreateClusterSubnetGroup' {tags} -> tags) (\s@CreateClusterSubnetGroup' {} a -> s {tags = a} :: CreateClusterSubnetGroup) Prelude.. Lens.mapping Lens.coerced++-- | The name for the subnet group. Amazon Redshift stores the value as a+-- lowercase string.+--+-- Constraints:+--+-- - Must contain no more than 255 alphanumeric characters or hyphens.+--+-- - Must not be \"Default\".+--+-- - Must be unique for all subnet groups that are created by your Amazon+-- Web Services account.+--+-- Example: @examplesubnetgroup@+createClusterSubnetGroup_clusterSubnetGroupName :: Lens.Lens' CreateClusterSubnetGroup Prelude.Text+createClusterSubnetGroup_clusterSubnetGroupName = Lens.lens (\CreateClusterSubnetGroup' {clusterSubnetGroupName} -> clusterSubnetGroupName) (\s@CreateClusterSubnetGroup' {} a -> s {clusterSubnetGroupName = a} :: CreateClusterSubnetGroup)++-- | A description for the subnet group.+createClusterSubnetGroup_description :: Lens.Lens' CreateClusterSubnetGroup Prelude.Text+createClusterSubnetGroup_description = Lens.lens (\CreateClusterSubnetGroup' {description} -> description) (\s@CreateClusterSubnetGroup' {} a -> s {description = a} :: CreateClusterSubnetGroup)++-- | An array of VPC subnet IDs. A maximum of 20 subnets can be modified in a+-- single request.+createClusterSubnetGroup_subnetIds :: Lens.Lens' CreateClusterSubnetGroup [Prelude.Text]+createClusterSubnetGroup_subnetIds = Lens.lens (\CreateClusterSubnetGroup' {subnetIds} -> subnetIds) (\s@CreateClusterSubnetGroup' {} a -> s {subnetIds = a} :: CreateClusterSubnetGroup) Prelude.. Lens.coerced++instance Core.AWSRequest CreateClusterSubnetGroup where+ type+ AWSResponse CreateClusterSubnetGroup =+ CreateClusterSubnetGroupResponse+ request overrides =+ Request.postQuery (overrides defaultService)+ response =+ Response.receiveXMLWrapper+ "CreateClusterSubnetGroupResult"+ ( \s h x ->+ CreateClusterSubnetGroupResponse'+ Prelude.<$> (x Data..@? "ClusterSubnetGroup")+ Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+ )++instance Prelude.Hashable CreateClusterSubnetGroup where+ hashWithSalt _salt CreateClusterSubnetGroup' {..} =+ _salt+ `Prelude.hashWithSalt` tags+ `Prelude.hashWithSalt` clusterSubnetGroupName+ `Prelude.hashWithSalt` description+ `Prelude.hashWithSalt` subnetIds++instance Prelude.NFData CreateClusterSubnetGroup where+ rnf CreateClusterSubnetGroup' {..} =+ Prelude.rnf tags+ `Prelude.seq` Prelude.rnf clusterSubnetGroupName+ `Prelude.seq` Prelude.rnf description+ `Prelude.seq` Prelude.rnf subnetIds++instance Data.ToHeaders CreateClusterSubnetGroup where+ toHeaders = Prelude.const Prelude.mempty++instance Data.ToPath CreateClusterSubnetGroup where+ toPath = Prelude.const "/"++instance Data.ToQuery CreateClusterSubnetGroup where+ toQuery CreateClusterSubnetGroup' {..} =+ Prelude.mconcat+ [ "Action"+ Data.=: ("CreateClusterSubnetGroup" :: Prelude.ByteString),+ "Version"+ Data.=: ("2012-12-01" :: Prelude.ByteString),+ "Tags"+ Data.=: Data.toQuery+ (Data.toQueryList "Tag" Prelude.<$> tags),+ "ClusterSubnetGroupName"+ Data.=: clusterSubnetGroupName,+ "Description" Data.=: description,+ "SubnetIds"+ Data.=: Data.toQueryList "SubnetIdentifier" subnetIds+ ]++-- | /See:/ 'newCreateClusterSubnetGroupResponse' smart constructor.+data CreateClusterSubnetGroupResponse = CreateClusterSubnetGroupResponse'+ { clusterSubnetGroup :: Prelude.Maybe ClusterSubnetGroup,+ -- | The response's http status code.+ httpStatus :: Prelude.Int+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'CreateClusterSubnetGroupResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'clusterSubnetGroup', 'createClusterSubnetGroupResponse_clusterSubnetGroup' - Undocumented member.+--+-- 'httpStatus', 'createClusterSubnetGroupResponse_httpStatus' - The response's http status code.+newCreateClusterSubnetGroupResponse ::+ -- | 'httpStatus'+ Prelude.Int ->+ CreateClusterSubnetGroupResponse+newCreateClusterSubnetGroupResponse pHttpStatus_ =+ CreateClusterSubnetGroupResponse'+ { clusterSubnetGroup =+ Prelude.Nothing,+ httpStatus = pHttpStatus_+ }++-- | Undocumented member.+createClusterSubnetGroupResponse_clusterSubnetGroup :: Lens.Lens' CreateClusterSubnetGroupResponse (Prelude.Maybe ClusterSubnetGroup)+createClusterSubnetGroupResponse_clusterSubnetGroup = Lens.lens (\CreateClusterSubnetGroupResponse' {clusterSubnetGroup} -> clusterSubnetGroup) (\s@CreateClusterSubnetGroupResponse' {} a -> s {clusterSubnetGroup = a} :: CreateClusterSubnetGroupResponse)++-- | The response's http status code.+createClusterSubnetGroupResponse_httpStatus :: Lens.Lens' CreateClusterSubnetGroupResponse Prelude.Int+createClusterSubnetGroupResponse_httpStatus = Lens.lens (\CreateClusterSubnetGroupResponse' {httpStatus} -> httpStatus) (\s@CreateClusterSubnetGroupResponse' {} a -> s {httpStatus = a} :: CreateClusterSubnetGroupResponse)++instance+ Prelude.NFData+ CreateClusterSubnetGroupResponse+ where+ rnf CreateClusterSubnetGroupResponse' {..} =+ Prelude.rnf clusterSubnetGroup+ `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/Redshift/CreateEndpointAccess.hs view
@@ -0,0 +1,203 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module : Amazonka.Redshift.CreateEndpointAccess+-- Copyright : (c) 2013-2023 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Creates a Redshift-managed VPC endpoint.+module Amazonka.Redshift.CreateEndpointAccess+ ( -- * Creating a Request+ CreateEndpointAccess (..),+ newCreateEndpointAccess,++ -- * Request Lenses+ createEndpointAccess_clusterIdentifier,+ createEndpointAccess_resourceOwner,+ createEndpointAccess_vpcSecurityGroupIds,+ createEndpointAccess_endpointName,+ createEndpointAccess_subnetGroupName,++ -- * Destructuring the Response+ EndpointAccess (..),+ newEndpointAccess,++ -- * Response Lenses+ endpointAccess_address,+ endpointAccess_clusterIdentifier,+ endpointAccess_endpointCreateTime,+ endpointAccess_endpointName,+ endpointAccess_endpointStatus,+ endpointAccess_port,+ endpointAccess_resourceOwner,+ endpointAccess_subnetGroupName,+ endpointAccess_vpcEndpoint,+ endpointAccess_vpcSecurityGroups,+ )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Redshift.Types+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newCreateEndpointAccess' smart constructor.+data CreateEndpointAccess = CreateEndpointAccess'+ { -- | The cluster identifier of the cluster to access.+ clusterIdentifier :: Prelude.Maybe Prelude.Text,+ -- | The Amazon Web Services account ID of the owner of the cluster. This is+ -- only required if the cluster is in another Amazon Web Services account.+ resourceOwner :: Prelude.Maybe Prelude.Text,+ -- | The security group that defines the ports, protocols, and sources for+ -- inbound traffic that you are authorizing into your endpoint.+ vpcSecurityGroupIds :: Prelude.Maybe [Prelude.Text],+ -- | The Redshift-managed VPC endpoint name.+ --+ -- An endpoint name must contain 1-30 characters. Valid characters are A-Z,+ -- a-z, 0-9, and hyphen(-). The first character must be a letter. The name+ -- can\'t contain two consecutive hyphens or end with a hyphen.+ endpointName :: Prelude.Text,+ -- | The subnet group from which Amazon Redshift chooses the subnet to deploy+ -- the endpoint.+ subnetGroupName :: Prelude.Text+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'CreateEndpointAccess' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'clusterIdentifier', 'createEndpointAccess_clusterIdentifier' - The cluster identifier of the cluster to access.+--+-- 'resourceOwner', 'createEndpointAccess_resourceOwner' - The Amazon Web Services account ID of the owner of the cluster. This is+-- only required if the cluster is in another Amazon Web Services account.+--+-- 'vpcSecurityGroupIds', 'createEndpointAccess_vpcSecurityGroupIds' - The security group that defines the ports, protocols, and sources for+-- inbound traffic that you are authorizing into your endpoint.+--+-- 'endpointName', 'createEndpointAccess_endpointName' - The Redshift-managed VPC endpoint name.+--+-- An endpoint name must contain 1-30 characters. Valid characters are A-Z,+-- a-z, 0-9, and hyphen(-). The first character must be a letter. The name+-- can\'t contain two consecutive hyphens or end with a hyphen.+--+-- 'subnetGroupName', 'createEndpointAccess_subnetGroupName' - The subnet group from which Amazon Redshift chooses the subnet to deploy+-- the endpoint.+newCreateEndpointAccess ::+ -- | 'endpointName'+ Prelude.Text ->+ -- | 'subnetGroupName'+ Prelude.Text ->+ CreateEndpointAccess+newCreateEndpointAccess+ pEndpointName_+ pSubnetGroupName_ =+ CreateEndpointAccess'+ { clusterIdentifier =+ Prelude.Nothing,+ resourceOwner = Prelude.Nothing,+ vpcSecurityGroupIds = Prelude.Nothing,+ endpointName = pEndpointName_,+ subnetGroupName = pSubnetGroupName_+ }++-- | The cluster identifier of the cluster to access.+createEndpointAccess_clusterIdentifier :: Lens.Lens' CreateEndpointAccess (Prelude.Maybe Prelude.Text)+createEndpointAccess_clusterIdentifier = Lens.lens (\CreateEndpointAccess' {clusterIdentifier} -> clusterIdentifier) (\s@CreateEndpointAccess' {} a -> s {clusterIdentifier = a} :: CreateEndpointAccess)++-- | The Amazon Web Services account ID of the owner of the cluster. This is+-- only required if the cluster is in another Amazon Web Services account.+createEndpointAccess_resourceOwner :: Lens.Lens' CreateEndpointAccess (Prelude.Maybe Prelude.Text)+createEndpointAccess_resourceOwner = Lens.lens (\CreateEndpointAccess' {resourceOwner} -> resourceOwner) (\s@CreateEndpointAccess' {} a -> s {resourceOwner = a} :: CreateEndpointAccess)++-- | The security group that defines the ports, protocols, and sources for+-- inbound traffic that you are authorizing into your endpoint.+createEndpointAccess_vpcSecurityGroupIds :: Lens.Lens' CreateEndpointAccess (Prelude.Maybe [Prelude.Text])+createEndpointAccess_vpcSecurityGroupIds = Lens.lens (\CreateEndpointAccess' {vpcSecurityGroupIds} -> vpcSecurityGroupIds) (\s@CreateEndpointAccess' {} a -> s {vpcSecurityGroupIds = a} :: CreateEndpointAccess) Prelude.. Lens.mapping Lens.coerced++-- | The Redshift-managed VPC endpoint name.+--+-- An endpoint name must contain 1-30 characters. Valid characters are A-Z,+-- a-z, 0-9, and hyphen(-). The first character must be a letter. The name+-- can\'t contain two consecutive hyphens or end with a hyphen.+createEndpointAccess_endpointName :: Lens.Lens' CreateEndpointAccess Prelude.Text+createEndpointAccess_endpointName = Lens.lens (\CreateEndpointAccess' {endpointName} -> endpointName) (\s@CreateEndpointAccess' {} a -> s {endpointName = a} :: CreateEndpointAccess)++-- | The subnet group from which Amazon Redshift chooses the subnet to deploy+-- the endpoint.+createEndpointAccess_subnetGroupName :: Lens.Lens' CreateEndpointAccess Prelude.Text+createEndpointAccess_subnetGroupName = Lens.lens (\CreateEndpointAccess' {subnetGroupName} -> subnetGroupName) (\s@CreateEndpointAccess' {} a -> s {subnetGroupName = a} :: CreateEndpointAccess)++instance Core.AWSRequest CreateEndpointAccess where+ type+ AWSResponse CreateEndpointAccess =+ EndpointAccess+ request overrides =+ Request.postQuery (overrides defaultService)+ response =+ Response.receiveXMLWrapper+ "CreateEndpointAccessResult"+ (\s h x -> Data.parseXML x)++instance Prelude.Hashable CreateEndpointAccess where+ hashWithSalt _salt CreateEndpointAccess' {..} =+ _salt+ `Prelude.hashWithSalt` clusterIdentifier+ `Prelude.hashWithSalt` resourceOwner+ `Prelude.hashWithSalt` vpcSecurityGroupIds+ `Prelude.hashWithSalt` endpointName+ `Prelude.hashWithSalt` subnetGroupName++instance Prelude.NFData CreateEndpointAccess where+ rnf CreateEndpointAccess' {..} =+ Prelude.rnf clusterIdentifier+ `Prelude.seq` Prelude.rnf resourceOwner+ `Prelude.seq` Prelude.rnf vpcSecurityGroupIds+ `Prelude.seq` Prelude.rnf endpointName+ `Prelude.seq` Prelude.rnf subnetGroupName++instance Data.ToHeaders CreateEndpointAccess where+ toHeaders = Prelude.const Prelude.mempty++instance Data.ToPath CreateEndpointAccess where+ toPath = Prelude.const "/"++instance Data.ToQuery CreateEndpointAccess where+ toQuery CreateEndpointAccess' {..} =+ Prelude.mconcat+ [ "Action"+ Data.=: ("CreateEndpointAccess" :: Prelude.ByteString),+ "Version"+ Data.=: ("2012-12-01" :: Prelude.ByteString),+ "ClusterIdentifier" Data.=: clusterIdentifier,+ "ResourceOwner" Data.=: resourceOwner,+ "VpcSecurityGroupIds"+ Data.=: Data.toQuery+ ( Data.toQueryList "VpcSecurityGroupId"+ Prelude.<$> vpcSecurityGroupIds+ ),+ "EndpointName" Data.=: endpointName,+ "SubnetGroupName" Data.=: subnetGroupName+ ]
+ gen/Amazonka/Redshift/CreateEventSubscription.hs view
@@ -0,0 +1,393 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module : Amazonka.Redshift.CreateEventSubscription+-- Copyright : (c) 2013-2023 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Creates an Amazon Redshift event notification subscription. This action+-- requires an ARN (Amazon Resource Name) of an Amazon SNS topic created by+-- either the Amazon Redshift console, the Amazon SNS console, or the+-- Amazon SNS API. To obtain an ARN with Amazon SNS, you must create a+-- topic in Amazon SNS and subscribe to the topic. The ARN is displayed in+-- the SNS console.+--+-- You can specify the source type, and lists of Amazon Redshift source+-- IDs, event categories, and event severities. Notifications will be sent+-- for all events you want that match those criteria. For example, you can+-- specify source type = cluster, source ID = my-cluster-1 and mycluster2,+-- event categories = Availability, Backup, and severity = ERROR. The+-- subscription will only send notifications for those ERROR events in the+-- Availability and Backup categories for the specified clusters.+--+-- If you specify both the source type and source IDs, such as source type+-- = cluster and source identifier = my-cluster-1, notifications will be+-- sent for all the cluster events for my-cluster-1. If you specify a+-- source type but do not specify a source identifier, you will receive+-- notice of the events for the objects of that type in your Amazon Web+-- Services account. If you do not specify either the SourceType nor the+-- SourceIdentifier, you will be notified of events generated from all+-- Amazon Redshift sources belonging to your Amazon Web Services account.+-- You must specify a source type if you specify a source ID.+module Amazonka.Redshift.CreateEventSubscription+ ( -- * Creating a Request+ CreateEventSubscription (..),+ newCreateEventSubscription,++ -- * Request Lenses+ createEventSubscription_enabled,+ createEventSubscription_eventCategories,+ createEventSubscription_severity,+ createEventSubscription_sourceIds,+ createEventSubscription_sourceType,+ createEventSubscription_tags,+ createEventSubscription_subscriptionName,+ createEventSubscription_snsTopicArn,++ -- * Destructuring the Response+ CreateEventSubscriptionResponse (..),+ newCreateEventSubscriptionResponse,++ -- * Response Lenses+ createEventSubscriptionResponse_eventSubscription,+ createEventSubscriptionResponse_httpStatus,+ )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Redshift.Types+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- |+--+-- /See:/ 'newCreateEventSubscription' smart constructor.+data CreateEventSubscription = CreateEventSubscription'+ { -- | A boolean value; set to @true@ to activate the subscription, and set to+ -- @false@ to create the subscription but not activate it.+ enabled :: Prelude.Maybe Prelude.Bool,+ -- | Specifies the Amazon Redshift event categories to be published by the+ -- event notification subscription.+ --+ -- Values: configuration, management, monitoring, security, pending+ eventCategories :: Prelude.Maybe [Prelude.Text],+ -- | Specifies the Amazon Redshift event severity to be published by the+ -- event notification subscription.+ --+ -- Values: ERROR, INFO+ severity :: Prelude.Maybe Prelude.Text,+ -- | A list of one or more identifiers of Amazon Redshift source objects. All+ -- of the objects must be of the same type as was specified in the source+ -- type parameter. The event subscription will return only events generated+ -- by the specified objects. If not specified, then events are returned for+ -- all objects within the source type specified.+ --+ -- Example: my-cluster-1, my-cluster-2+ --+ -- Example: my-snapshot-20131010+ sourceIds :: Prelude.Maybe [Prelude.Text],+ -- | The type of source that will be generating the events. For example, if+ -- you want to be notified of events generated by a cluster, you would set+ -- this parameter to cluster. If this value is not specified, events are+ -- returned for all Amazon Redshift objects in your Amazon Web Services+ -- account. You must specify a source type in order to specify source IDs.+ --+ -- Valid values: cluster, cluster-parameter-group, cluster-security-group,+ -- cluster-snapshot, and scheduled-action.+ sourceType :: Prelude.Maybe Prelude.Text,+ -- | A list of tag instances.+ tags :: Prelude.Maybe [Tag],+ -- | The name of the event subscription to be created.+ --+ -- Constraints:+ --+ -- - Cannot be null, empty, or blank.+ --+ -- - Must contain from 1 to 255 alphanumeric characters or hyphens.+ --+ -- - First character must be a letter.+ --+ -- - Cannot end with a hyphen or contain two consecutive hyphens.+ subscriptionName :: Prelude.Text,+ -- | The Amazon Resource Name (ARN) of the Amazon SNS topic used to transmit+ -- the event notifications. The ARN is created by Amazon SNS when you+ -- create a topic and subscribe to it.+ snsTopicArn :: Prelude.Text+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'CreateEventSubscription' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'enabled', 'createEventSubscription_enabled' - A boolean value; set to @true@ to activate the subscription, and set to+-- @false@ to create the subscription but not activate it.+--+-- 'eventCategories', 'createEventSubscription_eventCategories' - Specifies the Amazon Redshift event categories to be published by the+-- event notification subscription.+--+-- Values: configuration, management, monitoring, security, pending+--+-- 'severity', 'createEventSubscription_severity' - Specifies the Amazon Redshift event severity to be published by the+-- event notification subscription.+--+-- Values: ERROR, INFO+--+-- 'sourceIds', 'createEventSubscription_sourceIds' - A list of one or more identifiers of Amazon Redshift source objects. All+-- of the objects must be of the same type as was specified in the source+-- type parameter. The event subscription will return only events generated+-- by the specified objects. If not specified, then events are returned for+-- all objects within the source type specified.+--+-- Example: my-cluster-1, my-cluster-2+--+-- Example: my-snapshot-20131010+--+-- 'sourceType', 'createEventSubscription_sourceType' - The type of source that will be generating the events. For example, if+-- you want to be notified of events generated by a cluster, you would set+-- this parameter to cluster. If this value is not specified, events are+-- returned for all Amazon Redshift objects in your Amazon Web Services+-- account. You must specify a source type in order to specify source IDs.+--+-- Valid values: cluster, cluster-parameter-group, cluster-security-group,+-- cluster-snapshot, and scheduled-action.+--+-- 'tags', 'createEventSubscription_tags' - A list of tag instances.+--+-- 'subscriptionName', 'createEventSubscription_subscriptionName' - The name of the event subscription to be created.+--+-- Constraints:+--+-- - Cannot be null, empty, or blank.+--+-- - Must contain from 1 to 255 alphanumeric characters or hyphens.+--+-- - First character must be a letter.+--+-- - Cannot end with a hyphen or contain two consecutive hyphens.+--+-- 'snsTopicArn', 'createEventSubscription_snsTopicArn' - The Amazon Resource Name (ARN) of the Amazon SNS topic used to transmit+-- the event notifications. The ARN is created by Amazon SNS when you+-- create a topic and subscribe to it.+newCreateEventSubscription ::+ -- | 'subscriptionName'+ Prelude.Text ->+ -- | 'snsTopicArn'+ Prelude.Text ->+ CreateEventSubscription+newCreateEventSubscription+ pSubscriptionName_+ pSnsTopicArn_ =+ CreateEventSubscription'+ { enabled = Prelude.Nothing,+ eventCategories = Prelude.Nothing,+ severity = Prelude.Nothing,+ sourceIds = Prelude.Nothing,+ sourceType = Prelude.Nothing,+ tags = Prelude.Nothing,+ subscriptionName = pSubscriptionName_,+ snsTopicArn = pSnsTopicArn_+ }++-- | A boolean value; set to @true@ to activate the subscription, and set to+-- @false@ to create the subscription but not activate it.+createEventSubscription_enabled :: Lens.Lens' CreateEventSubscription (Prelude.Maybe Prelude.Bool)+createEventSubscription_enabled = Lens.lens (\CreateEventSubscription' {enabled} -> enabled) (\s@CreateEventSubscription' {} a -> s {enabled = a} :: CreateEventSubscription)++-- | Specifies the Amazon Redshift event categories to be published by the+-- event notification subscription.+--+-- Values: configuration, management, monitoring, security, pending+createEventSubscription_eventCategories :: Lens.Lens' CreateEventSubscription (Prelude.Maybe [Prelude.Text])+createEventSubscription_eventCategories = Lens.lens (\CreateEventSubscription' {eventCategories} -> eventCategories) (\s@CreateEventSubscription' {} a -> s {eventCategories = a} :: CreateEventSubscription) Prelude.. Lens.mapping Lens.coerced++-- | Specifies the Amazon Redshift event severity to be published by the+-- event notification subscription.+--+-- Values: ERROR, INFO+createEventSubscription_severity :: Lens.Lens' CreateEventSubscription (Prelude.Maybe Prelude.Text)+createEventSubscription_severity = Lens.lens (\CreateEventSubscription' {severity} -> severity) (\s@CreateEventSubscription' {} a -> s {severity = a} :: CreateEventSubscription)++-- | A list of one or more identifiers of Amazon Redshift source objects. All+-- of the objects must be of the same type as was specified in the source+-- type parameter. The event subscription will return only events generated+-- by the specified objects. If not specified, then events are returned for+-- all objects within the source type specified.+--+-- Example: my-cluster-1, my-cluster-2+--+-- Example: my-snapshot-20131010+createEventSubscription_sourceIds :: Lens.Lens' CreateEventSubscription (Prelude.Maybe [Prelude.Text])+createEventSubscription_sourceIds = Lens.lens (\CreateEventSubscription' {sourceIds} -> sourceIds) (\s@CreateEventSubscription' {} a -> s {sourceIds = a} :: CreateEventSubscription) Prelude.. Lens.mapping Lens.coerced++-- | The type of source that will be generating the events. For example, if+-- you want to be notified of events generated by a cluster, you would set+-- this parameter to cluster. If this value is not specified, events are+-- returned for all Amazon Redshift objects in your Amazon Web Services+-- account. You must specify a source type in order to specify source IDs.+--+-- Valid values: cluster, cluster-parameter-group, cluster-security-group,+-- cluster-snapshot, and scheduled-action.+createEventSubscription_sourceType :: Lens.Lens' CreateEventSubscription (Prelude.Maybe Prelude.Text)+createEventSubscription_sourceType = Lens.lens (\CreateEventSubscription' {sourceType} -> sourceType) (\s@CreateEventSubscription' {} a -> s {sourceType = a} :: CreateEventSubscription)++-- | A list of tag instances.+createEventSubscription_tags :: Lens.Lens' CreateEventSubscription (Prelude.Maybe [Tag])+createEventSubscription_tags = Lens.lens (\CreateEventSubscription' {tags} -> tags) (\s@CreateEventSubscription' {} a -> s {tags = a} :: CreateEventSubscription) Prelude.. Lens.mapping Lens.coerced++-- | The name of the event subscription to be created.+--+-- Constraints:+--+-- - Cannot be null, empty, or blank.+--+-- - Must contain from 1 to 255 alphanumeric characters or hyphens.+--+-- - First character must be a letter.+--+-- - Cannot end with a hyphen or contain two consecutive hyphens.+createEventSubscription_subscriptionName :: Lens.Lens' CreateEventSubscription Prelude.Text+createEventSubscription_subscriptionName = Lens.lens (\CreateEventSubscription' {subscriptionName} -> subscriptionName) (\s@CreateEventSubscription' {} a -> s {subscriptionName = a} :: CreateEventSubscription)++-- | The Amazon Resource Name (ARN) of the Amazon SNS topic used to transmit+-- the event notifications. The ARN is created by Amazon SNS when you+-- create a topic and subscribe to it.+createEventSubscription_snsTopicArn :: Lens.Lens' CreateEventSubscription Prelude.Text+createEventSubscription_snsTopicArn = Lens.lens (\CreateEventSubscription' {snsTopicArn} -> snsTopicArn) (\s@CreateEventSubscription' {} a -> s {snsTopicArn = a} :: CreateEventSubscription)++instance Core.AWSRequest CreateEventSubscription where+ type+ AWSResponse CreateEventSubscription =+ CreateEventSubscriptionResponse+ request overrides =+ Request.postQuery (overrides defaultService)+ response =+ Response.receiveXMLWrapper+ "CreateEventSubscriptionResult"+ ( \s h x ->+ CreateEventSubscriptionResponse'+ Prelude.<$> (x Data..@? "EventSubscription")+ Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+ )++instance Prelude.Hashable CreateEventSubscription where+ hashWithSalt _salt CreateEventSubscription' {..} =+ _salt+ `Prelude.hashWithSalt` enabled+ `Prelude.hashWithSalt` eventCategories+ `Prelude.hashWithSalt` severity+ `Prelude.hashWithSalt` sourceIds+ `Prelude.hashWithSalt` sourceType+ `Prelude.hashWithSalt` tags+ `Prelude.hashWithSalt` subscriptionName+ `Prelude.hashWithSalt` snsTopicArn++instance Prelude.NFData CreateEventSubscription where+ rnf CreateEventSubscription' {..} =+ Prelude.rnf enabled+ `Prelude.seq` Prelude.rnf eventCategories+ `Prelude.seq` Prelude.rnf severity+ `Prelude.seq` Prelude.rnf sourceIds+ `Prelude.seq` Prelude.rnf sourceType+ `Prelude.seq` Prelude.rnf tags+ `Prelude.seq` Prelude.rnf subscriptionName+ `Prelude.seq` Prelude.rnf snsTopicArn++instance Data.ToHeaders CreateEventSubscription where+ toHeaders = Prelude.const Prelude.mempty++instance Data.ToPath CreateEventSubscription where+ toPath = Prelude.const "/"++instance Data.ToQuery CreateEventSubscription where+ toQuery CreateEventSubscription' {..} =+ Prelude.mconcat+ [ "Action"+ Data.=: ("CreateEventSubscription" :: Prelude.ByteString),+ "Version"+ Data.=: ("2012-12-01" :: Prelude.ByteString),+ "Enabled" Data.=: enabled,+ "EventCategories"+ Data.=: Data.toQuery+ ( Data.toQueryList "EventCategory"+ Prelude.<$> eventCategories+ ),+ "Severity" Data.=: severity,+ "SourceIds"+ Data.=: Data.toQuery+ (Data.toQueryList "SourceId" Prelude.<$> sourceIds),+ "SourceType" Data.=: sourceType,+ "Tags"+ Data.=: Data.toQuery+ (Data.toQueryList "Tag" Prelude.<$> tags),+ "SubscriptionName" Data.=: subscriptionName,+ "SnsTopicArn" Data.=: snsTopicArn+ ]++-- | /See:/ 'newCreateEventSubscriptionResponse' smart constructor.+data CreateEventSubscriptionResponse = CreateEventSubscriptionResponse'+ { eventSubscription :: Prelude.Maybe EventSubscription,+ -- | The response's http status code.+ httpStatus :: Prelude.Int+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'CreateEventSubscriptionResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'eventSubscription', 'createEventSubscriptionResponse_eventSubscription' - Undocumented member.+--+-- 'httpStatus', 'createEventSubscriptionResponse_httpStatus' - The response's http status code.+newCreateEventSubscriptionResponse ::+ -- | 'httpStatus'+ Prelude.Int ->+ CreateEventSubscriptionResponse+newCreateEventSubscriptionResponse pHttpStatus_ =+ CreateEventSubscriptionResponse'+ { eventSubscription =+ Prelude.Nothing,+ httpStatus = pHttpStatus_+ }++-- | Undocumented member.+createEventSubscriptionResponse_eventSubscription :: Lens.Lens' CreateEventSubscriptionResponse (Prelude.Maybe EventSubscription)+createEventSubscriptionResponse_eventSubscription = Lens.lens (\CreateEventSubscriptionResponse' {eventSubscription} -> eventSubscription) (\s@CreateEventSubscriptionResponse' {} a -> s {eventSubscription = a} :: CreateEventSubscriptionResponse)++-- | The response's http status code.+createEventSubscriptionResponse_httpStatus :: Lens.Lens' CreateEventSubscriptionResponse Prelude.Int+createEventSubscriptionResponse_httpStatus = Lens.lens (\CreateEventSubscriptionResponse' {httpStatus} -> httpStatus) (\s@CreateEventSubscriptionResponse' {} a -> s {httpStatus = a} :: CreateEventSubscriptionResponse)++instance+ Prelude.NFData+ CreateEventSubscriptionResponse+ where+ rnf CreateEventSubscriptionResponse' {..} =+ Prelude.rnf eventSubscription+ `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/Redshift/CreateHsmClientCertificate.hs view
@@ -0,0 +1,199 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module : Amazonka.Redshift.CreateHsmClientCertificate+-- Copyright : (c) 2013-2023 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Creates an HSM client certificate that an Amazon Redshift cluster will+-- use to connect to the client\'s HSM in order to store and retrieve the+-- keys used to encrypt the cluster databases.+--+-- The command returns a public key, which you must store in the HSM. In+-- addition to creating the HSM certificate, you must create an Amazon+-- Redshift HSM configuration that provides a cluster the information+-- needed to store and use encryption keys in the HSM. For more+-- information, go to+-- <https://docs.aws.amazon.com/redshift/latest/mgmt/working-with-db-encryption.html#working-with-HSM Hardware Security Modules>+-- in the /Amazon Redshift Cluster Management Guide/.+module Amazonka.Redshift.CreateHsmClientCertificate+ ( -- * Creating a Request+ CreateHsmClientCertificate (..),+ newCreateHsmClientCertificate,++ -- * Request Lenses+ createHsmClientCertificate_tags,+ createHsmClientCertificate_hsmClientCertificateIdentifier,++ -- * Destructuring the Response+ CreateHsmClientCertificateResponse (..),+ newCreateHsmClientCertificateResponse,++ -- * Response Lenses+ createHsmClientCertificateResponse_hsmClientCertificate,+ createHsmClientCertificateResponse_httpStatus,+ )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Redshift.Types+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- |+--+-- /See:/ 'newCreateHsmClientCertificate' smart constructor.+data CreateHsmClientCertificate = CreateHsmClientCertificate'+ { -- | A list of tag instances.+ tags :: Prelude.Maybe [Tag],+ -- | The identifier to be assigned to the new HSM client certificate that the+ -- cluster will use to connect to the HSM to use the database encryption+ -- keys.+ hsmClientCertificateIdentifier :: Prelude.Text+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'CreateHsmClientCertificate' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'tags', 'createHsmClientCertificate_tags' - A list of tag instances.+--+-- 'hsmClientCertificateIdentifier', 'createHsmClientCertificate_hsmClientCertificateIdentifier' - The identifier to be assigned to the new HSM client certificate that the+-- cluster will use to connect to the HSM to use the database encryption+-- keys.+newCreateHsmClientCertificate ::+ -- | 'hsmClientCertificateIdentifier'+ Prelude.Text ->+ CreateHsmClientCertificate+newCreateHsmClientCertificate+ pHsmClientCertificateIdentifier_ =+ CreateHsmClientCertificate'+ { tags = Prelude.Nothing,+ hsmClientCertificateIdentifier =+ pHsmClientCertificateIdentifier_+ }++-- | A list of tag instances.+createHsmClientCertificate_tags :: Lens.Lens' CreateHsmClientCertificate (Prelude.Maybe [Tag])+createHsmClientCertificate_tags = Lens.lens (\CreateHsmClientCertificate' {tags} -> tags) (\s@CreateHsmClientCertificate' {} a -> s {tags = a} :: CreateHsmClientCertificate) Prelude.. Lens.mapping Lens.coerced++-- | The identifier to be assigned to the new HSM client certificate that the+-- cluster will use to connect to the HSM to use the database encryption+-- keys.+createHsmClientCertificate_hsmClientCertificateIdentifier :: Lens.Lens' CreateHsmClientCertificate Prelude.Text+createHsmClientCertificate_hsmClientCertificateIdentifier = Lens.lens (\CreateHsmClientCertificate' {hsmClientCertificateIdentifier} -> hsmClientCertificateIdentifier) (\s@CreateHsmClientCertificate' {} a -> s {hsmClientCertificateIdentifier = a} :: CreateHsmClientCertificate)++instance Core.AWSRequest CreateHsmClientCertificate where+ type+ AWSResponse CreateHsmClientCertificate =+ CreateHsmClientCertificateResponse+ request overrides =+ Request.postQuery (overrides defaultService)+ response =+ Response.receiveXMLWrapper+ "CreateHsmClientCertificateResult"+ ( \s h x ->+ CreateHsmClientCertificateResponse'+ Prelude.<$> (x Data..@? "HsmClientCertificate")+ Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+ )++instance Prelude.Hashable CreateHsmClientCertificate where+ hashWithSalt _salt CreateHsmClientCertificate' {..} =+ _salt+ `Prelude.hashWithSalt` tags+ `Prelude.hashWithSalt` hsmClientCertificateIdentifier++instance Prelude.NFData CreateHsmClientCertificate where+ rnf CreateHsmClientCertificate' {..} =+ Prelude.rnf tags+ `Prelude.seq` Prelude.rnf hsmClientCertificateIdentifier++instance Data.ToHeaders CreateHsmClientCertificate where+ toHeaders = Prelude.const Prelude.mempty++instance Data.ToPath CreateHsmClientCertificate where+ toPath = Prelude.const "/"++instance Data.ToQuery CreateHsmClientCertificate where+ toQuery CreateHsmClientCertificate' {..} =+ Prelude.mconcat+ [ "Action"+ Data.=: ("CreateHsmClientCertificate" :: Prelude.ByteString),+ "Version"+ Data.=: ("2012-12-01" :: Prelude.ByteString),+ "Tags"+ Data.=: Data.toQuery+ (Data.toQueryList "Tag" Prelude.<$> tags),+ "HsmClientCertificateIdentifier"+ Data.=: hsmClientCertificateIdentifier+ ]++-- | /See:/ 'newCreateHsmClientCertificateResponse' smart constructor.+data CreateHsmClientCertificateResponse = CreateHsmClientCertificateResponse'+ { hsmClientCertificate :: Prelude.Maybe HsmClientCertificate,+ -- | The response's http status code.+ httpStatus :: Prelude.Int+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'CreateHsmClientCertificateResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'hsmClientCertificate', 'createHsmClientCertificateResponse_hsmClientCertificate' - Undocumented member.+--+-- 'httpStatus', 'createHsmClientCertificateResponse_httpStatus' - The response's http status code.+newCreateHsmClientCertificateResponse ::+ -- | 'httpStatus'+ Prelude.Int ->+ CreateHsmClientCertificateResponse+newCreateHsmClientCertificateResponse pHttpStatus_ =+ CreateHsmClientCertificateResponse'+ { hsmClientCertificate =+ Prelude.Nothing,+ httpStatus = pHttpStatus_+ }++-- | Undocumented member.+createHsmClientCertificateResponse_hsmClientCertificate :: Lens.Lens' CreateHsmClientCertificateResponse (Prelude.Maybe HsmClientCertificate)+createHsmClientCertificateResponse_hsmClientCertificate = Lens.lens (\CreateHsmClientCertificateResponse' {hsmClientCertificate} -> hsmClientCertificate) (\s@CreateHsmClientCertificateResponse' {} a -> s {hsmClientCertificate = a} :: CreateHsmClientCertificateResponse)++-- | The response's http status code.+createHsmClientCertificateResponse_httpStatus :: Lens.Lens' CreateHsmClientCertificateResponse Prelude.Int+createHsmClientCertificateResponse_httpStatus = Lens.lens (\CreateHsmClientCertificateResponse' {httpStatus} -> httpStatus) (\s@CreateHsmClientCertificateResponse' {} a -> s {httpStatus = a} :: CreateHsmClientCertificateResponse)++instance+ Prelude.NFData+ CreateHsmClientCertificateResponse+ where+ rnf CreateHsmClientCertificateResponse' {..} =+ Prelude.rnf hsmClientCertificate+ `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/Redshift/CreateHsmConfiguration.hs view
@@ -0,0 +1,286 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module : Amazonka.Redshift.CreateHsmConfiguration+-- Copyright : (c) 2013-2023 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Creates an HSM configuration that contains the information required by+-- an Amazon Redshift cluster to store and use database encryption keys in+-- a Hardware Security Module (HSM). After creating the HSM configuration,+-- you can specify it as a parameter when creating a cluster. The cluster+-- will then store its encryption keys in the HSM.+--+-- In addition to creating an HSM configuration, you must also create an+-- HSM client certificate. For more information, go to+-- <https://docs.aws.amazon.com/redshift/latest/mgmt/working-with-HSM.html Hardware Security Modules>+-- in the Amazon Redshift Cluster Management Guide.+module Amazonka.Redshift.CreateHsmConfiguration+ ( -- * Creating a Request+ CreateHsmConfiguration (..),+ newCreateHsmConfiguration,++ -- * Request Lenses+ createHsmConfiguration_tags,+ createHsmConfiguration_hsmConfigurationIdentifier,+ createHsmConfiguration_description,+ createHsmConfiguration_hsmIpAddress,+ createHsmConfiguration_hsmPartitionName,+ createHsmConfiguration_hsmPartitionPassword,+ createHsmConfiguration_hsmServerPublicCertificate,++ -- * Destructuring the Response+ CreateHsmConfigurationResponse (..),+ newCreateHsmConfigurationResponse,++ -- * Response Lenses+ createHsmConfigurationResponse_hsmConfiguration,+ createHsmConfigurationResponse_httpStatus,+ )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Redshift.Types+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- |+--+-- /See:/ 'newCreateHsmConfiguration' smart constructor.+data CreateHsmConfiguration = CreateHsmConfiguration'+ { -- | A list of tag instances.+ tags :: Prelude.Maybe [Tag],+ -- | The identifier to be assigned to the new Amazon Redshift HSM+ -- configuration.+ hsmConfigurationIdentifier :: Prelude.Text,+ -- | A text description of the HSM configuration to be created.+ description :: Prelude.Text,+ -- | The IP address that the Amazon Redshift cluster must use to access the+ -- HSM.+ hsmIpAddress :: Prelude.Text,+ -- | The name of the partition in the HSM where the Amazon Redshift clusters+ -- will store their database encryption keys.+ hsmPartitionName :: Prelude.Text,+ -- | The password required to access the HSM partition.+ hsmPartitionPassword :: Prelude.Text,+ -- | The HSMs public certificate file. When using Cloud HSM, the file name is+ -- server.pem.+ hsmServerPublicCertificate :: Prelude.Text+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'CreateHsmConfiguration' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'tags', 'createHsmConfiguration_tags' - A list of tag instances.+--+-- 'hsmConfigurationIdentifier', 'createHsmConfiguration_hsmConfigurationIdentifier' - The identifier to be assigned to the new Amazon Redshift HSM+-- configuration.+--+-- 'description', 'createHsmConfiguration_description' - A text description of the HSM configuration to be created.+--+-- 'hsmIpAddress', 'createHsmConfiguration_hsmIpAddress' - The IP address that the Amazon Redshift cluster must use to access the+-- HSM.+--+-- 'hsmPartitionName', 'createHsmConfiguration_hsmPartitionName' - The name of the partition in the HSM where the Amazon Redshift clusters+-- will store their database encryption keys.+--+-- 'hsmPartitionPassword', 'createHsmConfiguration_hsmPartitionPassword' - The password required to access the HSM partition.+--+-- 'hsmServerPublicCertificate', 'createHsmConfiguration_hsmServerPublicCertificate' - The HSMs public certificate file. When using Cloud HSM, the file name is+-- server.pem.+newCreateHsmConfiguration ::+ -- | 'hsmConfigurationIdentifier'+ Prelude.Text ->+ -- | 'description'+ Prelude.Text ->+ -- | 'hsmIpAddress'+ Prelude.Text ->+ -- | 'hsmPartitionName'+ Prelude.Text ->+ -- | 'hsmPartitionPassword'+ Prelude.Text ->+ -- | 'hsmServerPublicCertificate'+ Prelude.Text ->+ CreateHsmConfiguration+newCreateHsmConfiguration+ pHsmConfigurationIdentifier_+ pDescription_+ pHsmIpAddress_+ pHsmPartitionName_+ pHsmPartitionPassword_+ pHsmServerPublicCertificate_ =+ CreateHsmConfiguration'+ { tags = Prelude.Nothing,+ hsmConfigurationIdentifier =+ pHsmConfigurationIdentifier_,+ description = pDescription_,+ hsmIpAddress = pHsmIpAddress_,+ hsmPartitionName = pHsmPartitionName_,+ hsmPartitionPassword = pHsmPartitionPassword_,+ hsmServerPublicCertificate =+ pHsmServerPublicCertificate_+ }++-- | A list of tag instances.+createHsmConfiguration_tags :: Lens.Lens' CreateHsmConfiguration (Prelude.Maybe [Tag])+createHsmConfiguration_tags = Lens.lens (\CreateHsmConfiguration' {tags} -> tags) (\s@CreateHsmConfiguration' {} a -> s {tags = a} :: CreateHsmConfiguration) Prelude.. Lens.mapping Lens.coerced++-- | The identifier to be assigned to the new Amazon Redshift HSM+-- configuration.+createHsmConfiguration_hsmConfigurationIdentifier :: Lens.Lens' CreateHsmConfiguration Prelude.Text+createHsmConfiguration_hsmConfigurationIdentifier = Lens.lens (\CreateHsmConfiguration' {hsmConfigurationIdentifier} -> hsmConfigurationIdentifier) (\s@CreateHsmConfiguration' {} a -> s {hsmConfigurationIdentifier = a} :: CreateHsmConfiguration)++-- | A text description of the HSM configuration to be created.+createHsmConfiguration_description :: Lens.Lens' CreateHsmConfiguration Prelude.Text+createHsmConfiguration_description = Lens.lens (\CreateHsmConfiguration' {description} -> description) (\s@CreateHsmConfiguration' {} a -> s {description = a} :: CreateHsmConfiguration)++-- | The IP address that the Amazon Redshift cluster must use to access the+-- HSM.+createHsmConfiguration_hsmIpAddress :: Lens.Lens' CreateHsmConfiguration Prelude.Text+createHsmConfiguration_hsmIpAddress = Lens.lens (\CreateHsmConfiguration' {hsmIpAddress} -> hsmIpAddress) (\s@CreateHsmConfiguration' {} a -> s {hsmIpAddress = a} :: CreateHsmConfiguration)++-- | The name of the partition in the HSM where the Amazon Redshift clusters+-- will store their database encryption keys.+createHsmConfiguration_hsmPartitionName :: Lens.Lens' CreateHsmConfiguration Prelude.Text+createHsmConfiguration_hsmPartitionName = Lens.lens (\CreateHsmConfiguration' {hsmPartitionName} -> hsmPartitionName) (\s@CreateHsmConfiguration' {} a -> s {hsmPartitionName = a} :: CreateHsmConfiguration)++-- | The password required to access the HSM partition.+createHsmConfiguration_hsmPartitionPassword :: Lens.Lens' CreateHsmConfiguration Prelude.Text+createHsmConfiguration_hsmPartitionPassword = Lens.lens (\CreateHsmConfiguration' {hsmPartitionPassword} -> hsmPartitionPassword) (\s@CreateHsmConfiguration' {} a -> s {hsmPartitionPassword = a} :: CreateHsmConfiguration)++-- | The HSMs public certificate file. When using Cloud HSM, the file name is+-- server.pem.+createHsmConfiguration_hsmServerPublicCertificate :: Lens.Lens' CreateHsmConfiguration Prelude.Text+createHsmConfiguration_hsmServerPublicCertificate = Lens.lens (\CreateHsmConfiguration' {hsmServerPublicCertificate} -> hsmServerPublicCertificate) (\s@CreateHsmConfiguration' {} a -> s {hsmServerPublicCertificate = a} :: CreateHsmConfiguration)++instance Core.AWSRequest CreateHsmConfiguration where+ type+ AWSResponse CreateHsmConfiguration =+ CreateHsmConfigurationResponse+ request overrides =+ Request.postQuery (overrides defaultService)+ response =+ Response.receiveXMLWrapper+ "CreateHsmConfigurationResult"+ ( \s h x ->+ CreateHsmConfigurationResponse'+ Prelude.<$> (x Data..@? "HsmConfiguration")+ Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+ )++instance Prelude.Hashable CreateHsmConfiguration where+ hashWithSalt _salt CreateHsmConfiguration' {..} =+ _salt+ `Prelude.hashWithSalt` tags+ `Prelude.hashWithSalt` hsmConfigurationIdentifier+ `Prelude.hashWithSalt` description+ `Prelude.hashWithSalt` hsmIpAddress+ `Prelude.hashWithSalt` hsmPartitionName+ `Prelude.hashWithSalt` hsmPartitionPassword+ `Prelude.hashWithSalt` hsmServerPublicCertificate++instance Prelude.NFData CreateHsmConfiguration where+ rnf CreateHsmConfiguration' {..} =+ Prelude.rnf tags+ `Prelude.seq` Prelude.rnf hsmConfigurationIdentifier+ `Prelude.seq` Prelude.rnf description+ `Prelude.seq` Prelude.rnf hsmIpAddress+ `Prelude.seq` Prelude.rnf hsmPartitionName+ `Prelude.seq` Prelude.rnf hsmPartitionPassword+ `Prelude.seq` Prelude.rnf hsmServerPublicCertificate++instance Data.ToHeaders CreateHsmConfiguration where+ toHeaders = Prelude.const Prelude.mempty++instance Data.ToPath CreateHsmConfiguration where+ toPath = Prelude.const "/"++instance Data.ToQuery CreateHsmConfiguration where+ toQuery CreateHsmConfiguration' {..} =+ Prelude.mconcat+ [ "Action"+ Data.=: ("CreateHsmConfiguration" :: Prelude.ByteString),+ "Version"+ Data.=: ("2012-12-01" :: Prelude.ByteString),+ "Tags"+ Data.=: Data.toQuery+ (Data.toQueryList "Tag" Prelude.<$> tags),+ "HsmConfigurationIdentifier"+ Data.=: hsmConfigurationIdentifier,+ "Description" Data.=: description,+ "HsmIpAddress" Data.=: hsmIpAddress,+ "HsmPartitionName" Data.=: hsmPartitionName,+ "HsmPartitionPassword" Data.=: hsmPartitionPassword,+ "HsmServerPublicCertificate"+ Data.=: hsmServerPublicCertificate+ ]++-- | /See:/ 'newCreateHsmConfigurationResponse' smart constructor.+data CreateHsmConfigurationResponse = CreateHsmConfigurationResponse'+ { hsmConfiguration :: Prelude.Maybe HsmConfiguration,+ -- | The response's http status code.+ httpStatus :: Prelude.Int+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'CreateHsmConfigurationResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'hsmConfiguration', 'createHsmConfigurationResponse_hsmConfiguration' - Undocumented member.+--+-- 'httpStatus', 'createHsmConfigurationResponse_httpStatus' - The response's http status code.+newCreateHsmConfigurationResponse ::+ -- | 'httpStatus'+ Prelude.Int ->+ CreateHsmConfigurationResponse+newCreateHsmConfigurationResponse pHttpStatus_ =+ CreateHsmConfigurationResponse'+ { hsmConfiguration =+ Prelude.Nothing,+ httpStatus = pHttpStatus_+ }++-- | Undocumented member.+createHsmConfigurationResponse_hsmConfiguration :: Lens.Lens' CreateHsmConfigurationResponse (Prelude.Maybe HsmConfiguration)+createHsmConfigurationResponse_hsmConfiguration = Lens.lens (\CreateHsmConfigurationResponse' {hsmConfiguration} -> hsmConfiguration) (\s@CreateHsmConfigurationResponse' {} a -> s {hsmConfiguration = a} :: CreateHsmConfigurationResponse)++-- | The response's http status code.+createHsmConfigurationResponse_httpStatus :: Lens.Lens' CreateHsmConfigurationResponse Prelude.Int+createHsmConfigurationResponse_httpStatus = Lens.lens (\CreateHsmConfigurationResponse' {httpStatus} -> httpStatus) (\s@CreateHsmConfigurationResponse' {} a -> s {httpStatus = a} :: CreateHsmConfigurationResponse)++instance+ Prelude.NFData+ CreateHsmConfigurationResponse+ where+ rnf CreateHsmConfigurationResponse' {..} =+ Prelude.rnf hsmConfiguration+ `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/Redshift/CreateScheduledAction.hs view
@@ -0,0 +1,257 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module : Amazonka.Redshift.CreateScheduledAction+-- Copyright : (c) 2013-2023 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Creates a scheduled action. A scheduled action contains a schedule and+-- an Amazon Redshift API action. For example, you can create a schedule of+-- when to run the @ResizeCluster@ API operation.+module Amazonka.Redshift.CreateScheduledAction+ ( -- * Creating a Request+ CreateScheduledAction (..),+ newCreateScheduledAction,++ -- * Request Lenses+ createScheduledAction_enable,+ createScheduledAction_endTime,+ createScheduledAction_scheduledActionDescription,+ createScheduledAction_startTime,+ createScheduledAction_scheduledActionName,+ createScheduledAction_targetAction,+ createScheduledAction_schedule,+ createScheduledAction_iamRole,++ -- * Destructuring the Response+ ScheduledAction (..),+ newScheduledAction,++ -- * Response Lenses+ scheduledAction_endTime,+ scheduledAction_iamRole,+ scheduledAction_nextInvocations,+ scheduledAction_schedule,+ scheduledAction_scheduledActionDescription,+ scheduledAction_scheduledActionName,+ scheduledAction_startTime,+ scheduledAction_state,+ scheduledAction_targetAction,+ )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Redshift.Types+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newCreateScheduledAction' smart constructor.+data CreateScheduledAction = CreateScheduledAction'+ { -- | If true, the schedule is enabled. If false, the scheduled action does+ -- not trigger. For more information about @state@ of the scheduled action,+ -- see ScheduledAction.+ enable :: Prelude.Maybe Prelude.Bool,+ -- | The end time in UTC of the scheduled action. After this time, the+ -- scheduled action does not trigger. For more information about this+ -- parameter, see ScheduledAction.+ endTime :: Prelude.Maybe Data.ISO8601,+ -- | The description of the scheduled action.+ scheduledActionDescription :: Prelude.Maybe Prelude.Text,+ -- | The start time in UTC of the scheduled action. Before this time, the+ -- scheduled action does not trigger. For more information about this+ -- parameter, see ScheduledAction.+ startTime :: Prelude.Maybe Data.ISO8601,+ -- | The name of the scheduled action. The name must be unique within an+ -- account. For more information about this parameter, see ScheduledAction.+ scheduledActionName :: Prelude.Text,+ -- | A JSON format string of the Amazon Redshift API operation with input+ -- parameters. For more information about this parameter, see+ -- ScheduledAction.+ targetAction :: ScheduledActionType,+ -- | The schedule in @at( )@ or @cron( )@ format. For more information about+ -- this parameter, see ScheduledAction.+ schedule :: Prelude.Text,+ -- | The IAM role to assume to run the target action. For more information+ -- about this parameter, see ScheduledAction.+ iamRole :: Prelude.Text+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'CreateScheduledAction' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'enable', 'createScheduledAction_enable' - If true, the schedule is enabled. If false, the scheduled action does+-- not trigger. For more information about @state@ of the scheduled action,+-- see ScheduledAction.+--+-- 'endTime', 'createScheduledAction_endTime' - The end time in UTC of the scheduled action. After this time, the+-- scheduled action does not trigger. For more information about this+-- parameter, see ScheduledAction.+--+-- 'scheduledActionDescription', 'createScheduledAction_scheduledActionDescription' - The description of the scheduled action.+--+-- 'startTime', 'createScheduledAction_startTime' - The start time in UTC of the scheduled action. Before this time, the+-- scheduled action does not trigger. For more information about this+-- parameter, see ScheduledAction.+--+-- 'scheduledActionName', 'createScheduledAction_scheduledActionName' - The name of the scheduled action. The name must be unique within an+-- account. For more information about this parameter, see ScheduledAction.+--+-- 'targetAction', 'createScheduledAction_targetAction' - A JSON format string of the Amazon Redshift API operation with input+-- parameters. For more information about this parameter, see+-- ScheduledAction.+--+-- 'schedule', 'createScheduledAction_schedule' - The schedule in @at( )@ or @cron( )@ format. For more information about+-- this parameter, see ScheduledAction.+--+-- 'iamRole', 'createScheduledAction_iamRole' - The IAM role to assume to run the target action. For more information+-- about this parameter, see ScheduledAction.+newCreateScheduledAction ::+ -- | 'scheduledActionName'+ Prelude.Text ->+ -- | 'targetAction'+ ScheduledActionType ->+ -- | 'schedule'+ Prelude.Text ->+ -- | 'iamRole'+ Prelude.Text ->+ CreateScheduledAction+newCreateScheduledAction+ pScheduledActionName_+ pTargetAction_+ pSchedule_+ pIamRole_ =+ CreateScheduledAction'+ { enable = Prelude.Nothing,+ endTime = Prelude.Nothing,+ scheduledActionDescription = Prelude.Nothing,+ startTime = Prelude.Nothing,+ scheduledActionName = pScheduledActionName_,+ targetAction = pTargetAction_,+ schedule = pSchedule_,+ iamRole = pIamRole_+ }++-- | If true, the schedule is enabled. If false, the scheduled action does+-- not trigger. For more information about @state@ of the scheduled action,+-- see ScheduledAction.+createScheduledAction_enable :: Lens.Lens' CreateScheduledAction (Prelude.Maybe Prelude.Bool)+createScheduledAction_enable = Lens.lens (\CreateScheduledAction' {enable} -> enable) (\s@CreateScheduledAction' {} a -> s {enable = a} :: CreateScheduledAction)++-- | The end time in UTC of the scheduled action. After this time, the+-- scheduled action does not trigger. For more information about this+-- parameter, see ScheduledAction.+createScheduledAction_endTime :: Lens.Lens' CreateScheduledAction (Prelude.Maybe Prelude.UTCTime)+createScheduledAction_endTime = Lens.lens (\CreateScheduledAction' {endTime} -> endTime) (\s@CreateScheduledAction' {} a -> s {endTime = a} :: CreateScheduledAction) Prelude.. Lens.mapping Data._Time++-- | The description of the scheduled action.+createScheduledAction_scheduledActionDescription :: Lens.Lens' CreateScheduledAction (Prelude.Maybe Prelude.Text)+createScheduledAction_scheduledActionDescription = Lens.lens (\CreateScheduledAction' {scheduledActionDescription} -> scheduledActionDescription) (\s@CreateScheduledAction' {} a -> s {scheduledActionDescription = a} :: CreateScheduledAction)++-- | The start time in UTC of the scheduled action. Before this time, the+-- scheduled action does not trigger. For more information about this+-- parameter, see ScheduledAction.+createScheduledAction_startTime :: Lens.Lens' CreateScheduledAction (Prelude.Maybe Prelude.UTCTime)+createScheduledAction_startTime = Lens.lens (\CreateScheduledAction' {startTime} -> startTime) (\s@CreateScheduledAction' {} a -> s {startTime = a} :: CreateScheduledAction) Prelude.. Lens.mapping Data._Time++-- | The name of the scheduled action. The name must be unique within an+-- account. For more information about this parameter, see ScheduledAction.+createScheduledAction_scheduledActionName :: Lens.Lens' CreateScheduledAction Prelude.Text+createScheduledAction_scheduledActionName = Lens.lens (\CreateScheduledAction' {scheduledActionName} -> scheduledActionName) (\s@CreateScheduledAction' {} a -> s {scheduledActionName = a} :: CreateScheduledAction)++-- | A JSON format string of the Amazon Redshift API operation with input+-- parameters. For more information about this parameter, see+-- ScheduledAction.+createScheduledAction_targetAction :: Lens.Lens' CreateScheduledAction ScheduledActionType+createScheduledAction_targetAction = Lens.lens (\CreateScheduledAction' {targetAction} -> targetAction) (\s@CreateScheduledAction' {} a -> s {targetAction = a} :: CreateScheduledAction)++-- | The schedule in @at( )@ or @cron( )@ format. For more information about+-- this parameter, see ScheduledAction.+createScheduledAction_schedule :: Lens.Lens' CreateScheduledAction Prelude.Text+createScheduledAction_schedule = Lens.lens (\CreateScheduledAction' {schedule} -> schedule) (\s@CreateScheduledAction' {} a -> s {schedule = a} :: CreateScheduledAction)++-- | The IAM role to assume to run the target action. For more information+-- about this parameter, see ScheduledAction.+createScheduledAction_iamRole :: Lens.Lens' CreateScheduledAction Prelude.Text+createScheduledAction_iamRole = Lens.lens (\CreateScheduledAction' {iamRole} -> iamRole) (\s@CreateScheduledAction' {} a -> s {iamRole = a} :: CreateScheduledAction)++instance Core.AWSRequest CreateScheduledAction where+ type+ AWSResponse CreateScheduledAction =+ ScheduledAction+ request overrides =+ Request.postQuery (overrides defaultService)+ response =+ Response.receiveXMLWrapper+ "CreateScheduledActionResult"+ (\s h x -> Data.parseXML x)++instance Prelude.Hashable CreateScheduledAction where+ hashWithSalt _salt CreateScheduledAction' {..} =+ _salt+ `Prelude.hashWithSalt` enable+ `Prelude.hashWithSalt` endTime+ `Prelude.hashWithSalt` scheduledActionDescription+ `Prelude.hashWithSalt` startTime+ `Prelude.hashWithSalt` scheduledActionName+ `Prelude.hashWithSalt` targetAction+ `Prelude.hashWithSalt` schedule+ `Prelude.hashWithSalt` iamRole++instance Prelude.NFData CreateScheduledAction where+ rnf CreateScheduledAction' {..} =+ Prelude.rnf enable+ `Prelude.seq` Prelude.rnf endTime+ `Prelude.seq` Prelude.rnf scheduledActionDescription+ `Prelude.seq` Prelude.rnf startTime+ `Prelude.seq` Prelude.rnf scheduledActionName+ `Prelude.seq` Prelude.rnf targetAction+ `Prelude.seq` Prelude.rnf schedule+ `Prelude.seq` Prelude.rnf iamRole++instance Data.ToHeaders CreateScheduledAction where+ toHeaders = Prelude.const Prelude.mempty++instance Data.ToPath CreateScheduledAction where+ toPath = Prelude.const "/"++instance Data.ToQuery CreateScheduledAction where+ toQuery CreateScheduledAction' {..} =+ Prelude.mconcat+ [ "Action"+ Data.=: ("CreateScheduledAction" :: Prelude.ByteString),+ "Version"+ Data.=: ("2012-12-01" :: Prelude.ByteString),+ "Enable" Data.=: enable,+ "EndTime" Data.=: endTime,+ "ScheduledActionDescription"+ Data.=: scheduledActionDescription,+ "StartTime" Data.=: startTime,+ "ScheduledActionName" Data.=: scheduledActionName,+ "TargetAction" Data.=: targetAction,+ "Schedule" Data.=: schedule,+ "IamRole" Data.=: iamRole+ ]
+ gen/Amazonka/Redshift/CreateSnapshotCopyGrant.hs view
@@ -0,0 +1,249 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module : Amazonka.Redshift.CreateSnapshotCopyGrant+-- Copyright : (c) 2013-2023 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Creates a snapshot copy grant that permits Amazon Redshift to use an+-- encrypted symmetric key from Key Management Service (KMS) to encrypt+-- copied snapshots in a destination region.+--+-- For more information about managing snapshot copy grants, go to+-- <https://docs.aws.amazon.com/redshift/latest/mgmt/working-with-db-encryption.html Amazon Redshift Database Encryption>+-- in the /Amazon Redshift Cluster Management Guide/.+module Amazonka.Redshift.CreateSnapshotCopyGrant+ ( -- * Creating a Request+ CreateSnapshotCopyGrant (..),+ newCreateSnapshotCopyGrant,++ -- * Request Lenses+ createSnapshotCopyGrant_kmsKeyId,+ createSnapshotCopyGrant_tags,+ createSnapshotCopyGrant_snapshotCopyGrantName,++ -- * Destructuring the Response+ CreateSnapshotCopyGrantResponse (..),+ newCreateSnapshotCopyGrantResponse,++ -- * Response Lenses+ createSnapshotCopyGrantResponse_snapshotCopyGrant,+ createSnapshotCopyGrantResponse_httpStatus,+ )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Redshift.Types+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | The result of the @CreateSnapshotCopyGrant@ action.+--+-- /See:/ 'newCreateSnapshotCopyGrant' smart constructor.+data CreateSnapshotCopyGrant = CreateSnapshotCopyGrant'+ { -- | The unique identifier of the encrypted symmetric key to which to grant+ -- Amazon Redshift permission. If no key is specified, the default key is+ -- used.+ kmsKeyId :: Prelude.Maybe Prelude.Text,+ -- | A list of tag instances.+ tags :: Prelude.Maybe [Tag],+ -- | The name of the snapshot copy grant. This name must be unique in the+ -- region for the Amazon Web Services account.+ --+ -- Constraints:+ --+ -- - Must contain from 1 to 63 alphanumeric characters or hyphens.+ --+ -- - Alphabetic characters must be lowercase.+ --+ -- - First character must be a letter.+ --+ -- - Cannot end with a hyphen or contain two consecutive hyphens.+ --+ -- - Must be unique for all clusters within an Amazon Web Services+ -- account.+ snapshotCopyGrantName :: Prelude.Text+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'CreateSnapshotCopyGrant' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'kmsKeyId', 'createSnapshotCopyGrant_kmsKeyId' - The unique identifier of the encrypted symmetric key to which to grant+-- Amazon Redshift permission. If no key is specified, the default key is+-- used.+--+-- 'tags', 'createSnapshotCopyGrant_tags' - A list of tag instances.+--+-- 'snapshotCopyGrantName', 'createSnapshotCopyGrant_snapshotCopyGrantName' - The name of the snapshot copy grant. This name must be unique in the+-- region for the Amazon Web Services account.+--+-- Constraints:+--+-- - Must contain from 1 to 63 alphanumeric characters or hyphens.+--+-- - Alphabetic characters must be lowercase.+--+-- - First character must be a letter.+--+-- - Cannot end with a hyphen or contain two consecutive hyphens.+--+-- - Must be unique for all clusters within an Amazon Web Services+-- account.+newCreateSnapshotCopyGrant ::+ -- | 'snapshotCopyGrantName'+ Prelude.Text ->+ CreateSnapshotCopyGrant+newCreateSnapshotCopyGrant pSnapshotCopyGrantName_ =+ CreateSnapshotCopyGrant'+ { kmsKeyId =+ Prelude.Nothing,+ tags = Prelude.Nothing,+ snapshotCopyGrantName = pSnapshotCopyGrantName_+ }++-- | The unique identifier of the encrypted symmetric key to which to grant+-- Amazon Redshift permission. If no key is specified, the default key is+-- used.+createSnapshotCopyGrant_kmsKeyId :: Lens.Lens' CreateSnapshotCopyGrant (Prelude.Maybe Prelude.Text)+createSnapshotCopyGrant_kmsKeyId = Lens.lens (\CreateSnapshotCopyGrant' {kmsKeyId} -> kmsKeyId) (\s@CreateSnapshotCopyGrant' {} a -> s {kmsKeyId = a} :: CreateSnapshotCopyGrant)++-- | A list of tag instances.+createSnapshotCopyGrant_tags :: Lens.Lens' CreateSnapshotCopyGrant (Prelude.Maybe [Tag])+createSnapshotCopyGrant_tags = Lens.lens (\CreateSnapshotCopyGrant' {tags} -> tags) (\s@CreateSnapshotCopyGrant' {} a -> s {tags = a} :: CreateSnapshotCopyGrant) Prelude.. Lens.mapping Lens.coerced++-- | The name of the snapshot copy grant. This name must be unique in the+-- region for the Amazon Web Services account.+--+-- Constraints:+--+-- - Must contain from 1 to 63 alphanumeric characters or hyphens.+--+-- - Alphabetic characters must be lowercase.+--+-- - First character must be a letter.+--+-- - Cannot end with a hyphen or contain two consecutive hyphens.+--+-- - Must be unique for all clusters within an Amazon Web Services+-- account.+createSnapshotCopyGrant_snapshotCopyGrantName :: Lens.Lens' CreateSnapshotCopyGrant Prelude.Text+createSnapshotCopyGrant_snapshotCopyGrantName = Lens.lens (\CreateSnapshotCopyGrant' {snapshotCopyGrantName} -> snapshotCopyGrantName) (\s@CreateSnapshotCopyGrant' {} a -> s {snapshotCopyGrantName = a} :: CreateSnapshotCopyGrant)++instance Core.AWSRequest CreateSnapshotCopyGrant where+ type+ AWSResponse CreateSnapshotCopyGrant =+ CreateSnapshotCopyGrantResponse+ request overrides =+ Request.postQuery (overrides defaultService)+ response =+ Response.receiveXMLWrapper+ "CreateSnapshotCopyGrantResult"+ ( \s h x ->+ CreateSnapshotCopyGrantResponse'+ Prelude.<$> (x Data..@? "SnapshotCopyGrant")+ Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+ )++instance Prelude.Hashable CreateSnapshotCopyGrant where+ hashWithSalt _salt CreateSnapshotCopyGrant' {..} =+ _salt+ `Prelude.hashWithSalt` kmsKeyId+ `Prelude.hashWithSalt` tags+ `Prelude.hashWithSalt` snapshotCopyGrantName++instance Prelude.NFData CreateSnapshotCopyGrant where+ rnf CreateSnapshotCopyGrant' {..} =+ Prelude.rnf kmsKeyId+ `Prelude.seq` Prelude.rnf tags+ `Prelude.seq` Prelude.rnf snapshotCopyGrantName++instance Data.ToHeaders CreateSnapshotCopyGrant where+ toHeaders = Prelude.const Prelude.mempty++instance Data.ToPath CreateSnapshotCopyGrant where+ toPath = Prelude.const "/"++instance Data.ToQuery CreateSnapshotCopyGrant where+ toQuery CreateSnapshotCopyGrant' {..} =+ Prelude.mconcat+ [ "Action"+ Data.=: ("CreateSnapshotCopyGrant" :: Prelude.ByteString),+ "Version"+ Data.=: ("2012-12-01" :: Prelude.ByteString),+ "KmsKeyId" Data.=: kmsKeyId,+ "Tags"+ Data.=: Data.toQuery+ (Data.toQueryList "Tag" Prelude.<$> tags),+ "SnapshotCopyGrantName"+ Data.=: snapshotCopyGrantName+ ]++-- | /See:/ 'newCreateSnapshotCopyGrantResponse' smart constructor.+data CreateSnapshotCopyGrantResponse = CreateSnapshotCopyGrantResponse'+ { snapshotCopyGrant :: Prelude.Maybe SnapshotCopyGrant,+ -- | The response's http status code.+ httpStatus :: Prelude.Int+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'CreateSnapshotCopyGrantResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'snapshotCopyGrant', 'createSnapshotCopyGrantResponse_snapshotCopyGrant' - Undocumented member.+--+-- 'httpStatus', 'createSnapshotCopyGrantResponse_httpStatus' - The response's http status code.+newCreateSnapshotCopyGrantResponse ::+ -- | 'httpStatus'+ Prelude.Int ->+ CreateSnapshotCopyGrantResponse+newCreateSnapshotCopyGrantResponse pHttpStatus_ =+ CreateSnapshotCopyGrantResponse'+ { snapshotCopyGrant =+ Prelude.Nothing,+ httpStatus = pHttpStatus_+ }++-- | Undocumented member.+createSnapshotCopyGrantResponse_snapshotCopyGrant :: Lens.Lens' CreateSnapshotCopyGrantResponse (Prelude.Maybe SnapshotCopyGrant)+createSnapshotCopyGrantResponse_snapshotCopyGrant = Lens.lens (\CreateSnapshotCopyGrantResponse' {snapshotCopyGrant} -> snapshotCopyGrant) (\s@CreateSnapshotCopyGrantResponse' {} a -> s {snapshotCopyGrant = a} :: CreateSnapshotCopyGrantResponse)++-- | The response's http status code.+createSnapshotCopyGrantResponse_httpStatus :: Lens.Lens' CreateSnapshotCopyGrantResponse Prelude.Int+createSnapshotCopyGrantResponse_httpStatus = Lens.lens (\CreateSnapshotCopyGrantResponse' {httpStatus} -> httpStatus) (\s@CreateSnapshotCopyGrantResponse' {} a -> s {httpStatus = a} :: CreateSnapshotCopyGrantResponse)++instance+ Prelude.NFData+ CreateSnapshotCopyGrantResponse+ where+ rnf CreateSnapshotCopyGrantResponse' {..} =+ Prelude.rnf snapshotCopyGrant+ `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/Redshift/CreateSnapshotSchedule.hs view
@@ -0,0 +1,193 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module : Amazonka.Redshift.CreateSnapshotSchedule+-- Copyright : (c) 2013-2023 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Create a snapshot schedule that can be associated to a cluster and which+-- overrides the default system backup schedule.+module Amazonka.Redshift.CreateSnapshotSchedule+ ( -- * Creating a Request+ CreateSnapshotSchedule (..),+ newCreateSnapshotSchedule,++ -- * Request Lenses+ createSnapshotSchedule_dryRun,+ createSnapshotSchedule_nextInvocations,+ createSnapshotSchedule_scheduleDefinitions,+ createSnapshotSchedule_scheduleDescription,+ createSnapshotSchedule_scheduleIdentifier,+ createSnapshotSchedule_tags,++ -- * Destructuring the Response+ SnapshotSchedule (..),+ newSnapshotSchedule,++ -- * Response Lenses+ snapshotSchedule_associatedClusterCount,+ snapshotSchedule_associatedClusters,+ snapshotSchedule_nextInvocations,+ snapshotSchedule_scheduleDefinitions,+ snapshotSchedule_scheduleDescription,+ snapshotSchedule_scheduleIdentifier,+ snapshotSchedule_tags,+ )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Redshift.Types+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newCreateSnapshotSchedule' smart constructor.+data CreateSnapshotSchedule = CreateSnapshotSchedule'+ { dryRun :: Prelude.Maybe Prelude.Bool,+ nextInvocations :: Prelude.Maybe Prelude.Int,+ -- | The definition of the snapshot schedule. The definition is made up of+ -- schedule expressions, for example \"cron(30 12 *)\" or \"rate(12+ -- hours)\".+ scheduleDefinitions :: Prelude.Maybe [Prelude.Text],+ -- | The description of the snapshot schedule.+ scheduleDescription :: Prelude.Maybe Prelude.Text,+ -- | A unique identifier for a snapshot schedule. Only alphanumeric+ -- characters are allowed for the identifier.+ scheduleIdentifier :: Prelude.Maybe Prelude.Text,+ -- | An optional set of tags you can use to search for the schedule.+ tags :: Prelude.Maybe [Tag]+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'CreateSnapshotSchedule' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'dryRun', 'createSnapshotSchedule_dryRun' -+--+-- 'nextInvocations', 'createSnapshotSchedule_nextInvocations' -+--+-- 'scheduleDefinitions', 'createSnapshotSchedule_scheduleDefinitions' - The definition of the snapshot schedule. The definition is made up of+-- schedule expressions, for example \"cron(30 12 *)\" or \"rate(12+-- hours)\".+--+-- 'scheduleDescription', 'createSnapshotSchedule_scheduleDescription' - The description of the snapshot schedule.+--+-- 'scheduleIdentifier', 'createSnapshotSchedule_scheduleIdentifier' - A unique identifier for a snapshot schedule. Only alphanumeric+-- characters are allowed for the identifier.+--+-- 'tags', 'createSnapshotSchedule_tags' - An optional set of tags you can use to search for the schedule.+newCreateSnapshotSchedule ::+ CreateSnapshotSchedule+newCreateSnapshotSchedule =+ CreateSnapshotSchedule'+ { dryRun = Prelude.Nothing,+ nextInvocations = Prelude.Nothing,+ scheduleDefinitions = Prelude.Nothing,+ scheduleDescription = Prelude.Nothing,+ scheduleIdentifier = Prelude.Nothing,+ tags = Prelude.Nothing+ }++createSnapshotSchedule_dryRun :: Lens.Lens' CreateSnapshotSchedule (Prelude.Maybe Prelude.Bool)+createSnapshotSchedule_dryRun = Lens.lens (\CreateSnapshotSchedule' {dryRun} -> dryRun) (\s@CreateSnapshotSchedule' {} a -> s {dryRun = a} :: CreateSnapshotSchedule)++createSnapshotSchedule_nextInvocations :: Lens.Lens' CreateSnapshotSchedule (Prelude.Maybe Prelude.Int)+createSnapshotSchedule_nextInvocations = Lens.lens (\CreateSnapshotSchedule' {nextInvocations} -> nextInvocations) (\s@CreateSnapshotSchedule' {} a -> s {nextInvocations = a} :: CreateSnapshotSchedule)++-- | The definition of the snapshot schedule. The definition is made up of+-- schedule expressions, for example \"cron(30 12 *)\" or \"rate(12+-- hours)\".+createSnapshotSchedule_scheduleDefinitions :: Lens.Lens' CreateSnapshotSchedule (Prelude.Maybe [Prelude.Text])+createSnapshotSchedule_scheduleDefinitions = Lens.lens (\CreateSnapshotSchedule' {scheduleDefinitions} -> scheduleDefinitions) (\s@CreateSnapshotSchedule' {} a -> s {scheduleDefinitions = a} :: CreateSnapshotSchedule) Prelude.. Lens.mapping Lens.coerced++-- | The description of the snapshot schedule.+createSnapshotSchedule_scheduleDescription :: Lens.Lens' CreateSnapshotSchedule (Prelude.Maybe Prelude.Text)+createSnapshotSchedule_scheduleDescription = Lens.lens (\CreateSnapshotSchedule' {scheduleDescription} -> scheduleDescription) (\s@CreateSnapshotSchedule' {} a -> s {scheduleDescription = a} :: CreateSnapshotSchedule)++-- | A unique identifier for a snapshot schedule. Only alphanumeric+-- characters are allowed for the identifier.+createSnapshotSchedule_scheduleIdentifier :: Lens.Lens' CreateSnapshotSchedule (Prelude.Maybe Prelude.Text)+createSnapshotSchedule_scheduleIdentifier = Lens.lens (\CreateSnapshotSchedule' {scheduleIdentifier} -> scheduleIdentifier) (\s@CreateSnapshotSchedule' {} a -> s {scheduleIdentifier = a} :: CreateSnapshotSchedule)++-- | An optional set of tags you can use to search for the schedule.+createSnapshotSchedule_tags :: Lens.Lens' CreateSnapshotSchedule (Prelude.Maybe [Tag])+createSnapshotSchedule_tags = Lens.lens (\CreateSnapshotSchedule' {tags} -> tags) (\s@CreateSnapshotSchedule' {} a -> s {tags = a} :: CreateSnapshotSchedule) Prelude.. Lens.mapping Lens.coerced++instance Core.AWSRequest CreateSnapshotSchedule where+ type+ AWSResponse CreateSnapshotSchedule =+ SnapshotSchedule+ request overrides =+ Request.postQuery (overrides defaultService)+ response =+ Response.receiveXMLWrapper+ "CreateSnapshotScheduleResult"+ (\s h x -> Data.parseXML x)++instance Prelude.Hashable CreateSnapshotSchedule where+ hashWithSalt _salt CreateSnapshotSchedule' {..} =+ _salt+ `Prelude.hashWithSalt` dryRun+ `Prelude.hashWithSalt` nextInvocations+ `Prelude.hashWithSalt` scheduleDefinitions+ `Prelude.hashWithSalt` scheduleDescription+ `Prelude.hashWithSalt` scheduleIdentifier+ `Prelude.hashWithSalt` tags++instance Prelude.NFData CreateSnapshotSchedule where+ rnf CreateSnapshotSchedule' {..} =+ Prelude.rnf dryRun+ `Prelude.seq` Prelude.rnf nextInvocations+ `Prelude.seq` Prelude.rnf scheduleDefinitions+ `Prelude.seq` Prelude.rnf scheduleDescription+ `Prelude.seq` Prelude.rnf scheduleIdentifier+ `Prelude.seq` Prelude.rnf tags++instance Data.ToHeaders CreateSnapshotSchedule where+ toHeaders = Prelude.const Prelude.mempty++instance Data.ToPath CreateSnapshotSchedule where+ toPath = Prelude.const "/"++instance Data.ToQuery CreateSnapshotSchedule where+ toQuery CreateSnapshotSchedule' {..} =+ Prelude.mconcat+ [ "Action"+ Data.=: ("CreateSnapshotSchedule" :: Prelude.ByteString),+ "Version"+ Data.=: ("2012-12-01" :: Prelude.ByteString),+ "DryRun" Data.=: dryRun,+ "NextInvocations" Data.=: nextInvocations,+ "ScheduleDefinitions"+ Data.=: Data.toQuery+ ( Data.toQueryList "ScheduleDefinition"+ Prelude.<$> scheduleDefinitions+ ),+ "ScheduleDescription" Data.=: scheduleDescription,+ "ScheduleIdentifier" Data.=: scheduleIdentifier,+ "Tags"+ Data.=: Data.toQuery+ (Data.toQueryList "Tag" Prelude.<$> tags)+ ]
+ gen/Amazonka/Redshift/CreateTags.hs view
@@ -0,0 +1,161 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module : Amazonka.Redshift.CreateTags+-- Copyright : (c) 2013-2023 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Adds tags to a cluster.+--+-- A resource can have up to 50 tags. If you try to create more than 50+-- tags for a resource, you will receive an error and the attempt will+-- fail.+--+-- If you specify a key that already exists for the resource, the value for+-- that key will be updated with the new value.+module Amazonka.Redshift.CreateTags+ ( -- * Creating a Request+ CreateTags (..),+ newCreateTags,++ -- * Request Lenses+ createTags_resourceName,+ createTags_tags,++ -- * Destructuring the Response+ CreateTagsResponse (..),+ newCreateTagsResponse,+ )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Redshift.Types+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | Contains the output from the @CreateTags@ action.+--+-- /See:/ 'newCreateTags' smart constructor.+data CreateTags = CreateTags'+ { -- | The Amazon Resource Name (ARN) to which you want to add the tag or tags.+ -- For example, @arn:aws:redshift:us-east-2:123456789:cluster:t1@.+ resourceName :: Prelude.Text,+ -- | One or more name\/value pairs to add as tags to the specified resource.+ -- Each tag name is passed in with the parameter @Key@ and the+ -- corresponding value is passed in with the parameter @Value@. The @Key@+ -- and @Value@ parameters are separated by a comma (,). Separate multiple+ -- tags with a space. For example,+ -- @--tags \"Key\"=\"owner\",\"Value\"=\"admin\" \"Key\"=\"environment\",\"Value\"=\"test\" \"Key\"=\"version\",\"Value\"=\"1.0\"@.+ tags :: [Tag]+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'CreateTags' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'resourceName', 'createTags_resourceName' - The Amazon Resource Name (ARN) to which you want to add the tag or tags.+-- For example, @arn:aws:redshift:us-east-2:123456789:cluster:t1@.+--+-- 'tags', 'createTags_tags' - One or more name\/value pairs to add as tags to the specified resource.+-- Each tag name is passed in with the parameter @Key@ and the+-- corresponding value is passed in with the parameter @Value@. The @Key@+-- and @Value@ parameters are separated by a comma (,). Separate multiple+-- tags with a space. For example,+-- @--tags \"Key\"=\"owner\",\"Value\"=\"admin\" \"Key\"=\"environment\",\"Value\"=\"test\" \"Key\"=\"version\",\"Value\"=\"1.0\"@.+newCreateTags ::+ -- | 'resourceName'+ Prelude.Text ->+ CreateTags+newCreateTags pResourceName_ =+ CreateTags'+ { resourceName = pResourceName_,+ tags = Prelude.mempty+ }++-- | The Amazon Resource Name (ARN) to which you want to add the tag or tags.+-- For example, @arn:aws:redshift:us-east-2:123456789:cluster:t1@.+createTags_resourceName :: Lens.Lens' CreateTags Prelude.Text+createTags_resourceName = Lens.lens (\CreateTags' {resourceName} -> resourceName) (\s@CreateTags' {} a -> s {resourceName = a} :: CreateTags)++-- | One or more name\/value pairs to add as tags to the specified resource.+-- Each tag name is passed in with the parameter @Key@ and the+-- corresponding value is passed in with the parameter @Value@. The @Key@+-- and @Value@ parameters are separated by a comma (,). Separate multiple+-- tags with a space. For example,+-- @--tags \"Key\"=\"owner\",\"Value\"=\"admin\" \"Key\"=\"environment\",\"Value\"=\"test\" \"Key\"=\"version\",\"Value\"=\"1.0\"@.+createTags_tags :: Lens.Lens' CreateTags [Tag]+createTags_tags = Lens.lens (\CreateTags' {tags} -> tags) (\s@CreateTags' {} a -> s {tags = a} :: CreateTags) Prelude.. Lens.coerced++instance Core.AWSRequest CreateTags where+ type AWSResponse CreateTags = CreateTagsResponse+ request overrides =+ Request.postQuery (overrides defaultService)+ response = Response.receiveNull CreateTagsResponse'++instance Prelude.Hashable CreateTags where+ hashWithSalt _salt CreateTags' {..} =+ _salt+ `Prelude.hashWithSalt` resourceName+ `Prelude.hashWithSalt` tags++instance Prelude.NFData CreateTags where+ rnf CreateTags' {..} =+ Prelude.rnf resourceName+ `Prelude.seq` Prelude.rnf tags++instance Data.ToHeaders CreateTags where+ toHeaders = Prelude.const Prelude.mempty++instance Data.ToPath CreateTags where+ toPath = Prelude.const "/"++instance Data.ToQuery CreateTags where+ toQuery CreateTags' {..} =+ Prelude.mconcat+ [ "Action"+ Data.=: ("CreateTags" :: Prelude.ByteString),+ "Version"+ Data.=: ("2012-12-01" :: Prelude.ByteString),+ "ResourceName" Data.=: resourceName,+ "Tags" Data.=: Data.toQueryList "Tag" tags+ ]++-- | /See:/ 'newCreateTagsResponse' smart constructor.+data CreateTagsResponse = CreateTagsResponse'+ {+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'CreateTagsResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+newCreateTagsResponse ::+ CreateTagsResponse+newCreateTagsResponse = CreateTagsResponse'++instance Prelude.NFData CreateTagsResponse where+ rnf _ = ()
+ gen/Amazonka/Redshift/CreateUsageLimit.hs view
@@ -0,0 +1,236 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module : Amazonka.Redshift.CreateUsageLimit+-- Copyright : (c) 2013-2023 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Creates a usage limit for a specified Amazon Redshift feature on a+-- cluster. The usage limit is identified by the returned usage limit+-- identifier.+module Amazonka.Redshift.CreateUsageLimit+ ( -- * Creating a Request+ CreateUsageLimit (..),+ newCreateUsageLimit,++ -- * Request Lenses+ createUsageLimit_breachAction,+ createUsageLimit_period,+ createUsageLimit_tags,+ createUsageLimit_clusterIdentifier,+ createUsageLimit_featureType,+ createUsageLimit_limitType,+ createUsageLimit_amount,++ -- * Destructuring the Response+ UsageLimit (..),+ newUsageLimit,++ -- * Response Lenses+ usageLimit_amount,+ usageLimit_breachAction,+ usageLimit_clusterIdentifier,+ usageLimit_featureType,+ usageLimit_limitType,+ usageLimit_period,+ usageLimit_tags,+ usageLimit_usageLimitId,+ )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Redshift.Types+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newCreateUsageLimit' smart constructor.+data CreateUsageLimit = CreateUsageLimit'+ { -- | The action that Amazon Redshift takes when the limit is reached. The+ -- default is log. For more information about this parameter, see+ -- UsageLimit.+ breachAction :: Prelude.Maybe UsageLimitBreachAction,+ -- | The time period that the amount applies to. A @weekly@ period begins on+ -- Sunday. The default is @monthly@.+ period :: Prelude.Maybe UsageLimitPeriod,+ -- | A list of tag instances.+ tags :: Prelude.Maybe [Tag],+ -- | The identifier of the cluster that you want to limit usage.+ clusterIdentifier :: Prelude.Text,+ -- | The Amazon Redshift feature that you want to limit.+ featureType :: UsageLimitFeatureType,+ -- | The type of limit. Depending on the feature type, this can be based on a+ -- time duration or data size. If @FeatureType@ is @spectrum@, then+ -- @LimitType@ must be @data-scanned@. If @FeatureType@ is+ -- @concurrency-scaling@, then @LimitType@ must be @time@. If @FeatureType@+ -- is @cross-region-datasharing@, then @LimitType@ must be @data-scanned@.+ limitType :: UsageLimitLimitType,+ -- | The limit amount. If time-based, this amount is in minutes. If+ -- data-based, this amount is in terabytes (TB). The value must be a+ -- positive number.+ amount :: Prelude.Integer+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'CreateUsageLimit' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'breachAction', 'createUsageLimit_breachAction' - The action that Amazon Redshift takes when the limit is reached. The+-- default is log. For more information about this parameter, see+-- UsageLimit.+--+-- 'period', 'createUsageLimit_period' - The time period that the amount applies to. A @weekly@ period begins on+-- Sunday. The default is @monthly@.+--+-- 'tags', 'createUsageLimit_tags' - A list of tag instances.+--+-- 'clusterIdentifier', 'createUsageLimit_clusterIdentifier' - The identifier of the cluster that you want to limit usage.+--+-- 'featureType', 'createUsageLimit_featureType' - The Amazon Redshift feature that you want to limit.+--+-- 'limitType', 'createUsageLimit_limitType' - The type of limit. Depending on the feature type, this can be based on a+-- time duration or data size. If @FeatureType@ is @spectrum@, then+-- @LimitType@ must be @data-scanned@. If @FeatureType@ is+-- @concurrency-scaling@, then @LimitType@ must be @time@. If @FeatureType@+-- is @cross-region-datasharing@, then @LimitType@ must be @data-scanned@.+--+-- 'amount', 'createUsageLimit_amount' - The limit amount. If time-based, this amount is in minutes. If+-- data-based, this amount is in terabytes (TB). The value must be a+-- positive number.+newCreateUsageLimit ::+ -- | 'clusterIdentifier'+ Prelude.Text ->+ -- | 'featureType'+ UsageLimitFeatureType ->+ -- | 'limitType'+ UsageLimitLimitType ->+ -- | 'amount'+ Prelude.Integer ->+ CreateUsageLimit+newCreateUsageLimit+ pClusterIdentifier_+ pFeatureType_+ pLimitType_+ pAmount_ =+ CreateUsageLimit'+ { breachAction = Prelude.Nothing,+ period = Prelude.Nothing,+ tags = Prelude.Nothing,+ clusterIdentifier = pClusterIdentifier_,+ featureType = pFeatureType_,+ limitType = pLimitType_,+ amount = pAmount_+ }++-- | The action that Amazon Redshift takes when the limit is reached. The+-- default is log. For more information about this parameter, see+-- UsageLimit.+createUsageLimit_breachAction :: Lens.Lens' CreateUsageLimit (Prelude.Maybe UsageLimitBreachAction)+createUsageLimit_breachAction = Lens.lens (\CreateUsageLimit' {breachAction} -> breachAction) (\s@CreateUsageLimit' {} a -> s {breachAction = a} :: CreateUsageLimit)++-- | The time period that the amount applies to. A @weekly@ period begins on+-- Sunday. The default is @monthly@.+createUsageLimit_period :: Lens.Lens' CreateUsageLimit (Prelude.Maybe UsageLimitPeriod)+createUsageLimit_period = Lens.lens (\CreateUsageLimit' {period} -> period) (\s@CreateUsageLimit' {} a -> s {period = a} :: CreateUsageLimit)++-- | A list of tag instances.+createUsageLimit_tags :: Lens.Lens' CreateUsageLimit (Prelude.Maybe [Tag])+createUsageLimit_tags = Lens.lens (\CreateUsageLimit' {tags} -> tags) (\s@CreateUsageLimit' {} a -> s {tags = a} :: CreateUsageLimit) Prelude.. Lens.mapping Lens.coerced++-- | The identifier of the cluster that you want to limit usage.+createUsageLimit_clusterIdentifier :: Lens.Lens' CreateUsageLimit Prelude.Text+createUsageLimit_clusterIdentifier = Lens.lens (\CreateUsageLimit' {clusterIdentifier} -> clusterIdentifier) (\s@CreateUsageLimit' {} a -> s {clusterIdentifier = a} :: CreateUsageLimit)++-- | The Amazon Redshift feature that you want to limit.+createUsageLimit_featureType :: Lens.Lens' CreateUsageLimit UsageLimitFeatureType+createUsageLimit_featureType = Lens.lens (\CreateUsageLimit' {featureType} -> featureType) (\s@CreateUsageLimit' {} a -> s {featureType = a} :: CreateUsageLimit)++-- | The type of limit. Depending on the feature type, this can be based on a+-- time duration or data size. If @FeatureType@ is @spectrum@, then+-- @LimitType@ must be @data-scanned@. If @FeatureType@ is+-- @concurrency-scaling@, then @LimitType@ must be @time@. If @FeatureType@+-- is @cross-region-datasharing@, then @LimitType@ must be @data-scanned@.+createUsageLimit_limitType :: Lens.Lens' CreateUsageLimit UsageLimitLimitType+createUsageLimit_limitType = Lens.lens (\CreateUsageLimit' {limitType} -> limitType) (\s@CreateUsageLimit' {} a -> s {limitType = a} :: CreateUsageLimit)++-- | The limit amount. If time-based, this amount is in minutes. If+-- data-based, this amount is in terabytes (TB). The value must be a+-- positive number.+createUsageLimit_amount :: Lens.Lens' CreateUsageLimit Prelude.Integer+createUsageLimit_amount = Lens.lens (\CreateUsageLimit' {amount} -> amount) (\s@CreateUsageLimit' {} a -> s {amount = a} :: CreateUsageLimit)++instance Core.AWSRequest CreateUsageLimit where+ type AWSResponse CreateUsageLimit = UsageLimit+ request overrides =+ Request.postQuery (overrides defaultService)+ response =+ Response.receiveXMLWrapper+ "CreateUsageLimitResult"+ (\s h x -> Data.parseXML x)++instance Prelude.Hashable CreateUsageLimit where+ hashWithSalt _salt CreateUsageLimit' {..} =+ _salt+ `Prelude.hashWithSalt` breachAction+ `Prelude.hashWithSalt` period+ `Prelude.hashWithSalt` tags+ `Prelude.hashWithSalt` clusterIdentifier+ `Prelude.hashWithSalt` featureType+ `Prelude.hashWithSalt` limitType+ `Prelude.hashWithSalt` amount++instance Prelude.NFData CreateUsageLimit where+ rnf CreateUsageLimit' {..} =+ Prelude.rnf breachAction+ `Prelude.seq` Prelude.rnf period+ `Prelude.seq` Prelude.rnf tags+ `Prelude.seq` Prelude.rnf clusterIdentifier+ `Prelude.seq` Prelude.rnf featureType+ `Prelude.seq` Prelude.rnf limitType+ `Prelude.seq` Prelude.rnf amount++instance Data.ToHeaders CreateUsageLimit where+ toHeaders = Prelude.const Prelude.mempty++instance Data.ToPath CreateUsageLimit where+ toPath = Prelude.const "/"++instance Data.ToQuery CreateUsageLimit where+ toQuery CreateUsageLimit' {..} =+ Prelude.mconcat+ [ "Action"+ Data.=: ("CreateUsageLimit" :: Prelude.ByteString),+ "Version"+ Data.=: ("2012-12-01" :: Prelude.ByteString),+ "BreachAction" Data.=: breachAction,+ "Period" Data.=: period,+ "Tags"+ Data.=: Data.toQuery+ (Data.toQueryList "Tag" Prelude.<$> tags),+ "ClusterIdentifier" Data.=: clusterIdentifier,+ "FeatureType" Data.=: featureType,+ "LimitType" Data.=: limitType,+ "Amount" Data.=: amount+ ]
@@ -0,0 +1,142 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module : Amazonka.Redshift.DeauthorizeDataShare+-- Copyright : (c) 2013-2023 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- From a datashare producer account, removes authorization from the+-- specified datashare.+module Amazonka.Redshift.DeauthorizeDataShare+ ( -- * Creating a Request+ DeauthorizeDataShare (..),+ newDeauthorizeDataShare,++ -- * Request Lenses+ deauthorizeDataShare_dataShareArn,+ deauthorizeDataShare_consumerIdentifier,++ -- * Destructuring the Response+ DataShare (..),+ newDataShare,++ -- * Response Lenses+ dataShare_allowPubliclyAccessibleConsumers,+ dataShare_dataShareArn,+ dataShare_dataShareAssociations,+ dataShare_managedBy,+ dataShare_producerArn,+ )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Redshift.Types+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newDeauthorizeDataShare' smart constructor.+data DeauthorizeDataShare = DeauthorizeDataShare'+ { -- | The Amazon Resource Name (ARN) of the datashare to remove authorization+ -- from.+ dataShareArn :: Prelude.Text,+ -- | The identifier of the data consumer that is to have authorization+ -- removed from the datashare. This identifier is an Amazon Web Services+ -- account ID or a keyword, such as ADX.+ consumerIdentifier :: Prelude.Text+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DeauthorizeDataShare' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'dataShareArn', 'deauthorizeDataShare_dataShareArn' - The Amazon Resource Name (ARN) of the datashare to remove authorization+-- from.+--+-- 'consumerIdentifier', 'deauthorizeDataShare_consumerIdentifier' - The identifier of the data consumer that is to have authorization+-- removed from the datashare. This identifier is an Amazon Web Services+-- account ID or a keyword, such as ADX.+newDeauthorizeDataShare ::+ -- | 'dataShareArn'+ Prelude.Text ->+ -- | 'consumerIdentifier'+ Prelude.Text ->+ DeauthorizeDataShare+newDeauthorizeDataShare+ pDataShareArn_+ pConsumerIdentifier_ =+ DeauthorizeDataShare'+ { dataShareArn =+ pDataShareArn_,+ consumerIdentifier = pConsumerIdentifier_+ }++-- | The Amazon Resource Name (ARN) of the datashare to remove authorization+-- from.+deauthorizeDataShare_dataShareArn :: Lens.Lens' DeauthorizeDataShare Prelude.Text+deauthorizeDataShare_dataShareArn = Lens.lens (\DeauthorizeDataShare' {dataShareArn} -> dataShareArn) (\s@DeauthorizeDataShare' {} a -> s {dataShareArn = a} :: DeauthorizeDataShare)++-- | The identifier of the data consumer that is to have authorization+-- removed from the datashare. This identifier is an Amazon Web Services+-- account ID or a keyword, such as ADX.+deauthorizeDataShare_consumerIdentifier :: Lens.Lens' DeauthorizeDataShare Prelude.Text+deauthorizeDataShare_consumerIdentifier = Lens.lens (\DeauthorizeDataShare' {consumerIdentifier} -> consumerIdentifier) (\s@DeauthorizeDataShare' {} a -> s {consumerIdentifier = a} :: DeauthorizeDataShare)++instance Core.AWSRequest DeauthorizeDataShare where+ type AWSResponse DeauthorizeDataShare = DataShare+ request overrides =+ Request.postQuery (overrides defaultService)+ response =+ Response.receiveXMLWrapper+ "DeauthorizeDataShareResult"+ (\s h x -> Data.parseXML x)++instance Prelude.Hashable DeauthorizeDataShare where+ hashWithSalt _salt DeauthorizeDataShare' {..} =+ _salt+ `Prelude.hashWithSalt` dataShareArn+ `Prelude.hashWithSalt` consumerIdentifier++instance Prelude.NFData DeauthorizeDataShare where+ rnf DeauthorizeDataShare' {..} =+ Prelude.rnf dataShareArn+ `Prelude.seq` Prelude.rnf consumerIdentifier++instance Data.ToHeaders DeauthorizeDataShare where+ toHeaders = Prelude.const Prelude.mempty++instance Data.ToPath DeauthorizeDataShare where+ toPath = Prelude.const "/"++instance Data.ToQuery DeauthorizeDataShare where+ toQuery DeauthorizeDataShare' {..} =+ Prelude.mconcat+ [ "Action"+ Data.=: ("DeauthorizeDataShare" :: Prelude.ByteString),+ "Version"+ Data.=: ("2012-12-01" :: Prelude.ByteString),+ "DataShareArn" Data.=: dataShareArn,+ "ConsumerIdentifier" Data.=: consumerIdentifier+ ]
+ gen/Amazonka/Redshift/DeleteAuthenticationProfile.hs view
@@ -0,0 +1,169 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module : Amazonka.Redshift.DeleteAuthenticationProfile+-- Copyright : (c) 2013-2023 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Deletes an authentication profile.+module Amazonka.Redshift.DeleteAuthenticationProfile+ ( -- * Creating a Request+ DeleteAuthenticationProfile (..),+ newDeleteAuthenticationProfile,++ -- * Request Lenses+ deleteAuthenticationProfile_authenticationProfileName,++ -- * Destructuring the Response+ DeleteAuthenticationProfileResponse (..),+ newDeleteAuthenticationProfileResponse,++ -- * Response Lenses+ deleteAuthenticationProfileResponse_authenticationProfileName,+ deleteAuthenticationProfileResponse_httpStatus,+ )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Redshift.Types+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newDeleteAuthenticationProfile' smart constructor.+data DeleteAuthenticationProfile = DeleteAuthenticationProfile'+ { -- | The name of the authentication profile to delete.+ authenticationProfileName :: Prelude.Text+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DeleteAuthenticationProfile' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'authenticationProfileName', 'deleteAuthenticationProfile_authenticationProfileName' - The name of the authentication profile to delete.+newDeleteAuthenticationProfile ::+ -- | 'authenticationProfileName'+ Prelude.Text ->+ DeleteAuthenticationProfile+newDeleteAuthenticationProfile+ pAuthenticationProfileName_ =+ DeleteAuthenticationProfile'+ { authenticationProfileName =+ pAuthenticationProfileName_+ }++-- | The name of the authentication profile to delete.+deleteAuthenticationProfile_authenticationProfileName :: Lens.Lens' DeleteAuthenticationProfile Prelude.Text+deleteAuthenticationProfile_authenticationProfileName = Lens.lens (\DeleteAuthenticationProfile' {authenticationProfileName} -> authenticationProfileName) (\s@DeleteAuthenticationProfile' {} a -> s {authenticationProfileName = a} :: DeleteAuthenticationProfile)++instance Core.AWSRequest DeleteAuthenticationProfile where+ type+ AWSResponse DeleteAuthenticationProfile =+ DeleteAuthenticationProfileResponse+ request overrides =+ Request.postQuery (overrides defaultService)+ response =+ Response.receiveXMLWrapper+ "DeleteAuthenticationProfileResult"+ ( \s h x ->+ DeleteAuthenticationProfileResponse'+ Prelude.<$> (x Data..@? "AuthenticationProfileName")+ Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+ )++instance Prelude.Hashable DeleteAuthenticationProfile where+ hashWithSalt _salt DeleteAuthenticationProfile' {..} =+ _salt+ `Prelude.hashWithSalt` authenticationProfileName++instance Prelude.NFData DeleteAuthenticationProfile where+ rnf DeleteAuthenticationProfile' {..} =+ Prelude.rnf authenticationProfileName++instance Data.ToHeaders DeleteAuthenticationProfile where+ toHeaders = Prelude.const Prelude.mempty++instance Data.ToPath DeleteAuthenticationProfile where+ toPath = Prelude.const "/"++instance Data.ToQuery DeleteAuthenticationProfile where+ toQuery DeleteAuthenticationProfile' {..} =+ Prelude.mconcat+ [ "Action"+ Data.=: ( "DeleteAuthenticationProfile" ::+ Prelude.ByteString+ ),+ "Version"+ Data.=: ("2012-12-01" :: Prelude.ByteString),+ "AuthenticationProfileName"+ Data.=: authenticationProfileName+ ]++-- | /See:/ 'newDeleteAuthenticationProfileResponse' smart constructor.+data DeleteAuthenticationProfileResponse = DeleteAuthenticationProfileResponse'+ { -- | The name of the authentication profile that was deleted.+ authenticationProfileName :: Prelude.Maybe Prelude.Text,+ -- | The response's http status code.+ httpStatus :: Prelude.Int+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DeleteAuthenticationProfileResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'authenticationProfileName', 'deleteAuthenticationProfileResponse_authenticationProfileName' - The name of the authentication profile that was deleted.+--+-- 'httpStatus', 'deleteAuthenticationProfileResponse_httpStatus' - The response's http status code.+newDeleteAuthenticationProfileResponse ::+ -- | 'httpStatus'+ Prelude.Int ->+ DeleteAuthenticationProfileResponse+newDeleteAuthenticationProfileResponse pHttpStatus_ =+ DeleteAuthenticationProfileResponse'+ { authenticationProfileName =+ Prelude.Nothing,+ httpStatus = pHttpStatus_+ }++-- | The name of the authentication profile that was deleted.+deleteAuthenticationProfileResponse_authenticationProfileName :: Lens.Lens' DeleteAuthenticationProfileResponse (Prelude.Maybe Prelude.Text)+deleteAuthenticationProfileResponse_authenticationProfileName = Lens.lens (\DeleteAuthenticationProfileResponse' {authenticationProfileName} -> authenticationProfileName) (\s@DeleteAuthenticationProfileResponse' {} a -> s {authenticationProfileName = a} :: DeleteAuthenticationProfileResponse)++-- | The response's http status code.+deleteAuthenticationProfileResponse_httpStatus :: Lens.Lens' DeleteAuthenticationProfileResponse Prelude.Int+deleteAuthenticationProfileResponse_httpStatus = Lens.lens (\DeleteAuthenticationProfileResponse' {httpStatus} -> httpStatus) (\s@DeleteAuthenticationProfileResponse' {} a -> s {httpStatus = a} :: DeleteAuthenticationProfileResponse)++instance+ Prelude.NFData+ DeleteAuthenticationProfileResponse+ where+ rnf DeleteAuthenticationProfileResponse' {..} =+ Prelude.rnf authenticationProfileName+ `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/Redshift/DeleteCluster.hs view
@@ -0,0 +1,323 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module : Amazonka.Redshift.DeleteCluster+-- Copyright : (c) 2013-2023 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Deletes a previously provisioned cluster without its final snapshot+-- being created. A successful response from the web service indicates that+-- the request was received correctly. Use DescribeClusters to monitor the+-- status of the deletion. The delete operation cannot be canceled or+-- reverted once submitted. For more information about managing clusters,+-- go to+-- <https://docs.aws.amazon.com/redshift/latest/mgmt/working-with-clusters.html Amazon Redshift Clusters>+-- in the /Amazon Redshift Cluster Management Guide/.+--+-- If you want to shut down the cluster and retain it for future use, set+-- /SkipFinalClusterSnapshot/ to @false@ and specify a name for+-- /FinalClusterSnapshotIdentifier/. You can later restore this snapshot to+-- resume using the cluster. If a final cluster snapshot is requested, the+-- status of the cluster will be \"final-snapshot\" while the snapshot is+-- being taken, then it\'s \"deleting\" once Amazon Redshift begins+-- deleting the cluster.+--+-- For more information about managing clusters, go to+-- <https://docs.aws.amazon.com/redshift/latest/mgmt/working-with-clusters.html Amazon Redshift Clusters>+-- in the /Amazon Redshift Cluster Management Guide/.+module Amazonka.Redshift.DeleteCluster+ ( -- * Creating a Request+ DeleteCluster (..),+ newDeleteCluster,++ -- * Request Lenses+ deleteCluster_finalClusterSnapshotIdentifier,+ deleteCluster_finalClusterSnapshotRetentionPeriod,+ deleteCluster_skipFinalClusterSnapshot,+ deleteCluster_clusterIdentifier,++ -- * Destructuring the Response+ DeleteClusterResponse (..),+ newDeleteClusterResponse,++ -- * Response Lenses+ deleteClusterResponse_cluster,+ deleteClusterResponse_httpStatus,+ )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Redshift.Types+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- |+--+-- /See:/ 'newDeleteCluster' smart constructor.+data DeleteCluster = DeleteCluster'+ { -- | The identifier of the final snapshot that is to be created immediately+ -- before deleting the cluster. If this parameter is provided,+ -- /SkipFinalClusterSnapshot/ must be @false@.+ --+ -- Constraints:+ --+ -- - Must be 1 to 255 alphanumeric characters.+ --+ -- - First character must be a letter.+ --+ -- - Cannot end with a hyphen or contain two consecutive hyphens.+ finalClusterSnapshotIdentifier :: Prelude.Maybe Prelude.Text,+ -- | The number of days that a manual snapshot is retained. If the value is+ -- -1, the manual snapshot is retained indefinitely.+ --+ -- The value must be either -1 or an integer between 1 and 3,653.+ --+ -- The default value is -1.+ finalClusterSnapshotRetentionPeriod :: Prelude.Maybe Prelude.Int,+ -- | Determines whether a final snapshot of the cluster is created before+ -- Amazon Redshift deletes the cluster. If @true@, a final cluster snapshot+ -- is not created. If @false@, a final cluster snapshot is created before+ -- the cluster is deleted.+ --+ -- The /FinalClusterSnapshotIdentifier/ parameter must be specified if+ -- /SkipFinalClusterSnapshot/ is @false@.+ --+ -- Default: @false@+ skipFinalClusterSnapshot :: Prelude.Maybe Prelude.Bool,+ -- | The identifier of the cluster to be deleted.+ --+ -- Constraints:+ --+ -- - Must contain lowercase characters.+ --+ -- - Must contain from 1 to 63 alphanumeric characters or hyphens.+ --+ -- - First character must be a letter.+ --+ -- - Cannot end with a hyphen or contain two consecutive hyphens.+ clusterIdentifier :: Prelude.Text+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DeleteCluster' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'finalClusterSnapshotIdentifier', 'deleteCluster_finalClusterSnapshotIdentifier' - The identifier of the final snapshot that is to be created immediately+-- before deleting the cluster. If this parameter is provided,+-- /SkipFinalClusterSnapshot/ must be @false@.+--+-- Constraints:+--+-- - Must be 1 to 255 alphanumeric characters.+--+-- - First character must be a letter.+--+-- - Cannot end with a hyphen or contain two consecutive hyphens.+--+-- 'finalClusterSnapshotRetentionPeriod', 'deleteCluster_finalClusterSnapshotRetentionPeriod' - The number of days that a manual snapshot is retained. If the value is+-- -1, the manual snapshot is retained indefinitely.+--+-- The value must be either -1 or an integer between 1 and 3,653.+--+-- The default value is -1.+--+-- 'skipFinalClusterSnapshot', 'deleteCluster_skipFinalClusterSnapshot' - Determines whether a final snapshot of the cluster is created before+-- Amazon Redshift deletes the cluster. If @true@, a final cluster snapshot+-- is not created. If @false@, a final cluster snapshot is created before+-- the cluster is deleted.+--+-- The /FinalClusterSnapshotIdentifier/ parameter must be specified if+-- /SkipFinalClusterSnapshot/ is @false@.+--+-- Default: @false@+--+-- 'clusterIdentifier', 'deleteCluster_clusterIdentifier' - The identifier of the cluster to be deleted.+--+-- Constraints:+--+-- - Must contain lowercase characters.+--+-- - Must contain from 1 to 63 alphanumeric characters or hyphens.+--+-- - First character must be a letter.+--+-- - Cannot end with a hyphen or contain two consecutive hyphens.+newDeleteCluster ::+ -- | 'clusterIdentifier'+ Prelude.Text ->+ DeleteCluster+newDeleteCluster pClusterIdentifier_ =+ DeleteCluster'+ { finalClusterSnapshotIdentifier =+ Prelude.Nothing,+ finalClusterSnapshotRetentionPeriod =+ Prelude.Nothing,+ skipFinalClusterSnapshot = Prelude.Nothing,+ clusterIdentifier = pClusterIdentifier_+ }++-- | The identifier of the final snapshot that is to be created immediately+-- before deleting the cluster. If this parameter is provided,+-- /SkipFinalClusterSnapshot/ must be @false@.+--+-- Constraints:+--+-- - Must be 1 to 255 alphanumeric characters.+--+-- - First character must be a letter.+--+-- - Cannot end with a hyphen or contain two consecutive hyphens.+deleteCluster_finalClusterSnapshotIdentifier :: Lens.Lens' DeleteCluster (Prelude.Maybe Prelude.Text)+deleteCluster_finalClusterSnapshotIdentifier = Lens.lens (\DeleteCluster' {finalClusterSnapshotIdentifier} -> finalClusterSnapshotIdentifier) (\s@DeleteCluster' {} a -> s {finalClusterSnapshotIdentifier = a} :: DeleteCluster)++-- | The number of days that a manual snapshot is retained. If the value is+-- -1, the manual snapshot is retained indefinitely.+--+-- The value must be either -1 or an integer between 1 and 3,653.+--+-- The default value is -1.+deleteCluster_finalClusterSnapshotRetentionPeriod :: Lens.Lens' DeleteCluster (Prelude.Maybe Prelude.Int)+deleteCluster_finalClusterSnapshotRetentionPeriod = Lens.lens (\DeleteCluster' {finalClusterSnapshotRetentionPeriod} -> finalClusterSnapshotRetentionPeriod) (\s@DeleteCluster' {} a -> s {finalClusterSnapshotRetentionPeriod = a} :: DeleteCluster)++-- | Determines whether a final snapshot of the cluster is created before+-- Amazon Redshift deletes the cluster. If @true@, a final cluster snapshot+-- is not created. If @false@, a final cluster snapshot is created before+-- the cluster is deleted.+--+-- The /FinalClusterSnapshotIdentifier/ parameter must be specified if+-- /SkipFinalClusterSnapshot/ is @false@.+--+-- Default: @false@+deleteCluster_skipFinalClusterSnapshot :: Lens.Lens' DeleteCluster (Prelude.Maybe Prelude.Bool)+deleteCluster_skipFinalClusterSnapshot = Lens.lens (\DeleteCluster' {skipFinalClusterSnapshot} -> skipFinalClusterSnapshot) (\s@DeleteCluster' {} a -> s {skipFinalClusterSnapshot = a} :: DeleteCluster)++-- | The identifier of the cluster to be deleted.+--+-- Constraints:+--+-- - Must contain lowercase characters.+--+-- - Must contain from 1 to 63 alphanumeric characters or hyphens.+--+-- - First character must be a letter.+--+-- - Cannot end with a hyphen or contain two consecutive hyphens.+deleteCluster_clusterIdentifier :: Lens.Lens' DeleteCluster Prelude.Text+deleteCluster_clusterIdentifier = Lens.lens (\DeleteCluster' {clusterIdentifier} -> clusterIdentifier) (\s@DeleteCluster' {} a -> s {clusterIdentifier = a} :: DeleteCluster)++instance Core.AWSRequest DeleteCluster where+ type+ AWSResponse DeleteCluster =+ DeleteClusterResponse+ request overrides =+ Request.postQuery (overrides defaultService)+ response =+ Response.receiveXMLWrapper+ "DeleteClusterResult"+ ( \s h x ->+ DeleteClusterResponse'+ Prelude.<$> (x Data..@? "Cluster")+ Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+ )++instance Prelude.Hashable DeleteCluster where+ hashWithSalt _salt DeleteCluster' {..} =+ _salt+ `Prelude.hashWithSalt` finalClusterSnapshotIdentifier+ `Prelude.hashWithSalt` finalClusterSnapshotRetentionPeriod+ `Prelude.hashWithSalt` skipFinalClusterSnapshot+ `Prelude.hashWithSalt` clusterIdentifier++instance Prelude.NFData DeleteCluster where+ rnf DeleteCluster' {..} =+ Prelude.rnf finalClusterSnapshotIdentifier+ `Prelude.seq` Prelude.rnf finalClusterSnapshotRetentionPeriod+ `Prelude.seq` Prelude.rnf skipFinalClusterSnapshot+ `Prelude.seq` Prelude.rnf clusterIdentifier++instance Data.ToHeaders DeleteCluster where+ toHeaders = Prelude.const Prelude.mempty++instance Data.ToPath DeleteCluster where+ toPath = Prelude.const "/"++instance Data.ToQuery DeleteCluster where+ toQuery DeleteCluster' {..} =+ Prelude.mconcat+ [ "Action"+ Data.=: ("DeleteCluster" :: Prelude.ByteString),+ "Version"+ Data.=: ("2012-12-01" :: Prelude.ByteString),+ "FinalClusterSnapshotIdentifier"+ Data.=: finalClusterSnapshotIdentifier,+ "FinalClusterSnapshotRetentionPeriod"+ Data.=: finalClusterSnapshotRetentionPeriod,+ "SkipFinalClusterSnapshot"+ Data.=: skipFinalClusterSnapshot,+ "ClusterIdentifier" Data.=: clusterIdentifier+ ]++-- | /See:/ 'newDeleteClusterResponse' smart constructor.+data DeleteClusterResponse = DeleteClusterResponse'+ { cluster :: Prelude.Maybe Cluster,+ -- | The response's http status code.+ httpStatus :: Prelude.Int+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DeleteClusterResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'cluster', 'deleteClusterResponse_cluster' - Undocumented member.+--+-- 'httpStatus', 'deleteClusterResponse_httpStatus' - The response's http status code.+newDeleteClusterResponse ::+ -- | 'httpStatus'+ Prelude.Int ->+ DeleteClusterResponse+newDeleteClusterResponse pHttpStatus_ =+ DeleteClusterResponse'+ { cluster = Prelude.Nothing,+ httpStatus = pHttpStatus_+ }++-- | Undocumented member.+deleteClusterResponse_cluster :: Lens.Lens' DeleteClusterResponse (Prelude.Maybe Cluster)+deleteClusterResponse_cluster = Lens.lens (\DeleteClusterResponse' {cluster} -> cluster) (\s@DeleteClusterResponse' {} a -> s {cluster = a} :: DeleteClusterResponse)++-- | The response's http status code.+deleteClusterResponse_httpStatus :: Lens.Lens' DeleteClusterResponse Prelude.Int+deleteClusterResponse_httpStatus = Lens.lens (\DeleteClusterResponse' {httpStatus} -> httpStatus) (\s@DeleteClusterResponse' {} a -> s {httpStatus = a} :: DeleteClusterResponse)++instance Prelude.NFData DeleteClusterResponse where+ rnf DeleteClusterResponse' {..} =+ Prelude.rnf cluster+ `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/Redshift/DeleteClusterParameterGroup.hs view
@@ -0,0 +1,153 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module : Amazonka.Redshift.DeleteClusterParameterGroup+-- Copyright : (c) 2013-2023 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Deletes a specified Amazon Redshift parameter group.+--+-- You cannot delete a parameter group if it is associated with a cluster.+module Amazonka.Redshift.DeleteClusterParameterGroup+ ( -- * Creating a Request+ DeleteClusterParameterGroup (..),+ newDeleteClusterParameterGroup,++ -- * Request Lenses+ deleteClusterParameterGroup_parameterGroupName,++ -- * Destructuring the Response+ DeleteClusterParameterGroupResponse (..),+ newDeleteClusterParameterGroupResponse,+ )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Redshift.Types+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- |+--+-- /See:/ 'newDeleteClusterParameterGroup' smart constructor.+data DeleteClusterParameterGroup = DeleteClusterParameterGroup'+ { -- | The name of the parameter group to be deleted.+ --+ -- Constraints:+ --+ -- - Must be the name of an existing cluster parameter group.+ --+ -- - Cannot delete a default cluster parameter group.+ parameterGroupName :: Prelude.Text+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DeleteClusterParameterGroup' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'parameterGroupName', 'deleteClusterParameterGroup_parameterGroupName' - The name of the parameter group to be deleted.+--+-- Constraints:+--+-- - Must be the name of an existing cluster parameter group.+--+-- - Cannot delete a default cluster parameter group.+newDeleteClusterParameterGroup ::+ -- | 'parameterGroupName'+ Prelude.Text ->+ DeleteClusterParameterGroup+newDeleteClusterParameterGroup pParameterGroupName_ =+ DeleteClusterParameterGroup'+ { parameterGroupName =+ pParameterGroupName_+ }++-- | The name of the parameter group to be deleted.+--+-- Constraints:+--+-- - Must be the name of an existing cluster parameter group.+--+-- - Cannot delete a default cluster parameter group.+deleteClusterParameterGroup_parameterGroupName :: Lens.Lens' DeleteClusterParameterGroup Prelude.Text+deleteClusterParameterGroup_parameterGroupName = Lens.lens (\DeleteClusterParameterGroup' {parameterGroupName} -> parameterGroupName) (\s@DeleteClusterParameterGroup' {} a -> s {parameterGroupName = a} :: DeleteClusterParameterGroup)++instance Core.AWSRequest DeleteClusterParameterGroup where+ type+ AWSResponse DeleteClusterParameterGroup =+ DeleteClusterParameterGroupResponse+ request overrides =+ Request.postQuery (overrides defaultService)+ response =+ Response.receiveNull+ DeleteClusterParameterGroupResponse'++instance Prelude.Hashable DeleteClusterParameterGroup where+ hashWithSalt _salt DeleteClusterParameterGroup' {..} =+ _salt `Prelude.hashWithSalt` parameterGroupName++instance Prelude.NFData DeleteClusterParameterGroup where+ rnf DeleteClusterParameterGroup' {..} =+ Prelude.rnf parameterGroupName++instance Data.ToHeaders DeleteClusterParameterGroup where+ toHeaders = Prelude.const Prelude.mempty++instance Data.ToPath DeleteClusterParameterGroup where+ toPath = Prelude.const "/"++instance Data.ToQuery DeleteClusterParameterGroup where+ toQuery DeleteClusterParameterGroup' {..} =+ Prelude.mconcat+ [ "Action"+ Data.=: ( "DeleteClusterParameterGroup" ::+ Prelude.ByteString+ ),+ "Version"+ Data.=: ("2012-12-01" :: Prelude.ByteString),+ "ParameterGroupName" Data.=: parameterGroupName+ ]++-- | /See:/ 'newDeleteClusterParameterGroupResponse' smart constructor.+data DeleteClusterParameterGroupResponse = DeleteClusterParameterGroupResponse'+ {+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DeleteClusterParameterGroupResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+newDeleteClusterParameterGroupResponse ::+ DeleteClusterParameterGroupResponse+newDeleteClusterParameterGroupResponse =+ DeleteClusterParameterGroupResponse'++instance+ Prelude.NFData+ DeleteClusterParameterGroupResponse+ where+ rnf _ = ()
+ gen/Amazonka/Redshift/DeleteClusterSecurityGroup.hs view
@@ -0,0 +1,141 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module : Amazonka.Redshift.DeleteClusterSecurityGroup+-- Copyright : (c) 2013-2023 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Deletes an Amazon Redshift security group.+--+-- You cannot delete a security group that is associated with any clusters.+-- You cannot delete the default security group.+--+-- For information about managing security groups, go to+-- <https://docs.aws.amazon.com/redshift/latest/mgmt/working-with-security-groups.html Amazon Redshift Cluster Security Groups>+-- in the /Amazon Redshift Cluster Management Guide/.+module Amazonka.Redshift.DeleteClusterSecurityGroup+ ( -- * Creating a Request+ DeleteClusterSecurityGroup (..),+ newDeleteClusterSecurityGroup,++ -- * Request Lenses+ deleteClusterSecurityGroup_clusterSecurityGroupName,++ -- * Destructuring the Response+ DeleteClusterSecurityGroupResponse (..),+ newDeleteClusterSecurityGroupResponse,+ )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Redshift.Types+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- |+--+-- /See:/ 'newDeleteClusterSecurityGroup' smart constructor.+data DeleteClusterSecurityGroup = DeleteClusterSecurityGroup'+ { -- | The name of the cluster security group to be deleted.+ clusterSecurityGroupName :: Prelude.Text+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DeleteClusterSecurityGroup' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'clusterSecurityGroupName', 'deleteClusterSecurityGroup_clusterSecurityGroupName' - The name of the cluster security group to be deleted.+newDeleteClusterSecurityGroup ::+ -- | 'clusterSecurityGroupName'+ Prelude.Text ->+ DeleteClusterSecurityGroup+newDeleteClusterSecurityGroup+ pClusterSecurityGroupName_ =+ DeleteClusterSecurityGroup'+ { clusterSecurityGroupName =+ pClusterSecurityGroupName_+ }++-- | The name of the cluster security group to be deleted.+deleteClusterSecurityGroup_clusterSecurityGroupName :: Lens.Lens' DeleteClusterSecurityGroup Prelude.Text+deleteClusterSecurityGroup_clusterSecurityGroupName = Lens.lens (\DeleteClusterSecurityGroup' {clusterSecurityGroupName} -> clusterSecurityGroupName) (\s@DeleteClusterSecurityGroup' {} a -> s {clusterSecurityGroupName = a} :: DeleteClusterSecurityGroup)++instance Core.AWSRequest DeleteClusterSecurityGroup where+ type+ AWSResponse DeleteClusterSecurityGroup =+ DeleteClusterSecurityGroupResponse+ request overrides =+ Request.postQuery (overrides defaultService)+ response =+ Response.receiveNull+ DeleteClusterSecurityGroupResponse'++instance Prelude.Hashable DeleteClusterSecurityGroup where+ hashWithSalt _salt DeleteClusterSecurityGroup' {..} =+ _salt+ `Prelude.hashWithSalt` clusterSecurityGroupName++instance Prelude.NFData DeleteClusterSecurityGroup where+ rnf DeleteClusterSecurityGroup' {..} =+ Prelude.rnf clusterSecurityGroupName++instance Data.ToHeaders DeleteClusterSecurityGroup where+ toHeaders = Prelude.const Prelude.mempty++instance Data.ToPath DeleteClusterSecurityGroup where+ toPath = Prelude.const "/"++instance Data.ToQuery DeleteClusterSecurityGroup where+ toQuery DeleteClusterSecurityGroup' {..} =+ Prelude.mconcat+ [ "Action"+ Data.=: ("DeleteClusterSecurityGroup" :: Prelude.ByteString),+ "Version"+ Data.=: ("2012-12-01" :: Prelude.ByteString),+ "ClusterSecurityGroupName"+ Data.=: clusterSecurityGroupName+ ]++-- | /See:/ 'newDeleteClusterSecurityGroupResponse' smart constructor.+data DeleteClusterSecurityGroupResponse = DeleteClusterSecurityGroupResponse'+ {+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DeleteClusterSecurityGroupResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+newDeleteClusterSecurityGroupResponse ::+ DeleteClusterSecurityGroupResponse+newDeleteClusterSecurityGroupResponse =+ DeleteClusterSecurityGroupResponse'++instance+ Prelude.NFData+ DeleteClusterSecurityGroupResponse+ where+ rnf _ = ()
+ gen/Amazonka/Redshift/DeleteClusterSnapshot.hs view
@@ -0,0 +1,210 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module : Amazonka.Redshift.DeleteClusterSnapshot+-- Copyright : (c) 2013-2023 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Deletes the specified manual snapshot. The snapshot must be in the+-- @available@ state, with no other users authorized to access the+-- snapshot.+--+-- Unlike automated snapshots, manual snapshots are retained even after you+-- delete your cluster. Amazon Redshift does not delete your manual+-- snapshots. You must delete manual snapshot explicitly to avoid getting+-- charged. If other accounts are authorized to access the snapshot, you+-- must revoke all of the authorizations before you can delete the+-- snapshot.+module Amazonka.Redshift.DeleteClusterSnapshot+ ( -- * Creating a Request+ DeleteClusterSnapshot (..),+ newDeleteClusterSnapshot,++ -- * Request Lenses+ deleteClusterSnapshot_snapshotClusterIdentifier,+ deleteClusterSnapshot_snapshotIdentifier,++ -- * Destructuring the Response+ DeleteClusterSnapshotResponse (..),+ newDeleteClusterSnapshotResponse,++ -- * Response Lenses+ deleteClusterSnapshotResponse_snapshot,+ deleteClusterSnapshotResponse_httpStatus,+ )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Redshift.Types+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- |+--+-- /See:/ 'newDeleteClusterSnapshot' smart constructor.+data DeleteClusterSnapshot = DeleteClusterSnapshot'+ { -- | The unique identifier of the cluster the snapshot was created from. This+ -- parameter is required if your IAM user has a policy containing a+ -- snapshot resource element that specifies anything other than * for the+ -- cluster name.+ --+ -- Constraints: Must be the name of valid cluster.+ snapshotClusterIdentifier :: Prelude.Maybe Prelude.Text,+ -- | The unique identifier of the manual snapshot to be deleted.+ --+ -- Constraints: Must be the name of an existing snapshot that is in the+ -- @available@, @failed@, or @cancelled@ state.+ snapshotIdentifier :: Prelude.Text+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DeleteClusterSnapshot' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'snapshotClusterIdentifier', 'deleteClusterSnapshot_snapshotClusterIdentifier' - The unique identifier of the cluster the snapshot was created from. This+-- parameter is required if your IAM user has a policy containing a+-- snapshot resource element that specifies anything other than * for the+-- cluster name.+--+-- Constraints: Must be the name of valid cluster.+--+-- 'snapshotIdentifier', 'deleteClusterSnapshot_snapshotIdentifier' - The unique identifier of the manual snapshot to be deleted.+--+-- Constraints: Must be the name of an existing snapshot that is in the+-- @available@, @failed@, or @cancelled@ state.+newDeleteClusterSnapshot ::+ -- | 'snapshotIdentifier'+ Prelude.Text ->+ DeleteClusterSnapshot+newDeleteClusterSnapshot pSnapshotIdentifier_ =+ DeleteClusterSnapshot'+ { snapshotClusterIdentifier =+ Prelude.Nothing,+ snapshotIdentifier = pSnapshotIdentifier_+ }++-- | The unique identifier of the cluster the snapshot was created from. This+-- parameter is required if your IAM user has a policy containing a+-- snapshot resource element that specifies anything other than * for the+-- cluster name.+--+-- Constraints: Must be the name of valid cluster.+deleteClusterSnapshot_snapshotClusterIdentifier :: Lens.Lens' DeleteClusterSnapshot (Prelude.Maybe Prelude.Text)+deleteClusterSnapshot_snapshotClusterIdentifier = Lens.lens (\DeleteClusterSnapshot' {snapshotClusterIdentifier} -> snapshotClusterIdentifier) (\s@DeleteClusterSnapshot' {} a -> s {snapshotClusterIdentifier = a} :: DeleteClusterSnapshot)++-- | The unique identifier of the manual snapshot to be deleted.+--+-- Constraints: Must be the name of an existing snapshot that is in the+-- @available@, @failed@, or @cancelled@ state.+deleteClusterSnapshot_snapshotIdentifier :: Lens.Lens' DeleteClusterSnapshot Prelude.Text+deleteClusterSnapshot_snapshotIdentifier = Lens.lens (\DeleteClusterSnapshot' {snapshotIdentifier} -> snapshotIdentifier) (\s@DeleteClusterSnapshot' {} a -> s {snapshotIdentifier = a} :: DeleteClusterSnapshot)++instance Core.AWSRequest DeleteClusterSnapshot where+ type+ AWSResponse DeleteClusterSnapshot =+ DeleteClusterSnapshotResponse+ request overrides =+ Request.postQuery (overrides defaultService)+ response =+ Response.receiveXMLWrapper+ "DeleteClusterSnapshotResult"+ ( \s h x ->+ DeleteClusterSnapshotResponse'+ Prelude.<$> (x Data..@? "Snapshot")+ Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+ )++instance Prelude.Hashable DeleteClusterSnapshot where+ hashWithSalt _salt DeleteClusterSnapshot' {..} =+ _salt+ `Prelude.hashWithSalt` snapshotClusterIdentifier+ `Prelude.hashWithSalt` snapshotIdentifier++instance Prelude.NFData DeleteClusterSnapshot where+ rnf DeleteClusterSnapshot' {..} =+ Prelude.rnf snapshotClusterIdentifier+ `Prelude.seq` Prelude.rnf snapshotIdentifier++instance Data.ToHeaders DeleteClusterSnapshot where+ toHeaders = Prelude.const Prelude.mempty++instance Data.ToPath DeleteClusterSnapshot where+ toPath = Prelude.const "/"++instance Data.ToQuery DeleteClusterSnapshot where+ toQuery DeleteClusterSnapshot' {..} =+ Prelude.mconcat+ [ "Action"+ Data.=: ("DeleteClusterSnapshot" :: Prelude.ByteString),+ "Version"+ Data.=: ("2012-12-01" :: Prelude.ByteString),+ "SnapshotClusterIdentifier"+ Data.=: snapshotClusterIdentifier,+ "SnapshotIdentifier" Data.=: snapshotIdentifier+ ]++-- | /See:/ 'newDeleteClusterSnapshotResponse' smart constructor.+data DeleteClusterSnapshotResponse = DeleteClusterSnapshotResponse'+ { snapshot :: Prelude.Maybe Snapshot,+ -- | The response's http status code.+ httpStatus :: Prelude.Int+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DeleteClusterSnapshotResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'snapshot', 'deleteClusterSnapshotResponse_snapshot' - Undocumented member.+--+-- 'httpStatus', 'deleteClusterSnapshotResponse_httpStatus' - The response's http status code.+newDeleteClusterSnapshotResponse ::+ -- | 'httpStatus'+ Prelude.Int ->+ DeleteClusterSnapshotResponse+newDeleteClusterSnapshotResponse pHttpStatus_ =+ DeleteClusterSnapshotResponse'+ { snapshot =+ Prelude.Nothing,+ httpStatus = pHttpStatus_+ }++-- | Undocumented member.+deleteClusterSnapshotResponse_snapshot :: Lens.Lens' DeleteClusterSnapshotResponse (Prelude.Maybe Snapshot)+deleteClusterSnapshotResponse_snapshot = Lens.lens (\DeleteClusterSnapshotResponse' {snapshot} -> snapshot) (\s@DeleteClusterSnapshotResponse' {} a -> s {snapshot = a} :: DeleteClusterSnapshotResponse)++-- | The response's http status code.+deleteClusterSnapshotResponse_httpStatus :: Lens.Lens' DeleteClusterSnapshotResponse Prelude.Int+deleteClusterSnapshotResponse_httpStatus = Lens.lens (\DeleteClusterSnapshotResponse' {httpStatus} -> httpStatus) (\s@DeleteClusterSnapshotResponse' {} a -> s {httpStatus = a} :: DeleteClusterSnapshotResponse)++instance Prelude.NFData DeleteClusterSnapshotResponse where+ rnf DeleteClusterSnapshotResponse' {..} =+ Prelude.rnf snapshot+ `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/Redshift/DeleteClusterSubnetGroup.hs view
@@ -0,0 +1,132 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module : Amazonka.Redshift.DeleteClusterSubnetGroup+-- Copyright : (c) 2013-2023 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Deletes the specified cluster subnet group.+module Amazonka.Redshift.DeleteClusterSubnetGroup+ ( -- * Creating a Request+ DeleteClusterSubnetGroup (..),+ newDeleteClusterSubnetGroup,++ -- * Request Lenses+ deleteClusterSubnetGroup_clusterSubnetGroupName,++ -- * Destructuring the Response+ DeleteClusterSubnetGroupResponse (..),+ newDeleteClusterSubnetGroupResponse,+ )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Redshift.Types+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- |+--+-- /See:/ 'newDeleteClusterSubnetGroup' smart constructor.+data DeleteClusterSubnetGroup = DeleteClusterSubnetGroup'+ { -- | The name of the cluster subnet group name to be deleted.+ clusterSubnetGroupName :: Prelude.Text+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DeleteClusterSubnetGroup' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'clusterSubnetGroupName', 'deleteClusterSubnetGroup_clusterSubnetGroupName' - The name of the cluster subnet group name to be deleted.+newDeleteClusterSubnetGroup ::+ -- | 'clusterSubnetGroupName'+ Prelude.Text ->+ DeleteClusterSubnetGroup+newDeleteClusterSubnetGroup pClusterSubnetGroupName_ =+ DeleteClusterSubnetGroup'+ { clusterSubnetGroupName =+ pClusterSubnetGroupName_+ }++-- | The name of the cluster subnet group name to be deleted.+deleteClusterSubnetGroup_clusterSubnetGroupName :: Lens.Lens' DeleteClusterSubnetGroup Prelude.Text+deleteClusterSubnetGroup_clusterSubnetGroupName = Lens.lens (\DeleteClusterSubnetGroup' {clusterSubnetGroupName} -> clusterSubnetGroupName) (\s@DeleteClusterSubnetGroup' {} a -> s {clusterSubnetGroupName = a} :: DeleteClusterSubnetGroup)++instance Core.AWSRequest DeleteClusterSubnetGroup where+ type+ AWSResponse DeleteClusterSubnetGroup =+ DeleteClusterSubnetGroupResponse+ request overrides =+ Request.postQuery (overrides defaultService)+ response =+ Response.receiveNull+ DeleteClusterSubnetGroupResponse'++instance Prelude.Hashable DeleteClusterSubnetGroup where+ hashWithSalt _salt DeleteClusterSubnetGroup' {..} =+ _salt `Prelude.hashWithSalt` clusterSubnetGroupName++instance Prelude.NFData DeleteClusterSubnetGroup where+ rnf DeleteClusterSubnetGroup' {..} =+ Prelude.rnf clusterSubnetGroupName++instance Data.ToHeaders DeleteClusterSubnetGroup where+ toHeaders = Prelude.const Prelude.mempty++instance Data.ToPath DeleteClusterSubnetGroup where+ toPath = Prelude.const "/"++instance Data.ToQuery DeleteClusterSubnetGroup where+ toQuery DeleteClusterSubnetGroup' {..} =+ Prelude.mconcat+ [ "Action"+ Data.=: ("DeleteClusterSubnetGroup" :: Prelude.ByteString),+ "Version"+ Data.=: ("2012-12-01" :: Prelude.ByteString),+ "ClusterSubnetGroupName"+ Data.=: clusterSubnetGroupName+ ]++-- | /See:/ 'newDeleteClusterSubnetGroupResponse' smart constructor.+data DeleteClusterSubnetGroupResponse = DeleteClusterSubnetGroupResponse'+ {+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DeleteClusterSubnetGroupResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+newDeleteClusterSubnetGroupResponse ::+ DeleteClusterSubnetGroupResponse+newDeleteClusterSubnetGroupResponse =+ DeleteClusterSubnetGroupResponse'++instance+ Prelude.NFData+ DeleteClusterSubnetGroupResponse+ where+ rnf _ = ()
+ gen/Amazonka/Redshift/DeleteEndpointAccess.hs view
@@ -0,0 +1,121 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module : Amazonka.Redshift.DeleteEndpointAccess+-- Copyright : (c) 2013-2023 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Deletes a Redshift-managed VPC endpoint.+module Amazonka.Redshift.DeleteEndpointAccess+ ( -- * Creating a Request+ DeleteEndpointAccess (..),+ newDeleteEndpointAccess,++ -- * Request Lenses+ deleteEndpointAccess_endpointName,++ -- * Destructuring the Response+ EndpointAccess (..),+ newEndpointAccess,++ -- * Response Lenses+ endpointAccess_address,+ endpointAccess_clusterIdentifier,+ endpointAccess_endpointCreateTime,+ endpointAccess_endpointName,+ endpointAccess_endpointStatus,+ endpointAccess_port,+ endpointAccess_resourceOwner,+ endpointAccess_subnetGroupName,+ endpointAccess_vpcEndpoint,+ endpointAccess_vpcSecurityGroups,+ )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Redshift.Types+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newDeleteEndpointAccess' smart constructor.+data DeleteEndpointAccess = DeleteEndpointAccess'+ { -- | The Redshift-managed VPC endpoint to delete.+ endpointName :: Prelude.Text+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DeleteEndpointAccess' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'endpointName', 'deleteEndpointAccess_endpointName' - The Redshift-managed VPC endpoint to delete.+newDeleteEndpointAccess ::+ -- | 'endpointName'+ Prelude.Text ->+ DeleteEndpointAccess+newDeleteEndpointAccess pEndpointName_ =+ DeleteEndpointAccess'+ { endpointName =+ pEndpointName_+ }++-- | The Redshift-managed VPC endpoint to delete.+deleteEndpointAccess_endpointName :: Lens.Lens' DeleteEndpointAccess Prelude.Text+deleteEndpointAccess_endpointName = Lens.lens (\DeleteEndpointAccess' {endpointName} -> endpointName) (\s@DeleteEndpointAccess' {} a -> s {endpointName = a} :: DeleteEndpointAccess)++instance Core.AWSRequest DeleteEndpointAccess where+ type+ AWSResponse DeleteEndpointAccess =+ EndpointAccess+ request overrides =+ Request.postQuery (overrides defaultService)+ response =+ Response.receiveXMLWrapper+ "DeleteEndpointAccessResult"+ (\s h x -> Data.parseXML x)++instance Prelude.Hashable DeleteEndpointAccess where+ hashWithSalt _salt DeleteEndpointAccess' {..} =+ _salt `Prelude.hashWithSalt` endpointName++instance Prelude.NFData DeleteEndpointAccess where+ rnf DeleteEndpointAccess' {..} =+ Prelude.rnf endpointName++instance Data.ToHeaders DeleteEndpointAccess where+ toHeaders = Prelude.const Prelude.mempty++instance Data.ToPath DeleteEndpointAccess where+ toPath = Prelude.const "/"++instance Data.ToQuery DeleteEndpointAccess where+ toQuery DeleteEndpointAccess' {..} =+ Prelude.mconcat+ [ "Action"+ Data.=: ("DeleteEndpointAccess" :: Prelude.ByteString),+ "Version"+ Data.=: ("2012-12-01" :: Prelude.ByteString),+ "EndpointName" Data.=: endpointName+ ]
+ gen/Amazonka/Redshift/DeleteEventSubscription.hs view
@@ -0,0 +1,134 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module : Amazonka.Redshift.DeleteEventSubscription+-- Copyright : (c) 2013-2023 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Deletes an Amazon Redshift event notification subscription.+module Amazonka.Redshift.DeleteEventSubscription+ ( -- * Creating a Request+ DeleteEventSubscription (..),+ newDeleteEventSubscription,++ -- * Request Lenses+ deleteEventSubscription_subscriptionName,++ -- * Destructuring the Response+ DeleteEventSubscriptionResponse (..),+ newDeleteEventSubscriptionResponse,+ )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Redshift.Types+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- |+--+-- /See:/ 'newDeleteEventSubscription' smart constructor.+data DeleteEventSubscription = DeleteEventSubscription'+ { -- | The name of the Amazon Redshift event notification subscription to be+ -- deleted.+ subscriptionName :: Prelude.Text+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DeleteEventSubscription' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'subscriptionName', 'deleteEventSubscription_subscriptionName' - The name of the Amazon Redshift event notification subscription to be+-- deleted.+newDeleteEventSubscription ::+ -- | 'subscriptionName'+ Prelude.Text ->+ DeleteEventSubscription+newDeleteEventSubscription pSubscriptionName_ =+ DeleteEventSubscription'+ { subscriptionName =+ pSubscriptionName_+ }++-- | The name of the Amazon Redshift event notification subscription to be+-- deleted.+deleteEventSubscription_subscriptionName :: Lens.Lens' DeleteEventSubscription Prelude.Text+deleteEventSubscription_subscriptionName = Lens.lens (\DeleteEventSubscription' {subscriptionName} -> subscriptionName) (\s@DeleteEventSubscription' {} a -> s {subscriptionName = a} :: DeleteEventSubscription)++instance Core.AWSRequest DeleteEventSubscription where+ type+ AWSResponse DeleteEventSubscription =+ DeleteEventSubscriptionResponse+ request overrides =+ Request.postQuery (overrides defaultService)+ response =+ Response.receiveNull+ DeleteEventSubscriptionResponse'++instance Prelude.Hashable DeleteEventSubscription where+ hashWithSalt _salt DeleteEventSubscription' {..} =+ _salt `Prelude.hashWithSalt` subscriptionName++instance Prelude.NFData DeleteEventSubscription where+ rnf DeleteEventSubscription' {..} =+ Prelude.rnf subscriptionName++instance Data.ToHeaders DeleteEventSubscription where+ toHeaders = Prelude.const Prelude.mempty++instance Data.ToPath DeleteEventSubscription where+ toPath = Prelude.const "/"++instance Data.ToQuery DeleteEventSubscription where+ toQuery DeleteEventSubscription' {..} =+ Prelude.mconcat+ [ "Action"+ Data.=: ("DeleteEventSubscription" :: Prelude.ByteString),+ "Version"+ Data.=: ("2012-12-01" :: Prelude.ByteString),+ "SubscriptionName" Data.=: subscriptionName+ ]++-- | /See:/ 'newDeleteEventSubscriptionResponse' smart constructor.+data DeleteEventSubscriptionResponse = DeleteEventSubscriptionResponse'+ {+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DeleteEventSubscriptionResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+newDeleteEventSubscriptionResponse ::+ DeleteEventSubscriptionResponse+newDeleteEventSubscriptionResponse =+ DeleteEventSubscriptionResponse'++instance+ Prelude.NFData+ DeleteEventSubscriptionResponse+ where+ rnf _ = ()
+ gen/Amazonka/Redshift/DeleteHsmClientCertificate.hs view
@@ -0,0 +1,134 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module : Amazonka.Redshift.DeleteHsmClientCertificate+-- Copyright : (c) 2013-2023 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Deletes the specified HSM client certificate.+module Amazonka.Redshift.DeleteHsmClientCertificate+ ( -- * Creating a Request+ DeleteHsmClientCertificate (..),+ newDeleteHsmClientCertificate,++ -- * Request Lenses+ deleteHsmClientCertificate_hsmClientCertificateIdentifier,++ -- * Destructuring the Response+ DeleteHsmClientCertificateResponse (..),+ newDeleteHsmClientCertificateResponse,+ )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Redshift.Types+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- |+--+-- /See:/ 'newDeleteHsmClientCertificate' smart constructor.+data DeleteHsmClientCertificate = DeleteHsmClientCertificate'+ { -- | The identifier of the HSM client certificate to be deleted.+ hsmClientCertificateIdentifier :: Prelude.Text+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DeleteHsmClientCertificate' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'hsmClientCertificateIdentifier', 'deleteHsmClientCertificate_hsmClientCertificateIdentifier' - The identifier of the HSM client certificate to be deleted.+newDeleteHsmClientCertificate ::+ -- | 'hsmClientCertificateIdentifier'+ Prelude.Text ->+ DeleteHsmClientCertificate+newDeleteHsmClientCertificate+ pHsmClientCertificateIdentifier_ =+ DeleteHsmClientCertificate'+ { hsmClientCertificateIdentifier =+ pHsmClientCertificateIdentifier_+ }++-- | The identifier of the HSM client certificate to be deleted.+deleteHsmClientCertificate_hsmClientCertificateIdentifier :: Lens.Lens' DeleteHsmClientCertificate Prelude.Text+deleteHsmClientCertificate_hsmClientCertificateIdentifier = Lens.lens (\DeleteHsmClientCertificate' {hsmClientCertificateIdentifier} -> hsmClientCertificateIdentifier) (\s@DeleteHsmClientCertificate' {} a -> s {hsmClientCertificateIdentifier = a} :: DeleteHsmClientCertificate)++instance Core.AWSRequest DeleteHsmClientCertificate where+ type+ AWSResponse DeleteHsmClientCertificate =+ DeleteHsmClientCertificateResponse+ request overrides =+ Request.postQuery (overrides defaultService)+ response =+ Response.receiveNull+ DeleteHsmClientCertificateResponse'++instance Prelude.Hashable DeleteHsmClientCertificate where+ hashWithSalt _salt DeleteHsmClientCertificate' {..} =+ _salt+ `Prelude.hashWithSalt` hsmClientCertificateIdentifier++instance Prelude.NFData DeleteHsmClientCertificate where+ rnf DeleteHsmClientCertificate' {..} =+ Prelude.rnf hsmClientCertificateIdentifier++instance Data.ToHeaders DeleteHsmClientCertificate where+ toHeaders = Prelude.const Prelude.mempty++instance Data.ToPath DeleteHsmClientCertificate where+ toPath = Prelude.const "/"++instance Data.ToQuery DeleteHsmClientCertificate where+ toQuery DeleteHsmClientCertificate' {..} =+ Prelude.mconcat+ [ "Action"+ Data.=: ("DeleteHsmClientCertificate" :: Prelude.ByteString),+ "Version"+ Data.=: ("2012-12-01" :: Prelude.ByteString),+ "HsmClientCertificateIdentifier"+ Data.=: hsmClientCertificateIdentifier+ ]++-- | /See:/ 'newDeleteHsmClientCertificateResponse' smart constructor.+data DeleteHsmClientCertificateResponse = DeleteHsmClientCertificateResponse'+ {+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DeleteHsmClientCertificateResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+newDeleteHsmClientCertificateResponse ::+ DeleteHsmClientCertificateResponse+newDeleteHsmClientCertificateResponse =+ DeleteHsmClientCertificateResponse'++instance+ Prelude.NFData+ DeleteHsmClientCertificateResponse+ where+ rnf _ = ()
+ gen/Amazonka/Redshift/DeleteHsmConfiguration.hs view
@@ -0,0 +1,134 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module : Amazonka.Redshift.DeleteHsmConfiguration+-- Copyright : (c) 2013-2023 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Deletes the specified Amazon Redshift HSM configuration.+module Amazonka.Redshift.DeleteHsmConfiguration+ ( -- * Creating a Request+ DeleteHsmConfiguration (..),+ newDeleteHsmConfiguration,++ -- * Request Lenses+ deleteHsmConfiguration_hsmConfigurationIdentifier,++ -- * Destructuring the Response+ DeleteHsmConfigurationResponse (..),+ newDeleteHsmConfigurationResponse,+ )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Redshift.Types+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- |+--+-- /See:/ 'newDeleteHsmConfiguration' smart constructor.+data DeleteHsmConfiguration = DeleteHsmConfiguration'+ { -- | The identifier of the Amazon Redshift HSM configuration to be deleted.+ hsmConfigurationIdentifier :: Prelude.Text+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DeleteHsmConfiguration' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'hsmConfigurationIdentifier', 'deleteHsmConfiguration_hsmConfigurationIdentifier' - The identifier of the Amazon Redshift HSM configuration to be deleted.+newDeleteHsmConfiguration ::+ -- | 'hsmConfigurationIdentifier'+ Prelude.Text ->+ DeleteHsmConfiguration+newDeleteHsmConfiguration+ pHsmConfigurationIdentifier_ =+ DeleteHsmConfiguration'+ { hsmConfigurationIdentifier =+ pHsmConfigurationIdentifier_+ }++-- | The identifier of the Amazon Redshift HSM configuration to be deleted.+deleteHsmConfiguration_hsmConfigurationIdentifier :: Lens.Lens' DeleteHsmConfiguration Prelude.Text+deleteHsmConfiguration_hsmConfigurationIdentifier = Lens.lens (\DeleteHsmConfiguration' {hsmConfigurationIdentifier} -> hsmConfigurationIdentifier) (\s@DeleteHsmConfiguration' {} a -> s {hsmConfigurationIdentifier = a} :: DeleteHsmConfiguration)++instance Core.AWSRequest DeleteHsmConfiguration where+ type+ AWSResponse DeleteHsmConfiguration =+ DeleteHsmConfigurationResponse+ request overrides =+ Request.postQuery (overrides defaultService)+ response =+ Response.receiveNull+ DeleteHsmConfigurationResponse'++instance Prelude.Hashable DeleteHsmConfiguration where+ hashWithSalt _salt DeleteHsmConfiguration' {..} =+ _salt+ `Prelude.hashWithSalt` hsmConfigurationIdentifier++instance Prelude.NFData DeleteHsmConfiguration where+ rnf DeleteHsmConfiguration' {..} =+ Prelude.rnf hsmConfigurationIdentifier++instance Data.ToHeaders DeleteHsmConfiguration where+ toHeaders = Prelude.const Prelude.mempty++instance Data.ToPath DeleteHsmConfiguration where+ toPath = Prelude.const "/"++instance Data.ToQuery DeleteHsmConfiguration where+ toQuery DeleteHsmConfiguration' {..} =+ Prelude.mconcat+ [ "Action"+ Data.=: ("DeleteHsmConfiguration" :: Prelude.ByteString),+ "Version"+ Data.=: ("2012-12-01" :: Prelude.ByteString),+ "HsmConfigurationIdentifier"+ Data.=: hsmConfigurationIdentifier+ ]++-- | /See:/ 'newDeleteHsmConfigurationResponse' smart constructor.+data DeleteHsmConfigurationResponse = DeleteHsmConfigurationResponse'+ {+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DeleteHsmConfigurationResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+newDeleteHsmConfigurationResponse ::+ DeleteHsmConfigurationResponse+newDeleteHsmConfigurationResponse =+ DeleteHsmConfigurationResponse'++instance+ Prelude.NFData+ DeleteHsmConfigurationResponse+ where+ rnf _ = ()
+ gen/Amazonka/Redshift/DeletePartner.hs view
@@ -0,0 +1,166 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module : Amazonka.Redshift.DeletePartner+-- Copyright : (c) 2013-2023 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Deletes a partner integration from a cluster. Data can still flow to the+-- cluster until the integration is deleted at the partner\'s website.+module Amazonka.Redshift.DeletePartner+ ( -- * Creating a Request+ DeletePartner (..),+ newDeletePartner,++ -- * Request Lenses+ deletePartner_accountId,+ deletePartner_clusterIdentifier,+ deletePartner_databaseName,+ deletePartner_partnerName,++ -- * Destructuring the Response+ PartnerIntegrationOutputMessage (..),+ newPartnerIntegrationOutputMessage,++ -- * Response Lenses+ partnerIntegrationOutputMessage_databaseName,+ partnerIntegrationOutputMessage_partnerName,+ )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Redshift.Types+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newDeletePartner' smart constructor.+data DeletePartner = DeletePartner'+ { -- | The Amazon Web Services account ID that owns the cluster.+ accountId :: Prelude.Text,+ -- | The cluster identifier of the cluster that receives data from the+ -- partner.+ clusterIdentifier :: Prelude.Text,+ -- | The name of the database that receives data from the partner.+ databaseName :: Prelude.Text,+ -- | The name of the partner that is authorized to send data.+ partnerName :: Prelude.Text+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DeletePartner' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'accountId', 'deletePartner_accountId' - The Amazon Web Services account ID that owns the cluster.+--+-- 'clusterIdentifier', 'deletePartner_clusterIdentifier' - The cluster identifier of the cluster that receives data from the+-- partner.+--+-- 'databaseName', 'deletePartner_databaseName' - The name of the database that receives data from the partner.+--+-- 'partnerName', 'deletePartner_partnerName' - The name of the partner that is authorized to send data.+newDeletePartner ::+ -- | 'accountId'+ Prelude.Text ->+ -- | 'clusterIdentifier'+ Prelude.Text ->+ -- | 'databaseName'+ Prelude.Text ->+ -- | 'partnerName'+ Prelude.Text ->+ DeletePartner+newDeletePartner+ pAccountId_+ pClusterIdentifier_+ pDatabaseName_+ pPartnerName_ =+ DeletePartner'+ { accountId = pAccountId_,+ clusterIdentifier = pClusterIdentifier_,+ databaseName = pDatabaseName_,+ partnerName = pPartnerName_+ }++-- | The Amazon Web Services account ID that owns the cluster.+deletePartner_accountId :: Lens.Lens' DeletePartner Prelude.Text+deletePartner_accountId = Lens.lens (\DeletePartner' {accountId} -> accountId) (\s@DeletePartner' {} a -> s {accountId = a} :: DeletePartner)++-- | The cluster identifier of the cluster that receives data from the+-- partner.+deletePartner_clusterIdentifier :: Lens.Lens' DeletePartner Prelude.Text+deletePartner_clusterIdentifier = Lens.lens (\DeletePartner' {clusterIdentifier} -> clusterIdentifier) (\s@DeletePartner' {} a -> s {clusterIdentifier = a} :: DeletePartner)++-- | The name of the database that receives data from the partner.+deletePartner_databaseName :: Lens.Lens' DeletePartner Prelude.Text+deletePartner_databaseName = Lens.lens (\DeletePartner' {databaseName} -> databaseName) (\s@DeletePartner' {} a -> s {databaseName = a} :: DeletePartner)++-- | The name of the partner that is authorized to send data.+deletePartner_partnerName :: Lens.Lens' DeletePartner Prelude.Text+deletePartner_partnerName = Lens.lens (\DeletePartner' {partnerName} -> partnerName) (\s@DeletePartner' {} a -> s {partnerName = a} :: DeletePartner)++instance Core.AWSRequest DeletePartner where+ type+ AWSResponse DeletePartner =+ PartnerIntegrationOutputMessage+ request overrides =+ Request.postQuery (overrides defaultService)+ response =+ Response.receiveXMLWrapper+ "DeletePartnerResult"+ (\s h x -> Data.parseXML x)++instance Prelude.Hashable DeletePartner where+ hashWithSalt _salt DeletePartner' {..} =+ _salt+ `Prelude.hashWithSalt` accountId+ `Prelude.hashWithSalt` clusterIdentifier+ `Prelude.hashWithSalt` databaseName+ `Prelude.hashWithSalt` partnerName++instance Prelude.NFData DeletePartner where+ rnf DeletePartner' {..} =+ Prelude.rnf accountId+ `Prelude.seq` Prelude.rnf clusterIdentifier+ `Prelude.seq` Prelude.rnf databaseName+ `Prelude.seq` Prelude.rnf partnerName++instance Data.ToHeaders DeletePartner where+ toHeaders = Prelude.const Prelude.mempty++instance Data.ToPath DeletePartner where+ toPath = Prelude.const "/"++instance Data.ToQuery DeletePartner where+ toQuery DeletePartner' {..} =+ Prelude.mconcat+ [ "Action"+ Data.=: ("DeletePartner" :: Prelude.ByteString),+ "Version"+ Data.=: ("2012-12-01" :: Prelude.ByteString),+ "AccountId" Data.=: accountId,+ "ClusterIdentifier" Data.=: clusterIdentifier,+ "DatabaseName" Data.=: databaseName,+ "PartnerName" Data.=: partnerName+ ]
+ gen/Amazonka/Redshift/DeleteScheduledAction.hs view
@@ -0,0 +1,125 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module : Amazonka.Redshift.DeleteScheduledAction+-- Copyright : (c) 2013-2023 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Deletes a scheduled action.+module Amazonka.Redshift.DeleteScheduledAction+ ( -- * Creating a Request+ DeleteScheduledAction (..),+ newDeleteScheduledAction,++ -- * Request Lenses+ deleteScheduledAction_scheduledActionName,++ -- * Destructuring the Response+ DeleteScheduledActionResponse (..),+ newDeleteScheduledActionResponse,+ )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Redshift.Types+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newDeleteScheduledAction' smart constructor.+data DeleteScheduledAction = DeleteScheduledAction'+ { -- | The name of the scheduled action to delete.+ scheduledActionName :: Prelude.Text+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DeleteScheduledAction' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'scheduledActionName', 'deleteScheduledAction_scheduledActionName' - The name of the scheduled action to delete.+newDeleteScheduledAction ::+ -- | 'scheduledActionName'+ Prelude.Text ->+ DeleteScheduledAction+newDeleteScheduledAction pScheduledActionName_ =+ DeleteScheduledAction'+ { scheduledActionName =+ pScheduledActionName_+ }++-- | The name of the scheduled action to delete.+deleteScheduledAction_scheduledActionName :: Lens.Lens' DeleteScheduledAction Prelude.Text+deleteScheduledAction_scheduledActionName = Lens.lens (\DeleteScheduledAction' {scheduledActionName} -> scheduledActionName) (\s@DeleteScheduledAction' {} a -> s {scheduledActionName = a} :: DeleteScheduledAction)++instance Core.AWSRequest DeleteScheduledAction where+ type+ AWSResponse DeleteScheduledAction =+ DeleteScheduledActionResponse+ request overrides =+ Request.postQuery (overrides defaultService)+ response =+ Response.receiveNull DeleteScheduledActionResponse'++instance Prelude.Hashable DeleteScheduledAction where+ hashWithSalt _salt DeleteScheduledAction' {..} =+ _salt `Prelude.hashWithSalt` scheduledActionName++instance Prelude.NFData DeleteScheduledAction where+ rnf DeleteScheduledAction' {..} =+ Prelude.rnf scheduledActionName++instance Data.ToHeaders DeleteScheduledAction where+ toHeaders = Prelude.const Prelude.mempty++instance Data.ToPath DeleteScheduledAction where+ toPath = Prelude.const "/"++instance Data.ToQuery DeleteScheduledAction where+ toQuery DeleteScheduledAction' {..} =+ Prelude.mconcat+ [ "Action"+ Data.=: ("DeleteScheduledAction" :: Prelude.ByteString),+ "Version"+ Data.=: ("2012-12-01" :: Prelude.ByteString),+ "ScheduledActionName" Data.=: scheduledActionName+ ]++-- | /See:/ 'newDeleteScheduledActionResponse' smart constructor.+data DeleteScheduledActionResponse = DeleteScheduledActionResponse'+ {+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DeleteScheduledActionResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+newDeleteScheduledActionResponse ::+ DeleteScheduledActionResponse+newDeleteScheduledActionResponse =+ DeleteScheduledActionResponse'++instance Prelude.NFData DeleteScheduledActionResponse where+ rnf _ = ()
+ gen/Amazonka/Redshift/DeleteSnapshotCopyGrant.hs view
@@ -0,0 +1,132 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module : Amazonka.Redshift.DeleteSnapshotCopyGrant+-- Copyright : (c) 2013-2023 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Deletes the specified snapshot copy grant.+module Amazonka.Redshift.DeleteSnapshotCopyGrant+ ( -- * Creating a Request+ DeleteSnapshotCopyGrant (..),+ newDeleteSnapshotCopyGrant,++ -- * Request Lenses+ deleteSnapshotCopyGrant_snapshotCopyGrantName,++ -- * Destructuring the Response+ DeleteSnapshotCopyGrantResponse (..),+ newDeleteSnapshotCopyGrantResponse,+ )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Redshift.Types+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | The result of the @DeleteSnapshotCopyGrant@ action.+--+-- /See:/ 'newDeleteSnapshotCopyGrant' smart constructor.+data DeleteSnapshotCopyGrant = DeleteSnapshotCopyGrant'+ { -- | The name of the snapshot copy grant to delete.+ snapshotCopyGrantName :: Prelude.Text+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DeleteSnapshotCopyGrant' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'snapshotCopyGrantName', 'deleteSnapshotCopyGrant_snapshotCopyGrantName' - The name of the snapshot copy grant to delete.+newDeleteSnapshotCopyGrant ::+ -- | 'snapshotCopyGrantName'+ Prelude.Text ->+ DeleteSnapshotCopyGrant+newDeleteSnapshotCopyGrant pSnapshotCopyGrantName_ =+ DeleteSnapshotCopyGrant'+ { snapshotCopyGrantName =+ pSnapshotCopyGrantName_+ }++-- | The name of the snapshot copy grant to delete.+deleteSnapshotCopyGrant_snapshotCopyGrantName :: Lens.Lens' DeleteSnapshotCopyGrant Prelude.Text+deleteSnapshotCopyGrant_snapshotCopyGrantName = Lens.lens (\DeleteSnapshotCopyGrant' {snapshotCopyGrantName} -> snapshotCopyGrantName) (\s@DeleteSnapshotCopyGrant' {} a -> s {snapshotCopyGrantName = a} :: DeleteSnapshotCopyGrant)++instance Core.AWSRequest DeleteSnapshotCopyGrant where+ type+ AWSResponse DeleteSnapshotCopyGrant =+ DeleteSnapshotCopyGrantResponse+ request overrides =+ Request.postQuery (overrides defaultService)+ response =+ Response.receiveNull+ DeleteSnapshotCopyGrantResponse'++instance Prelude.Hashable DeleteSnapshotCopyGrant where+ hashWithSalt _salt DeleteSnapshotCopyGrant' {..} =+ _salt `Prelude.hashWithSalt` snapshotCopyGrantName++instance Prelude.NFData DeleteSnapshotCopyGrant where+ rnf DeleteSnapshotCopyGrant' {..} =+ Prelude.rnf snapshotCopyGrantName++instance Data.ToHeaders DeleteSnapshotCopyGrant where+ toHeaders = Prelude.const Prelude.mempty++instance Data.ToPath DeleteSnapshotCopyGrant where+ toPath = Prelude.const "/"++instance Data.ToQuery DeleteSnapshotCopyGrant where+ toQuery DeleteSnapshotCopyGrant' {..} =+ Prelude.mconcat+ [ "Action"+ Data.=: ("DeleteSnapshotCopyGrant" :: Prelude.ByteString),+ "Version"+ Data.=: ("2012-12-01" :: Prelude.ByteString),+ "SnapshotCopyGrantName"+ Data.=: snapshotCopyGrantName+ ]++-- | /See:/ 'newDeleteSnapshotCopyGrantResponse' smart constructor.+data DeleteSnapshotCopyGrantResponse = DeleteSnapshotCopyGrantResponse'+ {+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DeleteSnapshotCopyGrantResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+newDeleteSnapshotCopyGrantResponse ::+ DeleteSnapshotCopyGrantResponse+newDeleteSnapshotCopyGrantResponse =+ DeleteSnapshotCopyGrantResponse'++instance+ Prelude.NFData+ DeleteSnapshotCopyGrantResponse+ where+ rnf _ = ()
+ gen/Amazonka/Redshift/DeleteSnapshotSchedule.hs view
@@ -0,0 +1,129 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module : Amazonka.Redshift.DeleteSnapshotSchedule+-- Copyright : (c) 2013-2023 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Deletes a snapshot schedule.+module Amazonka.Redshift.DeleteSnapshotSchedule+ ( -- * Creating a Request+ DeleteSnapshotSchedule (..),+ newDeleteSnapshotSchedule,++ -- * Request Lenses+ deleteSnapshotSchedule_scheduleIdentifier,++ -- * Destructuring the Response+ DeleteSnapshotScheduleResponse (..),+ newDeleteSnapshotScheduleResponse,+ )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Redshift.Types+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newDeleteSnapshotSchedule' smart constructor.+data DeleteSnapshotSchedule = DeleteSnapshotSchedule'+ { -- | A unique identifier of the snapshot schedule to delete.+ scheduleIdentifier :: Prelude.Text+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DeleteSnapshotSchedule' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'scheduleIdentifier', 'deleteSnapshotSchedule_scheduleIdentifier' - A unique identifier of the snapshot schedule to delete.+newDeleteSnapshotSchedule ::+ -- | 'scheduleIdentifier'+ Prelude.Text ->+ DeleteSnapshotSchedule+newDeleteSnapshotSchedule pScheduleIdentifier_ =+ DeleteSnapshotSchedule'+ { scheduleIdentifier =+ pScheduleIdentifier_+ }++-- | A unique identifier of the snapshot schedule to delete.+deleteSnapshotSchedule_scheduleIdentifier :: Lens.Lens' DeleteSnapshotSchedule Prelude.Text+deleteSnapshotSchedule_scheduleIdentifier = Lens.lens (\DeleteSnapshotSchedule' {scheduleIdentifier} -> scheduleIdentifier) (\s@DeleteSnapshotSchedule' {} a -> s {scheduleIdentifier = a} :: DeleteSnapshotSchedule)++instance Core.AWSRequest DeleteSnapshotSchedule where+ type+ AWSResponse DeleteSnapshotSchedule =+ DeleteSnapshotScheduleResponse+ request overrides =+ Request.postQuery (overrides defaultService)+ response =+ Response.receiveNull+ DeleteSnapshotScheduleResponse'++instance Prelude.Hashable DeleteSnapshotSchedule where+ hashWithSalt _salt DeleteSnapshotSchedule' {..} =+ _salt `Prelude.hashWithSalt` scheduleIdentifier++instance Prelude.NFData DeleteSnapshotSchedule where+ rnf DeleteSnapshotSchedule' {..} =+ Prelude.rnf scheduleIdentifier++instance Data.ToHeaders DeleteSnapshotSchedule where+ toHeaders = Prelude.const Prelude.mempty++instance Data.ToPath DeleteSnapshotSchedule where+ toPath = Prelude.const "/"++instance Data.ToQuery DeleteSnapshotSchedule where+ toQuery DeleteSnapshotSchedule' {..} =+ Prelude.mconcat+ [ "Action"+ Data.=: ("DeleteSnapshotSchedule" :: Prelude.ByteString),+ "Version"+ Data.=: ("2012-12-01" :: Prelude.ByteString),+ "ScheduleIdentifier" Data.=: scheduleIdentifier+ ]++-- | /See:/ 'newDeleteSnapshotScheduleResponse' smart constructor.+data DeleteSnapshotScheduleResponse = DeleteSnapshotScheduleResponse'+ {+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DeleteSnapshotScheduleResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+newDeleteSnapshotScheduleResponse ::+ DeleteSnapshotScheduleResponse+newDeleteSnapshotScheduleResponse =+ DeleteSnapshotScheduleResponse'++instance+ Prelude.NFData+ DeleteSnapshotScheduleResponse+ where+ rnf _ = ()
+ gen/Amazonka/Redshift/DeleteTags.hs view
@@ -0,0 +1,140 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module : Amazonka.Redshift.DeleteTags+-- Copyright : (c) 2013-2023 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Deletes tags from a resource. You must provide the ARN of the resource+-- from which you want to delete the tag or tags.+module Amazonka.Redshift.DeleteTags+ ( -- * Creating a Request+ DeleteTags (..),+ newDeleteTags,++ -- * Request Lenses+ deleteTags_resourceName,+ deleteTags_tagKeys,++ -- * Destructuring the Response+ DeleteTagsResponse (..),+ newDeleteTagsResponse,+ )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Redshift.Types+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | Contains the output from the @DeleteTags@ action.+--+-- /See:/ 'newDeleteTags' smart constructor.+data DeleteTags = DeleteTags'+ { -- | The Amazon Resource Name (ARN) from which you want to remove the tag or+ -- tags. For example, @arn:aws:redshift:us-east-2:123456789:cluster:t1@.+ resourceName :: Prelude.Text,+ -- | The tag key that you want to delete.+ tagKeys :: [Prelude.Text]+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DeleteTags' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'resourceName', 'deleteTags_resourceName' - The Amazon Resource Name (ARN) from which you want to remove the tag or+-- tags. For example, @arn:aws:redshift:us-east-2:123456789:cluster:t1@.+--+-- 'tagKeys', 'deleteTags_tagKeys' - The tag key that you want to delete.+newDeleteTags ::+ -- | 'resourceName'+ Prelude.Text ->+ DeleteTags+newDeleteTags pResourceName_ =+ DeleteTags'+ { resourceName = pResourceName_,+ tagKeys = Prelude.mempty+ }++-- | The Amazon Resource Name (ARN) from which you want to remove the tag or+-- tags. For example, @arn:aws:redshift:us-east-2:123456789:cluster:t1@.+deleteTags_resourceName :: Lens.Lens' DeleteTags Prelude.Text+deleteTags_resourceName = Lens.lens (\DeleteTags' {resourceName} -> resourceName) (\s@DeleteTags' {} a -> s {resourceName = a} :: DeleteTags)++-- | The tag key that you want to delete.+deleteTags_tagKeys :: Lens.Lens' DeleteTags [Prelude.Text]+deleteTags_tagKeys = Lens.lens (\DeleteTags' {tagKeys} -> tagKeys) (\s@DeleteTags' {} a -> s {tagKeys = a} :: DeleteTags) Prelude.. Lens.coerced++instance Core.AWSRequest DeleteTags where+ type AWSResponse DeleteTags = DeleteTagsResponse+ request overrides =+ Request.postQuery (overrides defaultService)+ response = Response.receiveNull DeleteTagsResponse'++instance Prelude.Hashable DeleteTags where+ hashWithSalt _salt DeleteTags' {..} =+ _salt+ `Prelude.hashWithSalt` resourceName+ `Prelude.hashWithSalt` tagKeys++instance Prelude.NFData DeleteTags where+ rnf DeleteTags' {..} =+ Prelude.rnf resourceName+ `Prelude.seq` Prelude.rnf tagKeys++instance Data.ToHeaders DeleteTags where+ toHeaders = Prelude.const Prelude.mempty++instance Data.ToPath DeleteTags where+ toPath = Prelude.const "/"++instance Data.ToQuery DeleteTags where+ toQuery DeleteTags' {..} =+ Prelude.mconcat+ [ "Action"+ Data.=: ("DeleteTags" :: Prelude.ByteString),+ "Version"+ Data.=: ("2012-12-01" :: Prelude.ByteString),+ "ResourceName" Data.=: resourceName,+ "TagKeys" Data.=: Data.toQueryList "TagKey" tagKeys+ ]++-- | /See:/ 'newDeleteTagsResponse' smart constructor.+data DeleteTagsResponse = DeleteTagsResponse'+ {+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DeleteTagsResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+newDeleteTagsResponse ::+ DeleteTagsResponse+newDeleteTagsResponse = DeleteTagsResponse'++instance Prelude.NFData DeleteTagsResponse where+ rnf _ = ()
+ gen/Amazonka/Redshift/DeleteUsageLimit.hs view
@@ -0,0 +1,121 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module : Amazonka.Redshift.DeleteUsageLimit+-- Copyright : (c) 2013-2023 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Deletes a usage limit from a cluster.+module Amazonka.Redshift.DeleteUsageLimit+ ( -- * Creating a Request+ DeleteUsageLimit (..),+ newDeleteUsageLimit,++ -- * Request Lenses+ deleteUsageLimit_usageLimitId,++ -- * Destructuring the Response+ DeleteUsageLimitResponse (..),+ newDeleteUsageLimitResponse,+ )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Redshift.Types+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newDeleteUsageLimit' smart constructor.+data DeleteUsageLimit = DeleteUsageLimit'+ { -- | The identifier of the usage limit to delete.+ usageLimitId :: Prelude.Text+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DeleteUsageLimit' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'usageLimitId', 'deleteUsageLimit_usageLimitId' - The identifier of the usage limit to delete.+newDeleteUsageLimit ::+ -- | 'usageLimitId'+ Prelude.Text ->+ DeleteUsageLimit+newDeleteUsageLimit pUsageLimitId_ =+ DeleteUsageLimit' {usageLimitId = pUsageLimitId_}++-- | The identifier of the usage limit to delete.+deleteUsageLimit_usageLimitId :: Lens.Lens' DeleteUsageLimit Prelude.Text+deleteUsageLimit_usageLimitId = Lens.lens (\DeleteUsageLimit' {usageLimitId} -> usageLimitId) (\s@DeleteUsageLimit' {} a -> s {usageLimitId = a} :: DeleteUsageLimit)++instance Core.AWSRequest DeleteUsageLimit where+ type+ AWSResponse DeleteUsageLimit =+ DeleteUsageLimitResponse+ request overrides =+ Request.postQuery (overrides defaultService)+ response =+ Response.receiveNull DeleteUsageLimitResponse'++instance Prelude.Hashable DeleteUsageLimit where+ hashWithSalt _salt DeleteUsageLimit' {..} =+ _salt `Prelude.hashWithSalt` usageLimitId++instance Prelude.NFData DeleteUsageLimit where+ rnf DeleteUsageLimit' {..} = Prelude.rnf usageLimitId++instance Data.ToHeaders DeleteUsageLimit where+ toHeaders = Prelude.const Prelude.mempty++instance Data.ToPath DeleteUsageLimit where+ toPath = Prelude.const "/"++instance Data.ToQuery DeleteUsageLimit where+ toQuery DeleteUsageLimit' {..} =+ Prelude.mconcat+ [ "Action"+ Data.=: ("DeleteUsageLimit" :: Prelude.ByteString),+ "Version"+ Data.=: ("2012-12-01" :: Prelude.ByteString),+ "UsageLimitId" Data.=: usageLimitId+ ]++-- | /See:/ 'newDeleteUsageLimitResponse' smart constructor.+data DeleteUsageLimitResponse = DeleteUsageLimitResponse'+ {+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DeleteUsageLimitResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+newDeleteUsageLimitResponse ::+ DeleteUsageLimitResponse+newDeleteUsageLimitResponse =+ DeleteUsageLimitResponse'++instance Prelude.NFData DeleteUsageLimitResponse where+ rnf _ = ()
+ gen/Amazonka/Redshift/DescribeAccountAttributes.hs view
@@ -0,0 +1,170 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module : Amazonka.Redshift.DescribeAccountAttributes+-- Copyright : (c) 2013-2023 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Returns a list of attributes attached to an account+module Amazonka.Redshift.DescribeAccountAttributes+ ( -- * Creating a Request+ DescribeAccountAttributes (..),+ newDescribeAccountAttributes,++ -- * Request Lenses+ describeAccountAttributes_attributeNames,++ -- * Destructuring the Response+ DescribeAccountAttributesResponse (..),+ newDescribeAccountAttributesResponse,++ -- * Response Lenses+ describeAccountAttributesResponse_accountAttributes,+ describeAccountAttributesResponse_httpStatus,+ )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Redshift.Types+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newDescribeAccountAttributes' smart constructor.+data DescribeAccountAttributes = DescribeAccountAttributes'+ { -- | A list of attribute names.+ attributeNames :: Prelude.Maybe [Prelude.Text]+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeAccountAttributes' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'attributeNames', 'describeAccountAttributes_attributeNames' - A list of attribute names.+newDescribeAccountAttributes ::+ DescribeAccountAttributes+newDescribeAccountAttributes =+ DescribeAccountAttributes'+ { attributeNames =+ Prelude.Nothing+ }++-- | A list of attribute names.+describeAccountAttributes_attributeNames :: Lens.Lens' DescribeAccountAttributes (Prelude.Maybe [Prelude.Text])+describeAccountAttributes_attributeNames = Lens.lens (\DescribeAccountAttributes' {attributeNames} -> attributeNames) (\s@DescribeAccountAttributes' {} a -> s {attributeNames = a} :: DescribeAccountAttributes) Prelude.. Lens.mapping Lens.coerced++instance Core.AWSRequest DescribeAccountAttributes where+ type+ AWSResponse DescribeAccountAttributes =+ DescribeAccountAttributesResponse+ request overrides =+ Request.postQuery (overrides defaultService)+ response =+ Response.receiveXMLWrapper+ "DescribeAccountAttributesResult"+ ( \s h x ->+ DescribeAccountAttributesResponse'+ Prelude.<$> ( x+ Data..@? "AccountAttributes"+ Core..!@ Prelude.mempty+ Prelude.>>= Core.may (Data.parseXMLList "AccountAttribute")+ )+ Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+ )++instance Prelude.Hashable DescribeAccountAttributes where+ hashWithSalt _salt DescribeAccountAttributes' {..} =+ _salt `Prelude.hashWithSalt` attributeNames++instance Prelude.NFData DescribeAccountAttributes where+ rnf DescribeAccountAttributes' {..} =+ Prelude.rnf attributeNames++instance Data.ToHeaders DescribeAccountAttributes where+ toHeaders = Prelude.const Prelude.mempty++instance Data.ToPath DescribeAccountAttributes where+ toPath = Prelude.const "/"++instance Data.ToQuery DescribeAccountAttributes where+ toQuery DescribeAccountAttributes' {..} =+ Prelude.mconcat+ [ "Action"+ Data.=: ("DescribeAccountAttributes" :: Prelude.ByteString),+ "Version"+ Data.=: ("2012-12-01" :: Prelude.ByteString),+ "AttributeNames"+ Data.=: Data.toQuery+ ( Data.toQueryList "AttributeName"+ Prelude.<$> attributeNames+ )+ ]++-- | /See:/ 'newDescribeAccountAttributesResponse' smart constructor.+data DescribeAccountAttributesResponse = DescribeAccountAttributesResponse'+ { -- | A list of attributes assigned to an account.+ accountAttributes :: Prelude.Maybe [AccountAttribute],+ -- | The response's http status code.+ httpStatus :: Prelude.Int+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeAccountAttributesResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'accountAttributes', 'describeAccountAttributesResponse_accountAttributes' - A list of attributes assigned to an account.+--+-- 'httpStatus', 'describeAccountAttributesResponse_httpStatus' - The response's http status code.+newDescribeAccountAttributesResponse ::+ -- | 'httpStatus'+ Prelude.Int ->+ DescribeAccountAttributesResponse+newDescribeAccountAttributesResponse pHttpStatus_ =+ DescribeAccountAttributesResponse'+ { accountAttributes =+ Prelude.Nothing,+ httpStatus = pHttpStatus_+ }++-- | A list of attributes assigned to an account.+describeAccountAttributesResponse_accountAttributes :: Lens.Lens' DescribeAccountAttributesResponse (Prelude.Maybe [AccountAttribute])+describeAccountAttributesResponse_accountAttributes = Lens.lens (\DescribeAccountAttributesResponse' {accountAttributes} -> accountAttributes) (\s@DescribeAccountAttributesResponse' {} a -> s {accountAttributes = a} :: DescribeAccountAttributesResponse) Prelude.. Lens.mapping Lens.coerced++-- | The response's http status code.+describeAccountAttributesResponse_httpStatus :: Lens.Lens' DescribeAccountAttributesResponse Prelude.Int+describeAccountAttributesResponse_httpStatus = Lens.lens (\DescribeAccountAttributesResponse' {httpStatus} -> httpStatus) (\s@DescribeAccountAttributesResponse' {} a -> s {httpStatus = a} :: DescribeAccountAttributesResponse)++instance+ Prelude.NFData+ DescribeAccountAttributesResponse+ where+ rnf DescribeAccountAttributesResponse' {..} =+ Prelude.rnf accountAttributes+ `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/Redshift/DescribeAuthenticationProfiles.hs view
@@ -0,0 +1,188 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module : Amazonka.Redshift.DescribeAuthenticationProfiles+-- Copyright : (c) 2013-2023 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Describes an authentication profile.+module Amazonka.Redshift.DescribeAuthenticationProfiles+ ( -- * Creating a Request+ DescribeAuthenticationProfiles (..),+ newDescribeAuthenticationProfiles,++ -- * Request Lenses+ describeAuthenticationProfiles_authenticationProfileName,++ -- * Destructuring the Response+ DescribeAuthenticationProfilesResponse (..),+ newDescribeAuthenticationProfilesResponse,++ -- * Response Lenses+ describeAuthenticationProfilesResponse_authenticationProfiles,+ describeAuthenticationProfilesResponse_httpStatus,+ )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Redshift.Types+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newDescribeAuthenticationProfiles' smart constructor.+data DescribeAuthenticationProfiles = DescribeAuthenticationProfiles'+ { -- | The name of the authentication profile to describe. If not specified+ -- then all authentication profiles owned by the account are listed.+ authenticationProfileName :: Prelude.Maybe Prelude.Text+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeAuthenticationProfiles' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'authenticationProfileName', 'describeAuthenticationProfiles_authenticationProfileName' - The name of the authentication profile to describe. If not specified+-- then all authentication profiles owned by the account are listed.+newDescribeAuthenticationProfiles ::+ DescribeAuthenticationProfiles+newDescribeAuthenticationProfiles =+ DescribeAuthenticationProfiles'+ { authenticationProfileName =+ Prelude.Nothing+ }++-- | The name of the authentication profile to describe. If not specified+-- then all authentication profiles owned by the account are listed.+describeAuthenticationProfiles_authenticationProfileName :: Lens.Lens' DescribeAuthenticationProfiles (Prelude.Maybe Prelude.Text)+describeAuthenticationProfiles_authenticationProfileName = Lens.lens (\DescribeAuthenticationProfiles' {authenticationProfileName} -> authenticationProfileName) (\s@DescribeAuthenticationProfiles' {} a -> s {authenticationProfileName = a} :: DescribeAuthenticationProfiles)++instance+ Core.AWSRequest+ DescribeAuthenticationProfiles+ where+ type+ AWSResponse DescribeAuthenticationProfiles =+ DescribeAuthenticationProfilesResponse+ request overrides =+ Request.postQuery (overrides defaultService)+ response =+ Response.receiveXMLWrapper+ "DescribeAuthenticationProfilesResult"+ ( \s h x ->+ DescribeAuthenticationProfilesResponse'+ Prelude.<$> ( x+ Data..@? "AuthenticationProfiles"+ Core..!@ Prelude.mempty+ Prelude.>>= Core.may (Data.parseXMLList "member")+ )+ Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+ )++instance+ Prelude.Hashable+ DescribeAuthenticationProfiles+ where+ hashWithSalt+ _salt+ DescribeAuthenticationProfiles' {..} =+ _salt+ `Prelude.hashWithSalt` authenticationProfileName++instance+ Prelude.NFData+ DescribeAuthenticationProfiles+ where+ rnf DescribeAuthenticationProfiles' {..} =+ Prelude.rnf authenticationProfileName++instance+ Data.ToHeaders+ DescribeAuthenticationProfiles+ where+ toHeaders = Prelude.const Prelude.mempty++instance Data.ToPath DescribeAuthenticationProfiles where+ toPath = Prelude.const "/"++instance Data.ToQuery DescribeAuthenticationProfiles where+ toQuery DescribeAuthenticationProfiles' {..} =+ Prelude.mconcat+ [ "Action"+ Data.=: ( "DescribeAuthenticationProfiles" ::+ Prelude.ByteString+ ),+ "Version"+ Data.=: ("2012-12-01" :: Prelude.ByteString),+ "AuthenticationProfileName"+ Data.=: authenticationProfileName+ ]++-- | /See:/ 'newDescribeAuthenticationProfilesResponse' smart constructor.+data DescribeAuthenticationProfilesResponse = DescribeAuthenticationProfilesResponse'+ { -- | The list of authentication profiles.+ authenticationProfiles :: Prelude.Maybe [AuthenticationProfile],+ -- | The response's http status code.+ httpStatus :: Prelude.Int+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeAuthenticationProfilesResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'authenticationProfiles', 'describeAuthenticationProfilesResponse_authenticationProfiles' - The list of authentication profiles.+--+-- 'httpStatus', 'describeAuthenticationProfilesResponse_httpStatus' - The response's http status code.+newDescribeAuthenticationProfilesResponse ::+ -- | 'httpStatus'+ Prelude.Int ->+ DescribeAuthenticationProfilesResponse+newDescribeAuthenticationProfilesResponse+ pHttpStatus_ =+ DescribeAuthenticationProfilesResponse'+ { authenticationProfiles =+ Prelude.Nothing,+ httpStatus = pHttpStatus_+ }++-- | The list of authentication profiles.+describeAuthenticationProfilesResponse_authenticationProfiles :: Lens.Lens' DescribeAuthenticationProfilesResponse (Prelude.Maybe [AuthenticationProfile])+describeAuthenticationProfilesResponse_authenticationProfiles = Lens.lens (\DescribeAuthenticationProfilesResponse' {authenticationProfiles} -> authenticationProfiles) (\s@DescribeAuthenticationProfilesResponse' {} a -> s {authenticationProfiles = a} :: DescribeAuthenticationProfilesResponse) Prelude.. Lens.mapping Lens.coerced++-- | The response's http status code.+describeAuthenticationProfilesResponse_httpStatus :: Lens.Lens' DescribeAuthenticationProfilesResponse Prelude.Int+describeAuthenticationProfilesResponse_httpStatus = Lens.lens (\DescribeAuthenticationProfilesResponse' {httpStatus} -> httpStatus) (\s@DescribeAuthenticationProfilesResponse' {} a -> s {httpStatus = a} :: DescribeAuthenticationProfilesResponse)++instance+ Prelude.NFData+ DescribeAuthenticationProfilesResponse+ where+ rnf DescribeAuthenticationProfilesResponse' {..} =+ Prelude.rnf authenticationProfiles+ `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/Redshift/DescribeClusterDbRevisions.hs view
@@ -0,0 +1,298 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module : Amazonka.Redshift.DescribeClusterDbRevisions+-- Copyright : (c) 2013-2023 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Returns an array of @ClusterDbRevision@ objects.+--+-- This operation returns paginated results.+module Amazonka.Redshift.DescribeClusterDbRevisions+ ( -- * Creating a Request+ DescribeClusterDbRevisions (..),+ newDescribeClusterDbRevisions,++ -- * Request Lenses+ describeClusterDbRevisions_clusterIdentifier,+ describeClusterDbRevisions_marker,+ describeClusterDbRevisions_maxRecords,++ -- * Destructuring the Response+ DescribeClusterDbRevisionsResponse (..),+ newDescribeClusterDbRevisionsResponse,++ -- * Response Lenses+ describeClusterDbRevisionsResponse_clusterDbRevisions,+ describeClusterDbRevisionsResponse_marker,+ describeClusterDbRevisionsResponse_httpStatus,+ )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Redshift.Types+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newDescribeClusterDbRevisions' smart constructor.+data DescribeClusterDbRevisions = DescribeClusterDbRevisions'+ { -- | A unique identifier for a cluster whose @ClusterDbRevisions@ you are+ -- requesting. This parameter is case sensitive. All clusters defined for+ -- an account are returned by default.+ clusterIdentifier :: Prelude.Maybe Prelude.Text,+ -- | An optional parameter that specifies the starting point for returning a+ -- set of response records. When the results of a+ -- @DescribeClusterDbRevisions@ request exceed the value specified in+ -- @MaxRecords@, Amazon Redshift returns a value in the @marker@ field of+ -- the response. You can retrieve the next set of response records by+ -- providing the returned @marker@ value in the @marker@ parameter and+ -- retrying the request.+ --+ -- Constraints: You can specify either the @ClusterIdentifier@ parameter,+ -- or the @marker@ parameter, but not both.+ marker :: Prelude.Maybe Prelude.Text,+ -- | The maximum number of response records to return in each call. If the+ -- number of remaining response records exceeds the specified MaxRecords+ -- value, a value is returned in the @marker@ field of the response. You+ -- can retrieve the next set of response records by providing the returned+ -- @marker@ value in the @marker@ parameter and retrying the request.+ --+ -- Default: 100+ --+ -- Constraints: minimum 20, maximum 100.+ maxRecords :: Prelude.Maybe Prelude.Int+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeClusterDbRevisions' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'clusterIdentifier', 'describeClusterDbRevisions_clusterIdentifier' - A unique identifier for a cluster whose @ClusterDbRevisions@ you are+-- requesting. This parameter is case sensitive. All clusters defined for+-- an account are returned by default.+--+-- 'marker', 'describeClusterDbRevisions_marker' - An optional parameter that specifies the starting point for returning a+-- set of response records. When the results of a+-- @DescribeClusterDbRevisions@ request exceed the value specified in+-- @MaxRecords@, Amazon Redshift returns a value in the @marker@ field of+-- the response. You can retrieve the next set of response records by+-- providing the returned @marker@ value in the @marker@ parameter and+-- retrying the request.+--+-- Constraints: You can specify either the @ClusterIdentifier@ parameter,+-- or the @marker@ parameter, but not both.+--+-- 'maxRecords', 'describeClusterDbRevisions_maxRecords' - The maximum number of response records to return in each call. If the+-- number of remaining response records exceeds the specified MaxRecords+-- value, a value is returned in the @marker@ field of the response. You+-- can retrieve the next set of response records by providing the returned+-- @marker@ value in the @marker@ parameter and retrying the request.+--+-- Default: 100+--+-- Constraints: minimum 20, maximum 100.+newDescribeClusterDbRevisions ::+ DescribeClusterDbRevisions+newDescribeClusterDbRevisions =+ DescribeClusterDbRevisions'+ { clusterIdentifier =+ Prelude.Nothing,+ marker = Prelude.Nothing,+ maxRecords = Prelude.Nothing+ }++-- | A unique identifier for a cluster whose @ClusterDbRevisions@ you are+-- requesting. This parameter is case sensitive. All clusters defined for+-- an account are returned by default.+describeClusterDbRevisions_clusterIdentifier :: Lens.Lens' DescribeClusterDbRevisions (Prelude.Maybe Prelude.Text)+describeClusterDbRevisions_clusterIdentifier = Lens.lens (\DescribeClusterDbRevisions' {clusterIdentifier} -> clusterIdentifier) (\s@DescribeClusterDbRevisions' {} a -> s {clusterIdentifier = a} :: DescribeClusterDbRevisions)++-- | An optional parameter that specifies the starting point for returning a+-- set of response records. When the results of a+-- @DescribeClusterDbRevisions@ request exceed the value specified in+-- @MaxRecords@, Amazon Redshift returns a value in the @marker@ field of+-- the response. You can retrieve the next set of response records by+-- providing the returned @marker@ value in the @marker@ parameter and+-- retrying the request.+--+-- Constraints: You can specify either the @ClusterIdentifier@ parameter,+-- or the @marker@ parameter, but not both.+describeClusterDbRevisions_marker :: Lens.Lens' DescribeClusterDbRevisions (Prelude.Maybe Prelude.Text)+describeClusterDbRevisions_marker = Lens.lens (\DescribeClusterDbRevisions' {marker} -> marker) (\s@DescribeClusterDbRevisions' {} a -> s {marker = a} :: DescribeClusterDbRevisions)++-- | The maximum number of response records to return in each call. If the+-- number of remaining response records exceeds the specified MaxRecords+-- value, a value is returned in the @marker@ field of the response. You+-- can retrieve the next set of response records by providing the returned+-- @marker@ value in the @marker@ parameter and retrying the request.+--+-- Default: 100+--+-- Constraints: minimum 20, maximum 100.+describeClusterDbRevisions_maxRecords :: Lens.Lens' DescribeClusterDbRevisions (Prelude.Maybe Prelude.Int)+describeClusterDbRevisions_maxRecords = Lens.lens (\DescribeClusterDbRevisions' {maxRecords} -> maxRecords) (\s@DescribeClusterDbRevisions' {} a -> s {maxRecords = a} :: DescribeClusterDbRevisions)++instance Core.AWSPager DescribeClusterDbRevisions where+ page rq rs+ | Core.stop+ ( rs+ Lens.^? describeClusterDbRevisionsResponse_marker+ Prelude.. Lens._Just+ ) =+ Prelude.Nothing+ | Core.stop+ ( rs+ Lens.^? describeClusterDbRevisionsResponse_clusterDbRevisions+ Prelude.. Lens._Just+ ) =+ Prelude.Nothing+ | Prelude.otherwise =+ Prelude.Just+ Prelude.$ rq+ Prelude.& describeClusterDbRevisions_marker+ Lens..~ rs+ Lens.^? describeClusterDbRevisionsResponse_marker+ Prelude.. Lens._Just++instance Core.AWSRequest DescribeClusterDbRevisions where+ type+ AWSResponse DescribeClusterDbRevisions =+ DescribeClusterDbRevisionsResponse+ request overrides =+ Request.postQuery (overrides defaultService)+ response =+ Response.receiveXMLWrapper+ "DescribeClusterDbRevisionsResult"+ ( \s h x ->+ DescribeClusterDbRevisionsResponse'+ Prelude.<$> ( x+ Data..@? "ClusterDbRevisions"+ Core..!@ Prelude.mempty+ Prelude.>>= Core.may (Data.parseXMLList "ClusterDbRevision")+ )+ Prelude.<*> (x Data..@? "Marker")+ Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+ )++instance Prelude.Hashable DescribeClusterDbRevisions where+ hashWithSalt _salt DescribeClusterDbRevisions' {..} =+ _salt+ `Prelude.hashWithSalt` clusterIdentifier+ `Prelude.hashWithSalt` marker+ `Prelude.hashWithSalt` maxRecords++instance Prelude.NFData DescribeClusterDbRevisions where+ rnf DescribeClusterDbRevisions' {..} =+ Prelude.rnf clusterIdentifier+ `Prelude.seq` Prelude.rnf marker+ `Prelude.seq` Prelude.rnf maxRecords++instance Data.ToHeaders DescribeClusterDbRevisions where+ toHeaders = Prelude.const Prelude.mempty++instance Data.ToPath DescribeClusterDbRevisions where+ toPath = Prelude.const "/"++instance Data.ToQuery DescribeClusterDbRevisions where+ toQuery DescribeClusterDbRevisions' {..} =+ Prelude.mconcat+ [ "Action"+ Data.=: ("DescribeClusterDbRevisions" :: Prelude.ByteString),+ "Version"+ Data.=: ("2012-12-01" :: Prelude.ByteString),+ "ClusterIdentifier" Data.=: clusterIdentifier,+ "Marker" Data.=: marker,+ "MaxRecords" Data.=: maxRecords+ ]++-- | /See:/ 'newDescribeClusterDbRevisionsResponse' smart constructor.+data DescribeClusterDbRevisionsResponse = DescribeClusterDbRevisionsResponse'+ { -- | A list of revisions.+ clusterDbRevisions :: Prelude.Maybe [ClusterDbRevision],+ -- | A string representing the starting point for the next set of revisions.+ -- If a value is returned in a response, you can retrieve the next set of+ -- revisions by providing the value in the @marker@ parameter and retrying+ -- the command. If the @marker@ field is empty, all revisions have already+ -- been returned.+ marker :: Prelude.Maybe Prelude.Text,+ -- | The response's http status code.+ httpStatus :: Prelude.Int+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeClusterDbRevisionsResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'clusterDbRevisions', 'describeClusterDbRevisionsResponse_clusterDbRevisions' - A list of revisions.+--+-- 'marker', 'describeClusterDbRevisionsResponse_marker' - A string representing the starting point for the next set of revisions.+-- If a value is returned in a response, you can retrieve the next set of+-- revisions by providing the value in the @marker@ parameter and retrying+-- the command. If the @marker@ field is empty, all revisions have already+-- been returned.+--+-- 'httpStatus', 'describeClusterDbRevisionsResponse_httpStatus' - The response's http status code.+newDescribeClusterDbRevisionsResponse ::+ -- | 'httpStatus'+ Prelude.Int ->+ DescribeClusterDbRevisionsResponse+newDescribeClusterDbRevisionsResponse pHttpStatus_ =+ DescribeClusterDbRevisionsResponse'+ { clusterDbRevisions =+ Prelude.Nothing,+ marker = Prelude.Nothing,+ httpStatus = pHttpStatus_+ }++-- | A list of revisions.+describeClusterDbRevisionsResponse_clusterDbRevisions :: Lens.Lens' DescribeClusterDbRevisionsResponse (Prelude.Maybe [ClusterDbRevision])+describeClusterDbRevisionsResponse_clusterDbRevisions = Lens.lens (\DescribeClusterDbRevisionsResponse' {clusterDbRevisions} -> clusterDbRevisions) (\s@DescribeClusterDbRevisionsResponse' {} a -> s {clusterDbRevisions = a} :: DescribeClusterDbRevisionsResponse) Prelude.. Lens.mapping Lens.coerced++-- | A string representing the starting point for the next set of revisions.+-- If a value is returned in a response, you can retrieve the next set of+-- revisions by providing the value in the @marker@ parameter and retrying+-- the command. If the @marker@ field is empty, all revisions have already+-- been returned.+describeClusterDbRevisionsResponse_marker :: Lens.Lens' DescribeClusterDbRevisionsResponse (Prelude.Maybe Prelude.Text)+describeClusterDbRevisionsResponse_marker = Lens.lens (\DescribeClusterDbRevisionsResponse' {marker} -> marker) (\s@DescribeClusterDbRevisionsResponse' {} a -> s {marker = a} :: DescribeClusterDbRevisionsResponse)++-- | The response's http status code.+describeClusterDbRevisionsResponse_httpStatus :: Lens.Lens' DescribeClusterDbRevisionsResponse Prelude.Int+describeClusterDbRevisionsResponse_httpStatus = Lens.lens (\DescribeClusterDbRevisionsResponse' {httpStatus} -> httpStatus) (\s@DescribeClusterDbRevisionsResponse' {} a -> s {httpStatus = a} :: DescribeClusterDbRevisionsResponse)++instance+ Prelude.NFData+ DescribeClusterDbRevisionsResponse+ where+ rnf DescribeClusterDbRevisionsResponse' {..} =+ Prelude.rnf clusterDbRevisions+ `Prelude.seq` Prelude.rnf marker+ `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/Redshift/DescribeClusterParameterGroups.hs view
@@ -0,0 +1,400 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module : Amazonka.Redshift.DescribeClusterParameterGroups+-- Copyright : (c) 2013-2023 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Returns a list of Amazon Redshift parameter groups, including parameter+-- groups you created and the default parameter group. For each parameter+-- group, the response includes the parameter group name, description, and+-- parameter group family name. You can optionally specify a name to+-- retrieve the description of a specific parameter group.+--+-- For more information about parameters and parameter groups, go to+-- <https://docs.aws.amazon.com/redshift/latest/mgmt/working-with-parameter-groups.html Amazon Redshift Parameter Groups>+-- in the /Amazon Redshift Cluster Management Guide/.+--+-- If you specify both tag keys and tag values in the same request, Amazon+-- Redshift returns all parameter groups that match any combination of the+-- specified keys and values. For example, if you have @owner@ and+-- @environment@ for tag keys, and @admin@ and @test@ for tag values, all+-- parameter groups that have any combination of those values are returned.+--+-- If both tag keys and values are omitted from the request, parameter+-- groups are returned regardless of whether they have tag keys or values+-- associated with them.+--+-- This operation returns paginated results.+module Amazonka.Redshift.DescribeClusterParameterGroups+ ( -- * Creating a Request+ DescribeClusterParameterGroups (..),+ newDescribeClusterParameterGroups,++ -- * Request Lenses+ describeClusterParameterGroups_marker,+ describeClusterParameterGroups_maxRecords,+ describeClusterParameterGroups_parameterGroupName,+ describeClusterParameterGroups_tagKeys,+ describeClusterParameterGroups_tagValues,++ -- * Destructuring the Response+ DescribeClusterParameterGroupsResponse (..),+ newDescribeClusterParameterGroupsResponse,++ -- * Response Lenses+ describeClusterParameterGroupsResponse_marker,+ describeClusterParameterGroupsResponse_parameterGroups,+ describeClusterParameterGroupsResponse_httpStatus,+ )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Redshift.Types+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- |+--+-- /See:/ 'newDescribeClusterParameterGroups' smart constructor.+data DescribeClusterParameterGroups = DescribeClusterParameterGroups'+ { -- | An optional parameter that specifies the starting point to return a set+ -- of response records. When the results of a+ -- DescribeClusterParameterGroups request exceed the value specified in+ -- @MaxRecords@, Amazon Web Services returns a value in the @Marker@ field+ -- of the response. You can retrieve the next set of response records by+ -- providing the returned marker value in the @Marker@ parameter and+ -- retrying the request.+ marker :: Prelude.Maybe Prelude.Text,+ -- | The maximum number of response records to return in each call. If the+ -- number of remaining response records exceeds the specified @MaxRecords@+ -- value, a value is returned in a @marker@ field of the response. You can+ -- retrieve the next set of records by retrying the command with the+ -- returned marker value.+ --+ -- Default: @100@+ --+ -- Constraints: minimum 20, maximum 100.+ maxRecords :: Prelude.Maybe Prelude.Int,+ -- | The name of a specific parameter group for which to return details. By+ -- default, details about all parameter groups and the default parameter+ -- group are returned.+ parameterGroupName :: Prelude.Maybe Prelude.Text,+ -- | A tag key or keys for which you want to return all matching cluster+ -- parameter groups that are associated with the specified key or keys. For+ -- example, suppose that you have parameter groups that are tagged with+ -- keys called @owner@ and @environment@. If you specify both of these tag+ -- keys in the request, Amazon Redshift returns a response with the+ -- parameter groups that have either or both of these tag keys associated+ -- with them.+ tagKeys :: Prelude.Maybe [Prelude.Text],+ -- | A tag value or values for which you want to return all matching cluster+ -- parameter groups that are associated with the specified tag value or+ -- values. For example, suppose that you have parameter groups that are+ -- tagged with values called @admin@ and @test@. If you specify both of+ -- these tag values in the request, Amazon Redshift returns a response with+ -- the parameter groups that have either or both of these tag values+ -- associated with them.+ tagValues :: Prelude.Maybe [Prelude.Text]+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeClusterParameterGroups' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'marker', 'describeClusterParameterGroups_marker' - An optional parameter that specifies the starting point to return a set+-- of response records. When the results of a+-- DescribeClusterParameterGroups request exceed the value specified in+-- @MaxRecords@, Amazon Web Services returns a value in the @Marker@ field+-- of the response. You can retrieve the next set of response records by+-- providing the returned marker value in the @Marker@ parameter and+-- retrying the request.+--+-- 'maxRecords', 'describeClusterParameterGroups_maxRecords' - The maximum number of response records to return in each call. If the+-- number of remaining response records exceeds the specified @MaxRecords@+-- value, a value is returned in a @marker@ field of the response. You can+-- retrieve the next set of records by retrying the command with the+-- returned marker value.+--+-- Default: @100@+--+-- Constraints: minimum 20, maximum 100.+--+-- 'parameterGroupName', 'describeClusterParameterGroups_parameterGroupName' - The name of a specific parameter group for which to return details. By+-- default, details about all parameter groups and the default parameter+-- group are returned.+--+-- 'tagKeys', 'describeClusterParameterGroups_tagKeys' - A tag key or keys for which you want to return all matching cluster+-- parameter groups that are associated with the specified key or keys. For+-- example, suppose that you have parameter groups that are tagged with+-- keys called @owner@ and @environment@. If you specify both of these tag+-- keys in the request, Amazon Redshift returns a response with the+-- parameter groups that have either or both of these tag keys associated+-- with them.+--+-- 'tagValues', 'describeClusterParameterGroups_tagValues' - A tag value or values for which you want to return all matching cluster+-- parameter groups that are associated with the specified tag value or+-- values. For example, suppose that you have parameter groups that are+-- tagged with values called @admin@ and @test@. If you specify both of+-- these tag values in the request, Amazon Redshift returns a response with+-- the parameter groups that have either or both of these tag values+-- associated with them.+newDescribeClusterParameterGroups ::+ DescribeClusterParameterGroups+newDescribeClusterParameterGroups =+ DescribeClusterParameterGroups'+ { marker =+ Prelude.Nothing,+ maxRecords = Prelude.Nothing,+ parameterGroupName = Prelude.Nothing,+ tagKeys = Prelude.Nothing,+ tagValues = Prelude.Nothing+ }++-- | An optional parameter that specifies the starting point to return a set+-- of response records. When the results of a+-- DescribeClusterParameterGroups request exceed the value specified in+-- @MaxRecords@, Amazon Web Services returns a value in the @Marker@ field+-- of the response. You can retrieve the next set of response records by+-- providing the returned marker value in the @Marker@ parameter and+-- retrying the request.+describeClusterParameterGroups_marker :: Lens.Lens' DescribeClusterParameterGroups (Prelude.Maybe Prelude.Text)+describeClusterParameterGroups_marker = Lens.lens (\DescribeClusterParameterGroups' {marker} -> marker) (\s@DescribeClusterParameterGroups' {} a -> s {marker = a} :: DescribeClusterParameterGroups)++-- | The maximum number of response records to return in each call. If the+-- number of remaining response records exceeds the specified @MaxRecords@+-- value, a value is returned in a @marker@ field of the response. You can+-- retrieve the next set of records by retrying the command with the+-- returned marker value.+--+-- Default: @100@+--+-- Constraints: minimum 20, maximum 100.+describeClusterParameterGroups_maxRecords :: Lens.Lens' DescribeClusterParameterGroups (Prelude.Maybe Prelude.Int)+describeClusterParameterGroups_maxRecords = Lens.lens (\DescribeClusterParameterGroups' {maxRecords} -> maxRecords) (\s@DescribeClusterParameterGroups' {} a -> s {maxRecords = a} :: DescribeClusterParameterGroups)++-- | The name of a specific parameter group for which to return details. By+-- default, details about all parameter groups and the default parameter+-- group are returned.+describeClusterParameterGroups_parameterGroupName :: Lens.Lens' DescribeClusterParameterGroups (Prelude.Maybe Prelude.Text)+describeClusterParameterGroups_parameterGroupName = Lens.lens (\DescribeClusterParameterGroups' {parameterGroupName} -> parameterGroupName) (\s@DescribeClusterParameterGroups' {} a -> s {parameterGroupName = a} :: DescribeClusterParameterGroups)++-- | A tag key or keys for which you want to return all matching cluster+-- parameter groups that are associated with the specified key or keys. For+-- example, suppose that you have parameter groups that are tagged with+-- keys called @owner@ and @environment@. If you specify both of these tag+-- keys in the request, Amazon Redshift returns a response with the+-- parameter groups that have either or both of these tag keys associated+-- with them.+describeClusterParameterGroups_tagKeys :: Lens.Lens' DescribeClusterParameterGroups (Prelude.Maybe [Prelude.Text])+describeClusterParameterGroups_tagKeys = Lens.lens (\DescribeClusterParameterGroups' {tagKeys} -> tagKeys) (\s@DescribeClusterParameterGroups' {} a -> s {tagKeys = a} :: DescribeClusterParameterGroups) Prelude.. Lens.mapping Lens.coerced++-- | A tag value or values for which you want to return all matching cluster+-- parameter groups that are associated with the specified tag value or+-- values. For example, suppose that you have parameter groups that are+-- tagged with values called @admin@ and @test@. If you specify both of+-- these tag values in the request, Amazon Redshift returns a response with+-- the parameter groups that have either or both of these tag values+-- associated with them.+describeClusterParameterGroups_tagValues :: Lens.Lens' DescribeClusterParameterGroups (Prelude.Maybe [Prelude.Text])+describeClusterParameterGroups_tagValues = Lens.lens (\DescribeClusterParameterGroups' {tagValues} -> tagValues) (\s@DescribeClusterParameterGroups' {} a -> s {tagValues = a} :: DescribeClusterParameterGroups) Prelude.. Lens.mapping Lens.coerced++instance Core.AWSPager DescribeClusterParameterGroups where+ page rq rs+ | Core.stop+ ( rs+ Lens.^? describeClusterParameterGroupsResponse_marker+ Prelude.. Lens._Just+ ) =+ Prelude.Nothing+ | Core.stop+ ( rs+ Lens.^? describeClusterParameterGroupsResponse_parameterGroups+ Prelude.. Lens._Just+ ) =+ Prelude.Nothing+ | Prelude.otherwise =+ Prelude.Just+ Prelude.$ rq+ Prelude.& describeClusterParameterGroups_marker+ Lens..~ rs+ Lens.^? describeClusterParameterGroupsResponse_marker+ Prelude.. Lens._Just++instance+ Core.AWSRequest+ DescribeClusterParameterGroups+ where+ type+ AWSResponse DescribeClusterParameterGroups =+ DescribeClusterParameterGroupsResponse+ request overrides =+ Request.postQuery (overrides defaultService)+ response =+ Response.receiveXMLWrapper+ "DescribeClusterParameterGroupsResult"+ ( \s h x ->+ DescribeClusterParameterGroupsResponse'+ Prelude.<$> (x Data..@? "Marker")+ Prelude.<*> ( x+ Data..@? "ParameterGroups"+ Core..!@ Prelude.mempty+ Prelude.>>= Core.may (Data.parseXMLList "ClusterParameterGroup")+ )+ Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+ )++instance+ Prelude.Hashable+ DescribeClusterParameterGroups+ where+ hashWithSalt+ _salt+ DescribeClusterParameterGroups' {..} =+ _salt+ `Prelude.hashWithSalt` marker+ `Prelude.hashWithSalt` maxRecords+ `Prelude.hashWithSalt` parameterGroupName+ `Prelude.hashWithSalt` tagKeys+ `Prelude.hashWithSalt` tagValues++instance+ Prelude.NFData+ DescribeClusterParameterGroups+ where+ rnf DescribeClusterParameterGroups' {..} =+ Prelude.rnf marker+ `Prelude.seq` Prelude.rnf maxRecords+ `Prelude.seq` Prelude.rnf parameterGroupName+ `Prelude.seq` Prelude.rnf tagKeys+ `Prelude.seq` Prelude.rnf tagValues++instance+ Data.ToHeaders+ DescribeClusterParameterGroups+ where+ toHeaders = Prelude.const Prelude.mempty++instance Data.ToPath DescribeClusterParameterGroups where+ toPath = Prelude.const "/"++instance Data.ToQuery DescribeClusterParameterGroups where+ toQuery DescribeClusterParameterGroups' {..} =+ Prelude.mconcat+ [ "Action"+ Data.=: ( "DescribeClusterParameterGroups" ::+ Prelude.ByteString+ ),+ "Version"+ Data.=: ("2012-12-01" :: Prelude.ByteString),+ "Marker" Data.=: marker,+ "MaxRecords" Data.=: maxRecords,+ "ParameterGroupName" Data.=: parameterGroupName,+ "TagKeys"+ Data.=: Data.toQuery+ (Data.toQueryList "TagKey" Prelude.<$> tagKeys),+ "TagValues"+ Data.=: Data.toQuery+ (Data.toQueryList "TagValue" Prelude.<$> tagValues)+ ]++-- | Contains the output from the DescribeClusterParameterGroups action.+--+-- /See:/ 'newDescribeClusterParameterGroupsResponse' smart constructor.+data DescribeClusterParameterGroupsResponse = DescribeClusterParameterGroupsResponse'+ { -- | A value that indicates the starting point for the next set of response+ -- records in a subsequent request. If a value is returned in a response,+ -- you can retrieve the next set of records by providing this returned+ -- marker value in the @Marker@ parameter and retrying the command. If the+ -- @Marker@ field is empty, all response records have been retrieved for+ -- the request.+ marker :: Prelude.Maybe Prelude.Text,+ -- | A list of ClusterParameterGroup instances. Each instance describes one+ -- cluster parameter group.+ parameterGroups :: Prelude.Maybe [ClusterParameterGroup],+ -- | The response's http status code.+ httpStatus :: Prelude.Int+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeClusterParameterGroupsResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'marker', 'describeClusterParameterGroupsResponse_marker' - A value that indicates the starting point for the next set of response+-- records in a subsequent request. If a value is returned in a response,+-- you can retrieve the next set of records by providing this returned+-- marker value in the @Marker@ parameter and retrying the command. If the+-- @Marker@ field is empty, all response records have been retrieved for+-- the request.+--+-- 'parameterGroups', 'describeClusterParameterGroupsResponse_parameterGroups' - A list of ClusterParameterGroup instances. Each instance describes one+-- cluster parameter group.+--+-- 'httpStatus', 'describeClusterParameterGroupsResponse_httpStatus' - The response's http status code.+newDescribeClusterParameterGroupsResponse ::+ -- | 'httpStatus'+ Prelude.Int ->+ DescribeClusterParameterGroupsResponse+newDescribeClusterParameterGroupsResponse+ pHttpStatus_ =+ DescribeClusterParameterGroupsResponse'+ { marker =+ Prelude.Nothing,+ parameterGroups = Prelude.Nothing,+ httpStatus = pHttpStatus_+ }++-- | A value that indicates the starting point for the next set of response+-- records in a subsequent request. If a value is returned in a response,+-- you can retrieve the next set of records by providing this returned+-- marker value in the @Marker@ parameter and retrying the command. If the+-- @Marker@ field is empty, all response records have been retrieved for+-- the request.+describeClusterParameterGroupsResponse_marker :: Lens.Lens' DescribeClusterParameterGroupsResponse (Prelude.Maybe Prelude.Text)+describeClusterParameterGroupsResponse_marker = Lens.lens (\DescribeClusterParameterGroupsResponse' {marker} -> marker) (\s@DescribeClusterParameterGroupsResponse' {} a -> s {marker = a} :: DescribeClusterParameterGroupsResponse)++-- | A list of ClusterParameterGroup instances. Each instance describes one+-- cluster parameter group.+describeClusterParameterGroupsResponse_parameterGroups :: Lens.Lens' DescribeClusterParameterGroupsResponse (Prelude.Maybe [ClusterParameterGroup])+describeClusterParameterGroupsResponse_parameterGroups = Lens.lens (\DescribeClusterParameterGroupsResponse' {parameterGroups} -> parameterGroups) (\s@DescribeClusterParameterGroupsResponse' {} a -> s {parameterGroups = a} :: DescribeClusterParameterGroupsResponse) Prelude.. Lens.mapping Lens.coerced++-- | The response's http status code.+describeClusterParameterGroupsResponse_httpStatus :: Lens.Lens' DescribeClusterParameterGroupsResponse Prelude.Int+describeClusterParameterGroupsResponse_httpStatus = Lens.lens (\DescribeClusterParameterGroupsResponse' {httpStatus} -> httpStatus) (\s@DescribeClusterParameterGroupsResponse' {} a -> s {httpStatus = a} :: DescribeClusterParameterGroupsResponse)++instance+ Prelude.NFData+ DescribeClusterParameterGroupsResponse+ where+ rnf DescribeClusterParameterGroupsResponse' {..} =+ Prelude.rnf marker+ `Prelude.seq` Prelude.rnf parameterGroups+ `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/Redshift/DescribeClusterParameters.hs view
@@ -0,0 +1,335 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module : Amazonka.Redshift.DescribeClusterParameters+-- Copyright : (c) 2013-2023 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Returns a detailed list of parameters contained within the specified+-- Amazon Redshift parameter group. For each parameter the response+-- includes information such as parameter name, description, data type,+-- value, whether the parameter value is modifiable, and so on.+--+-- You can specify /source/ filter to retrieve parameters of only specific+-- type. For example, to retrieve parameters that were modified by a user+-- action such as from ModifyClusterParameterGroup, you can specify+-- /source/ equal to /user/.+--+-- For more information about parameters and parameter groups, go to+-- <https://docs.aws.amazon.com/redshift/latest/mgmt/working-with-parameter-groups.html Amazon Redshift Parameter Groups>+-- in the /Amazon Redshift Cluster Management Guide/.+--+-- This operation returns paginated results.+module Amazonka.Redshift.DescribeClusterParameters+ ( -- * Creating a Request+ DescribeClusterParameters (..),+ newDescribeClusterParameters,++ -- * Request Lenses+ describeClusterParameters_marker,+ describeClusterParameters_maxRecords,+ describeClusterParameters_source,+ describeClusterParameters_parameterGroupName,++ -- * Destructuring the Response+ DescribeClusterParametersResponse (..),+ newDescribeClusterParametersResponse,++ -- * Response Lenses+ describeClusterParametersResponse_marker,+ describeClusterParametersResponse_parameters,+ describeClusterParametersResponse_httpStatus,+ )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Redshift.Types+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- |+--+-- /See:/ 'newDescribeClusterParameters' smart constructor.+data DescribeClusterParameters = DescribeClusterParameters'+ { -- | An optional parameter that specifies the starting point to return a set+ -- of response records. When the results of a DescribeClusterParameters+ -- request exceed the value specified in @MaxRecords@, Amazon Web Services+ -- returns a value in the @Marker@ field of the response. You can retrieve+ -- the next set of response records by providing the returned marker value+ -- in the @Marker@ parameter and retrying the request.+ marker :: Prelude.Maybe Prelude.Text,+ -- | The maximum number of response records to return in each call. If the+ -- number of remaining response records exceeds the specified @MaxRecords@+ -- value, a value is returned in a @marker@ field of the response. You can+ -- retrieve the next set of records by retrying the command with the+ -- returned marker value.+ --+ -- Default: @100@+ --+ -- Constraints: minimum 20, maximum 100.+ maxRecords :: Prelude.Maybe Prelude.Int,+ -- | The parameter types to return. Specify @user@ to show parameters that+ -- are different form the default. Similarly, specify @engine-default@ to+ -- show parameters that are the same as the default parameter group.+ --+ -- Default: All parameter types returned.+ --+ -- Valid Values: @user@ | @engine-default@+ source :: Prelude.Maybe Prelude.Text,+ -- | The name of a cluster parameter group for which to return details.+ parameterGroupName :: Prelude.Text+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeClusterParameters' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'marker', 'describeClusterParameters_marker' - An optional parameter that specifies the starting point to return a set+-- of response records. When the results of a DescribeClusterParameters+-- request exceed the value specified in @MaxRecords@, Amazon Web Services+-- returns a value in the @Marker@ field of the response. You can retrieve+-- the next set of response records by providing the returned marker value+-- in the @Marker@ parameter and retrying the request.+--+-- 'maxRecords', 'describeClusterParameters_maxRecords' - The maximum number of response records to return in each call. If the+-- number of remaining response records exceeds the specified @MaxRecords@+-- value, a value is returned in a @marker@ field of the response. You can+-- retrieve the next set of records by retrying the command with the+-- returned marker value.+--+-- Default: @100@+--+-- Constraints: minimum 20, maximum 100.+--+-- 'source', 'describeClusterParameters_source' - The parameter types to return. Specify @user@ to show parameters that+-- are different form the default. Similarly, specify @engine-default@ to+-- show parameters that are the same as the default parameter group.+--+-- Default: All parameter types returned.+--+-- Valid Values: @user@ | @engine-default@+--+-- 'parameterGroupName', 'describeClusterParameters_parameterGroupName' - The name of a cluster parameter group for which to return details.+newDescribeClusterParameters ::+ -- | 'parameterGroupName'+ Prelude.Text ->+ DescribeClusterParameters+newDescribeClusterParameters pParameterGroupName_ =+ DescribeClusterParameters'+ { marker =+ Prelude.Nothing,+ maxRecords = Prelude.Nothing,+ source = Prelude.Nothing,+ parameterGroupName = pParameterGroupName_+ }++-- | An optional parameter that specifies the starting point to return a set+-- of response records. When the results of a DescribeClusterParameters+-- request exceed the value specified in @MaxRecords@, Amazon Web Services+-- returns a value in the @Marker@ field of the response. You can retrieve+-- the next set of response records by providing the returned marker value+-- in the @Marker@ parameter and retrying the request.+describeClusterParameters_marker :: Lens.Lens' DescribeClusterParameters (Prelude.Maybe Prelude.Text)+describeClusterParameters_marker = Lens.lens (\DescribeClusterParameters' {marker} -> marker) (\s@DescribeClusterParameters' {} a -> s {marker = a} :: DescribeClusterParameters)++-- | The maximum number of response records to return in each call. If the+-- number of remaining response records exceeds the specified @MaxRecords@+-- value, a value is returned in a @marker@ field of the response. You can+-- retrieve the next set of records by retrying the command with the+-- returned marker value.+--+-- Default: @100@+--+-- Constraints: minimum 20, maximum 100.+describeClusterParameters_maxRecords :: Lens.Lens' DescribeClusterParameters (Prelude.Maybe Prelude.Int)+describeClusterParameters_maxRecords = Lens.lens (\DescribeClusterParameters' {maxRecords} -> maxRecords) (\s@DescribeClusterParameters' {} a -> s {maxRecords = a} :: DescribeClusterParameters)++-- | The parameter types to return. Specify @user@ to show parameters that+-- are different form the default. Similarly, specify @engine-default@ to+-- show parameters that are the same as the default parameter group.+--+-- Default: All parameter types returned.+--+-- Valid Values: @user@ | @engine-default@+describeClusterParameters_source :: Lens.Lens' DescribeClusterParameters (Prelude.Maybe Prelude.Text)+describeClusterParameters_source = Lens.lens (\DescribeClusterParameters' {source} -> source) (\s@DescribeClusterParameters' {} a -> s {source = a} :: DescribeClusterParameters)++-- | The name of a cluster parameter group for which to return details.+describeClusterParameters_parameterGroupName :: Lens.Lens' DescribeClusterParameters Prelude.Text+describeClusterParameters_parameterGroupName = Lens.lens (\DescribeClusterParameters' {parameterGroupName} -> parameterGroupName) (\s@DescribeClusterParameters' {} a -> s {parameterGroupName = a} :: DescribeClusterParameters)++instance Core.AWSPager DescribeClusterParameters where+ page rq rs+ | Core.stop+ ( rs+ Lens.^? describeClusterParametersResponse_marker+ Prelude.. Lens._Just+ ) =+ Prelude.Nothing+ | Core.stop+ ( rs+ Lens.^? describeClusterParametersResponse_parameters+ Prelude.. Lens._Just+ ) =+ Prelude.Nothing+ | Prelude.otherwise =+ Prelude.Just+ Prelude.$ rq+ Prelude.& describeClusterParameters_marker+ Lens..~ rs+ Lens.^? describeClusterParametersResponse_marker+ Prelude.. Lens._Just++instance Core.AWSRequest DescribeClusterParameters where+ type+ AWSResponse DescribeClusterParameters =+ DescribeClusterParametersResponse+ request overrides =+ Request.postQuery (overrides defaultService)+ response =+ Response.receiveXMLWrapper+ "DescribeClusterParametersResult"+ ( \s h x ->+ DescribeClusterParametersResponse'+ Prelude.<$> (x Data..@? "Marker")+ Prelude.<*> ( x+ Data..@? "Parameters"+ Core..!@ Prelude.mempty+ Prelude.>>= Core.may (Data.parseXMLList "Parameter")+ )+ Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+ )++instance Prelude.Hashable DescribeClusterParameters where+ hashWithSalt _salt DescribeClusterParameters' {..} =+ _salt+ `Prelude.hashWithSalt` marker+ `Prelude.hashWithSalt` maxRecords+ `Prelude.hashWithSalt` source+ `Prelude.hashWithSalt` parameterGroupName++instance Prelude.NFData DescribeClusterParameters where+ rnf DescribeClusterParameters' {..} =+ Prelude.rnf marker+ `Prelude.seq` Prelude.rnf maxRecords+ `Prelude.seq` Prelude.rnf source+ `Prelude.seq` Prelude.rnf parameterGroupName++instance Data.ToHeaders DescribeClusterParameters where+ toHeaders = Prelude.const Prelude.mempty++instance Data.ToPath DescribeClusterParameters where+ toPath = Prelude.const "/"++instance Data.ToQuery DescribeClusterParameters where+ toQuery DescribeClusterParameters' {..} =+ Prelude.mconcat+ [ "Action"+ Data.=: ("DescribeClusterParameters" :: Prelude.ByteString),+ "Version"+ Data.=: ("2012-12-01" :: Prelude.ByteString),+ "Marker" Data.=: marker,+ "MaxRecords" Data.=: maxRecords,+ "Source" Data.=: source,+ "ParameterGroupName" Data.=: parameterGroupName+ ]++-- | Contains the output from the DescribeClusterParameters action.+--+-- /See:/ 'newDescribeClusterParametersResponse' smart constructor.+data DescribeClusterParametersResponse = DescribeClusterParametersResponse'+ { -- | A value that indicates the starting point for the next set of response+ -- records in a subsequent request. If a value is returned in a response,+ -- you can retrieve the next set of records by providing this returned+ -- marker value in the @Marker@ parameter and retrying the command. If the+ -- @Marker@ field is empty, all response records have been retrieved for+ -- the request.+ marker :: Prelude.Maybe Prelude.Text,+ -- | A list of Parameter instances. Each instance lists the parameters of one+ -- cluster parameter group.+ parameters :: Prelude.Maybe [Parameter],+ -- | The response's http status code.+ httpStatus :: Prelude.Int+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeClusterParametersResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'marker', 'describeClusterParametersResponse_marker' - A value that indicates the starting point for the next set of response+-- records in a subsequent request. If a value is returned in a response,+-- you can retrieve the next set of records by providing this returned+-- marker value in the @Marker@ parameter and retrying the command. If the+-- @Marker@ field is empty, all response records have been retrieved for+-- the request.+--+-- 'parameters', 'describeClusterParametersResponse_parameters' - A list of Parameter instances. Each instance lists the parameters of one+-- cluster parameter group.+--+-- 'httpStatus', 'describeClusterParametersResponse_httpStatus' - The response's http status code.+newDescribeClusterParametersResponse ::+ -- | 'httpStatus'+ Prelude.Int ->+ DescribeClusterParametersResponse+newDescribeClusterParametersResponse pHttpStatus_ =+ DescribeClusterParametersResponse'+ { marker =+ Prelude.Nothing,+ parameters = Prelude.Nothing,+ httpStatus = pHttpStatus_+ }++-- | A value that indicates the starting point for the next set of response+-- records in a subsequent request. If a value is returned in a response,+-- you can retrieve the next set of records by providing this returned+-- marker value in the @Marker@ parameter and retrying the command. If the+-- @Marker@ field is empty, all response records have been retrieved for+-- the request.+describeClusterParametersResponse_marker :: Lens.Lens' DescribeClusterParametersResponse (Prelude.Maybe Prelude.Text)+describeClusterParametersResponse_marker = Lens.lens (\DescribeClusterParametersResponse' {marker} -> marker) (\s@DescribeClusterParametersResponse' {} a -> s {marker = a} :: DescribeClusterParametersResponse)++-- | A list of Parameter instances. Each instance lists the parameters of one+-- cluster parameter group.+describeClusterParametersResponse_parameters :: Lens.Lens' DescribeClusterParametersResponse (Prelude.Maybe [Parameter])+describeClusterParametersResponse_parameters = Lens.lens (\DescribeClusterParametersResponse' {parameters} -> parameters) (\s@DescribeClusterParametersResponse' {} a -> s {parameters = a} :: DescribeClusterParametersResponse) Prelude.. Lens.mapping Lens.coerced++-- | The response's http status code.+describeClusterParametersResponse_httpStatus :: Lens.Lens' DescribeClusterParametersResponse Prelude.Int+describeClusterParametersResponse_httpStatus = Lens.lens (\DescribeClusterParametersResponse' {httpStatus} -> httpStatus) (\s@DescribeClusterParametersResponse' {} a -> s {httpStatus = a} :: DescribeClusterParametersResponse)++instance+ Prelude.NFData+ DescribeClusterParametersResponse+ where+ rnf DescribeClusterParametersResponse' {..} =+ Prelude.rnf marker+ `Prelude.seq` Prelude.rnf parameters+ `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/Redshift/DescribeClusterSecurityGroups.hs view
@@ -0,0 +1,396 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module : Amazonka.Redshift.DescribeClusterSecurityGroups+-- Copyright : (c) 2013-2023 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Returns information about Amazon Redshift security groups. If the name+-- of a security group is specified, the response will contain only+-- information about only that security group.+--+-- For information about managing security groups, go to+-- <https://docs.aws.amazon.com/redshift/latest/mgmt/working-with-security-groups.html Amazon Redshift Cluster Security Groups>+-- in the /Amazon Redshift Cluster Management Guide/.+--+-- If you specify both tag keys and tag values in the same request, Amazon+-- Redshift returns all security groups that match any combination of the+-- specified keys and values. For example, if you have @owner@ and+-- @environment@ for tag keys, and @admin@ and @test@ for tag values, all+-- security groups that have any combination of those values are returned.+--+-- If both tag keys and values are omitted from the request, security+-- groups are returned regardless of whether they have tag keys or values+-- associated with them.+--+-- This operation returns paginated results.+module Amazonka.Redshift.DescribeClusterSecurityGroups+ ( -- * Creating a Request+ DescribeClusterSecurityGroups (..),+ newDescribeClusterSecurityGroups,++ -- * Request Lenses+ describeClusterSecurityGroups_clusterSecurityGroupName,+ describeClusterSecurityGroups_marker,+ describeClusterSecurityGroups_maxRecords,+ describeClusterSecurityGroups_tagKeys,+ describeClusterSecurityGroups_tagValues,++ -- * Destructuring the Response+ DescribeClusterSecurityGroupsResponse (..),+ newDescribeClusterSecurityGroupsResponse,++ -- * Response Lenses+ describeClusterSecurityGroupsResponse_clusterSecurityGroups,+ describeClusterSecurityGroupsResponse_marker,+ describeClusterSecurityGroupsResponse_httpStatus,+ )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Redshift.Types+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- |+--+-- /See:/ 'newDescribeClusterSecurityGroups' smart constructor.+data DescribeClusterSecurityGroups = DescribeClusterSecurityGroups'+ { -- | The name of a cluster security group for which you are requesting+ -- details. You can specify either the __Marker__ parameter or a+ -- __ClusterSecurityGroupName__ parameter, but not both.+ --+ -- Example: @securitygroup1@+ clusterSecurityGroupName :: Prelude.Maybe Prelude.Text,+ -- | An optional parameter that specifies the starting point to return a set+ -- of response records. When the results of a DescribeClusterSecurityGroups+ -- request exceed the value specified in @MaxRecords@, Amazon Web Services+ -- returns a value in the @Marker@ field of the response. You can retrieve+ -- the next set of response records by providing the returned marker value+ -- in the @Marker@ parameter and retrying the request.+ --+ -- Constraints: You can specify either the __ClusterSecurityGroupName__+ -- parameter or the __Marker__ parameter, but not both.+ marker :: Prelude.Maybe Prelude.Text,+ -- | The maximum number of response records to return in each call. If the+ -- number of remaining response records exceeds the specified @MaxRecords@+ -- value, a value is returned in a @marker@ field of the response. You can+ -- retrieve the next set of records by retrying the command with the+ -- returned marker value.+ --+ -- Default: @100@+ --+ -- Constraints: minimum 20, maximum 100.+ maxRecords :: Prelude.Maybe Prelude.Int,+ -- | A tag key or keys for which you want to return all matching cluster+ -- security groups that are associated with the specified key or keys. For+ -- example, suppose that you have security groups that are tagged with keys+ -- called @owner@ and @environment@. If you specify both of these tag keys+ -- in the request, Amazon Redshift returns a response with the security+ -- groups that have either or both of these tag keys associated with them.+ tagKeys :: Prelude.Maybe [Prelude.Text],+ -- | A tag value or values for which you want to return all matching cluster+ -- security groups that are associated with the specified tag value or+ -- values. For example, suppose that you have security groups that are+ -- tagged with values called @admin@ and @test@. If you specify both of+ -- these tag values in the request, Amazon Redshift returns a response with+ -- the security groups that have either or both of these tag values+ -- associated with them.+ tagValues :: Prelude.Maybe [Prelude.Text]+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeClusterSecurityGroups' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'clusterSecurityGroupName', 'describeClusterSecurityGroups_clusterSecurityGroupName' - The name of a cluster security group for which you are requesting+-- details. You can specify either the __Marker__ parameter or a+-- __ClusterSecurityGroupName__ parameter, but not both.+--+-- Example: @securitygroup1@+--+-- 'marker', 'describeClusterSecurityGroups_marker' - An optional parameter that specifies the starting point to return a set+-- of response records. When the results of a DescribeClusterSecurityGroups+-- request exceed the value specified in @MaxRecords@, Amazon Web Services+-- returns a value in the @Marker@ field of the response. You can retrieve+-- the next set of response records by providing the returned marker value+-- in the @Marker@ parameter and retrying the request.+--+-- Constraints: You can specify either the __ClusterSecurityGroupName__+-- parameter or the __Marker__ parameter, but not both.+--+-- 'maxRecords', 'describeClusterSecurityGroups_maxRecords' - The maximum number of response records to return in each call. If the+-- number of remaining response records exceeds the specified @MaxRecords@+-- value, a value is returned in a @marker@ field of the response. You can+-- retrieve the next set of records by retrying the command with the+-- returned marker value.+--+-- Default: @100@+--+-- Constraints: minimum 20, maximum 100.+--+-- 'tagKeys', 'describeClusterSecurityGroups_tagKeys' - A tag key or keys for which you want to return all matching cluster+-- security groups that are associated with the specified key or keys. For+-- example, suppose that you have security groups that are tagged with keys+-- called @owner@ and @environment@. If you specify both of these tag keys+-- in the request, Amazon Redshift returns a response with the security+-- groups that have either or both of these tag keys associated with them.+--+-- 'tagValues', 'describeClusterSecurityGroups_tagValues' - A tag value or values for which you want to return all matching cluster+-- security groups that are associated with the specified tag value or+-- values. For example, suppose that you have security groups that are+-- tagged with values called @admin@ and @test@. If you specify both of+-- these tag values in the request, Amazon Redshift returns a response with+-- the security groups that have either or both of these tag values+-- associated with them.+newDescribeClusterSecurityGroups ::+ DescribeClusterSecurityGroups+newDescribeClusterSecurityGroups =+ DescribeClusterSecurityGroups'+ { clusterSecurityGroupName =+ Prelude.Nothing,+ marker = Prelude.Nothing,+ maxRecords = Prelude.Nothing,+ tagKeys = Prelude.Nothing,+ tagValues = Prelude.Nothing+ }++-- | The name of a cluster security group for which you are requesting+-- details. You can specify either the __Marker__ parameter or a+-- __ClusterSecurityGroupName__ parameter, but not both.+--+-- Example: @securitygroup1@+describeClusterSecurityGroups_clusterSecurityGroupName :: Lens.Lens' DescribeClusterSecurityGroups (Prelude.Maybe Prelude.Text)+describeClusterSecurityGroups_clusterSecurityGroupName = Lens.lens (\DescribeClusterSecurityGroups' {clusterSecurityGroupName} -> clusterSecurityGroupName) (\s@DescribeClusterSecurityGroups' {} a -> s {clusterSecurityGroupName = a} :: DescribeClusterSecurityGroups)++-- | An optional parameter that specifies the starting point to return a set+-- of response records. When the results of a DescribeClusterSecurityGroups+-- request exceed the value specified in @MaxRecords@, Amazon Web Services+-- returns a value in the @Marker@ field of the response. You can retrieve+-- the next set of response records by providing the returned marker value+-- in the @Marker@ parameter and retrying the request.+--+-- Constraints: You can specify either the __ClusterSecurityGroupName__+-- parameter or the __Marker__ parameter, but not both.+describeClusterSecurityGroups_marker :: Lens.Lens' DescribeClusterSecurityGroups (Prelude.Maybe Prelude.Text)+describeClusterSecurityGroups_marker = Lens.lens (\DescribeClusterSecurityGroups' {marker} -> marker) (\s@DescribeClusterSecurityGroups' {} a -> s {marker = a} :: DescribeClusterSecurityGroups)++-- | The maximum number of response records to return in each call. If the+-- number of remaining response records exceeds the specified @MaxRecords@+-- value, a value is returned in a @marker@ field of the response. You can+-- retrieve the next set of records by retrying the command with the+-- returned marker value.+--+-- Default: @100@+--+-- Constraints: minimum 20, maximum 100.+describeClusterSecurityGroups_maxRecords :: Lens.Lens' DescribeClusterSecurityGroups (Prelude.Maybe Prelude.Int)+describeClusterSecurityGroups_maxRecords = Lens.lens (\DescribeClusterSecurityGroups' {maxRecords} -> maxRecords) (\s@DescribeClusterSecurityGroups' {} a -> s {maxRecords = a} :: DescribeClusterSecurityGroups)++-- | A tag key or keys for which you want to return all matching cluster+-- security groups that are associated with the specified key or keys. For+-- example, suppose that you have security groups that are tagged with keys+-- called @owner@ and @environment@. If you specify both of these tag keys+-- in the request, Amazon Redshift returns a response with the security+-- groups that have either or both of these tag keys associated with them.+describeClusterSecurityGroups_tagKeys :: Lens.Lens' DescribeClusterSecurityGroups (Prelude.Maybe [Prelude.Text])+describeClusterSecurityGroups_tagKeys = Lens.lens (\DescribeClusterSecurityGroups' {tagKeys} -> tagKeys) (\s@DescribeClusterSecurityGroups' {} a -> s {tagKeys = a} :: DescribeClusterSecurityGroups) Prelude.. Lens.mapping Lens.coerced++-- | A tag value or values for which you want to return all matching cluster+-- security groups that are associated with the specified tag value or+-- values. For example, suppose that you have security groups that are+-- tagged with values called @admin@ and @test@. If you specify both of+-- these tag values in the request, Amazon Redshift returns a response with+-- the security groups that have either or both of these tag values+-- associated with them.+describeClusterSecurityGroups_tagValues :: Lens.Lens' DescribeClusterSecurityGroups (Prelude.Maybe [Prelude.Text])+describeClusterSecurityGroups_tagValues = Lens.lens (\DescribeClusterSecurityGroups' {tagValues} -> tagValues) (\s@DescribeClusterSecurityGroups' {} a -> s {tagValues = a} :: DescribeClusterSecurityGroups) Prelude.. Lens.mapping Lens.coerced++instance Core.AWSPager DescribeClusterSecurityGroups where+ page rq rs+ | Core.stop+ ( rs+ Lens.^? describeClusterSecurityGroupsResponse_marker+ Prelude.. Lens._Just+ ) =+ Prelude.Nothing+ | Core.stop+ ( rs+ Lens.^? describeClusterSecurityGroupsResponse_clusterSecurityGroups+ Prelude.. Lens._Just+ ) =+ Prelude.Nothing+ | Prelude.otherwise =+ Prelude.Just+ Prelude.$ rq+ Prelude.& describeClusterSecurityGroups_marker+ Lens..~ rs+ Lens.^? describeClusterSecurityGroupsResponse_marker+ Prelude.. Lens._Just++instance+ Core.AWSRequest+ DescribeClusterSecurityGroups+ where+ type+ AWSResponse DescribeClusterSecurityGroups =+ DescribeClusterSecurityGroupsResponse+ request overrides =+ Request.postQuery (overrides defaultService)+ response =+ Response.receiveXMLWrapper+ "DescribeClusterSecurityGroupsResult"+ ( \s h x ->+ DescribeClusterSecurityGroupsResponse'+ Prelude.<$> ( x+ Data..@? "ClusterSecurityGroups"+ Core..!@ Prelude.mempty+ Prelude.>>= Core.may (Data.parseXMLList "ClusterSecurityGroup")+ )+ Prelude.<*> (x Data..@? "Marker")+ Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+ )++instance+ Prelude.Hashable+ DescribeClusterSecurityGroups+ where+ hashWithSalt _salt DescribeClusterSecurityGroups' {..} =+ _salt+ `Prelude.hashWithSalt` clusterSecurityGroupName+ `Prelude.hashWithSalt` marker+ `Prelude.hashWithSalt` maxRecords+ `Prelude.hashWithSalt` tagKeys+ `Prelude.hashWithSalt` tagValues++instance Prelude.NFData DescribeClusterSecurityGroups where+ rnf DescribeClusterSecurityGroups' {..} =+ Prelude.rnf clusterSecurityGroupName+ `Prelude.seq` Prelude.rnf marker+ `Prelude.seq` Prelude.rnf maxRecords+ `Prelude.seq` Prelude.rnf tagKeys+ `Prelude.seq` Prelude.rnf tagValues++instance Data.ToHeaders DescribeClusterSecurityGroups where+ toHeaders = Prelude.const Prelude.mempty++instance Data.ToPath DescribeClusterSecurityGroups where+ toPath = Prelude.const "/"++instance Data.ToQuery DescribeClusterSecurityGroups where+ toQuery DescribeClusterSecurityGroups' {..} =+ Prelude.mconcat+ [ "Action"+ Data.=: ( "DescribeClusterSecurityGroups" ::+ Prelude.ByteString+ ),+ "Version"+ Data.=: ("2012-12-01" :: Prelude.ByteString),+ "ClusterSecurityGroupName"+ Data.=: clusterSecurityGroupName,+ "Marker" Data.=: marker,+ "MaxRecords" Data.=: maxRecords,+ "TagKeys"+ Data.=: Data.toQuery+ (Data.toQueryList "TagKey" Prelude.<$> tagKeys),+ "TagValues"+ Data.=: Data.toQuery+ (Data.toQueryList "TagValue" Prelude.<$> tagValues)+ ]++-- |+--+-- /See:/ 'newDescribeClusterSecurityGroupsResponse' smart constructor.+data DescribeClusterSecurityGroupsResponse = DescribeClusterSecurityGroupsResponse'+ { -- | A list of ClusterSecurityGroup instances.+ clusterSecurityGroups :: Prelude.Maybe [ClusterSecurityGroup],+ -- | A value that indicates the starting point for the next set of response+ -- records in a subsequent request. If a value is returned in a response,+ -- you can retrieve the next set of records by providing this returned+ -- marker value in the @Marker@ parameter and retrying the command. If the+ -- @Marker@ field is empty, all response records have been retrieved for+ -- the request.+ marker :: Prelude.Maybe Prelude.Text,+ -- | The response's http status code.+ httpStatus :: Prelude.Int+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeClusterSecurityGroupsResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'clusterSecurityGroups', 'describeClusterSecurityGroupsResponse_clusterSecurityGroups' - A list of ClusterSecurityGroup instances.+--+-- 'marker', 'describeClusterSecurityGroupsResponse_marker' - A value that indicates the starting point for the next set of response+-- records in a subsequent request. If a value is returned in a response,+-- you can retrieve the next set of records by providing this returned+-- marker value in the @Marker@ parameter and retrying the command. If the+-- @Marker@ field is empty, all response records have been retrieved for+-- the request.+--+-- 'httpStatus', 'describeClusterSecurityGroupsResponse_httpStatus' - The response's http status code.+newDescribeClusterSecurityGroupsResponse ::+ -- | 'httpStatus'+ Prelude.Int ->+ DescribeClusterSecurityGroupsResponse+newDescribeClusterSecurityGroupsResponse pHttpStatus_ =+ DescribeClusterSecurityGroupsResponse'+ { clusterSecurityGroups =+ Prelude.Nothing,+ marker = Prelude.Nothing,+ httpStatus = pHttpStatus_+ }++-- | A list of ClusterSecurityGroup instances.+describeClusterSecurityGroupsResponse_clusterSecurityGroups :: Lens.Lens' DescribeClusterSecurityGroupsResponse (Prelude.Maybe [ClusterSecurityGroup])+describeClusterSecurityGroupsResponse_clusterSecurityGroups = Lens.lens (\DescribeClusterSecurityGroupsResponse' {clusterSecurityGroups} -> clusterSecurityGroups) (\s@DescribeClusterSecurityGroupsResponse' {} a -> s {clusterSecurityGroups = a} :: DescribeClusterSecurityGroupsResponse) Prelude.. Lens.mapping Lens.coerced++-- | A value that indicates the starting point for the next set of response+-- records in a subsequent request. If a value is returned in a response,+-- you can retrieve the next set of records by providing this returned+-- marker value in the @Marker@ parameter and retrying the command. If the+-- @Marker@ field is empty, all response records have been retrieved for+-- the request.+describeClusterSecurityGroupsResponse_marker :: Lens.Lens' DescribeClusterSecurityGroupsResponse (Prelude.Maybe Prelude.Text)+describeClusterSecurityGroupsResponse_marker = Lens.lens (\DescribeClusterSecurityGroupsResponse' {marker} -> marker) (\s@DescribeClusterSecurityGroupsResponse' {} a -> s {marker = a} :: DescribeClusterSecurityGroupsResponse)++-- | The response's http status code.+describeClusterSecurityGroupsResponse_httpStatus :: Lens.Lens' DescribeClusterSecurityGroupsResponse Prelude.Int+describeClusterSecurityGroupsResponse_httpStatus = Lens.lens (\DescribeClusterSecurityGroupsResponse' {httpStatus} -> httpStatus) (\s@DescribeClusterSecurityGroupsResponse' {} a -> s {httpStatus = a} :: DescribeClusterSecurityGroupsResponse)++instance+ Prelude.NFData+ DescribeClusterSecurityGroupsResponse+ where+ rnf DescribeClusterSecurityGroupsResponse' {..} =+ Prelude.rnf clusterSecurityGroups+ `Prelude.seq` Prelude.rnf marker+ `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/Redshift/DescribeClusterSnapshots.hs view
@@ -0,0 +1,574 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module : Amazonka.Redshift.DescribeClusterSnapshots+-- Copyright : (c) 2013-2023 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Returns one or more snapshot objects, which contain metadata about your+-- cluster snapshots. By default, this operation returns information about+-- all snapshots of all clusters that are owned by your Amazon Web Services+-- account. No information is returned for snapshots owned by inactive+-- Amazon Web Services accounts.+--+-- If you specify both tag keys and tag values in the same request, Amazon+-- Redshift returns all snapshots that match any combination of the+-- specified keys and values. For example, if you have @owner@ and+-- @environment@ for tag keys, and @admin@ and @test@ for tag values, all+-- snapshots that have any combination of those values are returned. Only+-- snapshots that you own are returned in the response; shared snapshots+-- are not returned with the tag key and tag value request parameters.+--+-- If both tag keys and values are omitted from the request, snapshots are+-- returned regardless of whether they have tag keys or values associated+-- with them.+--+-- This operation returns paginated results.+module Amazonka.Redshift.DescribeClusterSnapshots+ ( -- * Creating a Request+ DescribeClusterSnapshots (..),+ newDescribeClusterSnapshots,++ -- * Request Lenses+ describeClusterSnapshots_clusterExists,+ describeClusterSnapshots_clusterIdentifier,+ describeClusterSnapshots_endTime,+ describeClusterSnapshots_marker,+ describeClusterSnapshots_maxRecords,+ describeClusterSnapshots_ownerAccount,+ describeClusterSnapshots_snapshotArn,+ describeClusterSnapshots_snapshotIdentifier,+ describeClusterSnapshots_snapshotType,+ describeClusterSnapshots_sortingEntities,+ describeClusterSnapshots_startTime,+ describeClusterSnapshots_tagKeys,+ describeClusterSnapshots_tagValues,++ -- * Destructuring the Response+ DescribeClusterSnapshotsResponse (..),+ newDescribeClusterSnapshotsResponse,++ -- * Response Lenses+ describeClusterSnapshotsResponse_marker,+ describeClusterSnapshotsResponse_snapshots,+ describeClusterSnapshotsResponse_httpStatus,+ )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Redshift.Types+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- |+--+-- /See:/ 'newDescribeClusterSnapshots' smart constructor.+data DescribeClusterSnapshots = DescribeClusterSnapshots'+ { -- | A value that indicates whether to return snapshots only for an existing+ -- cluster. You can perform table-level restore only by using a snapshot of+ -- an existing cluster, that is, a cluster that has not been deleted.+ -- Values for this parameter work as follows:+ --+ -- - If @ClusterExists@ is set to @true@, @ClusterIdentifier@ is+ -- required.+ --+ -- - If @ClusterExists@ is set to @false@ and @ClusterIdentifier@ isn\'t+ -- specified, all snapshots associated with deleted clusters (orphaned+ -- snapshots) are returned.+ --+ -- - If @ClusterExists@ is set to @false@ and @ClusterIdentifier@ is+ -- specified for a deleted cluster, snapshots associated with that+ -- cluster are returned.+ --+ -- - If @ClusterExists@ is set to @false@ and @ClusterIdentifier@ is+ -- specified for an existing cluster, no snapshots are returned.+ clusterExists :: Prelude.Maybe Prelude.Bool,+ -- | The identifier of the cluster which generated the requested snapshots.+ clusterIdentifier :: Prelude.Maybe Prelude.Text,+ -- | A time value that requests only snapshots created at or before the+ -- specified time. The time value is specified in ISO 8601 format. For more+ -- information about ISO 8601, go to the+ -- <http://en.wikipedia.org/wiki/ISO_8601 ISO8601 Wikipedia page.>+ --+ -- Example: @2012-07-16T18:00:00Z@+ endTime :: Prelude.Maybe Data.ISO8601,+ -- | An optional parameter that specifies the starting point to return a set+ -- of response records. When the results of a DescribeClusterSnapshots+ -- request exceed the value specified in @MaxRecords@, Amazon Web Services+ -- returns a value in the @Marker@ field of the response. You can retrieve+ -- the next set of response records by providing the returned marker value+ -- in the @Marker@ parameter and retrying the request.+ marker :: Prelude.Maybe Prelude.Text,+ -- | The maximum number of response records to return in each call. If the+ -- number of remaining response records exceeds the specified @MaxRecords@+ -- value, a value is returned in a @marker@ field of the response. You can+ -- retrieve the next set of records by retrying the command with the+ -- returned marker value.+ --+ -- Default: @100@+ --+ -- Constraints: minimum 20, maximum 100.+ maxRecords :: Prelude.Maybe Prelude.Int,+ -- | The Amazon Web Services account used to create or copy the snapshot. Use+ -- this field to filter the results to snapshots owned by a particular+ -- account. To describe snapshots you own, either specify your Amazon Web+ -- Services account, or do not specify the parameter.+ ownerAccount :: Prelude.Maybe Prelude.Text,+ -- | The Amazon Resource Name (ARN) of the snapshot associated with the+ -- message to describe cluster snapshots.+ snapshotArn :: Prelude.Maybe Prelude.Text,+ -- | The snapshot identifier of the snapshot about which to return+ -- information.+ snapshotIdentifier :: Prelude.Maybe Prelude.Text,+ -- | The type of snapshots for which you are requesting information. By+ -- default, snapshots of all types are returned.+ --+ -- Valid Values: @automated@ | @manual@+ snapshotType :: Prelude.Maybe Prelude.Text,+ sortingEntities :: Prelude.Maybe [SnapshotSortingEntity],+ -- | A value that requests only snapshots created at or after the specified+ -- time. The time value is specified in ISO 8601 format. For more+ -- information about ISO 8601, go to the+ -- <http://en.wikipedia.org/wiki/ISO_8601 ISO8601 Wikipedia page.>+ --+ -- Example: @2012-07-16T18:00:00Z@+ startTime :: Prelude.Maybe Data.ISO8601,+ -- | A tag key or keys for which you want to return all matching cluster+ -- snapshots that are associated with the specified key or keys. For+ -- example, suppose that you have snapshots that are tagged with keys+ -- called @owner@ and @environment@. If you specify both of these tag keys+ -- in the request, Amazon Redshift returns a response with the snapshots+ -- that have either or both of these tag keys associated with them.+ tagKeys :: Prelude.Maybe [Prelude.Text],+ -- | A tag value or values for which you want to return all matching cluster+ -- snapshots that are associated with the specified tag value or values.+ -- For example, suppose that you have snapshots that are tagged with values+ -- called @admin@ and @test@. If you specify both of these tag values in+ -- the request, Amazon Redshift returns a response with the snapshots that+ -- have either or both of these tag values associated with them.+ tagValues :: Prelude.Maybe [Prelude.Text]+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeClusterSnapshots' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'clusterExists', 'describeClusterSnapshots_clusterExists' - A value that indicates whether to return snapshots only for an existing+-- cluster. You can perform table-level restore only by using a snapshot of+-- an existing cluster, that is, a cluster that has not been deleted.+-- Values for this parameter work as follows:+--+-- - If @ClusterExists@ is set to @true@, @ClusterIdentifier@ is+-- required.+--+-- - If @ClusterExists@ is set to @false@ and @ClusterIdentifier@ isn\'t+-- specified, all snapshots associated with deleted clusters (orphaned+-- snapshots) are returned.+--+-- - If @ClusterExists@ is set to @false@ and @ClusterIdentifier@ is+-- specified for a deleted cluster, snapshots associated with that+-- cluster are returned.+--+-- - If @ClusterExists@ is set to @false@ and @ClusterIdentifier@ is+-- specified for an existing cluster, no snapshots are returned.+--+-- 'clusterIdentifier', 'describeClusterSnapshots_clusterIdentifier' - The identifier of the cluster which generated the requested snapshots.+--+-- 'endTime', 'describeClusterSnapshots_endTime' - A time value that requests only snapshots created at or before the+-- specified time. The time value is specified in ISO 8601 format. For more+-- information about ISO 8601, go to the+-- <http://en.wikipedia.org/wiki/ISO_8601 ISO8601 Wikipedia page.>+--+-- Example: @2012-07-16T18:00:00Z@+--+-- 'marker', 'describeClusterSnapshots_marker' - An optional parameter that specifies the starting point to return a set+-- of response records. When the results of a DescribeClusterSnapshots+-- request exceed the value specified in @MaxRecords@, Amazon Web Services+-- returns a value in the @Marker@ field of the response. You can retrieve+-- the next set of response records by providing the returned marker value+-- in the @Marker@ parameter and retrying the request.+--+-- 'maxRecords', 'describeClusterSnapshots_maxRecords' - The maximum number of response records to return in each call. If the+-- number of remaining response records exceeds the specified @MaxRecords@+-- value, a value is returned in a @marker@ field of the response. You can+-- retrieve the next set of records by retrying the command with the+-- returned marker value.+--+-- Default: @100@+--+-- Constraints: minimum 20, maximum 100.+--+-- 'ownerAccount', 'describeClusterSnapshots_ownerAccount' - The Amazon Web Services account used to create or copy the snapshot. Use+-- this field to filter the results to snapshots owned by a particular+-- account. To describe snapshots you own, either specify your Amazon Web+-- Services account, or do not specify the parameter.+--+-- 'snapshotArn', 'describeClusterSnapshots_snapshotArn' - The Amazon Resource Name (ARN) of the snapshot associated with the+-- message to describe cluster snapshots.+--+-- 'snapshotIdentifier', 'describeClusterSnapshots_snapshotIdentifier' - The snapshot identifier of the snapshot about which to return+-- information.+--+-- 'snapshotType', 'describeClusterSnapshots_snapshotType' - The type of snapshots for which you are requesting information. By+-- default, snapshots of all types are returned.+--+-- Valid Values: @automated@ | @manual@+--+-- 'sortingEntities', 'describeClusterSnapshots_sortingEntities' -+--+-- 'startTime', 'describeClusterSnapshots_startTime' - A value that requests only snapshots created at or after the specified+-- time. The time value is specified in ISO 8601 format. For more+-- information about ISO 8601, go to the+-- <http://en.wikipedia.org/wiki/ISO_8601 ISO8601 Wikipedia page.>+--+-- Example: @2012-07-16T18:00:00Z@+--+-- 'tagKeys', 'describeClusterSnapshots_tagKeys' - A tag key or keys for which you want to return all matching cluster+-- snapshots that are associated with the specified key or keys. For+-- example, suppose that you have snapshots that are tagged with keys+-- called @owner@ and @environment@. If you specify both of these tag keys+-- in the request, Amazon Redshift returns a response with the snapshots+-- that have either or both of these tag keys associated with them.+--+-- 'tagValues', 'describeClusterSnapshots_tagValues' - A tag value or values for which you want to return all matching cluster+-- snapshots that are associated with the specified tag value or values.+-- For example, suppose that you have snapshots that are tagged with values+-- called @admin@ and @test@. If you specify both of these tag values in+-- the request, Amazon Redshift returns a response with the snapshots that+-- have either or both of these tag values associated with them.+newDescribeClusterSnapshots ::+ DescribeClusterSnapshots+newDescribeClusterSnapshots =+ DescribeClusterSnapshots'+ { clusterExists =+ Prelude.Nothing,+ clusterIdentifier = Prelude.Nothing,+ endTime = Prelude.Nothing,+ marker = Prelude.Nothing,+ maxRecords = Prelude.Nothing,+ ownerAccount = Prelude.Nothing,+ snapshotArn = Prelude.Nothing,+ snapshotIdentifier = Prelude.Nothing,+ snapshotType = Prelude.Nothing,+ sortingEntities = Prelude.Nothing,+ startTime = Prelude.Nothing,+ tagKeys = Prelude.Nothing,+ tagValues = Prelude.Nothing+ }++-- | A value that indicates whether to return snapshots only for an existing+-- cluster. You can perform table-level restore only by using a snapshot of+-- an existing cluster, that is, a cluster that has not been deleted.+-- Values for this parameter work as follows:+--+-- - If @ClusterExists@ is set to @true@, @ClusterIdentifier@ is+-- required.+--+-- - If @ClusterExists@ is set to @false@ and @ClusterIdentifier@ isn\'t+-- specified, all snapshots associated with deleted clusters (orphaned+-- snapshots) are returned.+--+-- - If @ClusterExists@ is set to @false@ and @ClusterIdentifier@ is+-- specified for a deleted cluster, snapshots associated with that+-- cluster are returned.+--+-- - If @ClusterExists@ is set to @false@ and @ClusterIdentifier@ is+-- specified for an existing cluster, no snapshots are returned.+describeClusterSnapshots_clusterExists :: Lens.Lens' DescribeClusterSnapshots (Prelude.Maybe Prelude.Bool)+describeClusterSnapshots_clusterExists = Lens.lens (\DescribeClusterSnapshots' {clusterExists} -> clusterExists) (\s@DescribeClusterSnapshots' {} a -> s {clusterExists = a} :: DescribeClusterSnapshots)++-- | The identifier of the cluster which generated the requested snapshots.+describeClusterSnapshots_clusterIdentifier :: Lens.Lens' DescribeClusterSnapshots (Prelude.Maybe Prelude.Text)+describeClusterSnapshots_clusterIdentifier = Lens.lens (\DescribeClusterSnapshots' {clusterIdentifier} -> clusterIdentifier) (\s@DescribeClusterSnapshots' {} a -> s {clusterIdentifier = a} :: DescribeClusterSnapshots)++-- | A time value that requests only snapshots created at or before the+-- specified time. The time value is specified in ISO 8601 format. For more+-- information about ISO 8601, go to the+-- <http://en.wikipedia.org/wiki/ISO_8601 ISO8601 Wikipedia page.>+--+-- Example: @2012-07-16T18:00:00Z@+describeClusterSnapshots_endTime :: Lens.Lens' DescribeClusterSnapshots (Prelude.Maybe Prelude.UTCTime)+describeClusterSnapshots_endTime = Lens.lens (\DescribeClusterSnapshots' {endTime} -> endTime) (\s@DescribeClusterSnapshots' {} a -> s {endTime = a} :: DescribeClusterSnapshots) Prelude.. Lens.mapping Data._Time++-- | An optional parameter that specifies the starting point to return a set+-- of response records. When the results of a DescribeClusterSnapshots+-- request exceed the value specified in @MaxRecords@, Amazon Web Services+-- returns a value in the @Marker@ field of the response. You can retrieve+-- the next set of response records by providing the returned marker value+-- in the @Marker@ parameter and retrying the request.+describeClusterSnapshots_marker :: Lens.Lens' DescribeClusterSnapshots (Prelude.Maybe Prelude.Text)+describeClusterSnapshots_marker = Lens.lens (\DescribeClusterSnapshots' {marker} -> marker) (\s@DescribeClusterSnapshots' {} a -> s {marker = a} :: DescribeClusterSnapshots)++-- | The maximum number of response records to return in each call. If the+-- number of remaining response records exceeds the specified @MaxRecords@+-- value, a value is returned in a @marker@ field of the response. You can+-- retrieve the next set of records by retrying the command with the+-- returned marker value.+--+-- Default: @100@+--+-- Constraints: minimum 20, maximum 100.+describeClusterSnapshots_maxRecords :: Lens.Lens' DescribeClusterSnapshots (Prelude.Maybe Prelude.Int)+describeClusterSnapshots_maxRecords = Lens.lens (\DescribeClusterSnapshots' {maxRecords} -> maxRecords) (\s@DescribeClusterSnapshots' {} a -> s {maxRecords = a} :: DescribeClusterSnapshots)++-- | The Amazon Web Services account used to create or copy the snapshot. Use+-- this field to filter the results to snapshots owned by a particular+-- account. To describe snapshots you own, either specify your Amazon Web+-- Services account, or do not specify the parameter.+describeClusterSnapshots_ownerAccount :: Lens.Lens' DescribeClusterSnapshots (Prelude.Maybe Prelude.Text)+describeClusterSnapshots_ownerAccount = Lens.lens (\DescribeClusterSnapshots' {ownerAccount} -> ownerAccount) (\s@DescribeClusterSnapshots' {} a -> s {ownerAccount = a} :: DescribeClusterSnapshots)++-- | The Amazon Resource Name (ARN) of the snapshot associated with the+-- message to describe cluster snapshots.+describeClusterSnapshots_snapshotArn :: Lens.Lens' DescribeClusterSnapshots (Prelude.Maybe Prelude.Text)+describeClusterSnapshots_snapshotArn = Lens.lens (\DescribeClusterSnapshots' {snapshotArn} -> snapshotArn) (\s@DescribeClusterSnapshots' {} a -> s {snapshotArn = a} :: DescribeClusterSnapshots)++-- | The snapshot identifier of the snapshot about which to return+-- information.+describeClusterSnapshots_snapshotIdentifier :: Lens.Lens' DescribeClusterSnapshots (Prelude.Maybe Prelude.Text)+describeClusterSnapshots_snapshotIdentifier = Lens.lens (\DescribeClusterSnapshots' {snapshotIdentifier} -> snapshotIdentifier) (\s@DescribeClusterSnapshots' {} a -> s {snapshotIdentifier = a} :: DescribeClusterSnapshots)++-- | The type of snapshots for which you are requesting information. By+-- default, snapshots of all types are returned.+--+-- Valid Values: @automated@ | @manual@+describeClusterSnapshots_snapshotType :: Lens.Lens' DescribeClusterSnapshots (Prelude.Maybe Prelude.Text)+describeClusterSnapshots_snapshotType = Lens.lens (\DescribeClusterSnapshots' {snapshotType} -> snapshotType) (\s@DescribeClusterSnapshots' {} a -> s {snapshotType = a} :: DescribeClusterSnapshots)++describeClusterSnapshots_sortingEntities :: Lens.Lens' DescribeClusterSnapshots (Prelude.Maybe [SnapshotSortingEntity])+describeClusterSnapshots_sortingEntities = Lens.lens (\DescribeClusterSnapshots' {sortingEntities} -> sortingEntities) (\s@DescribeClusterSnapshots' {} a -> s {sortingEntities = a} :: DescribeClusterSnapshots) Prelude.. Lens.mapping Lens.coerced++-- | A value that requests only snapshots created at or after the specified+-- time. The time value is specified in ISO 8601 format. For more+-- information about ISO 8601, go to the+-- <http://en.wikipedia.org/wiki/ISO_8601 ISO8601 Wikipedia page.>+--+-- Example: @2012-07-16T18:00:00Z@+describeClusterSnapshots_startTime :: Lens.Lens' DescribeClusterSnapshots (Prelude.Maybe Prelude.UTCTime)+describeClusterSnapshots_startTime = Lens.lens (\DescribeClusterSnapshots' {startTime} -> startTime) (\s@DescribeClusterSnapshots' {} a -> s {startTime = a} :: DescribeClusterSnapshots) Prelude.. Lens.mapping Data._Time++-- | A tag key or keys for which you want to return all matching cluster+-- snapshots that are associated with the specified key or keys. For+-- example, suppose that you have snapshots that are tagged with keys+-- called @owner@ and @environment@. If you specify both of these tag keys+-- in the request, Amazon Redshift returns a response with the snapshots+-- that have either or both of these tag keys associated with them.+describeClusterSnapshots_tagKeys :: Lens.Lens' DescribeClusterSnapshots (Prelude.Maybe [Prelude.Text])+describeClusterSnapshots_tagKeys = Lens.lens (\DescribeClusterSnapshots' {tagKeys} -> tagKeys) (\s@DescribeClusterSnapshots' {} a -> s {tagKeys = a} :: DescribeClusterSnapshots) Prelude.. Lens.mapping Lens.coerced++-- | A tag value or values for which you want to return all matching cluster+-- snapshots that are associated with the specified tag value or values.+-- For example, suppose that you have snapshots that are tagged with values+-- called @admin@ and @test@. If you specify both of these tag values in+-- the request, Amazon Redshift returns a response with the snapshots that+-- have either or both of these tag values associated with them.+describeClusterSnapshots_tagValues :: Lens.Lens' DescribeClusterSnapshots (Prelude.Maybe [Prelude.Text])+describeClusterSnapshots_tagValues = Lens.lens (\DescribeClusterSnapshots' {tagValues} -> tagValues) (\s@DescribeClusterSnapshots' {} a -> s {tagValues = a} :: DescribeClusterSnapshots) Prelude.. Lens.mapping Lens.coerced++instance Core.AWSPager DescribeClusterSnapshots where+ page rq rs+ | Core.stop+ ( rs+ Lens.^? describeClusterSnapshotsResponse_marker+ Prelude.. Lens._Just+ ) =+ Prelude.Nothing+ | Core.stop+ ( rs+ Lens.^? describeClusterSnapshotsResponse_snapshots+ Prelude.. Lens._Just+ ) =+ Prelude.Nothing+ | Prelude.otherwise =+ Prelude.Just+ Prelude.$ rq+ Prelude.& describeClusterSnapshots_marker+ Lens..~ rs+ Lens.^? describeClusterSnapshotsResponse_marker+ Prelude.. Lens._Just++instance Core.AWSRequest DescribeClusterSnapshots where+ type+ AWSResponse DescribeClusterSnapshots =+ DescribeClusterSnapshotsResponse+ request overrides =+ Request.postQuery (overrides defaultService)+ response =+ Response.receiveXMLWrapper+ "DescribeClusterSnapshotsResult"+ ( \s h x ->+ DescribeClusterSnapshotsResponse'+ Prelude.<$> (x Data..@? "Marker")+ Prelude.<*> ( x+ Data..@? "Snapshots"+ Core..!@ Prelude.mempty+ Prelude.>>= Core.may (Data.parseXMLList "Snapshot")+ )+ Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+ )++instance Prelude.Hashable DescribeClusterSnapshots where+ hashWithSalt _salt DescribeClusterSnapshots' {..} =+ _salt+ `Prelude.hashWithSalt` clusterExists+ `Prelude.hashWithSalt` clusterIdentifier+ `Prelude.hashWithSalt` endTime+ `Prelude.hashWithSalt` marker+ `Prelude.hashWithSalt` maxRecords+ `Prelude.hashWithSalt` ownerAccount+ `Prelude.hashWithSalt` snapshotArn+ `Prelude.hashWithSalt` snapshotIdentifier+ `Prelude.hashWithSalt` snapshotType+ `Prelude.hashWithSalt` sortingEntities+ `Prelude.hashWithSalt` startTime+ `Prelude.hashWithSalt` tagKeys+ `Prelude.hashWithSalt` tagValues++instance Prelude.NFData DescribeClusterSnapshots where+ rnf DescribeClusterSnapshots' {..} =+ Prelude.rnf clusterExists+ `Prelude.seq` Prelude.rnf clusterIdentifier+ `Prelude.seq` Prelude.rnf endTime+ `Prelude.seq` Prelude.rnf marker+ `Prelude.seq` Prelude.rnf maxRecords+ `Prelude.seq` Prelude.rnf ownerAccount+ `Prelude.seq` Prelude.rnf snapshotArn+ `Prelude.seq` Prelude.rnf snapshotIdentifier+ `Prelude.seq` Prelude.rnf snapshotType+ `Prelude.seq` Prelude.rnf sortingEntities+ `Prelude.seq` Prelude.rnf startTime+ `Prelude.seq` Prelude.rnf tagKeys+ `Prelude.seq` Prelude.rnf tagValues++instance Data.ToHeaders DescribeClusterSnapshots where+ toHeaders = Prelude.const Prelude.mempty++instance Data.ToPath DescribeClusterSnapshots where+ toPath = Prelude.const "/"++instance Data.ToQuery DescribeClusterSnapshots where+ toQuery DescribeClusterSnapshots' {..} =+ Prelude.mconcat+ [ "Action"+ Data.=: ("DescribeClusterSnapshots" :: Prelude.ByteString),+ "Version"+ Data.=: ("2012-12-01" :: Prelude.ByteString),+ "ClusterExists" Data.=: clusterExists,+ "ClusterIdentifier" Data.=: clusterIdentifier,+ "EndTime" Data.=: endTime,+ "Marker" Data.=: marker,+ "MaxRecords" Data.=: maxRecords,+ "OwnerAccount" Data.=: ownerAccount,+ "SnapshotArn" Data.=: snapshotArn,+ "SnapshotIdentifier" Data.=: snapshotIdentifier,+ "SnapshotType" Data.=: snapshotType,+ "SortingEntities"+ Data.=: Data.toQuery+ ( Data.toQueryList "SnapshotSortingEntity"+ Prelude.<$> sortingEntities+ ),+ "StartTime" Data.=: startTime,+ "TagKeys"+ Data.=: Data.toQuery+ (Data.toQueryList "TagKey" Prelude.<$> tagKeys),+ "TagValues"+ Data.=: Data.toQuery+ (Data.toQueryList "TagValue" Prelude.<$> tagValues)+ ]++-- | Contains the output from the DescribeClusterSnapshots action.+--+-- /See:/ 'newDescribeClusterSnapshotsResponse' smart constructor.+data DescribeClusterSnapshotsResponse = DescribeClusterSnapshotsResponse'+ { -- | A value that indicates the starting point for the next set of response+ -- records in a subsequent request. If a value is returned in a response,+ -- you can retrieve the next set of records by providing this returned+ -- marker value in the @Marker@ parameter and retrying the command. If the+ -- @Marker@ field is empty, all response records have been retrieved for+ -- the request.+ marker :: Prelude.Maybe Prelude.Text,+ -- | A list of Snapshot instances.+ snapshots :: Prelude.Maybe [Snapshot],+ -- | The response's http status code.+ httpStatus :: Prelude.Int+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeClusterSnapshotsResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'marker', 'describeClusterSnapshotsResponse_marker' - A value that indicates the starting point for the next set of response+-- records in a subsequent request. If a value is returned in a response,+-- you can retrieve the next set of records by providing this returned+-- marker value in the @Marker@ parameter and retrying the command. If the+-- @Marker@ field is empty, all response records have been retrieved for+-- the request.+--+-- 'snapshots', 'describeClusterSnapshotsResponse_snapshots' - A list of Snapshot instances.+--+-- 'httpStatus', 'describeClusterSnapshotsResponse_httpStatus' - The response's http status code.+newDescribeClusterSnapshotsResponse ::+ -- | 'httpStatus'+ Prelude.Int ->+ DescribeClusterSnapshotsResponse+newDescribeClusterSnapshotsResponse pHttpStatus_ =+ DescribeClusterSnapshotsResponse'+ { marker =+ Prelude.Nothing,+ snapshots = Prelude.Nothing,+ httpStatus = pHttpStatus_+ }++-- | A value that indicates the starting point for the next set of response+-- records in a subsequent request. If a value is returned in a response,+-- you can retrieve the next set of records by providing this returned+-- marker value in the @Marker@ parameter and retrying the command. If the+-- @Marker@ field is empty, all response records have been retrieved for+-- the request.+describeClusterSnapshotsResponse_marker :: Lens.Lens' DescribeClusterSnapshotsResponse (Prelude.Maybe Prelude.Text)+describeClusterSnapshotsResponse_marker = Lens.lens (\DescribeClusterSnapshotsResponse' {marker} -> marker) (\s@DescribeClusterSnapshotsResponse' {} a -> s {marker = a} :: DescribeClusterSnapshotsResponse)++-- | A list of Snapshot instances.+describeClusterSnapshotsResponse_snapshots :: Lens.Lens' DescribeClusterSnapshotsResponse (Prelude.Maybe [Snapshot])+describeClusterSnapshotsResponse_snapshots = Lens.lens (\DescribeClusterSnapshotsResponse' {snapshots} -> snapshots) (\s@DescribeClusterSnapshotsResponse' {} a -> s {snapshots = a} :: DescribeClusterSnapshotsResponse) Prelude.. Lens.mapping Lens.coerced++-- | The response's http status code.+describeClusterSnapshotsResponse_httpStatus :: Lens.Lens' DescribeClusterSnapshotsResponse Prelude.Int+describeClusterSnapshotsResponse_httpStatus = Lens.lens (\DescribeClusterSnapshotsResponse' {httpStatus} -> httpStatus) (\s@DescribeClusterSnapshotsResponse' {} a -> s {httpStatus = a} :: DescribeClusterSnapshotsResponse)++instance+ Prelude.NFData+ DescribeClusterSnapshotsResponse+ where+ rnf DescribeClusterSnapshotsResponse' {..} =+ Prelude.rnf marker+ `Prelude.seq` Prelude.rnf snapshots+ `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/Redshift/DescribeClusterSubnetGroups.hs view
@@ -0,0 +1,366 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module : Amazonka.Redshift.DescribeClusterSubnetGroups+-- Copyright : (c) 2013-2023 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Returns one or more cluster subnet group objects, which contain metadata+-- about your cluster subnet groups. By default, this operation returns+-- information about all cluster subnet groups that are defined in your+-- Amazon Web Services account.+--+-- If you specify both tag keys and tag values in the same request, Amazon+-- Redshift returns all subnet groups that match any combination of the+-- specified keys and values. For example, if you have @owner@ and+-- @environment@ for tag keys, and @admin@ and @test@ for tag values, all+-- subnet groups that have any combination of those values are returned.+--+-- If both tag keys and values are omitted from the request, subnet groups+-- are returned regardless of whether they have tag keys or values+-- associated with them.+--+-- This operation returns paginated results.+module Amazonka.Redshift.DescribeClusterSubnetGroups+ ( -- * Creating a Request+ DescribeClusterSubnetGroups (..),+ newDescribeClusterSubnetGroups,++ -- * Request Lenses+ describeClusterSubnetGroups_clusterSubnetGroupName,+ describeClusterSubnetGroups_marker,+ describeClusterSubnetGroups_maxRecords,+ describeClusterSubnetGroups_tagKeys,+ describeClusterSubnetGroups_tagValues,++ -- * Destructuring the Response+ DescribeClusterSubnetGroupsResponse (..),+ newDescribeClusterSubnetGroupsResponse,++ -- * Response Lenses+ describeClusterSubnetGroupsResponse_clusterSubnetGroups,+ describeClusterSubnetGroupsResponse_marker,+ describeClusterSubnetGroupsResponse_httpStatus,+ )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Redshift.Types+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- |+--+-- /See:/ 'newDescribeClusterSubnetGroups' smart constructor.+data DescribeClusterSubnetGroups = DescribeClusterSubnetGroups'+ { -- | The name of the cluster subnet group for which information is requested.+ clusterSubnetGroupName :: Prelude.Maybe Prelude.Text,+ -- | An optional parameter that specifies the starting point to return a set+ -- of response records. When the results of a DescribeClusterSubnetGroups+ -- request exceed the value specified in @MaxRecords@, Amazon Web Services+ -- returns a value in the @Marker@ field of the response. You can retrieve+ -- the next set of response records by providing the returned marker value+ -- in the @Marker@ parameter and retrying the request.+ marker :: Prelude.Maybe Prelude.Text,+ -- | The maximum number of response records to return in each call. If the+ -- number of remaining response records exceeds the specified @MaxRecords@+ -- value, a value is returned in a @marker@ field of the response. You can+ -- retrieve the next set of records by retrying the command with the+ -- returned marker value.+ --+ -- Default: @100@+ --+ -- Constraints: minimum 20, maximum 100.+ maxRecords :: Prelude.Maybe Prelude.Int,+ -- | A tag key or keys for which you want to return all matching cluster+ -- subnet groups that are associated with the specified key or keys. For+ -- example, suppose that you have subnet groups that are tagged with keys+ -- called @owner@ and @environment@. If you specify both of these tag keys+ -- in the request, Amazon Redshift returns a response with the subnet+ -- groups that have either or both of these tag keys associated with them.+ tagKeys :: Prelude.Maybe [Prelude.Text],+ -- | A tag value or values for which you want to return all matching cluster+ -- subnet groups that are associated with the specified tag value or+ -- values. For example, suppose that you have subnet groups that are tagged+ -- with values called @admin@ and @test@. If you specify both of these tag+ -- values in the request, Amazon Redshift returns a response with the+ -- subnet groups that have either or both of these tag values associated+ -- with them.+ tagValues :: Prelude.Maybe [Prelude.Text]+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeClusterSubnetGroups' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'clusterSubnetGroupName', 'describeClusterSubnetGroups_clusterSubnetGroupName' - The name of the cluster subnet group for which information is requested.+--+-- 'marker', 'describeClusterSubnetGroups_marker' - An optional parameter that specifies the starting point to return a set+-- of response records. When the results of a DescribeClusterSubnetGroups+-- request exceed the value specified in @MaxRecords@, Amazon Web Services+-- returns a value in the @Marker@ field of the response. You can retrieve+-- the next set of response records by providing the returned marker value+-- in the @Marker@ parameter and retrying the request.+--+-- 'maxRecords', 'describeClusterSubnetGroups_maxRecords' - The maximum number of response records to return in each call. If the+-- number of remaining response records exceeds the specified @MaxRecords@+-- value, a value is returned in a @marker@ field of the response. You can+-- retrieve the next set of records by retrying the command with the+-- returned marker value.+--+-- Default: @100@+--+-- Constraints: minimum 20, maximum 100.+--+-- 'tagKeys', 'describeClusterSubnetGroups_tagKeys' - A tag key or keys for which you want to return all matching cluster+-- subnet groups that are associated with the specified key or keys. For+-- example, suppose that you have subnet groups that are tagged with keys+-- called @owner@ and @environment@. If you specify both of these tag keys+-- in the request, Amazon Redshift returns a response with the subnet+-- groups that have either or both of these tag keys associated with them.+--+-- 'tagValues', 'describeClusterSubnetGroups_tagValues' - A tag value or values for which you want to return all matching cluster+-- subnet groups that are associated with the specified tag value or+-- values. For example, suppose that you have subnet groups that are tagged+-- with values called @admin@ and @test@. If you specify both of these tag+-- values in the request, Amazon Redshift returns a response with the+-- subnet groups that have either or both of these tag values associated+-- with them.+newDescribeClusterSubnetGroups ::+ DescribeClusterSubnetGroups+newDescribeClusterSubnetGroups =+ DescribeClusterSubnetGroups'+ { clusterSubnetGroupName =+ Prelude.Nothing,+ marker = Prelude.Nothing,+ maxRecords = Prelude.Nothing,+ tagKeys = Prelude.Nothing,+ tagValues = Prelude.Nothing+ }++-- | The name of the cluster subnet group for which information is requested.+describeClusterSubnetGroups_clusterSubnetGroupName :: Lens.Lens' DescribeClusterSubnetGroups (Prelude.Maybe Prelude.Text)+describeClusterSubnetGroups_clusterSubnetGroupName = Lens.lens (\DescribeClusterSubnetGroups' {clusterSubnetGroupName} -> clusterSubnetGroupName) (\s@DescribeClusterSubnetGroups' {} a -> s {clusterSubnetGroupName = a} :: DescribeClusterSubnetGroups)++-- | An optional parameter that specifies the starting point to return a set+-- of response records. When the results of a DescribeClusterSubnetGroups+-- request exceed the value specified in @MaxRecords@, Amazon Web Services+-- returns a value in the @Marker@ field of the response. You can retrieve+-- the next set of response records by providing the returned marker value+-- in the @Marker@ parameter and retrying the request.+describeClusterSubnetGroups_marker :: Lens.Lens' DescribeClusterSubnetGroups (Prelude.Maybe Prelude.Text)+describeClusterSubnetGroups_marker = Lens.lens (\DescribeClusterSubnetGroups' {marker} -> marker) (\s@DescribeClusterSubnetGroups' {} a -> s {marker = a} :: DescribeClusterSubnetGroups)++-- | The maximum number of response records to return in each call. If the+-- number of remaining response records exceeds the specified @MaxRecords@+-- value, a value is returned in a @marker@ field of the response. You can+-- retrieve the next set of records by retrying the command with the+-- returned marker value.+--+-- Default: @100@+--+-- Constraints: minimum 20, maximum 100.+describeClusterSubnetGroups_maxRecords :: Lens.Lens' DescribeClusterSubnetGroups (Prelude.Maybe Prelude.Int)+describeClusterSubnetGroups_maxRecords = Lens.lens (\DescribeClusterSubnetGroups' {maxRecords} -> maxRecords) (\s@DescribeClusterSubnetGroups' {} a -> s {maxRecords = a} :: DescribeClusterSubnetGroups)++-- | A tag key or keys for which you want to return all matching cluster+-- subnet groups that are associated with the specified key or keys. For+-- example, suppose that you have subnet groups that are tagged with keys+-- called @owner@ and @environment@. If you specify both of these tag keys+-- in the request, Amazon Redshift returns a response with the subnet+-- groups that have either or both of these tag keys associated with them.+describeClusterSubnetGroups_tagKeys :: Lens.Lens' DescribeClusterSubnetGroups (Prelude.Maybe [Prelude.Text])+describeClusterSubnetGroups_tagKeys = Lens.lens (\DescribeClusterSubnetGroups' {tagKeys} -> tagKeys) (\s@DescribeClusterSubnetGroups' {} a -> s {tagKeys = a} :: DescribeClusterSubnetGroups) Prelude.. Lens.mapping Lens.coerced++-- | A tag value or values for which you want to return all matching cluster+-- subnet groups that are associated with the specified tag value or+-- values. For example, suppose that you have subnet groups that are tagged+-- with values called @admin@ and @test@. If you specify both of these tag+-- values in the request, Amazon Redshift returns a response with the+-- subnet groups that have either or both of these tag values associated+-- with them.+describeClusterSubnetGroups_tagValues :: Lens.Lens' DescribeClusterSubnetGroups (Prelude.Maybe [Prelude.Text])+describeClusterSubnetGroups_tagValues = Lens.lens (\DescribeClusterSubnetGroups' {tagValues} -> tagValues) (\s@DescribeClusterSubnetGroups' {} a -> s {tagValues = a} :: DescribeClusterSubnetGroups) Prelude.. Lens.mapping Lens.coerced++instance Core.AWSPager DescribeClusterSubnetGroups where+ page rq rs+ | Core.stop+ ( rs+ Lens.^? describeClusterSubnetGroupsResponse_marker+ Prelude.. Lens._Just+ ) =+ Prelude.Nothing+ | Core.stop+ ( rs+ Lens.^? describeClusterSubnetGroupsResponse_clusterSubnetGroups+ Prelude.. Lens._Just+ ) =+ Prelude.Nothing+ | Prelude.otherwise =+ Prelude.Just+ Prelude.$ rq+ Prelude.& describeClusterSubnetGroups_marker+ Lens..~ rs+ Lens.^? describeClusterSubnetGroupsResponse_marker+ Prelude.. Lens._Just++instance Core.AWSRequest DescribeClusterSubnetGroups where+ type+ AWSResponse DescribeClusterSubnetGroups =+ DescribeClusterSubnetGroupsResponse+ request overrides =+ Request.postQuery (overrides defaultService)+ response =+ Response.receiveXMLWrapper+ "DescribeClusterSubnetGroupsResult"+ ( \s h x ->+ DescribeClusterSubnetGroupsResponse'+ Prelude.<$> ( x+ Data..@? "ClusterSubnetGroups"+ Core..!@ Prelude.mempty+ Prelude.>>= Core.may (Data.parseXMLList "ClusterSubnetGroup")+ )+ Prelude.<*> (x Data..@? "Marker")+ Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+ )++instance Prelude.Hashable DescribeClusterSubnetGroups where+ hashWithSalt _salt DescribeClusterSubnetGroups' {..} =+ _salt+ `Prelude.hashWithSalt` clusterSubnetGroupName+ `Prelude.hashWithSalt` marker+ `Prelude.hashWithSalt` maxRecords+ `Prelude.hashWithSalt` tagKeys+ `Prelude.hashWithSalt` tagValues++instance Prelude.NFData DescribeClusterSubnetGroups where+ rnf DescribeClusterSubnetGroups' {..} =+ Prelude.rnf clusterSubnetGroupName+ `Prelude.seq` Prelude.rnf marker+ `Prelude.seq` Prelude.rnf maxRecords+ `Prelude.seq` Prelude.rnf tagKeys+ `Prelude.seq` Prelude.rnf tagValues++instance Data.ToHeaders DescribeClusterSubnetGroups where+ toHeaders = Prelude.const Prelude.mempty++instance Data.ToPath DescribeClusterSubnetGroups where+ toPath = Prelude.const "/"++instance Data.ToQuery DescribeClusterSubnetGroups where+ toQuery DescribeClusterSubnetGroups' {..} =+ Prelude.mconcat+ [ "Action"+ Data.=: ( "DescribeClusterSubnetGroups" ::+ Prelude.ByteString+ ),+ "Version"+ Data.=: ("2012-12-01" :: Prelude.ByteString),+ "ClusterSubnetGroupName"+ Data.=: clusterSubnetGroupName,+ "Marker" Data.=: marker,+ "MaxRecords" Data.=: maxRecords,+ "TagKeys"+ Data.=: Data.toQuery+ (Data.toQueryList "TagKey" Prelude.<$> tagKeys),+ "TagValues"+ Data.=: Data.toQuery+ (Data.toQueryList "TagValue" Prelude.<$> tagValues)+ ]++-- | Contains the output from the DescribeClusterSubnetGroups action.+--+-- /See:/ 'newDescribeClusterSubnetGroupsResponse' smart constructor.+data DescribeClusterSubnetGroupsResponse = DescribeClusterSubnetGroupsResponse'+ { -- | A list of ClusterSubnetGroup instances.+ clusterSubnetGroups :: Prelude.Maybe [ClusterSubnetGroup],+ -- | A value that indicates the starting point for the next set of response+ -- records in a subsequent request. If a value is returned in a response,+ -- you can retrieve the next set of records by providing this returned+ -- marker value in the @Marker@ parameter and retrying the command. If the+ -- @Marker@ field is empty, all response records have been retrieved for+ -- the request.+ marker :: Prelude.Maybe Prelude.Text,+ -- | The response's http status code.+ httpStatus :: Prelude.Int+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeClusterSubnetGroupsResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'clusterSubnetGroups', 'describeClusterSubnetGroupsResponse_clusterSubnetGroups' - A list of ClusterSubnetGroup instances.+--+-- 'marker', 'describeClusterSubnetGroupsResponse_marker' - A value that indicates the starting point for the next set of response+-- records in a subsequent request. If a value is returned in a response,+-- you can retrieve the next set of records by providing this returned+-- marker value in the @Marker@ parameter and retrying the command. If the+-- @Marker@ field is empty, all response records have been retrieved for+-- the request.+--+-- 'httpStatus', 'describeClusterSubnetGroupsResponse_httpStatus' - The response's http status code.+newDescribeClusterSubnetGroupsResponse ::+ -- | 'httpStatus'+ Prelude.Int ->+ DescribeClusterSubnetGroupsResponse+newDescribeClusterSubnetGroupsResponse pHttpStatus_ =+ DescribeClusterSubnetGroupsResponse'+ { clusterSubnetGroups =+ Prelude.Nothing,+ marker = Prelude.Nothing,+ httpStatus = pHttpStatus_+ }++-- | A list of ClusterSubnetGroup instances.+describeClusterSubnetGroupsResponse_clusterSubnetGroups :: Lens.Lens' DescribeClusterSubnetGroupsResponse (Prelude.Maybe [ClusterSubnetGroup])+describeClusterSubnetGroupsResponse_clusterSubnetGroups = Lens.lens (\DescribeClusterSubnetGroupsResponse' {clusterSubnetGroups} -> clusterSubnetGroups) (\s@DescribeClusterSubnetGroupsResponse' {} a -> s {clusterSubnetGroups = a} :: DescribeClusterSubnetGroupsResponse) Prelude.. Lens.mapping Lens.coerced++-- | A value that indicates the starting point for the next set of response+-- records in a subsequent request. If a value is returned in a response,+-- you can retrieve the next set of records by providing this returned+-- marker value in the @Marker@ parameter and retrying the command. If the+-- @Marker@ field is empty, all response records have been retrieved for+-- the request.+describeClusterSubnetGroupsResponse_marker :: Lens.Lens' DescribeClusterSubnetGroupsResponse (Prelude.Maybe Prelude.Text)+describeClusterSubnetGroupsResponse_marker = Lens.lens (\DescribeClusterSubnetGroupsResponse' {marker} -> marker) (\s@DescribeClusterSubnetGroupsResponse' {} a -> s {marker = a} :: DescribeClusterSubnetGroupsResponse)++-- | The response's http status code.+describeClusterSubnetGroupsResponse_httpStatus :: Lens.Lens' DescribeClusterSubnetGroupsResponse Prelude.Int+describeClusterSubnetGroupsResponse_httpStatus = Lens.lens (\DescribeClusterSubnetGroupsResponse' {httpStatus} -> httpStatus) (\s@DescribeClusterSubnetGroupsResponse' {} a -> s {httpStatus = a} :: DescribeClusterSubnetGroupsResponse)++instance+ Prelude.NFData+ DescribeClusterSubnetGroupsResponse+ where+ rnf DescribeClusterSubnetGroupsResponse' {..} =+ Prelude.rnf clusterSubnetGroups+ `Prelude.seq` Prelude.rnf marker+ `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/Redshift/DescribeClusterTracks.hs view
@@ -0,0 +1,250 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module : Amazonka.Redshift.DescribeClusterTracks+-- Copyright : (c) 2013-2023 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Returns a list of all the available maintenance tracks.+--+-- This operation returns paginated results.+module Amazonka.Redshift.DescribeClusterTracks+ ( -- * Creating a Request+ DescribeClusterTracks (..),+ newDescribeClusterTracks,++ -- * Request Lenses+ describeClusterTracks_maintenanceTrackName,+ describeClusterTracks_marker,+ describeClusterTracks_maxRecords,++ -- * Destructuring the Response+ DescribeClusterTracksResponse (..),+ newDescribeClusterTracksResponse,++ -- * Response Lenses+ describeClusterTracksResponse_maintenanceTracks,+ describeClusterTracksResponse_marker,+ describeClusterTracksResponse_httpStatus,+ )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Redshift.Types+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newDescribeClusterTracks' smart constructor.+data DescribeClusterTracks = DescribeClusterTracks'+ { -- | The name of the maintenance track.+ maintenanceTrackName :: Prelude.Maybe Prelude.Text,+ -- | An optional parameter that specifies the starting point to return a set+ -- of response records. When the results of a @DescribeClusterTracks@+ -- request exceed the value specified in @MaxRecords@, Amazon Redshift+ -- returns a value in the @Marker@ field of the response. You can retrieve+ -- the next set of response records by providing the returned marker value+ -- in the @Marker@ parameter and retrying the request.+ marker :: Prelude.Maybe Prelude.Text,+ -- | An integer value for the maximum number of maintenance tracks to return.+ maxRecords :: Prelude.Maybe Prelude.Int+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeClusterTracks' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'maintenanceTrackName', 'describeClusterTracks_maintenanceTrackName' - The name of the maintenance track.+--+-- 'marker', 'describeClusterTracks_marker' - An optional parameter that specifies the starting point to return a set+-- of response records. When the results of a @DescribeClusterTracks@+-- request exceed the value specified in @MaxRecords@, Amazon Redshift+-- returns a value in the @Marker@ field of the response. You can retrieve+-- the next set of response records by providing the returned marker value+-- in the @Marker@ parameter and retrying the request.+--+-- 'maxRecords', 'describeClusterTracks_maxRecords' - An integer value for the maximum number of maintenance tracks to return.+newDescribeClusterTracks ::+ DescribeClusterTracks+newDescribeClusterTracks =+ DescribeClusterTracks'+ { maintenanceTrackName =+ Prelude.Nothing,+ marker = Prelude.Nothing,+ maxRecords = Prelude.Nothing+ }++-- | The name of the maintenance track.+describeClusterTracks_maintenanceTrackName :: Lens.Lens' DescribeClusterTracks (Prelude.Maybe Prelude.Text)+describeClusterTracks_maintenanceTrackName = Lens.lens (\DescribeClusterTracks' {maintenanceTrackName} -> maintenanceTrackName) (\s@DescribeClusterTracks' {} a -> s {maintenanceTrackName = a} :: DescribeClusterTracks)++-- | An optional parameter that specifies the starting point to return a set+-- of response records. When the results of a @DescribeClusterTracks@+-- request exceed the value specified in @MaxRecords@, Amazon Redshift+-- returns a value in the @Marker@ field of the response. You can retrieve+-- the next set of response records by providing the returned marker value+-- in the @Marker@ parameter and retrying the request.+describeClusterTracks_marker :: Lens.Lens' DescribeClusterTracks (Prelude.Maybe Prelude.Text)+describeClusterTracks_marker = Lens.lens (\DescribeClusterTracks' {marker} -> marker) (\s@DescribeClusterTracks' {} a -> s {marker = a} :: DescribeClusterTracks)++-- | An integer value for the maximum number of maintenance tracks to return.+describeClusterTracks_maxRecords :: Lens.Lens' DescribeClusterTracks (Prelude.Maybe Prelude.Int)+describeClusterTracks_maxRecords = Lens.lens (\DescribeClusterTracks' {maxRecords} -> maxRecords) (\s@DescribeClusterTracks' {} a -> s {maxRecords = a} :: DescribeClusterTracks)++instance Core.AWSPager DescribeClusterTracks where+ page rq rs+ | Core.stop+ ( rs+ Lens.^? describeClusterTracksResponse_marker+ Prelude.. Lens._Just+ ) =+ Prelude.Nothing+ | Core.stop+ ( rs+ Lens.^? describeClusterTracksResponse_maintenanceTracks+ Prelude.. Lens._Just+ ) =+ Prelude.Nothing+ | Prelude.otherwise =+ Prelude.Just+ Prelude.$ rq+ Prelude.& describeClusterTracks_marker+ Lens..~ rs+ Lens.^? describeClusterTracksResponse_marker+ Prelude.. Lens._Just++instance Core.AWSRequest DescribeClusterTracks where+ type+ AWSResponse DescribeClusterTracks =+ DescribeClusterTracksResponse+ request overrides =+ Request.postQuery (overrides defaultService)+ response =+ Response.receiveXMLWrapper+ "DescribeClusterTracksResult"+ ( \s h x ->+ DescribeClusterTracksResponse'+ Prelude.<$> ( x+ Data..@? "MaintenanceTracks"+ Core..!@ Prelude.mempty+ Prelude.>>= Core.may (Data.parseXMLList "MaintenanceTrack")+ )+ Prelude.<*> (x Data..@? "Marker")+ Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+ )++instance Prelude.Hashable DescribeClusterTracks where+ hashWithSalt _salt DescribeClusterTracks' {..} =+ _salt+ `Prelude.hashWithSalt` maintenanceTrackName+ `Prelude.hashWithSalt` marker+ `Prelude.hashWithSalt` maxRecords++instance Prelude.NFData DescribeClusterTracks where+ rnf DescribeClusterTracks' {..} =+ Prelude.rnf maintenanceTrackName+ `Prelude.seq` Prelude.rnf marker+ `Prelude.seq` Prelude.rnf maxRecords++instance Data.ToHeaders DescribeClusterTracks where+ toHeaders = Prelude.const Prelude.mempty++instance Data.ToPath DescribeClusterTracks where+ toPath = Prelude.const "/"++instance Data.ToQuery DescribeClusterTracks where+ toQuery DescribeClusterTracks' {..} =+ Prelude.mconcat+ [ "Action"+ Data.=: ("DescribeClusterTracks" :: Prelude.ByteString),+ "Version"+ Data.=: ("2012-12-01" :: Prelude.ByteString),+ "MaintenanceTrackName" Data.=: maintenanceTrackName,+ "Marker" Data.=: marker,+ "MaxRecords" Data.=: maxRecords+ ]++-- | /See:/ 'newDescribeClusterTracksResponse' smart constructor.+data DescribeClusterTracksResponse = DescribeClusterTracksResponse'+ { -- | A list of maintenance tracks output by the @DescribeClusterTracks@+ -- operation.+ maintenanceTracks :: Prelude.Maybe [MaintenanceTrack],+ -- | The starting point to return a set of response tracklist records. You+ -- can retrieve the next set of response records by providing the returned+ -- marker value in the @Marker@ parameter and retrying the request.+ marker :: Prelude.Maybe Prelude.Text,+ -- | The response's http status code.+ httpStatus :: Prelude.Int+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeClusterTracksResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'maintenanceTracks', 'describeClusterTracksResponse_maintenanceTracks' - A list of maintenance tracks output by the @DescribeClusterTracks@+-- operation.+--+-- 'marker', 'describeClusterTracksResponse_marker' - The starting point to return a set of response tracklist records. You+-- can retrieve the next set of response records by providing the returned+-- marker value in the @Marker@ parameter and retrying the request.+--+-- 'httpStatus', 'describeClusterTracksResponse_httpStatus' - The response's http status code.+newDescribeClusterTracksResponse ::+ -- | 'httpStatus'+ Prelude.Int ->+ DescribeClusterTracksResponse+newDescribeClusterTracksResponse pHttpStatus_ =+ DescribeClusterTracksResponse'+ { maintenanceTracks =+ Prelude.Nothing,+ marker = Prelude.Nothing,+ httpStatus = pHttpStatus_+ }++-- | A list of maintenance tracks output by the @DescribeClusterTracks@+-- operation.+describeClusterTracksResponse_maintenanceTracks :: Lens.Lens' DescribeClusterTracksResponse (Prelude.Maybe [MaintenanceTrack])+describeClusterTracksResponse_maintenanceTracks = Lens.lens (\DescribeClusterTracksResponse' {maintenanceTracks} -> maintenanceTracks) (\s@DescribeClusterTracksResponse' {} a -> s {maintenanceTracks = a} :: DescribeClusterTracksResponse) Prelude.. Lens.mapping Lens.coerced++-- | The starting point to return a set of response tracklist records. You+-- can retrieve the next set of response records by providing the returned+-- marker value in the @Marker@ parameter and retrying the request.+describeClusterTracksResponse_marker :: Lens.Lens' DescribeClusterTracksResponse (Prelude.Maybe Prelude.Text)+describeClusterTracksResponse_marker = Lens.lens (\DescribeClusterTracksResponse' {marker} -> marker) (\s@DescribeClusterTracksResponse' {} a -> s {marker = a} :: DescribeClusterTracksResponse)++-- | The response's http status code.+describeClusterTracksResponse_httpStatus :: Lens.Lens' DescribeClusterTracksResponse Prelude.Int+describeClusterTracksResponse_httpStatus = Lens.lens (\DescribeClusterTracksResponse' {httpStatus} -> httpStatus) (\s@DescribeClusterTracksResponse' {} a -> s {httpStatus = a} :: DescribeClusterTracksResponse)++instance Prelude.NFData DescribeClusterTracksResponse where+ rnf DescribeClusterTracksResponse' {..} =+ Prelude.rnf maintenanceTracks+ `Prelude.seq` Prelude.rnf marker+ `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/Redshift/DescribeClusterVersions.hs view
@@ -0,0 +1,339 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module : Amazonka.Redshift.DescribeClusterVersions+-- Copyright : (c) 2013-2023 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Returns descriptions of the available Amazon Redshift cluster versions.+-- You can call this operation even before creating any clusters to learn+-- more about the Amazon Redshift versions. For more information about+-- managing clusters, go to+-- <https://docs.aws.amazon.com/redshift/latest/mgmt/working-with-clusters.html Amazon Redshift Clusters>+-- in the /Amazon Redshift Cluster Management Guide/.+--+-- This operation returns paginated results.+module Amazonka.Redshift.DescribeClusterVersions+ ( -- * Creating a Request+ DescribeClusterVersions (..),+ newDescribeClusterVersions,++ -- * Request Lenses+ describeClusterVersions_clusterParameterGroupFamily,+ describeClusterVersions_clusterVersion,+ describeClusterVersions_marker,+ describeClusterVersions_maxRecords,++ -- * Destructuring the Response+ DescribeClusterVersionsResponse (..),+ newDescribeClusterVersionsResponse,++ -- * Response Lenses+ describeClusterVersionsResponse_clusterVersions,+ describeClusterVersionsResponse_marker,+ describeClusterVersionsResponse_httpStatus,+ )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Redshift.Types+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- |+--+-- /See:/ 'newDescribeClusterVersions' smart constructor.+data DescribeClusterVersions = DescribeClusterVersions'+ { -- | The name of a specific cluster parameter group family to return details+ -- for.+ --+ -- Constraints:+ --+ -- - Must be 1 to 255 alphanumeric characters+ --+ -- - First character must be a letter+ --+ -- - Cannot end with a hyphen or contain two consecutive hyphens+ clusterParameterGroupFamily :: Prelude.Maybe Prelude.Text,+ -- | The specific cluster version to return.+ --+ -- Example: @1.0@+ clusterVersion :: Prelude.Maybe Prelude.Text,+ -- | An optional parameter that specifies the starting point to return a set+ -- of response records. When the results of a DescribeClusterVersions+ -- request exceed the value specified in @MaxRecords@, Amazon Web Services+ -- returns a value in the @Marker@ field of the response. You can retrieve+ -- the next set of response records by providing the returned marker value+ -- in the @Marker@ parameter and retrying the request.+ marker :: Prelude.Maybe Prelude.Text,+ -- | The maximum number of response records to return in each call. If the+ -- number of remaining response records exceeds the specified @MaxRecords@+ -- value, a value is returned in a @marker@ field of the response. You can+ -- retrieve the next set of records by retrying the command with the+ -- returned marker value.+ --+ -- Default: @100@+ --+ -- Constraints: minimum 20, maximum 100.+ maxRecords :: Prelude.Maybe Prelude.Int+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeClusterVersions' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'clusterParameterGroupFamily', 'describeClusterVersions_clusterParameterGroupFamily' - The name of a specific cluster parameter group family to return details+-- for.+--+-- Constraints:+--+-- - Must be 1 to 255 alphanumeric characters+--+-- - First character must be a letter+--+-- - Cannot end with a hyphen or contain two consecutive hyphens+--+-- 'clusterVersion', 'describeClusterVersions_clusterVersion' - The specific cluster version to return.+--+-- Example: @1.0@+--+-- 'marker', 'describeClusterVersions_marker' - An optional parameter that specifies the starting point to return a set+-- of response records. When the results of a DescribeClusterVersions+-- request exceed the value specified in @MaxRecords@, Amazon Web Services+-- returns a value in the @Marker@ field of the response. You can retrieve+-- the next set of response records by providing the returned marker value+-- in the @Marker@ parameter and retrying the request.+--+-- 'maxRecords', 'describeClusterVersions_maxRecords' - The maximum number of response records to return in each call. If the+-- number of remaining response records exceeds the specified @MaxRecords@+-- value, a value is returned in a @marker@ field of the response. You can+-- retrieve the next set of records by retrying the command with the+-- returned marker value.+--+-- Default: @100@+--+-- Constraints: minimum 20, maximum 100.+newDescribeClusterVersions ::+ DescribeClusterVersions+newDescribeClusterVersions =+ DescribeClusterVersions'+ { clusterParameterGroupFamily =+ Prelude.Nothing,+ clusterVersion = Prelude.Nothing,+ marker = Prelude.Nothing,+ maxRecords = Prelude.Nothing+ }++-- | The name of a specific cluster parameter group family to return details+-- for.+--+-- Constraints:+--+-- - Must be 1 to 255 alphanumeric characters+--+-- - First character must be a letter+--+-- - Cannot end with a hyphen or contain two consecutive hyphens+describeClusterVersions_clusterParameterGroupFamily :: Lens.Lens' DescribeClusterVersions (Prelude.Maybe Prelude.Text)+describeClusterVersions_clusterParameterGroupFamily = Lens.lens (\DescribeClusterVersions' {clusterParameterGroupFamily} -> clusterParameterGroupFamily) (\s@DescribeClusterVersions' {} a -> s {clusterParameterGroupFamily = a} :: DescribeClusterVersions)++-- | The specific cluster version to return.+--+-- Example: @1.0@+describeClusterVersions_clusterVersion :: Lens.Lens' DescribeClusterVersions (Prelude.Maybe Prelude.Text)+describeClusterVersions_clusterVersion = Lens.lens (\DescribeClusterVersions' {clusterVersion} -> clusterVersion) (\s@DescribeClusterVersions' {} a -> s {clusterVersion = a} :: DescribeClusterVersions)++-- | An optional parameter that specifies the starting point to return a set+-- of response records. When the results of a DescribeClusterVersions+-- request exceed the value specified in @MaxRecords@, Amazon Web Services+-- returns a value in the @Marker@ field of the response. You can retrieve+-- the next set of response records by providing the returned marker value+-- in the @Marker@ parameter and retrying the request.+describeClusterVersions_marker :: Lens.Lens' DescribeClusterVersions (Prelude.Maybe Prelude.Text)+describeClusterVersions_marker = Lens.lens (\DescribeClusterVersions' {marker} -> marker) (\s@DescribeClusterVersions' {} a -> s {marker = a} :: DescribeClusterVersions)++-- | The maximum number of response records to return in each call. If the+-- number of remaining response records exceeds the specified @MaxRecords@+-- value, a value is returned in a @marker@ field of the response. You can+-- retrieve the next set of records by retrying the command with the+-- returned marker value.+--+-- Default: @100@+--+-- Constraints: minimum 20, maximum 100.+describeClusterVersions_maxRecords :: Lens.Lens' DescribeClusterVersions (Prelude.Maybe Prelude.Int)+describeClusterVersions_maxRecords = Lens.lens (\DescribeClusterVersions' {maxRecords} -> maxRecords) (\s@DescribeClusterVersions' {} a -> s {maxRecords = a} :: DescribeClusterVersions)++instance Core.AWSPager DescribeClusterVersions where+ page rq rs+ | Core.stop+ ( rs+ Lens.^? describeClusterVersionsResponse_marker+ Prelude.. Lens._Just+ ) =+ Prelude.Nothing+ | Core.stop+ ( rs+ Lens.^? describeClusterVersionsResponse_clusterVersions+ Prelude.. Lens._Just+ ) =+ Prelude.Nothing+ | Prelude.otherwise =+ Prelude.Just+ Prelude.$ rq+ Prelude.& describeClusterVersions_marker+ Lens..~ rs+ Lens.^? describeClusterVersionsResponse_marker+ Prelude.. Lens._Just++instance Core.AWSRequest DescribeClusterVersions where+ type+ AWSResponse DescribeClusterVersions =+ DescribeClusterVersionsResponse+ request overrides =+ Request.postQuery (overrides defaultService)+ response =+ Response.receiveXMLWrapper+ "DescribeClusterVersionsResult"+ ( \s h x ->+ DescribeClusterVersionsResponse'+ Prelude.<$> ( x+ Data..@? "ClusterVersions"+ Core..!@ Prelude.mempty+ Prelude.>>= Core.may (Data.parseXMLList "ClusterVersion")+ )+ Prelude.<*> (x Data..@? "Marker")+ Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+ )++instance Prelude.Hashable DescribeClusterVersions where+ hashWithSalt _salt DescribeClusterVersions' {..} =+ _salt+ `Prelude.hashWithSalt` clusterParameterGroupFamily+ `Prelude.hashWithSalt` clusterVersion+ `Prelude.hashWithSalt` marker+ `Prelude.hashWithSalt` maxRecords++instance Prelude.NFData DescribeClusterVersions where+ rnf DescribeClusterVersions' {..} =+ Prelude.rnf clusterParameterGroupFamily+ `Prelude.seq` Prelude.rnf clusterVersion+ `Prelude.seq` Prelude.rnf marker+ `Prelude.seq` Prelude.rnf maxRecords++instance Data.ToHeaders DescribeClusterVersions where+ toHeaders = Prelude.const Prelude.mempty++instance Data.ToPath DescribeClusterVersions where+ toPath = Prelude.const "/"++instance Data.ToQuery DescribeClusterVersions where+ toQuery DescribeClusterVersions' {..} =+ Prelude.mconcat+ [ "Action"+ Data.=: ("DescribeClusterVersions" :: Prelude.ByteString),+ "Version"+ Data.=: ("2012-12-01" :: Prelude.ByteString),+ "ClusterParameterGroupFamily"+ Data.=: clusterParameterGroupFamily,+ "ClusterVersion" Data.=: clusterVersion,+ "Marker" Data.=: marker,+ "MaxRecords" Data.=: maxRecords+ ]++-- | Contains the output from the DescribeClusterVersions action.+--+-- /See:/ 'newDescribeClusterVersionsResponse' smart constructor.+data DescribeClusterVersionsResponse = DescribeClusterVersionsResponse'+ { -- | A list of @Version@ elements.+ clusterVersions :: Prelude.Maybe [ClusterVersion],+ -- | A value that indicates the starting point for the next set of response+ -- records in a subsequent request. If a value is returned in a response,+ -- you can retrieve the next set of records by providing this returned+ -- marker value in the @Marker@ parameter and retrying the command. If the+ -- @Marker@ field is empty, all response records have been retrieved for+ -- the request.+ marker :: Prelude.Maybe Prelude.Text,+ -- | The response's http status code.+ httpStatus :: Prelude.Int+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeClusterVersionsResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'clusterVersions', 'describeClusterVersionsResponse_clusterVersions' - A list of @Version@ elements.+--+-- 'marker', 'describeClusterVersionsResponse_marker' - A value that indicates the starting point for the next set of response+-- records in a subsequent request. If a value is returned in a response,+-- you can retrieve the next set of records by providing this returned+-- marker value in the @Marker@ parameter and retrying the command. If the+-- @Marker@ field is empty, all response records have been retrieved for+-- the request.+--+-- 'httpStatus', 'describeClusterVersionsResponse_httpStatus' - The response's http status code.+newDescribeClusterVersionsResponse ::+ -- | 'httpStatus'+ Prelude.Int ->+ DescribeClusterVersionsResponse+newDescribeClusterVersionsResponse pHttpStatus_ =+ DescribeClusterVersionsResponse'+ { clusterVersions =+ Prelude.Nothing,+ marker = Prelude.Nothing,+ httpStatus = pHttpStatus_+ }++-- | A list of @Version@ elements.+describeClusterVersionsResponse_clusterVersions :: Lens.Lens' DescribeClusterVersionsResponse (Prelude.Maybe [ClusterVersion])+describeClusterVersionsResponse_clusterVersions = Lens.lens (\DescribeClusterVersionsResponse' {clusterVersions} -> clusterVersions) (\s@DescribeClusterVersionsResponse' {} a -> s {clusterVersions = a} :: DescribeClusterVersionsResponse) Prelude.. Lens.mapping Lens.coerced++-- | A value that indicates the starting point for the next set of response+-- records in a subsequent request. If a value is returned in a response,+-- you can retrieve the next set of records by providing this returned+-- marker value in the @Marker@ parameter and retrying the command. If the+-- @Marker@ field is empty, all response records have been retrieved for+-- the request.+describeClusterVersionsResponse_marker :: Lens.Lens' DescribeClusterVersionsResponse (Prelude.Maybe Prelude.Text)+describeClusterVersionsResponse_marker = Lens.lens (\DescribeClusterVersionsResponse' {marker} -> marker) (\s@DescribeClusterVersionsResponse' {} a -> s {marker = a} :: DescribeClusterVersionsResponse)++-- | The response's http status code.+describeClusterVersionsResponse_httpStatus :: Lens.Lens' DescribeClusterVersionsResponse Prelude.Int+describeClusterVersionsResponse_httpStatus = Lens.lens (\DescribeClusterVersionsResponse' {httpStatus} -> httpStatus) (\s@DescribeClusterVersionsResponse' {} a -> s {httpStatus = a} :: DescribeClusterVersionsResponse)++instance+ Prelude.NFData+ DescribeClusterVersionsResponse+ where+ rnf DescribeClusterVersionsResponse' {..} =+ Prelude.rnf clusterVersions+ `Prelude.seq` Prelude.rnf marker+ `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/Redshift/DescribeClusters.hs view
@@ -0,0 +1,377 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module : Amazonka.Redshift.DescribeClusters+-- Copyright : (c) 2013-2023 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Returns properties of provisioned clusters including general cluster+-- properties, cluster database properties, maintenance and backup+-- properties, and security and access properties. This operation supports+-- pagination. For more information about managing clusters, go to+-- <https://docs.aws.amazon.com/redshift/latest/mgmt/working-with-clusters.html Amazon Redshift Clusters>+-- in the /Amazon Redshift Cluster Management Guide/.+--+-- If you specify both tag keys and tag values in the same request, Amazon+-- Redshift returns all clusters that match any combination of the+-- specified keys and values. For example, if you have @owner@ and+-- @environment@ for tag keys, and @admin@ and @test@ for tag values, all+-- clusters that have any combination of those values are returned.+--+-- If both tag keys and values are omitted from the request, clusters are+-- returned regardless of whether they have tag keys or values associated+-- with them.+--+-- This operation returns paginated results.+module Amazonka.Redshift.DescribeClusters+ ( -- * Creating a Request+ DescribeClusters (..),+ newDescribeClusters,++ -- * Request Lenses+ describeClusters_clusterIdentifier,+ describeClusters_marker,+ describeClusters_maxRecords,+ describeClusters_tagKeys,+ describeClusters_tagValues,++ -- * Destructuring the Response+ DescribeClustersResponse (..),+ newDescribeClustersResponse,++ -- * Response Lenses+ describeClustersResponse_clusters,+ describeClustersResponse_marker,+ describeClustersResponse_httpStatus,+ )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Redshift.Types+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- |+--+-- /See:/ 'newDescribeClusters' smart constructor.+data DescribeClusters = DescribeClusters'+ { -- | The unique identifier of a cluster whose properties you are requesting.+ -- This parameter is case sensitive.+ --+ -- The default is that all clusters defined for an account are returned.+ clusterIdentifier :: Prelude.Maybe Prelude.Text,+ -- | An optional parameter that specifies the starting point to return a set+ -- of response records. When the results of a DescribeClusters request+ -- exceed the value specified in @MaxRecords@, Amazon Web Services returns+ -- a value in the @Marker@ field of the response. You can retrieve the next+ -- set of response records by providing the returned marker value in the+ -- @Marker@ parameter and retrying the request.+ --+ -- Constraints: You can specify either the __ClusterIdentifier__ parameter+ -- or the __Marker__ parameter, but not both.+ marker :: Prelude.Maybe Prelude.Text,+ -- | The maximum number of response records to return in each call. If the+ -- number of remaining response records exceeds the specified @MaxRecords@+ -- value, a value is returned in a @marker@ field of the response. You can+ -- retrieve the next set of records by retrying the command with the+ -- returned marker value.+ --+ -- Default: @100@+ --+ -- Constraints: minimum 20, maximum 100.+ maxRecords :: Prelude.Maybe Prelude.Int,+ -- | A tag key or keys for which you want to return all matching clusters+ -- that are associated with the specified key or keys. For example, suppose+ -- that you have clusters that are tagged with keys called @owner@ and+ -- @environment@. If you specify both of these tag keys in the request,+ -- Amazon Redshift returns a response with the clusters that have either or+ -- both of these tag keys associated with them.+ tagKeys :: Prelude.Maybe [Prelude.Text],+ -- | A tag value or values for which you want to return all matching clusters+ -- that are associated with the specified tag value or values. For example,+ -- suppose that you have clusters that are tagged with values called+ -- @admin@ and @test@. If you specify both of these tag values in the+ -- request, Amazon Redshift returns a response with the clusters that have+ -- either or both of these tag values associated with them.+ tagValues :: Prelude.Maybe [Prelude.Text]+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeClusters' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'clusterIdentifier', 'describeClusters_clusterIdentifier' - The unique identifier of a cluster whose properties you are requesting.+-- This parameter is case sensitive.+--+-- The default is that all clusters defined for an account are returned.+--+-- 'marker', 'describeClusters_marker' - An optional parameter that specifies the starting point to return a set+-- of response records. When the results of a DescribeClusters request+-- exceed the value specified in @MaxRecords@, Amazon Web Services returns+-- a value in the @Marker@ field of the response. You can retrieve the next+-- set of response records by providing the returned marker value in the+-- @Marker@ parameter and retrying the request.+--+-- Constraints: You can specify either the __ClusterIdentifier__ parameter+-- or the __Marker__ parameter, but not both.+--+-- 'maxRecords', 'describeClusters_maxRecords' - The maximum number of response records to return in each call. If the+-- number of remaining response records exceeds the specified @MaxRecords@+-- value, a value is returned in a @marker@ field of the response. You can+-- retrieve the next set of records by retrying the command with the+-- returned marker value.+--+-- Default: @100@+--+-- Constraints: minimum 20, maximum 100.+--+-- 'tagKeys', 'describeClusters_tagKeys' - A tag key or keys for which you want to return all matching clusters+-- that are associated with the specified key or keys. For example, suppose+-- that you have clusters that are tagged with keys called @owner@ and+-- @environment@. If you specify both of these tag keys in the request,+-- Amazon Redshift returns a response with the clusters that have either or+-- both of these tag keys associated with them.+--+-- 'tagValues', 'describeClusters_tagValues' - A tag value or values for which you want to return all matching clusters+-- that are associated with the specified tag value or values. For example,+-- suppose that you have clusters that are tagged with values called+-- @admin@ and @test@. If you specify both of these tag values in the+-- request, Amazon Redshift returns a response with the clusters that have+-- either or both of these tag values associated with them.+newDescribeClusters ::+ DescribeClusters+newDescribeClusters =+ DescribeClusters'+ { clusterIdentifier =+ Prelude.Nothing,+ marker = Prelude.Nothing,+ maxRecords = Prelude.Nothing,+ tagKeys = Prelude.Nothing,+ tagValues = Prelude.Nothing+ }++-- | The unique identifier of a cluster whose properties you are requesting.+-- This parameter is case sensitive.+--+-- The default is that all clusters defined for an account are returned.+describeClusters_clusterIdentifier :: Lens.Lens' DescribeClusters (Prelude.Maybe Prelude.Text)+describeClusters_clusterIdentifier = Lens.lens (\DescribeClusters' {clusterIdentifier} -> clusterIdentifier) (\s@DescribeClusters' {} a -> s {clusterIdentifier = a} :: DescribeClusters)++-- | An optional parameter that specifies the starting point to return a set+-- of response records. When the results of a DescribeClusters request+-- exceed the value specified in @MaxRecords@, Amazon Web Services returns+-- a value in the @Marker@ field of the response. You can retrieve the next+-- set of response records by providing the returned marker value in the+-- @Marker@ parameter and retrying the request.+--+-- Constraints: You can specify either the __ClusterIdentifier__ parameter+-- or the __Marker__ parameter, but not both.+describeClusters_marker :: Lens.Lens' DescribeClusters (Prelude.Maybe Prelude.Text)+describeClusters_marker = Lens.lens (\DescribeClusters' {marker} -> marker) (\s@DescribeClusters' {} a -> s {marker = a} :: DescribeClusters)++-- | The maximum number of response records to return in each call. If the+-- number of remaining response records exceeds the specified @MaxRecords@+-- value, a value is returned in a @marker@ field of the response. You can+-- retrieve the next set of records by retrying the command with the+-- returned marker value.+--+-- Default: @100@+--+-- Constraints: minimum 20, maximum 100.+describeClusters_maxRecords :: Lens.Lens' DescribeClusters (Prelude.Maybe Prelude.Int)+describeClusters_maxRecords = Lens.lens (\DescribeClusters' {maxRecords} -> maxRecords) (\s@DescribeClusters' {} a -> s {maxRecords = a} :: DescribeClusters)++-- | A tag key or keys for which you want to return all matching clusters+-- that are associated with the specified key or keys. For example, suppose+-- that you have clusters that are tagged with keys called @owner@ and+-- @environment@. If you specify both of these tag keys in the request,+-- Amazon Redshift returns a response with the clusters that have either or+-- both of these tag keys associated with them.+describeClusters_tagKeys :: Lens.Lens' DescribeClusters (Prelude.Maybe [Prelude.Text])+describeClusters_tagKeys = Lens.lens (\DescribeClusters' {tagKeys} -> tagKeys) (\s@DescribeClusters' {} a -> s {tagKeys = a} :: DescribeClusters) Prelude.. Lens.mapping Lens.coerced++-- | A tag value or values for which you want to return all matching clusters+-- that are associated with the specified tag value or values. For example,+-- suppose that you have clusters that are tagged with values called+-- @admin@ and @test@. If you specify both of these tag values in the+-- request, Amazon Redshift returns a response with the clusters that have+-- either or both of these tag values associated with them.+describeClusters_tagValues :: Lens.Lens' DescribeClusters (Prelude.Maybe [Prelude.Text])+describeClusters_tagValues = Lens.lens (\DescribeClusters' {tagValues} -> tagValues) (\s@DescribeClusters' {} a -> s {tagValues = a} :: DescribeClusters) Prelude.. Lens.mapping Lens.coerced++instance Core.AWSPager DescribeClusters where+ page rq rs+ | Core.stop+ ( rs+ Lens.^? describeClustersResponse_marker+ Prelude.. Lens._Just+ ) =+ Prelude.Nothing+ | Core.stop+ ( rs+ Lens.^? describeClustersResponse_clusters+ Prelude.. Lens._Just+ ) =+ Prelude.Nothing+ | Prelude.otherwise =+ Prelude.Just+ Prelude.$ rq+ Prelude.& describeClusters_marker+ Lens..~ rs+ Lens.^? describeClustersResponse_marker+ Prelude.. Lens._Just++instance Core.AWSRequest DescribeClusters where+ type+ AWSResponse DescribeClusters =+ DescribeClustersResponse+ request overrides =+ Request.postQuery (overrides defaultService)+ response =+ Response.receiveXMLWrapper+ "DescribeClustersResult"+ ( \s h x ->+ DescribeClustersResponse'+ Prelude.<$> ( x+ Data..@? "Clusters"+ Core..!@ Prelude.mempty+ Prelude.>>= Core.may (Data.parseXMLList "Cluster")+ )+ Prelude.<*> (x Data..@? "Marker")+ Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+ )++instance Prelude.Hashable DescribeClusters where+ hashWithSalt _salt DescribeClusters' {..} =+ _salt+ `Prelude.hashWithSalt` clusterIdentifier+ `Prelude.hashWithSalt` marker+ `Prelude.hashWithSalt` maxRecords+ `Prelude.hashWithSalt` tagKeys+ `Prelude.hashWithSalt` tagValues++instance Prelude.NFData DescribeClusters where+ rnf DescribeClusters' {..} =+ Prelude.rnf clusterIdentifier+ `Prelude.seq` Prelude.rnf marker+ `Prelude.seq` Prelude.rnf maxRecords+ `Prelude.seq` Prelude.rnf tagKeys+ `Prelude.seq` Prelude.rnf tagValues++instance Data.ToHeaders DescribeClusters where+ toHeaders = Prelude.const Prelude.mempty++instance Data.ToPath DescribeClusters where+ toPath = Prelude.const "/"++instance Data.ToQuery DescribeClusters where+ toQuery DescribeClusters' {..} =+ Prelude.mconcat+ [ "Action"+ Data.=: ("DescribeClusters" :: Prelude.ByteString),+ "Version"+ Data.=: ("2012-12-01" :: Prelude.ByteString),+ "ClusterIdentifier" Data.=: clusterIdentifier,+ "Marker" Data.=: marker,+ "MaxRecords" Data.=: maxRecords,+ "TagKeys"+ Data.=: Data.toQuery+ (Data.toQueryList "TagKey" Prelude.<$> tagKeys),+ "TagValues"+ Data.=: Data.toQuery+ (Data.toQueryList "TagValue" Prelude.<$> tagValues)+ ]++-- | Contains the output from the DescribeClusters action.+--+-- /See:/ 'newDescribeClustersResponse' smart constructor.+data DescribeClustersResponse = DescribeClustersResponse'+ { -- | A list of @Cluster@ objects, where each object describes one cluster.+ clusters :: Prelude.Maybe [Cluster],+ -- | A value that indicates the starting point for the next set of response+ -- records in a subsequent request. If a value is returned in a response,+ -- you can retrieve the next set of records by providing this returned+ -- marker value in the @Marker@ parameter and retrying the command. If the+ -- @Marker@ field is empty, all response records have been retrieved for+ -- the request.+ marker :: Prelude.Maybe Prelude.Text,+ -- | The response's http status code.+ httpStatus :: Prelude.Int+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeClustersResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'clusters', 'describeClustersResponse_clusters' - A list of @Cluster@ objects, where each object describes one cluster.+--+-- 'marker', 'describeClustersResponse_marker' - A value that indicates the starting point for the next set of response+-- records in a subsequent request. If a value is returned in a response,+-- you can retrieve the next set of records by providing this returned+-- marker value in the @Marker@ parameter and retrying the command. If the+-- @Marker@ field is empty, all response records have been retrieved for+-- the request.+--+-- 'httpStatus', 'describeClustersResponse_httpStatus' - The response's http status code.+newDescribeClustersResponse ::+ -- | 'httpStatus'+ Prelude.Int ->+ DescribeClustersResponse+newDescribeClustersResponse pHttpStatus_ =+ DescribeClustersResponse'+ { clusters =+ Prelude.Nothing,+ marker = Prelude.Nothing,+ httpStatus = pHttpStatus_+ }++-- | A list of @Cluster@ objects, where each object describes one cluster.+describeClustersResponse_clusters :: Lens.Lens' DescribeClustersResponse (Prelude.Maybe [Cluster])+describeClustersResponse_clusters = Lens.lens (\DescribeClustersResponse' {clusters} -> clusters) (\s@DescribeClustersResponse' {} a -> s {clusters = a} :: DescribeClustersResponse) Prelude.. Lens.mapping Lens.coerced++-- | A value that indicates the starting point for the next set of response+-- records in a subsequent request. If a value is returned in a response,+-- you can retrieve the next set of records by providing this returned+-- marker value in the @Marker@ parameter and retrying the command. If the+-- @Marker@ field is empty, all response records have been retrieved for+-- the request.+describeClustersResponse_marker :: Lens.Lens' DescribeClustersResponse (Prelude.Maybe Prelude.Text)+describeClustersResponse_marker = Lens.lens (\DescribeClustersResponse' {marker} -> marker) (\s@DescribeClustersResponse' {} a -> s {marker = a} :: DescribeClustersResponse)++-- | The response's http status code.+describeClustersResponse_httpStatus :: Lens.Lens' DescribeClustersResponse Prelude.Int+describeClustersResponse_httpStatus = Lens.lens (\DescribeClustersResponse' {httpStatus} -> httpStatus) (\s@DescribeClustersResponse' {} a -> s {httpStatus = a} :: DescribeClustersResponse)++instance Prelude.NFData DescribeClustersResponse where+ rnf DescribeClustersResponse' {..} =+ Prelude.rnf clusters+ `Prelude.seq` Prelude.rnf marker+ `Prelude.seq` Prelude.rnf httpStatus
@@ -0,0 +1,268 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module : Amazonka.Redshift.DescribeDataShares+-- Copyright : (c) 2013-2023 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Shows the status of any inbound or outbound datashares available in the+-- specified account.+--+-- This operation returns paginated results.+module Amazonka.Redshift.DescribeDataShares+ ( -- * Creating a Request+ DescribeDataShares (..),+ newDescribeDataShares,++ -- * Request Lenses+ describeDataShares_dataShareArn,+ describeDataShares_marker,+ describeDataShares_maxRecords,++ -- * Destructuring the Response+ DescribeDataSharesResponse (..),+ newDescribeDataSharesResponse,++ -- * Response Lenses+ describeDataSharesResponse_dataShares,+ describeDataSharesResponse_marker,+ describeDataSharesResponse_httpStatus,+ )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Redshift.Types+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newDescribeDataShares' smart constructor.+data DescribeDataShares = DescribeDataShares'+ { -- | The identifier of the datashare to describe details of.+ dataShareArn :: Prelude.Maybe Prelude.Text,+ -- | An optional parameter that specifies the starting point to return a set+ -- of response records. When the results of a DescribeDataShares request+ -- exceed the value specified in @MaxRecords@, Amazon Web Services returns+ -- a value in the @Marker@ field of the response. You can retrieve the next+ -- set of response records by providing the returned marker value in the+ -- @Marker@ parameter and retrying the request.+ marker :: Prelude.Maybe Prelude.Text,+ -- | The maximum number of response records to return in each call. If the+ -- number of remaining response records exceeds the specified @MaxRecords@+ -- value, a value is returned in a @marker@ field of the response. You can+ -- retrieve the next set of records by retrying the command with the+ -- returned marker value.+ maxRecords :: Prelude.Maybe Prelude.Int+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeDataShares' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'dataShareArn', 'describeDataShares_dataShareArn' - The identifier of the datashare to describe details of.+--+-- 'marker', 'describeDataShares_marker' - An optional parameter that specifies the starting point to return a set+-- of response records. When the results of a DescribeDataShares request+-- exceed the value specified in @MaxRecords@, Amazon Web Services returns+-- a value in the @Marker@ field of the response. You can retrieve the next+-- set of response records by providing the returned marker value in the+-- @Marker@ parameter and retrying the request.+--+-- 'maxRecords', 'describeDataShares_maxRecords' - The maximum number of response records to return in each call. If the+-- number of remaining response records exceeds the specified @MaxRecords@+-- value, a value is returned in a @marker@ field of the response. You can+-- retrieve the next set of records by retrying the command with the+-- returned marker value.+newDescribeDataShares ::+ DescribeDataShares+newDescribeDataShares =+ DescribeDataShares'+ { dataShareArn = Prelude.Nothing,+ marker = Prelude.Nothing,+ maxRecords = Prelude.Nothing+ }++-- | The identifier of the datashare to describe details of.+describeDataShares_dataShareArn :: Lens.Lens' DescribeDataShares (Prelude.Maybe Prelude.Text)+describeDataShares_dataShareArn = Lens.lens (\DescribeDataShares' {dataShareArn} -> dataShareArn) (\s@DescribeDataShares' {} a -> s {dataShareArn = a} :: DescribeDataShares)++-- | An optional parameter that specifies the starting point to return a set+-- of response records. When the results of a DescribeDataShares request+-- exceed the value specified in @MaxRecords@, Amazon Web Services returns+-- a value in the @Marker@ field of the response. You can retrieve the next+-- set of response records by providing the returned marker value in the+-- @Marker@ parameter and retrying the request.+describeDataShares_marker :: Lens.Lens' DescribeDataShares (Prelude.Maybe Prelude.Text)+describeDataShares_marker = Lens.lens (\DescribeDataShares' {marker} -> marker) (\s@DescribeDataShares' {} a -> s {marker = a} :: DescribeDataShares)++-- | The maximum number of response records to return in each call. If the+-- number of remaining response records exceeds the specified @MaxRecords@+-- value, a value is returned in a @marker@ field of the response. You can+-- retrieve the next set of records by retrying the command with the+-- returned marker value.+describeDataShares_maxRecords :: Lens.Lens' DescribeDataShares (Prelude.Maybe Prelude.Int)+describeDataShares_maxRecords = Lens.lens (\DescribeDataShares' {maxRecords} -> maxRecords) (\s@DescribeDataShares' {} a -> s {maxRecords = a} :: DescribeDataShares)++instance Core.AWSPager DescribeDataShares where+ page rq rs+ | Core.stop+ ( rs+ Lens.^? describeDataSharesResponse_marker+ Prelude.. Lens._Just+ ) =+ Prelude.Nothing+ | Core.stop+ ( rs+ Lens.^? describeDataSharesResponse_dataShares+ Prelude.. Lens._Just+ ) =+ Prelude.Nothing+ | Prelude.otherwise =+ Prelude.Just+ Prelude.$ rq+ Prelude.& describeDataShares_marker+ Lens..~ rs+ Lens.^? describeDataSharesResponse_marker+ Prelude.. Lens._Just++instance Core.AWSRequest DescribeDataShares where+ type+ AWSResponse DescribeDataShares =+ DescribeDataSharesResponse+ request overrides =+ Request.postQuery (overrides defaultService)+ response =+ Response.receiveXMLWrapper+ "DescribeDataSharesResult"+ ( \s h x ->+ DescribeDataSharesResponse'+ Prelude.<$> ( x+ Data..@? "DataShares"+ Core..!@ Prelude.mempty+ Prelude.>>= Core.may (Data.parseXMLList "member")+ )+ Prelude.<*> (x Data..@? "Marker")+ Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+ )++instance Prelude.Hashable DescribeDataShares where+ hashWithSalt _salt DescribeDataShares' {..} =+ _salt+ `Prelude.hashWithSalt` dataShareArn+ `Prelude.hashWithSalt` marker+ `Prelude.hashWithSalt` maxRecords++instance Prelude.NFData DescribeDataShares where+ rnf DescribeDataShares' {..} =+ Prelude.rnf dataShareArn+ `Prelude.seq` Prelude.rnf marker+ `Prelude.seq` Prelude.rnf maxRecords++instance Data.ToHeaders DescribeDataShares where+ toHeaders = Prelude.const Prelude.mempty++instance Data.ToPath DescribeDataShares where+ toPath = Prelude.const "/"++instance Data.ToQuery DescribeDataShares where+ toQuery DescribeDataShares' {..} =+ Prelude.mconcat+ [ "Action"+ Data.=: ("DescribeDataShares" :: Prelude.ByteString),+ "Version"+ Data.=: ("2012-12-01" :: Prelude.ByteString),+ "DataShareArn" Data.=: dataShareArn,+ "Marker" Data.=: marker,+ "MaxRecords" Data.=: maxRecords+ ]++-- | /See:/ 'newDescribeDataSharesResponse' smart constructor.+data DescribeDataSharesResponse = DescribeDataSharesResponse'+ { -- | The results returned from describing datashares.+ dataShares :: Prelude.Maybe [DataShare],+ -- | An optional parameter that specifies the starting point to return a set+ -- of response records. When the results of a DescribeDataShares request+ -- exceed the value specified in @MaxRecords@, Amazon Web Services returns+ -- a value in the @Marker@ field of the response. You can retrieve the next+ -- set of response records by providing the returned marker value in the+ -- @Marker@ parameter and retrying the request.+ marker :: Prelude.Maybe Prelude.Text,+ -- | The response's http status code.+ httpStatus :: Prelude.Int+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeDataSharesResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'dataShares', 'describeDataSharesResponse_dataShares' - The results returned from describing datashares.+--+-- 'marker', 'describeDataSharesResponse_marker' - An optional parameter that specifies the starting point to return a set+-- of response records. When the results of a DescribeDataShares request+-- exceed the value specified in @MaxRecords@, Amazon Web Services returns+-- a value in the @Marker@ field of the response. You can retrieve the next+-- set of response records by providing the returned marker value in the+-- @Marker@ parameter and retrying the request.+--+-- 'httpStatus', 'describeDataSharesResponse_httpStatus' - The response's http status code.+newDescribeDataSharesResponse ::+ -- | 'httpStatus'+ Prelude.Int ->+ DescribeDataSharesResponse+newDescribeDataSharesResponse pHttpStatus_ =+ DescribeDataSharesResponse'+ { dataShares =+ Prelude.Nothing,+ marker = Prelude.Nothing,+ httpStatus = pHttpStatus_+ }++-- | The results returned from describing datashares.+describeDataSharesResponse_dataShares :: Lens.Lens' DescribeDataSharesResponse (Prelude.Maybe [DataShare])+describeDataSharesResponse_dataShares = Lens.lens (\DescribeDataSharesResponse' {dataShares} -> dataShares) (\s@DescribeDataSharesResponse' {} a -> s {dataShares = a} :: DescribeDataSharesResponse) Prelude.. Lens.mapping Lens.coerced++-- | An optional parameter that specifies the starting point to return a set+-- of response records. When the results of a DescribeDataShares request+-- exceed the value specified in @MaxRecords@, Amazon Web Services returns+-- a value in the @Marker@ field of the response. You can retrieve the next+-- set of response records by providing the returned marker value in the+-- @Marker@ parameter and retrying the request.+describeDataSharesResponse_marker :: Lens.Lens' DescribeDataSharesResponse (Prelude.Maybe Prelude.Text)+describeDataSharesResponse_marker = Lens.lens (\DescribeDataSharesResponse' {marker} -> marker) (\s@DescribeDataSharesResponse' {} a -> s {marker = a} :: DescribeDataSharesResponse)++-- | The response's http status code.+describeDataSharesResponse_httpStatus :: Lens.Lens' DescribeDataSharesResponse Prelude.Int+describeDataSharesResponse_httpStatus = Lens.lens (\DescribeDataSharesResponse' {httpStatus} -> httpStatus) (\s@DescribeDataSharesResponse' {} a -> s {httpStatus = a} :: DescribeDataSharesResponse)++instance Prelude.NFData DescribeDataSharesResponse where+ rnf DescribeDataSharesResponse' {..} =+ Prelude.rnf dataShares+ `Prelude.seq` Prelude.rnf marker+ `Prelude.seq` Prelude.rnf httpStatus
@@ -0,0 +1,302 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module : Amazonka.Redshift.DescribeDataSharesForConsumer+-- Copyright : (c) 2013-2023 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Returns a list of datashares where the account identifier being called+-- is a consumer account identifier.+--+-- This operation returns paginated results.+module Amazonka.Redshift.DescribeDataSharesForConsumer+ ( -- * Creating a Request+ DescribeDataSharesForConsumer (..),+ newDescribeDataSharesForConsumer,++ -- * Request Lenses+ describeDataSharesForConsumer_consumerArn,+ describeDataSharesForConsumer_marker,+ describeDataSharesForConsumer_maxRecords,+ describeDataSharesForConsumer_status,++ -- * Destructuring the Response+ DescribeDataSharesForConsumerResponse (..),+ newDescribeDataSharesForConsumerResponse,++ -- * Response Lenses+ describeDataSharesForConsumerResponse_dataShares,+ describeDataSharesForConsumerResponse_marker,+ describeDataSharesForConsumerResponse_httpStatus,+ )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Redshift.Types+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newDescribeDataSharesForConsumer' smart constructor.+data DescribeDataSharesForConsumer = DescribeDataSharesForConsumer'+ { -- | The Amazon Resource Name (ARN) of the consumer that returns in the list+ -- of datashares.+ consumerArn :: Prelude.Maybe Prelude.Text,+ -- | An optional parameter that specifies the starting point to return a set+ -- of response records. When the results of a DescribeDataSharesForConsumer+ -- request exceed the value specified in @MaxRecords@, Amazon Web Services+ -- returns a value in the @Marker@ field of the response. You can retrieve+ -- the next set of response records by providing the returned marker value+ -- in the @Marker@ parameter and retrying the request.+ marker :: Prelude.Maybe Prelude.Text,+ -- | The maximum number of response records to return in each call. If the+ -- number of remaining response records exceeds the specified @MaxRecords@+ -- value, a value is returned in a @marker@ field of the response. You can+ -- retrieve the next set of records by retrying the command with the+ -- returned marker value.+ maxRecords :: Prelude.Maybe Prelude.Int,+ -- | An identifier giving the status of a datashare in the consumer cluster.+ -- If this field is specified, Amazon Redshift returns the list of+ -- datashares that have the specified status.+ status :: Prelude.Maybe DataShareStatusForConsumer+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeDataSharesForConsumer' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'consumerArn', 'describeDataSharesForConsumer_consumerArn' - The Amazon Resource Name (ARN) of the consumer that returns in the list+-- of datashares.+--+-- 'marker', 'describeDataSharesForConsumer_marker' - An optional parameter that specifies the starting point to return a set+-- of response records. When the results of a DescribeDataSharesForConsumer+-- request exceed the value specified in @MaxRecords@, Amazon Web Services+-- returns a value in the @Marker@ field of the response. You can retrieve+-- the next set of response records by providing the returned marker value+-- in the @Marker@ parameter and retrying the request.+--+-- 'maxRecords', 'describeDataSharesForConsumer_maxRecords' - The maximum number of response records to return in each call. If the+-- number of remaining response records exceeds the specified @MaxRecords@+-- value, a value is returned in a @marker@ field of the response. You can+-- retrieve the next set of records by retrying the command with the+-- returned marker value.+--+-- 'status', 'describeDataSharesForConsumer_status' - An identifier giving the status of a datashare in the consumer cluster.+-- If this field is specified, Amazon Redshift returns the list of+-- datashares that have the specified status.+newDescribeDataSharesForConsumer ::+ DescribeDataSharesForConsumer+newDescribeDataSharesForConsumer =+ DescribeDataSharesForConsumer'+ { consumerArn =+ Prelude.Nothing,+ marker = Prelude.Nothing,+ maxRecords = Prelude.Nothing,+ status = Prelude.Nothing+ }++-- | The Amazon Resource Name (ARN) of the consumer that returns in the list+-- of datashares.+describeDataSharesForConsumer_consumerArn :: Lens.Lens' DescribeDataSharesForConsumer (Prelude.Maybe Prelude.Text)+describeDataSharesForConsumer_consumerArn = Lens.lens (\DescribeDataSharesForConsumer' {consumerArn} -> consumerArn) (\s@DescribeDataSharesForConsumer' {} a -> s {consumerArn = a} :: DescribeDataSharesForConsumer)++-- | An optional parameter that specifies the starting point to return a set+-- of response records. When the results of a DescribeDataSharesForConsumer+-- request exceed the value specified in @MaxRecords@, Amazon Web Services+-- returns a value in the @Marker@ field of the response. You can retrieve+-- the next set of response records by providing the returned marker value+-- in the @Marker@ parameter and retrying the request.+describeDataSharesForConsumer_marker :: Lens.Lens' DescribeDataSharesForConsumer (Prelude.Maybe Prelude.Text)+describeDataSharesForConsumer_marker = Lens.lens (\DescribeDataSharesForConsumer' {marker} -> marker) (\s@DescribeDataSharesForConsumer' {} a -> s {marker = a} :: DescribeDataSharesForConsumer)++-- | The maximum number of response records to return in each call. If the+-- number of remaining response records exceeds the specified @MaxRecords@+-- value, a value is returned in a @marker@ field of the response. You can+-- retrieve the next set of records by retrying the command with the+-- returned marker value.+describeDataSharesForConsumer_maxRecords :: Lens.Lens' DescribeDataSharesForConsumer (Prelude.Maybe Prelude.Int)+describeDataSharesForConsumer_maxRecords = Lens.lens (\DescribeDataSharesForConsumer' {maxRecords} -> maxRecords) (\s@DescribeDataSharesForConsumer' {} a -> s {maxRecords = a} :: DescribeDataSharesForConsumer)++-- | An identifier giving the status of a datashare in the consumer cluster.+-- If this field is specified, Amazon Redshift returns the list of+-- datashares that have the specified status.+describeDataSharesForConsumer_status :: Lens.Lens' DescribeDataSharesForConsumer (Prelude.Maybe DataShareStatusForConsumer)+describeDataSharesForConsumer_status = Lens.lens (\DescribeDataSharesForConsumer' {status} -> status) (\s@DescribeDataSharesForConsumer' {} a -> s {status = a} :: DescribeDataSharesForConsumer)++instance Core.AWSPager DescribeDataSharesForConsumer where+ page rq rs+ | Core.stop+ ( rs+ Lens.^? describeDataSharesForConsumerResponse_marker+ Prelude.. Lens._Just+ ) =+ Prelude.Nothing+ | Core.stop+ ( rs+ Lens.^? describeDataSharesForConsumerResponse_dataShares+ Prelude.. Lens._Just+ ) =+ Prelude.Nothing+ | Prelude.otherwise =+ Prelude.Just+ Prelude.$ rq+ Prelude.& describeDataSharesForConsumer_marker+ Lens..~ rs+ Lens.^? describeDataSharesForConsumerResponse_marker+ Prelude.. Lens._Just++instance+ Core.AWSRequest+ DescribeDataSharesForConsumer+ where+ type+ AWSResponse DescribeDataSharesForConsumer =+ DescribeDataSharesForConsumerResponse+ request overrides =+ Request.postQuery (overrides defaultService)+ response =+ Response.receiveXMLWrapper+ "DescribeDataSharesForConsumerResult"+ ( \s h x ->+ DescribeDataSharesForConsumerResponse'+ Prelude.<$> ( x+ Data..@? "DataShares"+ Core..!@ Prelude.mempty+ Prelude.>>= Core.may (Data.parseXMLList "member")+ )+ Prelude.<*> (x Data..@? "Marker")+ Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+ )++instance+ Prelude.Hashable+ DescribeDataSharesForConsumer+ where+ hashWithSalt _salt DescribeDataSharesForConsumer' {..} =+ _salt+ `Prelude.hashWithSalt` consumerArn+ `Prelude.hashWithSalt` marker+ `Prelude.hashWithSalt` maxRecords+ `Prelude.hashWithSalt` status++instance Prelude.NFData DescribeDataSharesForConsumer where+ rnf DescribeDataSharesForConsumer' {..} =+ Prelude.rnf consumerArn+ `Prelude.seq` Prelude.rnf marker+ `Prelude.seq` Prelude.rnf maxRecords+ `Prelude.seq` Prelude.rnf status++instance Data.ToHeaders DescribeDataSharesForConsumer where+ toHeaders = Prelude.const Prelude.mempty++instance Data.ToPath DescribeDataSharesForConsumer where+ toPath = Prelude.const "/"++instance Data.ToQuery DescribeDataSharesForConsumer where+ toQuery DescribeDataSharesForConsumer' {..} =+ Prelude.mconcat+ [ "Action"+ Data.=: ( "DescribeDataSharesForConsumer" ::+ Prelude.ByteString+ ),+ "Version"+ Data.=: ("2012-12-01" :: Prelude.ByteString),+ "ConsumerArn" Data.=: consumerArn,+ "Marker" Data.=: marker,+ "MaxRecords" Data.=: maxRecords,+ "Status" Data.=: status+ ]++-- | /See:/ 'newDescribeDataSharesForConsumerResponse' smart constructor.+data DescribeDataSharesForConsumerResponse = DescribeDataSharesForConsumerResponse'+ { -- | Shows the results of datashares available for consumers.+ dataShares :: Prelude.Maybe [DataShare],+ -- | An optional parameter that specifies the starting point to return a set+ -- of response records. When the results of a DescribeDataSharesForConsumer+ -- request exceed the value specified in @MaxRecords@, Amazon Web Services+ -- returns a value in the @Marker@ field of the response. You can retrieve+ -- the next set of response records by providing the returned marker value+ -- in the @Marker@ parameter and retrying the request.+ marker :: Prelude.Maybe Prelude.Text,+ -- | The response's http status code.+ httpStatus :: Prelude.Int+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeDataSharesForConsumerResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'dataShares', 'describeDataSharesForConsumerResponse_dataShares' - Shows the results of datashares available for consumers.+--+-- 'marker', 'describeDataSharesForConsumerResponse_marker' - An optional parameter that specifies the starting point to return a set+-- of response records. When the results of a DescribeDataSharesForConsumer+-- request exceed the value specified in @MaxRecords@, Amazon Web Services+-- returns a value in the @Marker@ field of the response. You can retrieve+-- the next set of response records by providing the returned marker value+-- in the @Marker@ parameter and retrying the request.+--+-- 'httpStatus', 'describeDataSharesForConsumerResponse_httpStatus' - The response's http status code.+newDescribeDataSharesForConsumerResponse ::+ -- | 'httpStatus'+ Prelude.Int ->+ DescribeDataSharesForConsumerResponse+newDescribeDataSharesForConsumerResponse pHttpStatus_ =+ DescribeDataSharesForConsumerResponse'+ { dataShares =+ Prelude.Nothing,+ marker = Prelude.Nothing,+ httpStatus = pHttpStatus_+ }++-- | Shows the results of datashares available for consumers.+describeDataSharesForConsumerResponse_dataShares :: Lens.Lens' DescribeDataSharesForConsumerResponse (Prelude.Maybe [DataShare])+describeDataSharesForConsumerResponse_dataShares = Lens.lens (\DescribeDataSharesForConsumerResponse' {dataShares} -> dataShares) (\s@DescribeDataSharesForConsumerResponse' {} a -> s {dataShares = a} :: DescribeDataSharesForConsumerResponse) Prelude.. Lens.mapping Lens.coerced++-- | An optional parameter that specifies the starting point to return a set+-- of response records. When the results of a DescribeDataSharesForConsumer+-- request exceed the value specified in @MaxRecords@, Amazon Web Services+-- returns a value in the @Marker@ field of the response. You can retrieve+-- the next set of response records by providing the returned marker value+-- in the @Marker@ parameter and retrying the request.+describeDataSharesForConsumerResponse_marker :: Lens.Lens' DescribeDataSharesForConsumerResponse (Prelude.Maybe Prelude.Text)+describeDataSharesForConsumerResponse_marker = Lens.lens (\DescribeDataSharesForConsumerResponse' {marker} -> marker) (\s@DescribeDataSharesForConsumerResponse' {} a -> s {marker = a} :: DescribeDataSharesForConsumerResponse)++-- | The response's http status code.+describeDataSharesForConsumerResponse_httpStatus :: Lens.Lens' DescribeDataSharesForConsumerResponse Prelude.Int+describeDataSharesForConsumerResponse_httpStatus = Lens.lens (\DescribeDataSharesForConsumerResponse' {httpStatus} -> httpStatus) (\s@DescribeDataSharesForConsumerResponse' {} a -> s {httpStatus = a} :: DescribeDataSharesForConsumerResponse)++instance+ Prelude.NFData+ DescribeDataSharesForConsumerResponse+ where+ rnf DescribeDataSharesForConsumerResponse' {..} =+ Prelude.rnf dataShares+ `Prelude.seq` Prelude.rnf marker+ `Prelude.seq` Prelude.rnf httpStatus
@@ -0,0 +1,302 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module : Amazonka.Redshift.DescribeDataSharesForProducer+-- Copyright : (c) 2013-2023 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Returns a list of datashares when the account identifier being called is+-- a producer account identifier.+--+-- This operation returns paginated results.+module Amazonka.Redshift.DescribeDataSharesForProducer+ ( -- * Creating a Request+ DescribeDataSharesForProducer (..),+ newDescribeDataSharesForProducer,++ -- * Request Lenses+ describeDataSharesForProducer_marker,+ describeDataSharesForProducer_maxRecords,+ describeDataSharesForProducer_producerArn,+ describeDataSharesForProducer_status,++ -- * Destructuring the Response+ DescribeDataSharesForProducerResponse (..),+ newDescribeDataSharesForProducerResponse,++ -- * Response Lenses+ describeDataSharesForProducerResponse_dataShares,+ describeDataSharesForProducerResponse_marker,+ describeDataSharesForProducerResponse_httpStatus,+ )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Redshift.Types+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newDescribeDataSharesForProducer' smart constructor.+data DescribeDataSharesForProducer = DescribeDataSharesForProducer'+ { -- | An optional parameter that specifies the starting point to return a set+ -- of response records. When the results of a DescribeDataSharesForProducer+ -- request exceed the value specified in @MaxRecords@, Amazon Web Services+ -- returns a value in the @Marker@ field of the response. You can retrieve+ -- the next set of response records by providing the returned marker value+ -- in the @Marker@ parameter and retrying the request.+ marker :: Prelude.Maybe Prelude.Text,+ -- | The maximum number of response records to return in each call. If the+ -- number of remaining response records exceeds the specified @MaxRecords@+ -- value, a value is returned in a @marker@ field of the response. You can+ -- retrieve the next set of records by retrying the command with the+ -- returned marker value.+ maxRecords :: Prelude.Maybe Prelude.Int,+ -- | The Amazon Resource Name (ARN) of the producer that returns in the list+ -- of datashares.+ producerArn :: Prelude.Maybe Prelude.Text,+ -- | An identifier giving the status of a datashare in the producer. If this+ -- field is specified, Amazon Redshift returns the list of datashares that+ -- have the specified status.+ status :: Prelude.Maybe DataShareStatusForProducer+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeDataSharesForProducer' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'marker', 'describeDataSharesForProducer_marker' - An optional parameter that specifies the starting point to return a set+-- of response records. When the results of a DescribeDataSharesForProducer+-- request exceed the value specified in @MaxRecords@, Amazon Web Services+-- returns a value in the @Marker@ field of the response. You can retrieve+-- the next set of response records by providing the returned marker value+-- in the @Marker@ parameter and retrying the request.+--+-- 'maxRecords', 'describeDataSharesForProducer_maxRecords' - The maximum number of response records to return in each call. If the+-- number of remaining response records exceeds the specified @MaxRecords@+-- value, a value is returned in a @marker@ field of the response. You can+-- retrieve the next set of records by retrying the command with the+-- returned marker value.+--+-- 'producerArn', 'describeDataSharesForProducer_producerArn' - The Amazon Resource Name (ARN) of the producer that returns in the list+-- of datashares.+--+-- 'status', 'describeDataSharesForProducer_status' - An identifier giving the status of a datashare in the producer. If this+-- field is specified, Amazon Redshift returns the list of datashares that+-- have the specified status.+newDescribeDataSharesForProducer ::+ DescribeDataSharesForProducer+newDescribeDataSharesForProducer =+ DescribeDataSharesForProducer'+ { marker =+ Prelude.Nothing,+ maxRecords = Prelude.Nothing,+ producerArn = Prelude.Nothing,+ status = Prelude.Nothing+ }++-- | An optional parameter that specifies the starting point to return a set+-- of response records. When the results of a DescribeDataSharesForProducer+-- request exceed the value specified in @MaxRecords@, Amazon Web Services+-- returns a value in the @Marker@ field of the response. You can retrieve+-- the next set of response records by providing the returned marker value+-- in the @Marker@ parameter and retrying the request.+describeDataSharesForProducer_marker :: Lens.Lens' DescribeDataSharesForProducer (Prelude.Maybe Prelude.Text)+describeDataSharesForProducer_marker = Lens.lens (\DescribeDataSharesForProducer' {marker} -> marker) (\s@DescribeDataSharesForProducer' {} a -> s {marker = a} :: DescribeDataSharesForProducer)++-- | The maximum number of response records to return in each call. If the+-- number of remaining response records exceeds the specified @MaxRecords@+-- value, a value is returned in a @marker@ field of the response. You can+-- retrieve the next set of records by retrying the command with the+-- returned marker value.+describeDataSharesForProducer_maxRecords :: Lens.Lens' DescribeDataSharesForProducer (Prelude.Maybe Prelude.Int)+describeDataSharesForProducer_maxRecords = Lens.lens (\DescribeDataSharesForProducer' {maxRecords} -> maxRecords) (\s@DescribeDataSharesForProducer' {} a -> s {maxRecords = a} :: DescribeDataSharesForProducer)++-- | The Amazon Resource Name (ARN) of the producer that returns in the list+-- of datashares.+describeDataSharesForProducer_producerArn :: Lens.Lens' DescribeDataSharesForProducer (Prelude.Maybe Prelude.Text)+describeDataSharesForProducer_producerArn = Lens.lens (\DescribeDataSharesForProducer' {producerArn} -> producerArn) (\s@DescribeDataSharesForProducer' {} a -> s {producerArn = a} :: DescribeDataSharesForProducer)++-- | An identifier giving the status of a datashare in the producer. If this+-- field is specified, Amazon Redshift returns the list of datashares that+-- have the specified status.+describeDataSharesForProducer_status :: Lens.Lens' DescribeDataSharesForProducer (Prelude.Maybe DataShareStatusForProducer)+describeDataSharesForProducer_status = Lens.lens (\DescribeDataSharesForProducer' {status} -> status) (\s@DescribeDataSharesForProducer' {} a -> s {status = a} :: DescribeDataSharesForProducer)++instance Core.AWSPager DescribeDataSharesForProducer where+ page rq rs+ | Core.stop+ ( rs+ Lens.^? describeDataSharesForProducerResponse_marker+ Prelude.. Lens._Just+ ) =+ Prelude.Nothing+ | Core.stop+ ( rs+ Lens.^? describeDataSharesForProducerResponse_dataShares+ Prelude.. Lens._Just+ ) =+ Prelude.Nothing+ | Prelude.otherwise =+ Prelude.Just+ Prelude.$ rq+ Prelude.& describeDataSharesForProducer_marker+ Lens..~ rs+ Lens.^? describeDataSharesForProducerResponse_marker+ Prelude.. Lens._Just++instance+ Core.AWSRequest+ DescribeDataSharesForProducer+ where+ type+ AWSResponse DescribeDataSharesForProducer =+ DescribeDataSharesForProducerResponse+ request overrides =+ Request.postQuery (overrides defaultService)+ response =+ Response.receiveXMLWrapper+ "DescribeDataSharesForProducerResult"+ ( \s h x ->+ DescribeDataSharesForProducerResponse'+ Prelude.<$> ( x+ Data..@? "DataShares"+ Core..!@ Prelude.mempty+ Prelude.>>= Core.may (Data.parseXMLList "member")+ )+ Prelude.<*> (x Data..@? "Marker")+ Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+ )++instance+ Prelude.Hashable+ DescribeDataSharesForProducer+ where+ hashWithSalt _salt DescribeDataSharesForProducer' {..} =+ _salt+ `Prelude.hashWithSalt` marker+ `Prelude.hashWithSalt` maxRecords+ `Prelude.hashWithSalt` producerArn+ `Prelude.hashWithSalt` status++instance Prelude.NFData DescribeDataSharesForProducer where+ rnf DescribeDataSharesForProducer' {..} =+ Prelude.rnf marker+ `Prelude.seq` Prelude.rnf maxRecords+ `Prelude.seq` Prelude.rnf producerArn+ `Prelude.seq` Prelude.rnf status++instance Data.ToHeaders DescribeDataSharesForProducer where+ toHeaders = Prelude.const Prelude.mempty++instance Data.ToPath DescribeDataSharesForProducer where+ toPath = Prelude.const "/"++instance Data.ToQuery DescribeDataSharesForProducer where+ toQuery DescribeDataSharesForProducer' {..} =+ Prelude.mconcat+ [ "Action"+ Data.=: ( "DescribeDataSharesForProducer" ::+ Prelude.ByteString+ ),+ "Version"+ Data.=: ("2012-12-01" :: Prelude.ByteString),+ "Marker" Data.=: marker,+ "MaxRecords" Data.=: maxRecords,+ "ProducerArn" Data.=: producerArn,+ "Status" Data.=: status+ ]++-- | /See:/ 'newDescribeDataSharesForProducerResponse' smart constructor.+data DescribeDataSharesForProducerResponse = DescribeDataSharesForProducerResponse'+ { -- | Shows the results of datashares available for producers.+ dataShares :: Prelude.Maybe [DataShare],+ -- | An optional parameter that specifies the starting point to return a set+ -- of response records. When the results of a DescribeDataSharesForProducer+ -- request exceed the value specified in @MaxRecords@, Amazon Web Services+ -- returns a value in the @Marker@ field of the response. You can retrieve+ -- the next set of response records by providing the returned marker value+ -- in the @Marker@ parameter and retrying the request.+ marker :: Prelude.Maybe Prelude.Text,+ -- | The response's http status code.+ httpStatus :: Prelude.Int+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeDataSharesForProducerResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'dataShares', 'describeDataSharesForProducerResponse_dataShares' - Shows the results of datashares available for producers.+--+-- 'marker', 'describeDataSharesForProducerResponse_marker' - An optional parameter that specifies the starting point to return a set+-- of response records. When the results of a DescribeDataSharesForProducer+-- request exceed the value specified in @MaxRecords@, Amazon Web Services+-- returns a value in the @Marker@ field of the response. You can retrieve+-- the next set of response records by providing the returned marker value+-- in the @Marker@ parameter and retrying the request.+--+-- 'httpStatus', 'describeDataSharesForProducerResponse_httpStatus' - The response's http status code.+newDescribeDataSharesForProducerResponse ::+ -- | 'httpStatus'+ Prelude.Int ->+ DescribeDataSharesForProducerResponse+newDescribeDataSharesForProducerResponse pHttpStatus_ =+ DescribeDataSharesForProducerResponse'+ { dataShares =+ Prelude.Nothing,+ marker = Prelude.Nothing,+ httpStatus = pHttpStatus_+ }++-- | Shows the results of datashares available for producers.+describeDataSharesForProducerResponse_dataShares :: Lens.Lens' DescribeDataSharesForProducerResponse (Prelude.Maybe [DataShare])+describeDataSharesForProducerResponse_dataShares = Lens.lens (\DescribeDataSharesForProducerResponse' {dataShares} -> dataShares) (\s@DescribeDataSharesForProducerResponse' {} a -> s {dataShares = a} :: DescribeDataSharesForProducerResponse) Prelude.. Lens.mapping Lens.coerced++-- | An optional parameter that specifies the starting point to return a set+-- of response records. When the results of a DescribeDataSharesForProducer+-- request exceed the value specified in @MaxRecords@, Amazon Web Services+-- returns a value in the @Marker@ field of the response. You can retrieve+-- the next set of response records by providing the returned marker value+-- in the @Marker@ parameter and retrying the request.+describeDataSharesForProducerResponse_marker :: Lens.Lens' DescribeDataSharesForProducerResponse (Prelude.Maybe Prelude.Text)+describeDataSharesForProducerResponse_marker = Lens.lens (\DescribeDataSharesForProducerResponse' {marker} -> marker) (\s@DescribeDataSharesForProducerResponse' {} a -> s {marker = a} :: DescribeDataSharesForProducerResponse)++-- | The response's http status code.+describeDataSharesForProducerResponse_httpStatus :: Lens.Lens' DescribeDataSharesForProducerResponse Prelude.Int+describeDataSharesForProducerResponse_httpStatus = Lens.lens (\DescribeDataSharesForProducerResponse' {httpStatus} -> httpStatus) (\s@DescribeDataSharesForProducerResponse' {} a -> s {httpStatus = a} :: DescribeDataSharesForProducerResponse)++instance+ Prelude.NFData+ DescribeDataSharesForProducerResponse+ where+ rnf DescribeDataSharesForProducerResponse' {..} =+ Prelude.rnf dataShares+ `Prelude.seq` Prelude.rnf marker+ `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/Redshift/DescribeDefaultClusterParameters.hs view
@@ -0,0 +1,295 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module : Amazonka.Redshift.DescribeDefaultClusterParameters+-- Copyright : (c) 2013-2023 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Returns a list of parameter settings for the specified parameter group+-- family.+--+-- For more information about parameters and parameter groups, go to+-- <https://docs.aws.amazon.com/redshift/latest/mgmt/working-with-parameter-groups.html Amazon Redshift Parameter Groups>+-- in the /Amazon Redshift Cluster Management Guide/.+--+-- This operation returns paginated results.+module Amazonka.Redshift.DescribeDefaultClusterParameters+ ( -- * Creating a Request+ DescribeDefaultClusterParameters (..),+ newDescribeDefaultClusterParameters,++ -- * Request Lenses+ describeDefaultClusterParameters_marker,+ describeDefaultClusterParameters_maxRecords,+ describeDefaultClusterParameters_parameterGroupFamily,++ -- * Destructuring the Response+ DescribeDefaultClusterParametersResponse (..),+ newDescribeDefaultClusterParametersResponse,++ -- * Response Lenses+ describeDefaultClusterParametersResponse_httpStatus,+ describeDefaultClusterParametersResponse_defaultClusterParameters,+ )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Redshift.Types+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- |+--+-- /See:/ 'newDescribeDefaultClusterParameters' smart constructor.+data DescribeDefaultClusterParameters = DescribeDefaultClusterParameters'+ { -- | An optional parameter that specifies the starting point to return a set+ -- of response records. When the results of a+ -- DescribeDefaultClusterParameters request exceed the value specified in+ -- @MaxRecords@, Amazon Web Services returns a value in the @Marker@ field+ -- of the response. You can retrieve the next set of response records by+ -- providing the returned marker value in the @Marker@ parameter and+ -- retrying the request.+ marker :: Prelude.Maybe Prelude.Text,+ -- | The maximum number of response records to return in each call. If the+ -- number of remaining response records exceeds the specified @MaxRecords@+ -- value, a value is returned in a @marker@ field of the response. You can+ -- retrieve the next set of records by retrying the command with the+ -- returned marker value.+ --+ -- Default: @100@+ --+ -- Constraints: minimum 20, maximum 100.+ maxRecords :: Prelude.Maybe Prelude.Int,+ -- | The name of the cluster parameter group family.+ parameterGroupFamily :: Prelude.Text+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeDefaultClusterParameters' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'marker', 'describeDefaultClusterParameters_marker' - An optional parameter that specifies the starting point to return a set+-- of response records. When the results of a+-- DescribeDefaultClusterParameters request exceed the value specified in+-- @MaxRecords@, Amazon Web Services returns a value in the @Marker@ field+-- of the response. You can retrieve the next set of response records by+-- providing the returned marker value in the @Marker@ parameter and+-- retrying the request.+--+-- 'maxRecords', 'describeDefaultClusterParameters_maxRecords' - The maximum number of response records to return in each call. If the+-- number of remaining response records exceeds the specified @MaxRecords@+-- value, a value is returned in a @marker@ field of the response. You can+-- retrieve the next set of records by retrying the command with the+-- returned marker value.+--+-- Default: @100@+--+-- Constraints: minimum 20, maximum 100.+--+-- 'parameterGroupFamily', 'describeDefaultClusterParameters_parameterGroupFamily' - The name of the cluster parameter group family.+newDescribeDefaultClusterParameters ::+ -- | 'parameterGroupFamily'+ Prelude.Text ->+ DescribeDefaultClusterParameters+newDescribeDefaultClusterParameters+ pParameterGroupFamily_ =+ DescribeDefaultClusterParameters'+ { marker =+ Prelude.Nothing,+ maxRecords = Prelude.Nothing,+ parameterGroupFamily =+ pParameterGroupFamily_+ }++-- | An optional parameter that specifies the starting point to return a set+-- of response records. When the results of a+-- DescribeDefaultClusterParameters request exceed the value specified in+-- @MaxRecords@, Amazon Web Services returns a value in the @Marker@ field+-- of the response. You can retrieve the next set of response records by+-- providing the returned marker value in the @Marker@ parameter and+-- retrying the request.+describeDefaultClusterParameters_marker :: Lens.Lens' DescribeDefaultClusterParameters (Prelude.Maybe Prelude.Text)+describeDefaultClusterParameters_marker = Lens.lens (\DescribeDefaultClusterParameters' {marker} -> marker) (\s@DescribeDefaultClusterParameters' {} a -> s {marker = a} :: DescribeDefaultClusterParameters)++-- | The maximum number of response records to return in each call. If the+-- number of remaining response records exceeds the specified @MaxRecords@+-- value, a value is returned in a @marker@ field of the response. You can+-- retrieve the next set of records by retrying the command with the+-- returned marker value.+--+-- Default: @100@+--+-- Constraints: minimum 20, maximum 100.+describeDefaultClusterParameters_maxRecords :: Lens.Lens' DescribeDefaultClusterParameters (Prelude.Maybe Prelude.Int)+describeDefaultClusterParameters_maxRecords = Lens.lens (\DescribeDefaultClusterParameters' {maxRecords} -> maxRecords) (\s@DescribeDefaultClusterParameters' {} a -> s {maxRecords = a} :: DescribeDefaultClusterParameters)++-- | The name of the cluster parameter group family.+describeDefaultClusterParameters_parameterGroupFamily :: Lens.Lens' DescribeDefaultClusterParameters Prelude.Text+describeDefaultClusterParameters_parameterGroupFamily = Lens.lens (\DescribeDefaultClusterParameters' {parameterGroupFamily} -> parameterGroupFamily) (\s@DescribeDefaultClusterParameters' {} a -> s {parameterGroupFamily = a} :: DescribeDefaultClusterParameters)++instance+ Core.AWSPager+ DescribeDefaultClusterParameters+ where+ page rq rs+ | Core.stop+ ( rs+ Lens.^? describeDefaultClusterParametersResponse_defaultClusterParameters+ Prelude.. defaultClusterParameters_marker+ Prelude.. Lens._Just+ ) =+ Prelude.Nothing+ | Core.stop+ ( rs+ Lens.^? describeDefaultClusterParametersResponse_defaultClusterParameters+ Prelude.. defaultClusterParameters_parameters+ Prelude.. Lens._Just+ ) =+ Prelude.Nothing+ | Prelude.otherwise =+ Prelude.Just+ Prelude.$ rq+ Prelude.& describeDefaultClusterParameters_marker+ Lens..~ rs+ Lens.^? describeDefaultClusterParametersResponse_defaultClusterParameters+ Prelude.. defaultClusterParameters_marker+ Prelude.. Lens._Just++instance+ Core.AWSRequest+ DescribeDefaultClusterParameters+ where+ type+ AWSResponse DescribeDefaultClusterParameters =+ DescribeDefaultClusterParametersResponse+ request overrides =+ Request.postQuery (overrides defaultService)+ response =+ Response.receiveXMLWrapper+ "DescribeDefaultClusterParametersResult"+ ( \s h x ->+ DescribeDefaultClusterParametersResponse'+ Prelude.<$> (Prelude.pure (Prelude.fromEnum s))+ Prelude.<*> (x Data..@ "DefaultClusterParameters")+ )++instance+ Prelude.Hashable+ DescribeDefaultClusterParameters+ where+ hashWithSalt+ _salt+ DescribeDefaultClusterParameters' {..} =+ _salt+ `Prelude.hashWithSalt` marker+ `Prelude.hashWithSalt` maxRecords+ `Prelude.hashWithSalt` parameterGroupFamily++instance+ Prelude.NFData+ DescribeDefaultClusterParameters+ where+ rnf DescribeDefaultClusterParameters' {..} =+ Prelude.rnf marker+ `Prelude.seq` Prelude.rnf maxRecords+ `Prelude.seq` Prelude.rnf parameterGroupFamily++instance+ Data.ToHeaders+ DescribeDefaultClusterParameters+ where+ toHeaders = Prelude.const Prelude.mempty++instance Data.ToPath DescribeDefaultClusterParameters where+ toPath = Prelude.const "/"++instance+ Data.ToQuery+ DescribeDefaultClusterParameters+ where+ toQuery DescribeDefaultClusterParameters' {..} =+ Prelude.mconcat+ [ "Action"+ Data.=: ( "DescribeDefaultClusterParameters" ::+ Prelude.ByteString+ ),+ "Version"+ Data.=: ("2012-12-01" :: Prelude.ByteString),+ "Marker" Data.=: marker,+ "MaxRecords" Data.=: maxRecords,+ "ParameterGroupFamily" Data.=: parameterGroupFamily+ ]++-- | /See:/ 'newDescribeDefaultClusterParametersResponse' smart constructor.+data DescribeDefaultClusterParametersResponse = DescribeDefaultClusterParametersResponse'+ { -- | The response's http status code.+ httpStatus :: Prelude.Int,+ defaultClusterParameters :: DefaultClusterParameters+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeDefaultClusterParametersResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'httpStatus', 'describeDefaultClusterParametersResponse_httpStatus' - The response's http status code.+--+-- 'defaultClusterParameters', 'describeDefaultClusterParametersResponse_defaultClusterParameters' - Undocumented member.+newDescribeDefaultClusterParametersResponse ::+ -- | 'httpStatus'+ Prelude.Int ->+ -- | 'defaultClusterParameters'+ DefaultClusterParameters ->+ DescribeDefaultClusterParametersResponse+newDescribeDefaultClusterParametersResponse+ pHttpStatus_+ pDefaultClusterParameters_ =+ DescribeDefaultClusterParametersResponse'+ { httpStatus =+ pHttpStatus_,+ defaultClusterParameters =+ pDefaultClusterParameters_+ }++-- | The response's http status code.+describeDefaultClusterParametersResponse_httpStatus :: Lens.Lens' DescribeDefaultClusterParametersResponse Prelude.Int+describeDefaultClusterParametersResponse_httpStatus = Lens.lens (\DescribeDefaultClusterParametersResponse' {httpStatus} -> httpStatus) (\s@DescribeDefaultClusterParametersResponse' {} a -> s {httpStatus = a} :: DescribeDefaultClusterParametersResponse)++-- | Undocumented member.+describeDefaultClusterParametersResponse_defaultClusterParameters :: Lens.Lens' DescribeDefaultClusterParametersResponse DefaultClusterParameters+describeDefaultClusterParametersResponse_defaultClusterParameters = Lens.lens (\DescribeDefaultClusterParametersResponse' {defaultClusterParameters} -> defaultClusterParameters) (\s@DescribeDefaultClusterParametersResponse' {} a -> s {defaultClusterParameters = a} :: DescribeDefaultClusterParametersResponse)++instance+ Prelude.NFData+ DescribeDefaultClusterParametersResponse+ where+ rnf DescribeDefaultClusterParametersResponse' {..} =+ Prelude.rnf httpStatus+ `Prelude.seq` Prelude.rnf defaultClusterParameters
+ gen/Amazonka/Redshift/DescribeEndpointAccess.hs view
@@ -0,0 +1,295 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module : Amazonka.Redshift.DescribeEndpointAccess+-- Copyright : (c) 2013-2023 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Describes a Redshift-managed VPC endpoint.+--+-- This operation returns paginated results.+module Amazonka.Redshift.DescribeEndpointAccess+ ( -- * Creating a Request+ DescribeEndpointAccess (..),+ newDescribeEndpointAccess,++ -- * Request Lenses+ describeEndpointAccess_clusterIdentifier,+ describeEndpointAccess_endpointName,+ describeEndpointAccess_marker,+ describeEndpointAccess_maxRecords,+ describeEndpointAccess_resourceOwner,+ describeEndpointAccess_vpcId,++ -- * Destructuring the Response+ DescribeEndpointAccessResponse (..),+ newDescribeEndpointAccessResponse,++ -- * Response Lenses+ describeEndpointAccessResponse_endpointAccessList,+ describeEndpointAccessResponse_marker,+ describeEndpointAccessResponse_httpStatus,+ )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Redshift.Types+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newDescribeEndpointAccess' smart constructor.+data DescribeEndpointAccess = DescribeEndpointAccess'+ { -- | The cluster identifier associated with the described endpoint.+ clusterIdentifier :: Prelude.Maybe Prelude.Text,+ -- | The name of the endpoint to be described.+ endpointName :: Prelude.Maybe Prelude.Text,+ -- | An optional pagination token provided by a previous+ -- @DescribeEndpointAccess@ request. If this parameter is specified, the+ -- response includes only records beyond the marker, up to the value+ -- specified by the @MaxRecords@ parameter.+ marker :: Prelude.Maybe Prelude.Text,+ -- | The maximum number of records to include in the response. If more+ -- records exist than the specified @MaxRecords@ value, a pagination token+ -- called a @Marker@ is included in the response so that the remaining+ -- results can be retrieved.+ maxRecords :: Prelude.Maybe Prelude.Int,+ -- | The Amazon Web Services account ID of the owner of the cluster.+ resourceOwner :: Prelude.Maybe Prelude.Text,+ -- | The virtual private cloud (VPC) identifier with access to the cluster.+ vpcId :: Prelude.Maybe Prelude.Text+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeEndpointAccess' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'clusterIdentifier', 'describeEndpointAccess_clusterIdentifier' - The cluster identifier associated with the described endpoint.+--+-- 'endpointName', 'describeEndpointAccess_endpointName' - The name of the endpoint to be described.+--+-- 'marker', 'describeEndpointAccess_marker' - An optional pagination token provided by a previous+-- @DescribeEndpointAccess@ request. If this parameter is specified, the+-- response includes only records beyond the marker, up to the value+-- specified by the @MaxRecords@ parameter.+--+-- 'maxRecords', 'describeEndpointAccess_maxRecords' - The maximum number of records to include in the response. If more+-- records exist than the specified @MaxRecords@ value, a pagination token+-- called a @Marker@ is included in the response so that the remaining+-- results can be retrieved.+--+-- 'resourceOwner', 'describeEndpointAccess_resourceOwner' - The Amazon Web Services account ID of the owner of the cluster.+--+-- 'vpcId', 'describeEndpointAccess_vpcId' - The virtual private cloud (VPC) identifier with access to the cluster.+newDescribeEndpointAccess ::+ DescribeEndpointAccess+newDescribeEndpointAccess =+ DescribeEndpointAccess'+ { clusterIdentifier =+ Prelude.Nothing,+ endpointName = Prelude.Nothing,+ marker = Prelude.Nothing,+ maxRecords = Prelude.Nothing,+ resourceOwner = Prelude.Nothing,+ vpcId = Prelude.Nothing+ }++-- | The cluster identifier associated with the described endpoint.+describeEndpointAccess_clusterIdentifier :: Lens.Lens' DescribeEndpointAccess (Prelude.Maybe Prelude.Text)+describeEndpointAccess_clusterIdentifier = Lens.lens (\DescribeEndpointAccess' {clusterIdentifier} -> clusterIdentifier) (\s@DescribeEndpointAccess' {} a -> s {clusterIdentifier = a} :: DescribeEndpointAccess)++-- | The name of the endpoint to be described.+describeEndpointAccess_endpointName :: Lens.Lens' DescribeEndpointAccess (Prelude.Maybe Prelude.Text)+describeEndpointAccess_endpointName = Lens.lens (\DescribeEndpointAccess' {endpointName} -> endpointName) (\s@DescribeEndpointAccess' {} a -> s {endpointName = a} :: DescribeEndpointAccess)++-- | An optional pagination token provided by a previous+-- @DescribeEndpointAccess@ request. If this parameter is specified, the+-- response includes only records beyond the marker, up to the value+-- specified by the @MaxRecords@ parameter.+describeEndpointAccess_marker :: Lens.Lens' DescribeEndpointAccess (Prelude.Maybe Prelude.Text)+describeEndpointAccess_marker = Lens.lens (\DescribeEndpointAccess' {marker} -> marker) (\s@DescribeEndpointAccess' {} a -> s {marker = a} :: DescribeEndpointAccess)++-- | The maximum number of records to include in the response. If more+-- records exist than the specified @MaxRecords@ value, a pagination token+-- called a @Marker@ is included in the response so that the remaining+-- results can be retrieved.+describeEndpointAccess_maxRecords :: Lens.Lens' DescribeEndpointAccess (Prelude.Maybe Prelude.Int)+describeEndpointAccess_maxRecords = Lens.lens (\DescribeEndpointAccess' {maxRecords} -> maxRecords) (\s@DescribeEndpointAccess' {} a -> s {maxRecords = a} :: DescribeEndpointAccess)++-- | The Amazon Web Services account ID of the owner of the cluster.+describeEndpointAccess_resourceOwner :: Lens.Lens' DescribeEndpointAccess (Prelude.Maybe Prelude.Text)+describeEndpointAccess_resourceOwner = Lens.lens (\DescribeEndpointAccess' {resourceOwner} -> resourceOwner) (\s@DescribeEndpointAccess' {} a -> s {resourceOwner = a} :: DescribeEndpointAccess)++-- | The virtual private cloud (VPC) identifier with access to the cluster.+describeEndpointAccess_vpcId :: Lens.Lens' DescribeEndpointAccess (Prelude.Maybe Prelude.Text)+describeEndpointAccess_vpcId = Lens.lens (\DescribeEndpointAccess' {vpcId} -> vpcId) (\s@DescribeEndpointAccess' {} a -> s {vpcId = a} :: DescribeEndpointAccess)++instance Core.AWSPager DescribeEndpointAccess where+ page rq rs+ | Core.stop+ ( rs+ Lens.^? describeEndpointAccessResponse_marker+ Prelude.. Lens._Just+ ) =+ Prelude.Nothing+ | Core.stop+ ( rs+ Lens.^? describeEndpointAccessResponse_endpointAccessList+ Prelude.. Lens._Just+ ) =+ Prelude.Nothing+ | Prelude.otherwise =+ Prelude.Just+ Prelude.$ rq+ Prelude.& describeEndpointAccess_marker+ Lens..~ rs+ Lens.^? describeEndpointAccessResponse_marker+ Prelude.. Lens._Just++instance Core.AWSRequest DescribeEndpointAccess where+ type+ AWSResponse DescribeEndpointAccess =+ DescribeEndpointAccessResponse+ request overrides =+ Request.postQuery (overrides defaultService)+ response =+ Response.receiveXMLWrapper+ "DescribeEndpointAccessResult"+ ( \s h x ->+ DescribeEndpointAccessResponse'+ Prelude.<$> ( x+ Data..@? "EndpointAccessList"+ Core..!@ Prelude.mempty+ Prelude.>>= Core.may (Data.parseXMLList "member")+ )+ Prelude.<*> (x Data..@? "Marker")+ Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+ )++instance Prelude.Hashable DescribeEndpointAccess where+ hashWithSalt _salt DescribeEndpointAccess' {..} =+ _salt+ `Prelude.hashWithSalt` clusterIdentifier+ `Prelude.hashWithSalt` endpointName+ `Prelude.hashWithSalt` marker+ `Prelude.hashWithSalt` maxRecords+ `Prelude.hashWithSalt` resourceOwner+ `Prelude.hashWithSalt` vpcId++instance Prelude.NFData DescribeEndpointAccess where+ rnf DescribeEndpointAccess' {..} =+ Prelude.rnf clusterIdentifier+ `Prelude.seq` Prelude.rnf endpointName+ `Prelude.seq` Prelude.rnf marker+ `Prelude.seq` Prelude.rnf maxRecords+ `Prelude.seq` Prelude.rnf resourceOwner+ `Prelude.seq` Prelude.rnf vpcId++instance Data.ToHeaders DescribeEndpointAccess where+ toHeaders = Prelude.const Prelude.mempty++instance Data.ToPath DescribeEndpointAccess where+ toPath = Prelude.const "/"++instance Data.ToQuery DescribeEndpointAccess where+ toQuery DescribeEndpointAccess' {..} =+ Prelude.mconcat+ [ "Action"+ Data.=: ("DescribeEndpointAccess" :: Prelude.ByteString),+ "Version"+ Data.=: ("2012-12-01" :: Prelude.ByteString),+ "ClusterIdentifier" Data.=: clusterIdentifier,+ "EndpointName" Data.=: endpointName,+ "Marker" Data.=: marker,+ "MaxRecords" Data.=: maxRecords,+ "ResourceOwner" Data.=: resourceOwner,+ "VpcId" Data.=: vpcId+ ]++-- | /See:/ 'newDescribeEndpointAccessResponse' smart constructor.+data DescribeEndpointAccessResponse = DescribeEndpointAccessResponse'+ { -- | The list of endpoints with access to the cluster.+ endpointAccessList :: Prelude.Maybe [EndpointAccess],+ -- | An optional pagination token provided by a previous+ -- @DescribeEndpointAccess@ request. If this parameter is specified, the+ -- response includes only records beyond the marker, up to the value+ -- specified by the @MaxRecords@ parameter.+ marker :: Prelude.Maybe Prelude.Text,+ -- | The response's http status code.+ httpStatus :: Prelude.Int+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeEndpointAccessResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'endpointAccessList', 'describeEndpointAccessResponse_endpointAccessList' - The list of endpoints with access to the cluster.+--+-- 'marker', 'describeEndpointAccessResponse_marker' - An optional pagination token provided by a previous+-- @DescribeEndpointAccess@ request. If this parameter is specified, the+-- response includes only records beyond the marker, up to the value+-- specified by the @MaxRecords@ parameter.+--+-- 'httpStatus', 'describeEndpointAccessResponse_httpStatus' - The response's http status code.+newDescribeEndpointAccessResponse ::+ -- | 'httpStatus'+ Prelude.Int ->+ DescribeEndpointAccessResponse+newDescribeEndpointAccessResponse pHttpStatus_ =+ DescribeEndpointAccessResponse'+ { endpointAccessList =+ Prelude.Nothing,+ marker = Prelude.Nothing,+ httpStatus = pHttpStatus_+ }++-- | The list of endpoints with access to the cluster.+describeEndpointAccessResponse_endpointAccessList :: Lens.Lens' DescribeEndpointAccessResponse (Prelude.Maybe [EndpointAccess])+describeEndpointAccessResponse_endpointAccessList = Lens.lens (\DescribeEndpointAccessResponse' {endpointAccessList} -> endpointAccessList) (\s@DescribeEndpointAccessResponse' {} a -> s {endpointAccessList = a} :: DescribeEndpointAccessResponse) Prelude.. Lens.mapping Lens.coerced++-- | An optional pagination token provided by a previous+-- @DescribeEndpointAccess@ request. If this parameter is specified, the+-- response includes only records beyond the marker, up to the value+-- specified by the @MaxRecords@ parameter.+describeEndpointAccessResponse_marker :: Lens.Lens' DescribeEndpointAccessResponse (Prelude.Maybe Prelude.Text)+describeEndpointAccessResponse_marker = Lens.lens (\DescribeEndpointAccessResponse' {marker} -> marker) (\s@DescribeEndpointAccessResponse' {} a -> s {marker = a} :: DescribeEndpointAccessResponse)++-- | The response's http status code.+describeEndpointAccessResponse_httpStatus :: Lens.Lens' DescribeEndpointAccessResponse Prelude.Int+describeEndpointAccessResponse_httpStatus = Lens.lens (\DescribeEndpointAccessResponse' {httpStatus} -> httpStatus) (\s@DescribeEndpointAccessResponse' {} a -> s {httpStatus = a} :: DescribeEndpointAccessResponse)++instance+ Prelude.NFData+ DescribeEndpointAccessResponse+ where+ rnf DescribeEndpointAccessResponse' {..} =+ Prelude.rnf endpointAccessList+ `Prelude.seq` Prelude.rnf marker+ `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/Redshift/DescribeEndpointAuthorization.hs view
@@ -0,0 +1,305 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module : Amazonka.Redshift.DescribeEndpointAuthorization+-- Copyright : (c) 2013-2023 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Describes an endpoint authorization.+--+-- This operation returns paginated results.+module Amazonka.Redshift.DescribeEndpointAuthorization+ ( -- * Creating a Request+ DescribeEndpointAuthorization (..),+ newDescribeEndpointAuthorization,++ -- * Request Lenses+ describeEndpointAuthorization_account,+ describeEndpointAuthorization_clusterIdentifier,+ describeEndpointAuthorization_grantee,+ describeEndpointAuthorization_marker,+ describeEndpointAuthorization_maxRecords,++ -- * Destructuring the Response+ DescribeEndpointAuthorizationResponse (..),+ newDescribeEndpointAuthorizationResponse,++ -- * Response Lenses+ describeEndpointAuthorizationResponse_endpointAuthorizationList,+ describeEndpointAuthorizationResponse_marker,+ describeEndpointAuthorizationResponse_httpStatus,+ )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Redshift.Types+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newDescribeEndpointAuthorization' smart constructor.+data DescribeEndpointAuthorization = DescribeEndpointAuthorization'+ { -- | The AAmazon Web Services account ID of either the cluster owner+ -- (grantor) or grantee. If @Grantee@ parameter is true, then the @Account@+ -- value is of the grantor.+ account :: Prelude.Maybe Prelude.Text,+ -- | The cluster identifier of the cluster to access.+ clusterIdentifier :: Prelude.Maybe Prelude.Text,+ -- | Indicates whether to check authorization from a grantor or grantee point+ -- of view. If true, Amazon Redshift returns endpoint authorizations that+ -- you\'ve been granted. If false (default), checks authorization from a+ -- grantor point of view.+ grantee :: Prelude.Maybe Prelude.Bool,+ -- | An optional pagination token provided by a previous+ -- @DescribeEndpointAuthorization@ request. If this parameter is specified,+ -- the response includes only records beyond the marker, up to the value+ -- specified by the @MaxRecords@ parameter.+ marker :: Prelude.Maybe Prelude.Text,+ -- | The maximum number of records to include in the response. If more+ -- records exist than the specified @MaxRecords@ value, a pagination token+ -- called a @Marker@ is included in the response so that the remaining+ -- results can be retrieved.+ maxRecords :: Prelude.Maybe Prelude.Int+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeEndpointAuthorization' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'account', 'describeEndpointAuthorization_account' - The AAmazon Web Services account ID of either the cluster owner+-- (grantor) or grantee. If @Grantee@ parameter is true, then the @Account@+-- value is of the grantor.+--+-- 'clusterIdentifier', 'describeEndpointAuthorization_clusterIdentifier' - The cluster identifier of the cluster to access.+--+-- 'grantee', 'describeEndpointAuthorization_grantee' - Indicates whether to check authorization from a grantor or grantee point+-- of view. If true, Amazon Redshift returns endpoint authorizations that+-- you\'ve been granted. If false (default), checks authorization from a+-- grantor point of view.+--+-- 'marker', 'describeEndpointAuthorization_marker' - An optional pagination token provided by a previous+-- @DescribeEndpointAuthorization@ request. If this parameter is specified,+-- the response includes only records beyond the marker, up to the value+-- specified by the @MaxRecords@ parameter.+--+-- 'maxRecords', 'describeEndpointAuthorization_maxRecords' - The maximum number of records to include in the response. If more+-- records exist than the specified @MaxRecords@ value, a pagination token+-- called a @Marker@ is included in the response so that the remaining+-- results can be retrieved.+newDescribeEndpointAuthorization ::+ DescribeEndpointAuthorization+newDescribeEndpointAuthorization =+ DescribeEndpointAuthorization'+ { account =+ Prelude.Nothing,+ clusterIdentifier = Prelude.Nothing,+ grantee = Prelude.Nothing,+ marker = Prelude.Nothing,+ maxRecords = Prelude.Nothing+ }++-- | The AAmazon Web Services account ID of either the cluster owner+-- (grantor) or grantee. If @Grantee@ parameter is true, then the @Account@+-- value is of the grantor.+describeEndpointAuthorization_account :: Lens.Lens' DescribeEndpointAuthorization (Prelude.Maybe Prelude.Text)+describeEndpointAuthorization_account = Lens.lens (\DescribeEndpointAuthorization' {account} -> account) (\s@DescribeEndpointAuthorization' {} a -> s {account = a} :: DescribeEndpointAuthorization)++-- | The cluster identifier of the cluster to access.+describeEndpointAuthorization_clusterIdentifier :: Lens.Lens' DescribeEndpointAuthorization (Prelude.Maybe Prelude.Text)+describeEndpointAuthorization_clusterIdentifier = Lens.lens (\DescribeEndpointAuthorization' {clusterIdentifier} -> clusterIdentifier) (\s@DescribeEndpointAuthorization' {} a -> s {clusterIdentifier = a} :: DescribeEndpointAuthorization)++-- | Indicates whether to check authorization from a grantor or grantee point+-- of view. If true, Amazon Redshift returns endpoint authorizations that+-- you\'ve been granted. If false (default), checks authorization from a+-- grantor point of view.+describeEndpointAuthorization_grantee :: Lens.Lens' DescribeEndpointAuthorization (Prelude.Maybe Prelude.Bool)+describeEndpointAuthorization_grantee = Lens.lens (\DescribeEndpointAuthorization' {grantee} -> grantee) (\s@DescribeEndpointAuthorization' {} a -> s {grantee = a} :: DescribeEndpointAuthorization)++-- | An optional pagination token provided by a previous+-- @DescribeEndpointAuthorization@ request. If this parameter is specified,+-- the response includes only records beyond the marker, up to the value+-- specified by the @MaxRecords@ parameter.+describeEndpointAuthorization_marker :: Lens.Lens' DescribeEndpointAuthorization (Prelude.Maybe Prelude.Text)+describeEndpointAuthorization_marker = Lens.lens (\DescribeEndpointAuthorization' {marker} -> marker) (\s@DescribeEndpointAuthorization' {} a -> s {marker = a} :: DescribeEndpointAuthorization)++-- | The maximum number of records to include in the response. If more+-- records exist than the specified @MaxRecords@ value, a pagination token+-- called a @Marker@ is included in the response so that the remaining+-- results can be retrieved.+describeEndpointAuthorization_maxRecords :: Lens.Lens' DescribeEndpointAuthorization (Prelude.Maybe Prelude.Int)+describeEndpointAuthorization_maxRecords = Lens.lens (\DescribeEndpointAuthorization' {maxRecords} -> maxRecords) (\s@DescribeEndpointAuthorization' {} a -> s {maxRecords = a} :: DescribeEndpointAuthorization)++instance Core.AWSPager DescribeEndpointAuthorization where+ page rq rs+ | Core.stop+ ( rs+ Lens.^? describeEndpointAuthorizationResponse_marker+ Prelude.. Lens._Just+ ) =+ Prelude.Nothing+ | Core.stop+ ( rs+ Lens.^? describeEndpointAuthorizationResponse_endpointAuthorizationList+ Prelude.. Lens._Just+ ) =+ Prelude.Nothing+ | Prelude.otherwise =+ Prelude.Just+ Prelude.$ rq+ Prelude.& describeEndpointAuthorization_marker+ Lens..~ rs+ Lens.^? describeEndpointAuthorizationResponse_marker+ Prelude.. Lens._Just++instance+ Core.AWSRequest+ DescribeEndpointAuthorization+ where+ type+ AWSResponse DescribeEndpointAuthorization =+ DescribeEndpointAuthorizationResponse+ request overrides =+ Request.postQuery (overrides defaultService)+ response =+ Response.receiveXMLWrapper+ "DescribeEndpointAuthorizationResult"+ ( \s h x ->+ DescribeEndpointAuthorizationResponse'+ Prelude.<$> ( x+ Data..@? "EndpointAuthorizationList"+ Core..!@ Prelude.mempty+ Prelude.>>= Core.may (Data.parseXMLList "member")+ )+ Prelude.<*> (x Data..@? "Marker")+ Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+ )++instance+ Prelude.Hashable+ DescribeEndpointAuthorization+ where+ hashWithSalt _salt DescribeEndpointAuthorization' {..} =+ _salt+ `Prelude.hashWithSalt` account+ `Prelude.hashWithSalt` clusterIdentifier+ `Prelude.hashWithSalt` grantee+ `Prelude.hashWithSalt` marker+ `Prelude.hashWithSalt` maxRecords++instance Prelude.NFData DescribeEndpointAuthorization where+ rnf DescribeEndpointAuthorization' {..} =+ Prelude.rnf account+ `Prelude.seq` Prelude.rnf clusterIdentifier+ `Prelude.seq` Prelude.rnf grantee+ `Prelude.seq` Prelude.rnf marker+ `Prelude.seq` Prelude.rnf maxRecords++instance Data.ToHeaders DescribeEndpointAuthorization where+ toHeaders = Prelude.const Prelude.mempty++instance Data.ToPath DescribeEndpointAuthorization where+ toPath = Prelude.const "/"++instance Data.ToQuery DescribeEndpointAuthorization where+ toQuery DescribeEndpointAuthorization' {..} =+ Prelude.mconcat+ [ "Action"+ Data.=: ( "DescribeEndpointAuthorization" ::+ Prelude.ByteString+ ),+ "Version"+ Data.=: ("2012-12-01" :: Prelude.ByteString),+ "Account" Data.=: account,+ "ClusterIdentifier" Data.=: clusterIdentifier,+ "Grantee" Data.=: grantee,+ "Marker" Data.=: marker,+ "MaxRecords" Data.=: maxRecords+ ]++-- | /See:/ 'newDescribeEndpointAuthorizationResponse' smart constructor.+data DescribeEndpointAuthorizationResponse = DescribeEndpointAuthorizationResponse'+ { -- | The authorizations to an endpoint.+ endpointAuthorizationList :: Prelude.Maybe [EndpointAuthorization],+ -- | An optional pagination token provided by a previous+ -- @DescribeEndpointAuthorization@ request. If this parameter is specified,+ -- the response includes only records beyond the marker, up to the value+ -- specified by the @MaxRecords@ parameter.+ marker :: Prelude.Maybe Prelude.Text,+ -- | The response's http status code.+ httpStatus :: Prelude.Int+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeEndpointAuthorizationResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'endpointAuthorizationList', 'describeEndpointAuthorizationResponse_endpointAuthorizationList' - The authorizations to an endpoint.+--+-- 'marker', 'describeEndpointAuthorizationResponse_marker' - An optional pagination token provided by a previous+-- @DescribeEndpointAuthorization@ request. If this parameter is specified,+-- the response includes only records beyond the marker, up to the value+-- specified by the @MaxRecords@ parameter.+--+-- 'httpStatus', 'describeEndpointAuthorizationResponse_httpStatus' - The response's http status code.+newDescribeEndpointAuthorizationResponse ::+ -- | 'httpStatus'+ Prelude.Int ->+ DescribeEndpointAuthorizationResponse+newDescribeEndpointAuthorizationResponse pHttpStatus_ =+ DescribeEndpointAuthorizationResponse'+ { endpointAuthorizationList =+ Prelude.Nothing,+ marker = Prelude.Nothing,+ httpStatus = pHttpStatus_+ }++-- | The authorizations to an endpoint.+describeEndpointAuthorizationResponse_endpointAuthorizationList :: Lens.Lens' DescribeEndpointAuthorizationResponse (Prelude.Maybe [EndpointAuthorization])+describeEndpointAuthorizationResponse_endpointAuthorizationList = Lens.lens (\DescribeEndpointAuthorizationResponse' {endpointAuthorizationList} -> endpointAuthorizationList) (\s@DescribeEndpointAuthorizationResponse' {} a -> s {endpointAuthorizationList = a} :: DescribeEndpointAuthorizationResponse) Prelude.. Lens.mapping Lens.coerced++-- | An optional pagination token provided by a previous+-- @DescribeEndpointAuthorization@ request. If this parameter is specified,+-- the response includes only records beyond the marker, up to the value+-- specified by the @MaxRecords@ parameter.+describeEndpointAuthorizationResponse_marker :: Lens.Lens' DescribeEndpointAuthorizationResponse (Prelude.Maybe Prelude.Text)+describeEndpointAuthorizationResponse_marker = Lens.lens (\DescribeEndpointAuthorizationResponse' {marker} -> marker) (\s@DescribeEndpointAuthorizationResponse' {} a -> s {marker = a} :: DescribeEndpointAuthorizationResponse)++-- | The response's http status code.+describeEndpointAuthorizationResponse_httpStatus :: Lens.Lens' DescribeEndpointAuthorizationResponse Prelude.Int+describeEndpointAuthorizationResponse_httpStatus = Lens.lens (\DescribeEndpointAuthorizationResponse' {httpStatus} -> httpStatus) (\s@DescribeEndpointAuthorizationResponse' {} a -> s {httpStatus = a} :: DescribeEndpointAuthorizationResponse)++instance+ Prelude.NFData+ DescribeEndpointAuthorizationResponse+ where+ rnf DescribeEndpointAuthorizationResponse' {..} =+ Prelude.rnf endpointAuthorizationList+ `Prelude.seq` Prelude.rnf marker+ `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/Redshift/DescribeEventCategories.hs view
@@ -0,0 +1,185 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module : Amazonka.Redshift.DescribeEventCategories+-- Copyright : (c) 2013-2023 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Displays a list of event categories for all event source types, or for a+-- specified source type. For a list of the event categories and source+-- types, go to+-- <https://docs.aws.amazon.com/redshift/latest/mgmt/working-with-event-notifications.html Amazon Redshift Event Notifications>.+module Amazonka.Redshift.DescribeEventCategories+ ( -- * Creating a Request+ DescribeEventCategories (..),+ newDescribeEventCategories,++ -- * Request Lenses+ describeEventCategories_sourceType,++ -- * Destructuring the Response+ DescribeEventCategoriesResponse (..),+ newDescribeEventCategoriesResponse,++ -- * Response Lenses+ describeEventCategoriesResponse_eventCategoriesMapList,+ describeEventCategoriesResponse_httpStatus,+ )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Redshift.Types+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- |+--+-- /See:/ 'newDescribeEventCategories' smart constructor.+data DescribeEventCategories = DescribeEventCategories'+ { -- | The source type, such as cluster or parameter group, to which the+ -- described event categories apply.+ --+ -- Valid values: cluster, cluster-snapshot, cluster-parameter-group,+ -- cluster-security-group, and scheduled-action.+ sourceType :: Prelude.Maybe Prelude.Text+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeEventCategories' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'sourceType', 'describeEventCategories_sourceType' - The source type, such as cluster or parameter group, to which the+-- described event categories apply.+--+-- Valid values: cluster, cluster-snapshot, cluster-parameter-group,+-- cluster-security-group, and scheduled-action.+newDescribeEventCategories ::+ DescribeEventCategories+newDescribeEventCategories =+ DescribeEventCategories'+ { sourceType =+ Prelude.Nothing+ }++-- | The source type, such as cluster or parameter group, to which the+-- described event categories apply.+--+-- Valid values: cluster, cluster-snapshot, cluster-parameter-group,+-- cluster-security-group, and scheduled-action.+describeEventCategories_sourceType :: Lens.Lens' DescribeEventCategories (Prelude.Maybe Prelude.Text)+describeEventCategories_sourceType = Lens.lens (\DescribeEventCategories' {sourceType} -> sourceType) (\s@DescribeEventCategories' {} a -> s {sourceType = a} :: DescribeEventCategories)++instance Core.AWSRequest DescribeEventCategories where+ type+ AWSResponse DescribeEventCategories =+ DescribeEventCategoriesResponse+ request overrides =+ Request.postQuery (overrides defaultService)+ response =+ Response.receiveXMLWrapper+ "DescribeEventCategoriesResult"+ ( \s h x ->+ DescribeEventCategoriesResponse'+ Prelude.<$> ( x+ Data..@? "EventCategoriesMapList"+ Core..!@ Prelude.mempty+ Prelude.>>= Core.may (Data.parseXMLList "EventCategoriesMap")+ )+ Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+ )++instance Prelude.Hashable DescribeEventCategories where+ hashWithSalt _salt DescribeEventCategories' {..} =+ _salt `Prelude.hashWithSalt` sourceType++instance Prelude.NFData DescribeEventCategories where+ rnf DescribeEventCategories' {..} =+ Prelude.rnf sourceType++instance Data.ToHeaders DescribeEventCategories where+ toHeaders = Prelude.const Prelude.mempty++instance Data.ToPath DescribeEventCategories where+ toPath = Prelude.const "/"++instance Data.ToQuery DescribeEventCategories where+ toQuery DescribeEventCategories' {..} =+ Prelude.mconcat+ [ "Action"+ Data.=: ("DescribeEventCategories" :: Prelude.ByteString),+ "Version"+ Data.=: ("2012-12-01" :: Prelude.ByteString),+ "SourceType" Data.=: sourceType+ ]++-- |+--+-- /See:/ 'newDescribeEventCategoriesResponse' smart constructor.+data DescribeEventCategoriesResponse = DescribeEventCategoriesResponse'+ { -- | A list of event categories descriptions.+ eventCategoriesMapList :: Prelude.Maybe [EventCategoriesMap],+ -- | The response's http status code.+ httpStatus :: Prelude.Int+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeEventCategoriesResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'eventCategoriesMapList', 'describeEventCategoriesResponse_eventCategoriesMapList' - A list of event categories descriptions.+--+-- 'httpStatus', 'describeEventCategoriesResponse_httpStatus' - The response's http status code.+newDescribeEventCategoriesResponse ::+ -- | 'httpStatus'+ Prelude.Int ->+ DescribeEventCategoriesResponse+newDescribeEventCategoriesResponse pHttpStatus_ =+ DescribeEventCategoriesResponse'+ { eventCategoriesMapList =+ Prelude.Nothing,+ httpStatus = pHttpStatus_+ }++-- | A list of event categories descriptions.+describeEventCategoriesResponse_eventCategoriesMapList :: Lens.Lens' DescribeEventCategoriesResponse (Prelude.Maybe [EventCategoriesMap])+describeEventCategoriesResponse_eventCategoriesMapList = Lens.lens (\DescribeEventCategoriesResponse' {eventCategoriesMapList} -> eventCategoriesMapList) (\s@DescribeEventCategoriesResponse' {} a -> s {eventCategoriesMapList = a} :: DescribeEventCategoriesResponse) Prelude.. Lens.mapping Lens.coerced++-- | The response's http status code.+describeEventCategoriesResponse_httpStatus :: Lens.Lens' DescribeEventCategoriesResponse Prelude.Int+describeEventCategoriesResponse_httpStatus = Lens.lens (\DescribeEventCategoriesResponse' {httpStatus} -> httpStatus) (\s@DescribeEventCategoriesResponse' {} a -> s {httpStatus = a} :: DescribeEventCategoriesResponse)++instance+ Prelude.NFData+ DescribeEventCategoriesResponse+ where+ rnf DescribeEventCategoriesResponse' {..} =+ Prelude.rnf eventCategoriesMapList+ `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/Redshift/DescribeEventSubscriptions.hs view
@@ -0,0 +1,369 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module : Amazonka.Redshift.DescribeEventSubscriptions+-- Copyright : (c) 2013-2023 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Lists descriptions of all the Amazon Redshift event notification+-- subscriptions for a customer account. If you specify a subscription+-- name, lists the description for that subscription.+--+-- If you specify both tag keys and tag values in the same request, Amazon+-- Redshift returns all event notification subscriptions that match any+-- combination of the specified keys and values. For example, if you have+-- @owner@ and @environment@ for tag keys, and @admin@ and @test@ for tag+-- values, all subscriptions that have any combination of those values are+-- returned.+--+-- If both tag keys and values are omitted from the request, subscriptions+-- are returned regardless of whether they have tag keys or values+-- associated with them.+--+-- This operation returns paginated results.+module Amazonka.Redshift.DescribeEventSubscriptions+ ( -- * Creating a Request+ DescribeEventSubscriptions (..),+ newDescribeEventSubscriptions,++ -- * Request Lenses+ describeEventSubscriptions_marker,+ describeEventSubscriptions_maxRecords,+ describeEventSubscriptions_subscriptionName,+ describeEventSubscriptions_tagKeys,+ describeEventSubscriptions_tagValues,++ -- * Destructuring the Response+ DescribeEventSubscriptionsResponse (..),+ newDescribeEventSubscriptionsResponse,++ -- * Response Lenses+ describeEventSubscriptionsResponse_eventSubscriptionsList,+ describeEventSubscriptionsResponse_marker,+ describeEventSubscriptionsResponse_httpStatus,+ )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Redshift.Types+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- |+--+-- /See:/ 'newDescribeEventSubscriptions' smart constructor.+data DescribeEventSubscriptions = DescribeEventSubscriptions'+ { -- | An optional parameter that specifies the starting point to return a set+ -- of response records. When the results of a DescribeEventSubscriptions+ -- request exceed the value specified in @MaxRecords@, Amazon Web Services+ -- returns a value in the @Marker@ field of the response. You can retrieve+ -- the next set of response records by providing the returned marker value+ -- in the @Marker@ parameter and retrying the request.+ marker :: Prelude.Maybe Prelude.Text,+ -- | The maximum number of response records to return in each call. If the+ -- number of remaining response records exceeds the specified @MaxRecords@+ -- value, a value is returned in a @marker@ field of the response. You can+ -- retrieve the next set of records by retrying the command with the+ -- returned marker value.+ --+ -- Default: @100@+ --+ -- Constraints: minimum 20, maximum 100.+ maxRecords :: Prelude.Maybe Prelude.Int,+ -- | The name of the Amazon Redshift event notification subscription to be+ -- described.+ subscriptionName :: Prelude.Maybe Prelude.Text,+ -- | A tag key or keys for which you want to return all matching event+ -- notification subscriptions that are associated with the specified key or+ -- keys. For example, suppose that you have subscriptions that are tagged+ -- with keys called @owner@ and @environment@. If you specify both of these+ -- tag keys in the request, Amazon Redshift returns a response with the+ -- subscriptions that have either or both of these tag keys associated with+ -- them.+ tagKeys :: Prelude.Maybe [Prelude.Text],+ -- | A tag value or values for which you want to return all matching event+ -- notification subscriptions that are associated with the specified tag+ -- value or values. For example, suppose that you have subscriptions that+ -- are tagged with values called @admin@ and @test@. If you specify both of+ -- these tag values in the request, Amazon Redshift returns a response with+ -- the subscriptions that have either or both of these tag values+ -- associated with them.+ tagValues :: Prelude.Maybe [Prelude.Text]+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeEventSubscriptions' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'marker', 'describeEventSubscriptions_marker' - An optional parameter that specifies the starting point to return a set+-- of response records. When the results of a DescribeEventSubscriptions+-- request exceed the value specified in @MaxRecords@, Amazon Web Services+-- returns a value in the @Marker@ field of the response. You can retrieve+-- the next set of response records by providing the returned marker value+-- in the @Marker@ parameter and retrying the request.+--+-- 'maxRecords', 'describeEventSubscriptions_maxRecords' - The maximum number of response records to return in each call. If the+-- number of remaining response records exceeds the specified @MaxRecords@+-- value, a value is returned in a @marker@ field of the response. You can+-- retrieve the next set of records by retrying the command with the+-- returned marker value.+--+-- Default: @100@+--+-- Constraints: minimum 20, maximum 100.+--+-- 'subscriptionName', 'describeEventSubscriptions_subscriptionName' - The name of the Amazon Redshift event notification subscription to be+-- described.+--+-- 'tagKeys', 'describeEventSubscriptions_tagKeys' - A tag key or keys for which you want to return all matching event+-- notification subscriptions that are associated with the specified key or+-- keys. For example, suppose that you have subscriptions that are tagged+-- with keys called @owner@ and @environment@. If you specify both of these+-- tag keys in the request, Amazon Redshift returns a response with the+-- subscriptions that have either or both of these tag keys associated with+-- them.+--+-- 'tagValues', 'describeEventSubscriptions_tagValues' - A tag value or values for which you want to return all matching event+-- notification subscriptions that are associated with the specified tag+-- value or values. For example, suppose that you have subscriptions that+-- are tagged with values called @admin@ and @test@. If you specify both of+-- these tag values in the request, Amazon Redshift returns a response with+-- the subscriptions that have either or both of these tag values+-- associated with them.+newDescribeEventSubscriptions ::+ DescribeEventSubscriptions+newDescribeEventSubscriptions =+ DescribeEventSubscriptions'+ { marker =+ Prelude.Nothing,+ maxRecords = Prelude.Nothing,+ subscriptionName = Prelude.Nothing,+ tagKeys = Prelude.Nothing,+ tagValues = Prelude.Nothing+ }++-- | An optional parameter that specifies the starting point to return a set+-- of response records. When the results of a DescribeEventSubscriptions+-- request exceed the value specified in @MaxRecords@, Amazon Web Services+-- returns a value in the @Marker@ field of the response. You can retrieve+-- the next set of response records by providing the returned marker value+-- in the @Marker@ parameter and retrying the request.+describeEventSubscriptions_marker :: Lens.Lens' DescribeEventSubscriptions (Prelude.Maybe Prelude.Text)+describeEventSubscriptions_marker = Lens.lens (\DescribeEventSubscriptions' {marker} -> marker) (\s@DescribeEventSubscriptions' {} a -> s {marker = a} :: DescribeEventSubscriptions)++-- | The maximum number of response records to return in each call. If the+-- number of remaining response records exceeds the specified @MaxRecords@+-- value, a value is returned in a @marker@ field of the response. You can+-- retrieve the next set of records by retrying the command with the+-- returned marker value.+--+-- Default: @100@+--+-- Constraints: minimum 20, maximum 100.+describeEventSubscriptions_maxRecords :: Lens.Lens' DescribeEventSubscriptions (Prelude.Maybe Prelude.Int)+describeEventSubscriptions_maxRecords = Lens.lens (\DescribeEventSubscriptions' {maxRecords} -> maxRecords) (\s@DescribeEventSubscriptions' {} a -> s {maxRecords = a} :: DescribeEventSubscriptions)++-- | The name of the Amazon Redshift event notification subscription to be+-- described.+describeEventSubscriptions_subscriptionName :: Lens.Lens' DescribeEventSubscriptions (Prelude.Maybe Prelude.Text)+describeEventSubscriptions_subscriptionName = Lens.lens (\DescribeEventSubscriptions' {subscriptionName} -> subscriptionName) (\s@DescribeEventSubscriptions' {} a -> s {subscriptionName = a} :: DescribeEventSubscriptions)++-- | A tag key or keys for which you want to return all matching event+-- notification subscriptions that are associated with the specified key or+-- keys. For example, suppose that you have subscriptions that are tagged+-- with keys called @owner@ and @environment@. If you specify both of these+-- tag keys in the request, Amazon Redshift returns a response with the+-- subscriptions that have either or both of these tag keys associated with+-- them.+describeEventSubscriptions_tagKeys :: Lens.Lens' DescribeEventSubscriptions (Prelude.Maybe [Prelude.Text])+describeEventSubscriptions_tagKeys = Lens.lens (\DescribeEventSubscriptions' {tagKeys} -> tagKeys) (\s@DescribeEventSubscriptions' {} a -> s {tagKeys = a} :: DescribeEventSubscriptions) Prelude.. Lens.mapping Lens.coerced++-- | A tag value or values for which you want to return all matching event+-- notification subscriptions that are associated with the specified tag+-- value or values. For example, suppose that you have subscriptions that+-- are tagged with values called @admin@ and @test@. If you specify both of+-- these tag values in the request, Amazon Redshift returns a response with+-- the subscriptions that have either or both of these tag values+-- associated with them.+describeEventSubscriptions_tagValues :: Lens.Lens' DescribeEventSubscriptions (Prelude.Maybe [Prelude.Text])+describeEventSubscriptions_tagValues = Lens.lens (\DescribeEventSubscriptions' {tagValues} -> tagValues) (\s@DescribeEventSubscriptions' {} a -> s {tagValues = a} :: DescribeEventSubscriptions) Prelude.. Lens.mapping Lens.coerced++instance Core.AWSPager DescribeEventSubscriptions where+ page rq rs+ | Core.stop+ ( rs+ Lens.^? describeEventSubscriptionsResponse_marker+ Prelude.. Lens._Just+ ) =+ Prelude.Nothing+ | Core.stop+ ( rs+ Lens.^? describeEventSubscriptionsResponse_eventSubscriptionsList+ Prelude.. Lens._Just+ ) =+ Prelude.Nothing+ | Prelude.otherwise =+ Prelude.Just+ Prelude.$ rq+ Prelude.& describeEventSubscriptions_marker+ Lens..~ rs+ Lens.^? describeEventSubscriptionsResponse_marker+ Prelude.. Lens._Just++instance Core.AWSRequest DescribeEventSubscriptions where+ type+ AWSResponse DescribeEventSubscriptions =+ DescribeEventSubscriptionsResponse+ request overrides =+ Request.postQuery (overrides defaultService)+ response =+ Response.receiveXMLWrapper+ "DescribeEventSubscriptionsResult"+ ( \s h x ->+ DescribeEventSubscriptionsResponse'+ Prelude.<$> ( x+ Data..@? "EventSubscriptionsList"+ Core..!@ Prelude.mempty+ Prelude.>>= Core.may (Data.parseXMLList "EventSubscription")+ )+ Prelude.<*> (x Data..@? "Marker")+ Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+ )++instance Prelude.Hashable DescribeEventSubscriptions where+ hashWithSalt _salt DescribeEventSubscriptions' {..} =+ _salt+ `Prelude.hashWithSalt` marker+ `Prelude.hashWithSalt` maxRecords+ `Prelude.hashWithSalt` subscriptionName+ `Prelude.hashWithSalt` tagKeys+ `Prelude.hashWithSalt` tagValues++instance Prelude.NFData DescribeEventSubscriptions where+ rnf DescribeEventSubscriptions' {..} =+ Prelude.rnf marker+ `Prelude.seq` Prelude.rnf maxRecords+ `Prelude.seq` Prelude.rnf subscriptionName+ `Prelude.seq` Prelude.rnf tagKeys+ `Prelude.seq` Prelude.rnf tagValues++instance Data.ToHeaders DescribeEventSubscriptions where+ toHeaders = Prelude.const Prelude.mempty++instance Data.ToPath DescribeEventSubscriptions where+ toPath = Prelude.const "/"++instance Data.ToQuery DescribeEventSubscriptions where+ toQuery DescribeEventSubscriptions' {..} =+ Prelude.mconcat+ [ "Action"+ Data.=: ("DescribeEventSubscriptions" :: Prelude.ByteString),+ "Version"+ Data.=: ("2012-12-01" :: Prelude.ByteString),+ "Marker" Data.=: marker,+ "MaxRecords" Data.=: maxRecords,+ "SubscriptionName" Data.=: subscriptionName,+ "TagKeys"+ Data.=: Data.toQuery+ (Data.toQueryList "TagKey" Prelude.<$> tagKeys),+ "TagValues"+ Data.=: Data.toQuery+ (Data.toQueryList "TagValue" Prelude.<$> tagValues)+ ]++-- |+--+-- /See:/ 'newDescribeEventSubscriptionsResponse' smart constructor.+data DescribeEventSubscriptionsResponse = DescribeEventSubscriptionsResponse'+ { -- | A list of event subscriptions.+ eventSubscriptionsList :: Prelude.Maybe [EventSubscription],+ -- | A value that indicates the starting point for the next set of response+ -- records in a subsequent request. If a value is returned in a response,+ -- you can retrieve the next set of records by providing this returned+ -- marker value in the @Marker@ parameter and retrying the command. If the+ -- @Marker@ field is empty, all response records have been retrieved for+ -- the request.+ marker :: Prelude.Maybe Prelude.Text,+ -- | The response's http status code.+ httpStatus :: Prelude.Int+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeEventSubscriptionsResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'eventSubscriptionsList', 'describeEventSubscriptionsResponse_eventSubscriptionsList' - A list of event subscriptions.+--+-- 'marker', 'describeEventSubscriptionsResponse_marker' - A value that indicates the starting point for the next set of response+-- records in a subsequent request. If a value is returned in a response,+-- you can retrieve the next set of records by providing this returned+-- marker value in the @Marker@ parameter and retrying the command. If the+-- @Marker@ field is empty, all response records have been retrieved for+-- the request.+--+-- 'httpStatus', 'describeEventSubscriptionsResponse_httpStatus' - The response's http status code.+newDescribeEventSubscriptionsResponse ::+ -- | 'httpStatus'+ Prelude.Int ->+ DescribeEventSubscriptionsResponse+newDescribeEventSubscriptionsResponse pHttpStatus_ =+ DescribeEventSubscriptionsResponse'+ { eventSubscriptionsList =+ Prelude.Nothing,+ marker = Prelude.Nothing,+ httpStatus = pHttpStatus_+ }++-- | A list of event subscriptions.+describeEventSubscriptionsResponse_eventSubscriptionsList :: Lens.Lens' DescribeEventSubscriptionsResponse (Prelude.Maybe [EventSubscription])+describeEventSubscriptionsResponse_eventSubscriptionsList = Lens.lens (\DescribeEventSubscriptionsResponse' {eventSubscriptionsList} -> eventSubscriptionsList) (\s@DescribeEventSubscriptionsResponse' {} a -> s {eventSubscriptionsList = a} :: DescribeEventSubscriptionsResponse) Prelude.. Lens.mapping Lens.coerced++-- | A value that indicates the starting point for the next set of response+-- records in a subsequent request. If a value is returned in a response,+-- you can retrieve the next set of records by providing this returned+-- marker value in the @Marker@ parameter and retrying the command. If the+-- @Marker@ field is empty, all response records have been retrieved for+-- the request.+describeEventSubscriptionsResponse_marker :: Lens.Lens' DescribeEventSubscriptionsResponse (Prelude.Maybe Prelude.Text)+describeEventSubscriptionsResponse_marker = Lens.lens (\DescribeEventSubscriptionsResponse' {marker} -> marker) (\s@DescribeEventSubscriptionsResponse' {} a -> s {marker = a} :: DescribeEventSubscriptionsResponse)++-- | The response's http status code.+describeEventSubscriptionsResponse_httpStatus :: Lens.Lens' DescribeEventSubscriptionsResponse Prelude.Int+describeEventSubscriptionsResponse_httpStatus = Lens.lens (\DescribeEventSubscriptionsResponse' {httpStatus} -> httpStatus) (\s@DescribeEventSubscriptionsResponse' {} a -> s {httpStatus = a} :: DescribeEventSubscriptionsResponse)++instance+ Prelude.NFData+ DescribeEventSubscriptionsResponse+ where+ rnf DescribeEventSubscriptionsResponse' {..} =+ Prelude.rnf eventSubscriptionsList+ `Prelude.seq` Prelude.rnf marker+ `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/Redshift/DescribeEvents.hs view
@@ -0,0 +1,476 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module : Amazonka.Redshift.DescribeEvents+-- Copyright : (c) 2013-2023 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Returns events related to clusters, security groups, snapshots, and+-- parameter groups for the past 14 days. Events specific to a particular+-- cluster, security group, snapshot or parameter group can be obtained by+-- providing the name as a parameter. By default, the past hour of events+-- are returned.+--+-- This operation returns paginated results.+module Amazonka.Redshift.DescribeEvents+ ( -- * Creating a Request+ DescribeEvents (..),+ newDescribeEvents,++ -- * Request Lenses+ describeEvents_duration,+ describeEvents_endTime,+ describeEvents_marker,+ describeEvents_maxRecords,+ describeEvents_sourceIdentifier,+ describeEvents_sourceType,+ describeEvents_startTime,++ -- * Destructuring the Response+ DescribeEventsResponse (..),+ newDescribeEventsResponse,++ -- * Response Lenses+ describeEventsResponse_events,+ describeEventsResponse_marker,+ describeEventsResponse_httpStatus,+ )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Redshift.Types+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- |+--+-- /See:/ 'newDescribeEvents' smart constructor.+data DescribeEvents = DescribeEvents'+ { -- | The number of minutes prior to the time of the request for which to+ -- retrieve events. For example, if the request is sent at 18:00 and you+ -- specify a duration of 60, then only events which have occurred after+ -- 17:00 will be returned.+ --+ -- Default: @60@+ duration :: Prelude.Maybe Prelude.Int,+ -- | The end of the time interval for which to retrieve events, specified in+ -- ISO 8601 format. For more information about ISO 8601, go to the+ -- <http://en.wikipedia.org/wiki/ISO_8601 ISO8601 Wikipedia page.>+ --+ -- Example: @2009-07-08T18:00Z@+ endTime :: Prelude.Maybe Data.ISO8601,+ -- | An optional parameter that specifies the starting point to return a set+ -- of response records. When the results of a DescribeEvents request exceed+ -- the value specified in @MaxRecords@, Amazon Web Services returns a value+ -- in the @Marker@ field of the response. You can retrieve the next set of+ -- response records by providing the returned marker value in the @Marker@+ -- parameter and retrying the request.+ marker :: Prelude.Maybe Prelude.Text,+ -- | The maximum number of response records to return in each call. If the+ -- number of remaining response records exceeds the specified @MaxRecords@+ -- value, a value is returned in a @marker@ field of the response. You can+ -- retrieve the next set of records by retrying the command with the+ -- returned marker value.+ --+ -- Default: @100@+ --+ -- Constraints: minimum 20, maximum 100.+ maxRecords :: Prelude.Maybe Prelude.Int,+ -- | The identifier of the event source for which events will be returned. If+ -- this parameter is not specified, then all sources are included in the+ -- response.+ --+ -- Constraints:+ --+ -- If /SourceIdentifier/ is supplied, /SourceType/ must also be provided.+ --+ -- - Specify a cluster identifier when /SourceType/ is @cluster@.+ --+ -- - Specify a cluster security group name when /SourceType/ is+ -- @cluster-security-group@.+ --+ -- - Specify a cluster parameter group name when /SourceType/ is+ -- @cluster-parameter-group@.+ --+ -- - Specify a cluster snapshot identifier when /SourceType/ is+ -- @cluster-snapshot@.+ sourceIdentifier :: Prelude.Maybe Prelude.Text,+ -- | The event source to retrieve events for. If no value is specified, all+ -- events are returned.+ --+ -- Constraints:+ --+ -- If /SourceType/ is supplied, /SourceIdentifier/ must also be provided.+ --+ -- - Specify @cluster@ when /SourceIdentifier/ is a cluster identifier.+ --+ -- - Specify @cluster-security-group@ when /SourceIdentifier/ is a+ -- cluster security group name.+ --+ -- - Specify @cluster-parameter-group@ when /SourceIdentifier/ is a+ -- cluster parameter group name.+ --+ -- - Specify @cluster-snapshot@ when /SourceIdentifier/ is a cluster+ -- snapshot identifier.+ sourceType :: Prelude.Maybe SourceType,+ -- | The beginning of the time interval to retrieve events for, specified in+ -- ISO 8601 format. For more information about ISO 8601, go to the+ -- <http://en.wikipedia.org/wiki/ISO_8601 ISO8601 Wikipedia page.>+ --+ -- Example: @2009-07-08T18:00Z@+ startTime :: Prelude.Maybe Data.ISO8601+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeEvents' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'duration', 'describeEvents_duration' - The number of minutes prior to the time of the request for which to+-- retrieve events. For example, if the request is sent at 18:00 and you+-- specify a duration of 60, then only events which have occurred after+-- 17:00 will be returned.+--+-- Default: @60@+--+-- 'endTime', 'describeEvents_endTime' - The end of the time interval for which to retrieve events, specified in+-- ISO 8601 format. For more information about ISO 8601, go to the+-- <http://en.wikipedia.org/wiki/ISO_8601 ISO8601 Wikipedia page.>+--+-- Example: @2009-07-08T18:00Z@+--+-- 'marker', 'describeEvents_marker' - An optional parameter that specifies the starting point to return a set+-- of response records. When the results of a DescribeEvents request exceed+-- the value specified in @MaxRecords@, Amazon Web Services returns a value+-- in the @Marker@ field of the response. You can retrieve the next set of+-- response records by providing the returned marker value in the @Marker@+-- parameter and retrying the request.+--+-- 'maxRecords', 'describeEvents_maxRecords' - The maximum number of response records to return in each call. If the+-- number of remaining response records exceeds the specified @MaxRecords@+-- value, a value is returned in a @marker@ field of the response. You can+-- retrieve the next set of records by retrying the command with the+-- returned marker value.+--+-- Default: @100@+--+-- Constraints: minimum 20, maximum 100.+--+-- 'sourceIdentifier', 'describeEvents_sourceIdentifier' - The identifier of the event source for which events will be returned. If+-- this parameter is not specified, then all sources are included in the+-- response.+--+-- Constraints:+--+-- If /SourceIdentifier/ is supplied, /SourceType/ must also be provided.+--+-- - Specify a cluster identifier when /SourceType/ is @cluster@.+--+-- - Specify a cluster security group name when /SourceType/ is+-- @cluster-security-group@.+--+-- - Specify a cluster parameter group name when /SourceType/ is+-- @cluster-parameter-group@.+--+-- - Specify a cluster snapshot identifier when /SourceType/ is+-- @cluster-snapshot@.+--+-- 'sourceType', 'describeEvents_sourceType' - The event source to retrieve events for. If no value is specified, all+-- events are returned.+--+-- Constraints:+--+-- If /SourceType/ is supplied, /SourceIdentifier/ must also be provided.+--+-- - Specify @cluster@ when /SourceIdentifier/ is a cluster identifier.+--+-- - Specify @cluster-security-group@ when /SourceIdentifier/ is a+-- cluster security group name.+--+-- - Specify @cluster-parameter-group@ when /SourceIdentifier/ is a+-- cluster parameter group name.+--+-- - Specify @cluster-snapshot@ when /SourceIdentifier/ is a cluster+-- snapshot identifier.+--+-- 'startTime', 'describeEvents_startTime' - The beginning of the time interval to retrieve events for, specified in+-- ISO 8601 format. For more information about ISO 8601, go to the+-- <http://en.wikipedia.org/wiki/ISO_8601 ISO8601 Wikipedia page.>+--+-- Example: @2009-07-08T18:00Z@+newDescribeEvents ::+ DescribeEvents+newDescribeEvents =+ DescribeEvents'+ { duration = Prelude.Nothing,+ endTime = Prelude.Nothing,+ marker = Prelude.Nothing,+ maxRecords = Prelude.Nothing,+ sourceIdentifier = Prelude.Nothing,+ sourceType = Prelude.Nothing,+ startTime = Prelude.Nothing+ }++-- | The number of minutes prior to the time of the request for which to+-- retrieve events. For example, if the request is sent at 18:00 and you+-- specify a duration of 60, then only events which have occurred after+-- 17:00 will be returned.+--+-- Default: @60@+describeEvents_duration :: Lens.Lens' DescribeEvents (Prelude.Maybe Prelude.Int)+describeEvents_duration = Lens.lens (\DescribeEvents' {duration} -> duration) (\s@DescribeEvents' {} a -> s {duration = a} :: DescribeEvents)++-- | The end of the time interval for which to retrieve events, specified in+-- ISO 8601 format. For more information about ISO 8601, go to the+-- <http://en.wikipedia.org/wiki/ISO_8601 ISO8601 Wikipedia page.>+--+-- Example: @2009-07-08T18:00Z@+describeEvents_endTime :: Lens.Lens' DescribeEvents (Prelude.Maybe Prelude.UTCTime)+describeEvents_endTime = Lens.lens (\DescribeEvents' {endTime} -> endTime) (\s@DescribeEvents' {} a -> s {endTime = a} :: DescribeEvents) Prelude.. Lens.mapping Data._Time++-- | An optional parameter that specifies the starting point to return a set+-- of response records. When the results of a DescribeEvents request exceed+-- the value specified in @MaxRecords@, Amazon Web Services returns a value+-- in the @Marker@ field of the response. You can retrieve the next set of+-- response records by providing the returned marker value in the @Marker@+-- parameter and retrying the request.+describeEvents_marker :: Lens.Lens' DescribeEvents (Prelude.Maybe Prelude.Text)+describeEvents_marker = Lens.lens (\DescribeEvents' {marker} -> marker) (\s@DescribeEvents' {} a -> s {marker = a} :: DescribeEvents)++-- | The maximum number of response records to return in each call. If the+-- number of remaining response records exceeds the specified @MaxRecords@+-- value, a value is returned in a @marker@ field of the response. You can+-- retrieve the next set of records by retrying the command with the+-- returned marker value.+--+-- Default: @100@+--+-- Constraints: minimum 20, maximum 100.+describeEvents_maxRecords :: Lens.Lens' DescribeEvents (Prelude.Maybe Prelude.Int)+describeEvents_maxRecords = Lens.lens (\DescribeEvents' {maxRecords} -> maxRecords) (\s@DescribeEvents' {} a -> s {maxRecords = a} :: DescribeEvents)++-- | The identifier of the event source for which events will be returned. If+-- this parameter is not specified, then all sources are included in the+-- response.+--+-- Constraints:+--+-- If /SourceIdentifier/ is supplied, /SourceType/ must also be provided.+--+-- - Specify a cluster identifier when /SourceType/ is @cluster@.+--+-- - Specify a cluster security group name when /SourceType/ is+-- @cluster-security-group@.+--+-- - Specify a cluster parameter group name when /SourceType/ is+-- @cluster-parameter-group@.+--+-- - Specify a cluster snapshot identifier when /SourceType/ is+-- @cluster-snapshot@.+describeEvents_sourceIdentifier :: Lens.Lens' DescribeEvents (Prelude.Maybe Prelude.Text)+describeEvents_sourceIdentifier = Lens.lens (\DescribeEvents' {sourceIdentifier} -> sourceIdentifier) (\s@DescribeEvents' {} a -> s {sourceIdentifier = a} :: DescribeEvents)++-- | The event source to retrieve events for. If no value is specified, all+-- events are returned.+--+-- Constraints:+--+-- If /SourceType/ is supplied, /SourceIdentifier/ must also be provided.+--+-- - Specify @cluster@ when /SourceIdentifier/ is a cluster identifier.+--+-- - Specify @cluster-security-group@ when /SourceIdentifier/ is a+-- cluster security group name.+--+-- - Specify @cluster-parameter-group@ when /SourceIdentifier/ is a+-- cluster parameter group name.+--+-- - Specify @cluster-snapshot@ when /SourceIdentifier/ is a cluster+-- snapshot identifier.+describeEvents_sourceType :: Lens.Lens' DescribeEvents (Prelude.Maybe SourceType)+describeEvents_sourceType = Lens.lens (\DescribeEvents' {sourceType} -> sourceType) (\s@DescribeEvents' {} a -> s {sourceType = a} :: DescribeEvents)++-- | The beginning of the time interval to retrieve events for, specified in+-- ISO 8601 format. For more information about ISO 8601, go to the+-- <http://en.wikipedia.org/wiki/ISO_8601 ISO8601 Wikipedia page.>+--+-- Example: @2009-07-08T18:00Z@+describeEvents_startTime :: Lens.Lens' DescribeEvents (Prelude.Maybe Prelude.UTCTime)+describeEvents_startTime = Lens.lens (\DescribeEvents' {startTime} -> startTime) (\s@DescribeEvents' {} a -> s {startTime = a} :: DescribeEvents) Prelude.. Lens.mapping Data._Time++instance Core.AWSPager DescribeEvents where+ page rq rs+ | Core.stop+ ( rs+ Lens.^? describeEventsResponse_marker+ Prelude.. Lens._Just+ ) =+ Prelude.Nothing+ | Core.stop+ ( rs+ Lens.^? describeEventsResponse_events+ Prelude.. Lens._Just+ ) =+ Prelude.Nothing+ | Prelude.otherwise =+ Prelude.Just+ Prelude.$ rq+ Prelude.& describeEvents_marker+ Lens..~ rs+ Lens.^? describeEventsResponse_marker+ Prelude.. Lens._Just++instance Core.AWSRequest DescribeEvents where+ type+ AWSResponse DescribeEvents =+ DescribeEventsResponse+ request overrides =+ Request.postQuery (overrides defaultService)+ response =+ Response.receiveXMLWrapper+ "DescribeEventsResult"+ ( \s h x ->+ DescribeEventsResponse'+ Prelude.<$> ( x+ Data..@? "Events"+ Core..!@ Prelude.mempty+ Prelude.>>= Core.may (Data.parseXMLList "Event")+ )+ Prelude.<*> (x Data..@? "Marker")+ Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+ )++instance Prelude.Hashable DescribeEvents where+ hashWithSalt _salt DescribeEvents' {..} =+ _salt+ `Prelude.hashWithSalt` duration+ `Prelude.hashWithSalt` endTime+ `Prelude.hashWithSalt` marker+ `Prelude.hashWithSalt` maxRecords+ `Prelude.hashWithSalt` sourceIdentifier+ `Prelude.hashWithSalt` sourceType+ `Prelude.hashWithSalt` startTime++instance Prelude.NFData DescribeEvents where+ rnf DescribeEvents' {..} =+ Prelude.rnf duration+ `Prelude.seq` Prelude.rnf endTime+ `Prelude.seq` Prelude.rnf marker+ `Prelude.seq` Prelude.rnf maxRecords+ `Prelude.seq` Prelude.rnf sourceIdentifier+ `Prelude.seq` Prelude.rnf sourceType+ `Prelude.seq` Prelude.rnf startTime++instance Data.ToHeaders DescribeEvents where+ toHeaders = Prelude.const Prelude.mempty++instance Data.ToPath DescribeEvents where+ toPath = Prelude.const "/"++instance Data.ToQuery DescribeEvents where+ toQuery DescribeEvents' {..} =+ Prelude.mconcat+ [ "Action"+ Data.=: ("DescribeEvents" :: Prelude.ByteString),+ "Version"+ Data.=: ("2012-12-01" :: Prelude.ByteString),+ "Duration" Data.=: duration,+ "EndTime" Data.=: endTime,+ "Marker" Data.=: marker,+ "MaxRecords" Data.=: maxRecords,+ "SourceIdentifier" Data.=: sourceIdentifier,+ "SourceType" Data.=: sourceType,+ "StartTime" Data.=: startTime+ ]++-- |+--+-- /See:/ 'newDescribeEventsResponse' smart constructor.+data DescribeEventsResponse = DescribeEventsResponse'+ { -- | A list of @Event@ instances.+ events :: Prelude.Maybe [Event],+ -- | A value that indicates the starting point for the next set of response+ -- records in a subsequent request. If a value is returned in a response,+ -- you can retrieve the next set of records by providing this returned+ -- marker value in the @Marker@ parameter and retrying the command. If the+ -- @Marker@ field is empty, all response records have been retrieved for+ -- the request.+ marker :: Prelude.Maybe Prelude.Text,+ -- | The response's http status code.+ httpStatus :: Prelude.Int+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeEventsResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'events', 'describeEventsResponse_events' - A list of @Event@ instances.+--+-- 'marker', 'describeEventsResponse_marker' - A value that indicates the starting point for the next set of response+-- records in a subsequent request. If a value is returned in a response,+-- you can retrieve the next set of records by providing this returned+-- marker value in the @Marker@ parameter and retrying the command. If the+-- @Marker@ field is empty, all response records have been retrieved for+-- the request.+--+-- 'httpStatus', 'describeEventsResponse_httpStatus' - The response's http status code.+newDescribeEventsResponse ::+ -- | 'httpStatus'+ Prelude.Int ->+ DescribeEventsResponse+newDescribeEventsResponse pHttpStatus_ =+ DescribeEventsResponse'+ { events = Prelude.Nothing,+ marker = Prelude.Nothing,+ httpStatus = pHttpStatus_+ }++-- | A list of @Event@ instances.+describeEventsResponse_events :: Lens.Lens' DescribeEventsResponse (Prelude.Maybe [Event])+describeEventsResponse_events = Lens.lens (\DescribeEventsResponse' {events} -> events) (\s@DescribeEventsResponse' {} a -> s {events = a} :: DescribeEventsResponse) Prelude.. Lens.mapping Lens.coerced++-- | A value that indicates the starting point for the next set of response+-- records in a subsequent request. If a value is returned in a response,+-- you can retrieve the next set of records by providing this returned+-- marker value in the @Marker@ parameter and retrying the command. If the+-- @Marker@ field is empty, all response records have been retrieved for+-- the request.+describeEventsResponse_marker :: Lens.Lens' DescribeEventsResponse (Prelude.Maybe Prelude.Text)+describeEventsResponse_marker = Lens.lens (\DescribeEventsResponse' {marker} -> marker) (\s@DescribeEventsResponse' {} a -> s {marker = a} :: DescribeEventsResponse)++-- | The response's http status code.+describeEventsResponse_httpStatus :: Lens.Lens' DescribeEventsResponse Prelude.Int+describeEventsResponse_httpStatus = Lens.lens (\DescribeEventsResponse' {httpStatus} -> httpStatus) (\s@DescribeEventsResponse' {} a -> s {httpStatus = a} :: DescribeEventsResponse)++instance Prelude.NFData DescribeEventsResponse where+ rnf DescribeEventsResponse' {..} =+ Prelude.rnf events+ `Prelude.seq` Prelude.rnf marker+ `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/Redshift/DescribeHsmClientCertificates.hs view
@@ -0,0 +1,387 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module : Amazonka.Redshift.DescribeHsmClientCertificates+-- Copyright : (c) 2013-2023 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Returns information about the specified HSM client certificate. If no+-- certificate ID is specified, returns information about all the HSM+-- certificates owned by your Amazon Web Services account.+--+-- If you specify both tag keys and tag values in the same request, Amazon+-- Redshift returns all HSM client certificates that match any combination+-- of the specified keys and values. For example, if you have @owner@ and+-- @environment@ for tag keys, and @admin@ and @test@ for tag values, all+-- HSM client certificates that have any combination of those values are+-- returned.+--+-- If both tag keys and values are omitted from the request, HSM client+-- certificates are returned regardless of whether they have tag keys or+-- values associated with them.+--+-- This operation returns paginated results.+module Amazonka.Redshift.DescribeHsmClientCertificates+ ( -- * Creating a Request+ DescribeHsmClientCertificates (..),+ newDescribeHsmClientCertificates,++ -- * Request Lenses+ describeHsmClientCertificates_hsmClientCertificateIdentifier,+ describeHsmClientCertificates_marker,+ describeHsmClientCertificates_maxRecords,+ describeHsmClientCertificates_tagKeys,+ describeHsmClientCertificates_tagValues,++ -- * Destructuring the Response+ DescribeHsmClientCertificatesResponse (..),+ newDescribeHsmClientCertificatesResponse,++ -- * Response Lenses+ describeHsmClientCertificatesResponse_hsmClientCertificates,+ describeHsmClientCertificatesResponse_marker,+ describeHsmClientCertificatesResponse_httpStatus,+ )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Redshift.Types+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- |+--+-- /See:/ 'newDescribeHsmClientCertificates' smart constructor.+data DescribeHsmClientCertificates = DescribeHsmClientCertificates'+ { -- | The identifier of a specific HSM client certificate for which you want+ -- information. If no identifier is specified, information is returned for+ -- all HSM client certificates owned by your Amazon Web Services account.+ hsmClientCertificateIdentifier :: Prelude.Maybe Prelude.Text,+ -- | An optional parameter that specifies the starting point to return a set+ -- of response records. When the results of a DescribeHsmClientCertificates+ -- request exceed the value specified in @MaxRecords@, Amazon Web Services+ -- returns a value in the @Marker@ field of the response. You can retrieve+ -- the next set of response records by providing the returned marker value+ -- in the @Marker@ parameter and retrying the request.+ marker :: Prelude.Maybe Prelude.Text,+ -- | The maximum number of response records to return in each call. If the+ -- number of remaining response records exceeds the specified @MaxRecords@+ -- value, a value is returned in a @marker@ field of the response. You can+ -- retrieve the next set of records by retrying the command with the+ -- returned marker value.+ --+ -- Default: @100@+ --+ -- Constraints: minimum 20, maximum 100.+ maxRecords :: Prelude.Maybe Prelude.Int,+ -- | A tag key or keys for which you want to return all matching HSM client+ -- certificates that are associated with the specified key or keys. For+ -- example, suppose that you have HSM client certificates that are tagged+ -- with keys called @owner@ and @environment@. If you specify both of these+ -- tag keys in the request, Amazon Redshift returns a response with the HSM+ -- client certificates that have either or both of these tag keys+ -- associated with them.+ tagKeys :: Prelude.Maybe [Prelude.Text],+ -- | A tag value or values for which you want to return all matching HSM+ -- client certificates that are associated with the specified tag value or+ -- values. For example, suppose that you have HSM client certificates that+ -- are tagged with values called @admin@ and @test@. If you specify both of+ -- these tag values in the request, Amazon Redshift returns a response with+ -- the HSM client certificates that have either or both of these tag values+ -- associated with them.+ tagValues :: Prelude.Maybe [Prelude.Text]+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeHsmClientCertificates' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'hsmClientCertificateIdentifier', 'describeHsmClientCertificates_hsmClientCertificateIdentifier' - The identifier of a specific HSM client certificate for which you want+-- information. If no identifier is specified, information is returned for+-- all HSM client certificates owned by your Amazon Web Services account.+--+-- 'marker', 'describeHsmClientCertificates_marker' - An optional parameter that specifies the starting point to return a set+-- of response records. When the results of a DescribeHsmClientCertificates+-- request exceed the value specified in @MaxRecords@, Amazon Web Services+-- returns a value in the @Marker@ field of the response. You can retrieve+-- the next set of response records by providing the returned marker value+-- in the @Marker@ parameter and retrying the request.+--+-- 'maxRecords', 'describeHsmClientCertificates_maxRecords' - The maximum number of response records to return in each call. If the+-- number of remaining response records exceeds the specified @MaxRecords@+-- value, a value is returned in a @marker@ field of the response. You can+-- retrieve the next set of records by retrying the command with the+-- returned marker value.+--+-- Default: @100@+--+-- Constraints: minimum 20, maximum 100.+--+-- 'tagKeys', 'describeHsmClientCertificates_tagKeys' - A tag key or keys for which you want to return all matching HSM client+-- certificates that are associated with the specified key or keys. For+-- example, suppose that you have HSM client certificates that are tagged+-- with keys called @owner@ and @environment@. If you specify both of these+-- tag keys in the request, Amazon Redshift returns a response with the HSM+-- client certificates that have either or both of these tag keys+-- associated with them.+--+-- 'tagValues', 'describeHsmClientCertificates_tagValues' - A tag value or values for which you want to return all matching HSM+-- client certificates that are associated with the specified tag value or+-- values. For example, suppose that you have HSM client certificates that+-- are tagged with values called @admin@ and @test@. If you specify both of+-- these tag values in the request, Amazon Redshift returns a response with+-- the HSM client certificates that have either or both of these tag values+-- associated with them.+newDescribeHsmClientCertificates ::+ DescribeHsmClientCertificates+newDescribeHsmClientCertificates =+ DescribeHsmClientCertificates'+ { hsmClientCertificateIdentifier =+ Prelude.Nothing,+ marker = Prelude.Nothing,+ maxRecords = Prelude.Nothing,+ tagKeys = Prelude.Nothing,+ tagValues = Prelude.Nothing+ }++-- | The identifier of a specific HSM client certificate for which you want+-- information. If no identifier is specified, information is returned for+-- all HSM client certificates owned by your Amazon Web Services account.+describeHsmClientCertificates_hsmClientCertificateIdentifier :: Lens.Lens' DescribeHsmClientCertificates (Prelude.Maybe Prelude.Text)+describeHsmClientCertificates_hsmClientCertificateIdentifier = Lens.lens (\DescribeHsmClientCertificates' {hsmClientCertificateIdentifier} -> hsmClientCertificateIdentifier) (\s@DescribeHsmClientCertificates' {} a -> s {hsmClientCertificateIdentifier = a} :: DescribeHsmClientCertificates)++-- | An optional parameter that specifies the starting point to return a set+-- of response records. When the results of a DescribeHsmClientCertificates+-- request exceed the value specified in @MaxRecords@, Amazon Web Services+-- returns a value in the @Marker@ field of the response. You can retrieve+-- the next set of response records by providing the returned marker value+-- in the @Marker@ parameter and retrying the request.+describeHsmClientCertificates_marker :: Lens.Lens' DescribeHsmClientCertificates (Prelude.Maybe Prelude.Text)+describeHsmClientCertificates_marker = Lens.lens (\DescribeHsmClientCertificates' {marker} -> marker) (\s@DescribeHsmClientCertificates' {} a -> s {marker = a} :: DescribeHsmClientCertificates)++-- | The maximum number of response records to return in each call. If the+-- number of remaining response records exceeds the specified @MaxRecords@+-- value, a value is returned in a @marker@ field of the response. You can+-- retrieve the next set of records by retrying the command with the+-- returned marker value.+--+-- Default: @100@+--+-- Constraints: minimum 20, maximum 100.+describeHsmClientCertificates_maxRecords :: Lens.Lens' DescribeHsmClientCertificates (Prelude.Maybe Prelude.Int)+describeHsmClientCertificates_maxRecords = Lens.lens (\DescribeHsmClientCertificates' {maxRecords} -> maxRecords) (\s@DescribeHsmClientCertificates' {} a -> s {maxRecords = a} :: DescribeHsmClientCertificates)++-- | A tag key or keys for which you want to return all matching HSM client+-- certificates that are associated with the specified key or keys. For+-- example, suppose that you have HSM client certificates that are tagged+-- with keys called @owner@ and @environment@. If you specify both of these+-- tag keys in the request, Amazon Redshift returns a response with the HSM+-- client certificates that have either or both of these tag keys+-- associated with them.+describeHsmClientCertificates_tagKeys :: Lens.Lens' DescribeHsmClientCertificates (Prelude.Maybe [Prelude.Text])+describeHsmClientCertificates_tagKeys = Lens.lens (\DescribeHsmClientCertificates' {tagKeys} -> tagKeys) (\s@DescribeHsmClientCertificates' {} a -> s {tagKeys = a} :: DescribeHsmClientCertificates) Prelude.. Lens.mapping Lens.coerced++-- | A tag value or values for which you want to return all matching HSM+-- client certificates that are associated with the specified tag value or+-- values. For example, suppose that you have HSM client certificates that+-- are tagged with values called @admin@ and @test@. If you specify both of+-- these tag values in the request, Amazon Redshift returns a response with+-- the HSM client certificates that have either or both of these tag values+-- associated with them.+describeHsmClientCertificates_tagValues :: Lens.Lens' DescribeHsmClientCertificates (Prelude.Maybe [Prelude.Text])+describeHsmClientCertificates_tagValues = Lens.lens (\DescribeHsmClientCertificates' {tagValues} -> tagValues) (\s@DescribeHsmClientCertificates' {} a -> s {tagValues = a} :: DescribeHsmClientCertificates) Prelude.. Lens.mapping Lens.coerced++instance Core.AWSPager DescribeHsmClientCertificates where+ page rq rs+ | Core.stop+ ( rs+ Lens.^? describeHsmClientCertificatesResponse_marker+ Prelude.. Lens._Just+ ) =+ Prelude.Nothing+ | Core.stop+ ( rs+ Lens.^? describeHsmClientCertificatesResponse_hsmClientCertificates+ Prelude.. Lens._Just+ ) =+ Prelude.Nothing+ | Prelude.otherwise =+ Prelude.Just+ Prelude.$ rq+ Prelude.& describeHsmClientCertificates_marker+ Lens..~ rs+ Lens.^? describeHsmClientCertificatesResponse_marker+ Prelude.. Lens._Just++instance+ Core.AWSRequest+ DescribeHsmClientCertificates+ where+ type+ AWSResponse DescribeHsmClientCertificates =+ DescribeHsmClientCertificatesResponse+ request overrides =+ Request.postQuery (overrides defaultService)+ response =+ Response.receiveXMLWrapper+ "DescribeHsmClientCertificatesResult"+ ( \s h x ->+ DescribeHsmClientCertificatesResponse'+ Prelude.<$> ( x+ Data..@? "HsmClientCertificates"+ Core..!@ Prelude.mempty+ Prelude.>>= Core.may (Data.parseXMLList "HsmClientCertificate")+ )+ Prelude.<*> (x Data..@? "Marker")+ Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+ )++instance+ Prelude.Hashable+ DescribeHsmClientCertificates+ where+ hashWithSalt _salt DescribeHsmClientCertificates' {..} =+ _salt+ `Prelude.hashWithSalt` hsmClientCertificateIdentifier+ `Prelude.hashWithSalt` marker+ `Prelude.hashWithSalt` maxRecords+ `Prelude.hashWithSalt` tagKeys+ `Prelude.hashWithSalt` tagValues++instance Prelude.NFData DescribeHsmClientCertificates where+ rnf DescribeHsmClientCertificates' {..} =+ Prelude.rnf hsmClientCertificateIdentifier+ `Prelude.seq` Prelude.rnf marker+ `Prelude.seq` Prelude.rnf maxRecords+ `Prelude.seq` Prelude.rnf tagKeys+ `Prelude.seq` Prelude.rnf tagValues++instance Data.ToHeaders DescribeHsmClientCertificates where+ toHeaders = Prelude.const Prelude.mempty++instance Data.ToPath DescribeHsmClientCertificates where+ toPath = Prelude.const "/"++instance Data.ToQuery DescribeHsmClientCertificates where+ toQuery DescribeHsmClientCertificates' {..} =+ Prelude.mconcat+ [ "Action"+ Data.=: ( "DescribeHsmClientCertificates" ::+ Prelude.ByteString+ ),+ "Version"+ Data.=: ("2012-12-01" :: Prelude.ByteString),+ "HsmClientCertificateIdentifier"+ Data.=: hsmClientCertificateIdentifier,+ "Marker" Data.=: marker,+ "MaxRecords" Data.=: maxRecords,+ "TagKeys"+ Data.=: Data.toQuery+ (Data.toQueryList "TagKey" Prelude.<$> tagKeys),+ "TagValues"+ Data.=: Data.toQuery+ (Data.toQueryList "TagValue" Prelude.<$> tagValues)+ ]++-- |+--+-- /See:/ 'newDescribeHsmClientCertificatesResponse' smart constructor.+data DescribeHsmClientCertificatesResponse = DescribeHsmClientCertificatesResponse'+ { -- | A list of the identifiers for one or more HSM client certificates used+ -- by Amazon Redshift clusters to store and retrieve database encryption+ -- keys in an HSM.+ hsmClientCertificates :: Prelude.Maybe [HsmClientCertificate],+ -- | A value that indicates the starting point for the next set of response+ -- records in a subsequent request. If a value is returned in a response,+ -- you can retrieve the next set of records by providing this returned+ -- marker value in the @Marker@ parameter and retrying the command. If the+ -- @Marker@ field is empty, all response records have been retrieved for+ -- the request.+ marker :: Prelude.Maybe Prelude.Text,+ -- | The response's http status code.+ httpStatus :: Prelude.Int+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeHsmClientCertificatesResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'hsmClientCertificates', 'describeHsmClientCertificatesResponse_hsmClientCertificates' - A list of the identifiers for one or more HSM client certificates used+-- by Amazon Redshift clusters to store and retrieve database encryption+-- keys in an HSM.+--+-- 'marker', 'describeHsmClientCertificatesResponse_marker' - A value that indicates the starting point for the next set of response+-- records in a subsequent request. If a value is returned in a response,+-- you can retrieve the next set of records by providing this returned+-- marker value in the @Marker@ parameter and retrying the command. If the+-- @Marker@ field is empty, all response records have been retrieved for+-- the request.+--+-- 'httpStatus', 'describeHsmClientCertificatesResponse_httpStatus' - The response's http status code.+newDescribeHsmClientCertificatesResponse ::+ -- | 'httpStatus'+ Prelude.Int ->+ DescribeHsmClientCertificatesResponse+newDescribeHsmClientCertificatesResponse pHttpStatus_ =+ DescribeHsmClientCertificatesResponse'+ { hsmClientCertificates =+ Prelude.Nothing,+ marker = Prelude.Nothing,+ httpStatus = pHttpStatus_+ }++-- | A list of the identifiers for one or more HSM client certificates used+-- by Amazon Redshift clusters to store and retrieve database encryption+-- keys in an HSM.+describeHsmClientCertificatesResponse_hsmClientCertificates :: Lens.Lens' DescribeHsmClientCertificatesResponse (Prelude.Maybe [HsmClientCertificate])+describeHsmClientCertificatesResponse_hsmClientCertificates = Lens.lens (\DescribeHsmClientCertificatesResponse' {hsmClientCertificates} -> hsmClientCertificates) (\s@DescribeHsmClientCertificatesResponse' {} a -> s {hsmClientCertificates = a} :: DescribeHsmClientCertificatesResponse) Prelude.. Lens.mapping Lens.coerced++-- | A value that indicates the starting point for the next set of response+-- records in a subsequent request. If a value is returned in a response,+-- you can retrieve the next set of records by providing this returned+-- marker value in the @Marker@ parameter and retrying the command. If the+-- @Marker@ field is empty, all response records have been retrieved for+-- the request.+describeHsmClientCertificatesResponse_marker :: Lens.Lens' DescribeHsmClientCertificatesResponse (Prelude.Maybe Prelude.Text)+describeHsmClientCertificatesResponse_marker = Lens.lens (\DescribeHsmClientCertificatesResponse' {marker} -> marker) (\s@DescribeHsmClientCertificatesResponse' {} a -> s {marker = a} :: DescribeHsmClientCertificatesResponse)++-- | The response's http status code.+describeHsmClientCertificatesResponse_httpStatus :: Lens.Lens' DescribeHsmClientCertificatesResponse Prelude.Int+describeHsmClientCertificatesResponse_httpStatus = Lens.lens (\DescribeHsmClientCertificatesResponse' {httpStatus} -> httpStatus) (\s@DescribeHsmClientCertificatesResponse' {} a -> s {httpStatus = a} :: DescribeHsmClientCertificatesResponse)++instance+ Prelude.NFData+ DescribeHsmClientCertificatesResponse+ where+ rnf DescribeHsmClientCertificatesResponse' {..} =+ Prelude.rnf hsmClientCertificates+ `Prelude.seq` Prelude.rnf marker+ `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/Redshift/DescribeHsmConfigurations.hs view
@@ -0,0 +1,373 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module : Amazonka.Redshift.DescribeHsmConfigurations+-- Copyright : (c) 2013-2023 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Returns information about the specified Amazon Redshift HSM+-- configuration. If no configuration ID is specified, returns information+-- about all the HSM configurations owned by your Amazon Web Services+-- account.+--+-- If you specify both tag keys and tag values in the same request, Amazon+-- Redshift returns all HSM connections that match any combination of the+-- specified keys and values. For example, if you have @owner@ and+-- @environment@ for tag keys, and @admin@ and @test@ for tag values, all+-- HSM connections that have any combination of those values are returned.+--+-- If both tag keys and values are omitted from the request, HSM+-- connections are returned regardless of whether they have tag keys or+-- values associated with them.+--+-- This operation returns paginated results.+module Amazonka.Redshift.DescribeHsmConfigurations+ ( -- * Creating a Request+ DescribeHsmConfigurations (..),+ newDescribeHsmConfigurations,++ -- * Request Lenses+ describeHsmConfigurations_hsmConfigurationIdentifier,+ describeHsmConfigurations_marker,+ describeHsmConfigurations_maxRecords,+ describeHsmConfigurations_tagKeys,+ describeHsmConfigurations_tagValues,++ -- * Destructuring the Response+ DescribeHsmConfigurationsResponse (..),+ newDescribeHsmConfigurationsResponse,++ -- * Response Lenses+ describeHsmConfigurationsResponse_hsmConfigurations,+ describeHsmConfigurationsResponse_marker,+ describeHsmConfigurationsResponse_httpStatus,+ )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Redshift.Types+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- |+--+-- /See:/ 'newDescribeHsmConfigurations' smart constructor.+data DescribeHsmConfigurations = DescribeHsmConfigurations'+ { -- | The identifier of a specific Amazon Redshift HSM configuration to be+ -- described. If no identifier is specified, information is returned for+ -- all HSM configurations owned by your Amazon Web Services account.+ hsmConfigurationIdentifier :: Prelude.Maybe Prelude.Text,+ -- | An optional parameter that specifies the starting point to return a set+ -- of response records. When the results of a DescribeHsmConfigurations+ -- request exceed the value specified in @MaxRecords@, Amazon Web Services+ -- returns a value in the @Marker@ field of the response. You can retrieve+ -- the next set of response records by providing the returned marker value+ -- in the @Marker@ parameter and retrying the request.+ marker :: Prelude.Maybe Prelude.Text,+ -- | The maximum number of response records to return in each call. If the+ -- number of remaining response records exceeds the specified @MaxRecords@+ -- value, a value is returned in a @marker@ field of the response. You can+ -- retrieve the next set of records by retrying the command with the+ -- returned marker value.+ --+ -- Default: @100@+ --+ -- Constraints: minimum 20, maximum 100.+ maxRecords :: Prelude.Maybe Prelude.Int,+ -- | A tag key or keys for which you want to return all matching HSM+ -- configurations that are associated with the specified key or keys. For+ -- example, suppose that you have HSM configurations that are tagged with+ -- keys called @owner@ and @environment@. If you specify both of these tag+ -- keys in the request, Amazon Redshift returns a response with the HSM+ -- configurations that have either or both of these tag keys associated+ -- with them.+ tagKeys :: Prelude.Maybe [Prelude.Text],+ -- | A tag value or values for which you want to return all matching HSM+ -- configurations that are associated with the specified tag value or+ -- values. For example, suppose that you have HSM configurations that are+ -- tagged with values called @admin@ and @test@. If you specify both of+ -- these tag values in the request, Amazon Redshift returns a response with+ -- the HSM configurations that have either or both of these tag values+ -- associated with them.+ tagValues :: Prelude.Maybe [Prelude.Text]+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeHsmConfigurations' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'hsmConfigurationIdentifier', 'describeHsmConfigurations_hsmConfigurationIdentifier' - The identifier of a specific Amazon Redshift HSM configuration to be+-- described. If no identifier is specified, information is returned for+-- all HSM configurations owned by your Amazon Web Services account.+--+-- 'marker', 'describeHsmConfigurations_marker' - An optional parameter that specifies the starting point to return a set+-- of response records. When the results of a DescribeHsmConfigurations+-- request exceed the value specified in @MaxRecords@, Amazon Web Services+-- returns a value in the @Marker@ field of the response. You can retrieve+-- the next set of response records by providing the returned marker value+-- in the @Marker@ parameter and retrying the request.+--+-- 'maxRecords', 'describeHsmConfigurations_maxRecords' - The maximum number of response records to return in each call. If the+-- number of remaining response records exceeds the specified @MaxRecords@+-- value, a value is returned in a @marker@ field of the response. You can+-- retrieve the next set of records by retrying the command with the+-- returned marker value.+--+-- Default: @100@+--+-- Constraints: minimum 20, maximum 100.+--+-- 'tagKeys', 'describeHsmConfigurations_tagKeys' - A tag key or keys for which you want to return all matching HSM+-- configurations that are associated with the specified key or keys. For+-- example, suppose that you have HSM configurations that are tagged with+-- keys called @owner@ and @environment@. If you specify both of these tag+-- keys in the request, Amazon Redshift returns a response with the HSM+-- configurations that have either or both of these tag keys associated+-- with them.+--+-- 'tagValues', 'describeHsmConfigurations_tagValues' - A tag value or values for which you want to return all matching HSM+-- configurations that are associated with the specified tag value or+-- values. For example, suppose that you have HSM configurations that are+-- tagged with values called @admin@ and @test@. If you specify both of+-- these tag values in the request, Amazon Redshift returns a response with+-- the HSM configurations that have either or both of these tag values+-- associated with them.+newDescribeHsmConfigurations ::+ DescribeHsmConfigurations+newDescribeHsmConfigurations =+ DescribeHsmConfigurations'+ { hsmConfigurationIdentifier =+ Prelude.Nothing,+ marker = Prelude.Nothing,+ maxRecords = Prelude.Nothing,+ tagKeys = Prelude.Nothing,+ tagValues = Prelude.Nothing+ }++-- | The identifier of a specific Amazon Redshift HSM configuration to be+-- described. If no identifier is specified, information is returned for+-- all HSM configurations owned by your Amazon Web Services account.+describeHsmConfigurations_hsmConfigurationIdentifier :: Lens.Lens' DescribeHsmConfigurations (Prelude.Maybe Prelude.Text)+describeHsmConfigurations_hsmConfigurationIdentifier = Lens.lens (\DescribeHsmConfigurations' {hsmConfigurationIdentifier} -> hsmConfigurationIdentifier) (\s@DescribeHsmConfigurations' {} a -> s {hsmConfigurationIdentifier = a} :: DescribeHsmConfigurations)++-- | An optional parameter that specifies the starting point to return a set+-- of response records. When the results of a DescribeHsmConfigurations+-- request exceed the value specified in @MaxRecords@, Amazon Web Services+-- returns a value in the @Marker@ field of the response. You can retrieve+-- the next set of response records by providing the returned marker value+-- in the @Marker@ parameter and retrying the request.+describeHsmConfigurations_marker :: Lens.Lens' DescribeHsmConfigurations (Prelude.Maybe Prelude.Text)+describeHsmConfigurations_marker = Lens.lens (\DescribeHsmConfigurations' {marker} -> marker) (\s@DescribeHsmConfigurations' {} a -> s {marker = a} :: DescribeHsmConfigurations)++-- | The maximum number of response records to return in each call. If the+-- number of remaining response records exceeds the specified @MaxRecords@+-- value, a value is returned in a @marker@ field of the response. You can+-- retrieve the next set of records by retrying the command with the+-- returned marker value.+--+-- Default: @100@+--+-- Constraints: minimum 20, maximum 100.+describeHsmConfigurations_maxRecords :: Lens.Lens' DescribeHsmConfigurations (Prelude.Maybe Prelude.Int)+describeHsmConfigurations_maxRecords = Lens.lens (\DescribeHsmConfigurations' {maxRecords} -> maxRecords) (\s@DescribeHsmConfigurations' {} a -> s {maxRecords = a} :: DescribeHsmConfigurations)++-- | A tag key or keys for which you want to return all matching HSM+-- configurations that are associated with the specified key or keys. For+-- example, suppose that you have HSM configurations that are tagged with+-- keys called @owner@ and @environment@. If you specify both of these tag+-- keys in the request, Amazon Redshift returns a response with the HSM+-- configurations that have either or both of these tag keys associated+-- with them.+describeHsmConfigurations_tagKeys :: Lens.Lens' DescribeHsmConfigurations (Prelude.Maybe [Prelude.Text])+describeHsmConfigurations_tagKeys = Lens.lens (\DescribeHsmConfigurations' {tagKeys} -> tagKeys) (\s@DescribeHsmConfigurations' {} a -> s {tagKeys = a} :: DescribeHsmConfigurations) Prelude.. Lens.mapping Lens.coerced++-- | A tag value or values for which you want to return all matching HSM+-- configurations that are associated with the specified tag value or+-- values. For example, suppose that you have HSM configurations that are+-- tagged with values called @admin@ and @test@. If you specify both of+-- these tag values in the request, Amazon Redshift returns a response with+-- the HSM configurations that have either or both of these tag values+-- associated with them.+describeHsmConfigurations_tagValues :: Lens.Lens' DescribeHsmConfigurations (Prelude.Maybe [Prelude.Text])+describeHsmConfigurations_tagValues = Lens.lens (\DescribeHsmConfigurations' {tagValues} -> tagValues) (\s@DescribeHsmConfigurations' {} a -> s {tagValues = a} :: DescribeHsmConfigurations) Prelude.. Lens.mapping Lens.coerced++instance Core.AWSPager DescribeHsmConfigurations where+ page rq rs+ | Core.stop+ ( rs+ Lens.^? describeHsmConfigurationsResponse_marker+ Prelude.. Lens._Just+ ) =+ Prelude.Nothing+ | Core.stop+ ( rs+ Lens.^? describeHsmConfigurationsResponse_hsmConfigurations+ Prelude.. Lens._Just+ ) =+ Prelude.Nothing+ | Prelude.otherwise =+ Prelude.Just+ Prelude.$ rq+ Prelude.& describeHsmConfigurations_marker+ Lens..~ rs+ Lens.^? describeHsmConfigurationsResponse_marker+ Prelude.. Lens._Just++instance Core.AWSRequest DescribeHsmConfigurations where+ type+ AWSResponse DescribeHsmConfigurations =+ DescribeHsmConfigurationsResponse+ request overrides =+ Request.postQuery (overrides defaultService)+ response =+ Response.receiveXMLWrapper+ "DescribeHsmConfigurationsResult"+ ( \s h x ->+ DescribeHsmConfigurationsResponse'+ Prelude.<$> ( x+ Data..@? "HsmConfigurations"+ Core..!@ Prelude.mempty+ Prelude.>>= Core.may (Data.parseXMLList "HsmConfiguration")+ )+ Prelude.<*> (x Data..@? "Marker")+ Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+ )++instance Prelude.Hashable DescribeHsmConfigurations where+ hashWithSalt _salt DescribeHsmConfigurations' {..} =+ _salt+ `Prelude.hashWithSalt` hsmConfigurationIdentifier+ `Prelude.hashWithSalt` marker+ `Prelude.hashWithSalt` maxRecords+ `Prelude.hashWithSalt` tagKeys+ `Prelude.hashWithSalt` tagValues++instance Prelude.NFData DescribeHsmConfigurations where+ rnf DescribeHsmConfigurations' {..} =+ Prelude.rnf hsmConfigurationIdentifier+ `Prelude.seq` Prelude.rnf marker+ `Prelude.seq` Prelude.rnf maxRecords+ `Prelude.seq` Prelude.rnf tagKeys+ `Prelude.seq` Prelude.rnf tagValues++instance Data.ToHeaders DescribeHsmConfigurations where+ toHeaders = Prelude.const Prelude.mempty++instance Data.ToPath DescribeHsmConfigurations where+ toPath = Prelude.const "/"++instance Data.ToQuery DescribeHsmConfigurations where+ toQuery DescribeHsmConfigurations' {..} =+ Prelude.mconcat+ [ "Action"+ Data.=: ("DescribeHsmConfigurations" :: Prelude.ByteString),+ "Version"+ Data.=: ("2012-12-01" :: Prelude.ByteString),+ "HsmConfigurationIdentifier"+ Data.=: hsmConfigurationIdentifier,+ "Marker" Data.=: marker,+ "MaxRecords" Data.=: maxRecords,+ "TagKeys"+ Data.=: Data.toQuery+ (Data.toQueryList "TagKey" Prelude.<$> tagKeys),+ "TagValues"+ Data.=: Data.toQuery+ (Data.toQueryList "TagValue" Prelude.<$> tagValues)+ ]++-- |+--+-- /See:/ 'newDescribeHsmConfigurationsResponse' smart constructor.+data DescribeHsmConfigurationsResponse = DescribeHsmConfigurationsResponse'+ { -- | A list of @HsmConfiguration@ objects.+ hsmConfigurations :: Prelude.Maybe [HsmConfiguration],+ -- | A value that indicates the starting point for the next set of response+ -- records in a subsequent request. If a value is returned in a response,+ -- you can retrieve the next set of records by providing this returned+ -- marker value in the @Marker@ parameter and retrying the command. If the+ -- @Marker@ field is empty, all response records have been retrieved for+ -- the request.+ marker :: Prelude.Maybe Prelude.Text,+ -- | The response's http status code.+ httpStatus :: Prelude.Int+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeHsmConfigurationsResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'hsmConfigurations', 'describeHsmConfigurationsResponse_hsmConfigurations' - A list of @HsmConfiguration@ objects.+--+-- 'marker', 'describeHsmConfigurationsResponse_marker' - A value that indicates the starting point for the next set of response+-- records in a subsequent request. If a value is returned in a response,+-- you can retrieve the next set of records by providing this returned+-- marker value in the @Marker@ parameter and retrying the command. If the+-- @Marker@ field is empty, all response records have been retrieved for+-- the request.+--+-- 'httpStatus', 'describeHsmConfigurationsResponse_httpStatus' - The response's http status code.+newDescribeHsmConfigurationsResponse ::+ -- | 'httpStatus'+ Prelude.Int ->+ DescribeHsmConfigurationsResponse+newDescribeHsmConfigurationsResponse pHttpStatus_ =+ DescribeHsmConfigurationsResponse'+ { hsmConfigurations =+ Prelude.Nothing,+ marker = Prelude.Nothing,+ httpStatus = pHttpStatus_+ }++-- | A list of @HsmConfiguration@ objects.+describeHsmConfigurationsResponse_hsmConfigurations :: Lens.Lens' DescribeHsmConfigurationsResponse (Prelude.Maybe [HsmConfiguration])+describeHsmConfigurationsResponse_hsmConfigurations = Lens.lens (\DescribeHsmConfigurationsResponse' {hsmConfigurations} -> hsmConfigurations) (\s@DescribeHsmConfigurationsResponse' {} a -> s {hsmConfigurations = a} :: DescribeHsmConfigurationsResponse) Prelude.. Lens.mapping Lens.coerced++-- | A value that indicates the starting point for the next set of response+-- records in a subsequent request. If a value is returned in a response,+-- you can retrieve the next set of records by providing this returned+-- marker value in the @Marker@ parameter and retrying the command. If the+-- @Marker@ field is empty, all response records have been retrieved for+-- the request.+describeHsmConfigurationsResponse_marker :: Lens.Lens' DescribeHsmConfigurationsResponse (Prelude.Maybe Prelude.Text)+describeHsmConfigurationsResponse_marker = Lens.lens (\DescribeHsmConfigurationsResponse' {marker} -> marker) (\s@DescribeHsmConfigurationsResponse' {} a -> s {marker = a} :: DescribeHsmConfigurationsResponse)++-- | The response's http status code.+describeHsmConfigurationsResponse_httpStatus :: Lens.Lens' DescribeHsmConfigurationsResponse Prelude.Int+describeHsmConfigurationsResponse_httpStatus = Lens.lens (\DescribeHsmConfigurationsResponse' {httpStatus} -> httpStatus) (\s@DescribeHsmConfigurationsResponse' {} a -> s {httpStatus = a} :: DescribeHsmConfigurationsResponse)++instance+ Prelude.NFData+ DescribeHsmConfigurationsResponse+ where+ rnf DescribeHsmConfigurationsResponse' {..} =+ Prelude.rnf hsmConfigurations+ `Prelude.seq` Prelude.rnf marker+ `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/Redshift/DescribeLoggingStatus.hs view
@@ -0,0 +1,128 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module : Amazonka.Redshift.DescribeLoggingStatus+-- Copyright : (c) 2013-2023 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Describes whether information, such as queries and connection attempts,+-- is being logged for the specified Amazon Redshift cluster.+module Amazonka.Redshift.DescribeLoggingStatus+ ( -- * Creating a Request+ DescribeLoggingStatus (..),+ newDescribeLoggingStatus,++ -- * Request Lenses+ describeLoggingStatus_clusterIdentifier,++ -- * Destructuring the Response+ LoggingStatus (..),+ newLoggingStatus,++ -- * Response Lenses+ loggingStatus_bucketName,+ loggingStatus_lastFailureMessage,+ loggingStatus_lastFailureTime,+ loggingStatus_lastSuccessfulDeliveryTime,+ loggingStatus_logDestinationType,+ loggingStatus_logExports,+ loggingStatus_loggingEnabled,+ loggingStatus_s3KeyPrefix,+ )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Redshift.Types+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- |+--+-- /See:/ 'newDescribeLoggingStatus' smart constructor.+data DescribeLoggingStatus = DescribeLoggingStatus'+ { -- | The identifier of the cluster from which to get the logging status.+ --+ -- Example: @examplecluster@+ clusterIdentifier :: Prelude.Text+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeLoggingStatus' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'clusterIdentifier', 'describeLoggingStatus_clusterIdentifier' - The identifier of the cluster from which to get the logging status.+--+-- Example: @examplecluster@+newDescribeLoggingStatus ::+ -- | 'clusterIdentifier'+ Prelude.Text ->+ DescribeLoggingStatus+newDescribeLoggingStatus pClusterIdentifier_ =+ DescribeLoggingStatus'+ { clusterIdentifier =+ pClusterIdentifier_+ }++-- | The identifier of the cluster from which to get the logging status.+--+-- Example: @examplecluster@+describeLoggingStatus_clusterIdentifier :: Lens.Lens' DescribeLoggingStatus Prelude.Text+describeLoggingStatus_clusterIdentifier = Lens.lens (\DescribeLoggingStatus' {clusterIdentifier} -> clusterIdentifier) (\s@DescribeLoggingStatus' {} a -> s {clusterIdentifier = a} :: DescribeLoggingStatus)++instance Core.AWSRequest DescribeLoggingStatus where+ type+ AWSResponse DescribeLoggingStatus =+ LoggingStatus+ request overrides =+ Request.postQuery (overrides defaultService)+ response =+ Response.receiveXMLWrapper+ "DescribeLoggingStatusResult"+ (\s h x -> Data.parseXML x)++instance Prelude.Hashable DescribeLoggingStatus where+ hashWithSalt _salt DescribeLoggingStatus' {..} =+ _salt `Prelude.hashWithSalt` clusterIdentifier++instance Prelude.NFData DescribeLoggingStatus where+ rnf DescribeLoggingStatus' {..} =+ Prelude.rnf clusterIdentifier++instance Data.ToHeaders DescribeLoggingStatus where+ toHeaders = Prelude.const Prelude.mempty++instance Data.ToPath DescribeLoggingStatus where+ toPath = Prelude.const "/"++instance Data.ToQuery DescribeLoggingStatus where+ toQuery DescribeLoggingStatus' {..} =+ Prelude.mconcat+ [ "Action"+ Data.=: ("DescribeLoggingStatus" :: Prelude.ByteString),+ "Version"+ Data.=: ("2012-12-01" :: Prelude.ByteString),+ "ClusterIdentifier" Data.=: clusterIdentifier+ ]
+ gen/Amazonka/Redshift/DescribeNodeConfigurationOptions.hs view
@@ -0,0 +1,413 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module : Amazonka.Redshift.DescribeNodeConfigurationOptions+-- Copyright : (c) 2013-2023 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Returns properties of possible node configurations such as node type,+-- number of nodes, and disk usage for the specified action type.+--+-- This operation returns paginated results.+module Amazonka.Redshift.DescribeNodeConfigurationOptions+ ( -- * Creating a Request+ DescribeNodeConfigurationOptions (..),+ newDescribeNodeConfigurationOptions,++ -- * Request Lenses+ describeNodeConfigurationOptions_clusterIdentifier,+ describeNodeConfigurationOptions_filters,+ describeNodeConfigurationOptions_marker,+ describeNodeConfigurationOptions_maxRecords,+ describeNodeConfigurationOptions_ownerAccount,+ describeNodeConfigurationOptions_snapshotArn,+ describeNodeConfigurationOptions_snapshotIdentifier,+ describeNodeConfigurationOptions_actionType,++ -- * Destructuring the Response+ DescribeNodeConfigurationOptionsResponse (..),+ newDescribeNodeConfigurationOptionsResponse,++ -- * Response Lenses+ describeNodeConfigurationOptionsResponse_marker,+ describeNodeConfigurationOptionsResponse_nodeConfigurationOptionList,+ describeNodeConfigurationOptionsResponse_httpStatus,+ )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Redshift.Types+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newDescribeNodeConfigurationOptions' smart constructor.+data DescribeNodeConfigurationOptions = DescribeNodeConfigurationOptions'+ { -- | The identifier of the cluster to evaluate for possible node+ -- configurations.+ clusterIdentifier :: Prelude.Maybe Prelude.Text,+ -- | A set of name, operator, and value items to filter the results.+ filters :: Prelude.Maybe [NodeConfigurationOptionsFilter],+ -- | An optional parameter that specifies the starting point to return a set+ -- of response records. When the results of a+ -- DescribeNodeConfigurationOptions request exceed the value specified in+ -- @MaxRecords@, Amazon Web Services returns a value in the @Marker@ field+ -- of the response. You can retrieve the next set of response records by+ -- providing the returned marker value in the @Marker@ parameter and+ -- retrying the request.+ marker :: Prelude.Maybe Prelude.Text,+ -- | The maximum number of response records to return in each call. If the+ -- number of remaining response records exceeds the specified @MaxRecords@+ -- value, a value is returned in a @marker@ field of the response. You can+ -- retrieve the next set of records by retrying the command with the+ -- returned marker value.+ --+ -- Default: @500@+ --+ -- Constraints: minimum 100, maximum 500.+ maxRecords :: Prelude.Maybe Prelude.Int,+ -- | The Amazon Web Services account used to create or copy the snapshot.+ -- Required if you are restoring a snapshot you do not own, optional if you+ -- own the snapshot.+ ownerAccount :: Prelude.Maybe Prelude.Text,+ -- | The Amazon Resource Name (ARN) of the snapshot associated with the+ -- message to describe node configuration.+ snapshotArn :: Prelude.Maybe Prelude.Text,+ -- | The identifier of the snapshot to evaluate for possible node+ -- configurations.+ snapshotIdentifier :: Prelude.Maybe Prelude.Text,+ -- | The action type to evaluate for possible node configurations. Specify+ -- \"restore-cluster\" to get configuration combinations based on an+ -- existing snapshot. Specify \"recommend-node-config\" to get+ -- configuration recommendations based on an existing cluster or snapshot.+ -- Specify \"resize-cluster\" to get configuration combinations for elastic+ -- resize based on an existing cluster.+ actionType :: ActionType+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeNodeConfigurationOptions' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'clusterIdentifier', 'describeNodeConfigurationOptions_clusterIdentifier' - The identifier of the cluster to evaluate for possible node+-- configurations.+--+-- 'filters', 'describeNodeConfigurationOptions_filters' - A set of name, operator, and value items to filter the results.+--+-- 'marker', 'describeNodeConfigurationOptions_marker' - An optional parameter that specifies the starting point to return a set+-- of response records. When the results of a+-- DescribeNodeConfigurationOptions request exceed the value specified in+-- @MaxRecords@, Amazon Web Services returns a value in the @Marker@ field+-- of the response. You can retrieve the next set of response records by+-- providing the returned marker value in the @Marker@ parameter and+-- retrying the request.+--+-- 'maxRecords', 'describeNodeConfigurationOptions_maxRecords' - The maximum number of response records to return in each call. If the+-- number of remaining response records exceeds the specified @MaxRecords@+-- value, a value is returned in a @marker@ field of the response. You can+-- retrieve the next set of records by retrying the command with the+-- returned marker value.+--+-- Default: @500@+--+-- Constraints: minimum 100, maximum 500.+--+-- 'ownerAccount', 'describeNodeConfigurationOptions_ownerAccount' - The Amazon Web Services account used to create or copy the snapshot.+-- Required if you are restoring a snapshot you do not own, optional if you+-- own the snapshot.+--+-- 'snapshotArn', 'describeNodeConfigurationOptions_snapshotArn' - The Amazon Resource Name (ARN) of the snapshot associated with the+-- message to describe node configuration.+--+-- 'snapshotIdentifier', 'describeNodeConfigurationOptions_snapshotIdentifier' - The identifier of the snapshot to evaluate for possible node+-- configurations.+--+-- 'actionType', 'describeNodeConfigurationOptions_actionType' - The action type to evaluate for possible node configurations. Specify+-- \"restore-cluster\" to get configuration combinations based on an+-- existing snapshot. Specify \"recommend-node-config\" to get+-- configuration recommendations based on an existing cluster or snapshot.+-- Specify \"resize-cluster\" to get configuration combinations for elastic+-- resize based on an existing cluster.+newDescribeNodeConfigurationOptions ::+ -- | 'actionType'+ ActionType ->+ DescribeNodeConfigurationOptions+newDescribeNodeConfigurationOptions pActionType_ =+ DescribeNodeConfigurationOptions'+ { clusterIdentifier =+ Prelude.Nothing,+ filters = Prelude.Nothing,+ marker = Prelude.Nothing,+ maxRecords = Prelude.Nothing,+ ownerAccount = Prelude.Nothing,+ snapshotArn = Prelude.Nothing,+ snapshotIdentifier = Prelude.Nothing,+ actionType = pActionType_+ }++-- | The identifier of the cluster to evaluate for possible node+-- configurations.+describeNodeConfigurationOptions_clusterIdentifier :: Lens.Lens' DescribeNodeConfigurationOptions (Prelude.Maybe Prelude.Text)+describeNodeConfigurationOptions_clusterIdentifier = Lens.lens (\DescribeNodeConfigurationOptions' {clusterIdentifier} -> clusterIdentifier) (\s@DescribeNodeConfigurationOptions' {} a -> s {clusterIdentifier = a} :: DescribeNodeConfigurationOptions)++-- | A set of name, operator, and value items to filter the results.+describeNodeConfigurationOptions_filters :: Lens.Lens' DescribeNodeConfigurationOptions (Prelude.Maybe [NodeConfigurationOptionsFilter])+describeNodeConfigurationOptions_filters = Lens.lens (\DescribeNodeConfigurationOptions' {filters} -> filters) (\s@DescribeNodeConfigurationOptions' {} a -> s {filters = a} :: DescribeNodeConfigurationOptions) Prelude.. Lens.mapping Lens.coerced++-- | An optional parameter that specifies the starting point to return a set+-- of response records. When the results of a+-- DescribeNodeConfigurationOptions request exceed the value specified in+-- @MaxRecords@, Amazon Web Services returns a value in the @Marker@ field+-- of the response. You can retrieve the next set of response records by+-- providing the returned marker value in the @Marker@ parameter and+-- retrying the request.+describeNodeConfigurationOptions_marker :: Lens.Lens' DescribeNodeConfigurationOptions (Prelude.Maybe Prelude.Text)+describeNodeConfigurationOptions_marker = Lens.lens (\DescribeNodeConfigurationOptions' {marker} -> marker) (\s@DescribeNodeConfigurationOptions' {} a -> s {marker = a} :: DescribeNodeConfigurationOptions)++-- | The maximum number of response records to return in each call. If the+-- number of remaining response records exceeds the specified @MaxRecords@+-- value, a value is returned in a @marker@ field of the response. You can+-- retrieve the next set of records by retrying the command with the+-- returned marker value.+--+-- Default: @500@+--+-- Constraints: minimum 100, maximum 500.+describeNodeConfigurationOptions_maxRecords :: Lens.Lens' DescribeNodeConfigurationOptions (Prelude.Maybe Prelude.Int)+describeNodeConfigurationOptions_maxRecords = Lens.lens (\DescribeNodeConfigurationOptions' {maxRecords} -> maxRecords) (\s@DescribeNodeConfigurationOptions' {} a -> s {maxRecords = a} :: DescribeNodeConfigurationOptions)++-- | The Amazon Web Services account used to create or copy the snapshot.+-- Required if you are restoring a snapshot you do not own, optional if you+-- own the snapshot.+describeNodeConfigurationOptions_ownerAccount :: Lens.Lens' DescribeNodeConfigurationOptions (Prelude.Maybe Prelude.Text)+describeNodeConfigurationOptions_ownerAccount = Lens.lens (\DescribeNodeConfigurationOptions' {ownerAccount} -> ownerAccount) (\s@DescribeNodeConfigurationOptions' {} a -> s {ownerAccount = a} :: DescribeNodeConfigurationOptions)++-- | The Amazon Resource Name (ARN) of the snapshot associated with the+-- message to describe node configuration.+describeNodeConfigurationOptions_snapshotArn :: Lens.Lens' DescribeNodeConfigurationOptions (Prelude.Maybe Prelude.Text)+describeNodeConfigurationOptions_snapshotArn = Lens.lens (\DescribeNodeConfigurationOptions' {snapshotArn} -> snapshotArn) (\s@DescribeNodeConfigurationOptions' {} a -> s {snapshotArn = a} :: DescribeNodeConfigurationOptions)++-- | The identifier of the snapshot to evaluate for possible node+-- configurations.+describeNodeConfigurationOptions_snapshotIdentifier :: Lens.Lens' DescribeNodeConfigurationOptions (Prelude.Maybe Prelude.Text)+describeNodeConfigurationOptions_snapshotIdentifier = Lens.lens (\DescribeNodeConfigurationOptions' {snapshotIdentifier} -> snapshotIdentifier) (\s@DescribeNodeConfigurationOptions' {} a -> s {snapshotIdentifier = a} :: DescribeNodeConfigurationOptions)++-- | The action type to evaluate for possible node configurations. Specify+-- \"restore-cluster\" to get configuration combinations based on an+-- existing snapshot. Specify \"recommend-node-config\" to get+-- configuration recommendations based on an existing cluster or snapshot.+-- Specify \"resize-cluster\" to get configuration combinations for elastic+-- resize based on an existing cluster.+describeNodeConfigurationOptions_actionType :: Lens.Lens' DescribeNodeConfigurationOptions ActionType+describeNodeConfigurationOptions_actionType = Lens.lens (\DescribeNodeConfigurationOptions' {actionType} -> actionType) (\s@DescribeNodeConfigurationOptions' {} a -> s {actionType = a} :: DescribeNodeConfigurationOptions)++instance+ Core.AWSPager+ DescribeNodeConfigurationOptions+ where+ page rq rs+ | Core.stop+ ( rs+ Lens.^? describeNodeConfigurationOptionsResponse_marker+ Prelude.. Lens._Just+ ) =+ Prelude.Nothing+ | Core.stop+ ( rs+ Lens.^? describeNodeConfigurationOptionsResponse_nodeConfigurationOptionList+ Prelude.. Lens._Just+ ) =+ Prelude.Nothing+ | Prelude.otherwise =+ Prelude.Just+ Prelude.$ rq+ Prelude.& describeNodeConfigurationOptions_marker+ Lens..~ rs+ Lens.^? describeNodeConfigurationOptionsResponse_marker+ Prelude.. Lens._Just++instance+ Core.AWSRequest+ DescribeNodeConfigurationOptions+ where+ type+ AWSResponse DescribeNodeConfigurationOptions =+ DescribeNodeConfigurationOptionsResponse+ request overrides =+ Request.postQuery (overrides defaultService)+ response =+ Response.receiveXMLWrapper+ "DescribeNodeConfigurationOptionsResult"+ ( \s h x ->+ DescribeNodeConfigurationOptionsResponse'+ Prelude.<$> (x Data..@? "Marker")+ Prelude.<*> ( x+ Data..@? "NodeConfigurationOptionList"+ Core..!@ Prelude.mempty+ Prelude.>>= Core.may+ (Data.parseXMLList "NodeConfigurationOption")+ )+ Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+ )++instance+ Prelude.Hashable+ DescribeNodeConfigurationOptions+ where+ hashWithSalt+ _salt+ DescribeNodeConfigurationOptions' {..} =+ _salt+ `Prelude.hashWithSalt` clusterIdentifier+ `Prelude.hashWithSalt` filters+ `Prelude.hashWithSalt` marker+ `Prelude.hashWithSalt` maxRecords+ `Prelude.hashWithSalt` ownerAccount+ `Prelude.hashWithSalt` snapshotArn+ `Prelude.hashWithSalt` snapshotIdentifier+ `Prelude.hashWithSalt` actionType++instance+ Prelude.NFData+ DescribeNodeConfigurationOptions+ where+ rnf DescribeNodeConfigurationOptions' {..} =+ Prelude.rnf clusterIdentifier+ `Prelude.seq` Prelude.rnf filters+ `Prelude.seq` Prelude.rnf marker+ `Prelude.seq` Prelude.rnf maxRecords+ `Prelude.seq` Prelude.rnf ownerAccount+ `Prelude.seq` Prelude.rnf snapshotArn+ `Prelude.seq` Prelude.rnf snapshotIdentifier+ `Prelude.seq` Prelude.rnf actionType++instance+ Data.ToHeaders+ DescribeNodeConfigurationOptions+ where+ toHeaders = Prelude.const Prelude.mempty++instance Data.ToPath DescribeNodeConfigurationOptions where+ toPath = Prelude.const "/"++instance+ Data.ToQuery+ DescribeNodeConfigurationOptions+ where+ toQuery DescribeNodeConfigurationOptions' {..} =+ Prelude.mconcat+ [ "Action"+ Data.=: ( "DescribeNodeConfigurationOptions" ::+ Prelude.ByteString+ ),+ "Version"+ Data.=: ("2012-12-01" :: Prelude.ByteString),+ "ClusterIdentifier" Data.=: clusterIdentifier,+ "Filter"+ Data.=: Data.toQuery+ ( Data.toQueryList "NodeConfigurationOptionsFilter"+ Prelude.<$> filters+ ),+ "Marker" Data.=: marker,+ "MaxRecords" Data.=: maxRecords,+ "OwnerAccount" Data.=: ownerAccount,+ "SnapshotArn" Data.=: snapshotArn,+ "SnapshotIdentifier" Data.=: snapshotIdentifier,+ "ActionType" Data.=: actionType+ ]++-- | /See:/ 'newDescribeNodeConfigurationOptionsResponse' smart constructor.+data DescribeNodeConfigurationOptionsResponse = DescribeNodeConfigurationOptionsResponse'+ { -- | A value that indicates the starting point for the next set of response+ -- records in a subsequent request. If a value is returned in a response,+ -- you can retrieve the next set of records by providing this returned+ -- marker value in the @Marker@ parameter and retrying the command. If the+ -- @Marker@ field is empty, all response records have been retrieved for+ -- the request.+ marker :: Prelude.Maybe Prelude.Text,+ -- | A list of valid node configurations.+ nodeConfigurationOptionList :: Prelude.Maybe [NodeConfigurationOption],+ -- | The response's http status code.+ httpStatus :: Prelude.Int+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeNodeConfigurationOptionsResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'marker', 'describeNodeConfigurationOptionsResponse_marker' - A value that indicates the starting point for the next set of response+-- records in a subsequent request. If a value is returned in a response,+-- you can retrieve the next set of records by providing this returned+-- marker value in the @Marker@ parameter and retrying the command. If the+-- @Marker@ field is empty, all response records have been retrieved for+-- the request.+--+-- 'nodeConfigurationOptionList', 'describeNodeConfigurationOptionsResponse_nodeConfigurationOptionList' - A list of valid node configurations.+--+-- 'httpStatus', 'describeNodeConfigurationOptionsResponse_httpStatus' - The response's http status code.+newDescribeNodeConfigurationOptionsResponse ::+ -- | 'httpStatus'+ Prelude.Int ->+ DescribeNodeConfigurationOptionsResponse+newDescribeNodeConfigurationOptionsResponse+ pHttpStatus_ =+ DescribeNodeConfigurationOptionsResponse'+ { marker =+ Prelude.Nothing,+ nodeConfigurationOptionList =+ Prelude.Nothing,+ httpStatus = pHttpStatus_+ }++-- | A value that indicates the starting point for the next set of response+-- records in a subsequent request. If a value is returned in a response,+-- you can retrieve the next set of records by providing this returned+-- marker value in the @Marker@ parameter and retrying the command. If the+-- @Marker@ field is empty, all response records have been retrieved for+-- the request.+describeNodeConfigurationOptionsResponse_marker :: Lens.Lens' DescribeNodeConfigurationOptionsResponse (Prelude.Maybe Prelude.Text)+describeNodeConfigurationOptionsResponse_marker = Lens.lens (\DescribeNodeConfigurationOptionsResponse' {marker} -> marker) (\s@DescribeNodeConfigurationOptionsResponse' {} a -> s {marker = a} :: DescribeNodeConfigurationOptionsResponse)++-- | A list of valid node configurations.+describeNodeConfigurationOptionsResponse_nodeConfigurationOptionList :: Lens.Lens' DescribeNodeConfigurationOptionsResponse (Prelude.Maybe [NodeConfigurationOption])+describeNodeConfigurationOptionsResponse_nodeConfigurationOptionList = Lens.lens (\DescribeNodeConfigurationOptionsResponse' {nodeConfigurationOptionList} -> nodeConfigurationOptionList) (\s@DescribeNodeConfigurationOptionsResponse' {} a -> s {nodeConfigurationOptionList = a} :: DescribeNodeConfigurationOptionsResponse) Prelude.. Lens.mapping Lens.coerced++-- | The response's http status code.+describeNodeConfigurationOptionsResponse_httpStatus :: Lens.Lens' DescribeNodeConfigurationOptionsResponse Prelude.Int+describeNodeConfigurationOptionsResponse_httpStatus = Lens.lens (\DescribeNodeConfigurationOptionsResponse' {httpStatus} -> httpStatus) (\s@DescribeNodeConfigurationOptionsResponse' {} a -> s {httpStatus = a} :: DescribeNodeConfigurationOptionsResponse)++instance+ Prelude.NFData+ DescribeNodeConfigurationOptionsResponse+ where+ rnf DescribeNodeConfigurationOptionsResponse' {..} =+ Prelude.rnf marker+ `Prelude.seq` Prelude.rnf nodeConfigurationOptionList+ `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/Redshift/DescribeOrderableClusterOptions.hs view
@@ -0,0 +1,358 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module : Amazonka.Redshift.DescribeOrderableClusterOptions+-- Copyright : (c) 2013-2023 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Returns a list of orderable cluster options. Before you create a new+-- cluster you can use this operation to find what options are available,+-- such as the EC2 Availability Zones (AZ) in the specific Amazon Web+-- Services Region that you can specify, and the node types you can+-- request. The node types differ by available storage, memory, CPU and+-- price. With the cost involved you might want to obtain a list of cluster+-- options in the specific region and specify values when creating a+-- cluster. For more information about managing clusters, go to+-- <https://docs.aws.amazon.com/redshift/latest/mgmt/working-with-clusters.html Amazon Redshift Clusters>+-- in the /Amazon Redshift Cluster Management Guide/.+--+-- This operation returns paginated results.+module Amazonka.Redshift.DescribeOrderableClusterOptions+ ( -- * Creating a Request+ DescribeOrderableClusterOptions (..),+ newDescribeOrderableClusterOptions,++ -- * Request Lenses+ describeOrderableClusterOptions_clusterVersion,+ describeOrderableClusterOptions_marker,+ describeOrderableClusterOptions_maxRecords,+ describeOrderableClusterOptions_nodeType,++ -- * Destructuring the Response+ DescribeOrderableClusterOptionsResponse (..),+ newDescribeOrderableClusterOptionsResponse,++ -- * Response Lenses+ describeOrderableClusterOptionsResponse_marker,+ describeOrderableClusterOptionsResponse_orderableClusterOptions,+ describeOrderableClusterOptionsResponse_httpStatus,+ )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Redshift.Types+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- |+--+-- /See:/ 'newDescribeOrderableClusterOptions' smart constructor.+data DescribeOrderableClusterOptions = DescribeOrderableClusterOptions'+ { -- | The version filter value. Specify this parameter to show only the+ -- available offerings matching the specified version.+ --+ -- Default: All versions.+ --+ -- Constraints: Must be one of the version returned from+ -- DescribeClusterVersions.+ clusterVersion :: Prelude.Maybe Prelude.Text,+ -- | An optional parameter that specifies the starting point to return a set+ -- of response records. When the results of a+ -- DescribeOrderableClusterOptions request exceed the value specified in+ -- @MaxRecords@, Amazon Web Services returns a value in the @Marker@ field+ -- of the response. You can retrieve the next set of response records by+ -- providing the returned marker value in the @Marker@ parameter and+ -- retrying the request.+ marker :: Prelude.Maybe Prelude.Text,+ -- | The maximum number of response records to return in each call. If the+ -- number of remaining response records exceeds the specified @MaxRecords@+ -- value, a value is returned in a @marker@ field of the response. You can+ -- retrieve the next set of records by retrying the command with the+ -- returned marker value.+ --+ -- Default: @100@+ --+ -- Constraints: minimum 20, maximum 100.+ maxRecords :: Prelude.Maybe Prelude.Int,+ -- | The node type filter value. Specify this parameter to show only the+ -- available offerings matching the specified node type.+ nodeType :: Prelude.Maybe Prelude.Text+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeOrderableClusterOptions' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'clusterVersion', 'describeOrderableClusterOptions_clusterVersion' - The version filter value. Specify this parameter to show only the+-- available offerings matching the specified version.+--+-- Default: All versions.+--+-- Constraints: Must be one of the version returned from+-- DescribeClusterVersions.+--+-- 'marker', 'describeOrderableClusterOptions_marker' - An optional parameter that specifies the starting point to return a set+-- of response records. When the results of a+-- DescribeOrderableClusterOptions request exceed the value specified in+-- @MaxRecords@, Amazon Web Services returns a value in the @Marker@ field+-- of the response. You can retrieve the next set of response records by+-- providing the returned marker value in the @Marker@ parameter and+-- retrying the request.+--+-- 'maxRecords', 'describeOrderableClusterOptions_maxRecords' - The maximum number of response records to return in each call. If the+-- number of remaining response records exceeds the specified @MaxRecords@+-- value, a value is returned in a @marker@ field of the response. You can+-- retrieve the next set of records by retrying the command with the+-- returned marker value.+--+-- Default: @100@+--+-- Constraints: minimum 20, maximum 100.+--+-- 'nodeType', 'describeOrderableClusterOptions_nodeType' - The node type filter value. Specify this parameter to show only the+-- available offerings matching the specified node type.+newDescribeOrderableClusterOptions ::+ DescribeOrderableClusterOptions+newDescribeOrderableClusterOptions =+ DescribeOrderableClusterOptions'+ { clusterVersion =+ Prelude.Nothing,+ marker = Prelude.Nothing,+ maxRecords = Prelude.Nothing,+ nodeType = Prelude.Nothing+ }++-- | The version filter value. Specify this parameter to show only the+-- available offerings matching the specified version.+--+-- Default: All versions.+--+-- Constraints: Must be one of the version returned from+-- DescribeClusterVersions.+describeOrderableClusterOptions_clusterVersion :: Lens.Lens' DescribeOrderableClusterOptions (Prelude.Maybe Prelude.Text)+describeOrderableClusterOptions_clusterVersion = Lens.lens (\DescribeOrderableClusterOptions' {clusterVersion} -> clusterVersion) (\s@DescribeOrderableClusterOptions' {} a -> s {clusterVersion = a} :: DescribeOrderableClusterOptions)++-- | An optional parameter that specifies the starting point to return a set+-- of response records. When the results of a+-- DescribeOrderableClusterOptions request exceed the value specified in+-- @MaxRecords@, Amazon Web Services returns a value in the @Marker@ field+-- of the response. You can retrieve the next set of response records by+-- providing the returned marker value in the @Marker@ parameter and+-- retrying the request.+describeOrderableClusterOptions_marker :: Lens.Lens' DescribeOrderableClusterOptions (Prelude.Maybe Prelude.Text)+describeOrderableClusterOptions_marker = Lens.lens (\DescribeOrderableClusterOptions' {marker} -> marker) (\s@DescribeOrderableClusterOptions' {} a -> s {marker = a} :: DescribeOrderableClusterOptions)++-- | The maximum number of response records to return in each call. If the+-- number of remaining response records exceeds the specified @MaxRecords@+-- value, a value is returned in a @marker@ field of the response. You can+-- retrieve the next set of records by retrying the command with the+-- returned marker value.+--+-- Default: @100@+--+-- Constraints: minimum 20, maximum 100.+describeOrderableClusterOptions_maxRecords :: Lens.Lens' DescribeOrderableClusterOptions (Prelude.Maybe Prelude.Int)+describeOrderableClusterOptions_maxRecords = Lens.lens (\DescribeOrderableClusterOptions' {maxRecords} -> maxRecords) (\s@DescribeOrderableClusterOptions' {} a -> s {maxRecords = a} :: DescribeOrderableClusterOptions)++-- | The node type filter value. Specify this parameter to show only the+-- available offerings matching the specified node type.+describeOrderableClusterOptions_nodeType :: Lens.Lens' DescribeOrderableClusterOptions (Prelude.Maybe Prelude.Text)+describeOrderableClusterOptions_nodeType = Lens.lens (\DescribeOrderableClusterOptions' {nodeType} -> nodeType) (\s@DescribeOrderableClusterOptions' {} a -> s {nodeType = a} :: DescribeOrderableClusterOptions)++instance+ Core.AWSPager+ DescribeOrderableClusterOptions+ where+ page rq rs+ | Core.stop+ ( rs+ Lens.^? describeOrderableClusterOptionsResponse_marker+ Prelude.. Lens._Just+ ) =+ Prelude.Nothing+ | Core.stop+ ( rs+ Lens.^? describeOrderableClusterOptionsResponse_orderableClusterOptions+ Prelude.. Lens._Just+ ) =+ Prelude.Nothing+ | Prelude.otherwise =+ Prelude.Just+ Prelude.$ rq+ Prelude.& describeOrderableClusterOptions_marker+ Lens..~ rs+ Lens.^? describeOrderableClusterOptionsResponse_marker+ Prelude.. Lens._Just++instance+ Core.AWSRequest+ DescribeOrderableClusterOptions+ where+ type+ AWSResponse DescribeOrderableClusterOptions =+ DescribeOrderableClusterOptionsResponse+ request overrides =+ Request.postQuery (overrides defaultService)+ response =+ Response.receiveXMLWrapper+ "DescribeOrderableClusterOptionsResult"+ ( \s h x ->+ DescribeOrderableClusterOptionsResponse'+ Prelude.<$> (x Data..@? "Marker")+ Prelude.<*> ( x+ Data..@? "OrderableClusterOptions"+ Core..!@ Prelude.mempty+ Prelude.>>= Core.may+ (Data.parseXMLList "OrderableClusterOption")+ )+ Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+ )++instance+ Prelude.Hashable+ DescribeOrderableClusterOptions+ where+ hashWithSalt+ _salt+ DescribeOrderableClusterOptions' {..} =+ _salt+ `Prelude.hashWithSalt` clusterVersion+ `Prelude.hashWithSalt` marker+ `Prelude.hashWithSalt` maxRecords+ `Prelude.hashWithSalt` nodeType++instance+ Prelude.NFData+ DescribeOrderableClusterOptions+ where+ rnf DescribeOrderableClusterOptions' {..} =+ Prelude.rnf clusterVersion+ `Prelude.seq` Prelude.rnf marker+ `Prelude.seq` Prelude.rnf maxRecords+ `Prelude.seq` Prelude.rnf nodeType++instance+ Data.ToHeaders+ DescribeOrderableClusterOptions+ where+ toHeaders = Prelude.const Prelude.mempty++instance Data.ToPath DescribeOrderableClusterOptions where+ toPath = Prelude.const "/"++instance Data.ToQuery DescribeOrderableClusterOptions where+ toQuery DescribeOrderableClusterOptions' {..} =+ Prelude.mconcat+ [ "Action"+ Data.=: ( "DescribeOrderableClusterOptions" ::+ Prelude.ByteString+ ),+ "Version"+ Data.=: ("2012-12-01" :: Prelude.ByteString),+ "ClusterVersion" Data.=: clusterVersion,+ "Marker" Data.=: marker,+ "MaxRecords" Data.=: maxRecords,+ "NodeType" Data.=: nodeType+ ]++-- | Contains the output from the DescribeOrderableClusterOptions action.+--+-- /See:/ 'newDescribeOrderableClusterOptionsResponse' smart constructor.+data DescribeOrderableClusterOptionsResponse = DescribeOrderableClusterOptionsResponse'+ { -- | A value that indicates the starting point for the next set of response+ -- records in a subsequent request. If a value is returned in a response,+ -- you can retrieve the next set of records by providing this returned+ -- marker value in the @Marker@ parameter and retrying the command. If the+ -- @Marker@ field is empty, all response records have been retrieved for+ -- the request.+ marker :: Prelude.Maybe Prelude.Text,+ -- | An @OrderableClusterOption@ structure containing information about+ -- orderable options for the cluster.+ orderableClusterOptions :: Prelude.Maybe [OrderableClusterOption],+ -- | The response's http status code.+ httpStatus :: Prelude.Int+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeOrderableClusterOptionsResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'marker', 'describeOrderableClusterOptionsResponse_marker' - A value that indicates the starting point for the next set of response+-- records in a subsequent request. If a value is returned in a response,+-- you can retrieve the next set of records by providing this returned+-- marker value in the @Marker@ parameter and retrying the command. If the+-- @Marker@ field is empty, all response records have been retrieved for+-- the request.+--+-- 'orderableClusterOptions', 'describeOrderableClusterOptionsResponse_orderableClusterOptions' - An @OrderableClusterOption@ structure containing information about+-- orderable options for the cluster.+--+-- 'httpStatus', 'describeOrderableClusterOptionsResponse_httpStatus' - The response's http status code.+newDescribeOrderableClusterOptionsResponse ::+ -- | 'httpStatus'+ Prelude.Int ->+ DescribeOrderableClusterOptionsResponse+newDescribeOrderableClusterOptionsResponse+ pHttpStatus_ =+ DescribeOrderableClusterOptionsResponse'+ { marker =+ Prelude.Nothing,+ orderableClusterOptions =+ Prelude.Nothing,+ httpStatus = pHttpStatus_+ }++-- | A value that indicates the starting point for the next set of response+-- records in a subsequent request. If a value is returned in a response,+-- you can retrieve the next set of records by providing this returned+-- marker value in the @Marker@ parameter and retrying the command. If the+-- @Marker@ field is empty, all response records have been retrieved for+-- the request.+describeOrderableClusterOptionsResponse_marker :: Lens.Lens' DescribeOrderableClusterOptionsResponse (Prelude.Maybe Prelude.Text)+describeOrderableClusterOptionsResponse_marker = Lens.lens (\DescribeOrderableClusterOptionsResponse' {marker} -> marker) (\s@DescribeOrderableClusterOptionsResponse' {} a -> s {marker = a} :: DescribeOrderableClusterOptionsResponse)++-- | An @OrderableClusterOption@ structure containing information about+-- orderable options for the cluster.+describeOrderableClusterOptionsResponse_orderableClusterOptions :: Lens.Lens' DescribeOrderableClusterOptionsResponse (Prelude.Maybe [OrderableClusterOption])+describeOrderableClusterOptionsResponse_orderableClusterOptions = Lens.lens (\DescribeOrderableClusterOptionsResponse' {orderableClusterOptions} -> orderableClusterOptions) (\s@DescribeOrderableClusterOptionsResponse' {} a -> s {orderableClusterOptions = a} :: DescribeOrderableClusterOptionsResponse) Prelude.. Lens.mapping Lens.coerced++-- | The response's http status code.+describeOrderableClusterOptionsResponse_httpStatus :: Lens.Lens' DescribeOrderableClusterOptionsResponse Prelude.Int+describeOrderableClusterOptionsResponse_httpStatus = Lens.lens (\DescribeOrderableClusterOptionsResponse' {httpStatus} -> httpStatus) (\s@DescribeOrderableClusterOptionsResponse' {} a -> s {httpStatus = a} :: DescribeOrderableClusterOptionsResponse)++instance+ Prelude.NFData+ DescribeOrderableClusterOptionsResponse+ where+ rnf DescribeOrderableClusterOptionsResponse' {..} =+ Prelude.rnf marker+ `Prelude.seq` Prelude.rnf orderableClusterOptions+ `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/Redshift/DescribePartners.hs view
@@ -0,0 +1,220 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module : Amazonka.Redshift.DescribePartners+-- Copyright : (c) 2013-2023 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Returns information about the partner integrations defined for a+-- cluster.+module Amazonka.Redshift.DescribePartners+ ( -- * Creating a Request+ DescribePartners (..),+ newDescribePartners,++ -- * Request Lenses+ describePartners_databaseName,+ describePartners_partnerName,+ describePartners_accountId,+ describePartners_clusterIdentifier,++ -- * Destructuring the Response+ DescribePartnersResponse (..),+ newDescribePartnersResponse,++ -- * Response Lenses+ describePartnersResponse_partnerIntegrationInfoList,+ describePartnersResponse_httpStatus,+ )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Redshift.Types+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newDescribePartners' smart constructor.+data DescribePartners = DescribePartners'+ { -- | The name of the database whose partner integration is being described.+ -- If database name is not specified, then all databases in the cluster are+ -- described.+ databaseName :: Prelude.Maybe Prelude.Text,+ -- | The name of the partner that is being described. If partner name is not+ -- specified, then all partner integrations are described.+ partnerName :: Prelude.Maybe Prelude.Text,+ -- | The Amazon Web Services account ID that owns the cluster.+ accountId :: Prelude.Text,+ -- | The cluster identifier of the cluster whose partner integration is being+ -- described.+ clusterIdentifier :: Prelude.Text+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribePartners' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'databaseName', 'describePartners_databaseName' - The name of the database whose partner integration is being described.+-- If database name is not specified, then all databases in the cluster are+-- described.+--+-- 'partnerName', 'describePartners_partnerName' - The name of the partner that is being described. If partner name is not+-- specified, then all partner integrations are described.+--+-- 'accountId', 'describePartners_accountId' - The Amazon Web Services account ID that owns the cluster.+--+-- 'clusterIdentifier', 'describePartners_clusterIdentifier' - The cluster identifier of the cluster whose partner integration is being+-- described.+newDescribePartners ::+ -- | 'accountId'+ Prelude.Text ->+ -- | 'clusterIdentifier'+ Prelude.Text ->+ DescribePartners+newDescribePartners pAccountId_ pClusterIdentifier_ =+ DescribePartners'+ { databaseName = Prelude.Nothing,+ partnerName = Prelude.Nothing,+ accountId = pAccountId_,+ clusterIdentifier = pClusterIdentifier_+ }++-- | The name of the database whose partner integration is being described.+-- If database name is not specified, then all databases in the cluster are+-- described.+describePartners_databaseName :: Lens.Lens' DescribePartners (Prelude.Maybe Prelude.Text)+describePartners_databaseName = Lens.lens (\DescribePartners' {databaseName} -> databaseName) (\s@DescribePartners' {} a -> s {databaseName = a} :: DescribePartners)++-- | The name of the partner that is being described. If partner name is not+-- specified, then all partner integrations are described.+describePartners_partnerName :: Lens.Lens' DescribePartners (Prelude.Maybe Prelude.Text)+describePartners_partnerName = Lens.lens (\DescribePartners' {partnerName} -> partnerName) (\s@DescribePartners' {} a -> s {partnerName = a} :: DescribePartners)++-- | The Amazon Web Services account ID that owns the cluster.+describePartners_accountId :: Lens.Lens' DescribePartners Prelude.Text+describePartners_accountId = Lens.lens (\DescribePartners' {accountId} -> accountId) (\s@DescribePartners' {} a -> s {accountId = a} :: DescribePartners)++-- | The cluster identifier of the cluster whose partner integration is being+-- described.+describePartners_clusterIdentifier :: Lens.Lens' DescribePartners Prelude.Text+describePartners_clusterIdentifier = Lens.lens (\DescribePartners' {clusterIdentifier} -> clusterIdentifier) (\s@DescribePartners' {} a -> s {clusterIdentifier = a} :: DescribePartners)++instance Core.AWSRequest DescribePartners where+ type+ AWSResponse DescribePartners =+ DescribePartnersResponse+ request overrides =+ Request.postQuery (overrides defaultService)+ response =+ Response.receiveXMLWrapper+ "DescribePartnersResult"+ ( \s h x ->+ DescribePartnersResponse'+ Prelude.<$> ( x+ Data..@? "PartnerIntegrationInfoList"+ Core..!@ Prelude.mempty+ Prelude.>>= Core.may+ (Data.parseXMLList "PartnerIntegrationInfo")+ )+ Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+ )++instance Prelude.Hashable DescribePartners where+ hashWithSalt _salt DescribePartners' {..} =+ _salt+ `Prelude.hashWithSalt` databaseName+ `Prelude.hashWithSalt` partnerName+ `Prelude.hashWithSalt` accountId+ `Prelude.hashWithSalt` clusterIdentifier++instance Prelude.NFData DescribePartners where+ rnf DescribePartners' {..} =+ Prelude.rnf databaseName+ `Prelude.seq` Prelude.rnf partnerName+ `Prelude.seq` Prelude.rnf accountId+ `Prelude.seq` Prelude.rnf clusterIdentifier++instance Data.ToHeaders DescribePartners where+ toHeaders = Prelude.const Prelude.mempty++instance Data.ToPath DescribePartners where+ toPath = Prelude.const "/"++instance Data.ToQuery DescribePartners where+ toQuery DescribePartners' {..} =+ Prelude.mconcat+ [ "Action"+ Data.=: ("DescribePartners" :: Prelude.ByteString),+ "Version"+ Data.=: ("2012-12-01" :: Prelude.ByteString),+ "DatabaseName" Data.=: databaseName,+ "PartnerName" Data.=: partnerName,+ "AccountId" Data.=: accountId,+ "ClusterIdentifier" Data.=: clusterIdentifier+ ]++-- | /See:/ 'newDescribePartnersResponse' smart constructor.+data DescribePartnersResponse = DescribePartnersResponse'+ { -- | A list of partner integrations.+ partnerIntegrationInfoList :: Prelude.Maybe [PartnerIntegrationInfo],+ -- | The response's http status code.+ httpStatus :: Prelude.Int+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribePartnersResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'partnerIntegrationInfoList', 'describePartnersResponse_partnerIntegrationInfoList' - A list of partner integrations.+--+-- 'httpStatus', 'describePartnersResponse_httpStatus' - The response's http status code.+newDescribePartnersResponse ::+ -- | 'httpStatus'+ Prelude.Int ->+ DescribePartnersResponse+newDescribePartnersResponse pHttpStatus_ =+ DescribePartnersResponse'+ { partnerIntegrationInfoList =+ Prelude.Nothing,+ httpStatus = pHttpStatus_+ }++-- | A list of partner integrations.+describePartnersResponse_partnerIntegrationInfoList :: Lens.Lens' DescribePartnersResponse (Prelude.Maybe [PartnerIntegrationInfo])+describePartnersResponse_partnerIntegrationInfoList = Lens.lens (\DescribePartnersResponse' {partnerIntegrationInfoList} -> partnerIntegrationInfoList) (\s@DescribePartnersResponse' {} a -> s {partnerIntegrationInfoList = a} :: DescribePartnersResponse) Prelude.. Lens.mapping Lens.coerced++-- | The response's http status code.+describePartnersResponse_httpStatus :: Lens.Lens' DescribePartnersResponse Prelude.Int+describePartnersResponse_httpStatus = Lens.lens (\DescribePartnersResponse' {httpStatus} -> httpStatus) (\s@DescribePartnersResponse' {} a -> s {httpStatus = a} :: DescribePartnersResponse)++instance Prelude.NFData DescribePartnersResponse where+ rnf DescribePartnersResponse' {..} =+ Prelude.rnf partnerIntegrationInfoList+ `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/Redshift/DescribeReservedNodeExchangeStatus.hs view
@@ -0,0 +1,310 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module : Amazonka.Redshift.DescribeReservedNodeExchangeStatus+-- Copyright : (c) 2013-2023 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Returns exchange status details and associated metadata for a+-- reserved-node exchange. Statuses include such values as in progress and+-- requested.+--+-- This operation returns paginated results.+module Amazonka.Redshift.DescribeReservedNodeExchangeStatus+ ( -- * Creating a Request+ DescribeReservedNodeExchangeStatus (..),+ newDescribeReservedNodeExchangeStatus,++ -- * Request Lenses+ describeReservedNodeExchangeStatus_marker,+ describeReservedNodeExchangeStatus_maxRecords,+ describeReservedNodeExchangeStatus_reservedNodeExchangeRequestId,+ describeReservedNodeExchangeStatus_reservedNodeId,++ -- * Destructuring the Response+ DescribeReservedNodeExchangeStatusResponse (..),+ newDescribeReservedNodeExchangeStatusResponse,++ -- * Response Lenses+ describeReservedNodeExchangeStatusResponse_marker,+ describeReservedNodeExchangeStatusResponse_reservedNodeExchangeStatusDetails,+ describeReservedNodeExchangeStatusResponse_httpStatus,+ )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Redshift.Types+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newDescribeReservedNodeExchangeStatus' smart constructor.+data DescribeReservedNodeExchangeStatus = DescribeReservedNodeExchangeStatus'+ { -- | An optional pagination token provided by a previous+ -- @DescribeReservedNodeExchangeStatus@ request. If this parameter is+ -- specified, the response includes only records beyond the marker, up to+ -- the value specified by the @MaxRecords@ parameter. You can retrieve the+ -- next set of response records by providing the returned marker value in+ -- the @Marker@ parameter and retrying the request.+ marker :: Prelude.Maybe Prelude.Text,+ -- | The maximum number of response records to return in each call. If the+ -- number of remaining response records exceeds the specified @MaxRecords@+ -- value, a value is returned in a @Marker@ field of the response. You can+ -- retrieve the next set of records by retrying the command with the+ -- returned marker value.+ maxRecords :: Prelude.Maybe Prelude.Int,+ -- | The identifier of the reserved-node exchange request.+ reservedNodeExchangeRequestId :: Prelude.Maybe Prelude.Text,+ -- | The identifier of the source reserved node in a reserved-node exchange+ -- request.+ reservedNodeId :: Prelude.Maybe Prelude.Text+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeReservedNodeExchangeStatus' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'marker', 'describeReservedNodeExchangeStatus_marker' - An optional pagination token provided by a previous+-- @DescribeReservedNodeExchangeStatus@ request. If this parameter is+-- specified, the response includes only records beyond the marker, up to+-- the value specified by the @MaxRecords@ parameter. You can retrieve the+-- next set of response records by providing the returned marker value in+-- the @Marker@ parameter and retrying the request.+--+-- 'maxRecords', 'describeReservedNodeExchangeStatus_maxRecords' - The maximum number of response records to return in each call. If the+-- number of remaining response records exceeds the specified @MaxRecords@+-- value, a value is returned in a @Marker@ field of the response. You can+-- retrieve the next set of records by retrying the command with the+-- returned marker value.+--+-- 'reservedNodeExchangeRequestId', 'describeReservedNodeExchangeStatus_reservedNodeExchangeRequestId' - The identifier of the reserved-node exchange request.+--+-- 'reservedNodeId', 'describeReservedNodeExchangeStatus_reservedNodeId' - The identifier of the source reserved node in a reserved-node exchange+-- request.+newDescribeReservedNodeExchangeStatus ::+ DescribeReservedNodeExchangeStatus+newDescribeReservedNodeExchangeStatus =+ DescribeReservedNodeExchangeStatus'+ { marker =+ Prelude.Nothing,+ maxRecords = Prelude.Nothing,+ reservedNodeExchangeRequestId =+ Prelude.Nothing,+ reservedNodeId = Prelude.Nothing+ }++-- | An optional pagination token provided by a previous+-- @DescribeReservedNodeExchangeStatus@ request. If this parameter is+-- specified, the response includes only records beyond the marker, up to+-- the value specified by the @MaxRecords@ parameter. You can retrieve the+-- next set of response records by providing the returned marker value in+-- the @Marker@ parameter and retrying the request.+describeReservedNodeExchangeStatus_marker :: Lens.Lens' DescribeReservedNodeExchangeStatus (Prelude.Maybe Prelude.Text)+describeReservedNodeExchangeStatus_marker = Lens.lens (\DescribeReservedNodeExchangeStatus' {marker} -> marker) (\s@DescribeReservedNodeExchangeStatus' {} a -> s {marker = a} :: DescribeReservedNodeExchangeStatus)++-- | The maximum number of response records to return in each call. If the+-- number of remaining response records exceeds the specified @MaxRecords@+-- value, a value is returned in a @Marker@ field of the response. You can+-- retrieve the next set of records by retrying the command with the+-- returned marker value.+describeReservedNodeExchangeStatus_maxRecords :: Lens.Lens' DescribeReservedNodeExchangeStatus (Prelude.Maybe Prelude.Int)+describeReservedNodeExchangeStatus_maxRecords = Lens.lens (\DescribeReservedNodeExchangeStatus' {maxRecords} -> maxRecords) (\s@DescribeReservedNodeExchangeStatus' {} a -> s {maxRecords = a} :: DescribeReservedNodeExchangeStatus)++-- | The identifier of the reserved-node exchange request.+describeReservedNodeExchangeStatus_reservedNodeExchangeRequestId :: Lens.Lens' DescribeReservedNodeExchangeStatus (Prelude.Maybe Prelude.Text)+describeReservedNodeExchangeStatus_reservedNodeExchangeRequestId = Lens.lens (\DescribeReservedNodeExchangeStatus' {reservedNodeExchangeRequestId} -> reservedNodeExchangeRequestId) (\s@DescribeReservedNodeExchangeStatus' {} a -> s {reservedNodeExchangeRequestId = a} :: DescribeReservedNodeExchangeStatus)++-- | The identifier of the source reserved node in a reserved-node exchange+-- request.+describeReservedNodeExchangeStatus_reservedNodeId :: Lens.Lens' DescribeReservedNodeExchangeStatus (Prelude.Maybe Prelude.Text)+describeReservedNodeExchangeStatus_reservedNodeId = Lens.lens (\DescribeReservedNodeExchangeStatus' {reservedNodeId} -> reservedNodeId) (\s@DescribeReservedNodeExchangeStatus' {} a -> s {reservedNodeId = a} :: DescribeReservedNodeExchangeStatus)++instance+ Core.AWSPager+ DescribeReservedNodeExchangeStatus+ where+ page rq rs+ | Core.stop+ ( rs+ Lens.^? describeReservedNodeExchangeStatusResponse_marker+ Prelude.. Lens._Just+ ) =+ Prelude.Nothing+ | Core.stop+ ( rs+ Lens.^? describeReservedNodeExchangeStatusResponse_reservedNodeExchangeStatusDetails+ Prelude.. Lens._Just+ ) =+ Prelude.Nothing+ | Prelude.otherwise =+ Prelude.Just+ Prelude.$ rq+ Prelude.& describeReservedNodeExchangeStatus_marker+ Lens..~ rs+ Lens.^? describeReservedNodeExchangeStatusResponse_marker+ Prelude.. Lens._Just++instance+ Core.AWSRequest+ DescribeReservedNodeExchangeStatus+ where+ type+ AWSResponse DescribeReservedNodeExchangeStatus =+ DescribeReservedNodeExchangeStatusResponse+ request overrides =+ Request.postQuery (overrides defaultService)+ response =+ Response.receiveXMLWrapper+ "DescribeReservedNodeExchangeStatusResult"+ ( \s h x ->+ DescribeReservedNodeExchangeStatusResponse'+ Prelude.<$> (x Data..@? "Marker")+ Prelude.<*> ( x+ Data..@? "ReservedNodeExchangeStatusDetails"+ Core..!@ Prelude.mempty+ Prelude.>>= Core.may+ (Data.parseXMLList "ReservedNodeExchangeStatus")+ )+ Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+ )++instance+ Prelude.Hashable+ DescribeReservedNodeExchangeStatus+ where+ hashWithSalt+ _salt+ DescribeReservedNodeExchangeStatus' {..} =+ _salt+ `Prelude.hashWithSalt` marker+ `Prelude.hashWithSalt` maxRecords+ `Prelude.hashWithSalt` reservedNodeExchangeRequestId+ `Prelude.hashWithSalt` reservedNodeId++instance+ Prelude.NFData+ DescribeReservedNodeExchangeStatus+ where+ rnf DescribeReservedNodeExchangeStatus' {..} =+ Prelude.rnf marker+ `Prelude.seq` Prelude.rnf maxRecords+ `Prelude.seq` Prelude.rnf reservedNodeExchangeRequestId+ `Prelude.seq` Prelude.rnf reservedNodeId++instance+ Data.ToHeaders+ DescribeReservedNodeExchangeStatus+ where+ toHeaders = Prelude.const Prelude.mempty++instance+ Data.ToPath+ DescribeReservedNodeExchangeStatus+ where+ toPath = Prelude.const "/"++instance+ Data.ToQuery+ DescribeReservedNodeExchangeStatus+ where+ toQuery DescribeReservedNodeExchangeStatus' {..} =+ Prelude.mconcat+ [ "Action"+ Data.=: ( "DescribeReservedNodeExchangeStatus" ::+ Prelude.ByteString+ ),+ "Version"+ Data.=: ("2012-12-01" :: Prelude.ByteString),+ "Marker" Data.=: marker,+ "MaxRecords" Data.=: maxRecords,+ "ReservedNodeExchangeRequestId"+ Data.=: reservedNodeExchangeRequestId,+ "ReservedNodeId" Data.=: reservedNodeId+ ]++-- | /See:/ 'newDescribeReservedNodeExchangeStatusResponse' smart constructor.+data DescribeReservedNodeExchangeStatusResponse = DescribeReservedNodeExchangeStatusResponse'+ { -- | A pagination token provided by a previous+ -- @DescribeReservedNodeExchangeStatus@ request.+ marker :: Prelude.Maybe Prelude.Text,+ -- | The details of the reserved-node exchange request, including the status,+ -- request time, source reserved-node identifier, and additional details.+ reservedNodeExchangeStatusDetails :: Prelude.Maybe [ReservedNodeExchangeStatus],+ -- | The response's http status code.+ httpStatus :: Prelude.Int+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeReservedNodeExchangeStatusResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'marker', 'describeReservedNodeExchangeStatusResponse_marker' - A pagination token provided by a previous+-- @DescribeReservedNodeExchangeStatus@ request.+--+-- 'reservedNodeExchangeStatusDetails', 'describeReservedNodeExchangeStatusResponse_reservedNodeExchangeStatusDetails' - The details of the reserved-node exchange request, including the status,+-- request time, source reserved-node identifier, and additional details.+--+-- 'httpStatus', 'describeReservedNodeExchangeStatusResponse_httpStatus' - The response's http status code.+newDescribeReservedNodeExchangeStatusResponse ::+ -- | 'httpStatus'+ Prelude.Int ->+ DescribeReservedNodeExchangeStatusResponse+newDescribeReservedNodeExchangeStatusResponse+ pHttpStatus_ =+ DescribeReservedNodeExchangeStatusResponse'+ { marker =+ Prelude.Nothing,+ reservedNodeExchangeStatusDetails =+ Prelude.Nothing,+ httpStatus = pHttpStatus_+ }++-- | A pagination token provided by a previous+-- @DescribeReservedNodeExchangeStatus@ request.+describeReservedNodeExchangeStatusResponse_marker :: Lens.Lens' DescribeReservedNodeExchangeStatusResponse (Prelude.Maybe Prelude.Text)+describeReservedNodeExchangeStatusResponse_marker = Lens.lens (\DescribeReservedNodeExchangeStatusResponse' {marker} -> marker) (\s@DescribeReservedNodeExchangeStatusResponse' {} a -> s {marker = a} :: DescribeReservedNodeExchangeStatusResponse)++-- | The details of the reserved-node exchange request, including the status,+-- request time, source reserved-node identifier, and additional details.+describeReservedNodeExchangeStatusResponse_reservedNodeExchangeStatusDetails :: Lens.Lens' DescribeReservedNodeExchangeStatusResponse (Prelude.Maybe [ReservedNodeExchangeStatus])+describeReservedNodeExchangeStatusResponse_reservedNodeExchangeStatusDetails = Lens.lens (\DescribeReservedNodeExchangeStatusResponse' {reservedNodeExchangeStatusDetails} -> reservedNodeExchangeStatusDetails) (\s@DescribeReservedNodeExchangeStatusResponse' {} a -> s {reservedNodeExchangeStatusDetails = a} :: DescribeReservedNodeExchangeStatusResponse) Prelude.. Lens.mapping Lens.coerced++-- | The response's http status code.+describeReservedNodeExchangeStatusResponse_httpStatus :: Lens.Lens' DescribeReservedNodeExchangeStatusResponse Prelude.Int+describeReservedNodeExchangeStatusResponse_httpStatus = Lens.lens (\DescribeReservedNodeExchangeStatusResponse' {httpStatus} -> httpStatus) (\s@DescribeReservedNodeExchangeStatusResponse' {} a -> s {httpStatus = a} :: DescribeReservedNodeExchangeStatusResponse)++instance+ Prelude.NFData+ DescribeReservedNodeExchangeStatusResponse+ where+ rnf DescribeReservedNodeExchangeStatusResponse' {..} =+ Prelude.rnf marker+ `Prelude.seq` Prelude.rnf reservedNodeExchangeStatusDetails+ `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/Redshift/DescribeReservedNodeOfferings.hs view
@@ -0,0 +1,307 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module : Amazonka.Redshift.DescribeReservedNodeOfferings+-- Copyright : (c) 2013-2023 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Returns a list of the available reserved node offerings by Amazon+-- Redshift with their descriptions including the node type, the fixed and+-- recurring costs of reserving the node and duration the node will be+-- reserved for you. These descriptions help you determine which reserve+-- node offering you want to purchase. You then use the unique offering ID+-- in you call to PurchaseReservedNodeOffering to reserve one or more nodes+-- for your Amazon Redshift cluster.+--+-- For more information about reserved node offerings, go to+-- <https://docs.aws.amazon.com/redshift/latest/mgmt/purchase-reserved-node-instance.html Purchasing Reserved Nodes>+-- in the /Amazon Redshift Cluster Management Guide/.+--+-- This operation returns paginated results.+module Amazonka.Redshift.DescribeReservedNodeOfferings+ ( -- * Creating a Request+ DescribeReservedNodeOfferings (..),+ newDescribeReservedNodeOfferings,++ -- * Request Lenses+ describeReservedNodeOfferings_marker,+ describeReservedNodeOfferings_maxRecords,+ describeReservedNodeOfferings_reservedNodeOfferingId,++ -- * Destructuring the Response+ DescribeReservedNodeOfferingsResponse (..),+ newDescribeReservedNodeOfferingsResponse,++ -- * Response Lenses+ describeReservedNodeOfferingsResponse_marker,+ describeReservedNodeOfferingsResponse_reservedNodeOfferings,+ describeReservedNodeOfferingsResponse_httpStatus,+ )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Redshift.Types+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- |+--+-- /See:/ 'newDescribeReservedNodeOfferings' smart constructor.+data DescribeReservedNodeOfferings = DescribeReservedNodeOfferings'+ { -- | An optional parameter that specifies the starting point to return a set+ -- of response records. When the results of a DescribeReservedNodeOfferings+ -- request exceed the value specified in @MaxRecords@, Amazon Web Services+ -- returns a value in the @Marker@ field of the response. You can retrieve+ -- the next set of response records by providing the returned marker value+ -- in the @Marker@ parameter and retrying the request.+ marker :: Prelude.Maybe Prelude.Text,+ -- | The maximum number of response records to return in each call. If the+ -- number of remaining response records exceeds the specified @MaxRecords@+ -- value, a value is returned in a @marker@ field of the response. You can+ -- retrieve the next set of records by retrying the command with the+ -- returned marker value.+ --+ -- Default: @100@+ --+ -- Constraints: minimum 20, maximum 100.+ maxRecords :: Prelude.Maybe Prelude.Int,+ -- | The unique identifier for the offering.+ reservedNodeOfferingId :: Prelude.Maybe Prelude.Text+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeReservedNodeOfferings' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'marker', 'describeReservedNodeOfferings_marker' - An optional parameter that specifies the starting point to return a set+-- of response records. When the results of a DescribeReservedNodeOfferings+-- request exceed the value specified in @MaxRecords@, Amazon Web Services+-- returns a value in the @Marker@ field of the response. You can retrieve+-- the next set of response records by providing the returned marker value+-- in the @Marker@ parameter and retrying the request.+--+-- 'maxRecords', 'describeReservedNodeOfferings_maxRecords' - The maximum number of response records to return in each call. If the+-- number of remaining response records exceeds the specified @MaxRecords@+-- value, a value is returned in a @marker@ field of the response. You can+-- retrieve the next set of records by retrying the command with the+-- returned marker value.+--+-- Default: @100@+--+-- Constraints: minimum 20, maximum 100.+--+-- 'reservedNodeOfferingId', 'describeReservedNodeOfferings_reservedNodeOfferingId' - The unique identifier for the offering.+newDescribeReservedNodeOfferings ::+ DescribeReservedNodeOfferings+newDescribeReservedNodeOfferings =+ DescribeReservedNodeOfferings'+ { marker =+ Prelude.Nothing,+ maxRecords = Prelude.Nothing,+ reservedNodeOfferingId = Prelude.Nothing+ }++-- | An optional parameter that specifies the starting point to return a set+-- of response records. When the results of a DescribeReservedNodeOfferings+-- request exceed the value specified in @MaxRecords@, Amazon Web Services+-- returns a value in the @Marker@ field of the response. You can retrieve+-- the next set of response records by providing the returned marker value+-- in the @Marker@ parameter and retrying the request.+describeReservedNodeOfferings_marker :: Lens.Lens' DescribeReservedNodeOfferings (Prelude.Maybe Prelude.Text)+describeReservedNodeOfferings_marker = Lens.lens (\DescribeReservedNodeOfferings' {marker} -> marker) (\s@DescribeReservedNodeOfferings' {} a -> s {marker = a} :: DescribeReservedNodeOfferings)++-- | The maximum number of response records to return in each call. If the+-- number of remaining response records exceeds the specified @MaxRecords@+-- value, a value is returned in a @marker@ field of the response. You can+-- retrieve the next set of records by retrying the command with the+-- returned marker value.+--+-- Default: @100@+--+-- Constraints: minimum 20, maximum 100.+describeReservedNodeOfferings_maxRecords :: Lens.Lens' DescribeReservedNodeOfferings (Prelude.Maybe Prelude.Int)+describeReservedNodeOfferings_maxRecords = Lens.lens (\DescribeReservedNodeOfferings' {maxRecords} -> maxRecords) (\s@DescribeReservedNodeOfferings' {} a -> s {maxRecords = a} :: DescribeReservedNodeOfferings)++-- | The unique identifier for the offering.+describeReservedNodeOfferings_reservedNodeOfferingId :: Lens.Lens' DescribeReservedNodeOfferings (Prelude.Maybe Prelude.Text)+describeReservedNodeOfferings_reservedNodeOfferingId = Lens.lens (\DescribeReservedNodeOfferings' {reservedNodeOfferingId} -> reservedNodeOfferingId) (\s@DescribeReservedNodeOfferings' {} a -> s {reservedNodeOfferingId = a} :: DescribeReservedNodeOfferings)++instance Core.AWSPager DescribeReservedNodeOfferings where+ page rq rs+ | Core.stop+ ( rs+ Lens.^? describeReservedNodeOfferingsResponse_marker+ Prelude.. Lens._Just+ ) =+ Prelude.Nothing+ | Core.stop+ ( rs+ Lens.^? describeReservedNodeOfferingsResponse_reservedNodeOfferings+ Prelude.. Lens._Just+ ) =+ Prelude.Nothing+ | Prelude.otherwise =+ Prelude.Just+ Prelude.$ rq+ Prelude.& describeReservedNodeOfferings_marker+ Lens..~ rs+ Lens.^? describeReservedNodeOfferingsResponse_marker+ Prelude.. Lens._Just++instance+ Core.AWSRequest+ DescribeReservedNodeOfferings+ where+ type+ AWSResponse DescribeReservedNodeOfferings =+ DescribeReservedNodeOfferingsResponse+ request overrides =+ Request.postQuery (overrides defaultService)+ response =+ Response.receiveXMLWrapper+ "DescribeReservedNodeOfferingsResult"+ ( \s h x ->+ DescribeReservedNodeOfferingsResponse'+ Prelude.<$> (x Data..@? "Marker")+ Prelude.<*> ( x+ Data..@? "ReservedNodeOfferings"+ Core..!@ Prelude.mempty+ Prelude.>>= Core.may (Data.parseXMLList "ReservedNodeOffering")+ )+ Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+ )++instance+ Prelude.Hashable+ DescribeReservedNodeOfferings+ where+ hashWithSalt _salt DescribeReservedNodeOfferings' {..} =+ _salt+ `Prelude.hashWithSalt` marker+ `Prelude.hashWithSalt` maxRecords+ `Prelude.hashWithSalt` reservedNodeOfferingId++instance Prelude.NFData DescribeReservedNodeOfferings where+ rnf DescribeReservedNodeOfferings' {..} =+ Prelude.rnf marker+ `Prelude.seq` Prelude.rnf maxRecords+ `Prelude.seq` Prelude.rnf reservedNodeOfferingId++instance Data.ToHeaders DescribeReservedNodeOfferings where+ toHeaders = Prelude.const Prelude.mempty++instance Data.ToPath DescribeReservedNodeOfferings where+ toPath = Prelude.const "/"++instance Data.ToQuery DescribeReservedNodeOfferings where+ toQuery DescribeReservedNodeOfferings' {..} =+ Prelude.mconcat+ [ "Action"+ Data.=: ( "DescribeReservedNodeOfferings" ::+ Prelude.ByteString+ ),+ "Version"+ Data.=: ("2012-12-01" :: Prelude.ByteString),+ "Marker" Data.=: marker,+ "MaxRecords" Data.=: maxRecords,+ "ReservedNodeOfferingId"+ Data.=: reservedNodeOfferingId+ ]++-- |+--+-- /See:/ 'newDescribeReservedNodeOfferingsResponse' smart constructor.+data DescribeReservedNodeOfferingsResponse = DescribeReservedNodeOfferingsResponse'+ { -- | A value that indicates the starting point for the next set of response+ -- records in a subsequent request. If a value is returned in a response,+ -- you can retrieve the next set of records by providing this returned+ -- marker value in the @Marker@ parameter and retrying the command. If the+ -- @Marker@ field is empty, all response records have been retrieved for+ -- the request.+ marker :: Prelude.Maybe Prelude.Text,+ -- | A list of @ReservedNodeOffering@ objects.+ reservedNodeOfferings :: Prelude.Maybe [ReservedNodeOffering],+ -- | The response's http status code.+ httpStatus :: Prelude.Int+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeReservedNodeOfferingsResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'marker', 'describeReservedNodeOfferingsResponse_marker' - A value that indicates the starting point for the next set of response+-- records in a subsequent request. If a value is returned in a response,+-- you can retrieve the next set of records by providing this returned+-- marker value in the @Marker@ parameter and retrying the command. If the+-- @Marker@ field is empty, all response records have been retrieved for+-- the request.+--+-- 'reservedNodeOfferings', 'describeReservedNodeOfferingsResponse_reservedNodeOfferings' - A list of @ReservedNodeOffering@ objects.+--+-- 'httpStatus', 'describeReservedNodeOfferingsResponse_httpStatus' - The response's http status code.+newDescribeReservedNodeOfferingsResponse ::+ -- | 'httpStatus'+ Prelude.Int ->+ DescribeReservedNodeOfferingsResponse+newDescribeReservedNodeOfferingsResponse pHttpStatus_ =+ DescribeReservedNodeOfferingsResponse'+ { marker =+ Prelude.Nothing,+ reservedNodeOfferings =+ Prelude.Nothing,+ httpStatus = pHttpStatus_+ }++-- | A value that indicates the starting point for the next set of response+-- records in a subsequent request. If a value is returned in a response,+-- you can retrieve the next set of records by providing this returned+-- marker value in the @Marker@ parameter and retrying the command. If the+-- @Marker@ field is empty, all response records have been retrieved for+-- the request.+describeReservedNodeOfferingsResponse_marker :: Lens.Lens' DescribeReservedNodeOfferingsResponse (Prelude.Maybe Prelude.Text)+describeReservedNodeOfferingsResponse_marker = Lens.lens (\DescribeReservedNodeOfferingsResponse' {marker} -> marker) (\s@DescribeReservedNodeOfferingsResponse' {} a -> s {marker = a} :: DescribeReservedNodeOfferingsResponse)++-- | A list of @ReservedNodeOffering@ objects.+describeReservedNodeOfferingsResponse_reservedNodeOfferings :: Lens.Lens' DescribeReservedNodeOfferingsResponse (Prelude.Maybe [ReservedNodeOffering])+describeReservedNodeOfferingsResponse_reservedNodeOfferings = Lens.lens (\DescribeReservedNodeOfferingsResponse' {reservedNodeOfferings} -> reservedNodeOfferings) (\s@DescribeReservedNodeOfferingsResponse' {} a -> s {reservedNodeOfferings = a} :: DescribeReservedNodeOfferingsResponse) Prelude.. Lens.mapping Lens.coerced++-- | The response's http status code.+describeReservedNodeOfferingsResponse_httpStatus :: Lens.Lens' DescribeReservedNodeOfferingsResponse Prelude.Int+describeReservedNodeOfferingsResponse_httpStatus = Lens.lens (\DescribeReservedNodeOfferingsResponse' {httpStatus} -> httpStatus) (\s@DescribeReservedNodeOfferingsResponse' {} a -> s {httpStatus = a} :: DescribeReservedNodeOfferingsResponse)++instance+ Prelude.NFData+ DescribeReservedNodeOfferingsResponse+ where+ rnf DescribeReservedNodeOfferingsResponse' {..} =+ Prelude.rnf marker+ `Prelude.seq` Prelude.rnf reservedNodeOfferings+ `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/Redshift/DescribeReservedNodes.hs view
@@ -0,0 +1,283 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module : Amazonka.Redshift.DescribeReservedNodes+-- Copyright : (c) 2013-2023 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Returns the descriptions of the reserved nodes.+--+-- This operation returns paginated results.+module Amazonka.Redshift.DescribeReservedNodes+ ( -- * Creating a Request+ DescribeReservedNodes (..),+ newDescribeReservedNodes,++ -- * Request Lenses+ describeReservedNodes_marker,+ describeReservedNodes_maxRecords,+ describeReservedNodes_reservedNodeId,++ -- * Destructuring the Response+ DescribeReservedNodesResponse (..),+ newDescribeReservedNodesResponse,++ -- * Response Lenses+ describeReservedNodesResponse_marker,+ describeReservedNodesResponse_reservedNodes,+ describeReservedNodesResponse_httpStatus,+ )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Redshift.Types+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- |+--+-- /See:/ 'newDescribeReservedNodes' smart constructor.+data DescribeReservedNodes = DescribeReservedNodes'+ { -- | An optional parameter that specifies the starting point to return a set+ -- of response records. When the results of a DescribeReservedNodes request+ -- exceed the value specified in @MaxRecords@, Amazon Web Services returns+ -- a value in the @Marker@ field of the response. You can retrieve the next+ -- set of response records by providing the returned marker value in the+ -- @Marker@ parameter and retrying the request.+ marker :: Prelude.Maybe Prelude.Text,+ -- | The maximum number of response records to return in each call. If the+ -- number of remaining response records exceeds the specified @MaxRecords@+ -- value, a value is returned in a @marker@ field of the response. You can+ -- retrieve the next set of records by retrying the command with the+ -- returned marker value.+ --+ -- Default: @100@+ --+ -- Constraints: minimum 20, maximum 100.+ maxRecords :: Prelude.Maybe Prelude.Int,+ -- | Identifier for the node reservation.+ reservedNodeId :: Prelude.Maybe Prelude.Text+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeReservedNodes' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'marker', 'describeReservedNodes_marker' - An optional parameter that specifies the starting point to return a set+-- of response records. When the results of a DescribeReservedNodes request+-- exceed the value specified in @MaxRecords@, Amazon Web Services returns+-- a value in the @Marker@ field of the response. You can retrieve the next+-- set of response records by providing the returned marker value in the+-- @Marker@ parameter and retrying the request.+--+-- 'maxRecords', 'describeReservedNodes_maxRecords' - The maximum number of response records to return in each call. If the+-- number of remaining response records exceeds the specified @MaxRecords@+-- value, a value is returned in a @marker@ field of the response. You can+-- retrieve the next set of records by retrying the command with the+-- returned marker value.+--+-- Default: @100@+--+-- Constraints: minimum 20, maximum 100.+--+-- 'reservedNodeId', 'describeReservedNodes_reservedNodeId' - Identifier for the node reservation.+newDescribeReservedNodes ::+ DescribeReservedNodes+newDescribeReservedNodes =+ DescribeReservedNodes'+ { marker = Prelude.Nothing,+ maxRecords = Prelude.Nothing,+ reservedNodeId = Prelude.Nothing+ }++-- | An optional parameter that specifies the starting point to return a set+-- of response records. When the results of a DescribeReservedNodes request+-- exceed the value specified in @MaxRecords@, Amazon Web Services returns+-- a value in the @Marker@ field of the response. You can retrieve the next+-- set of response records by providing the returned marker value in the+-- @Marker@ parameter and retrying the request.+describeReservedNodes_marker :: Lens.Lens' DescribeReservedNodes (Prelude.Maybe Prelude.Text)+describeReservedNodes_marker = Lens.lens (\DescribeReservedNodes' {marker} -> marker) (\s@DescribeReservedNodes' {} a -> s {marker = a} :: DescribeReservedNodes)++-- | The maximum number of response records to return in each call. If the+-- number of remaining response records exceeds the specified @MaxRecords@+-- value, a value is returned in a @marker@ field of the response. You can+-- retrieve the next set of records by retrying the command with the+-- returned marker value.+--+-- Default: @100@+--+-- Constraints: minimum 20, maximum 100.+describeReservedNodes_maxRecords :: Lens.Lens' DescribeReservedNodes (Prelude.Maybe Prelude.Int)+describeReservedNodes_maxRecords = Lens.lens (\DescribeReservedNodes' {maxRecords} -> maxRecords) (\s@DescribeReservedNodes' {} a -> s {maxRecords = a} :: DescribeReservedNodes)++-- | Identifier for the node reservation.+describeReservedNodes_reservedNodeId :: Lens.Lens' DescribeReservedNodes (Prelude.Maybe Prelude.Text)+describeReservedNodes_reservedNodeId = Lens.lens (\DescribeReservedNodes' {reservedNodeId} -> reservedNodeId) (\s@DescribeReservedNodes' {} a -> s {reservedNodeId = a} :: DescribeReservedNodes)++instance Core.AWSPager DescribeReservedNodes where+ page rq rs+ | Core.stop+ ( rs+ Lens.^? describeReservedNodesResponse_marker+ Prelude.. Lens._Just+ ) =+ Prelude.Nothing+ | Core.stop+ ( rs+ Lens.^? describeReservedNodesResponse_reservedNodes+ Prelude.. Lens._Just+ ) =+ Prelude.Nothing+ | Prelude.otherwise =+ Prelude.Just+ Prelude.$ rq+ Prelude.& describeReservedNodes_marker+ Lens..~ rs+ Lens.^? describeReservedNodesResponse_marker+ Prelude.. Lens._Just++instance Core.AWSRequest DescribeReservedNodes where+ type+ AWSResponse DescribeReservedNodes =+ DescribeReservedNodesResponse+ request overrides =+ Request.postQuery (overrides defaultService)+ response =+ Response.receiveXMLWrapper+ "DescribeReservedNodesResult"+ ( \s h x ->+ DescribeReservedNodesResponse'+ Prelude.<$> (x Data..@? "Marker")+ Prelude.<*> ( x+ Data..@? "ReservedNodes"+ Core..!@ Prelude.mempty+ Prelude.>>= Core.may (Data.parseXMLList "ReservedNode")+ )+ Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+ )++instance Prelude.Hashable DescribeReservedNodes where+ hashWithSalt _salt DescribeReservedNodes' {..} =+ _salt+ `Prelude.hashWithSalt` marker+ `Prelude.hashWithSalt` maxRecords+ `Prelude.hashWithSalt` reservedNodeId++instance Prelude.NFData DescribeReservedNodes where+ rnf DescribeReservedNodes' {..} =+ Prelude.rnf marker+ `Prelude.seq` Prelude.rnf maxRecords+ `Prelude.seq` Prelude.rnf reservedNodeId++instance Data.ToHeaders DescribeReservedNodes where+ toHeaders = Prelude.const Prelude.mempty++instance Data.ToPath DescribeReservedNodes where+ toPath = Prelude.const "/"++instance Data.ToQuery DescribeReservedNodes where+ toQuery DescribeReservedNodes' {..} =+ Prelude.mconcat+ [ "Action"+ Data.=: ("DescribeReservedNodes" :: Prelude.ByteString),+ "Version"+ Data.=: ("2012-12-01" :: Prelude.ByteString),+ "Marker" Data.=: marker,+ "MaxRecords" Data.=: maxRecords,+ "ReservedNodeId" Data.=: reservedNodeId+ ]++-- |+--+-- /See:/ 'newDescribeReservedNodesResponse' smart constructor.+data DescribeReservedNodesResponse = DescribeReservedNodesResponse'+ { -- | A value that indicates the starting point for the next set of response+ -- records in a subsequent request. If a value is returned in a response,+ -- you can retrieve the next set of records by providing this returned+ -- marker value in the @Marker@ parameter and retrying the command. If the+ -- @Marker@ field is empty, all response records have been retrieved for+ -- the request.+ marker :: Prelude.Maybe Prelude.Text,+ -- | The list of @ReservedNode@ objects.+ reservedNodes :: Prelude.Maybe [ReservedNode],+ -- | The response's http status code.+ httpStatus :: Prelude.Int+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeReservedNodesResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'marker', 'describeReservedNodesResponse_marker' - A value that indicates the starting point for the next set of response+-- records in a subsequent request. If a value is returned in a response,+-- you can retrieve the next set of records by providing this returned+-- marker value in the @Marker@ parameter and retrying the command. If the+-- @Marker@ field is empty, all response records have been retrieved for+-- the request.+--+-- 'reservedNodes', 'describeReservedNodesResponse_reservedNodes' - The list of @ReservedNode@ objects.+--+-- 'httpStatus', 'describeReservedNodesResponse_httpStatus' - The response's http status code.+newDescribeReservedNodesResponse ::+ -- | 'httpStatus'+ Prelude.Int ->+ DescribeReservedNodesResponse+newDescribeReservedNodesResponse pHttpStatus_ =+ DescribeReservedNodesResponse'+ { marker =+ Prelude.Nothing,+ reservedNodes = Prelude.Nothing,+ httpStatus = pHttpStatus_+ }++-- | A value that indicates the starting point for the next set of response+-- records in a subsequent request. If a value is returned in a response,+-- you can retrieve the next set of records by providing this returned+-- marker value in the @Marker@ parameter and retrying the command. If the+-- @Marker@ field is empty, all response records have been retrieved for+-- the request.+describeReservedNodesResponse_marker :: Lens.Lens' DescribeReservedNodesResponse (Prelude.Maybe Prelude.Text)+describeReservedNodesResponse_marker = Lens.lens (\DescribeReservedNodesResponse' {marker} -> marker) (\s@DescribeReservedNodesResponse' {} a -> s {marker = a} :: DescribeReservedNodesResponse)++-- | The list of @ReservedNode@ objects.+describeReservedNodesResponse_reservedNodes :: Lens.Lens' DescribeReservedNodesResponse (Prelude.Maybe [ReservedNode])+describeReservedNodesResponse_reservedNodes = Lens.lens (\DescribeReservedNodesResponse' {reservedNodes} -> reservedNodes) (\s@DescribeReservedNodesResponse' {} a -> s {reservedNodes = a} :: DescribeReservedNodesResponse) Prelude.. Lens.mapping Lens.coerced++-- | The response's http status code.+describeReservedNodesResponse_httpStatus :: Lens.Lens' DescribeReservedNodesResponse Prelude.Int+describeReservedNodesResponse_httpStatus = Lens.lens (\DescribeReservedNodesResponse' {httpStatus} -> httpStatus) (\s@DescribeReservedNodesResponse' {} a -> s {httpStatus = a} :: DescribeReservedNodesResponse)++instance Prelude.NFData DescribeReservedNodesResponse where+ rnf DescribeReservedNodesResponse' {..} =+ Prelude.rnf marker+ `Prelude.seq` Prelude.rnf reservedNodes+ `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/Redshift/DescribeResize.hs view
@@ -0,0 +1,148 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module : Amazonka.Redshift.DescribeResize+-- Copyright : (c) 2013-2023 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Returns information about the last resize operation for the specified+-- cluster. If no resize operation has ever been initiated for the+-- specified cluster, a @HTTP 404@ error is returned. If a resize operation+-- was initiated and completed, the status of the resize remains as+-- @SUCCEEDED@ until the next resize.+--+-- A resize operation can be requested using ModifyCluster and specifying a+-- different number or type of nodes for the cluster.+module Amazonka.Redshift.DescribeResize+ ( -- * Creating a Request+ DescribeResize (..),+ newDescribeResize,++ -- * Request Lenses+ describeResize_clusterIdentifier,++ -- * Destructuring the Response+ ResizeProgressMessage (..),+ newResizeProgressMessage,++ -- * Response Lenses+ resizeProgressMessage_avgResizeRateInMegaBytesPerSecond,+ resizeProgressMessage_dataTransferProgressPercent,+ resizeProgressMessage_elapsedTimeInSeconds,+ resizeProgressMessage_estimatedTimeToCompletionInSeconds,+ resizeProgressMessage_importTablesCompleted,+ resizeProgressMessage_importTablesInProgress,+ resizeProgressMessage_importTablesNotStarted,+ resizeProgressMessage_message,+ resizeProgressMessage_progressInMegaBytes,+ resizeProgressMessage_resizeType,+ resizeProgressMessage_status,+ resizeProgressMessage_targetClusterType,+ resizeProgressMessage_targetEncryptionType,+ resizeProgressMessage_targetNodeType,+ resizeProgressMessage_targetNumberOfNodes,+ resizeProgressMessage_totalResizeDataInMegaBytes,+ )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Redshift.Types+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- |+--+-- /See:/ 'newDescribeResize' smart constructor.+data DescribeResize = DescribeResize'+ { -- | The unique identifier of a cluster whose resize progress you are+ -- requesting. This parameter is case-sensitive.+ --+ -- By default, resize operations for all clusters defined for an Amazon Web+ -- Services account are returned.+ clusterIdentifier :: Prelude.Text+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeResize' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'clusterIdentifier', 'describeResize_clusterIdentifier' - The unique identifier of a cluster whose resize progress you are+-- requesting. This parameter is case-sensitive.+--+-- By default, resize operations for all clusters defined for an Amazon Web+-- Services account are returned.+newDescribeResize ::+ -- | 'clusterIdentifier'+ Prelude.Text ->+ DescribeResize+newDescribeResize pClusterIdentifier_ =+ DescribeResize'+ { clusterIdentifier =+ pClusterIdentifier_+ }++-- | The unique identifier of a cluster whose resize progress you are+-- requesting. This parameter is case-sensitive.+--+-- By default, resize operations for all clusters defined for an Amazon Web+-- Services account are returned.+describeResize_clusterIdentifier :: Lens.Lens' DescribeResize Prelude.Text+describeResize_clusterIdentifier = Lens.lens (\DescribeResize' {clusterIdentifier} -> clusterIdentifier) (\s@DescribeResize' {} a -> s {clusterIdentifier = a} :: DescribeResize)++instance Core.AWSRequest DescribeResize where+ type+ AWSResponse DescribeResize =+ ResizeProgressMessage+ request overrides =+ Request.postQuery (overrides defaultService)+ response =+ Response.receiveXMLWrapper+ "DescribeResizeResult"+ (\s h x -> Data.parseXML x)++instance Prelude.Hashable DescribeResize where+ hashWithSalt _salt DescribeResize' {..} =+ _salt `Prelude.hashWithSalt` clusterIdentifier++instance Prelude.NFData DescribeResize where+ rnf DescribeResize' {..} =+ Prelude.rnf clusterIdentifier++instance Data.ToHeaders DescribeResize where+ toHeaders = Prelude.const Prelude.mempty++instance Data.ToPath DescribeResize where+ toPath = Prelude.const "/"++instance Data.ToQuery DescribeResize where+ toQuery DescribeResize' {..} =+ Prelude.mconcat+ [ "Action"+ Data.=: ("DescribeResize" :: Prelude.ByteString),+ "Version"+ Data.=: ("2012-12-01" :: Prelude.ByteString),+ "ClusterIdentifier" Data.=: clusterIdentifier+ ]
+ gen/Amazonka/Redshift/DescribeScheduledActions.hs view
@@ -0,0 +1,360 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module : Amazonka.Redshift.DescribeScheduledActions+-- Copyright : (c) 2013-2023 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Describes properties of scheduled actions.+--+-- This operation returns paginated results.+module Amazonka.Redshift.DescribeScheduledActions+ ( -- * Creating a Request+ DescribeScheduledActions (..),+ newDescribeScheduledActions,++ -- * Request Lenses+ describeScheduledActions_active,+ describeScheduledActions_endTime,+ describeScheduledActions_filters,+ describeScheduledActions_marker,+ describeScheduledActions_maxRecords,+ describeScheduledActions_scheduledActionName,+ describeScheduledActions_startTime,+ describeScheduledActions_targetActionType,++ -- * Destructuring the Response+ DescribeScheduledActionsResponse (..),+ newDescribeScheduledActionsResponse,++ -- * Response Lenses+ describeScheduledActionsResponse_marker,+ describeScheduledActionsResponse_scheduledActions,+ describeScheduledActionsResponse_httpStatus,+ )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Redshift.Types+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newDescribeScheduledActions' smart constructor.+data DescribeScheduledActions = DescribeScheduledActions'+ { -- | If true, retrieve only active scheduled actions. If false, retrieve only+ -- disabled scheduled actions.+ active :: Prelude.Maybe Prelude.Bool,+ -- | The end time in UTC of the scheduled action to retrieve. Only active+ -- scheduled actions that have invocations before this time are retrieved.+ endTime :: Prelude.Maybe Data.ISO8601,+ -- | List of scheduled action filters.+ filters :: Prelude.Maybe [ScheduledActionFilter],+ -- | An optional parameter that specifies the starting point to return a set+ -- of response records. When the results of a DescribeScheduledActions+ -- request exceed the value specified in @MaxRecords@, Amazon Web Services+ -- returns a value in the @Marker@ field of the response. You can retrieve+ -- the next set of response records by providing the returned marker value+ -- in the @Marker@ parameter and retrying the request.+ marker :: Prelude.Maybe Prelude.Text,+ -- | The maximum number of response records to return in each call. If the+ -- number of remaining response records exceeds the specified @MaxRecords@+ -- value, a value is returned in a @marker@ field of the response. You can+ -- retrieve the next set of records by retrying the command with the+ -- returned marker value.+ --+ -- Default: @100@+ --+ -- Constraints: minimum 20, maximum 100.+ maxRecords :: Prelude.Maybe Prelude.Int,+ -- | The name of the scheduled action to retrieve.+ scheduledActionName :: Prelude.Maybe Prelude.Text,+ -- | The start time in UTC of the scheduled actions to retrieve. Only active+ -- scheduled actions that have invocations after this time are retrieved.+ startTime :: Prelude.Maybe Data.ISO8601,+ -- | The type of the scheduled actions to retrieve.+ targetActionType :: Prelude.Maybe ScheduledActionTypeValues+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeScheduledActions' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'active', 'describeScheduledActions_active' - If true, retrieve only active scheduled actions. If false, retrieve only+-- disabled scheduled actions.+--+-- 'endTime', 'describeScheduledActions_endTime' - The end time in UTC of the scheduled action to retrieve. Only active+-- scheduled actions that have invocations before this time are retrieved.+--+-- 'filters', 'describeScheduledActions_filters' - List of scheduled action filters.+--+-- 'marker', 'describeScheduledActions_marker' - An optional parameter that specifies the starting point to return a set+-- of response records. When the results of a DescribeScheduledActions+-- request exceed the value specified in @MaxRecords@, Amazon Web Services+-- returns a value in the @Marker@ field of the response. You can retrieve+-- the next set of response records by providing the returned marker value+-- in the @Marker@ parameter and retrying the request.+--+-- 'maxRecords', 'describeScheduledActions_maxRecords' - The maximum number of response records to return in each call. If the+-- number of remaining response records exceeds the specified @MaxRecords@+-- value, a value is returned in a @marker@ field of the response. You can+-- retrieve the next set of records by retrying the command with the+-- returned marker value.+--+-- Default: @100@+--+-- Constraints: minimum 20, maximum 100.+--+-- 'scheduledActionName', 'describeScheduledActions_scheduledActionName' - The name of the scheduled action to retrieve.+--+-- 'startTime', 'describeScheduledActions_startTime' - The start time in UTC of the scheduled actions to retrieve. Only active+-- scheduled actions that have invocations after this time are retrieved.+--+-- 'targetActionType', 'describeScheduledActions_targetActionType' - The type of the scheduled actions to retrieve.+newDescribeScheduledActions ::+ DescribeScheduledActions+newDescribeScheduledActions =+ DescribeScheduledActions'+ { active = Prelude.Nothing,+ endTime = Prelude.Nothing,+ filters = Prelude.Nothing,+ marker = Prelude.Nothing,+ maxRecords = Prelude.Nothing,+ scheduledActionName = Prelude.Nothing,+ startTime = Prelude.Nothing,+ targetActionType = Prelude.Nothing+ }++-- | If true, retrieve only active scheduled actions. If false, retrieve only+-- disabled scheduled actions.+describeScheduledActions_active :: Lens.Lens' DescribeScheduledActions (Prelude.Maybe Prelude.Bool)+describeScheduledActions_active = Lens.lens (\DescribeScheduledActions' {active} -> active) (\s@DescribeScheduledActions' {} a -> s {active = a} :: DescribeScheduledActions)++-- | The end time in UTC of the scheduled action to retrieve. Only active+-- scheduled actions that have invocations before this time are retrieved.+describeScheduledActions_endTime :: Lens.Lens' DescribeScheduledActions (Prelude.Maybe Prelude.UTCTime)+describeScheduledActions_endTime = Lens.lens (\DescribeScheduledActions' {endTime} -> endTime) (\s@DescribeScheduledActions' {} a -> s {endTime = a} :: DescribeScheduledActions) Prelude.. Lens.mapping Data._Time++-- | List of scheduled action filters.+describeScheduledActions_filters :: Lens.Lens' DescribeScheduledActions (Prelude.Maybe [ScheduledActionFilter])+describeScheduledActions_filters = Lens.lens (\DescribeScheduledActions' {filters} -> filters) (\s@DescribeScheduledActions' {} a -> s {filters = a} :: DescribeScheduledActions) Prelude.. Lens.mapping Lens.coerced++-- | An optional parameter that specifies the starting point to return a set+-- of response records. When the results of a DescribeScheduledActions+-- request exceed the value specified in @MaxRecords@, Amazon Web Services+-- returns a value in the @Marker@ field of the response. You can retrieve+-- the next set of response records by providing the returned marker value+-- in the @Marker@ parameter and retrying the request.+describeScheduledActions_marker :: Lens.Lens' DescribeScheduledActions (Prelude.Maybe Prelude.Text)+describeScheduledActions_marker = Lens.lens (\DescribeScheduledActions' {marker} -> marker) (\s@DescribeScheduledActions' {} a -> s {marker = a} :: DescribeScheduledActions)++-- | The maximum number of response records to return in each call. If the+-- number of remaining response records exceeds the specified @MaxRecords@+-- value, a value is returned in a @marker@ field of the response. You can+-- retrieve the next set of records by retrying the command with the+-- returned marker value.+--+-- Default: @100@+--+-- Constraints: minimum 20, maximum 100.+describeScheduledActions_maxRecords :: Lens.Lens' DescribeScheduledActions (Prelude.Maybe Prelude.Int)+describeScheduledActions_maxRecords = Lens.lens (\DescribeScheduledActions' {maxRecords} -> maxRecords) (\s@DescribeScheduledActions' {} a -> s {maxRecords = a} :: DescribeScheduledActions)++-- | The name of the scheduled action to retrieve.+describeScheduledActions_scheduledActionName :: Lens.Lens' DescribeScheduledActions (Prelude.Maybe Prelude.Text)+describeScheduledActions_scheduledActionName = Lens.lens (\DescribeScheduledActions' {scheduledActionName} -> scheduledActionName) (\s@DescribeScheduledActions' {} a -> s {scheduledActionName = a} :: DescribeScheduledActions)++-- | The start time in UTC of the scheduled actions to retrieve. Only active+-- scheduled actions that have invocations after this time are retrieved.+describeScheduledActions_startTime :: Lens.Lens' DescribeScheduledActions (Prelude.Maybe Prelude.UTCTime)+describeScheduledActions_startTime = Lens.lens (\DescribeScheduledActions' {startTime} -> startTime) (\s@DescribeScheduledActions' {} a -> s {startTime = a} :: DescribeScheduledActions) Prelude.. Lens.mapping Data._Time++-- | The type of the scheduled actions to retrieve.+describeScheduledActions_targetActionType :: Lens.Lens' DescribeScheduledActions (Prelude.Maybe ScheduledActionTypeValues)+describeScheduledActions_targetActionType = Lens.lens (\DescribeScheduledActions' {targetActionType} -> targetActionType) (\s@DescribeScheduledActions' {} a -> s {targetActionType = a} :: DescribeScheduledActions)++instance Core.AWSPager DescribeScheduledActions where+ page rq rs+ | Core.stop+ ( rs+ Lens.^? describeScheduledActionsResponse_marker+ Prelude.. Lens._Just+ ) =+ Prelude.Nothing+ | Core.stop+ ( rs+ Lens.^? describeScheduledActionsResponse_scheduledActions+ Prelude.. Lens._Just+ ) =+ Prelude.Nothing+ | Prelude.otherwise =+ Prelude.Just+ Prelude.$ rq+ Prelude.& describeScheduledActions_marker+ Lens..~ rs+ Lens.^? describeScheduledActionsResponse_marker+ Prelude.. Lens._Just++instance Core.AWSRequest DescribeScheduledActions where+ type+ AWSResponse DescribeScheduledActions =+ DescribeScheduledActionsResponse+ request overrides =+ Request.postQuery (overrides defaultService)+ response =+ Response.receiveXMLWrapper+ "DescribeScheduledActionsResult"+ ( \s h x ->+ DescribeScheduledActionsResponse'+ Prelude.<$> (x Data..@? "Marker")+ Prelude.<*> ( x+ Data..@? "ScheduledActions"+ Core..!@ Prelude.mempty+ Prelude.>>= Core.may (Data.parseXMLList "ScheduledAction")+ )+ Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+ )++instance Prelude.Hashable DescribeScheduledActions where+ hashWithSalt _salt DescribeScheduledActions' {..} =+ _salt+ `Prelude.hashWithSalt` active+ `Prelude.hashWithSalt` endTime+ `Prelude.hashWithSalt` filters+ `Prelude.hashWithSalt` marker+ `Prelude.hashWithSalt` maxRecords+ `Prelude.hashWithSalt` scheduledActionName+ `Prelude.hashWithSalt` startTime+ `Prelude.hashWithSalt` targetActionType++instance Prelude.NFData DescribeScheduledActions where+ rnf DescribeScheduledActions' {..} =+ Prelude.rnf active+ `Prelude.seq` Prelude.rnf endTime+ `Prelude.seq` Prelude.rnf filters+ `Prelude.seq` Prelude.rnf marker+ `Prelude.seq` Prelude.rnf maxRecords+ `Prelude.seq` Prelude.rnf scheduledActionName+ `Prelude.seq` Prelude.rnf startTime+ `Prelude.seq` Prelude.rnf targetActionType++instance Data.ToHeaders DescribeScheduledActions where+ toHeaders = Prelude.const Prelude.mempty++instance Data.ToPath DescribeScheduledActions where+ toPath = Prelude.const "/"++instance Data.ToQuery DescribeScheduledActions where+ toQuery DescribeScheduledActions' {..} =+ Prelude.mconcat+ [ "Action"+ Data.=: ("DescribeScheduledActions" :: Prelude.ByteString),+ "Version"+ Data.=: ("2012-12-01" :: Prelude.ByteString),+ "Active" Data.=: active,+ "EndTime" Data.=: endTime,+ "Filters"+ Data.=: Data.toQuery+ ( Data.toQueryList "ScheduledActionFilter"+ Prelude.<$> filters+ ),+ "Marker" Data.=: marker,+ "MaxRecords" Data.=: maxRecords,+ "ScheduledActionName" Data.=: scheduledActionName,+ "StartTime" Data.=: startTime,+ "TargetActionType" Data.=: targetActionType+ ]++-- | /See:/ 'newDescribeScheduledActionsResponse' smart constructor.+data DescribeScheduledActionsResponse = DescribeScheduledActionsResponse'+ { -- | An optional parameter that specifies the starting point to return a set+ -- of response records. When the results of a DescribeScheduledActions+ -- request exceed the value specified in @MaxRecords@, Amazon Web Services+ -- returns a value in the @Marker@ field of the response. You can retrieve+ -- the next set of response records by providing the returned marker value+ -- in the @Marker@ parameter and retrying the request.+ marker :: Prelude.Maybe Prelude.Text,+ -- | List of retrieved scheduled actions.+ scheduledActions :: Prelude.Maybe [ScheduledAction],+ -- | The response's http status code.+ httpStatus :: Prelude.Int+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeScheduledActionsResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'marker', 'describeScheduledActionsResponse_marker' - An optional parameter that specifies the starting point to return a set+-- of response records. When the results of a DescribeScheduledActions+-- request exceed the value specified in @MaxRecords@, Amazon Web Services+-- returns a value in the @Marker@ field of the response. You can retrieve+-- the next set of response records by providing the returned marker value+-- in the @Marker@ parameter and retrying the request.+--+-- 'scheduledActions', 'describeScheduledActionsResponse_scheduledActions' - List of retrieved scheduled actions.+--+-- 'httpStatus', 'describeScheduledActionsResponse_httpStatus' - The response's http status code.+newDescribeScheduledActionsResponse ::+ -- | 'httpStatus'+ Prelude.Int ->+ DescribeScheduledActionsResponse+newDescribeScheduledActionsResponse pHttpStatus_ =+ DescribeScheduledActionsResponse'+ { marker =+ Prelude.Nothing,+ scheduledActions = Prelude.Nothing,+ httpStatus = pHttpStatus_+ }++-- | An optional parameter that specifies the starting point to return a set+-- of response records. When the results of a DescribeScheduledActions+-- request exceed the value specified in @MaxRecords@, Amazon Web Services+-- returns a value in the @Marker@ field of the response. You can retrieve+-- the next set of response records by providing the returned marker value+-- in the @Marker@ parameter and retrying the request.+describeScheduledActionsResponse_marker :: Lens.Lens' DescribeScheduledActionsResponse (Prelude.Maybe Prelude.Text)+describeScheduledActionsResponse_marker = Lens.lens (\DescribeScheduledActionsResponse' {marker} -> marker) (\s@DescribeScheduledActionsResponse' {} a -> s {marker = a} :: DescribeScheduledActionsResponse)++-- | List of retrieved scheduled actions.+describeScheduledActionsResponse_scheduledActions :: Lens.Lens' DescribeScheduledActionsResponse (Prelude.Maybe [ScheduledAction])+describeScheduledActionsResponse_scheduledActions = Lens.lens (\DescribeScheduledActionsResponse' {scheduledActions} -> scheduledActions) (\s@DescribeScheduledActionsResponse' {} a -> s {scheduledActions = a} :: DescribeScheduledActionsResponse) Prelude.. Lens.mapping Lens.coerced++-- | The response's http status code.+describeScheduledActionsResponse_httpStatus :: Lens.Lens' DescribeScheduledActionsResponse Prelude.Int+describeScheduledActionsResponse_httpStatus = Lens.lens (\DescribeScheduledActionsResponse' {httpStatus} -> httpStatus) (\s@DescribeScheduledActionsResponse' {} a -> s {httpStatus = a} :: DescribeScheduledActionsResponse)++instance+ Prelude.NFData+ DescribeScheduledActionsResponse+ where+ rnf DescribeScheduledActionsResponse' {..} =+ Prelude.rnf marker+ `Prelude.seq` Prelude.rnf scheduledActions+ `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/Redshift/DescribeSnapshotCopyGrants.hs view
@@ -0,0 +1,371 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module : Amazonka.Redshift.DescribeSnapshotCopyGrants+-- Copyright : (c) 2013-2023 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Returns a list of snapshot copy grants owned by the Amazon Web Services+-- account in the destination region.+--+-- For more information about managing snapshot copy grants, go to+-- <https://docs.aws.amazon.com/redshift/latest/mgmt/working-with-db-encryption.html Amazon Redshift Database Encryption>+-- in the /Amazon Redshift Cluster Management Guide/.+--+-- This operation returns paginated results.+module Amazonka.Redshift.DescribeSnapshotCopyGrants+ ( -- * Creating a Request+ DescribeSnapshotCopyGrants (..),+ newDescribeSnapshotCopyGrants,++ -- * Request Lenses+ describeSnapshotCopyGrants_marker,+ describeSnapshotCopyGrants_maxRecords,+ describeSnapshotCopyGrants_snapshotCopyGrantName,+ describeSnapshotCopyGrants_tagKeys,+ describeSnapshotCopyGrants_tagValues,++ -- * Destructuring the Response+ DescribeSnapshotCopyGrantsResponse (..),+ newDescribeSnapshotCopyGrantsResponse,++ -- * Response Lenses+ describeSnapshotCopyGrantsResponse_marker,+ describeSnapshotCopyGrantsResponse_snapshotCopyGrants,+ describeSnapshotCopyGrantsResponse_httpStatus,+ )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Redshift.Types+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | The result of the @DescribeSnapshotCopyGrants@ action.+--+-- /See:/ 'newDescribeSnapshotCopyGrants' smart constructor.+data DescribeSnapshotCopyGrants = DescribeSnapshotCopyGrants'+ { -- | An optional parameter that specifies the starting point to return a set+ -- of response records. When the results of a @DescribeSnapshotCopyGrant@+ -- request exceed the value specified in @MaxRecords@, Amazon Web Services+ -- returns a value in the @Marker@ field of the response. You can retrieve+ -- the next set of response records by providing the returned marker value+ -- in the @Marker@ parameter and retrying the request.+ --+ -- Constraints: You can specify either the __SnapshotCopyGrantName__+ -- parameter or the __Marker__ parameter, but not both.+ marker :: Prelude.Maybe Prelude.Text,+ -- | The maximum number of response records to return in each call. If the+ -- number of remaining response records exceeds the specified @MaxRecords@+ -- value, a value is returned in a @marker@ field of the response. You can+ -- retrieve the next set of records by retrying the command with the+ -- returned marker value.+ --+ -- Default: @100@+ --+ -- Constraints: minimum 20, maximum 100.+ maxRecords :: Prelude.Maybe Prelude.Int,+ -- | The name of the snapshot copy grant.+ snapshotCopyGrantName :: Prelude.Maybe Prelude.Text,+ -- | A tag key or keys for which you want to return all matching resources+ -- that are associated with the specified key or keys. For example, suppose+ -- that you have resources tagged with keys called @owner@ and+ -- @environment@. If you specify both of these tag keys in the request,+ -- Amazon Redshift returns a response with all resources that have either+ -- or both of these tag keys associated with them.+ tagKeys :: Prelude.Maybe [Prelude.Text],+ -- | A tag value or values for which you want to return all matching+ -- resources that are associated with the specified value or values. For+ -- example, suppose that you have resources tagged with values called+ -- @admin@ and @test@. If you specify both of these tag values in the+ -- request, Amazon Redshift returns a response with all resources that have+ -- either or both of these tag values associated with them.+ tagValues :: Prelude.Maybe [Prelude.Text]+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeSnapshotCopyGrants' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'marker', 'describeSnapshotCopyGrants_marker' - An optional parameter that specifies the starting point to return a set+-- of response records. When the results of a @DescribeSnapshotCopyGrant@+-- request exceed the value specified in @MaxRecords@, Amazon Web Services+-- returns a value in the @Marker@ field of the response. You can retrieve+-- the next set of response records by providing the returned marker value+-- in the @Marker@ parameter and retrying the request.+--+-- Constraints: You can specify either the __SnapshotCopyGrantName__+-- parameter or the __Marker__ parameter, but not both.+--+-- 'maxRecords', 'describeSnapshotCopyGrants_maxRecords' - The maximum number of response records to return in each call. If the+-- number of remaining response records exceeds the specified @MaxRecords@+-- value, a value is returned in a @marker@ field of the response. You can+-- retrieve the next set of records by retrying the command with the+-- returned marker value.+--+-- Default: @100@+--+-- Constraints: minimum 20, maximum 100.+--+-- 'snapshotCopyGrantName', 'describeSnapshotCopyGrants_snapshotCopyGrantName' - The name of the snapshot copy grant.+--+-- 'tagKeys', 'describeSnapshotCopyGrants_tagKeys' - A tag key or keys for which you want to return all matching resources+-- that are associated with the specified key or keys. For example, suppose+-- that you have resources tagged with keys called @owner@ and+-- @environment@. If you specify both of these tag keys in the request,+-- Amazon Redshift returns a response with all resources that have either+-- or both of these tag keys associated with them.+--+-- 'tagValues', 'describeSnapshotCopyGrants_tagValues' - A tag value or values for which you want to return all matching+-- resources that are associated with the specified value or values. For+-- example, suppose that you have resources tagged with values called+-- @admin@ and @test@. If you specify both of these tag values in the+-- request, Amazon Redshift returns a response with all resources that have+-- either or both of these tag values associated with them.+newDescribeSnapshotCopyGrants ::+ DescribeSnapshotCopyGrants+newDescribeSnapshotCopyGrants =+ DescribeSnapshotCopyGrants'+ { marker =+ Prelude.Nothing,+ maxRecords = Prelude.Nothing,+ snapshotCopyGrantName = Prelude.Nothing,+ tagKeys = Prelude.Nothing,+ tagValues = Prelude.Nothing+ }++-- | An optional parameter that specifies the starting point to return a set+-- of response records. When the results of a @DescribeSnapshotCopyGrant@+-- request exceed the value specified in @MaxRecords@, Amazon Web Services+-- returns a value in the @Marker@ field of the response. You can retrieve+-- the next set of response records by providing the returned marker value+-- in the @Marker@ parameter and retrying the request.+--+-- Constraints: You can specify either the __SnapshotCopyGrantName__+-- parameter or the __Marker__ parameter, but not both.+describeSnapshotCopyGrants_marker :: Lens.Lens' DescribeSnapshotCopyGrants (Prelude.Maybe Prelude.Text)+describeSnapshotCopyGrants_marker = Lens.lens (\DescribeSnapshotCopyGrants' {marker} -> marker) (\s@DescribeSnapshotCopyGrants' {} a -> s {marker = a} :: DescribeSnapshotCopyGrants)++-- | The maximum number of response records to return in each call. If the+-- number of remaining response records exceeds the specified @MaxRecords@+-- value, a value is returned in a @marker@ field of the response. You can+-- retrieve the next set of records by retrying the command with the+-- returned marker value.+--+-- Default: @100@+--+-- Constraints: minimum 20, maximum 100.+describeSnapshotCopyGrants_maxRecords :: Lens.Lens' DescribeSnapshotCopyGrants (Prelude.Maybe Prelude.Int)+describeSnapshotCopyGrants_maxRecords = Lens.lens (\DescribeSnapshotCopyGrants' {maxRecords} -> maxRecords) (\s@DescribeSnapshotCopyGrants' {} a -> s {maxRecords = a} :: DescribeSnapshotCopyGrants)++-- | The name of the snapshot copy grant.+describeSnapshotCopyGrants_snapshotCopyGrantName :: Lens.Lens' DescribeSnapshotCopyGrants (Prelude.Maybe Prelude.Text)+describeSnapshotCopyGrants_snapshotCopyGrantName = Lens.lens (\DescribeSnapshotCopyGrants' {snapshotCopyGrantName} -> snapshotCopyGrantName) (\s@DescribeSnapshotCopyGrants' {} a -> s {snapshotCopyGrantName = a} :: DescribeSnapshotCopyGrants)++-- | A tag key or keys for which you want to return all matching resources+-- that are associated with the specified key or keys. For example, suppose+-- that you have resources tagged with keys called @owner@ and+-- @environment@. If you specify both of these tag keys in the request,+-- Amazon Redshift returns a response with all resources that have either+-- or both of these tag keys associated with them.+describeSnapshotCopyGrants_tagKeys :: Lens.Lens' DescribeSnapshotCopyGrants (Prelude.Maybe [Prelude.Text])+describeSnapshotCopyGrants_tagKeys = Lens.lens (\DescribeSnapshotCopyGrants' {tagKeys} -> tagKeys) (\s@DescribeSnapshotCopyGrants' {} a -> s {tagKeys = a} :: DescribeSnapshotCopyGrants) Prelude.. Lens.mapping Lens.coerced++-- | A tag value or values for which you want to return all matching+-- resources that are associated with the specified value or values. For+-- example, suppose that you have resources tagged with values called+-- @admin@ and @test@. If you specify both of these tag values in the+-- request, Amazon Redshift returns a response with all resources that have+-- either or both of these tag values associated with them.+describeSnapshotCopyGrants_tagValues :: Lens.Lens' DescribeSnapshotCopyGrants (Prelude.Maybe [Prelude.Text])+describeSnapshotCopyGrants_tagValues = Lens.lens (\DescribeSnapshotCopyGrants' {tagValues} -> tagValues) (\s@DescribeSnapshotCopyGrants' {} a -> s {tagValues = a} :: DescribeSnapshotCopyGrants) Prelude.. Lens.mapping Lens.coerced++instance Core.AWSPager DescribeSnapshotCopyGrants where+ page rq rs+ | Core.stop+ ( rs+ Lens.^? describeSnapshotCopyGrantsResponse_marker+ Prelude.. Lens._Just+ ) =+ Prelude.Nothing+ | Core.stop+ ( rs+ Lens.^? describeSnapshotCopyGrantsResponse_snapshotCopyGrants+ Prelude.. Lens._Just+ ) =+ Prelude.Nothing+ | Prelude.otherwise =+ Prelude.Just+ Prelude.$ rq+ Prelude.& describeSnapshotCopyGrants_marker+ Lens..~ rs+ Lens.^? describeSnapshotCopyGrantsResponse_marker+ Prelude.. Lens._Just++instance Core.AWSRequest DescribeSnapshotCopyGrants where+ type+ AWSResponse DescribeSnapshotCopyGrants =+ DescribeSnapshotCopyGrantsResponse+ request overrides =+ Request.postQuery (overrides defaultService)+ response =+ Response.receiveXMLWrapper+ "DescribeSnapshotCopyGrantsResult"+ ( \s h x ->+ DescribeSnapshotCopyGrantsResponse'+ Prelude.<$> (x Data..@? "Marker")+ Prelude.<*> ( x+ Data..@? "SnapshotCopyGrants"+ Core..!@ Prelude.mempty+ Prelude.>>= Core.may (Data.parseXMLList "SnapshotCopyGrant")+ )+ Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+ )++instance Prelude.Hashable DescribeSnapshotCopyGrants where+ hashWithSalt _salt DescribeSnapshotCopyGrants' {..} =+ _salt+ `Prelude.hashWithSalt` marker+ `Prelude.hashWithSalt` maxRecords+ `Prelude.hashWithSalt` snapshotCopyGrantName+ `Prelude.hashWithSalt` tagKeys+ `Prelude.hashWithSalt` tagValues++instance Prelude.NFData DescribeSnapshotCopyGrants where+ rnf DescribeSnapshotCopyGrants' {..} =+ Prelude.rnf marker+ `Prelude.seq` Prelude.rnf maxRecords+ `Prelude.seq` Prelude.rnf snapshotCopyGrantName+ `Prelude.seq` Prelude.rnf tagKeys+ `Prelude.seq` Prelude.rnf tagValues++instance Data.ToHeaders DescribeSnapshotCopyGrants where+ toHeaders = Prelude.const Prelude.mempty++instance Data.ToPath DescribeSnapshotCopyGrants where+ toPath = Prelude.const "/"++instance Data.ToQuery DescribeSnapshotCopyGrants where+ toQuery DescribeSnapshotCopyGrants' {..} =+ Prelude.mconcat+ [ "Action"+ Data.=: ("DescribeSnapshotCopyGrants" :: Prelude.ByteString),+ "Version"+ Data.=: ("2012-12-01" :: Prelude.ByteString),+ "Marker" Data.=: marker,+ "MaxRecords" Data.=: maxRecords,+ "SnapshotCopyGrantName"+ Data.=: snapshotCopyGrantName,+ "TagKeys"+ Data.=: Data.toQuery+ (Data.toQueryList "TagKey" Prelude.<$> tagKeys),+ "TagValues"+ Data.=: Data.toQuery+ (Data.toQueryList "TagValue" Prelude.<$> tagValues)+ ]++-- |+--+-- /See:/ 'newDescribeSnapshotCopyGrantsResponse' smart constructor.+data DescribeSnapshotCopyGrantsResponse = DescribeSnapshotCopyGrantsResponse'+ { -- | An optional parameter that specifies the starting point to return a set+ -- of response records. When the results of a @DescribeSnapshotCopyGrant@+ -- request exceed the value specified in @MaxRecords@, Amazon Web Services+ -- returns a value in the @Marker@ field of the response. You can retrieve+ -- the next set of response records by providing the returned marker value+ -- in the @Marker@ parameter and retrying the request.+ --+ -- Constraints: You can specify either the __SnapshotCopyGrantName__+ -- parameter or the __Marker__ parameter, but not both.+ marker :: Prelude.Maybe Prelude.Text,+ -- | The list of @SnapshotCopyGrant@ objects.+ snapshotCopyGrants :: Prelude.Maybe [SnapshotCopyGrant],+ -- | The response's http status code.+ httpStatus :: Prelude.Int+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeSnapshotCopyGrantsResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'marker', 'describeSnapshotCopyGrantsResponse_marker' - An optional parameter that specifies the starting point to return a set+-- of response records. When the results of a @DescribeSnapshotCopyGrant@+-- request exceed the value specified in @MaxRecords@, Amazon Web Services+-- returns a value in the @Marker@ field of the response. You can retrieve+-- the next set of response records by providing the returned marker value+-- in the @Marker@ parameter and retrying the request.+--+-- Constraints: You can specify either the __SnapshotCopyGrantName__+-- parameter or the __Marker__ parameter, but not both.+--+-- 'snapshotCopyGrants', 'describeSnapshotCopyGrantsResponse_snapshotCopyGrants' - The list of @SnapshotCopyGrant@ objects.+--+-- 'httpStatus', 'describeSnapshotCopyGrantsResponse_httpStatus' - The response's http status code.+newDescribeSnapshotCopyGrantsResponse ::+ -- | 'httpStatus'+ Prelude.Int ->+ DescribeSnapshotCopyGrantsResponse+newDescribeSnapshotCopyGrantsResponse pHttpStatus_ =+ DescribeSnapshotCopyGrantsResponse'+ { marker =+ Prelude.Nothing,+ snapshotCopyGrants = Prelude.Nothing,+ httpStatus = pHttpStatus_+ }++-- | An optional parameter that specifies the starting point to return a set+-- of response records. When the results of a @DescribeSnapshotCopyGrant@+-- request exceed the value specified in @MaxRecords@, Amazon Web Services+-- returns a value in the @Marker@ field of the response. You can retrieve+-- the next set of response records by providing the returned marker value+-- in the @Marker@ parameter and retrying the request.+--+-- Constraints: You can specify either the __SnapshotCopyGrantName__+-- parameter or the __Marker__ parameter, but not both.+describeSnapshotCopyGrantsResponse_marker :: Lens.Lens' DescribeSnapshotCopyGrantsResponse (Prelude.Maybe Prelude.Text)+describeSnapshotCopyGrantsResponse_marker = Lens.lens (\DescribeSnapshotCopyGrantsResponse' {marker} -> marker) (\s@DescribeSnapshotCopyGrantsResponse' {} a -> s {marker = a} :: DescribeSnapshotCopyGrantsResponse)++-- | The list of @SnapshotCopyGrant@ objects.+describeSnapshotCopyGrantsResponse_snapshotCopyGrants :: Lens.Lens' DescribeSnapshotCopyGrantsResponse (Prelude.Maybe [SnapshotCopyGrant])+describeSnapshotCopyGrantsResponse_snapshotCopyGrants = Lens.lens (\DescribeSnapshotCopyGrantsResponse' {snapshotCopyGrants} -> snapshotCopyGrants) (\s@DescribeSnapshotCopyGrantsResponse' {} a -> s {snapshotCopyGrants = a} :: DescribeSnapshotCopyGrantsResponse) Prelude.. Lens.mapping Lens.coerced++-- | The response's http status code.+describeSnapshotCopyGrantsResponse_httpStatus :: Lens.Lens' DescribeSnapshotCopyGrantsResponse Prelude.Int+describeSnapshotCopyGrantsResponse_httpStatus = Lens.lens (\DescribeSnapshotCopyGrantsResponse' {httpStatus} -> httpStatus) (\s@DescribeSnapshotCopyGrantsResponse' {} a -> s {httpStatus = a} :: DescribeSnapshotCopyGrantsResponse)++instance+ Prelude.NFData+ DescribeSnapshotCopyGrantsResponse+ where+ rnf DescribeSnapshotCopyGrantsResponse' {..} =+ Prelude.rnf marker+ `Prelude.seq` Prelude.rnf snapshotCopyGrants+ `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/Redshift/DescribeSnapshotSchedules.hs view
@@ -0,0 +1,317 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module : Amazonka.Redshift.DescribeSnapshotSchedules+-- Copyright : (c) 2013-2023 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Returns a list of snapshot schedules.+--+-- This operation returns paginated results.+module Amazonka.Redshift.DescribeSnapshotSchedules+ ( -- * Creating a Request+ DescribeSnapshotSchedules (..),+ newDescribeSnapshotSchedules,++ -- * Request Lenses+ describeSnapshotSchedules_clusterIdentifier,+ describeSnapshotSchedules_marker,+ describeSnapshotSchedules_maxRecords,+ describeSnapshotSchedules_scheduleIdentifier,+ describeSnapshotSchedules_tagKeys,+ describeSnapshotSchedules_tagValues,++ -- * Destructuring the Response+ DescribeSnapshotSchedulesResponse (..),+ newDescribeSnapshotSchedulesResponse,++ -- * Response Lenses+ describeSnapshotSchedulesResponse_marker,+ describeSnapshotSchedulesResponse_snapshotSchedules,+ describeSnapshotSchedulesResponse_httpStatus,+ )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Redshift.Types+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newDescribeSnapshotSchedules' smart constructor.+data DescribeSnapshotSchedules = DescribeSnapshotSchedules'+ { -- | The unique identifier for the cluster whose snapshot schedules you want+ -- to view.+ clusterIdentifier :: Prelude.Maybe Prelude.Text,+ -- | A value that indicates the starting point for the next set of response+ -- records in a subsequent request. If a value is returned in a response,+ -- you can retrieve the next set of records by providing this returned+ -- marker value in the @marker@ parameter and retrying the command. If the+ -- @marker@ field is empty, all response records have been retrieved for+ -- the request.+ marker :: Prelude.Maybe Prelude.Text,+ -- | The maximum number or response records to return in each call. If the+ -- number of remaining response records exceeds the specified @MaxRecords@+ -- value, a value is returned in a @marker@ field of the response. You can+ -- retrieve the next set of records by retrying the command with the+ -- returned @marker@ value.+ maxRecords :: Prelude.Maybe Prelude.Int,+ -- | A unique identifier for a snapshot schedule.+ scheduleIdentifier :: Prelude.Maybe Prelude.Text,+ -- | The key value for a snapshot schedule tag.+ tagKeys :: Prelude.Maybe [Prelude.Text],+ -- | The value corresponding to the key of the snapshot schedule tag.+ tagValues :: Prelude.Maybe [Prelude.Text]+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeSnapshotSchedules' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'clusterIdentifier', 'describeSnapshotSchedules_clusterIdentifier' - The unique identifier for the cluster whose snapshot schedules you want+-- to view.+--+-- 'marker', 'describeSnapshotSchedules_marker' - A value that indicates the starting point for the next set of response+-- records in a subsequent request. If a value is returned in a response,+-- you can retrieve the next set of records by providing this returned+-- marker value in the @marker@ parameter and retrying the command. If the+-- @marker@ field is empty, all response records have been retrieved for+-- the request.+--+-- 'maxRecords', 'describeSnapshotSchedules_maxRecords' - The maximum number or response records to return in each call. If the+-- number of remaining response records exceeds the specified @MaxRecords@+-- value, a value is returned in a @marker@ field of the response. You can+-- retrieve the next set of records by retrying the command with the+-- returned @marker@ value.+--+-- 'scheduleIdentifier', 'describeSnapshotSchedules_scheduleIdentifier' - A unique identifier for a snapshot schedule.+--+-- 'tagKeys', 'describeSnapshotSchedules_tagKeys' - The key value for a snapshot schedule tag.+--+-- 'tagValues', 'describeSnapshotSchedules_tagValues' - The value corresponding to the key of the snapshot schedule tag.+newDescribeSnapshotSchedules ::+ DescribeSnapshotSchedules+newDescribeSnapshotSchedules =+ DescribeSnapshotSchedules'+ { clusterIdentifier =+ Prelude.Nothing,+ marker = Prelude.Nothing,+ maxRecords = Prelude.Nothing,+ scheduleIdentifier = Prelude.Nothing,+ tagKeys = Prelude.Nothing,+ tagValues = Prelude.Nothing+ }++-- | The unique identifier for the cluster whose snapshot schedules you want+-- to view.+describeSnapshotSchedules_clusterIdentifier :: Lens.Lens' DescribeSnapshotSchedules (Prelude.Maybe Prelude.Text)+describeSnapshotSchedules_clusterIdentifier = Lens.lens (\DescribeSnapshotSchedules' {clusterIdentifier} -> clusterIdentifier) (\s@DescribeSnapshotSchedules' {} a -> s {clusterIdentifier = a} :: DescribeSnapshotSchedules)++-- | A value that indicates the starting point for the next set of response+-- records in a subsequent request. If a value is returned in a response,+-- you can retrieve the next set of records by providing this returned+-- marker value in the @marker@ parameter and retrying the command. If the+-- @marker@ field is empty, all response records have been retrieved for+-- the request.+describeSnapshotSchedules_marker :: Lens.Lens' DescribeSnapshotSchedules (Prelude.Maybe Prelude.Text)+describeSnapshotSchedules_marker = Lens.lens (\DescribeSnapshotSchedules' {marker} -> marker) (\s@DescribeSnapshotSchedules' {} a -> s {marker = a} :: DescribeSnapshotSchedules)++-- | The maximum number or response records to return in each call. If the+-- number of remaining response records exceeds the specified @MaxRecords@+-- value, a value is returned in a @marker@ field of the response. You can+-- retrieve the next set of records by retrying the command with the+-- returned @marker@ value.+describeSnapshotSchedules_maxRecords :: Lens.Lens' DescribeSnapshotSchedules (Prelude.Maybe Prelude.Int)+describeSnapshotSchedules_maxRecords = Lens.lens (\DescribeSnapshotSchedules' {maxRecords} -> maxRecords) (\s@DescribeSnapshotSchedules' {} a -> s {maxRecords = a} :: DescribeSnapshotSchedules)++-- | A unique identifier for a snapshot schedule.+describeSnapshotSchedules_scheduleIdentifier :: Lens.Lens' DescribeSnapshotSchedules (Prelude.Maybe Prelude.Text)+describeSnapshotSchedules_scheduleIdentifier = Lens.lens (\DescribeSnapshotSchedules' {scheduleIdentifier} -> scheduleIdentifier) (\s@DescribeSnapshotSchedules' {} a -> s {scheduleIdentifier = a} :: DescribeSnapshotSchedules)++-- | The key value for a snapshot schedule tag.+describeSnapshotSchedules_tagKeys :: Lens.Lens' DescribeSnapshotSchedules (Prelude.Maybe [Prelude.Text])+describeSnapshotSchedules_tagKeys = Lens.lens (\DescribeSnapshotSchedules' {tagKeys} -> tagKeys) (\s@DescribeSnapshotSchedules' {} a -> s {tagKeys = a} :: DescribeSnapshotSchedules) Prelude.. Lens.mapping Lens.coerced++-- | The value corresponding to the key of the snapshot schedule tag.+describeSnapshotSchedules_tagValues :: Lens.Lens' DescribeSnapshotSchedules (Prelude.Maybe [Prelude.Text])+describeSnapshotSchedules_tagValues = Lens.lens (\DescribeSnapshotSchedules' {tagValues} -> tagValues) (\s@DescribeSnapshotSchedules' {} a -> s {tagValues = a} :: DescribeSnapshotSchedules) Prelude.. Lens.mapping Lens.coerced++instance Core.AWSPager DescribeSnapshotSchedules where+ page rq rs+ | Core.stop+ ( rs+ Lens.^? describeSnapshotSchedulesResponse_marker+ Prelude.. Lens._Just+ ) =+ Prelude.Nothing+ | Core.stop+ ( rs+ Lens.^? describeSnapshotSchedulesResponse_snapshotSchedules+ Prelude.. Lens._Just+ ) =+ Prelude.Nothing+ | Prelude.otherwise =+ Prelude.Just+ Prelude.$ rq+ Prelude.& describeSnapshotSchedules_marker+ Lens..~ rs+ Lens.^? describeSnapshotSchedulesResponse_marker+ Prelude.. Lens._Just++instance Core.AWSRequest DescribeSnapshotSchedules where+ type+ AWSResponse DescribeSnapshotSchedules =+ DescribeSnapshotSchedulesResponse+ request overrides =+ Request.postQuery (overrides defaultService)+ response =+ Response.receiveXMLWrapper+ "DescribeSnapshotSchedulesResult"+ ( \s h x ->+ DescribeSnapshotSchedulesResponse'+ Prelude.<$> (x Data..@? "Marker")+ Prelude.<*> ( x+ Data..@? "SnapshotSchedules"+ Core..!@ Prelude.mempty+ Prelude.>>= Core.may (Data.parseXMLList "SnapshotSchedule")+ )+ Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+ )++instance Prelude.Hashable DescribeSnapshotSchedules where+ hashWithSalt _salt DescribeSnapshotSchedules' {..} =+ _salt+ `Prelude.hashWithSalt` clusterIdentifier+ `Prelude.hashWithSalt` marker+ `Prelude.hashWithSalt` maxRecords+ `Prelude.hashWithSalt` scheduleIdentifier+ `Prelude.hashWithSalt` tagKeys+ `Prelude.hashWithSalt` tagValues++instance Prelude.NFData DescribeSnapshotSchedules where+ rnf DescribeSnapshotSchedules' {..} =+ Prelude.rnf clusterIdentifier+ `Prelude.seq` Prelude.rnf marker+ `Prelude.seq` Prelude.rnf maxRecords+ `Prelude.seq` Prelude.rnf scheduleIdentifier+ `Prelude.seq` Prelude.rnf tagKeys+ `Prelude.seq` Prelude.rnf tagValues++instance Data.ToHeaders DescribeSnapshotSchedules where+ toHeaders = Prelude.const Prelude.mempty++instance Data.ToPath DescribeSnapshotSchedules where+ toPath = Prelude.const "/"++instance Data.ToQuery DescribeSnapshotSchedules where+ toQuery DescribeSnapshotSchedules' {..} =+ Prelude.mconcat+ [ "Action"+ Data.=: ("DescribeSnapshotSchedules" :: Prelude.ByteString),+ "Version"+ Data.=: ("2012-12-01" :: Prelude.ByteString),+ "ClusterIdentifier" Data.=: clusterIdentifier,+ "Marker" Data.=: marker,+ "MaxRecords" Data.=: maxRecords,+ "ScheduleIdentifier" Data.=: scheduleIdentifier,+ "TagKeys"+ Data.=: Data.toQuery+ (Data.toQueryList "TagKey" Prelude.<$> tagKeys),+ "TagValues"+ Data.=: Data.toQuery+ (Data.toQueryList "TagValue" Prelude.<$> tagValues)+ ]++-- | /See:/ 'newDescribeSnapshotSchedulesResponse' smart constructor.+data DescribeSnapshotSchedulesResponse = DescribeSnapshotSchedulesResponse'+ { -- | A value that indicates the starting point for the next set of response+ -- records in a subsequent request. If a value is returned in a response,+ -- you can retrieve the next set of records by providing this returned+ -- marker value in the @marker@ parameter and retrying the command. If the+ -- @marker@ field is empty, all response records have been retrieved for+ -- the request.+ marker :: Prelude.Maybe Prelude.Text,+ -- | A list of SnapshotSchedules.+ snapshotSchedules :: Prelude.Maybe [SnapshotSchedule],+ -- | The response's http status code.+ httpStatus :: Prelude.Int+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeSnapshotSchedulesResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'marker', 'describeSnapshotSchedulesResponse_marker' - A value that indicates the starting point for the next set of response+-- records in a subsequent request. If a value is returned in a response,+-- you can retrieve the next set of records by providing this returned+-- marker value in the @marker@ parameter and retrying the command. If the+-- @marker@ field is empty, all response records have been retrieved for+-- the request.+--+-- 'snapshotSchedules', 'describeSnapshotSchedulesResponse_snapshotSchedules' - A list of SnapshotSchedules.+--+-- 'httpStatus', 'describeSnapshotSchedulesResponse_httpStatus' - The response's http status code.+newDescribeSnapshotSchedulesResponse ::+ -- | 'httpStatus'+ Prelude.Int ->+ DescribeSnapshotSchedulesResponse+newDescribeSnapshotSchedulesResponse pHttpStatus_ =+ DescribeSnapshotSchedulesResponse'+ { marker =+ Prelude.Nothing,+ snapshotSchedules = Prelude.Nothing,+ httpStatus = pHttpStatus_+ }++-- | A value that indicates the starting point for the next set of response+-- records in a subsequent request. If a value is returned in a response,+-- you can retrieve the next set of records by providing this returned+-- marker value in the @marker@ parameter and retrying the command. If the+-- @marker@ field is empty, all response records have been retrieved for+-- the request.+describeSnapshotSchedulesResponse_marker :: Lens.Lens' DescribeSnapshotSchedulesResponse (Prelude.Maybe Prelude.Text)+describeSnapshotSchedulesResponse_marker = Lens.lens (\DescribeSnapshotSchedulesResponse' {marker} -> marker) (\s@DescribeSnapshotSchedulesResponse' {} a -> s {marker = a} :: DescribeSnapshotSchedulesResponse)++-- | A list of SnapshotSchedules.+describeSnapshotSchedulesResponse_snapshotSchedules :: Lens.Lens' DescribeSnapshotSchedulesResponse (Prelude.Maybe [SnapshotSchedule])+describeSnapshotSchedulesResponse_snapshotSchedules = Lens.lens (\DescribeSnapshotSchedulesResponse' {snapshotSchedules} -> snapshotSchedules) (\s@DescribeSnapshotSchedulesResponse' {} a -> s {snapshotSchedules = a} :: DescribeSnapshotSchedulesResponse) Prelude.. Lens.mapping Lens.coerced++-- | The response's http status code.+describeSnapshotSchedulesResponse_httpStatus :: Lens.Lens' DescribeSnapshotSchedulesResponse Prelude.Int+describeSnapshotSchedulesResponse_httpStatus = Lens.lens (\DescribeSnapshotSchedulesResponse' {httpStatus} -> httpStatus) (\s@DescribeSnapshotSchedulesResponse' {} a -> s {httpStatus = a} :: DescribeSnapshotSchedulesResponse)++instance+ Prelude.NFData+ DescribeSnapshotSchedulesResponse+ where+ rnf DescribeSnapshotSchedulesResponse' {..} =+ Prelude.rnf marker+ `Prelude.seq` Prelude.rnf snapshotSchedules+ `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/Redshift/DescribeStorage.hs view
@@ -0,0 +1,155 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module : Amazonka.Redshift.DescribeStorage+-- Copyright : (c) 2013-2023 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Returns account level backups storage size and provisional storage.+module Amazonka.Redshift.DescribeStorage+ ( -- * Creating a Request+ DescribeStorage (..),+ newDescribeStorage,++ -- * Destructuring the Response+ DescribeStorageResponse (..),+ newDescribeStorageResponse,++ -- * Response Lenses+ describeStorageResponse_totalBackupSizeInMegaBytes,+ describeStorageResponse_totalProvisionedStorageInMegaBytes,+ describeStorageResponse_httpStatus,+ )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Redshift.Types+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newDescribeStorage' smart constructor.+data DescribeStorage = DescribeStorage'+ {+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeStorage' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+newDescribeStorage ::+ DescribeStorage+newDescribeStorage = DescribeStorage'++instance Core.AWSRequest DescribeStorage where+ type+ AWSResponse DescribeStorage =+ DescribeStorageResponse+ request overrides =+ Request.postQuery (overrides defaultService)+ response =+ Response.receiveXMLWrapper+ "DescribeStorageResult"+ ( \s h x ->+ DescribeStorageResponse'+ Prelude.<$> (x Data..@? "TotalBackupSizeInMegaBytes")+ Prelude.<*> (x Data..@? "TotalProvisionedStorageInMegaBytes")+ Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+ )++instance Prelude.Hashable DescribeStorage where+ hashWithSalt _salt _ =+ _salt `Prelude.hashWithSalt` ()++instance Prelude.NFData DescribeStorage where+ rnf _ = ()++instance Data.ToHeaders DescribeStorage where+ toHeaders = Prelude.const Prelude.mempty++instance Data.ToPath DescribeStorage where+ toPath = Prelude.const "/"++instance Data.ToQuery DescribeStorage where+ toQuery =+ Prelude.const+ ( Prelude.mconcat+ [ "Action"+ Data.=: ("DescribeStorage" :: Prelude.ByteString),+ "Version"+ Data.=: ("2012-12-01" :: Prelude.ByteString)+ ]+ )++-- | /See:/ 'newDescribeStorageResponse' smart constructor.+data DescribeStorageResponse = DescribeStorageResponse'+ { -- | The total amount of storage currently used for snapshots.+ totalBackupSizeInMegaBytes :: Prelude.Maybe Prelude.Double,+ -- | The total amount of storage currently provisioned.+ totalProvisionedStorageInMegaBytes :: Prelude.Maybe Prelude.Double,+ -- | The response's http status code.+ httpStatus :: Prelude.Int+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeStorageResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'totalBackupSizeInMegaBytes', 'describeStorageResponse_totalBackupSizeInMegaBytes' - The total amount of storage currently used for snapshots.+--+-- 'totalProvisionedStorageInMegaBytes', 'describeStorageResponse_totalProvisionedStorageInMegaBytes' - The total amount of storage currently provisioned.+--+-- 'httpStatus', 'describeStorageResponse_httpStatus' - The response's http status code.+newDescribeStorageResponse ::+ -- | 'httpStatus'+ Prelude.Int ->+ DescribeStorageResponse+newDescribeStorageResponse pHttpStatus_ =+ DescribeStorageResponse'+ { totalBackupSizeInMegaBytes =+ Prelude.Nothing,+ totalProvisionedStorageInMegaBytes =+ Prelude.Nothing,+ httpStatus = pHttpStatus_+ }++-- | The total amount of storage currently used for snapshots.+describeStorageResponse_totalBackupSizeInMegaBytes :: Lens.Lens' DescribeStorageResponse (Prelude.Maybe Prelude.Double)+describeStorageResponse_totalBackupSizeInMegaBytes = Lens.lens (\DescribeStorageResponse' {totalBackupSizeInMegaBytes} -> totalBackupSizeInMegaBytes) (\s@DescribeStorageResponse' {} a -> s {totalBackupSizeInMegaBytes = a} :: DescribeStorageResponse)++-- | The total amount of storage currently provisioned.+describeStorageResponse_totalProvisionedStorageInMegaBytes :: Lens.Lens' DescribeStorageResponse (Prelude.Maybe Prelude.Double)+describeStorageResponse_totalProvisionedStorageInMegaBytes = Lens.lens (\DescribeStorageResponse' {totalProvisionedStorageInMegaBytes} -> totalProvisionedStorageInMegaBytes) (\s@DescribeStorageResponse' {} a -> s {totalProvisionedStorageInMegaBytes = a} :: DescribeStorageResponse)++-- | The response's http status code.+describeStorageResponse_httpStatus :: Lens.Lens' DescribeStorageResponse Prelude.Int+describeStorageResponse_httpStatus = Lens.lens (\DescribeStorageResponse' {httpStatus} -> httpStatus) (\s@DescribeStorageResponse' {} a -> s {httpStatus = a} :: DescribeStorageResponse)++instance Prelude.NFData DescribeStorageResponse where+ rnf DescribeStorageResponse' {..} =+ Prelude.rnf totalBackupSizeInMegaBytes+ `Prelude.seq` Prelude.rnf totalProvisionedStorageInMegaBytes+ `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/Redshift/DescribeTableRestoreStatus.hs view
@@ -0,0 +1,284 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module : Amazonka.Redshift.DescribeTableRestoreStatus+-- Copyright : (c) 2013-2023 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Lists the status of one or more table restore requests made using the+-- RestoreTableFromClusterSnapshot API action. If you don\'t specify a+-- value for the @TableRestoreRequestId@ parameter, then+-- @DescribeTableRestoreStatus@ returns the status of all table restore+-- requests ordered by the date and time of the request in ascending order.+-- Otherwise @DescribeTableRestoreStatus@ returns the status of the table+-- specified by @TableRestoreRequestId@.+--+-- This operation returns paginated results.+module Amazonka.Redshift.DescribeTableRestoreStatus+ ( -- * Creating a Request+ DescribeTableRestoreStatus (..),+ newDescribeTableRestoreStatus,++ -- * Request Lenses+ describeTableRestoreStatus_clusterIdentifier,+ describeTableRestoreStatus_marker,+ describeTableRestoreStatus_maxRecords,+ describeTableRestoreStatus_tableRestoreRequestId,++ -- * Destructuring the Response+ DescribeTableRestoreStatusResponse (..),+ newDescribeTableRestoreStatusResponse,++ -- * Response Lenses+ describeTableRestoreStatusResponse_marker,+ describeTableRestoreStatusResponse_tableRestoreStatusDetails,+ describeTableRestoreStatusResponse_httpStatus,+ )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Redshift.Types+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- |+--+-- /See:/ 'newDescribeTableRestoreStatus' smart constructor.+data DescribeTableRestoreStatus = DescribeTableRestoreStatus'+ { -- | The Amazon Redshift cluster that the table is being restored to.+ clusterIdentifier :: Prelude.Maybe Prelude.Text,+ -- | An optional pagination token provided by a previous+ -- @DescribeTableRestoreStatus@ request. If this parameter is specified,+ -- the response includes only records beyond the marker, up to the value+ -- specified by the @MaxRecords@ parameter.+ marker :: Prelude.Maybe Prelude.Text,+ -- | The maximum number of records to include in the response. If more+ -- records exist than the specified @MaxRecords@ value, a pagination token+ -- called a marker is included in the response so that the remaining+ -- results can be retrieved.+ maxRecords :: Prelude.Maybe Prelude.Int,+ -- | The identifier of the table restore request to return status for. If you+ -- don\'t specify a @TableRestoreRequestId@ value, then+ -- @DescribeTableRestoreStatus@ returns the status of all in-progress table+ -- restore requests.+ tableRestoreRequestId :: Prelude.Maybe Prelude.Text+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeTableRestoreStatus' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'clusterIdentifier', 'describeTableRestoreStatus_clusterIdentifier' - The Amazon Redshift cluster that the table is being restored to.+--+-- 'marker', 'describeTableRestoreStatus_marker' - An optional pagination token provided by a previous+-- @DescribeTableRestoreStatus@ request. If this parameter is specified,+-- the response includes only records beyond the marker, up to the value+-- specified by the @MaxRecords@ parameter.+--+-- 'maxRecords', 'describeTableRestoreStatus_maxRecords' - The maximum number of records to include in the response. If more+-- records exist than the specified @MaxRecords@ value, a pagination token+-- called a marker is included in the response so that the remaining+-- results can be retrieved.+--+-- 'tableRestoreRequestId', 'describeTableRestoreStatus_tableRestoreRequestId' - The identifier of the table restore request to return status for. If you+-- don\'t specify a @TableRestoreRequestId@ value, then+-- @DescribeTableRestoreStatus@ returns the status of all in-progress table+-- restore requests.+newDescribeTableRestoreStatus ::+ DescribeTableRestoreStatus+newDescribeTableRestoreStatus =+ DescribeTableRestoreStatus'+ { clusterIdentifier =+ Prelude.Nothing,+ marker = Prelude.Nothing,+ maxRecords = Prelude.Nothing,+ tableRestoreRequestId = Prelude.Nothing+ }++-- | The Amazon Redshift cluster that the table is being restored to.+describeTableRestoreStatus_clusterIdentifier :: Lens.Lens' DescribeTableRestoreStatus (Prelude.Maybe Prelude.Text)+describeTableRestoreStatus_clusterIdentifier = Lens.lens (\DescribeTableRestoreStatus' {clusterIdentifier} -> clusterIdentifier) (\s@DescribeTableRestoreStatus' {} a -> s {clusterIdentifier = a} :: DescribeTableRestoreStatus)++-- | An optional pagination token provided by a previous+-- @DescribeTableRestoreStatus@ request. If this parameter is specified,+-- the response includes only records beyond the marker, up to the value+-- specified by the @MaxRecords@ parameter.+describeTableRestoreStatus_marker :: Lens.Lens' DescribeTableRestoreStatus (Prelude.Maybe Prelude.Text)+describeTableRestoreStatus_marker = Lens.lens (\DescribeTableRestoreStatus' {marker} -> marker) (\s@DescribeTableRestoreStatus' {} a -> s {marker = a} :: DescribeTableRestoreStatus)++-- | The maximum number of records to include in the response. If more+-- records exist than the specified @MaxRecords@ value, a pagination token+-- called a marker is included in the response so that the remaining+-- results can be retrieved.+describeTableRestoreStatus_maxRecords :: Lens.Lens' DescribeTableRestoreStatus (Prelude.Maybe Prelude.Int)+describeTableRestoreStatus_maxRecords = Lens.lens (\DescribeTableRestoreStatus' {maxRecords} -> maxRecords) (\s@DescribeTableRestoreStatus' {} a -> s {maxRecords = a} :: DescribeTableRestoreStatus)++-- | The identifier of the table restore request to return status for. If you+-- don\'t specify a @TableRestoreRequestId@ value, then+-- @DescribeTableRestoreStatus@ returns the status of all in-progress table+-- restore requests.+describeTableRestoreStatus_tableRestoreRequestId :: Lens.Lens' DescribeTableRestoreStatus (Prelude.Maybe Prelude.Text)+describeTableRestoreStatus_tableRestoreRequestId = Lens.lens (\DescribeTableRestoreStatus' {tableRestoreRequestId} -> tableRestoreRequestId) (\s@DescribeTableRestoreStatus' {} a -> s {tableRestoreRequestId = a} :: DescribeTableRestoreStatus)++instance Core.AWSPager DescribeTableRestoreStatus where+ page rq rs+ | Core.stop+ ( rs+ Lens.^? describeTableRestoreStatusResponse_marker+ Prelude.. Lens._Just+ ) =+ Prelude.Nothing+ | Core.stop+ ( rs+ Lens.^? describeTableRestoreStatusResponse_tableRestoreStatusDetails+ Prelude.. Lens._Just+ ) =+ Prelude.Nothing+ | Prelude.otherwise =+ Prelude.Just+ Prelude.$ rq+ Prelude.& describeTableRestoreStatus_marker+ Lens..~ rs+ Lens.^? describeTableRestoreStatusResponse_marker+ Prelude.. Lens._Just++instance Core.AWSRequest DescribeTableRestoreStatus where+ type+ AWSResponse DescribeTableRestoreStatus =+ DescribeTableRestoreStatusResponse+ request overrides =+ Request.postQuery (overrides defaultService)+ response =+ Response.receiveXMLWrapper+ "DescribeTableRestoreStatusResult"+ ( \s h x ->+ DescribeTableRestoreStatusResponse'+ Prelude.<$> (x Data..@? "Marker")+ Prelude.<*> ( x+ Data..@? "TableRestoreStatusDetails"+ Core..!@ Prelude.mempty+ Prelude.>>= Core.may (Data.parseXMLList "TableRestoreStatus")+ )+ Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+ )++instance Prelude.Hashable DescribeTableRestoreStatus where+ hashWithSalt _salt DescribeTableRestoreStatus' {..} =+ _salt+ `Prelude.hashWithSalt` clusterIdentifier+ `Prelude.hashWithSalt` marker+ `Prelude.hashWithSalt` maxRecords+ `Prelude.hashWithSalt` tableRestoreRequestId++instance Prelude.NFData DescribeTableRestoreStatus where+ rnf DescribeTableRestoreStatus' {..} =+ Prelude.rnf clusterIdentifier+ `Prelude.seq` Prelude.rnf marker+ `Prelude.seq` Prelude.rnf maxRecords+ `Prelude.seq` Prelude.rnf tableRestoreRequestId++instance Data.ToHeaders DescribeTableRestoreStatus where+ toHeaders = Prelude.const Prelude.mempty++instance Data.ToPath DescribeTableRestoreStatus where+ toPath = Prelude.const "/"++instance Data.ToQuery DescribeTableRestoreStatus where+ toQuery DescribeTableRestoreStatus' {..} =+ Prelude.mconcat+ [ "Action"+ Data.=: ("DescribeTableRestoreStatus" :: Prelude.ByteString),+ "Version"+ Data.=: ("2012-12-01" :: Prelude.ByteString),+ "ClusterIdentifier" Data.=: clusterIdentifier,+ "Marker" Data.=: marker,+ "MaxRecords" Data.=: maxRecords,+ "TableRestoreRequestId"+ Data.=: tableRestoreRequestId+ ]++-- |+--+-- /See:/ 'newDescribeTableRestoreStatusResponse' smart constructor.+data DescribeTableRestoreStatusResponse = DescribeTableRestoreStatusResponse'+ { -- | A pagination token that can be used in a subsequent+ -- DescribeTableRestoreStatus request.+ marker :: Prelude.Maybe Prelude.Text,+ -- | A list of status details for one or more table restore requests.+ tableRestoreStatusDetails :: Prelude.Maybe [TableRestoreStatus],+ -- | The response's http status code.+ httpStatus :: Prelude.Int+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeTableRestoreStatusResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'marker', 'describeTableRestoreStatusResponse_marker' - A pagination token that can be used in a subsequent+-- DescribeTableRestoreStatus request.+--+-- 'tableRestoreStatusDetails', 'describeTableRestoreStatusResponse_tableRestoreStatusDetails' - A list of status details for one or more table restore requests.+--+-- 'httpStatus', 'describeTableRestoreStatusResponse_httpStatus' - The response's http status code.+newDescribeTableRestoreStatusResponse ::+ -- | 'httpStatus'+ Prelude.Int ->+ DescribeTableRestoreStatusResponse+newDescribeTableRestoreStatusResponse pHttpStatus_ =+ DescribeTableRestoreStatusResponse'+ { marker =+ Prelude.Nothing,+ tableRestoreStatusDetails =+ Prelude.Nothing,+ httpStatus = pHttpStatus_+ }++-- | A pagination token that can be used in a subsequent+-- DescribeTableRestoreStatus request.+describeTableRestoreStatusResponse_marker :: Lens.Lens' DescribeTableRestoreStatusResponse (Prelude.Maybe Prelude.Text)+describeTableRestoreStatusResponse_marker = Lens.lens (\DescribeTableRestoreStatusResponse' {marker} -> marker) (\s@DescribeTableRestoreStatusResponse' {} a -> s {marker = a} :: DescribeTableRestoreStatusResponse)++-- | A list of status details for one or more table restore requests.+describeTableRestoreStatusResponse_tableRestoreStatusDetails :: Lens.Lens' DescribeTableRestoreStatusResponse (Prelude.Maybe [TableRestoreStatus])+describeTableRestoreStatusResponse_tableRestoreStatusDetails = Lens.lens (\DescribeTableRestoreStatusResponse' {tableRestoreStatusDetails} -> tableRestoreStatusDetails) (\s@DescribeTableRestoreStatusResponse' {} a -> s {tableRestoreStatusDetails = a} :: DescribeTableRestoreStatusResponse) Prelude.. Lens.mapping Lens.coerced++-- | The response's http status code.+describeTableRestoreStatusResponse_httpStatus :: Lens.Lens' DescribeTableRestoreStatusResponse Prelude.Int+describeTableRestoreStatusResponse_httpStatus = Lens.lens (\DescribeTableRestoreStatusResponse' {httpStatus} -> httpStatus) (\s@DescribeTableRestoreStatusResponse' {} a -> s {httpStatus = a} :: DescribeTableRestoreStatusResponse)++instance+ Prelude.NFData+ DescribeTableRestoreStatusResponse+ where+ rnf DescribeTableRestoreStatusResponse' {..} =+ Prelude.rnf marker+ `Prelude.seq` Prelude.rnf tableRestoreStatusDetails+ `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/Redshift/DescribeTags.hs view
@@ -0,0 +1,445 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module : Amazonka.Redshift.DescribeTags+-- Copyright : (c) 2013-2023 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Returns a list of tags. You can return tags from a specific resource by+-- specifying an ARN, or you can return all tags for a given type of+-- resource, such as clusters, snapshots, and so on.+--+-- The following are limitations for @DescribeTags@:+--+-- - You cannot specify an ARN and a resource-type value together in the+-- same request.+--+-- - You cannot use the @MaxRecords@ and @Marker@ parameters together+-- with the ARN parameter.+--+-- - The @MaxRecords@ parameter can be a range from 10 to 50 results to+-- return in a request.+--+-- If you specify both tag keys and tag values in the same request, Amazon+-- Redshift returns all resources that match any combination of the+-- specified keys and values. For example, if you have @owner@ and+-- @environment@ for tag keys, and @admin@ and @test@ for tag values, all+-- resources that have any combination of those values are returned.+--+-- If both tag keys and values are omitted from the request, resources are+-- returned regardless of whether they have tag keys or values associated+-- with them.+--+-- This operation returns paginated results.+module Amazonka.Redshift.DescribeTags+ ( -- * Creating a Request+ DescribeTags (..),+ newDescribeTags,++ -- * Request Lenses+ describeTags_marker,+ describeTags_maxRecords,+ describeTags_resourceName,+ describeTags_resourceType,+ describeTags_tagKeys,+ describeTags_tagValues,++ -- * Destructuring the Response+ DescribeTagsResponse (..),+ newDescribeTagsResponse,++ -- * Response Lenses+ describeTagsResponse_marker,+ describeTagsResponse_taggedResources,+ describeTagsResponse_httpStatus,+ )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Redshift.Types+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- |+--+-- /See:/ 'newDescribeTags' smart constructor.+data DescribeTags = DescribeTags'+ { -- | A value that indicates the starting point for the next set of response+ -- records in a subsequent request. If a value is returned in a response,+ -- you can retrieve the next set of records by providing this returned+ -- marker value in the @marker@ parameter and retrying the command. If the+ -- @marker@ field is empty, all response records have been retrieved for+ -- the request.+ marker :: Prelude.Maybe Prelude.Text,+ -- | The maximum number or response records to return in each call. If the+ -- number of remaining response records exceeds the specified @MaxRecords@+ -- value, a value is returned in a @marker@ field of the response. You can+ -- retrieve the next set of records by retrying the command with the+ -- returned @marker@ value.+ maxRecords :: Prelude.Maybe Prelude.Int,+ -- | The Amazon Resource Name (ARN) for which you want to describe the tag or+ -- tags. For example, @arn:aws:redshift:us-east-2:123456789:cluster:t1@.+ resourceName :: Prelude.Maybe Prelude.Text,+ -- | The type of resource with which you want to view tags. Valid resource+ -- types are:+ --+ -- - Cluster+ --+ -- - CIDR\/IP+ --+ -- - EC2 security group+ --+ -- - Snapshot+ --+ -- - Cluster security group+ --+ -- - Subnet group+ --+ -- - HSM connection+ --+ -- - HSM certificate+ --+ -- - Parameter group+ --+ -- - Snapshot copy grant+ --+ -- For more information about Amazon Redshift resource types and+ -- constructing ARNs, go to+ -- <https://docs.aws.amazon.com/redshift/latest/mgmt/redshift-iam-access-control-overview.html#redshift-iam-access-control-specify-actions Specifying Policy Elements: Actions, Effects, Resources, and Principals>+ -- in the Amazon Redshift Cluster Management Guide.+ resourceType :: Prelude.Maybe Prelude.Text,+ -- | A tag key or keys for which you want to return all matching resources+ -- that are associated with the specified key or keys. For example, suppose+ -- that you have resources tagged with keys called @owner@ and+ -- @environment@. If you specify both of these tag keys in the request,+ -- Amazon Redshift returns a response with all resources that have either+ -- or both of these tag keys associated with them.+ tagKeys :: Prelude.Maybe [Prelude.Text],+ -- | A tag value or values for which you want to return all matching+ -- resources that are associated with the specified value or values. For+ -- example, suppose that you have resources tagged with values called+ -- @admin@ and @test@. If you specify both of these tag values in the+ -- request, Amazon Redshift returns a response with all resources that have+ -- either or both of these tag values associated with them.+ tagValues :: Prelude.Maybe [Prelude.Text]+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeTags' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'marker', 'describeTags_marker' - A value that indicates the starting point for the next set of response+-- records in a subsequent request. If a value is returned in a response,+-- you can retrieve the next set of records by providing this returned+-- marker value in the @marker@ parameter and retrying the command. If the+-- @marker@ field is empty, all response records have been retrieved for+-- the request.+--+-- 'maxRecords', 'describeTags_maxRecords' - The maximum number or response records to return in each call. If the+-- number of remaining response records exceeds the specified @MaxRecords@+-- value, a value is returned in a @marker@ field of the response. You can+-- retrieve the next set of records by retrying the command with the+-- returned @marker@ value.+--+-- 'resourceName', 'describeTags_resourceName' - The Amazon Resource Name (ARN) for which you want to describe the tag or+-- tags. For example, @arn:aws:redshift:us-east-2:123456789:cluster:t1@.+--+-- 'resourceType', 'describeTags_resourceType' - The type of resource with which you want to view tags. Valid resource+-- types are:+--+-- - Cluster+--+-- - CIDR\/IP+--+-- - EC2 security group+--+-- - Snapshot+--+-- - Cluster security group+--+-- - Subnet group+--+-- - HSM connection+--+-- - HSM certificate+--+-- - Parameter group+--+-- - Snapshot copy grant+--+-- For more information about Amazon Redshift resource types and+-- constructing ARNs, go to+-- <https://docs.aws.amazon.com/redshift/latest/mgmt/redshift-iam-access-control-overview.html#redshift-iam-access-control-specify-actions Specifying Policy Elements: Actions, Effects, Resources, and Principals>+-- in the Amazon Redshift Cluster Management Guide.+--+-- 'tagKeys', 'describeTags_tagKeys' - A tag key or keys for which you want to return all matching resources+-- that are associated with the specified key or keys. For example, suppose+-- that you have resources tagged with keys called @owner@ and+-- @environment@. If you specify both of these tag keys in the request,+-- Amazon Redshift returns a response with all resources that have either+-- or both of these tag keys associated with them.+--+-- 'tagValues', 'describeTags_tagValues' - A tag value or values for which you want to return all matching+-- resources that are associated with the specified value or values. For+-- example, suppose that you have resources tagged with values called+-- @admin@ and @test@. If you specify both of these tag values in the+-- request, Amazon Redshift returns a response with all resources that have+-- either or both of these tag values associated with them.+newDescribeTags ::+ DescribeTags+newDescribeTags =+ DescribeTags'+ { marker = Prelude.Nothing,+ maxRecords = Prelude.Nothing,+ resourceName = Prelude.Nothing,+ resourceType = Prelude.Nothing,+ tagKeys = Prelude.Nothing,+ tagValues = Prelude.Nothing+ }++-- | A value that indicates the starting point for the next set of response+-- records in a subsequent request. If a value is returned in a response,+-- you can retrieve the next set of records by providing this returned+-- marker value in the @marker@ parameter and retrying the command. If the+-- @marker@ field is empty, all response records have been retrieved for+-- the request.+describeTags_marker :: Lens.Lens' DescribeTags (Prelude.Maybe Prelude.Text)+describeTags_marker = Lens.lens (\DescribeTags' {marker} -> marker) (\s@DescribeTags' {} a -> s {marker = a} :: DescribeTags)++-- | The maximum number or response records to return in each call. If the+-- number of remaining response records exceeds the specified @MaxRecords@+-- value, a value is returned in a @marker@ field of the response. You can+-- retrieve the next set of records by retrying the command with the+-- returned @marker@ value.+describeTags_maxRecords :: Lens.Lens' DescribeTags (Prelude.Maybe Prelude.Int)+describeTags_maxRecords = Lens.lens (\DescribeTags' {maxRecords} -> maxRecords) (\s@DescribeTags' {} a -> s {maxRecords = a} :: DescribeTags)++-- | The Amazon Resource Name (ARN) for which you want to describe the tag or+-- tags. For example, @arn:aws:redshift:us-east-2:123456789:cluster:t1@.+describeTags_resourceName :: Lens.Lens' DescribeTags (Prelude.Maybe Prelude.Text)+describeTags_resourceName = Lens.lens (\DescribeTags' {resourceName} -> resourceName) (\s@DescribeTags' {} a -> s {resourceName = a} :: DescribeTags)++-- | The type of resource with which you want to view tags. Valid resource+-- types are:+--+-- - Cluster+--+-- - CIDR\/IP+--+-- - EC2 security group+--+-- - Snapshot+--+-- - Cluster security group+--+-- - Subnet group+--+-- - HSM connection+--+-- - HSM certificate+--+-- - Parameter group+--+-- - Snapshot copy grant+--+-- For more information about Amazon Redshift resource types and+-- constructing ARNs, go to+-- <https://docs.aws.amazon.com/redshift/latest/mgmt/redshift-iam-access-control-overview.html#redshift-iam-access-control-specify-actions Specifying Policy Elements: Actions, Effects, Resources, and Principals>+-- in the Amazon Redshift Cluster Management Guide.+describeTags_resourceType :: Lens.Lens' DescribeTags (Prelude.Maybe Prelude.Text)+describeTags_resourceType = Lens.lens (\DescribeTags' {resourceType} -> resourceType) (\s@DescribeTags' {} a -> s {resourceType = a} :: DescribeTags)++-- | A tag key or keys for which you want to return all matching resources+-- that are associated with the specified key or keys. For example, suppose+-- that you have resources tagged with keys called @owner@ and+-- @environment@. If you specify both of these tag keys in the request,+-- Amazon Redshift returns a response with all resources that have either+-- or both of these tag keys associated with them.+describeTags_tagKeys :: Lens.Lens' DescribeTags (Prelude.Maybe [Prelude.Text])+describeTags_tagKeys = Lens.lens (\DescribeTags' {tagKeys} -> tagKeys) (\s@DescribeTags' {} a -> s {tagKeys = a} :: DescribeTags) Prelude.. Lens.mapping Lens.coerced++-- | A tag value or values for which you want to return all matching+-- resources that are associated with the specified value or values. For+-- example, suppose that you have resources tagged with values called+-- @admin@ and @test@. If you specify both of these tag values in the+-- request, Amazon Redshift returns a response with all resources that have+-- either or both of these tag values associated with them.+describeTags_tagValues :: Lens.Lens' DescribeTags (Prelude.Maybe [Prelude.Text])+describeTags_tagValues = Lens.lens (\DescribeTags' {tagValues} -> tagValues) (\s@DescribeTags' {} a -> s {tagValues = a} :: DescribeTags) Prelude.. Lens.mapping Lens.coerced++instance Core.AWSPager DescribeTags where+ page rq rs+ | Core.stop+ ( rs+ Lens.^? describeTagsResponse_marker+ Prelude.. Lens._Just+ ) =+ Prelude.Nothing+ | Core.stop+ ( rs+ Lens.^? describeTagsResponse_taggedResources+ Prelude.. Lens._Just+ ) =+ Prelude.Nothing+ | Prelude.otherwise =+ Prelude.Just+ Prelude.$ rq+ Prelude.& describeTags_marker+ Lens..~ rs+ Lens.^? describeTagsResponse_marker+ Prelude.. Lens._Just++instance Core.AWSRequest DescribeTags where+ type AWSResponse DescribeTags = DescribeTagsResponse+ request overrides =+ Request.postQuery (overrides defaultService)+ response =+ Response.receiveXMLWrapper+ "DescribeTagsResult"+ ( \s h x ->+ DescribeTagsResponse'+ Prelude.<$> (x Data..@? "Marker")+ Prelude.<*> ( x+ Data..@? "TaggedResources"+ Core..!@ Prelude.mempty+ Prelude.>>= Core.may (Data.parseXMLList "TaggedResource")+ )+ Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+ )++instance Prelude.Hashable DescribeTags where+ hashWithSalt _salt DescribeTags' {..} =+ _salt+ `Prelude.hashWithSalt` marker+ `Prelude.hashWithSalt` maxRecords+ `Prelude.hashWithSalt` resourceName+ `Prelude.hashWithSalt` resourceType+ `Prelude.hashWithSalt` tagKeys+ `Prelude.hashWithSalt` tagValues++instance Prelude.NFData DescribeTags where+ rnf DescribeTags' {..} =+ Prelude.rnf marker+ `Prelude.seq` Prelude.rnf maxRecords+ `Prelude.seq` Prelude.rnf resourceName+ `Prelude.seq` Prelude.rnf resourceType+ `Prelude.seq` Prelude.rnf tagKeys+ `Prelude.seq` Prelude.rnf tagValues++instance Data.ToHeaders DescribeTags where+ toHeaders = Prelude.const Prelude.mempty++instance Data.ToPath DescribeTags where+ toPath = Prelude.const "/"++instance Data.ToQuery DescribeTags where+ toQuery DescribeTags' {..} =+ Prelude.mconcat+ [ "Action"+ Data.=: ("DescribeTags" :: Prelude.ByteString),+ "Version"+ Data.=: ("2012-12-01" :: Prelude.ByteString),+ "Marker" Data.=: marker,+ "MaxRecords" Data.=: maxRecords,+ "ResourceName" Data.=: resourceName,+ "ResourceType" Data.=: resourceType,+ "TagKeys"+ Data.=: Data.toQuery+ (Data.toQueryList "TagKey" Prelude.<$> tagKeys),+ "TagValues"+ Data.=: Data.toQuery+ (Data.toQueryList "TagValue" Prelude.<$> tagValues)+ ]++-- |+--+-- /See:/ 'newDescribeTagsResponse' smart constructor.+data DescribeTagsResponse = DescribeTagsResponse'+ { -- | A value that indicates the starting point for the next set of response+ -- records in a subsequent request. If a value is returned in a response,+ -- you can retrieve the next set of records by providing this returned+ -- marker value in the @Marker@ parameter and retrying the command. If the+ -- @Marker@ field is empty, all response records have been retrieved for+ -- the request.+ marker :: Prelude.Maybe Prelude.Text,+ -- | A list of tags with their associated resources.+ taggedResources :: Prelude.Maybe [TaggedResource],+ -- | The response's http status code.+ httpStatus :: Prelude.Int+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeTagsResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'marker', 'describeTagsResponse_marker' - A value that indicates the starting point for the next set of response+-- records in a subsequent request. If a value is returned in a response,+-- you can retrieve the next set of records by providing this returned+-- marker value in the @Marker@ parameter and retrying the command. If the+-- @Marker@ field is empty, all response records have been retrieved for+-- the request.+--+-- 'taggedResources', 'describeTagsResponse_taggedResources' - A list of tags with their associated resources.+--+-- 'httpStatus', 'describeTagsResponse_httpStatus' - The response's http status code.+newDescribeTagsResponse ::+ -- | 'httpStatus'+ Prelude.Int ->+ DescribeTagsResponse+newDescribeTagsResponse pHttpStatus_ =+ DescribeTagsResponse'+ { marker = Prelude.Nothing,+ taggedResources = Prelude.Nothing,+ httpStatus = pHttpStatus_+ }++-- | A value that indicates the starting point for the next set of response+-- records in a subsequent request. If a value is returned in a response,+-- you can retrieve the next set of records by providing this returned+-- marker value in the @Marker@ parameter and retrying the command. If the+-- @Marker@ field is empty, all response records have been retrieved for+-- the request.+describeTagsResponse_marker :: Lens.Lens' DescribeTagsResponse (Prelude.Maybe Prelude.Text)+describeTagsResponse_marker = Lens.lens (\DescribeTagsResponse' {marker} -> marker) (\s@DescribeTagsResponse' {} a -> s {marker = a} :: DescribeTagsResponse)++-- | A list of tags with their associated resources.+describeTagsResponse_taggedResources :: Lens.Lens' DescribeTagsResponse (Prelude.Maybe [TaggedResource])+describeTagsResponse_taggedResources = Lens.lens (\DescribeTagsResponse' {taggedResources} -> taggedResources) (\s@DescribeTagsResponse' {} a -> s {taggedResources = a} :: DescribeTagsResponse) Prelude.. Lens.mapping Lens.coerced++-- | The response's http status code.+describeTagsResponse_httpStatus :: Lens.Lens' DescribeTagsResponse Prelude.Int+describeTagsResponse_httpStatus = Lens.lens (\DescribeTagsResponse' {httpStatus} -> httpStatus) (\s@DescribeTagsResponse' {} a -> s {httpStatus = a} :: DescribeTagsResponse)++instance Prelude.NFData DescribeTagsResponse where+ rnf DescribeTagsResponse' {..} =+ Prelude.rnf marker+ `Prelude.seq` Prelude.rnf taggedResources+ `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/Redshift/DescribeUsageLimits.hs view
@@ -0,0 +1,388 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module : Amazonka.Redshift.DescribeUsageLimits+-- Copyright : (c) 2013-2023 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Shows usage limits on a cluster. Results are filtered based on the+-- combination of input usage limit identifier, cluster identifier, and+-- feature type parameters:+--+-- - If usage limit identifier, cluster identifier, and feature type are+-- not provided, then all usage limit objects for the current account+-- in the current region are returned.+--+-- - If usage limit identifier is provided, then the corresponding usage+-- limit object is returned.+--+-- - If cluster identifier is provided, then all usage limit objects for+-- the specified cluster are returned.+--+-- - If cluster identifier and feature type are provided, then all usage+-- limit objects for the combination of cluster and feature are+-- returned.+--+-- This operation returns paginated results.+module Amazonka.Redshift.DescribeUsageLimits+ ( -- * Creating a Request+ DescribeUsageLimits (..),+ newDescribeUsageLimits,++ -- * Request Lenses+ describeUsageLimits_clusterIdentifier,+ describeUsageLimits_featureType,+ describeUsageLimits_marker,+ describeUsageLimits_maxRecords,+ describeUsageLimits_tagKeys,+ describeUsageLimits_tagValues,+ describeUsageLimits_usageLimitId,++ -- * Destructuring the Response+ DescribeUsageLimitsResponse (..),+ newDescribeUsageLimitsResponse,++ -- * Response Lenses+ describeUsageLimitsResponse_marker,+ describeUsageLimitsResponse_usageLimits,+ describeUsageLimitsResponse_httpStatus,+ )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Redshift.Types+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newDescribeUsageLimits' smart constructor.+data DescribeUsageLimits = DescribeUsageLimits'+ { -- | The identifier of the cluster for which you want to describe usage+ -- limits.+ clusterIdentifier :: Prelude.Maybe Prelude.Text,+ -- | The feature type for which you want to describe usage limits.+ featureType :: Prelude.Maybe UsageLimitFeatureType,+ -- | An optional parameter that specifies the starting point to return a set+ -- of response records. When the results of a DescribeUsageLimits request+ -- exceed the value specified in @MaxRecords@, Amazon Web Services returns+ -- a value in the @Marker@ field of the response. You can retrieve the next+ -- set of response records by providing the returned marker value in the+ -- @Marker@ parameter and retrying the request.+ marker :: Prelude.Maybe Prelude.Text,+ -- | The maximum number of response records to return in each call. If the+ -- number of remaining response records exceeds the specified @MaxRecords@+ -- value, a value is returned in a @marker@ field of the response. You can+ -- retrieve the next set of records by retrying the command with the+ -- returned marker value.+ --+ -- Default: @100@+ --+ -- Constraints: minimum 20, maximum 100.+ maxRecords :: Prelude.Maybe Prelude.Int,+ -- | A tag key or keys for which you want to return all matching usage limit+ -- objects that are associated with the specified key or keys. For example,+ -- suppose that you have parameter groups that are tagged with keys called+ -- @owner@ and @environment@. If you specify both of these tag keys in the+ -- request, Amazon Redshift returns a response with the usage limit objects+ -- have either or both of these tag keys associated with them.+ tagKeys :: Prelude.Maybe [Prelude.Text],+ -- | A tag value or values for which you want to return all matching usage+ -- limit objects that are associated with the specified tag value or+ -- values. For example, suppose that you have parameter groups that are+ -- tagged with values called @admin@ and @test@. If you specify both of+ -- these tag values in the request, Amazon Redshift returns a response with+ -- the usage limit objects that have either or both of these tag values+ -- associated with them.+ tagValues :: Prelude.Maybe [Prelude.Text],+ -- | The identifier of the usage limit to describe.+ usageLimitId :: Prelude.Maybe Prelude.Text+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeUsageLimits' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'clusterIdentifier', 'describeUsageLimits_clusterIdentifier' - The identifier of the cluster for which you want to describe usage+-- limits.+--+-- 'featureType', 'describeUsageLimits_featureType' - The feature type for which you want to describe usage limits.+--+-- 'marker', 'describeUsageLimits_marker' - An optional parameter that specifies the starting point to return a set+-- of response records. When the results of a DescribeUsageLimits request+-- exceed the value specified in @MaxRecords@, Amazon Web Services returns+-- a value in the @Marker@ field of the response. You can retrieve the next+-- set of response records by providing the returned marker value in the+-- @Marker@ parameter and retrying the request.+--+-- 'maxRecords', 'describeUsageLimits_maxRecords' - The maximum number of response records to return in each call. If the+-- number of remaining response records exceeds the specified @MaxRecords@+-- value, a value is returned in a @marker@ field of the response. You can+-- retrieve the next set of records by retrying the command with the+-- returned marker value.+--+-- Default: @100@+--+-- Constraints: minimum 20, maximum 100.+--+-- 'tagKeys', 'describeUsageLimits_tagKeys' - A tag key or keys for which you want to return all matching usage limit+-- objects that are associated with the specified key or keys. For example,+-- suppose that you have parameter groups that are tagged with keys called+-- @owner@ and @environment@. If you specify both of these tag keys in the+-- request, Amazon Redshift returns a response with the usage limit objects+-- have either or both of these tag keys associated with them.+--+-- 'tagValues', 'describeUsageLimits_tagValues' - A tag value or values for which you want to return all matching usage+-- limit objects that are associated with the specified tag value or+-- values. For example, suppose that you have parameter groups that are+-- tagged with values called @admin@ and @test@. If you specify both of+-- these tag values in the request, Amazon Redshift returns a response with+-- the usage limit objects that have either or both of these tag values+-- associated with them.+--+-- 'usageLimitId', 'describeUsageLimits_usageLimitId' - The identifier of the usage limit to describe.+newDescribeUsageLimits ::+ DescribeUsageLimits+newDescribeUsageLimits =+ DescribeUsageLimits'+ { clusterIdentifier =+ Prelude.Nothing,+ featureType = Prelude.Nothing,+ marker = Prelude.Nothing,+ maxRecords = Prelude.Nothing,+ tagKeys = Prelude.Nothing,+ tagValues = Prelude.Nothing,+ usageLimitId = Prelude.Nothing+ }++-- | The identifier of the cluster for which you want to describe usage+-- limits.+describeUsageLimits_clusterIdentifier :: Lens.Lens' DescribeUsageLimits (Prelude.Maybe Prelude.Text)+describeUsageLimits_clusterIdentifier = Lens.lens (\DescribeUsageLimits' {clusterIdentifier} -> clusterIdentifier) (\s@DescribeUsageLimits' {} a -> s {clusterIdentifier = a} :: DescribeUsageLimits)++-- | The feature type for which you want to describe usage limits.+describeUsageLimits_featureType :: Lens.Lens' DescribeUsageLimits (Prelude.Maybe UsageLimitFeatureType)+describeUsageLimits_featureType = Lens.lens (\DescribeUsageLimits' {featureType} -> featureType) (\s@DescribeUsageLimits' {} a -> s {featureType = a} :: DescribeUsageLimits)++-- | An optional parameter that specifies the starting point to return a set+-- of response records. When the results of a DescribeUsageLimits request+-- exceed the value specified in @MaxRecords@, Amazon Web Services returns+-- a value in the @Marker@ field of the response. You can retrieve the next+-- set of response records by providing the returned marker value in the+-- @Marker@ parameter and retrying the request.+describeUsageLimits_marker :: Lens.Lens' DescribeUsageLimits (Prelude.Maybe Prelude.Text)+describeUsageLimits_marker = Lens.lens (\DescribeUsageLimits' {marker} -> marker) (\s@DescribeUsageLimits' {} a -> s {marker = a} :: DescribeUsageLimits)++-- | The maximum number of response records to return in each call. If the+-- number of remaining response records exceeds the specified @MaxRecords@+-- value, a value is returned in a @marker@ field of the response. You can+-- retrieve the next set of records by retrying the command with the+-- returned marker value.+--+-- Default: @100@+--+-- Constraints: minimum 20, maximum 100.+describeUsageLimits_maxRecords :: Lens.Lens' DescribeUsageLimits (Prelude.Maybe Prelude.Int)+describeUsageLimits_maxRecords = Lens.lens (\DescribeUsageLimits' {maxRecords} -> maxRecords) (\s@DescribeUsageLimits' {} a -> s {maxRecords = a} :: DescribeUsageLimits)++-- | A tag key or keys for which you want to return all matching usage limit+-- objects that are associated with the specified key or keys. For example,+-- suppose that you have parameter groups that are tagged with keys called+-- @owner@ and @environment@. If you specify both of these tag keys in the+-- request, Amazon Redshift returns a response with the usage limit objects+-- have either or both of these tag keys associated with them.+describeUsageLimits_tagKeys :: Lens.Lens' DescribeUsageLimits (Prelude.Maybe [Prelude.Text])+describeUsageLimits_tagKeys = Lens.lens (\DescribeUsageLimits' {tagKeys} -> tagKeys) (\s@DescribeUsageLimits' {} a -> s {tagKeys = a} :: DescribeUsageLimits) Prelude.. Lens.mapping Lens.coerced++-- | A tag value or values for which you want to return all matching usage+-- limit objects that are associated with the specified tag value or+-- values. For example, suppose that you have parameter groups that are+-- tagged with values called @admin@ and @test@. If you specify both of+-- these tag values in the request, Amazon Redshift returns a response with+-- the usage limit objects that have either or both of these tag values+-- associated with them.+describeUsageLimits_tagValues :: Lens.Lens' DescribeUsageLimits (Prelude.Maybe [Prelude.Text])+describeUsageLimits_tagValues = Lens.lens (\DescribeUsageLimits' {tagValues} -> tagValues) (\s@DescribeUsageLimits' {} a -> s {tagValues = a} :: DescribeUsageLimits) Prelude.. Lens.mapping Lens.coerced++-- | The identifier of the usage limit to describe.+describeUsageLimits_usageLimitId :: Lens.Lens' DescribeUsageLimits (Prelude.Maybe Prelude.Text)+describeUsageLimits_usageLimitId = Lens.lens (\DescribeUsageLimits' {usageLimitId} -> usageLimitId) (\s@DescribeUsageLimits' {} a -> s {usageLimitId = a} :: DescribeUsageLimits)++instance Core.AWSPager DescribeUsageLimits where+ page rq rs+ | Core.stop+ ( rs+ Lens.^? describeUsageLimitsResponse_marker+ Prelude.. Lens._Just+ ) =+ Prelude.Nothing+ | Core.stop+ ( rs+ Lens.^? describeUsageLimitsResponse_usageLimits+ Prelude.. Lens._Just+ ) =+ Prelude.Nothing+ | Prelude.otherwise =+ Prelude.Just+ Prelude.$ rq+ Prelude.& describeUsageLimits_marker+ Lens..~ rs+ Lens.^? describeUsageLimitsResponse_marker+ Prelude.. Lens._Just++instance Core.AWSRequest DescribeUsageLimits where+ type+ AWSResponse DescribeUsageLimits =+ DescribeUsageLimitsResponse+ request overrides =+ Request.postQuery (overrides defaultService)+ response =+ Response.receiveXMLWrapper+ "DescribeUsageLimitsResult"+ ( \s h x ->+ DescribeUsageLimitsResponse'+ Prelude.<$> (x Data..@? "Marker")+ Prelude.<*> ( x+ Data..@? "UsageLimits"+ Core..!@ Prelude.mempty+ Prelude.>>= Core.may (Data.parseXMLList "member")+ )+ Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+ )++instance Prelude.Hashable DescribeUsageLimits where+ hashWithSalt _salt DescribeUsageLimits' {..} =+ _salt+ `Prelude.hashWithSalt` clusterIdentifier+ `Prelude.hashWithSalt` featureType+ `Prelude.hashWithSalt` marker+ `Prelude.hashWithSalt` maxRecords+ `Prelude.hashWithSalt` tagKeys+ `Prelude.hashWithSalt` tagValues+ `Prelude.hashWithSalt` usageLimitId++instance Prelude.NFData DescribeUsageLimits where+ rnf DescribeUsageLimits' {..} =+ Prelude.rnf clusterIdentifier+ `Prelude.seq` Prelude.rnf featureType+ `Prelude.seq` Prelude.rnf marker+ `Prelude.seq` Prelude.rnf maxRecords+ `Prelude.seq` Prelude.rnf tagKeys+ `Prelude.seq` Prelude.rnf tagValues+ `Prelude.seq` Prelude.rnf usageLimitId++instance Data.ToHeaders DescribeUsageLimits where+ toHeaders = Prelude.const Prelude.mempty++instance Data.ToPath DescribeUsageLimits where+ toPath = Prelude.const "/"++instance Data.ToQuery DescribeUsageLimits where+ toQuery DescribeUsageLimits' {..} =+ Prelude.mconcat+ [ "Action"+ Data.=: ("DescribeUsageLimits" :: Prelude.ByteString),+ "Version"+ Data.=: ("2012-12-01" :: Prelude.ByteString),+ "ClusterIdentifier" Data.=: clusterIdentifier,+ "FeatureType" Data.=: featureType,+ "Marker" Data.=: marker,+ "MaxRecords" Data.=: maxRecords,+ "TagKeys"+ Data.=: Data.toQuery+ (Data.toQueryList "TagKey" Prelude.<$> tagKeys),+ "TagValues"+ Data.=: Data.toQuery+ (Data.toQueryList "TagValue" Prelude.<$> tagValues),+ "UsageLimitId" Data.=: usageLimitId+ ]++-- | /See:/ 'newDescribeUsageLimitsResponse' smart constructor.+data DescribeUsageLimitsResponse = DescribeUsageLimitsResponse'+ { -- | A value that indicates the starting point for the next set of response+ -- records in a subsequent request. If a value is returned in a response,+ -- you can retrieve the next set of records by providing this returned+ -- marker value in the @Marker@ parameter and retrying the command. If the+ -- @Marker@ field is empty, all response records have been retrieved for+ -- the request.+ marker :: Prelude.Maybe Prelude.Text,+ -- | Contains the output from the DescribeUsageLimits action.+ usageLimits :: Prelude.Maybe [UsageLimit],+ -- | The response's http status code.+ httpStatus :: Prelude.Int+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeUsageLimitsResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'marker', 'describeUsageLimitsResponse_marker' - A value that indicates the starting point for the next set of response+-- records in a subsequent request. If a value is returned in a response,+-- you can retrieve the next set of records by providing this returned+-- marker value in the @Marker@ parameter and retrying the command. If the+-- @Marker@ field is empty, all response records have been retrieved for+-- the request.+--+-- 'usageLimits', 'describeUsageLimitsResponse_usageLimits' - Contains the output from the DescribeUsageLimits action.+--+-- 'httpStatus', 'describeUsageLimitsResponse_httpStatus' - The response's http status code.+newDescribeUsageLimitsResponse ::+ -- | 'httpStatus'+ Prelude.Int ->+ DescribeUsageLimitsResponse+newDescribeUsageLimitsResponse pHttpStatus_ =+ DescribeUsageLimitsResponse'+ { marker =+ Prelude.Nothing,+ usageLimits = Prelude.Nothing,+ httpStatus = pHttpStatus_+ }++-- | A value that indicates the starting point for the next set of response+-- records in a subsequent request. If a value is returned in a response,+-- you can retrieve the next set of records by providing this returned+-- marker value in the @Marker@ parameter and retrying the command. If the+-- @Marker@ field is empty, all response records have been retrieved for+-- the request.+describeUsageLimitsResponse_marker :: Lens.Lens' DescribeUsageLimitsResponse (Prelude.Maybe Prelude.Text)+describeUsageLimitsResponse_marker = Lens.lens (\DescribeUsageLimitsResponse' {marker} -> marker) (\s@DescribeUsageLimitsResponse' {} a -> s {marker = a} :: DescribeUsageLimitsResponse)++-- | Contains the output from the DescribeUsageLimits action.+describeUsageLimitsResponse_usageLimits :: Lens.Lens' DescribeUsageLimitsResponse (Prelude.Maybe [UsageLimit])+describeUsageLimitsResponse_usageLimits = Lens.lens (\DescribeUsageLimitsResponse' {usageLimits} -> usageLimits) (\s@DescribeUsageLimitsResponse' {} a -> s {usageLimits = a} :: DescribeUsageLimitsResponse) Prelude.. Lens.mapping Lens.coerced++-- | The response's http status code.+describeUsageLimitsResponse_httpStatus :: Lens.Lens' DescribeUsageLimitsResponse Prelude.Int+describeUsageLimitsResponse_httpStatus = Lens.lens (\DescribeUsageLimitsResponse' {httpStatus} -> httpStatus) (\s@DescribeUsageLimitsResponse' {} a -> s {httpStatus = a} :: DescribeUsageLimitsResponse)++instance Prelude.NFData DescribeUsageLimitsResponse where+ rnf DescribeUsageLimitsResponse' {..} =+ Prelude.rnf marker+ `Prelude.seq` Prelude.rnf usageLimits+ `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/Redshift/DisableLogging.hs view
@@ -0,0 +1,126 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module : Amazonka.Redshift.DisableLogging+-- Copyright : (c) 2013-2023 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Stops logging information, such as queries and connection attempts, for+-- the specified Amazon Redshift cluster.+module Amazonka.Redshift.DisableLogging+ ( -- * Creating a Request+ DisableLogging (..),+ newDisableLogging,++ -- * Request Lenses+ disableLogging_clusterIdentifier,++ -- * Destructuring the Response+ LoggingStatus (..),+ newLoggingStatus,++ -- * Response Lenses+ loggingStatus_bucketName,+ loggingStatus_lastFailureMessage,+ loggingStatus_lastFailureTime,+ loggingStatus_lastSuccessfulDeliveryTime,+ loggingStatus_logDestinationType,+ loggingStatus_logExports,+ loggingStatus_loggingEnabled,+ loggingStatus_s3KeyPrefix,+ )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Redshift.Types+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- |+--+-- /See:/ 'newDisableLogging' smart constructor.+data DisableLogging = DisableLogging'+ { -- | The identifier of the cluster on which logging is to be stopped.+ --+ -- Example: @examplecluster@+ clusterIdentifier :: Prelude.Text+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DisableLogging' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'clusterIdentifier', 'disableLogging_clusterIdentifier' - The identifier of the cluster on which logging is to be stopped.+--+-- Example: @examplecluster@+newDisableLogging ::+ -- | 'clusterIdentifier'+ Prelude.Text ->+ DisableLogging+newDisableLogging pClusterIdentifier_ =+ DisableLogging'+ { clusterIdentifier =+ pClusterIdentifier_+ }++-- | The identifier of the cluster on which logging is to be stopped.+--+-- Example: @examplecluster@+disableLogging_clusterIdentifier :: Lens.Lens' DisableLogging Prelude.Text+disableLogging_clusterIdentifier = Lens.lens (\DisableLogging' {clusterIdentifier} -> clusterIdentifier) (\s@DisableLogging' {} a -> s {clusterIdentifier = a} :: DisableLogging)++instance Core.AWSRequest DisableLogging where+ type AWSResponse DisableLogging = LoggingStatus+ request overrides =+ Request.postQuery (overrides defaultService)+ response =+ Response.receiveXMLWrapper+ "DisableLoggingResult"+ (\s h x -> Data.parseXML x)++instance Prelude.Hashable DisableLogging where+ hashWithSalt _salt DisableLogging' {..} =+ _salt `Prelude.hashWithSalt` clusterIdentifier++instance Prelude.NFData DisableLogging where+ rnf DisableLogging' {..} =+ Prelude.rnf clusterIdentifier++instance Data.ToHeaders DisableLogging where+ toHeaders = Prelude.const Prelude.mempty++instance Data.ToPath DisableLogging where+ toPath = Prelude.const "/"++instance Data.ToQuery DisableLogging where+ toQuery DisableLogging' {..} =+ Prelude.mconcat+ [ "Action"+ Data.=: ("DisableLogging" :: Prelude.ByteString),+ "Version"+ Data.=: ("2012-12-01" :: Prelude.ByteString),+ "ClusterIdentifier" Data.=: clusterIdentifier+ ]
+ gen/Amazonka/Redshift/DisableSnapshotCopy.hs view
@@ -0,0 +1,180 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module : Amazonka.Redshift.DisableSnapshotCopy+-- Copyright : (c) 2013-2023 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Disables the automatic copying of snapshots from one region to another+-- region for a specified cluster.+--+-- If your cluster and its snapshots are encrypted using an encrypted+-- symmetric key from Key Management Service, use DeleteSnapshotCopyGrant+-- to delete the grant that grants Amazon Redshift permission to the key in+-- the destination region.+module Amazonka.Redshift.DisableSnapshotCopy+ ( -- * Creating a Request+ DisableSnapshotCopy (..),+ newDisableSnapshotCopy,++ -- * Request Lenses+ disableSnapshotCopy_clusterIdentifier,++ -- * Destructuring the Response+ DisableSnapshotCopyResponse (..),+ newDisableSnapshotCopyResponse,++ -- * Response Lenses+ disableSnapshotCopyResponse_cluster,+ disableSnapshotCopyResponse_httpStatus,+ )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Redshift.Types+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- |+--+-- /See:/ 'newDisableSnapshotCopy' smart constructor.+data DisableSnapshotCopy = DisableSnapshotCopy'+ { -- | The unique identifier of the source cluster that you want to disable+ -- copying of snapshots to a destination region.+ --+ -- Constraints: Must be the valid name of an existing cluster that has+ -- cross-region snapshot copy enabled.+ clusterIdentifier :: Prelude.Text+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DisableSnapshotCopy' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'clusterIdentifier', 'disableSnapshotCopy_clusterIdentifier' - The unique identifier of the source cluster that you want to disable+-- copying of snapshots to a destination region.+--+-- Constraints: Must be the valid name of an existing cluster that has+-- cross-region snapshot copy enabled.+newDisableSnapshotCopy ::+ -- | 'clusterIdentifier'+ Prelude.Text ->+ DisableSnapshotCopy+newDisableSnapshotCopy pClusterIdentifier_ =+ DisableSnapshotCopy'+ { clusterIdentifier =+ pClusterIdentifier_+ }++-- | The unique identifier of the source cluster that you want to disable+-- copying of snapshots to a destination region.+--+-- Constraints: Must be the valid name of an existing cluster that has+-- cross-region snapshot copy enabled.+disableSnapshotCopy_clusterIdentifier :: Lens.Lens' DisableSnapshotCopy Prelude.Text+disableSnapshotCopy_clusterIdentifier = Lens.lens (\DisableSnapshotCopy' {clusterIdentifier} -> clusterIdentifier) (\s@DisableSnapshotCopy' {} a -> s {clusterIdentifier = a} :: DisableSnapshotCopy)++instance Core.AWSRequest DisableSnapshotCopy where+ type+ AWSResponse DisableSnapshotCopy =+ DisableSnapshotCopyResponse+ request overrides =+ Request.postQuery (overrides defaultService)+ response =+ Response.receiveXMLWrapper+ "DisableSnapshotCopyResult"+ ( \s h x ->+ DisableSnapshotCopyResponse'+ Prelude.<$> (x Data..@? "Cluster")+ Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+ )++instance Prelude.Hashable DisableSnapshotCopy where+ hashWithSalt _salt DisableSnapshotCopy' {..} =+ _salt `Prelude.hashWithSalt` clusterIdentifier++instance Prelude.NFData DisableSnapshotCopy where+ rnf DisableSnapshotCopy' {..} =+ Prelude.rnf clusterIdentifier++instance Data.ToHeaders DisableSnapshotCopy where+ toHeaders = Prelude.const Prelude.mempty++instance Data.ToPath DisableSnapshotCopy where+ toPath = Prelude.const "/"++instance Data.ToQuery DisableSnapshotCopy where+ toQuery DisableSnapshotCopy' {..} =+ Prelude.mconcat+ [ "Action"+ Data.=: ("DisableSnapshotCopy" :: Prelude.ByteString),+ "Version"+ Data.=: ("2012-12-01" :: Prelude.ByteString),+ "ClusterIdentifier" Data.=: clusterIdentifier+ ]++-- | /See:/ 'newDisableSnapshotCopyResponse' smart constructor.+data DisableSnapshotCopyResponse = DisableSnapshotCopyResponse'+ { cluster :: Prelude.Maybe Cluster,+ -- | The response's http status code.+ httpStatus :: Prelude.Int+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DisableSnapshotCopyResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'cluster', 'disableSnapshotCopyResponse_cluster' - Undocumented member.+--+-- 'httpStatus', 'disableSnapshotCopyResponse_httpStatus' - The response's http status code.+newDisableSnapshotCopyResponse ::+ -- | 'httpStatus'+ Prelude.Int ->+ DisableSnapshotCopyResponse+newDisableSnapshotCopyResponse pHttpStatus_ =+ DisableSnapshotCopyResponse'+ { cluster =+ Prelude.Nothing,+ httpStatus = pHttpStatus_+ }++-- | Undocumented member.+disableSnapshotCopyResponse_cluster :: Lens.Lens' DisableSnapshotCopyResponse (Prelude.Maybe Cluster)+disableSnapshotCopyResponse_cluster = Lens.lens (\DisableSnapshotCopyResponse' {cluster} -> cluster) (\s@DisableSnapshotCopyResponse' {} a -> s {cluster = a} :: DisableSnapshotCopyResponse)++-- | The response's http status code.+disableSnapshotCopyResponse_httpStatus :: Lens.Lens' DisableSnapshotCopyResponse Prelude.Int+disableSnapshotCopyResponse_httpStatus = Lens.lens (\DisableSnapshotCopyResponse' {httpStatus} -> httpStatus) (\s@DisableSnapshotCopyResponse' {} a -> s {httpStatus = a} :: DisableSnapshotCopyResponse)++instance Prelude.NFData DisableSnapshotCopyResponse where+ rnf DisableSnapshotCopyResponse' {..} =+ Prelude.rnf cluster+ `Prelude.seq` Prelude.rnf httpStatus
@@ -0,0 +1,181 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module : Amazonka.Redshift.DisassociateDataShareConsumer+-- Copyright : (c) 2013-2023 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- From a datashare consumer account, remove association for the specified+-- datashare.+module Amazonka.Redshift.DisassociateDataShareConsumer+ ( -- * Creating a Request+ DisassociateDataShareConsumer (..),+ newDisassociateDataShareConsumer,++ -- * Request Lenses+ disassociateDataShareConsumer_consumerArn,+ disassociateDataShareConsumer_consumerRegion,+ disassociateDataShareConsumer_disassociateEntireAccount,+ disassociateDataShareConsumer_dataShareArn,++ -- * Destructuring the Response+ DataShare (..),+ newDataShare,++ -- * Response Lenses+ dataShare_allowPubliclyAccessibleConsumers,+ dataShare_dataShareArn,+ dataShare_dataShareAssociations,+ dataShare_managedBy,+ dataShare_producerArn,+ )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Redshift.Types+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newDisassociateDataShareConsumer' smart constructor.+data DisassociateDataShareConsumer = DisassociateDataShareConsumer'+ { -- | The Amazon Resource Name (ARN) of the consumer that association for the+ -- datashare is removed from.+ consumerArn :: Prelude.Maybe Prelude.Text,+ -- | From a datashare consumer account, removes association of a datashare+ -- from all the existing and future namespaces in the specified Amazon Web+ -- Services Region.+ consumerRegion :: Prelude.Maybe Prelude.Text,+ -- | A value that specifies whether association for the datashare is removed+ -- from the entire account.+ disassociateEntireAccount :: Prelude.Maybe Prelude.Bool,+ -- | The Amazon Resource Name (ARN) of the datashare to remove association+ -- for.+ dataShareArn :: Prelude.Text+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DisassociateDataShareConsumer' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'consumerArn', 'disassociateDataShareConsumer_consumerArn' - The Amazon Resource Name (ARN) of the consumer that association for the+-- datashare is removed from.+--+-- 'consumerRegion', 'disassociateDataShareConsumer_consumerRegion' - From a datashare consumer account, removes association of a datashare+-- from all the existing and future namespaces in the specified Amazon Web+-- Services Region.+--+-- 'disassociateEntireAccount', 'disassociateDataShareConsumer_disassociateEntireAccount' - A value that specifies whether association for the datashare is removed+-- from the entire account.+--+-- 'dataShareArn', 'disassociateDataShareConsumer_dataShareArn' - The Amazon Resource Name (ARN) of the datashare to remove association+-- for.+newDisassociateDataShareConsumer ::+ -- | 'dataShareArn'+ Prelude.Text ->+ DisassociateDataShareConsumer+newDisassociateDataShareConsumer pDataShareArn_ =+ DisassociateDataShareConsumer'+ { consumerArn =+ Prelude.Nothing,+ consumerRegion = Prelude.Nothing,+ disassociateEntireAccount = Prelude.Nothing,+ dataShareArn = pDataShareArn_+ }++-- | The Amazon Resource Name (ARN) of the consumer that association for the+-- datashare is removed from.+disassociateDataShareConsumer_consumerArn :: Lens.Lens' DisassociateDataShareConsumer (Prelude.Maybe Prelude.Text)+disassociateDataShareConsumer_consumerArn = Lens.lens (\DisassociateDataShareConsumer' {consumerArn} -> consumerArn) (\s@DisassociateDataShareConsumer' {} a -> s {consumerArn = a} :: DisassociateDataShareConsumer)++-- | From a datashare consumer account, removes association of a datashare+-- from all the existing and future namespaces in the specified Amazon Web+-- Services Region.+disassociateDataShareConsumer_consumerRegion :: Lens.Lens' DisassociateDataShareConsumer (Prelude.Maybe Prelude.Text)+disassociateDataShareConsumer_consumerRegion = Lens.lens (\DisassociateDataShareConsumer' {consumerRegion} -> consumerRegion) (\s@DisassociateDataShareConsumer' {} a -> s {consumerRegion = a} :: DisassociateDataShareConsumer)++-- | A value that specifies whether association for the datashare is removed+-- from the entire account.+disassociateDataShareConsumer_disassociateEntireAccount :: Lens.Lens' DisassociateDataShareConsumer (Prelude.Maybe Prelude.Bool)+disassociateDataShareConsumer_disassociateEntireAccount = Lens.lens (\DisassociateDataShareConsumer' {disassociateEntireAccount} -> disassociateEntireAccount) (\s@DisassociateDataShareConsumer' {} a -> s {disassociateEntireAccount = a} :: DisassociateDataShareConsumer)++-- | The Amazon Resource Name (ARN) of the datashare to remove association+-- for.+disassociateDataShareConsumer_dataShareArn :: Lens.Lens' DisassociateDataShareConsumer Prelude.Text+disassociateDataShareConsumer_dataShareArn = Lens.lens (\DisassociateDataShareConsumer' {dataShareArn} -> dataShareArn) (\s@DisassociateDataShareConsumer' {} a -> s {dataShareArn = a} :: DisassociateDataShareConsumer)++instance+ Core.AWSRequest+ DisassociateDataShareConsumer+ where+ type+ AWSResponse DisassociateDataShareConsumer =+ DataShare+ request overrides =+ Request.postQuery (overrides defaultService)+ response =+ Response.receiveXMLWrapper+ "DisassociateDataShareConsumerResult"+ (\s h x -> Data.parseXML x)++instance+ Prelude.Hashable+ DisassociateDataShareConsumer+ where+ hashWithSalt _salt DisassociateDataShareConsumer' {..} =+ _salt+ `Prelude.hashWithSalt` consumerArn+ `Prelude.hashWithSalt` consumerRegion+ `Prelude.hashWithSalt` disassociateEntireAccount+ `Prelude.hashWithSalt` dataShareArn++instance Prelude.NFData DisassociateDataShareConsumer where+ rnf DisassociateDataShareConsumer' {..} =+ Prelude.rnf consumerArn+ `Prelude.seq` Prelude.rnf consumerRegion+ `Prelude.seq` Prelude.rnf disassociateEntireAccount+ `Prelude.seq` Prelude.rnf dataShareArn++instance Data.ToHeaders DisassociateDataShareConsumer where+ toHeaders = Prelude.const Prelude.mempty++instance Data.ToPath DisassociateDataShareConsumer where+ toPath = Prelude.const "/"++instance Data.ToQuery DisassociateDataShareConsumer where+ toQuery DisassociateDataShareConsumer' {..} =+ Prelude.mconcat+ [ "Action"+ Data.=: ( "DisassociateDataShareConsumer" ::+ Prelude.ByteString+ ),+ "Version"+ Data.=: ("2012-12-01" :: Prelude.ByteString),+ "ConsumerArn" Data.=: consumerArn,+ "ConsumerRegion" Data.=: consumerRegion,+ "DisassociateEntireAccount"+ Data.=: disassociateEntireAccount,+ "DataShareArn" Data.=: dataShareArn+ ]
+ gen/Amazonka/Redshift/EnableLogging.hs view
@@ -0,0 +1,258 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module : Amazonka.Redshift.EnableLogging+-- Copyright : (c) 2013-2023 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Starts logging information, such as queries and connection attempts, for+-- the specified Amazon Redshift cluster.+module Amazonka.Redshift.EnableLogging+ ( -- * Creating a Request+ EnableLogging (..),+ newEnableLogging,++ -- * Request Lenses+ enableLogging_bucketName,+ enableLogging_logDestinationType,+ enableLogging_logExports,+ enableLogging_s3KeyPrefix,+ enableLogging_clusterIdentifier,++ -- * Destructuring the Response+ LoggingStatus (..),+ newLoggingStatus,++ -- * Response Lenses+ loggingStatus_bucketName,+ loggingStatus_lastFailureMessage,+ loggingStatus_lastFailureTime,+ loggingStatus_lastSuccessfulDeliveryTime,+ loggingStatus_logDestinationType,+ loggingStatus_logExports,+ loggingStatus_loggingEnabled,+ loggingStatus_s3KeyPrefix,+ )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Redshift.Types+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- |+--+-- /See:/ 'newEnableLogging' smart constructor.+data EnableLogging = EnableLogging'+ { -- | The name of an existing S3 bucket where the log files are to be stored.+ --+ -- Constraints:+ --+ -- - Must be in the same region as the cluster+ --+ -- - The cluster must have read bucket and put object permissions+ bucketName :: Prelude.Maybe Prelude.Text,+ -- | The log destination type. An enum with possible values of @s3@ and+ -- @cloudwatch@.+ logDestinationType :: Prelude.Maybe LogDestinationType,+ -- | The collection of exported log types. Log types include the connection+ -- log, user log and user activity log.+ logExports :: Prelude.Maybe [Prelude.Text],+ -- | The prefix applied to the log file names.+ --+ -- Constraints:+ --+ -- - Cannot exceed 512 characters+ --+ -- - Cannot contain spaces( ), double quotes (\"), single quotes (\'), a+ -- backslash (\\), or control characters. The hexadecimal codes for+ -- invalid characters are:+ --+ -- - x00 to x20+ --+ -- - x22+ --+ -- - x27+ --+ -- - x5c+ --+ -- - x7f or larger+ s3KeyPrefix :: Prelude.Maybe Prelude.Text,+ -- | The identifier of the cluster on which logging is to be started.+ --+ -- Example: @examplecluster@+ clusterIdentifier :: Prelude.Text+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'EnableLogging' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'bucketName', 'enableLogging_bucketName' - The name of an existing S3 bucket where the log files are to be stored.+--+-- Constraints:+--+-- - Must be in the same region as the cluster+--+-- - The cluster must have read bucket and put object permissions+--+-- 'logDestinationType', 'enableLogging_logDestinationType' - The log destination type. An enum with possible values of @s3@ and+-- @cloudwatch@.+--+-- 'logExports', 'enableLogging_logExports' - The collection of exported log types. Log types include the connection+-- log, user log and user activity log.+--+-- 's3KeyPrefix', 'enableLogging_s3KeyPrefix' - The prefix applied to the log file names.+--+-- Constraints:+--+-- - Cannot exceed 512 characters+--+-- - Cannot contain spaces( ), double quotes (\"), single quotes (\'), a+-- backslash (\\), or control characters. The hexadecimal codes for+-- invalid characters are:+--+-- - x00 to x20+--+-- - x22+--+-- - x27+--+-- - x5c+--+-- - x7f or larger+--+-- 'clusterIdentifier', 'enableLogging_clusterIdentifier' - The identifier of the cluster on which logging is to be started.+--+-- Example: @examplecluster@+newEnableLogging ::+ -- | 'clusterIdentifier'+ Prelude.Text ->+ EnableLogging+newEnableLogging pClusterIdentifier_ =+ EnableLogging'+ { bucketName = Prelude.Nothing,+ logDestinationType = Prelude.Nothing,+ logExports = Prelude.Nothing,+ s3KeyPrefix = Prelude.Nothing,+ clusterIdentifier = pClusterIdentifier_+ }++-- | The name of an existing S3 bucket where the log files are to be stored.+--+-- Constraints:+--+-- - Must be in the same region as the cluster+--+-- - The cluster must have read bucket and put object permissions+enableLogging_bucketName :: Lens.Lens' EnableLogging (Prelude.Maybe Prelude.Text)+enableLogging_bucketName = Lens.lens (\EnableLogging' {bucketName} -> bucketName) (\s@EnableLogging' {} a -> s {bucketName = a} :: EnableLogging)++-- | The log destination type. An enum with possible values of @s3@ and+-- @cloudwatch@.+enableLogging_logDestinationType :: Lens.Lens' EnableLogging (Prelude.Maybe LogDestinationType)+enableLogging_logDestinationType = Lens.lens (\EnableLogging' {logDestinationType} -> logDestinationType) (\s@EnableLogging' {} a -> s {logDestinationType = a} :: EnableLogging)++-- | The collection of exported log types. Log types include the connection+-- log, user log and user activity log.+enableLogging_logExports :: Lens.Lens' EnableLogging (Prelude.Maybe [Prelude.Text])+enableLogging_logExports = Lens.lens (\EnableLogging' {logExports} -> logExports) (\s@EnableLogging' {} a -> s {logExports = a} :: EnableLogging) Prelude.. Lens.mapping Lens.coerced++-- | The prefix applied to the log file names.+--+-- Constraints:+--+-- - Cannot exceed 512 characters+--+-- - Cannot contain spaces( ), double quotes (\"), single quotes (\'), a+-- backslash (\\), or control characters. The hexadecimal codes for+-- invalid characters are:+--+-- - x00 to x20+--+-- - x22+--+-- - x27+--+-- - x5c+--+-- - x7f or larger+enableLogging_s3KeyPrefix :: Lens.Lens' EnableLogging (Prelude.Maybe Prelude.Text)+enableLogging_s3KeyPrefix = Lens.lens (\EnableLogging' {s3KeyPrefix} -> s3KeyPrefix) (\s@EnableLogging' {} a -> s {s3KeyPrefix = a} :: EnableLogging)++-- | The identifier of the cluster on which logging is to be started.+--+-- Example: @examplecluster@+enableLogging_clusterIdentifier :: Lens.Lens' EnableLogging Prelude.Text+enableLogging_clusterIdentifier = Lens.lens (\EnableLogging' {clusterIdentifier} -> clusterIdentifier) (\s@EnableLogging' {} a -> s {clusterIdentifier = a} :: EnableLogging)++instance Core.AWSRequest EnableLogging where+ type AWSResponse EnableLogging = LoggingStatus+ request overrides =+ Request.postQuery (overrides defaultService)+ response =+ Response.receiveXMLWrapper+ "EnableLoggingResult"+ (\s h x -> Data.parseXML x)++instance Prelude.Hashable EnableLogging where+ hashWithSalt _salt EnableLogging' {..} =+ _salt+ `Prelude.hashWithSalt` bucketName+ `Prelude.hashWithSalt` logDestinationType+ `Prelude.hashWithSalt` logExports+ `Prelude.hashWithSalt` s3KeyPrefix+ `Prelude.hashWithSalt` clusterIdentifier++instance Prelude.NFData EnableLogging where+ rnf EnableLogging' {..} =+ Prelude.rnf bucketName+ `Prelude.seq` Prelude.rnf logDestinationType+ `Prelude.seq` Prelude.rnf logExports+ `Prelude.seq` Prelude.rnf s3KeyPrefix+ `Prelude.seq` Prelude.rnf clusterIdentifier++instance Data.ToHeaders EnableLogging where+ toHeaders = Prelude.const Prelude.mempty++instance Data.ToPath EnableLogging where+ toPath = Prelude.const "/"++instance Data.ToQuery EnableLogging where+ toQuery EnableLogging' {..} =+ Prelude.mconcat+ [ "Action"+ Data.=: ("EnableLogging" :: Prelude.ByteString),+ "Version"+ Data.=: ("2012-12-01" :: Prelude.ByteString),+ "BucketName" Data.=: bucketName,+ "LogDestinationType" Data.=: logDestinationType,+ "LogExports"+ Data.=: Data.toQuery+ (Data.toQueryList "member" Prelude.<$> logExports),+ "S3KeyPrefix" Data.=: s3KeyPrefix,+ "ClusterIdentifier" Data.=: clusterIdentifier+ ]
+ gen/Amazonka/Redshift/EnableSnapshotCopy.hs view
@@ -0,0 +1,282 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module : Amazonka.Redshift.EnableSnapshotCopy+-- Copyright : (c) 2013-2023 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Enables the automatic copy of snapshots from one region to another+-- region for a specified cluster.+module Amazonka.Redshift.EnableSnapshotCopy+ ( -- * Creating a Request+ EnableSnapshotCopy (..),+ newEnableSnapshotCopy,++ -- * Request Lenses+ enableSnapshotCopy_manualSnapshotRetentionPeriod,+ enableSnapshotCopy_retentionPeriod,+ enableSnapshotCopy_snapshotCopyGrantName,+ enableSnapshotCopy_clusterIdentifier,+ enableSnapshotCopy_destinationRegion,++ -- * Destructuring the Response+ EnableSnapshotCopyResponse (..),+ newEnableSnapshotCopyResponse,++ -- * Response Lenses+ enableSnapshotCopyResponse_cluster,+ enableSnapshotCopyResponse_httpStatus,+ )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Redshift.Types+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- |+--+-- /See:/ 'newEnableSnapshotCopy' smart constructor.+data EnableSnapshotCopy = EnableSnapshotCopy'+ { -- | The number of days to retain newly copied snapshots in the destination+ -- Amazon Web Services Region after they are copied from the source Amazon+ -- Web Services Region. If the value is -1, the manual snapshot is retained+ -- indefinitely.+ --+ -- The value must be either -1 or an integer between 1 and 3,653.+ manualSnapshotRetentionPeriod :: Prelude.Maybe Prelude.Int,+ -- | The number of days to retain automated snapshots in the destination+ -- region after they are copied from the source region.+ --+ -- Default: 7.+ --+ -- Constraints: Must be at least 1 and no more than 35.+ retentionPeriod :: Prelude.Maybe Prelude.Int,+ -- | The name of the snapshot copy grant to use when snapshots of an Amazon+ -- Web Services KMS-encrypted cluster are copied to the destination region.+ snapshotCopyGrantName :: Prelude.Maybe Prelude.Text,+ -- | The unique identifier of the source cluster to copy snapshots from.+ --+ -- Constraints: Must be the valid name of an existing cluster that does not+ -- already have cross-region snapshot copy enabled.+ clusterIdentifier :: Prelude.Text,+ -- | The destination Amazon Web Services Region that you want to copy+ -- snapshots to.+ --+ -- Constraints: Must be the name of a valid Amazon Web Services Region. For+ -- more information, see+ -- <https://docs.aws.amazon.com/general/latest/gr/rande.html#redshift_region Regions and Endpoints>+ -- in the Amazon Web Services General Reference.+ destinationRegion :: Prelude.Text+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'EnableSnapshotCopy' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'manualSnapshotRetentionPeriod', 'enableSnapshotCopy_manualSnapshotRetentionPeriod' - The number of days to retain newly copied snapshots in the destination+-- Amazon Web Services Region after they are copied from the source Amazon+-- Web Services Region. If the value is -1, the manual snapshot is retained+-- indefinitely.+--+-- The value must be either -1 or an integer between 1 and 3,653.+--+-- 'retentionPeriod', 'enableSnapshotCopy_retentionPeriod' - The number of days to retain automated snapshots in the destination+-- region after they are copied from the source region.+--+-- Default: 7.+--+-- Constraints: Must be at least 1 and no more than 35.+--+-- 'snapshotCopyGrantName', 'enableSnapshotCopy_snapshotCopyGrantName' - The name of the snapshot copy grant to use when snapshots of an Amazon+-- Web Services KMS-encrypted cluster are copied to the destination region.+--+-- 'clusterIdentifier', 'enableSnapshotCopy_clusterIdentifier' - The unique identifier of the source cluster to copy snapshots from.+--+-- Constraints: Must be the valid name of an existing cluster that does not+-- already have cross-region snapshot copy enabled.+--+-- 'destinationRegion', 'enableSnapshotCopy_destinationRegion' - The destination Amazon Web Services Region that you want to copy+-- snapshots to.+--+-- Constraints: Must be the name of a valid Amazon Web Services Region. For+-- more information, see+-- <https://docs.aws.amazon.com/general/latest/gr/rande.html#redshift_region Regions and Endpoints>+-- in the Amazon Web Services General Reference.+newEnableSnapshotCopy ::+ -- | 'clusterIdentifier'+ Prelude.Text ->+ -- | 'destinationRegion'+ Prelude.Text ->+ EnableSnapshotCopy+newEnableSnapshotCopy+ pClusterIdentifier_+ pDestinationRegion_ =+ EnableSnapshotCopy'+ { manualSnapshotRetentionPeriod =+ Prelude.Nothing,+ retentionPeriod = Prelude.Nothing,+ snapshotCopyGrantName = Prelude.Nothing,+ clusterIdentifier = pClusterIdentifier_,+ destinationRegion = pDestinationRegion_+ }++-- | The number of days to retain newly copied snapshots in the destination+-- Amazon Web Services Region after they are copied from the source Amazon+-- Web Services Region. If the value is -1, the manual snapshot is retained+-- indefinitely.+--+-- The value must be either -1 or an integer between 1 and 3,653.+enableSnapshotCopy_manualSnapshotRetentionPeriod :: Lens.Lens' EnableSnapshotCopy (Prelude.Maybe Prelude.Int)+enableSnapshotCopy_manualSnapshotRetentionPeriod = Lens.lens (\EnableSnapshotCopy' {manualSnapshotRetentionPeriod} -> manualSnapshotRetentionPeriod) (\s@EnableSnapshotCopy' {} a -> s {manualSnapshotRetentionPeriod = a} :: EnableSnapshotCopy)++-- | The number of days to retain automated snapshots in the destination+-- region after they are copied from the source region.+--+-- Default: 7.+--+-- Constraints: Must be at least 1 and no more than 35.+enableSnapshotCopy_retentionPeriod :: Lens.Lens' EnableSnapshotCopy (Prelude.Maybe Prelude.Int)+enableSnapshotCopy_retentionPeriod = Lens.lens (\EnableSnapshotCopy' {retentionPeriod} -> retentionPeriod) (\s@EnableSnapshotCopy' {} a -> s {retentionPeriod = a} :: EnableSnapshotCopy)++-- | The name of the snapshot copy grant to use when snapshots of an Amazon+-- Web Services KMS-encrypted cluster are copied to the destination region.+enableSnapshotCopy_snapshotCopyGrantName :: Lens.Lens' EnableSnapshotCopy (Prelude.Maybe Prelude.Text)+enableSnapshotCopy_snapshotCopyGrantName = Lens.lens (\EnableSnapshotCopy' {snapshotCopyGrantName} -> snapshotCopyGrantName) (\s@EnableSnapshotCopy' {} a -> s {snapshotCopyGrantName = a} :: EnableSnapshotCopy)++-- | The unique identifier of the source cluster to copy snapshots from.+--+-- Constraints: Must be the valid name of an existing cluster that does not+-- already have cross-region snapshot copy enabled.+enableSnapshotCopy_clusterIdentifier :: Lens.Lens' EnableSnapshotCopy Prelude.Text+enableSnapshotCopy_clusterIdentifier = Lens.lens (\EnableSnapshotCopy' {clusterIdentifier} -> clusterIdentifier) (\s@EnableSnapshotCopy' {} a -> s {clusterIdentifier = a} :: EnableSnapshotCopy)++-- | The destination Amazon Web Services Region that you want to copy+-- snapshots to.+--+-- Constraints: Must be the name of a valid Amazon Web Services Region. For+-- more information, see+-- <https://docs.aws.amazon.com/general/latest/gr/rande.html#redshift_region Regions and Endpoints>+-- in the Amazon Web Services General Reference.+enableSnapshotCopy_destinationRegion :: Lens.Lens' EnableSnapshotCopy Prelude.Text+enableSnapshotCopy_destinationRegion = Lens.lens (\EnableSnapshotCopy' {destinationRegion} -> destinationRegion) (\s@EnableSnapshotCopy' {} a -> s {destinationRegion = a} :: EnableSnapshotCopy)++instance Core.AWSRequest EnableSnapshotCopy where+ type+ AWSResponse EnableSnapshotCopy =+ EnableSnapshotCopyResponse+ request overrides =+ Request.postQuery (overrides defaultService)+ response =+ Response.receiveXMLWrapper+ "EnableSnapshotCopyResult"+ ( \s h x ->+ EnableSnapshotCopyResponse'+ Prelude.<$> (x Data..@? "Cluster")+ Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+ )++instance Prelude.Hashable EnableSnapshotCopy where+ hashWithSalt _salt EnableSnapshotCopy' {..} =+ _salt+ `Prelude.hashWithSalt` manualSnapshotRetentionPeriod+ `Prelude.hashWithSalt` retentionPeriod+ `Prelude.hashWithSalt` snapshotCopyGrantName+ `Prelude.hashWithSalt` clusterIdentifier+ `Prelude.hashWithSalt` destinationRegion++instance Prelude.NFData EnableSnapshotCopy where+ rnf EnableSnapshotCopy' {..} =+ Prelude.rnf manualSnapshotRetentionPeriod+ `Prelude.seq` Prelude.rnf retentionPeriod+ `Prelude.seq` Prelude.rnf snapshotCopyGrantName+ `Prelude.seq` Prelude.rnf clusterIdentifier+ `Prelude.seq` Prelude.rnf destinationRegion++instance Data.ToHeaders EnableSnapshotCopy where+ toHeaders = Prelude.const Prelude.mempty++instance Data.ToPath EnableSnapshotCopy where+ toPath = Prelude.const "/"++instance Data.ToQuery EnableSnapshotCopy where+ toQuery EnableSnapshotCopy' {..} =+ Prelude.mconcat+ [ "Action"+ Data.=: ("EnableSnapshotCopy" :: Prelude.ByteString),+ "Version"+ Data.=: ("2012-12-01" :: Prelude.ByteString),+ "ManualSnapshotRetentionPeriod"+ Data.=: manualSnapshotRetentionPeriod,+ "RetentionPeriod" Data.=: retentionPeriod,+ "SnapshotCopyGrantName"+ Data.=: snapshotCopyGrantName,+ "ClusterIdentifier" Data.=: clusterIdentifier,+ "DestinationRegion" Data.=: destinationRegion+ ]++-- | /See:/ 'newEnableSnapshotCopyResponse' smart constructor.+data EnableSnapshotCopyResponse = EnableSnapshotCopyResponse'+ { cluster :: Prelude.Maybe Cluster,+ -- | The response's http status code.+ httpStatus :: Prelude.Int+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'EnableSnapshotCopyResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'cluster', 'enableSnapshotCopyResponse_cluster' - Undocumented member.+--+-- 'httpStatus', 'enableSnapshotCopyResponse_httpStatus' - The response's http status code.+newEnableSnapshotCopyResponse ::+ -- | 'httpStatus'+ Prelude.Int ->+ EnableSnapshotCopyResponse+newEnableSnapshotCopyResponse pHttpStatus_ =+ EnableSnapshotCopyResponse'+ { cluster =+ Prelude.Nothing,+ httpStatus = pHttpStatus_+ }++-- | Undocumented member.+enableSnapshotCopyResponse_cluster :: Lens.Lens' EnableSnapshotCopyResponse (Prelude.Maybe Cluster)+enableSnapshotCopyResponse_cluster = Lens.lens (\EnableSnapshotCopyResponse' {cluster} -> cluster) (\s@EnableSnapshotCopyResponse' {} a -> s {cluster = a} :: EnableSnapshotCopyResponse)++-- | The response's http status code.+enableSnapshotCopyResponse_httpStatus :: Lens.Lens' EnableSnapshotCopyResponse Prelude.Int+enableSnapshotCopyResponse_httpStatus = Lens.lens (\EnableSnapshotCopyResponse' {httpStatus} -> httpStatus) (\s@EnableSnapshotCopyResponse' {} a -> s {httpStatus = a} :: EnableSnapshotCopyResponse)++instance Prelude.NFData EnableSnapshotCopyResponse where+ rnf EnableSnapshotCopyResponse' {..} =+ Prelude.rnf cluster+ `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/Redshift/GetClusterCredentials.hs view
@@ -0,0 +1,504 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module : Amazonka.Redshift.GetClusterCredentials+-- Copyright : (c) 2013-2023 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Returns a database user name and temporary password with temporary+-- authorization to log on to an Amazon Redshift database. The action+-- returns the database user name prefixed with @IAM:@ if @AutoCreate@ is+-- @False@ or @IAMA:@ if @AutoCreate@ is @True@. You can optionally specify+-- one or more database user groups that the user will join at log on. By+-- default, the temporary credentials expire in 900 seconds. You can+-- optionally specify a duration between 900 seconds (15 minutes) and 3600+-- seconds (60 minutes). For more information, see+-- <https://docs.aws.amazon.com/redshift/latest/mgmt/generating-user-credentials.html Using IAM Authentication to Generate Database User Credentials>+-- in the Amazon Redshift Cluster Management Guide.+--+-- The Identity and Access Management (IAM) user or role that runs+-- GetClusterCredentials must have an IAM policy attached that allows+-- access to all necessary actions and resources. For more information+-- about permissions, see+-- <https://docs.aws.amazon.com/redshift/latest/mgmt/redshift-iam-access-control-identity-based.html#redshift-policy-resources.getclustercredentials-resources Resource Policies for GetClusterCredentials>+-- in the Amazon Redshift Cluster Management Guide.+--+-- If the @DbGroups@ parameter is specified, the IAM policy must allow the+-- @redshift:JoinGroup@ action with access to the listed @dbgroups@.+--+-- In addition, if the @AutoCreate@ parameter is set to @True@, then the+-- policy must include the @redshift:CreateClusterUser@ permission.+--+-- If the @DbName@ parameter is specified, the IAM policy must allow access+-- to the resource @dbname@ for the specified database name.+module Amazonka.Redshift.GetClusterCredentials+ ( -- * Creating a Request+ GetClusterCredentials (..),+ newGetClusterCredentials,++ -- * Request Lenses+ getClusterCredentials_autoCreate,+ getClusterCredentials_dbGroups,+ getClusterCredentials_dbName,+ getClusterCredentials_durationSeconds,+ getClusterCredentials_dbUser,+ getClusterCredentials_clusterIdentifier,++ -- * Destructuring the Response+ GetClusterCredentialsResponse (..),+ newGetClusterCredentialsResponse,++ -- * Response Lenses+ getClusterCredentialsResponse_dbPassword,+ getClusterCredentialsResponse_dbUser,+ getClusterCredentialsResponse_expiration,+ getClusterCredentialsResponse_httpStatus,+ )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Redshift.Types+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | The request parameters to get cluster credentials.+--+-- /See:/ 'newGetClusterCredentials' smart constructor.+data GetClusterCredentials = GetClusterCredentials'+ { -- | Create a database user with the name specified for the user named in+ -- @DbUser@ if one does not exist.+ autoCreate :: Prelude.Maybe Prelude.Bool,+ -- | A list of the names of existing database groups that the user named in+ -- @DbUser@ will join for the current session, in addition to any group+ -- memberships for an existing user. If not specified, a new user is added+ -- only to PUBLIC.+ --+ -- Database group name constraints+ --+ -- - Must be 1 to 64 alphanumeric characters or hyphens+ --+ -- - Must contain only lowercase letters, numbers, underscore, plus sign,+ -- period (dot), at symbol (\@), or hyphen.+ --+ -- - First character must be a letter.+ --+ -- - Must not contain a colon ( : ) or slash ( \/ ).+ --+ -- - Cannot be a reserved word. A list of reserved words can be found in+ -- <http://docs.aws.amazon.com/redshift/latest/dg/r_pg_keywords.html Reserved Words>+ -- in the Amazon Redshift Database Developer Guide.+ dbGroups :: Prelude.Maybe [Prelude.Text],+ -- | The name of a database that @DbUser@ is authorized to log on to. If+ -- @DbName@ is not specified, @DbUser@ can log on to any existing database.+ --+ -- Constraints:+ --+ -- - Must be 1 to 64 alphanumeric characters or hyphens+ --+ -- - Must contain uppercase or lowercase letters, numbers, underscore,+ -- plus sign, period (dot), at symbol (\@), or hyphen.+ --+ -- - First character must be a letter.+ --+ -- - Must not contain a colon ( : ) or slash ( \/ ).+ --+ -- - Cannot be a reserved word. A list of reserved words can be found in+ -- <http://docs.aws.amazon.com/redshift/latest/dg/r_pg_keywords.html Reserved Words>+ -- in the Amazon Redshift Database Developer Guide.+ dbName :: Prelude.Maybe Prelude.Text,+ -- | The number of seconds until the returned temporary password expires.+ --+ -- Constraint: minimum 900, maximum 3600.+ --+ -- Default: 900+ durationSeconds :: Prelude.Maybe Prelude.Int,+ -- | The name of a database user. If a user name matching @DbUser@ exists in+ -- the database, the temporary user credentials have the same permissions+ -- as the existing user. If @DbUser@ doesn\'t exist in the database and+ -- @Autocreate@ is @True@, a new user is created using the value for+ -- @DbUser@ with PUBLIC permissions. If a database user matching the value+ -- for @DbUser@ doesn\'t exist and @Autocreate@ is @False@, then the+ -- command succeeds but the connection attempt will fail because the user+ -- doesn\'t exist in the database.+ --+ -- For more information, see+ -- <https://docs.aws.amazon.com/redshift/latest/dg/r_CREATE_USER.html CREATE USER>+ -- in the Amazon Redshift Database Developer Guide.+ --+ -- Constraints:+ --+ -- - Must be 1 to 64 alphanumeric characters or hyphens. The user name+ -- can\'t be @PUBLIC@.+ --+ -- - Must contain uppercase or lowercase letters, numbers, underscore,+ -- plus sign, period (dot), at symbol (\@), or hyphen.+ --+ -- - First character must be a letter.+ --+ -- - Must not contain a colon ( : ) or slash ( \/ ).+ --+ -- - Cannot be a reserved word. A list of reserved words can be found in+ -- <http://docs.aws.amazon.com/redshift/latest/dg/r_pg_keywords.html Reserved Words>+ -- in the Amazon Redshift Database Developer Guide.+ dbUser :: Prelude.Text,+ -- | The unique identifier of the cluster that contains the database for+ -- which you are requesting credentials. This parameter is case sensitive.+ clusterIdentifier :: Prelude.Text+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'GetClusterCredentials' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'autoCreate', 'getClusterCredentials_autoCreate' - Create a database user with the name specified for the user named in+-- @DbUser@ if one does not exist.+--+-- 'dbGroups', 'getClusterCredentials_dbGroups' - A list of the names of existing database groups that the user named in+-- @DbUser@ will join for the current session, in addition to any group+-- memberships for an existing user. If not specified, a new user is added+-- only to PUBLIC.+--+-- Database group name constraints+--+-- - Must be 1 to 64 alphanumeric characters or hyphens+--+-- - Must contain only lowercase letters, numbers, underscore, plus sign,+-- period (dot), at symbol (\@), or hyphen.+--+-- - First character must be a letter.+--+-- - Must not contain a colon ( : ) or slash ( \/ ).+--+-- - Cannot be a reserved word. A list of reserved words can be found in+-- <http://docs.aws.amazon.com/redshift/latest/dg/r_pg_keywords.html Reserved Words>+-- in the Amazon Redshift Database Developer Guide.+--+-- 'dbName', 'getClusterCredentials_dbName' - The name of a database that @DbUser@ is authorized to log on to. If+-- @DbName@ is not specified, @DbUser@ can log on to any existing database.+--+-- Constraints:+--+-- - Must be 1 to 64 alphanumeric characters or hyphens+--+-- - Must contain uppercase or lowercase letters, numbers, underscore,+-- plus sign, period (dot), at symbol (\@), or hyphen.+--+-- - First character must be a letter.+--+-- - Must not contain a colon ( : ) or slash ( \/ ).+--+-- - Cannot be a reserved word. A list of reserved words can be found in+-- <http://docs.aws.amazon.com/redshift/latest/dg/r_pg_keywords.html Reserved Words>+-- in the Amazon Redshift Database Developer Guide.+--+-- 'durationSeconds', 'getClusterCredentials_durationSeconds' - The number of seconds until the returned temporary password expires.+--+-- Constraint: minimum 900, maximum 3600.+--+-- Default: 900+--+-- 'dbUser', 'getClusterCredentials_dbUser' - The name of a database user. If a user name matching @DbUser@ exists in+-- the database, the temporary user credentials have the same permissions+-- as the existing user. If @DbUser@ doesn\'t exist in the database and+-- @Autocreate@ is @True@, a new user is created using the value for+-- @DbUser@ with PUBLIC permissions. If a database user matching the value+-- for @DbUser@ doesn\'t exist and @Autocreate@ is @False@, then the+-- command succeeds but the connection attempt will fail because the user+-- doesn\'t exist in the database.+--+-- For more information, see+-- <https://docs.aws.amazon.com/redshift/latest/dg/r_CREATE_USER.html CREATE USER>+-- in the Amazon Redshift Database Developer Guide.+--+-- Constraints:+--+-- - Must be 1 to 64 alphanumeric characters or hyphens. The user name+-- can\'t be @PUBLIC@.+--+-- - Must contain uppercase or lowercase letters, numbers, underscore,+-- plus sign, period (dot), at symbol (\@), or hyphen.+--+-- - First character must be a letter.+--+-- - Must not contain a colon ( : ) or slash ( \/ ).+--+-- - Cannot be a reserved word. A list of reserved words can be found in+-- <http://docs.aws.amazon.com/redshift/latest/dg/r_pg_keywords.html Reserved Words>+-- in the Amazon Redshift Database Developer Guide.+--+-- 'clusterIdentifier', 'getClusterCredentials_clusterIdentifier' - The unique identifier of the cluster that contains the database for+-- which you are requesting credentials. This parameter is case sensitive.+newGetClusterCredentials ::+ -- | 'dbUser'+ Prelude.Text ->+ -- | 'clusterIdentifier'+ Prelude.Text ->+ GetClusterCredentials+newGetClusterCredentials pDbUser_ pClusterIdentifier_ =+ GetClusterCredentials'+ { autoCreate =+ Prelude.Nothing,+ dbGroups = Prelude.Nothing,+ dbName = Prelude.Nothing,+ durationSeconds = Prelude.Nothing,+ dbUser = pDbUser_,+ clusterIdentifier = pClusterIdentifier_+ }++-- | Create a database user with the name specified for the user named in+-- @DbUser@ if one does not exist.+getClusterCredentials_autoCreate :: Lens.Lens' GetClusterCredentials (Prelude.Maybe Prelude.Bool)+getClusterCredentials_autoCreate = Lens.lens (\GetClusterCredentials' {autoCreate} -> autoCreate) (\s@GetClusterCredentials' {} a -> s {autoCreate = a} :: GetClusterCredentials)++-- | A list of the names of existing database groups that the user named in+-- @DbUser@ will join for the current session, in addition to any group+-- memberships for an existing user. If not specified, a new user is added+-- only to PUBLIC.+--+-- Database group name constraints+--+-- - Must be 1 to 64 alphanumeric characters or hyphens+--+-- - Must contain only lowercase letters, numbers, underscore, plus sign,+-- period (dot), at symbol (\@), or hyphen.+--+-- - First character must be a letter.+--+-- - Must not contain a colon ( : ) or slash ( \/ ).+--+-- - Cannot be a reserved word. A list of reserved words can be found in+-- <http://docs.aws.amazon.com/redshift/latest/dg/r_pg_keywords.html Reserved Words>+-- in the Amazon Redshift Database Developer Guide.+getClusterCredentials_dbGroups :: Lens.Lens' GetClusterCredentials (Prelude.Maybe [Prelude.Text])+getClusterCredentials_dbGroups = Lens.lens (\GetClusterCredentials' {dbGroups} -> dbGroups) (\s@GetClusterCredentials' {} a -> s {dbGroups = a} :: GetClusterCredentials) Prelude.. Lens.mapping Lens.coerced++-- | The name of a database that @DbUser@ is authorized to log on to. If+-- @DbName@ is not specified, @DbUser@ can log on to any existing database.+--+-- Constraints:+--+-- - Must be 1 to 64 alphanumeric characters or hyphens+--+-- - Must contain uppercase or lowercase letters, numbers, underscore,+-- plus sign, period (dot), at symbol (\@), or hyphen.+--+-- - First character must be a letter.+--+-- - Must not contain a colon ( : ) or slash ( \/ ).+--+-- - Cannot be a reserved word. A list of reserved words can be found in+-- <http://docs.aws.amazon.com/redshift/latest/dg/r_pg_keywords.html Reserved Words>+-- in the Amazon Redshift Database Developer Guide.+getClusterCredentials_dbName :: Lens.Lens' GetClusterCredentials (Prelude.Maybe Prelude.Text)+getClusterCredentials_dbName = Lens.lens (\GetClusterCredentials' {dbName} -> dbName) (\s@GetClusterCredentials' {} a -> s {dbName = a} :: GetClusterCredentials)++-- | The number of seconds until the returned temporary password expires.+--+-- Constraint: minimum 900, maximum 3600.+--+-- Default: 900+getClusterCredentials_durationSeconds :: Lens.Lens' GetClusterCredentials (Prelude.Maybe Prelude.Int)+getClusterCredentials_durationSeconds = Lens.lens (\GetClusterCredentials' {durationSeconds} -> durationSeconds) (\s@GetClusterCredentials' {} a -> s {durationSeconds = a} :: GetClusterCredentials)++-- | The name of a database user. If a user name matching @DbUser@ exists in+-- the database, the temporary user credentials have the same permissions+-- as the existing user. If @DbUser@ doesn\'t exist in the database and+-- @Autocreate@ is @True@, a new user is created using the value for+-- @DbUser@ with PUBLIC permissions. If a database user matching the value+-- for @DbUser@ doesn\'t exist and @Autocreate@ is @False@, then the+-- command succeeds but the connection attempt will fail because the user+-- doesn\'t exist in the database.+--+-- For more information, see+-- <https://docs.aws.amazon.com/redshift/latest/dg/r_CREATE_USER.html CREATE USER>+-- in the Amazon Redshift Database Developer Guide.+--+-- Constraints:+--+-- - Must be 1 to 64 alphanumeric characters or hyphens. The user name+-- can\'t be @PUBLIC@.+--+-- - Must contain uppercase or lowercase letters, numbers, underscore,+-- plus sign, period (dot), at symbol (\@), or hyphen.+--+-- - First character must be a letter.+--+-- - Must not contain a colon ( : ) or slash ( \/ ).+--+-- - Cannot be a reserved word. A list of reserved words can be found in+-- <http://docs.aws.amazon.com/redshift/latest/dg/r_pg_keywords.html Reserved Words>+-- in the Amazon Redshift Database Developer Guide.+getClusterCredentials_dbUser :: Lens.Lens' GetClusterCredentials Prelude.Text+getClusterCredentials_dbUser = Lens.lens (\GetClusterCredentials' {dbUser} -> dbUser) (\s@GetClusterCredentials' {} a -> s {dbUser = a} :: GetClusterCredentials)++-- | The unique identifier of the cluster that contains the database for+-- which you are requesting credentials. This parameter is case sensitive.+getClusterCredentials_clusterIdentifier :: Lens.Lens' GetClusterCredentials Prelude.Text+getClusterCredentials_clusterIdentifier = Lens.lens (\GetClusterCredentials' {clusterIdentifier} -> clusterIdentifier) (\s@GetClusterCredentials' {} a -> s {clusterIdentifier = a} :: GetClusterCredentials)++instance Core.AWSRequest GetClusterCredentials where+ type+ AWSResponse GetClusterCredentials =+ GetClusterCredentialsResponse+ request overrides =+ Request.postQuery (overrides defaultService)+ response =+ Response.receiveXMLWrapper+ "GetClusterCredentialsResult"+ ( \s h x ->+ GetClusterCredentialsResponse'+ Prelude.<$> (x Data..@? "DbPassword")+ Prelude.<*> (x Data..@? "DbUser")+ Prelude.<*> (x Data..@? "Expiration")+ Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+ )++instance Prelude.Hashable GetClusterCredentials where+ hashWithSalt _salt GetClusterCredentials' {..} =+ _salt+ `Prelude.hashWithSalt` autoCreate+ `Prelude.hashWithSalt` dbGroups+ `Prelude.hashWithSalt` dbName+ `Prelude.hashWithSalt` durationSeconds+ `Prelude.hashWithSalt` dbUser+ `Prelude.hashWithSalt` clusterIdentifier++instance Prelude.NFData GetClusterCredentials where+ rnf GetClusterCredentials' {..} =+ Prelude.rnf autoCreate+ `Prelude.seq` Prelude.rnf dbGroups+ `Prelude.seq` Prelude.rnf dbName+ `Prelude.seq` Prelude.rnf durationSeconds+ `Prelude.seq` Prelude.rnf dbUser+ `Prelude.seq` Prelude.rnf clusterIdentifier++instance Data.ToHeaders GetClusterCredentials where+ toHeaders = Prelude.const Prelude.mempty++instance Data.ToPath GetClusterCredentials where+ toPath = Prelude.const "/"++instance Data.ToQuery GetClusterCredentials where+ toQuery GetClusterCredentials' {..} =+ Prelude.mconcat+ [ "Action"+ Data.=: ("GetClusterCredentials" :: Prelude.ByteString),+ "Version"+ Data.=: ("2012-12-01" :: Prelude.ByteString),+ "AutoCreate" Data.=: autoCreate,+ "DbGroups"+ Data.=: Data.toQuery+ (Data.toQueryList "DbGroup" Prelude.<$> dbGroups),+ "DbName" Data.=: dbName,+ "DurationSeconds" Data.=: durationSeconds,+ "DbUser" Data.=: dbUser,+ "ClusterIdentifier" Data.=: clusterIdentifier+ ]++-- | Temporary credentials with authorization to log on to an Amazon Redshift+-- database.+--+-- /See:/ 'newGetClusterCredentialsResponse' smart constructor.+data GetClusterCredentialsResponse = GetClusterCredentialsResponse'+ { -- | A temporary password that authorizes the user name returned by @DbUser@+ -- to log on to the database @DbName@.+ dbPassword :: Prelude.Maybe (Data.Sensitive Prelude.Text),+ -- | A database user name that is authorized to log on to the database+ -- @DbName@ using the password @DbPassword@. If the specified DbUser exists+ -- in the database, the new user name has the same database permissions as+ -- the the user named in DbUser. By default, the user is added to PUBLIC.+ -- If the @DbGroups@ parameter is specifed, @DbUser@ is added to the listed+ -- groups for any sessions created using these credentials.+ dbUser :: Prelude.Maybe Prelude.Text,+ -- | The date and time the password in @DbPassword@ expires.+ expiration :: Prelude.Maybe Data.ISO8601,+ -- | The response's http status code.+ httpStatus :: Prelude.Int+ }+ deriving (Prelude.Eq, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'GetClusterCredentialsResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'dbPassword', 'getClusterCredentialsResponse_dbPassword' - A temporary password that authorizes the user name returned by @DbUser@+-- to log on to the database @DbName@.+--+-- 'dbUser', 'getClusterCredentialsResponse_dbUser' - A database user name that is authorized to log on to the database+-- @DbName@ using the password @DbPassword@. If the specified DbUser exists+-- in the database, the new user name has the same database permissions as+-- the the user named in DbUser. By default, the user is added to PUBLIC.+-- If the @DbGroups@ parameter is specifed, @DbUser@ is added to the listed+-- groups for any sessions created using these credentials.+--+-- 'expiration', 'getClusterCredentialsResponse_expiration' - The date and time the password in @DbPassword@ expires.+--+-- 'httpStatus', 'getClusterCredentialsResponse_httpStatus' - The response's http status code.+newGetClusterCredentialsResponse ::+ -- | 'httpStatus'+ Prelude.Int ->+ GetClusterCredentialsResponse+newGetClusterCredentialsResponse pHttpStatus_ =+ GetClusterCredentialsResponse'+ { dbPassword =+ Prelude.Nothing,+ dbUser = Prelude.Nothing,+ expiration = Prelude.Nothing,+ httpStatus = pHttpStatus_+ }++-- | A temporary password that authorizes the user name returned by @DbUser@+-- to log on to the database @DbName@.+getClusterCredentialsResponse_dbPassword :: Lens.Lens' GetClusterCredentialsResponse (Prelude.Maybe Prelude.Text)+getClusterCredentialsResponse_dbPassword = Lens.lens (\GetClusterCredentialsResponse' {dbPassword} -> dbPassword) (\s@GetClusterCredentialsResponse' {} a -> s {dbPassword = a} :: GetClusterCredentialsResponse) Prelude.. Lens.mapping Data._Sensitive++-- | A database user name that is authorized to log on to the database+-- @DbName@ using the password @DbPassword@. If the specified DbUser exists+-- in the database, the new user name has the same database permissions as+-- the the user named in DbUser. By default, the user is added to PUBLIC.+-- If the @DbGroups@ parameter is specifed, @DbUser@ is added to the listed+-- groups for any sessions created using these credentials.+getClusterCredentialsResponse_dbUser :: Lens.Lens' GetClusterCredentialsResponse (Prelude.Maybe Prelude.Text)+getClusterCredentialsResponse_dbUser = Lens.lens (\GetClusterCredentialsResponse' {dbUser} -> dbUser) (\s@GetClusterCredentialsResponse' {} a -> s {dbUser = a} :: GetClusterCredentialsResponse)++-- | The date and time the password in @DbPassword@ expires.+getClusterCredentialsResponse_expiration :: Lens.Lens' GetClusterCredentialsResponse (Prelude.Maybe Prelude.UTCTime)+getClusterCredentialsResponse_expiration = Lens.lens (\GetClusterCredentialsResponse' {expiration} -> expiration) (\s@GetClusterCredentialsResponse' {} a -> s {expiration = a} :: GetClusterCredentialsResponse) Prelude.. Lens.mapping Data._Time++-- | The response's http status code.+getClusterCredentialsResponse_httpStatus :: Lens.Lens' GetClusterCredentialsResponse Prelude.Int+getClusterCredentialsResponse_httpStatus = Lens.lens (\GetClusterCredentialsResponse' {httpStatus} -> httpStatus) (\s@GetClusterCredentialsResponse' {} a -> s {httpStatus = a} :: GetClusterCredentialsResponse)++instance Prelude.NFData GetClusterCredentialsResponse where+ rnf GetClusterCredentialsResponse' {..} =+ Prelude.rnf dbPassword+ `Prelude.seq` Prelude.rnf dbUser+ `Prelude.seq` Prelude.rnf expiration+ `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/Redshift/GetClusterCredentialsWithIAM.hs view
@@ -0,0 +1,268 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module : Amazonka.Redshift.GetClusterCredentialsWithIAM+-- Copyright : (c) 2013-2023 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Returns a database user name and temporary password with temporary+-- authorization to log in to an Amazon Redshift database. The database+-- user is mapped 1:1 to the source Identity and Access Management (IAM)+-- identity. For more information about IAM identities, see+-- <https://docs.aws.amazon.com/IAM/latest/UserGuide/id.html IAM Identities (users, user groups, and roles)>+-- in the Amazon Web Services Identity and Access Management User Guide.+--+-- The Identity and Access Management (IAM) identity that runs this+-- operation must have an IAM policy attached that allows access to all+-- necessary actions and resources. For more information about permissions,+-- see+-- <https://docs.aws.amazon.com/redshift/latest/mgmt/redshift-iam-access-control-identity-based.html Using identity-based policies (IAM policies)>+-- in the Amazon Redshift Cluster Management Guide.+module Amazonka.Redshift.GetClusterCredentialsWithIAM+ ( -- * Creating a Request+ GetClusterCredentialsWithIAM (..),+ newGetClusterCredentialsWithIAM,++ -- * Request Lenses+ getClusterCredentialsWithIAM_dbName,+ getClusterCredentialsWithIAM_durationSeconds,+ getClusterCredentialsWithIAM_clusterIdentifier,++ -- * Destructuring the Response+ GetClusterCredentialsWithIAMResponse (..),+ newGetClusterCredentialsWithIAMResponse,++ -- * Response Lenses+ getClusterCredentialsWithIAMResponse_dbPassword,+ getClusterCredentialsWithIAMResponse_dbUser,+ getClusterCredentialsWithIAMResponse_expiration,+ getClusterCredentialsWithIAMResponse_nextRefreshTime,+ getClusterCredentialsWithIAMResponse_httpStatus,+ )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Redshift.Types+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newGetClusterCredentialsWithIAM' smart constructor.+data GetClusterCredentialsWithIAM = GetClusterCredentialsWithIAM'+ { -- | The name of the database for which you are requesting credentials. If+ -- the database name is specified, the IAM policy must allow access to the+ -- resource @dbname@ for the specified database name. If the database name+ -- is not specified, access to all databases is allowed.+ dbName :: Prelude.Maybe Prelude.Text,+ -- | The number of seconds until the returned temporary password expires.+ --+ -- Range: 900-3600. Default: 900.+ durationSeconds :: Prelude.Maybe Prelude.Int,+ -- | The unique identifier of the cluster that contains the database for+ -- which you are requesting credentials.+ clusterIdentifier :: Prelude.Text+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'GetClusterCredentialsWithIAM' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'dbName', 'getClusterCredentialsWithIAM_dbName' - The name of the database for which you are requesting credentials. If+-- the database name is specified, the IAM policy must allow access to the+-- resource @dbname@ for the specified database name. If the database name+-- is not specified, access to all databases is allowed.+--+-- 'durationSeconds', 'getClusterCredentialsWithIAM_durationSeconds' - The number of seconds until the returned temporary password expires.+--+-- Range: 900-3600. Default: 900.+--+-- 'clusterIdentifier', 'getClusterCredentialsWithIAM_clusterIdentifier' - The unique identifier of the cluster that contains the database for+-- which you are requesting credentials.+newGetClusterCredentialsWithIAM ::+ -- | 'clusterIdentifier'+ Prelude.Text ->+ GetClusterCredentialsWithIAM+newGetClusterCredentialsWithIAM pClusterIdentifier_ =+ GetClusterCredentialsWithIAM'+ { dbName =+ Prelude.Nothing,+ durationSeconds = Prelude.Nothing,+ clusterIdentifier = pClusterIdentifier_+ }++-- | The name of the database for which you are requesting credentials. If+-- the database name is specified, the IAM policy must allow access to the+-- resource @dbname@ for the specified database name. If the database name+-- is not specified, access to all databases is allowed.+getClusterCredentialsWithIAM_dbName :: Lens.Lens' GetClusterCredentialsWithIAM (Prelude.Maybe Prelude.Text)+getClusterCredentialsWithIAM_dbName = Lens.lens (\GetClusterCredentialsWithIAM' {dbName} -> dbName) (\s@GetClusterCredentialsWithIAM' {} a -> s {dbName = a} :: GetClusterCredentialsWithIAM)++-- | The number of seconds until the returned temporary password expires.+--+-- Range: 900-3600. Default: 900.+getClusterCredentialsWithIAM_durationSeconds :: Lens.Lens' GetClusterCredentialsWithIAM (Prelude.Maybe Prelude.Int)+getClusterCredentialsWithIAM_durationSeconds = Lens.lens (\GetClusterCredentialsWithIAM' {durationSeconds} -> durationSeconds) (\s@GetClusterCredentialsWithIAM' {} a -> s {durationSeconds = a} :: GetClusterCredentialsWithIAM)++-- | The unique identifier of the cluster that contains the database for+-- which you are requesting credentials.+getClusterCredentialsWithIAM_clusterIdentifier :: Lens.Lens' GetClusterCredentialsWithIAM Prelude.Text+getClusterCredentialsWithIAM_clusterIdentifier = Lens.lens (\GetClusterCredentialsWithIAM' {clusterIdentifier} -> clusterIdentifier) (\s@GetClusterCredentialsWithIAM' {} a -> s {clusterIdentifier = a} :: GetClusterCredentialsWithIAM)++instance Core.AWSRequest GetClusterCredentialsWithIAM where+ type+ AWSResponse GetClusterCredentialsWithIAM =+ GetClusterCredentialsWithIAMResponse+ request overrides =+ Request.postQuery (overrides defaultService)+ response =+ Response.receiveXMLWrapper+ "GetClusterCredentialsWithIAMResult"+ ( \s h x ->+ GetClusterCredentialsWithIAMResponse'+ Prelude.<$> (x Data..@? "DbPassword")+ Prelude.<*> (x Data..@? "DbUser")+ Prelude.<*> (x Data..@? "Expiration")+ Prelude.<*> (x Data..@? "NextRefreshTime")+ Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+ )++instance+ Prelude.Hashable+ GetClusterCredentialsWithIAM+ where+ hashWithSalt _salt GetClusterCredentialsWithIAM' {..} =+ _salt+ `Prelude.hashWithSalt` dbName+ `Prelude.hashWithSalt` durationSeconds+ `Prelude.hashWithSalt` clusterIdentifier++instance Prelude.NFData GetClusterCredentialsWithIAM where+ rnf GetClusterCredentialsWithIAM' {..} =+ Prelude.rnf dbName+ `Prelude.seq` Prelude.rnf durationSeconds+ `Prelude.seq` Prelude.rnf clusterIdentifier++instance Data.ToHeaders GetClusterCredentialsWithIAM where+ toHeaders = Prelude.const Prelude.mempty++instance Data.ToPath GetClusterCredentialsWithIAM where+ toPath = Prelude.const "/"++instance Data.ToQuery GetClusterCredentialsWithIAM where+ toQuery GetClusterCredentialsWithIAM' {..} =+ Prelude.mconcat+ [ "Action"+ Data.=: ( "GetClusterCredentialsWithIAM" ::+ Prelude.ByteString+ ),+ "Version"+ Data.=: ("2012-12-01" :: Prelude.ByteString),+ "DbName" Data.=: dbName,+ "DurationSeconds" Data.=: durationSeconds,+ "ClusterIdentifier" Data.=: clusterIdentifier+ ]++-- | /See:/ 'newGetClusterCredentialsWithIAMResponse' smart constructor.+data GetClusterCredentialsWithIAMResponse = GetClusterCredentialsWithIAMResponse'+ { -- | A temporary password that you provide when you connect to a database.+ dbPassword :: Prelude.Maybe (Data.Sensitive Prelude.Text),+ -- | A database user name that you provide when you connect to a database.+ -- The database user is mapped 1:1 to the source IAM identity.+ dbUser :: Prelude.Maybe Prelude.Text,+ -- | The time (UTC) when the temporary password expires. After this+ -- timestamp, a log in with the temporary password fails.+ expiration :: Prelude.Maybe Data.ISO8601,+ -- | Reserved for future use.+ nextRefreshTime :: Prelude.Maybe Data.ISO8601,+ -- | The response's http status code.+ httpStatus :: Prelude.Int+ }+ deriving (Prelude.Eq, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'GetClusterCredentialsWithIAMResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'dbPassword', 'getClusterCredentialsWithIAMResponse_dbPassword' - A temporary password that you provide when you connect to a database.+--+-- 'dbUser', 'getClusterCredentialsWithIAMResponse_dbUser' - A database user name that you provide when you connect to a database.+-- The database user is mapped 1:1 to the source IAM identity.+--+-- 'expiration', 'getClusterCredentialsWithIAMResponse_expiration' - The time (UTC) when the temporary password expires. After this+-- timestamp, a log in with the temporary password fails.+--+-- 'nextRefreshTime', 'getClusterCredentialsWithIAMResponse_nextRefreshTime' - Reserved for future use.+--+-- 'httpStatus', 'getClusterCredentialsWithIAMResponse_httpStatus' - The response's http status code.+newGetClusterCredentialsWithIAMResponse ::+ -- | 'httpStatus'+ Prelude.Int ->+ GetClusterCredentialsWithIAMResponse+newGetClusterCredentialsWithIAMResponse pHttpStatus_ =+ GetClusterCredentialsWithIAMResponse'+ { dbPassword =+ Prelude.Nothing,+ dbUser = Prelude.Nothing,+ expiration = Prelude.Nothing,+ nextRefreshTime = Prelude.Nothing,+ httpStatus = pHttpStatus_+ }++-- | A temporary password that you provide when you connect to a database.+getClusterCredentialsWithIAMResponse_dbPassword :: Lens.Lens' GetClusterCredentialsWithIAMResponse (Prelude.Maybe Prelude.Text)+getClusterCredentialsWithIAMResponse_dbPassword = Lens.lens (\GetClusterCredentialsWithIAMResponse' {dbPassword} -> dbPassword) (\s@GetClusterCredentialsWithIAMResponse' {} a -> s {dbPassword = a} :: GetClusterCredentialsWithIAMResponse) Prelude.. Lens.mapping Data._Sensitive++-- | A database user name that you provide when you connect to a database.+-- The database user is mapped 1:1 to the source IAM identity.+getClusterCredentialsWithIAMResponse_dbUser :: Lens.Lens' GetClusterCredentialsWithIAMResponse (Prelude.Maybe Prelude.Text)+getClusterCredentialsWithIAMResponse_dbUser = Lens.lens (\GetClusterCredentialsWithIAMResponse' {dbUser} -> dbUser) (\s@GetClusterCredentialsWithIAMResponse' {} a -> s {dbUser = a} :: GetClusterCredentialsWithIAMResponse)++-- | The time (UTC) when the temporary password expires. After this+-- timestamp, a log in with the temporary password fails.+getClusterCredentialsWithIAMResponse_expiration :: Lens.Lens' GetClusterCredentialsWithIAMResponse (Prelude.Maybe Prelude.UTCTime)+getClusterCredentialsWithIAMResponse_expiration = Lens.lens (\GetClusterCredentialsWithIAMResponse' {expiration} -> expiration) (\s@GetClusterCredentialsWithIAMResponse' {} a -> s {expiration = a} :: GetClusterCredentialsWithIAMResponse) Prelude.. Lens.mapping Data._Time++-- | Reserved for future use.+getClusterCredentialsWithIAMResponse_nextRefreshTime :: Lens.Lens' GetClusterCredentialsWithIAMResponse (Prelude.Maybe Prelude.UTCTime)+getClusterCredentialsWithIAMResponse_nextRefreshTime = Lens.lens (\GetClusterCredentialsWithIAMResponse' {nextRefreshTime} -> nextRefreshTime) (\s@GetClusterCredentialsWithIAMResponse' {} a -> s {nextRefreshTime = a} :: GetClusterCredentialsWithIAMResponse) Prelude.. Lens.mapping Data._Time++-- | The response's http status code.+getClusterCredentialsWithIAMResponse_httpStatus :: Lens.Lens' GetClusterCredentialsWithIAMResponse Prelude.Int+getClusterCredentialsWithIAMResponse_httpStatus = Lens.lens (\GetClusterCredentialsWithIAMResponse' {httpStatus} -> httpStatus) (\s@GetClusterCredentialsWithIAMResponse' {} a -> s {httpStatus = a} :: GetClusterCredentialsWithIAMResponse)++instance+ Prelude.NFData+ GetClusterCredentialsWithIAMResponse+ where+ rnf GetClusterCredentialsWithIAMResponse' {..} =+ Prelude.rnf dbPassword+ `Prelude.seq` Prelude.rnf dbUser+ `Prelude.seq` Prelude.rnf expiration+ `Prelude.seq` Prelude.rnf nextRefreshTime+ `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/Redshift/GetReservedNodeExchangeConfigurationOptions.hs view
@@ -0,0 +1,344 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module : Amazonka.Redshift.GetReservedNodeExchangeConfigurationOptions+-- Copyright : (c) 2013-2023 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Gets the configuration options for the reserved-node exchange. These+-- options include information about the source reserved node and target+-- reserved node offering. Details include the node type, the price, the+-- node count, and the offering type.+--+-- This operation returns paginated results.+module Amazonka.Redshift.GetReservedNodeExchangeConfigurationOptions+ ( -- * Creating a Request+ GetReservedNodeExchangeConfigurationOptions (..),+ newGetReservedNodeExchangeConfigurationOptions,++ -- * Request Lenses+ getReservedNodeExchangeConfigurationOptions_clusterIdentifier,+ getReservedNodeExchangeConfigurationOptions_marker,+ getReservedNodeExchangeConfigurationOptions_maxRecords,+ getReservedNodeExchangeConfigurationOptions_snapshotIdentifier,+ getReservedNodeExchangeConfigurationOptions_actionType,++ -- * Destructuring the Response+ GetReservedNodeExchangeConfigurationOptionsResponse (..),+ newGetReservedNodeExchangeConfigurationOptionsResponse,++ -- * Response Lenses+ getReservedNodeExchangeConfigurationOptionsResponse_marker,+ getReservedNodeExchangeConfigurationOptionsResponse_reservedNodeConfigurationOptionList,+ getReservedNodeExchangeConfigurationOptionsResponse_httpStatus,+ )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Redshift.Types+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newGetReservedNodeExchangeConfigurationOptions' smart constructor.+data GetReservedNodeExchangeConfigurationOptions = GetReservedNodeExchangeConfigurationOptions'+ { -- | The identifier for the cluster that is the source for a reserved-node+ -- exchange.+ clusterIdentifier :: Prelude.Maybe Prelude.Text,+ -- | An optional pagination token provided by a previous+ -- @GetReservedNodeExchangeConfigurationOptions@ request. If this parameter+ -- is specified, the response includes only records beyond the marker, up+ -- to the value specified by the @MaxRecords@ parameter. You can retrieve+ -- the next set of response records by providing the returned marker value+ -- in the @Marker@ parameter and retrying the request.+ marker :: Prelude.Maybe Prelude.Text,+ -- | The maximum number of response records to return in each call. If the+ -- number of remaining response records exceeds the specified @MaxRecords@+ -- value, a value is returned in a @Marker@ field of the response. You can+ -- retrieve the next set of records by retrying the command with the+ -- returned marker value.+ maxRecords :: Prelude.Maybe Prelude.Int,+ -- | The identifier for the snapshot that is the source for the reserved-node+ -- exchange.+ snapshotIdentifier :: Prelude.Maybe Prelude.Text,+ -- | The action type of the reserved-node configuration. The action type can+ -- be an exchange initiated from either a snapshot or a resize.+ actionType :: ReservedNodeExchangeActionType+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'GetReservedNodeExchangeConfigurationOptions' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'clusterIdentifier', 'getReservedNodeExchangeConfigurationOptions_clusterIdentifier' - The identifier for the cluster that is the source for a reserved-node+-- exchange.+--+-- 'marker', 'getReservedNodeExchangeConfigurationOptions_marker' - An optional pagination token provided by a previous+-- @GetReservedNodeExchangeConfigurationOptions@ request. If this parameter+-- is specified, the response includes only records beyond the marker, up+-- to the value specified by the @MaxRecords@ parameter. You can retrieve+-- the next set of response records by providing the returned marker value+-- in the @Marker@ parameter and retrying the request.+--+-- 'maxRecords', 'getReservedNodeExchangeConfigurationOptions_maxRecords' - The maximum number of response records to return in each call. If the+-- number of remaining response records exceeds the specified @MaxRecords@+-- value, a value is returned in a @Marker@ field of the response. You can+-- retrieve the next set of records by retrying the command with the+-- returned marker value.+--+-- 'snapshotIdentifier', 'getReservedNodeExchangeConfigurationOptions_snapshotIdentifier' - The identifier for the snapshot that is the source for the reserved-node+-- exchange.+--+-- 'actionType', 'getReservedNodeExchangeConfigurationOptions_actionType' - The action type of the reserved-node configuration. The action type can+-- be an exchange initiated from either a snapshot or a resize.+newGetReservedNodeExchangeConfigurationOptions ::+ -- | 'actionType'+ ReservedNodeExchangeActionType ->+ GetReservedNodeExchangeConfigurationOptions+newGetReservedNodeExchangeConfigurationOptions+ pActionType_ =+ GetReservedNodeExchangeConfigurationOptions'+ { clusterIdentifier =+ Prelude.Nothing,+ marker = Prelude.Nothing,+ maxRecords = Prelude.Nothing,+ snapshotIdentifier =+ Prelude.Nothing,+ actionType = pActionType_+ }++-- | The identifier for the cluster that is the source for a reserved-node+-- exchange.+getReservedNodeExchangeConfigurationOptions_clusterIdentifier :: Lens.Lens' GetReservedNodeExchangeConfigurationOptions (Prelude.Maybe Prelude.Text)+getReservedNodeExchangeConfigurationOptions_clusterIdentifier = Lens.lens (\GetReservedNodeExchangeConfigurationOptions' {clusterIdentifier} -> clusterIdentifier) (\s@GetReservedNodeExchangeConfigurationOptions' {} a -> s {clusterIdentifier = a} :: GetReservedNodeExchangeConfigurationOptions)++-- | An optional pagination token provided by a previous+-- @GetReservedNodeExchangeConfigurationOptions@ request. If this parameter+-- is specified, the response includes only records beyond the marker, up+-- to the value specified by the @MaxRecords@ parameter. You can retrieve+-- the next set of response records by providing the returned marker value+-- in the @Marker@ parameter and retrying the request.+getReservedNodeExchangeConfigurationOptions_marker :: Lens.Lens' GetReservedNodeExchangeConfigurationOptions (Prelude.Maybe Prelude.Text)+getReservedNodeExchangeConfigurationOptions_marker = Lens.lens (\GetReservedNodeExchangeConfigurationOptions' {marker} -> marker) (\s@GetReservedNodeExchangeConfigurationOptions' {} a -> s {marker = a} :: GetReservedNodeExchangeConfigurationOptions)++-- | The maximum number of response records to return in each call. If the+-- number of remaining response records exceeds the specified @MaxRecords@+-- value, a value is returned in a @Marker@ field of the response. You can+-- retrieve the next set of records by retrying the command with the+-- returned marker value.+getReservedNodeExchangeConfigurationOptions_maxRecords :: Lens.Lens' GetReservedNodeExchangeConfigurationOptions (Prelude.Maybe Prelude.Int)+getReservedNodeExchangeConfigurationOptions_maxRecords = Lens.lens (\GetReservedNodeExchangeConfigurationOptions' {maxRecords} -> maxRecords) (\s@GetReservedNodeExchangeConfigurationOptions' {} a -> s {maxRecords = a} :: GetReservedNodeExchangeConfigurationOptions)++-- | The identifier for the snapshot that is the source for the reserved-node+-- exchange.+getReservedNodeExchangeConfigurationOptions_snapshotIdentifier :: Lens.Lens' GetReservedNodeExchangeConfigurationOptions (Prelude.Maybe Prelude.Text)+getReservedNodeExchangeConfigurationOptions_snapshotIdentifier = Lens.lens (\GetReservedNodeExchangeConfigurationOptions' {snapshotIdentifier} -> snapshotIdentifier) (\s@GetReservedNodeExchangeConfigurationOptions' {} a -> s {snapshotIdentifier = a} :: GetReservedNodeExchangeConfigurationOptions)++-- | The action type of the reserved-node configuration. The action type can+-- be an exchange initiated from either a snapshot or a resize.+getReservedNodeExchangeConfigurationOptions_actionType :: Lens.Lens' GetReservedNodeExchangeConfigurationOptions ReservedNodeExchangeActionType+getReservedNodeExchangeConfigurationOptions_actionType = Lens.lens (\GetReservedNodeExchangeConfigurationOptions' {actionType} -> actionType) (\s@GetReservedNodeExchangeConfigurationOptions' {} a -> s {actionType = a} :: GetReservedNodeExchangeConfigurationOptions)++instance+ Core.AWSPager+ GetReservedNodeExchangeConfigurationOptions+ where+ page rq rs+ | Core.stop+ ( rs+ Lens.^? getReservedNodeExchangeConfigurationOptionsResponse_marker+ Prelude.. Lens._Just+ ) =+ Prelude.Nothing+ | Core.stop+ ( rs+ Lens.^? getReservedNodeExchangeConfigurationOptionsResponse_reservedNodeConfigurationOptionList+ Prelude.. Lens._Just+ ) =+ Prelude.Nothing+ | Prelude.otherwise =+ Prelude.Just+ Prelude.$ rq+ Prelude.& getReservedNodeExchangeConfigurationOptions_marker+ Lens..~ rs+ Lens.^? getReservedNodeExchangeConfigurationOptionsResponse_marker+ Prelude.. Lens._Just++instance+ Core.AWSRequest+ GetReservedNodeExchangeConfigurationOptions+ where+ type+ AWSResponse+ GetReservedNodeExchangeConfigurationOptions =+ GetReservedNodeExchangeConfigurationOptionsResponse+ request overrides =+ Request.postQuery (overrides defaultService)+ response =+ Response.receiveXMLWrapper+ "GetReservedNodeExchangeConfigurationOptionsResult"+ ( \s h x ->+ GetReservedNodeExchangeConfigurationOptionsResponse'+ Prelude.<$> (x Data..@? "Marker")+ Prelude.<*> ( x+ Data..@? "ReservedNodeConfigurationOptionList"+ Core..!@ Prelude.mempty+ Prelude.>>= Core.may+ ( Data.parseXMLList+ "ReservedNodeConfigurationOption"+ )+ )+ Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+ )++instance+ Prelude.Hashable+ GetReservedNodeExchangeConfigurationOptions+ where+ hashWithSalt+ _salt+ GetReservedNodeExchangeConfigurationOptions' {..} =+ _salt+ `Prelude.hashWithSalt` clusterIdentifier+ `Prelude.hashWithSalt` marker+ `Prelude.hashWithSalt` maxRecords+ `Prelude.hashWithSalt` snapshotIdentifier+ `Prelude.hashWithSalt` actionType++instance+ Prelude.NFData+ GetReservedNodeExchangeConfigurationOptions+ where+ rnf GetReservedNodeExchangeConfigurationOptions' {..} =+ Prelude.rnf clusterIdentifier+ `Prelude.seq` Prelude.rnf marker+ `Prelude.seq` Prelude.rnf maxRecords+ `Prelude.seq` Prelude.rnf snapshotIdentifier+ `Prelude.seq` Prelude.rnf actionType++instance+ Data.ToHeaders+ GetReservedNodeExchangeConfigurationOptions+ where+ toHeaders = Prelude.const Prelude.mempty++instance+ Data.ToPath+ GetReservedNodeExchangeConfigurationOptions+ where+ toPath = Prelude.const "/"++instance+ Data.ToQuery+ GetReservedNodeExchangeConfigurationOptions+ where+ toQuery+ GetReservedNodeExchangeConfigurationOptions' {..} =+ Prelude.mconcat+ [ "Action"+ Data.=: ( "GetReservedNodeExchangeConfigurationOptions" ::+ Prelude.ByteString+ ),+ "Version"+ Data.=: ("2012-12-01" :: Prelude.ByteString),+ "ClusterIdentifier" Data.=: clusterIdentifier,+ "Marker" Data.=: marker,+ "MaxRecords" Data.=: maxRecords,+ "SnapshotIdentifier" Data.=: snapshotIdentifier,+ "ActionType" Data.=: actionType+ ]++-- | /See:/ 'newGetReservedNodeExchangeConfigurationOptionsResponse' smart constructor.+data GetReservedNodeExchangeConfigurationOptionsResponse = GetReservedNodeExchangeConfigurationOptionsResponse'+ { -- | A pagination token provided by a previous+ -- @GetReservedNodeExchangeConfigurationOptions@ request.+ marker :: Prelude.Maybe Prelude.Text,+ -- | the configuration options for the reserved-node exchange. These options+ -- include information about the source reserved node and target reserved+ -- node. Details include the node type, the price, the node count, and the+ -- offering type.+ reservedNodeConfigurationOptionList :: Prelude.Maybe [ReservedNodeConfigurationOption],+ -- | The response's http status code.+ httpStatus :: Prelude.Int+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'GetReservedNodeExchangeConfigurationOptionsResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'marker', 'getReservedNodeExchangeConfigurationOptionsResponse_marker' - A pagination token provided by a previous+-- @GetReservedNodeExchangeConfigurationOptions@ request.+--+-- 'reservedNodeConfigurationOptionList', 'getReservedNodeExchangeConfigurationOptionsResponse_reservedNodeConfigurationOptionList' - the configuration options for the reserved-node exchange. These options+-- include information about the source reserved node and target reserved+-- node. Details include the node type, the price, the node count, and the+-- offering type.+--+-- 'httpStatus', 'getReservedNodeExchangeConfigurationOptionsResponse_httpStatus' - The response's http status code.+newGetReservedNodeExchangeConfigurationOptionsResponse ::+ -- | 'httpStatus'+ Prelude.Int ->+ GetReservedNodeExchangeConfigurationOptionsResponse+newGetReservedNodeExchangeConfigurationOptionsResponse+ pHttpStatus_ =+ GetReservedNodeExchangeConfigurationOptionsResponse'+ { marker =+ Prelude.Nothing,+ reservedNodeConfigurationOptionList =+ Prelude.Nothing,+ httpStatus =+ pHttpStatus_+ }++-- | A pagination token provided by a previous+-- @GetReservedNodeExchangeConfigurationOptions@ request.+getReservedNodeExchangeConfigurationOptionsResponse_marker :: Lens.Lens' GetReservedNodeExchangeConfigurationOptionsResponse (Prelude.Maybe Prelude.Text)+getReservedNodeExchangeConfigurationOptionsResponse_marker = Lens.lens (\GetReservedNodeExchangeConfigurationOptionsResponse' {marker} -> marker) (\s@GetReservedNodeExchangeConfigurationOptionsResponse' {} a -> s {marker = a} :: GetReservedNodeExchangeConfigurationOptionsResponse)++-- | the configuration options for the reserved-node exchange. These options+-- include information about the source reserved node and target reserved+-- node. Details include the node type, the price, the node count, and the+-- offering type.+getReservedNodeExchangeConfigurationOptionsResponse_reservedNodeConfigurationOptionList :: Lens.Lens' GetReservedNodeExchangeConfigurationOptionsResponse (Prelude.Maybe [ReservedNodeConfigurationOption])+getReservedNodeExchangeConfigurationOptionsResponse_reservedNodeConfigurationOptionList = Lens.lens (\GetReservedNodeExchangeConfigurationOptionsResponse' {reservedNodeConfigurationOptionList} -> reservedNodeConfigurationOptionList) (\s@GetReservedNodeExchangeConfigurationOptionsResponse' {} a -> s {reservedNodeConfigurationOptionList = a} :: GetReservedNodeExchangeConfigurationOptionsResponse) Prelude.. Lens.mapping Lens.coerced++-- | The response's http status code.+getReservedNodeExchangeConfigurationOptionsResponse_httpStatus :: Lens.Lens' GetReservedNodeExchangeConfigurationOptionsResponse Prelude.Int+getReservedNodeExchangeConfigurationOptionsResponse_httpStatus = Lens.lens (\GetReservedNodeExchangeConfigurationOptionsResponse' {httpStatus} -> httpStatus) (\s@GetReservedNodeExchangeConfigurationOptionsResponse' {} a -> s {httpStatus = a} :: GetReservedNodeExchangeConfigurationOptionsResponse)++instance+ Prelude.NFData+ GetReservedNodeExchangeConfigurationOptionsResponse+ where+ rnf+ GetReservedNodeExchangeConfigurationOptionsResponse' {..} =+ Prelude.rnf marker+ `Prelude.seq` Prelude.rnf reservedNodeConfigurationOptionList+ `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/Redshift/GetReservedNodeExchangeOfferings.hs view
@@ -0,0 +1,285 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module : Amazonka.Redshift.GetReservedNodeExchangeOfferings+-- Copyright : (c) 2013-2023 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Returns an array of DC2 ReservedNodeOfferings that matches the payment+-- type, term, and usage price of the given DC1 reserved node.+--+-- This operation returns paginated results.+module Amazonka.Redshift.GetReservedNodeExchangeOfferings+ ( -- * Creating a Request+ GetReservedNodeExchangeOfferings (..),+ newGetReservedNodeExchangeOfferings,++ -- * Request Lenses+ getReservedNodeExchangeOfferings_marker,+ getReservedNodeExchangeOfferings_maxRecords,+ getReservedNodeExchangeOfferings_reservedNodeId,++ -- * Destructuring the Response+ GetReservedNodeExchangeOfferingsResponse (..),+ newGetReservedNodeExchangeOfferingsResponse,++ -- * Response Lenses+ getReservedNodeExchangeOfferingsResponse_marker,+ getReservedNodeExchangeOfferingsResponse_reservedNodeOfferings,+ getReservedNodeExchangeOfferingsResponse_httpStatus,+ )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Redshift.Types+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- |+--+-- /See:/ 'newGetReservedNodeExchangeOfferings' smart constructor.+data GetReservedNodeExchangeOfferings = GetReservedNodeExchangeOfferings'+ { -- | A value that indicates the starting point for the next set of+ -- ReservedNodeOfferings.+ marker :: Prelude.Maybe Prelude.Text,+ -- | An integer setting the maximum number of ReservedNodeOfferings to+ -- retrieve.+ maxRecords :: Prelude.Maybe Prelude.Int,+ -- | A string representing the node identifier for the DC1 Reserved Node to+ -- be exchanged.+ reservedNodeId :: Prelude.Text+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'GetReservedNodeExchangeOfferings' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'marker', 'getReservedNodeExchangeOfferings_marker' - A value that indicates the starting point for the next set of+-- ReservedNodeOfferings.+--+-- 'maxRecords', 'getReservedNodeExchangeOfferings_maxRecords' - An integer setting the maximum number of ReservedNodeOfferings to+-- retrieve.+--+-- 'reservedNodeId', 'getReservedNodeExchangeOfferings_reservedNodeId' - A string representing the node identifier for the DC1 Reserved Node to+-- be exchanged.+newGetReservedNodeExchangeOfferings ::+ -- | 'reservedNodeId'+ Prelude.Text ->+ GetReservedNodeExchangeOfferings+newGetReservedNodeExchangeOfferings pReservedNodeId_ =+ GetReservedNodeExchangeOfferings'+ { marker =+ Prelude.Nothing,+ maxRecords = Prelude.Nothing,+ reservedNodeId = pReservedNodeId_+ }++-- | A value that indicates the starting point for the next set of+-- ReservedNodeOfferings.+getReservedNodeExchangeOfferings_marker :: Lens.Lens' GetReservedNodeExchangeOfferings (Prelude.Maybe Prelude.Text)+getReservedNodeExchangeOfferings_marker = Lens.lens (\GetReservedNodeExchangeOfferings' {marker} -> marker) (\s@GetReservedNodeExchangeOfferings' {} a -> s {marker = a} :: GetReservedNodeExchangeOfferings)++-- | An integer setting the maximum number of ReservedNodeOfferings to+-- retrieve.+getReservedNodeExchangeOfferings_maxRecords :: Lens.Lens' GetReservedNodeExchangeOfferings (Prelude.Maybe Prelude.Int)+getReservedNodeExchangeOfferings_maxRecords = Lens.lens (\GetReservedNodeExchangeOfferings' {maxRecords} -> maxRecords) (\s@GetReservedNodeExchangeOfferings' {} a -> s {maxRecords = a} :: GetReservedNodeExchangeOfferings)++-- | A string representing the node identifier for the DC1 Reserved Node to+-- be exchanged.+getReservedNodeExchangeOfferings_reservedNodeId :: Lens.Lens' GetReservedNodeExchangeOfferings Prelude.Text+getReservedNodeExchangeOfferings_reservedNodeId = Lens.lens (\GetReservedNodeExchangeOfferings' {reservedNodeId} -> reservedNodeId) (\s@GetReservedNodeExchangeOfferings' {} a -> s {reservedNodeId = a} :: GetReservedNodeExchangeOfferings)++instance+ Core.AWSPager+ GetReservedNodeExchangeOfferings+ where+ page rq rs+ | Core.stop+ ( rs+ Lens.^? getReservedNodeExchangeOfferingsResponse_marker+ Prelude.. Lens._Just+ ) =+ Prelude.Nothing+ | Core.stop+ ( rs+ Lens.^? getReservedNodeExchangeOfferingsResponse_reservedNodeOfferings+ Prelude.. Lens._Just+ ) =+ Prelude.Nothing+ | Prelude.otherwise =+ Prelude.Just+ Prelude.$ rq+ Prelude.& getReservedNodeExchangeOfferings_marker+ Lens..~ rs+ Lens.^? getReservedNodeExchangeOfferingsResponse_marker+ Prelude.. Lens._Just++instance+ Core.AWSRequest+ GetReservedNodeExchangeOfferings+ where+ type+ AWSResponse GetReservedNodeExchangeOfferings =+ GetReservedNodeExchangeOfferingsResponse+ request overrides =+ Request.postQuery (overrides defaultService)+ response =+ Response.receiveXMLWrapper+ "GetReservedNodeExchangeOfferingsResult"+ ( \s h x ->+ GetReservedNodeExchangeOfferingsResponse'+ Prelude.<$> (x Data..@? "Marker")+ Prelude.<*> ( x+ Data..@? "ReservedNodeOfferings"+ Core..!@ Prelude.mempty+ Prelude.>>= Core.may (Data.parseXMLList "ReservedNodeOffering")+ )+ Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+ )++instance+ Prelude.Hashable+ GetReservedNodeExchangeOfferings+ where+ hashWithSalt+ _salt+ GetReservedNodeExchangeOfferings' {..} =+ _salt+ `Prelude.hashWithSalt` marker+ `Prelude.hashWithSalt` maxRecords+ `Prelude.hashWithSalt` reservedNodeId++instance+ Prelude.NFData+ GetReservedNodeExchangeOfferings+ where+ rnf GetReservedNodeExchangeOfferings' {..} =+ Prelude.rnf marker+ `Prelude.seq` Prelude.rnf maxRecords+ `Prelude.seq` Prelude.rnf reservedNodeId++instance+ Data.ToHeaders+ GetReservedNodeExchangeOfferings+ where+ toHeaders = Prelude.const Prelude.mempty++instance Data.ToPath GetReservedNodeExchangeOfferings where+ toPath = Prelude.const "/"++instance+ Data.ToQuery+ GetReservedNodeExchangeOfferings+ where+ toQuery GetReservedNodeExchangeOfferings' {..} =+ Prelude.mconcat+ [ "Action"+ Data.=: ( "GetReservedNodeExchangeOfferings" ::+ Prelude.ByteString+ ),+ "Version"+ Data.=: ("2012-12-01" :: Prelude.ByteString),+ "Marker" Data.=: marker,+ "MaxRecords" Data.=: maxRecords,+ "ReservedNodeId" Data.=: reservedNodeId+ ]++-- | /See:/ 'newGetReservedNodeExchangeOfferingsResponse' smart constructor.+data GetReservedNodeExchangeOfferingsResponse = GetReservedNodeExchangeOfferingsResponse'+ { -- | An optional parameter that specifies the starting point for returning a+ -- set of response records. When the results of a+ -- @GetReservedNodeExchangeOfferings@ request exceed the value specified in+ -- MaxRecords, Amazon Redshift returns a value in the marker field of the+ -- response. You can retrieve the next set of response records by providing+ -- the returned marker value in the marker parameter and retrying the+ -- request.+ marker :: Prelude.Maybe Prelude.Text,+ -- | Returns an array of ReservedNodeOffering objects.+ reservedNodeOfferings :: Prelude.Maybe [ReservedNodeOffering],+ -- | The response's http status code.+ httpStatus :: Prelude.Int+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'GetReservedNodeExchangeOfferingsResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'marker', 'getReservedNodeExchangeOfferingsResponse_marker' - An optional parameter that specifies the starting point for returning a+-- set of response records. When the results of a+-- @GetReservedNodeExchangeOfferings@ request exceed the value specified in+-- MaxRecords, Amazon Redshift returns a value in the marker field of the+-- response. You can retrieve the next set of response records by providing+-- the returned marker value in the marker parameter and retrying the+-- request.+--+-- 'reservedNodeOfferings', 'getReservedNodeExchangeOfferingsResponse_reservedNodeOfferings' - Returns an array of ReservedNodeOffering objects.+--+-- 'httpStatus', 'getReservedNodeExchangeOfferingsResponse_httpStatus' - The response's http status code.+newGetReservedNodeExchangeOfferingsResponse ::+ -- | 'httpStatus'+ Prelude.Int ->+ GetReservedNodeExchangeOfferingsResponse+newGetReservedNodeExchangeOfferingsResponse+ pHttpStatus_ =+ GetReservedNodeExchangeOfferingsResponse'+ { marker =+ Prelude.Nothing,+ reservedNodeOfferings =+ Prelude.Nothing,+ httpStatus = pHttpStatus_+ }++-- | An optional parameter that specifies the starting point for returning a+-- set of response records. When the results of a+-- @GetReservedNodeExchangeOfferings@ request exceed the value specified in+-- MaxRecords, Amazon Redshift returns a value in the marker field of the+-- response. You can retrieve the next set of response records by providing+-- the returned marker value in the marker parameter and retrying the+-- request.+getReservedNodeExchangeOfferingsResponse_marker :: Lens.Lens' GetReservedNodeExchangeOfferingsResponse (Prelude.Maybe Prelude.Text)+getReservedNodeExchangeOfferingsResponse_marker = Lens.lens (\GetReservedNodeExchangeOfferingsResponse' {marker} -> marker) (\s@GetReservedNodeExchangeOfferingsResponse' {} a -> s {marker = a} :: GetReservedNodeExchangeOfferingsResponse)++-- | Returns an array of ReservedNodeOffering objects.+getReservedNodeExchangeOfferingsResponse_reservedNodeOfferings :: Lens.Lens' GetReservedNodeExchangeOfferingsResponse (Prelude.Maybe [ReservedNodeOffering])+getReservedNodeExchangeOfferingsResponse_reservedNodeOfferings = Lens.lens (\GetReservedNodeExchangeOfferingsResponse' {reservedNodeOfferings} -> reservedNodeOfferings) (\s@GetReservedNodeExchangeOfferingsResponse' {} a -> s {reservedNodeOfferings = a} :: GetReservedNodeExchangeOfferingsResponse) Prelude.. Lens.mapping Lens.coerced++-- | The response's http status code.+getReservedNodeExchangeOfferingsResponse_httpStatus :: Lens.Lens' GetReservedNodeExchangeOfferingsResponse Prelude.Int+getReservedNodeExchangeOfferingsResponse_httpStatus = Lens.lens (\GetReservedNodeExchangeOfferingsResponse' {httpStatus} -> httpStatus) (\s@GetReservedNodeExchangeOfferingsResponse' {} a -> s {httpStatus = a} :: GetReservedNodeExchangeOfferingsResponse)++instance+ Prelude.NFData+ GetReservedNodeExchangeOfferingsResponse+ where+ rnf GetReservedNodeExchangeOfferingsResponse' {..} =+ Prelude.rnf marker+ `Prelude.seq` Prelude.rnf reservedNodeOfferings+ `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/Redshift/Lens.hs view
@@ -0,0 +1,1940 @@+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module : Amazonka.Redshift.Lens+-- Copyright : (c) 2013-2023 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.Redshift.Lens+ ( -- * Operations++ -- ** AcceptReservedNodeExchange+ acceptReservedNodeExchange_reservedNodeId,+ acceptReservedNodeExchange_targetReservedNodeOfferingId,+ acceptReservedNodeExchangeResponse_exchangedReservedNode,+ acceptReservedNodeExchangeResponse_httpStatus,++ -- ** AddPartner+ addPartner_accountId,+ addPartner_clusterIdentifier,+ addPartner_databaseName,+ addPartner_partnerName,+ partnerIntegrationOutputMessage_databaseName,+ partnerIntegrationOutputMessage_partnerName,++ -- ** AssociateDataShareConsumer+ associateDataShareConsumer_associateEntireAccount,+ associateDataShareConsumer_consumerArn,+ associateDataShareConsumer_consumerRegion,+ associateDataShareConsumer_dataShareArn,+ dataShare_allowPubliclyAccessibleConsumers,+ dataShare_dataShareArn,+ dataShare_dataShareAssociations,+ dataShare_managedBy,+ dataShare_producerArn,++ -- ** AuthorizeClusterSecurityGroupIngress+ authorizeClusterSecurityGroupIngress_cidrip,+ authorizeClusterSecurityGroupIngress_eC2SecurityGroupName,+ authorizeClusterSecurityGroupIngress_eC2SecurityGroupOwnerId,+ authorizeClusterSecurityGroupIngress_clusterSecurityGroupName,+ authorizeClusterSecurityGroupIngressResponse_clusterSecurityGroup,+ authorizeClusterSecurityGroupIngressResponse_httpStatus,++ -- ** AuthorizeDataShare+ authorizeDataShare_dataShareArn,+ authorizeDataShare_consumerIdentifier,+ dataShare_allowPubliclyAccessibleConsumers,+ dataShare_dataShareArn,+ dataShare_dataShareAssociations,+ dataShare_managedBy,+ dataShare_producerArn,++ -- ** AuthorizeEndpointAccess+ authorizeEndpointAccess_clusterIdentifier,+ authorizeEndpointAccess_vpcIds,+ authorizeEndpointAccess_account,+ endpointAuthorization_allowedAllVPCs,+ endpointAuthorization_allowedVPCs,+ endpointAuthorization_authorizeTime,+ endpointAuthorization_clusterIdentifier,+ endpointAuthorization_clusterStatus,+ endpointAuthorization_endpointCount,+ endpointAuthorization_grantee,+ endpointAuthorization_grantor,+ endpointAuthorization_status,++ -- ** AuthorizeSnapshotAccess+ authorizeSnapshotAccess_snapshotArn,+ authorizeSnapshotAccess_snapshotClusterIdentifier,+ authorizeSnapshotAccess_snapshotIdentifier,+ authorizeSnapshotAccess_accountWithRestoreAccess,+ authorizeSnapshotAccessResponse_snapshot,+ authorizeSnapshotAccessResponse_httpStatus,++ -- ** BatchDeleteClusterSnapshots+ batchDeleteClusterSnapshots_identifiers,+ batchDeleteClusterSnapshotsResponse_errors,+ batchDeleteClusterSnapshotsResponse_resources,+ batchDeleteClusterSnapshotsResponse_httpStatus,++ -- ** BatchModifyClusterSnapshots+ batchModifyClusterSnapshots_force,+ batchModifyClusterSnapshots_manualSnapshotRetentionPeriod,+ batchModifyClusterSnapshots_snapshotIdentifierList,+ batchModifyClusterSnapshotsResponse_errors,+ batchModifyClusterSnapshotsResponse_resources,+ batchModifyClusterSnapshotsResponse_httpStatus,++ -- ** CancelResize+ cancelResize_clusterIdentifier,+ resizeProgressMessage_avgResizeRateInMegaBytesPerSecond,+ resizeProgressMessage_dataTransferProgressPercent,+ resizeProgressMessage_elapsedTimeInSeconds,+ resizeProgressMessage_estimatedTimeToCompletionInSeconds,+ resizeProgressMessage_importTablesCompleted,+ resizeProgressMessage_importTablesInProgress,+ resizeProgressMessage_importTablesNotStarted,+ resizeProgressMessage_message,+ resizeProgressMessage_progressInMegaBytes,+ resizeProgressMessage_resizeType,+ resizeProgressMessage_status,+ resizeProgressMessage_targetClusterType,+ resizeProgressMessage_targetEncryptionType,+ resizeProgressMessage_targetNodeType,+ resizeProgressMessage_targetNumberOfNodes,+ resizeProgressMessage_totalResizeDataInMegaBytes,++ -- ** CopyClusterSnapshot+ copyClusterSnapshot_manualSnapshotRetentionPeriod,+ copyClusterSnapshot_sourceSnapshotClusterIdentifier,+ copyClusterSnapshot_sourceSnapshotIdentifier,+ copyClusterSnapshot_targetSnapshotIdentifier,+ copyClusterSnapshotResponse_snapshot,+ copyClusterSnapshotResponse_httpStatus,++ -- ** CreateAuthenticationProfile+ createAuthenticationProfile_authenticationProfileName,+ createAuthenticationProfile_authenticationProfileContent,+ createAuthenticationProfileResponse_authenticationProfileContent,+ createAuthenticationProfileResponse_authenticationProfileName,+ createAuthenticationProfileResponse_httpStatus,++ -- ** CreateCluster+ createCluster_additionalInfo,+ createCluster_allowVersionUpgrade,+ createCluster_aquaConfigurationStatus,+ createCluster_automatedSnapshotRetentionPeriod,+ createCluster_availabilityZone,+ createCluster_availabilityZoneRelocation,+ createCluster_clusterParameterGroupName,+ createCluster_clusterSecurityGroups,+ createCluster_clusterSubnetGroupName,+ createCluster_clusterType,+ createCluster_clusterVersion,+ createCluster_dbName,+ createCluster_defaultIamRoleArn,+ createCluster_elasticIp,+ createCluster_encrypted,+ createCluster_enhancedVpcRouting,+ createCluster_hsmClientCertificateIdentifier,+ createCluster_hsmConfigurationIdentifier,+ createCluster_iamRoles,+ createCluster_kmsKeyId,+ createCluster_loadSampleData,+ createCluster_maintenanceTrackName,+ createCluster_manualSnapshotRetentionPeriod,+ createCluster_numberOfNodes,+ createCluster_port,+ createCluster_preferredMaintenanceWindow,+ createCluster_publiclyAccessible,+ createCluster_snapshotScheduleIdentifier,+ createCluster_tags,+ createCluster_vpcSecurityGroupIds,+ createCluster_clusterIdentifier,+ createCluster_nodeType,+ createCluster_masterUsername,+ createCluster_masterUserPassword,+ createClusterResponse_cluster,+ createClusterResponse_httpStatus,++ -- ** CreateClusterParameterGroup+ createClusterParameterGroup_tags,+ createClusterParameterGroup_parameterGroupName,+ createClusterParameterGroup_parameterGroupFamily,+ createClusterParameterGroup_description,+ createClusterParameterGroupResponse_clusterParameterGroup,+ createClusterParameterGroupResponse_httpStatus,++ -- ** CreateClusterSecurityGroup+ createClusterSecurityGroup_tags,+ createClusterSecurityGroup_clusterSecurityGroupName,+ createClusterSecurityGroup_description,+ createClusterSecurityGroupResponse_clusterSecurityGroup,+ createClusterSecurityGroupResponse_httpStatus,++ -- ** CreateClusterSnapshot+ createClusterSnapshot_manualSnapshotRetentionPeriod,+ createClusterSnapshot_tags,+ createClusterSnapshot_snapshotIdentifier,+ createClusterSnapshot_clusterIdentifier,+ createClusterSnapshotResponse_snapshot,+ createClusterSnapshotResponse_httpStatus,++ -- ** CreateClusterSubnetGroup+ createClusterSubnetGroup_tags,+ createClusterSubnetGroup_clusterSubnetGroupName,+ createClusterSubnetGroup_description,+ createClusterSubnetGroup_subnetIds,+ createClusterSubnetGroupResponse_clusterSubnetGroup,+ createClusterSubnetGroupResponse_httpStatus,++ -- ** CreateEndpointAccess+ createEndpointAccess_clusterIdentifier,+ createEndpointAccess_resourceOwner,+ createEndpointAccess_vpcSecurityGroupIds,+ createEndpointAccess_endpointName,+ createEndpointAccess_subnetGroupName,+ endpointAccess_address,+ endpointAccess_clusterIdentifier,+ endpointAccess_endpointCreateTime,+ endpointAccess_endpointName,+ endpointAccess_endpointStatus,+ endpointAccess_port,+ endpointAccess_resourceOwner,+ endpointAccess_subnetGroupName,+ endpointAccess_vpcEndpoint,+ endpointAccess_vpcSecurityGroups,++ -- ** CreateEventSubscription+ createEventSubscription_enabled,+ createEventSubscription_eventCategories,+ createEventSubscription_severity,+ createEventSubscription_sourceIds,+ createEventSubscription_sourceType,+ createEventSubscription_tags,+ createEventSubscription_subscriptionName,+ createEventSubscription_snsTopicArn,+ createEventSubscriptionResponse_eventSubscription,+ createEventSubscriptionResponse_httpStatus,++ -- ** CreateHsmClientCertificate+ createHsmClientCertificate_tags,+ createHsmClientCertificate_hsmClientCertificateIdentifier,+ createHsmClientCertificateResponse_hsmClientCertificate,+ createHsmClientCertificateResponse_httpStatus,++ -- ** CreateHsmConfiguration+ createHsmConfiguration_tags,+ createHsmConfiguration_hsmConfigurationIdentifier,+ createHsmConfiguration_description,+ createHsmConfiguration_hsmIpAddress,+ createHsmConfiguration_hsmPartitionName,+ createHsmConfiguration_hsmPartitionPassword,+ createHsmConfiguration_hsmServerPublicCertificate,+ createHsmConfigurationResponse_hsmConfiguration,+ createHsmConfigurationResponse_httpStatus,++ -- ** CreateScheduledAction+ createScheduledAction_enable,+ createScheduledAction_endTime,+ createScheduledAction_scheduledActionDescription,+ createScheduledAction_startTime,+ createScheduledAction_scheduledActionName,+ createScheduledAction_targetAction,+ createScheduledAction_schedule,+ createScheduledAction_iamRole,+ scheduledAction_endTime,+ scheduledAction_iamRole,+ scheduledAction_nextInvocations,+ scheduledAction_schedule,+ scheduledAction_scheduledActionDescription,+ scheduledAction_scheduledActionName,+ scheduledAction_startTime,+ scheduledAction_state,+ scheduledAction_targetAction,++ -- ** CreateSnapshotCopyGrant+ createSnapshotCopyGrant_kmsKeyId,+ createSnapshotCopyGrant_tags,+ createSnapshotCopyGrant_snapshotCopyGrantName,+ createSnapshotCopyGrantResponse_snapshotCopyGrant,+ createSnapshotCopyGrantResponse_httpStatus,++ -- ** CreateSnapshotSchedule+ createSnapshotSchedule_dryRun,+ createSnapshotSchedule_nextInvocations,+ createSnapshotSchedule_scheduleDefinitions,+ createSnapshotSchedule_scheduleDescription,+ createSnapshotSchedule_scheduleIdentifier,+ createSnapshotSchedule_tags,+ snapshotSchedule_associatedClusterCount,+ snapshotSchedule_associatedClusters,+ snapshotSchedule_nextInvocations,+ snapshotSchedule_scheduleDefinitions,+ snapshotSchedule_scheduleDescription,+ snapshotSchedule_scheduleIdentifier,+ snapshotSchedule_tags,++ -- ** CreateTags+ createTags_resourceName,+ createTags_tags,++ -- ** CreateUsageLimit+ createUsageLimit_breachAction,+ createUsageLimit_period,+ createUsageLimit_tags,+ createUsageLimit_clusterIdentifier,+ createUsageLimit_featureType,+ createUsageLimit_limitType,+ createUsageLimit_amount,+ usageLimit_amount,+ usageLimit_breachAction,+ usageLimit_clusterIdentifier,+ usageLimit_featureType,+ usageLimit_limitType,+ usageLimit_period,+ usageLimit_tags,+ usageLimit_usageLimitId,++ -- ** DeauthorizeDataShare+ deauthorizeDataShare_dataShareArn,+ deauthorizeDataShare_consumerIdentifier,+ dataShare_allowPubliclyAccessibleConsumers,+ dataShare_dataShareArn,+ dataShare_dataShareAssociations,+ dataShare_managedBy,+ dataShare_producerArn,++ -- ** DeleteAuthenticationProfile+ deleteAuthenticationProfile_authenticationProfileName,+ deleteAuthenticationProfileResponse_authenticationProfileName,+ deleteAuthenticationProfileResponse_httpStatus,++ -- ** DeleteCluster+ deleteCluster_finalClusterSnapshotIdentifier,+ deleteCluster_finalClusterSnapshotRetentionPeriod,+ deleteCluster_skipFinalClusterSnapshot,+ deleteCluster_clusterIdentifier,+ deleteClusterResponse_cluster,+ deleteClusterResponse_httpStatus,++ -- ** DeleteClusterParameterGroup+ deleteClusterParameterGroup_parameterGroupName,++ -- ** DeleteClusterSecurityGroup+ deleteClusterSecurityGroup_clusterSecurityGroupName,++ -- ** DeleteClusterSnapshot+ deleteClusterSnapshot_snapshotClusterIdentifier,+ deleteClusterSnapshot_snapshotIdentifier,+ deleteClusterSnapshotResponse_snapshot,+ deleteClusterSnapshotResponse_httpStatus,++ -- ** DeleteClusterSubnetGroup+ deleteClusterSubnetGroup_clusterSubnetGroupName,++ -- ** DeleteEndpointAccess+ deleteEndpointAccess_endpointName,+ endpointAccess_address,+ endpointAccess_clusterIdentifier,+ endpointAccess_endpointCreateTime,+ endpointAccess_endpointName,+ endpointAccess_endpointStatus,+ endpointAccess_port,+ endpointAccess_resourceOwner,+ endpointAccess_subnetGroupName,+ endpointAccess_vpcEndpoint,+ endpointAccess_vpcSecurityGroups,++ -- ** DeleteEventSubscription+ deleteEventSubscription_subscriptionName,++ -- ** DeleteHsmClientCertificate+ deleteHsmClientCertificate_hsmClientCertificateIdentifier,++ -- ** DeleteHsmConfiguration+ deleteHsmConfiguration_hsmConfigurationIdentifier,++ -- ** DeletePartner+ deletePartner_accountId,+ deletePartner_clusterIdentifier,+ deletePartner_databaseName,+ deletePartner_partnerName,+ partnerIntegrationOutputMessage_databaseName,+ partnerIntegrationOutputMessage_partnerName,++ -- ** DeleteScheduledAction+ deleteScheduledAction_scheduledActionName,++ -- ** DeleteSnapshotCopyGrant+ deleteSnapshotCopyGrant_snapshotCopyGrantName,++ -- ** DeleteSnapshotSchedule+ deleteSnapshotSchedule_scheduleIdentifier,++ -- ** DeleteTags+ deleteTags_resourceName,+ deleteTags_tagKeys,++ -- ** DeleteUsageLimit+ deleteUsageLimit_usageLimitId,++ -- ** DescribeAccountAttributes+ describeAccountAttributes_attributeNames,+ describeAccountAttributesResponse_accountAttributes,+ describeAccountAttributesResponse_httpStatus,++ -- ** DescribeAuthenticationProfiles+ describeAuthenticationProfiles_authenticationProfileName,+ describeAuthenticationProfilesResponse_authenticationProfiles,+ describeAuthenticationProfilesResponse_httpStatus,++ -- ** DescribeClusterDbRevisions+ describeClusterDbRevisions_clusterIdentifier,+ describeClusterDbRevisions_marker,+ describeClusterDbRevisions_maxRecords,+ describeClusterDbRevisionsResponse_clusterDbRevisions,+ describeClusterDbRevisionsResponse_marker,+ describeClusterDbRevisionsResponse_httpStatus,++ -- ** DescribeClusterParameterGroups+ describeClusterParameterGroups_marker,+ describeClusterParameterGroups_maxRecords,+ describeClusterParameterGroups_parameterGroupName,+ describeClusterParameterGroups_tagKeys,+ describeClusterParameterGroups_tagValues,+ describeClusterParameterGroupsResponse_marker,+ describeClusterParameterGroupsResponse_parameterGroups,+ describeClusterParameterGroupsResponse_httpStatus,++ -- ** DescribeClusterParameters+ describeClusterParameters_marker,+ describeClusterParameters_maxRecords,+ describeClusterParameters_source,+ describeClusterParameters_parameterGroupName,+ describeClusterParametersResponse_marker,+ describeClusterParametersResponse_parameters,+ describeClusterParametersResponse_httpStatus,++ -- ** DescribeClusterSecurityGroups+ describeClusterSecurityGroups_clusterSecurityGroupName,+ describeClusterSecurityGroups_marker,+ describeClusterSecurityGroups_maxRecords,+ describeClusterSecurityGroups_tagKeys,+ describeClusterSecurityGroups_tagValues,+ describeClusterSecurityGroupsResponse_clusterSecurityGroups,+ describeClusterSecurityGroupsResponse_marker,+ describeClusterSecurityGroupsResponse_httpStatus,++ -- ** DescribeClusterSnapshots+ describeClusterSnapshots_clusterExists,+ describeClusterSnapshots_clusterIdentifier,+ describeClusterSnapshots_endTime,+ describeClusterSnapshots_marker,+ describeClusterSnapshots_maxRecords,+ describeClusterSnapshots_ownerAccount,+ describeClusterSnapshots_snapshotArn,+ describeClusterSnapshots_snapshotIdentifier,+ describeClusterSnapshots_snapshotType,+ describeClusterSnapshots_sortingEntities,+ describeClusterSnapshots_startTime,+ describeClusterSnapshots_tagKeys,+ describeClusterSnapshots_tagValues,+ describeClusterSnapshotsResponse_marker,+ describeClusterSnapshotsResponse_snapshots,+ describeClusterSnapshotsResponse_httpStatus,++ -- ** DescribeClusterSubnetGroups+ describeClusterSubnetGroups_clusterSubnetGroupName,+ describeClusterSubnetGroups_marker,+ describeClusterSubnetGroups_maxRecords,+ describeClusterSubnetGroups_tagKeys,+ describeClusterSubnetGroups_tagValues,+ describeClusterSubnetGroupsResponse_clusterSubnetGroups,+ describeClusterSubnetGroupsResponse_marker,+ describeClusterSubnetGroupsResponse_httpStatus,++ -- ** DescribeClusterTracks+ describeClusterTracks_maintenanceTrackName,+ describeClusterTracks_marker,+ describeClusterTracks_maxRecords,+ describeClusterTracksResponse_maintenanceTracks,+ describeClusterTracksResponse_marker,+ describeClusterTracksResponse_httpStatus,++ -- ** DescribeClusterVersions+ describeClusterVersions_clusterParameterGroupFamily,+ describeClusterVersions_clusterVersion,+ describeClusterVersions_marker,+ describeClusterVersions_maxRecords,+ describeClusterVersionsResponse_clusterVersions,+ describeClusterVersionsResponse_marker,+ describeClusterVersionsResponse_httpStatus,++ -- ** DescribeClusters+ describeClusters_clusterIdentifier,+ describeClusters_marker,+ describeClusters_maxRecords,+ describeClusters_tagKeys,+ describeClusters_tagValues,+ describeClustersResponse_clusters,+ describeClustersResponse_marker,+ describeClustersResponse_httpStatus,++ -- ** DescribeDataShares+ describeDataShares_dataShareArn,+ describeDataShares_marker,+ describeDataShares_maxRecords,+ describeDataSharesResponse_dataShares,+ describeDataSharesResponse_marker,+ describeDataSharesResponse_httpStatus,++ -- ** DescribeDataSharesForConsumer+ describeDataSharesForConsumer_consumerArn,+ describeDataSharesForConsumer_marker,+ describeDataSharesForConsumer_maxRecords,+ describeDataSharesForConsumer_status,+ describeDataSharesForConsumerResponse_dataShares,+ describeDataSharesForConsumerResponse_marker,+ describeDataSharesForConsumerResponse_httpStatus,++ -- ** DescribeDataSharesForProducer+ describeDataSharesForProducer_marker,+ describeDataSharesForProducer_maxRecords,+ describeDataSharesForProducer_producerArn,+ describeDataSharesForProducer_status,+ describeDataSharesForProducerResponse_dataShares,+ describeDataSharesForProducerResponse_marker,+ describeDataSharesForProducerResponse_httpStatus,++ -- ** DescribeDefaultClusterParameters+ describeDefaultClusterParameters_marker,+ describeDefaultClusterParameters_maxRecords,+ describeDefaultClusterParameters_parameterGroupFamily,+ describeDefaultClusterParametersResponse_httpStatus,+ describeDefaultClusterParametersResponse_defaultClusterParameters,++ -- ** DescribeEndpointAccess+ describeEndpointAccess_clusterIdentifier,+ describeEndpointAccess_endpointName,+ describeEndpointAccess_marker,+ describeEndpointAccess_maxRecords,+ describeEndpointAccess_resourceOwner,+ describeEndpointAccess_vpcId,+ describeEndpointAccessResponse_endpointAccessList,+ describeEndpointAccessResponse_marker,+ describeEndpointAccessResponse_httpStatus,++ -- ** DescribeEndpointAuthorization+ describeEndpointAuthorization_account,+ describeEndpointAuthorization_clusterIdentifier,+ describeEndpointAuthorization_grantee,+ describeEndpointAuthorization_marker,+ describeEndpointAuthorization_maxRecords,+ describeEndpointAuthorizationResponse_endpointAuthorizationList,+ describeEndpointAuthorizationResponse_marker,+ describeEndpointAuthorizationResponse_httpStatus,++ -- ** DescribeEventCategories+ describeEventCategories_sourceType,+ describeEventCategoriesResponse_eventCategoriesMapList,+ describeEventCategoriesResponse_httpStatus,++ -- ** DescribeEventSubscriptions+ describeEventSubscriptions_marker,+ describeEventSubscriptions_maxRecords,+ describeEventSubscriptions_subscriptionName,+ describeEventSubscriptions_tagKeys,+ describeEventSubscriptions_tagValues,+ describeEventSubscriptionsResponse_eventSubscriptionsList,+ describeEventSubscriptionsResponse_marker,+ describeEventSubscriptionsResponse_httpStatus,++ -- ** DescribeEvents+ describeEvents_duration,+ describeEvents_endTime,+ describeEvents_marker,+ describeEvents_maxRecords,+ describeEvents_sourceIdentifier,+ describeEvents_sourceType,+ describeEvents_startTime,+ describeEventsResponse_events,+ describeEventsResponse_marker,+ describeEventsResponse_httpStatus,++ -- ** DescribeHsmClientCertificates+ describeHsmClientCertificates_hsmClientCertificateIdentifier,+ describeHsmClientCertificates_marker,+ describeHsmClientCertificates_maxRecords,+ describeHsmClientCertificates_tagKeys,+ describeHsmClientCertificates_tagValues,+ describeHsmClientCertificatesResponse_hsmClientCertificates,+ describeHsmClientCertificatesResponse_marker,+ describeHsmClientCertificatesResponse_httpStatus,++ -- ** DescribeHsmConfigurations+ describeHsmConfigurations_hsmConfigurationIdentifier,+ describeHsmConfigurations_marker,+ describeHsmConfigurations_maxRecords,+ describeHsmConfigurations_tagKeys,+ describeHsmConfigurations_tagValues,+ describeHsmConfigurationsResponse_hsmConfigurations,+ describeHsmConfigurationsResponse_marker,+ describeHsmConfigurationsResponse_httpStatus,++ -- ** DescribeLoggingStatus+ describeLoggingStatus_clusterIdentifier,+ loggingStatus_bucketName,+ loggingStatus_lastFailureMessage,+ loggingStatus_lastFailureTime,+ loggingStatus_lastSuccessfulDeliveryTime,+ loggingStatus_logDestinationType,+ loggingStatus_logExports,+ loggingStatus_loggingEnabled,+ loggingStatus_s3KeyPrefix,++ -- ** DescribeNodeConfigurationOptions+ describeNodeConfigurationOptions_clusterIdentifier,+ describeNodeConfigurationOptions_filters,+ describeNodeConfigurationOptions_marker,+ describeNodeConfigurationOptions_maxRecords,+ describeNodeConfigurationOptions_ownerAccount,+ describeNodeConfigurationOptions_snapshotArn,+ describeNodeConfigurationOptions_snapshotIdentifier,+ describeNodeConfigurationOptions_actionType,+ describeNodeConfigurationOptionsResponse_marker,+ describeNodeConfigurationOptionsResponse_nodeConfigurationOptionList,+ describeNodeConfigurationOptionsResponse_httpStatus,++ -- ** DescribeOrderableClusterOptions+ describeOrderableClusterOptions_clusterVersion,+ describeOrderableClusterOptions_marker,+ describeOrderableClusterOptions_maxRecords,+ describeOrderableClusterOptions_nodeType,+ describeOrderableClusterOptionsResponse_marker,+ describeOrderableClusterOptionsResponse_orderableClusterOptions,+ describeOrderableClusterOptionsResponse_httpStatus,++ -- ** DescribePartners+ describePartners_databaseName,+ describePartners_partnerName,+ describePartners_accountId,+ describePartners_clusterIdentifier,+ describePartnersResponse_partnerIntegrationInfoList,+ describePartnersResponse_httpStatus,++ -- ** DescribeReservedNodeExchangeStatus+ describeReservedNodeExchangeStatus_marker,+ describeReservedNodeExchangeStatus_maxRecords,+ describeReservedNodeExchangeStatus_reservedNodeExchangeRequestId,+ describeReservedNodeExchangeStatus_reservedNodeId,+ describeReservedNodeExchangeStatusResponse_marker,+ describeReservedNodeExchangeStatusResponse_reservedNodeExchangeStatusDetails,+ describeReservedNodeExchangeStatusResponse_httpStatus,++ -- ** DescribeReservedNodeOfferings+ describeReservedNodeOfferings_marker,+ describeReservedNodeOfferings_maxRecords,+ describeReservedNodeOfferings_reservedNodeOfferingId,+ describeReservedNodeOfferingsResponse_marker,+ describeReservedNodeOfferingsResponse_reservedNodeOfferings,+ describeReservedNodeOfferingsResponse_httpStatus,++ -- ** DescribeReservedNodes+ describeReservedNodes_marker,+ describeReservedNodes_maxRecords,+ describeReservedNodes_reservedNodeId,+ describeReservedNodesResponse_marker,+ describeReservedNodesResponse_reservedNodes,+ describeReservedNodesResponse_httpStatus,++ -- ** DescribeResize+ describeResize_clusterIdentifier,+ resizeProgressMessage_avgResizeRateInMegaBytesPerSecond,+ resizeProgressMessage_dataTransferProgressPercent,+ resizeProgressMessage_elapsedTimeInSeconds,+ resizeProgressMessage_estimatedTimeToCompletionInSeconds,+ resizeProgressMessage_importTablesCompleted,+ resizeProgressMessage_importTablesInProgress,+ resizeProgressMessage_importTablesNotStarted,+ resizeProgressMessage_message,+ resizeProgressMessage_progressInMegaBytes,+ resizeProgressMessage_resizeType,+ resizeProgressMessage_status,+ resizeProgressMessage_targetClusterType,+ resizeProgressMessage_targetEncryptionType,+ resizeProgressMessage_targetNodeType,+ resizeProgressMessage_targetNumberOfNodes,+ resizeProgressMessage_totalResizeDataInMegaBytes,++ -- ** DescribeScheduledActions+ describeScheduledActions_active,+ describeScheduledActions_endTime,+ describeScheduledActions_filters,+ describeScheduledActions_marker,+ describeScheduledActions_maxRecords,+ describeScheduledActions_scheduledActionName,+ describeScheduledActions_startTime,+ describeScheduledActions_targetActionType,+ describeScheduledActionsResponse_marker,+ describeScheduledActionsResponse_scheduledActions,+ describeScheduledActionsResponse_httpStatus,++ -- ** DescribeSnapshotCopyGrants+ describeSnapshotCopyGrants_marker,+ describeSnapshotCopyGrants_maxRecords,+ describeSnapshotCopyGrants_snapshotCopyGrantName,+ describeSnapshotCopyGrants_tagKeys,+ describeSnapshotCopyGrants_tagValues,+ describeSnapshotCopyGrantsResponse_marker,+ describeSnapshotCopyGrantsResponse_snapshotCopyGrants,+ describeSnapshotCopyGrantsResponse_httpStatus,++ -- ** DescribeSnapshotSchedules+ describeSnapshotSchedules_clusterIdentifier,+ describeSnapshotSchedules_marker,+ describeSnapshotSchedules_maxRecords,+ describeSnapshotSchedules_scheduleIdentifier,+ describeSnapshotSchedules_tagKeys,+ describeSnapshotSchedules_tagValues,+ describeSnapshotSchedulesResponse_marker,+ describeSnapshotSchedulesResponse_snapshotSchedules,+ describeSnapshotSchedulesResponse_httpStatus,++ -- ** DescribeStorage+ describeStorageResponse_totalBackupSizeInMegaBytes,+ describeStorageResponse_totalProvisionedStorageInMegaBytes,+ describeStorageResponse_httpStatus,++ -- ** DescribeTableRestoreStatus+ describeTableRestoreStatus_clusterIdentifier,+ describeTableRestoreStatus_marker,+ describeTableRestoreStatus_maxRecords,+ describeTableRestoreStatus_tableRestoreRequestId,+ describeTableRestoreStatusResponse_marker,+ describeTableRestoreStatusResponse_tableRestoreStatusDetails,+ describeTableRestoreStatusResponse_httpStatus,++ -- ** DescribeTags+ describeTags_marker,+ describeTags_maxRecords,+ describeTags_resourceName,+ describeTags_resourceType,+ describeTags_tagKeys,+ describeTags_tagValues,+ describeTagsResponse_marker,+ describeTagsResponse_taggedResources,+ describeTagsResponse_httpStatus,++ -- ** DescribeUsageLimits+ describeUsageLimits_clusterIdentifier,+ describeUsageLimits_featureType,+ describeUsageLimits_marker,+ describeUsageLimits_maxRecords,+ describeUsageLimits_tagKeys,+ describeUsageLimits_tagValues,+ describeUsageLimits_usageLimitId,+ describeUsageLimitsResponse_marker,+ describeUsageLimitsResponse_usageLimits,+ describeUsageLimitsResponse_httpStatus,++ -- ** DisableLogging+ disableLogging_clusterIdentifier,+ loggingStatus_bucketName,+ loggingStatus_lastFailureMessage,+ loggingStatus_lastFailureTime,+ loggingStatus_lastSuccessfulDeliveryTime,+ loggingStatus_logDestinationType,+ loggingStatus_logExports,+ loggingStatus_loggingEnabled,+ loggingStatus_s3KeyPrefix,++ -- ** DisableSnapshotCopy+ disableSnapshotCopy_clusterIdentifier,+ disableSnapshotCopyResponse_cluster,+ disableSnapshotCopyResponse_httpStatus,++ -- ** DisassociateDataShareConsumer+ disassociateDataShareConsumer_consumerArn,+ disassociateDataShareConsumer_consumerRegion,+ disassociateDataShareConsumer_disassociateEntireAccount,+ disassociateDataShareConsumer_dataShareArn,+ dataShare_allowPubliclyAccessibleConsumers,+ dataShare_dataShareArn,+ dataShare_dataShareAssociations,+ dataShare_managedBy,+ dataShare_producerArn,++ -- ** EnableLogging+ enableLogging_bucketName,+ enableLogging_logDestinationType,+ enableLogging_logExports,+ enableLogging_s3KeyPrefix,+ enableLogging_clusterIdentifier,+ loggingStatus_bucketName,+ loggingStatus_lastFailureMessage,+ loggingStatus_lastFailureTime,+ loggingStatus_lastSuccessfulDeliveryTime,+ loggingStatus_logDestinationType,+ loggingStatus_logExports,+ loggingStatus_loggingEnabled,+ loggingStatus_s3KeyPrefix,++ -- ** EnableSnapshotCopy+ enableSnapshotCopy_manualSnapshotRetentionPeriod,+ enableSnapshotCopy_retentionPeriod,+ enableSnapshotCopy_snapshotCopyGrantName,+ enableSnapshotCopy_clusterIdentifier,+ enableSnapshotCopy_destinationRegion,+ enableSnapshotCopyResponse_cluster,+ enableSnapshotCopyResponse_httpStatus,++ -- ** GetClusterCredentials+ getClusterCredentials_autoCreate,+ getClusterCredentials_dbGroups,+ getClusterCredentials_dbName,+ getClusterCredentials_durationSeconds,+ getClusterCredentials_dbUser,+ getClusterCredentials_clusterIdentifier,+ getClusterCredentialsResponse_dbPassword,+ getClusterCredentialsResponse_dbUser,+ getClusterCredentialsResponse_expiration,+ getClusterCredentialsResponse_httpStatus,++ -- ** GetClusterCredentialsWithIAM+ getClusterCredentialsWithIAM_dbName,+ getClusterCredentialsWithIAM_durationSeconds,+ getClusterCredentialsWithIAM_clusterIdentifier,+ getClusterCredentialsWithIAMResponse_dbPassword,+ getClusterCredentialsWithIAMResponse_dbUser,+ getClusterCredentialsWithIAMResponse_expiration,+ getClusterCredentialsWithIAMResponse_nextRefreshTime,+ getClusterCredentialsWithIAMResponse_httpStatus,++ -- ** GetReservedNodeExchangeConfigurationOptions+ getReservedNodeExchangeConfigurationOptions_clusterIdentifier,+ getReservedNodeExchangeConfigurationOptions_marker,+ getReservedNodeExchangeConfigurationOptions_maxRecords,+ getReservedNodeExchangeConfigurationOptions_snapshotIdentifier,+ getReservedNodeExchangeConfigurationOptions_actionType,+ getReservedNodeExchangeConfigurationOptionsResponse_marker,+ getReservedNodeExchangeConfigurationOptionsResponse_reservedNodeConfigurationOptionList,+ getReservedNodeExchangeConfigurationOptionsResponse_httpStatus,++ -- ** GetReservedNodeExchangeOfferings+ getReservedNodeExchangeOfferings_marker,+ getReservedNodeExchangeOfferings_maxRecords,+ getReservedNodeExchangeOfferings_reservedNodeId,+ getReservedNodeExchangeOfferingsResponse_marker,+ getReservedNodeExchangeOfferingsResponse_reservedNodeOfferings,+ getReservedNodeExchangeOfferingsResponse_httpStatus,++ -- ** ModifyAquaConfiguration+ modifyAquaConfiguration_aquaConfigurationStatus,+ modifyAquaConfiguration_clusterIdentifier,+ modifyAquaConfigurationResponse_aquaConfiguration,+ modifyAquaConfigurationResponse_httpStatus,++ -- ** ModifyAuthenticationProfile+ modifyAuthenticationProfile_authenticationProfileName,+ modifyAuthenticationProfile_authenticationProfileContent,+ modifyAuthenticationProfileResponse_authenticationProfileContent,+ modifyAuthenticationProfileResponse_authenticationProfileName,+ modifyAuthenticationProfileResponse_httpStatus,++ -- ** ModifyCluster+ modifyCluster_allowVersionUpgrade,+ modifyCluster_automatedSnapshotRetentionPeriod,+ modifyCluster_availabilityZone,+ modifyCluster_availabilityZoneRelocation,+ modifyCluster_clusterParameterGroupName,+ modifyCluster_clusterSecurityGroups,+ modifyCluster_clusterType,+ modifyCluster_clusterVersion,+ modifyCluster_elasticIp,+ modifyCluster_encrypted,+ modifyCluster_enhancedVpcRouting,+ modifyCluster_hsmClientCertificateIdentifier,+ modifyCluster_hsmConfigurationIdentifier,+ modifyCluster_kmsKeyId,+ modifyCluster_maintenanceTrackName,+ modifyCluster_manualSnapshotRetentionPeriod,+ modifyCluster_masterUserPassword,+ modifyCluster_newClusterIdentifier,+ modifyCluster_nodeType,+ modifyCluster_numberOfNodes,+ modifyCluster_port,+ modifyCluster_preferredMaintenanceWindow,+ modifyCluster_publiclyAccessible,+ modifyCluster_vpcSecurityGroupIds,+ modifyCluster_clusterIdentifier,+ modifyClusterResponse_cluster,+ modifyClusterResponse_httpStatus,++ -- ** ModifyClusterDbRevision+ modifyClusterDbRevision_clusterIdentifier,+ modifyClusterDbRevision_revisionTarget,+ modifyClusterDbRevisionResponse_cluster,+ modifyClusterDbRevisionResponse_httpStatus,++ -- ** ModifyClusterIamRoles+ modifyClusterIamRoles_addIamRoles,+ modifyClusterIamRoles_defaultIamRoleArn,+ modifyClusterIamRoles_removeIamRoles,+ modifyClusterIamRoles_clusterIdentifier,+ modifyClusterIamRolesResponse_cluster,+ modifyClusterIamRolesResponse_httpStatus,++ -- ** ModifyClusterMaintenance+ modifyClusterMaintenance_deferMaintenance,+ modifyClusterMaintenance_deferMaintenanceDuration,+ modifyClusterMaintenance_deferMaintenanceEndTime,+ modifyClusterMaintenance_deferMaintenanceIdentifier,+ modifyClusterMaintenance_deferMaintenanceStartTime,+ modifyClusterMaintenance_clusterIdentifier,+ modifyClusterMaintenanceResponse_cluster,+ modifyClusterMaintenanceResponse_httpStatus,++ -- ** ModifyClusterParameterGroup+ modifyClusterParameterGroup_parameterGroupName,+ modifyClusterParameterGroup_parameters,+ clusterParameterGroupNameMessage_parameterGroupName,+ clusterParameterGroupNameMessage_parameterGroupStatus,++ -- ** ModifyClusterSnapshot+ modifyClusterSnapshot_force,+ modifyClusterSnapshot_manualSnapshotRetentionPeriod,+ modifyClusterSnapshot_snapshotIdentifier,+ modifyClusterSnapshotResponse_snapshot,+ modifyClusterSnapshotResponse_httpStatus,++ -- ** ModifyClusterSnapshotSchedule+ modifyClusterSnapshotSchedule_disassociateSchedule,+ modifyClusterSnapshotSchedule_scheduleIdentifier,+ modifyClusterSnapshotSchedule_clusterIdentifier,++ -- ** ModifyClusterSubnetGroup+ modifyClusterSubnetGroup_description,+ modifyClusterSubnetGroup_clusterSubnetGroupName,+ modifyClusterSubnetGroup_subnetIds,+ modifyClusterSubnetGroupResponse_clusterSubnetGroup,+ modifyClusterSubnetGroupResponse_httpStatus,++ -- ** ModifyEndpointAccess+ modifyEndpointAccess_vpcSecurityGroupIds,+ modifyEndpointAccess_endpointName,+ endpointAccess_address,+ endpointAccess_clusterIdentifier,+ endpointAccess_endpointCreateTime,+ endpointAccess_endpointName,+ endpointAccess_endpointStatus,+ endpointAccess_port,+ endpointAccess_resourceOwner,+ endpointAccess_subnetGroupName,+ endpointAccess_vpcEndpoint,+ endpointAccess_vpcSecurityGroups,++ -- ** ModifyEventSubscription+ modifyEventSubscription_enabled,+ modifyEventSubscription_eventCategories,+ modifyEventSubscription_severity,+ modifyEventSubscription_snsTopicArn,+ modifyEventSubscription_sourceIds,+ modifyEventSubscription_sourceType,+ modifyEventSubscription_subscriptionName,+ modifyEventSubscriptionResponse_eventSubscription,+ modifyEventSubscriptionResponse_httpStatus,++ -- ** ModifyScheduledAction+ modifyScheduledAction_enable,+ modifyScheduledAction_endTime,+ modifyScheduledAction_iamRole,+ modifyScheduledAction_schedule,+ modifyScheduledAction_scheduledActionDescription,+ modifyScheduledAction_startTime,+ modifyScheduledAction_targetAction,+ modifyScheduledAction_scheduledActionName,+ scheduledAction_endTime,+ scheduledAction_iamRole,+ scheduledAction_nextInvocations,+ scheduledAction_schedule,+ scheduledAction_scheduledActionDescription,+ scheduledAction_scheduledActionName,+ scheduledAction_startTime,+ scheduledAction_state,+ scheduledAction_targetAction,++ -- ** ModifySnapshotCopyRetentionPeriod+ modifySnapshotCopyRetentionPeriod_manual,+ modifySnapshotCopyRetentionPeriod_clusterIdentifier,+ modifySnapshotCopyRetentionPeriod_retentionPeriod,+ modifySnapshotCopyRetentionPeriodResponse_cluster,+ modifySnapshotCopyRetentionPeriodResponse_httpStatus,++ -- ** ModifySnapshotSchedule+ modifySnapshotSchedule_scheduleIdentifier,+ modifySnapshotSchedule_scheduleDefinitions,+ snapshotSchedule_associatedClusterCount,+ snapshotSchedule_associatedClusters,+ snapshotSchedule_nextInvocations,+ snapshotSchedule_scheduleDefinitions,+ snapshotSchedule_scheduleDescription,+ snapshotSchedule_scheduleIdentifier,+ snapshotSchedule_tags,++ -- ** ModifyUsageLimit+ modifyUsageLimit_amount,+ modifyUsageLimit_breachAction,+ modifyUsageLimit_usageLimitId,+ usageLimit_amount,+ usageLimit_breachAction,+ usageLimit_clusterIdentifier,+ usageLimit_featureType,+ usageLimit_limitType,+ usageLimit_period,+ usageLimit_tags,+ usageLimit_usageLimitId,++ -- ** PauseCluster+ pauseCluster_clusterIdentifier,+ pauseClusterResponse_cluster,+ pauseClusterResponse_httpStatus,++ -- ** PurchaseReservedNodeOffering+ purchaseReservedNodeOffering_nodeCount,+ purchaseReservedNodeOffering_reservedNodeOfferingId,+ purchaseReservedNodeOfferingResponse_reservedNode,+ purchaseReservedNodeOfferingResponse_httpStatus,++ -- ** RebootCluster+ rebootCluster_clusterIdentifier,+ rebootClusterResponse_cluster,+ rebootClusterResponse_httpStatus,++ -- ** RejectDataShare+ rejectDataShare_dataShareArn,+ dataShare_allowPubliclyAccessibleConsumers,+ dataShare_dataShareArn,+ dataShare_dataShareAssociations,+ dataShare_managedBy,+ dataShare_producerArn,++ -- ** ResetClusterParameterGroup+ resetClusterParameterGroup_parameters,+ resetClusterParameterGroup_resetAllParameters,+ resetClusterParameterGroup_parameterGroupName,+ clusterParameterGroupNameMessage_parameterGroupName,+ clusterParameterGroupNameMessage_parameterGroupStatus,++ -- ** ResizeCluster+ resizeCluster_classic,+ resizeCluster_clusterType,+ resizeCluster_nodeType,+ resizeCluster_numberOfNodes,+ resizeCluster_reservedNodeId,+ resizeCluster_targetReservedNodeOfferingId,+ resizeCluster_clusterIdentifier,+ resizeClusterResponse_cluster,+ resizeClusterResponse_httpStatus,++ -- ** RestoreFromClusterSnapshot+ restoreFromClusterSnapshot_additionalInfo,+ restoreFromClusterSnapshot_allowVersionUpgrade,+ restoreFromClusterSnapshot_aquaConfigurationStatus,+ restoreFromClusterSnapshot_automatedSnapshotRetentionPeriod,+ restoreFromClusterSnapshot_availabilityZone,+ restoreFromClusterSnapshot_availabilityZoneRelocation,+ restoreFromClusterSnapshot_clusterParameterGroupName,+ restoreFromClusterSnapshot_clusterSecurityGroups,+ restoreFromClusterSnapshot_clusterSubnetGroupName,+ restoreFromClusterSnapshot_defaultIamRoleArn,+ restoreFromClusterSnapshot_elasticIp,+ restoreFromClusterSnapshot_encrypted,+ restoreFromClusterSnapshot_enhancedVpcRouting,+ restoreFromClusterSnapshot_hsmClientCertificateIdentifier,+ restoreFromClusterSnapshot_hsmConfigurationIdentifier,+ restoreFromClusterSnapshot_iamRoles,+ restoreFromClusterSnapshot_kmsKeyId,+ restoreFromClusterSnapshot_maintenanceTrackName,+ restoreFromClusterSnapshot_manualSnapshotRetentionPeriod,+ restoreFromClusterSnapshot_nodeType,+ restoreFromClusterSnapshot_numberOfNodes,+ restoreFromClusterSnapshot_ownerAccount,+ restoreFromClusterSnapshot_port,+ restoreFromClusterSnapshot_preferredMaintenanceWindow,+ restoreFromClusterSnapshot_publiclyAccessible,+ restoreFromClusterSnapshot_reservedNodeId,+ restoreFromClusterSnapshot_snapshotArn,+ restoreFromClusterSnapshot_snapshotClusterIdentifier,+ restoreFromClusterSnapshot_snapshotIdentifier,+ restoreFromClusterSnapshot_snapshotScheduleIdentifier,+ restoreFromClusterSnapshot_targetReservedNodeOfferingId,+ restoreFromClusterSnapshot_vpcSecurityGroupIds,+ restoreFromClusterSnapshot_clusterIdentifier,+ restoreFromClusterSnapshotResponse_cluster,+ restoreFromClusterSnapshotResponse_httpStatus,++ -- ** RestoreTableFromClusterSnapshot+ restoreTableFromClusterSnapshot_enableCaseSensitiveIdentifier,+ restoreTableFromClusterSnapshot_sourceSchemaName,+ restoreTableFromClusterSnapshot_targetDatabaseName,+ restoreTableFromClusterSnapshot_targetSchemaName,+ restoreTableFromClusterSnapshot_clusterIdentifier,+ restoreTableFromClusterSnapshot_snapshotIdentifier,+ restoreTableFromClusterSnapshot_sourceDatabaseName,+ restoreTableFromClusterSnapshot_sourceTableName,+ restoreTableFromClusterSnapshot_newTableName,+ restoreTableFromClusterSnapshotResponse_tableRestoreStatus,+ restoreTableFromClusterSnapshotResponse_httpStatus,++ -- ** ResumeCluster+ resumeCluster_clusterIdentifier,+ resumeClusterResponse_cluster,+ resumeClusterResponse_httpStatus,++ -- ** RevokeClusterSecurityGroupIngress+ revokeClusterSecurityGroupIngress_cidrip,+ revokeClusterSecurityGroupIngress_eC2SecurityGroupName,+ revokeClusterSecurityGroupIngress_eC2SecurityGroupOwnerId,+ revokeClusterSecurityGroupIngress_clusterSecurityGroupName,+ revokeClusterSecurityGroupIngressResponse_clusterSecurityGroup,+ revokeClusterSecurityGroupIngressResponse_httpStatus,++ -- ** RevokeEndpointAccess+ revokeEndpointAccess_account,+ revokeEndpointAccess_clusterIdentifier,+ revokeEndpointAccess_force,+ revokeEndpointAccess_vpcIds,+ endpointAuthorization_allowedAllVPCs,+ endpointAuthorization_allowedVPCs,+ endpointAuthorization_authorizeTime,+ endpointAuthorization_clusterIdentifier,+ endpointAuthorization_clusterStatus,+ endpointAuthorization_endpointCount,+ endpointAuthorization_grantee,+ endpointAuthorization_grantor,+ endpointAuthorization_status,++ -- ** RevokeSnapshotAccess+ revokeSnapshotAccess_snapshotArn,+ revokeSnapshotAccess_snapshotClusterIdentifier,+ revokeSnapshotAccess_snapshotIdentifier,+ revokeSnapshotAccess_accountWithRestoreAccess,+ revokeSnapshotAccessResponse_snapshot,+ revokeSnapshotAccessResponse_httpStatus,++ -- ** RotateEncryptionKey+ rotateEncryptionKey_clusterIdentifier,+ rotateEncryptionKeyResponse_cluster,+ rotateEncryptionKeyResponse_httpStatus,++ -- ** UpdatePartnerStatus+ updatePartnerStatus_statusMessage,+ updatePartnerStatus_accountId,+ updatePartnerStatus_clusterIdentifier,+ updatePartnerStatus_databaseName,+ updatePartnerStatus_partnerName,+ updatePartnerStatus_status,+ partnerIntegrationOutputMessage_databaseName,+ partnerIntegrationOutputMessage_partnerName,++ -- * Types++ -- ** AccountAttribute+ accountAttribute_attributeName,+ accountAttribute_attributeValues,++ -- ** AccountWithRestoreAccess+ accountWithRestoreAccess_accountAlias,+ accountWithRestoreAccess_accountId,++ -- ** AquaConfiguration+ aquaConfiguration_aquaConfigurationStatus,+ aquaConfiguration_aquaStatus,++ -- ** AttributeValueTarget+ attributeValueTarget_attributeValue,++ -- ** AuthenticationProfile+ authenticationProfile_authenticationProfileContent,+ authenticationProfile_authenticationProfileName,++ -- ** AvailabilityZone+ availabilityZone_name,+ availabilityZone_supportedPlatforms,++ -- ** Cluster+ cluster_allowVersionUpgrade,+ cluster_aquaConfiguration,+ cluster_automatedSnapshotRetentionPeriod,+ cluster_availabilityZone,+ cluster_availabilityZoneRelocationStatus,+ cluster_clusterAvailabilityStatus,+ cluster_clusterCreateTime,+ cluster_clusterIdentifier,+ cluster_clusterNamespaceArn,+ cluster_clusterNodes,+ cluster_clusterParameterGroups,+ cluster_clusterPublicKey,+ cluster_clusterRevisionNumber,+ cluster_clusterSecurityGroups,+ cluster_clusterSnapshotCopyStatus,+ cluster_clusterStatus,+ cluster_clusterSubnetGroupName,+ cluster_clusterVersion,+ cluster_dbName,+ cluster_dataTransferProgress,+ cluster_defaultIamRoleArn,+ cluster_deferredMaintenanceWindows,+ cluster_elasticIpStatus,+ cluster_elasticResizeNumberOfNodeOptions,+ cluster_encrypted,+ cluster_endpoint,+ cluster_enhancedVpcRouting,+ cluster_expectedNextSnapshotScheduleTime,+ cluster_expectedNextSnapshotScheduleTimeStatus,+ cluster_hsmStatus,+ cluster_iamRoles,+ cluster_kmsKeyId,+ cluster_maintenanceTrackName,+ cluster_manualSnapshotRetentionPeriod,+ cluster_masterUsername,+ cluster_modifyStatus,+ cluster_nextMaintenanceWindowStartTime,+ cluster_nodeType,+ cluster_numberOfNodes,+ cluster_pendingActions,+ cluster_pendingModifiedValues,+ cluster_preferredMaintenanceWindow,+ cluster_publiclyAccessible,+ cluster_reservedNodeExchangeStatus,+ cluster_resizeInfo,+ cluster_restoreStatus,+ cluster_snapshotScheduleIdentifier,+ cluster_snapshotScheduleState,+ cluster_tags,+ cluster_totalStorageCapacityInMegaBytes,+ cluster_vpcId,+ cluster_vpcSecurityGroups,++ -- ** ClusterAssociatedToSchedule+ clusterAssociatedToSchedule_clusterIdentifier,+ clusterAssociatedToSchedule_scheduleAssociationState,++ -- ** ClusterDbRevision+ clusterDbRevision_clusterIdentifier,+ clusterDbRevision_currentDatabaseRevision,+ clusterDbRevision_databaseRevisionReleaseDate,+ clusterDbRevision_revisionTargets,++ -- ** ClusterIamRole+ clusterIamRole_applyStatus,+ clusterIamRole_iamRoleArn,++ -- ** ClusterNode+ clusterNode_nodeRole,+ clusterNode_privateIPAddress,+ clusterNode_publicIPAddress,++ -- ** ClusterParameterGroup+ clusterParameterGroup_description,+ clusterParameterGroup_parameterGroupFamily,+ clusterParameterGroup_parameterGroupName,+ clusterParameterGroup_tags,++ -- ** ClusterParameterGroupNameMessage+ clusterParameterGroupNameMessage_parameterGroupName,+ clusterParameterGroupNameMessage_parameterGroupStatus,++ -- ** ClusterParameterGroupStatus+ clusterParameterGroupStatus_clusterParameterStatusList,+ clusterParameterGroupStatus_parameterApplyStatus,+ clusterParameterGroupStatus_parameterGroupName,++ -- ** ClusterParameterStatus+ clusterParameterStatus_parameterApplyErrorDescription,+ clusterParameterStatus_parameterApplyStatus,+ clusterParameterStatus_parameterName,++ -- ** ClusterSecurityGroup+ clusterSecurityGroup_clusterSecurityGroupName,+ clusterSecurityGroup_description,+ clusterSecurityGroup_eC2SecurityGroups,+ clusterSecurityGroup_iPRanges,+ clusterSecurityGroup_tags,++ -- ** ClusterSecurityGroupMembership+ clusterSecurityGroupMembership_clusterSecurityGroupName,+ clusterSecurityGroupMembership_status,++ -- ** ClusterSnapshotCopyStatus+ clusterSnapshotCopyStatus_destinationRegion,+ clusterSnapshotCopyStatus_manualSnapshotRetentionPeriod,+ clusterSnapshotCopyStatus_retentionPeriod,+ clusterSnapshotCopyStatus_snapshotCopyGrantName,++ -- ** ClusterSubnetGroup+ clusterSubnetGroup_clusterSubnetGroupName,+ clusterSubnetGroup_description,+ clusterSubnetGroup_subnetGroupStatus,+ clusterSubnetGroup_subnets,+ clusterSubnetGroup_tags,+ clusterSubnetGroup_vpcId,++ -- ** ClusterVersion+ clusterVersion_clusterParameterGroupFamily,+ clusterVersion_clusterVersion,+ clusterVersion_description,++ -- ** DataShare+ dataShare_allowPubliclyAccessibleConsumers,+ dataShare_dataShareArn,+ dataShare_dataShareAssociations,+ dataShare_managedBy,+ dataShare_producerArn,++ -- ** DataShareAssociation+ dataShareAssociation_consumerIdentifier,+ dataShareAssociation_consumerRegion,+ dataShareAssociation_createdDate,+ dataShareAssociation_status,+ dataShareAssociation_statusChangeDate,++ -- ** DataTransferProgress+ dataTransferProgress_currentRateInMegaBytesPerSecond,+ dataTransferProgress_dataTransferredInMegaBytes,+ dataTransferProgress_elapsedTimeInSeconds,+ dataTransferProgress_estimatedTimeToCompletionInSeconds,+ dataTransferProgress_status,+ dataTransferProgress_totalDataInMegaBytes,++ -- ** DefaultClusterParameters+ defaultClusterParameters_marker,+ defaultClusterParameters_parameterGroupFamily,+ defaultClusterParameters_parameters,++ -- ** DeferredMaintenanceWindow+ deferredMaintenanceWindow_deferMaintenanceEndTime,+ deferredMaintenanceWindow_deferMaintenanceIdentifier,+ deferredMaintenanceWindow_deferMaintenanceStartTime,++ -- ** DeleteClusterSnapshotMessage+ deleteClusterSnapshotMessage_snapshotClusterIdentifier,+ deleteClusterSnapshotMessage_snapshotIdentifier,++ -- ** EC2SecurityGroup+ eC2SecurityGroup_eC2SecurityGroupName,+ eC2SecurityGroup_eC2SecurityGroupOwnerId,+ eC2SecurityGroup_status,+ eC2SecurityGroup_tags,++ -- ** ElasticIpStatus+ elasticIpStatus_elasticIp,+ elasticIpStatus_status,++ -- ** Endpoint+ endpoint_address,+ endpoint_port,+ endpoint_vpcEndpoints,++ -- ** EndpointAccess+ endpointAccess_address,+ endpointAccess_clusterIdentifier,+ endpointAccess_endpointCreateTime,+ endpointAccess_endpointName,+ endpointAccess_endpointStatus,+ endpointAccess_port,+ endpointAccess_resourceOwner,+ endpointAccess_subnetGroupName,+ endpointAccess_vpcEndpoint,+ endpointAccess_vpcSecurityGroups,++ -- ** EndpointAuthorization+ endpointAuthorization_allowedAllVPCs,+ endpointAuthorization_allowedVPCs,+ endpointAuthorization_authorizeTime,+ endpointAuthorization_clusterIdentifier,+ endpointAuthorization_clusterStatus,+ endpointAuthorization_endpointCount,+ endpointAuthorization_grantee,+ endpointAuthorization_grantor,+ endpointAuthorization_status,++ -- ** Event+ event_date,+ event_eventCategories,+ event_eventId,+ event_message,+ event_severity,+ event_sourceIdentifier,+ event_sourceType,++ -- ** EventCategoriesMap+ eventCategoriesMap_events,+ eventCategoriesMap_sourceType,++ -- ** EventInfoMap+ eventInfoMap_eventCategories,+ eventInfoMap_eventDescription,+ eventInfoMap_eventId,+ eventInfoMap_severity,++ -- ** EventSubscription+ eventSubscription_custSubscriptionId,+ eventSubscription_customerAwsId,+ eventSubscription_enabled,+ eventSubscription_eventCategoriesList,+ eventSubscription_severity,+ eventSubscription_snsTopicArn,+ eventSubscription_sourceIdsList,+ eventSubscription_sourceType,+ eventSubscription_status,+ eventSubscription_subscriptionCreationTime,+ eventSubscription_tags,++ -- ** HsmClientCertificate+ hsmClientCertificate_hsmClientCertificateIdentifier,+ hsmClientCertificate_hsmClientCertificatePublicKey,+ hsmClientCertificate_tags,++ -- ** HsmConfiguration+ hsmConfiguration_description,+ hsmConfiguration_hsmConfigurationIdentifier,+ hsmConfiguration_hsmIpAddress,+ hsmConfiguration_hsmPartitionName,+ hsmConfiguration_tags,++ -- ** HsmStatus+ hsmStatus_hsmClientCertificateIdentifier,+ hsmStatus_hsmConfigurationIdentifier,+ hsmStatus_status,++ -- ** IPRange+ iPRange_cidrip,+ iPRange_status,+ iPRange_tags,++ -- ** LoggingStatus+ loggingStatus_bucketName,+ loggingStatus_lastFailureMessage,+ loggingStatus_lastFailureTime,+ loggingStatus_lastSuccessfulDeliveryTime,+ loggingStatus_logDestinationType,+ loggingStatus_logExports,+ loggingStatus_loggingEnabled,+ loggingStatus_s3KeyPrefix,++ -- ** MaintenanceTrack+ maintenanceTrack_databaseVersion,+ maintenanceTrack_maintenanceTrackName,+ maintenanceTrack_updateTargets,++ -- ** NetworkInterface+ networkInterface_availabilityZone,+ networkInterface_networkInterfaceId,+ networkInterface_privateIpAddress,+ networkInterface_subnetId,++ -- ** NodeConfigurationOption+ nodeConfigurationOption_estimatedDiskUtilizationPercent,+ nodeConfigurationOption_mode,+ nodeConfigurationOption_nodeType,+ nodeConfigurationOption_numberOfNodes,++ -- ** NodeConfigurationOptionsFilter+ nodeConfigurationOptionsFilter_name,+ nodeConfigurationOptionsFilter_operator,+ nodeConfigurationOptionsFilter_values,++ -- ** OrderableClusterOption+ orderableClusterOption_availabilityZones,+ orderableClusterOption_clusterType,+ orderableClusterOption_clusterVersion,+ orderableClusterOption_nodeType,++ -- ** Parameter+ parameter_allowedValues,+ parameter_applyType,+ parameter_dataType,+ parameter_description,+ parameter_isModifiable,+ parameter_minimumEngineVersion,+ parameter_parameterName,+ parameter_parameterValue,+ parameter_source,++ -- ** PartnerIntegrationInfo+ partnerIntegrationInfo_createdAt,+ partnerIntegrationInfo_databaseName,+ partnerIntegrationInfo_partnerName,+ partnerIntegrationInfo_status,+ partnerIntegrationInfo_statusMessage,+ partnerIntegrationInfo_updatedAt,++ -- ** PartnerIntegrationInputMessage+ partnerIntegrationInputMessage_accountId,+ partnerIntegrationInputMessage_clusterIdentifier,+ partnerIntegrationInputMessage_databaseName,+ partnerIntegrationInputMessage_partnerName,++ -- ** PartnerIntegrationOutputMessage+ partnerIntegrationOutputMessage_databaseName,+ partnerIntegrationOutputMessage_partnerName,++ -- ** PauseClusterMessage+ pauseClusterMessage_clusterIdentifier,++ -- ** PendingModifiedValues+ pendingModifiedValues_automatedSnapshotRetentionPeriod,+ pendingModifiedValues_clusterIdentifier,+ pendingModifiedValues_clusterType,+ pendingModifiedValues_clusterVersion,+ pendingModifiedValues_encryptionType,+ pendingModifiedValues_enhancedVpcRouting,+ pendingModifiedValues_maintenanceTrackName,+ pendingModifiedValues_masterUserPassword,+ pendingModifiedValues_nodeType,+ pendingModifiedValues_numberOfNodes,+ pendingModifiedValues_publiclyAccessible,++ -- ** RecurringCharge+ recurringCharge_recurringChargeAmount,+ recurringCharge_recurringChargeFrequency,++ -- ** ReservedNode+ reservedNode_currencyCode,+ reservedNode_duration,+ reservedNode_fixedPrice,+ reservedNode_nodeCount,+ reservedNode_nodeType,+ reservedNode_offeringType,+ reservedNode_recurringCharges,+ reservedNode_reservedNodeId,+ reservedNode_reservedNodeOfferingId,+ reservedNode_reservedNodeOfferingType,+ reservedNode_startTime,+ reservedNode_state,+ reservedNode_usagePrice,++ -- ** ReservedNodeConfigurationOption+ reservedNodeConfigurationOption_sourceReservedNode,+ reservedNodeConfigurationOption_targetReservedNodeCount,+ reservedNodeConfigurationOption_targetReservedNodeOffering,++ -- ** ReservedNodeExchangeStatus+ reservedNodeExchangeStatus_requestTime,+ reservedNodeExchangeStatus_reservedNodeExchangeRequestId,+ reservedNodeExchangeStatus_sourceReservedNodeCount,+ reservedNodeExchangeStatus_sourceReservedNodeId,+ reservedNodeExchangeStatus_sourceReservedNodeType,+ reservedNodeExchangeStatus_status,+ reservedNodeExchangeStatus_targetReservedNodeCount,+ reservedNodeExchangeStatus_targetReservedNodeOfferingId,+ reservedNodeExchangeStatus_targetReservedNodeType,++ -- ** ReservedNodeOffering+ reservedNodeOffering_currencyCode,+ reservedNodeOffering_duration,+ reservedNodeOffering_fixedPrice,+ reservedNodeOffering_nodeType,+ reservedNodeOffering_offeringType,+ reservedNodeOffering_recurringCharges,+ reservedNodeOffering_reservedNodeOfferingId,+ reservedNodeOffering_reservedNodeOfferingType,+ reservedNodeOffering_usagePrice,++ -- ** ResizeClusterMessage+ resizeClusterMessage_classic,+ resizeClusterMessage_clusterType,+ resizeClusterMessage_nodeType,+ resizeClusterMessage_numberOfNodes,+ resizeClusterMessage_reservedNodeId,+ resizeClusterMessage_targetReservedNodeOfferingId,+ resizeClusterMessage_clusterIdentifier,++ -- ** ResizeInfo+ resizeInfo_allowCancelResize,+ resizeInfo_resizeType,++ -- ** ResizeProgressMessage+ resizeProgressMessage_avgResizeRateInMegaBytesPerSecond,+ resizeProgressMessage_dataTransferProgressPercent,+ resizeProgressMessage_elapsedTimeInSeconds,+ resizeProgressMessage_estimatedTimeToCompletionInSeconds,+ resizeProgressMessage_importTablesCompleted,+ resizeProgressMessage_importTablesInProgress,+ resizeProgressMessage_importTablesNotStarted,+ resizeProgressMessage_message,+ resizeProgressMessage_progressInMegaBytes,+ resizeProgressMessage_resizeType,+ resizeProgressMessage_status,+ resizeProgressMessage_targetClusterType,+ resizeProgressMessage_targetEncryptionType,+ resizeProgressMessage_targetNodeType,+ resizeProgressMessage_targetNumberOfNodes,+ resizeProgressMessage_totalResizeDataInMegaBytes,++ -- ** RestoreStatus+ restoreStatus_currentRestoreRateInMegaBytesPerSecond,+ restoreStatus_elapsedTimeInSeconds,+ restoreStatus_estimatedTimeToCompletionInSeconds,+ restoreStatus_progressInMegaBytes,+ restoreStatus_snapshotSizeInMegaBytes,+ restoreStatus_status,++ -- ** ResumeClusterMessage+ resumeClusterMessage_clusterIdentifier,++ -- ** RevisionTarget+ revisionTarget_databaseRevision,+ revisionTarget_databaseRevisionReleaseDate,+ revisionTarget_description,++ -- ** ScheduledAction+ scheduledAction_endTime,+ scheduledAction_iamRole,+ scheduledAction_nextInvocations,+ scheduledAction_schedule,+ scheduledAction_scheduledActionDescription,+ scheduledAction_scheduledActionName,+ scheduledAction_startTime,+ scheduledAction_state,+ scheduledAction_targetAction,++ -- ** ScheduledActionFilter+ scheduledActionFilter_name,+ scheduledActionFilter_values,++ -- ** ScheduledActionType+ scheduledActionType_pauseCluster,+ scheduledActionType_resizeCluster,+ scheduledActionType_resumeCluster,++ -- ** Snapshot+ snapshot_accountsWithRestoreAccess,+ snapshot_actualIncrementalBackupSizeInMegaBytes,+ snapshot_availabilityZone,+ snapshot_backupProgressInMegaBytes,+ snapshot_clusterCreateTime,+ snapshot_clusterIdentifier,+ snapshot_clusterVersion,+ snapshot_currentBackupRateInMegaBytesPerSecond,+ snapshot_dbName,+ snapshot_elapsedTimeInSeconds,+ snapshot_encrypted,+ snapshot_encryptedWithHSM,+ snapshot_engineFullVersion,+ snapshot_enhancedVpcRouting,+ snapshot_estimatedSecondsToCompletion,+ snapshot_kmsKeyId,+ snapshot_maintenanceTrackName,+ snapshot_manualSnapshotRemainingDays,+ snapshot_manualSnapshotRetentionPeriod,+ snapshot_masterUsername,+ snapshot_nodeType,+ snapshot_numberOfNodes,+ snapshot_ownerAccount,+ snapshot_port,+ snapshot_restorableNodeTypes,+ snapshot_snapshotCreateTime,+ snapshot_snapshotIdentifier,+ snapshot_snapshotRetentionStartTime,+ snapshot_snapshotType,+ snapshot_sourceRegion,+ snapshot_status,+ snapshot_tags,+ snapshot_totalBackupSizeInMegaBytes,+ snapshot_vpcId,++ -- ** SnapshotCopyGrant+ snapshotCopyGrant_kmsKeyId,+ snapshotCopyGrant_snapshotCopyGrantName,+ snapshotCopyGrant_tags,++ -- ** SnapshotErrorMessage+ snapshotErrorMessage_failureCode,+ snapshotErrorMessage_failureReason,+ snapshotErrorMessage_snapshotClusterIdentifier,+ snapshotErrorMessage_snapshotIdentifier,++ -- ** SnapshotSchedule+ snapshotSchedule_associatedClusterCount,+ snapshotSchedule_associatedClusters,+ snapshotSchedule_nextInvocations,+ snapshotSchedule_scheduleDefinitions,+ snapshotSchedule_scheduleDescription,+ snapshotSchedule_scheduleIdentifier,+ snapshotSchedule_tags,++ -- ** SnapshotSortingEntity+ snapshotSortingEntity_sortOrder,+ snapshotSortingEntity_attribute,++ -- ** Subnet+ subnet_subnetAvailabilityZone,+ subnet_subnetIdentifier,+ subnet_subnetStatus,++ -- ** SupportedOperation+ supportedOperation_operationName,++ -- ** SupportedPlatform+ supportedPlatform_name,++ -- ** TableRestoreStatus+ tableRestoreStatus_clusterIdentifier,+ tableRestoreStatus_message,+ tableRestoreStatus_newTableName,+ tableRestoreStatus_progressInMegaBytes,+ tableRestoreStatus_requestTime,+ tableRestoreStatus_snapshotIdentifier,+ tableRestoreStatus_sourceDatabaseName,+ tableRestoreStatus_sourceSchemaName,+ tableRestoreStatus_sourceTableName,+ tableRestoreStatus_status,+ tableRestoreStatus_tableRestoreRequestId,+ tableRestoreStatus_targetDatabaseName,+ tableRestoreStatus_targetSchemaName,+ tableRestoreStatus_totalDataInMegaBytes,++ -- ** Tag+ tag_key,+ tag_value,++ -- ** TaggedResource+ taggedResource_resourceName,+ taggedResource_resourceType,+ taggedResource_tag,++ -- ** UpdateTarget+ updateTarget_databaseVersion,+ updateTarget_maintenanceTrackName,+ updateTarget_supportedOperations,++ -- ** UsageLimit+ usageLimit_amount,+ usageLimit_breachAction,+ usageLimit_clusterIdentifier,+ usageLimit_featureType,+ usageLimit_limitType,+ usageLimit_period,+ usageLimit_tags,+ usageLimit_usageLimitId,++ -- ** VpcEndpoint+ vpcEndpoint_networkInterfaces,+ vpcEndpoint_vpcEndpointId,+ vpcEndpoint_vpcId,++ -- ** VpcSecurityGroupMembership+ vpcSecurityGroupMembership_status,+ vpcSecurityGroupMembership_vpcSecurityGroupId,+ )+where++import Amazonka.Redshift.AcceptReservedNodeExchange+import Amazonka.Redshift.AddPartner+import Amazonka.Redshift.AssociateDataShareConsumer+import Amazonka.Redshift.AuthorizeClusterSecurityGroupIngress+import Amazonka.Redshift.AuthorizeDataShare+import Amazonka.Redshift.AuthorizeEndpointAccess+import Amazonka.Redshift.AuthorizeSnapshotAccess+import Amazonka.Redshift.BatchDeleteClusterSnapshots+import Amazonka.Redshift.BatchModifyClusterSnapshots+import Amazonka.Redshift.CancelResize+import Amazonka.Redshift.CopyClusterSnapshot+import Amazonka.Redshift.CreateAuthenticationProfile+import Amazonka.Redshift.CreateCluster+import Amazonka.Redshift.CreateClusterParameterGroup+import Amazonka.Redshift.CreateClusterSecurityGroup+import Amazonka.Redshift.CreateClusterSnapshot+import Amazonka.Redshift.CreateClusterSubnetGroup+import Amazonka.Redshift.CreateEndpointAccess+import Amazonka.Redshift.CreateEventSubscription+import Amazonka.Redshift.CreateHsmClientCertificate+import Amazonka.Redshift.CreateHsmConfiguration+import Amazonka.Redshift.CreateScheduledAction+import Amazonka.Redshift.CreateSnapshotCopyGrant+import Amazonka.Redshift.CreateSnapshotSchedule+import Amazonka.Redshift.CreateTags+import Amazonka.Redshift.CreateUsageLimit+import Amazonka.Redshift.DeauthorizeDataShare+import Amazonka.Redshift.DeleteAuthenticationProfile+import Amazonka.Redshift.DeleteCluster+import Amazonka.Redshift.DeleteClusterParameterGroup+import Amazonka.Redshift.DeleteClusterSecurityGroup+import Amazonka.Redshift.DeleteClusterSnapshot+import Amazonka.Redshift.DeleteClusterSubnetGroup+import Amazonka.Redshift.DeleteEndpointAccess+import Amazonka.Redshift.DeleteEventSubscription+import Amazonka.Redshift.DeleteHsmClientCertificate+import Amazonka.Redshift.DeleteHsmConfiguration+import Amazonka.Redshift.DeletePartner+import Amazonka.Redshift.DeleteScheduledAction+import Amazonka.Redshift.DeleteSnapshotCopyGrant+import Amazonka.Redshift.DeleteSnapshotSchedule+import Amazonka.Redshift.DeleteTags+import Amazonka.Redshift.DeleteUsageLimit+import Amazonka.Redshift.DescribeAccountAttributes+import Amazonka.Redshift.DescribeAuthenticationProfiles+import Amazonka.Redshift.DescribeClusterDbRevisions+import Amazonka.Redshift.DescribeClusterParameterGroups+import Amazonka.Redshift.DescribeClusterParameters+import Amazonka.Redshift.DescribeClusterSecurityGroups+import Amazonka.Redshift.DescribeClusterSnapshots+import Amazonka.Redshift.DescribeClusterSubnetGroups+import Amazonka.Redshift.DescribeClusterTracks+import Amazonka.Redshift.DescribeClusterVersions+import Amazonka.Redshift.DescribeClusters+import Amazonka.Redshift.DescribeDataShares+import Amazonka.Redshift.DescribeDataSharesForConsumer+import Amazonka.Redshift.DescribeDataSharesForProducer+import Amazonka.Redshift.DescribeDefaultClusterParameters+import Amazonka.Redshift.DescribeEndpointAccess+import Amazonka.Redshift.DescribeEndpointAuthorization+import Amazonka.Redshift.DescribeEventCategories+import Amazonka.Redshift.DescribeEventSubscriptions+import Amazonka.Redshift.DescribeEvents+import Amazonka.Redshift.DescribeHsmClientCertificates+import Amazonka.Redshift.DescribeHsmConfigurations+import Amazonka.Redshift.DescribeLoggingStatus+import Amazonka.Redshift.DescribeNodeConfigurationOptions+import Amazonka.Redshift.DescribeOrderableClusterOptions+import Amazonka.Redshift.DescribePartners+import Amazonka.Redshift.DescribeReservedNodeExchangeStatus+import Amazonka.Redshift.DescribeReservedNodeOfferings+import Amazonka.Redshift.DescribeReservedNodes+import Amazonka.Redshift.DescribeResize+import Amazonka.Redshift.DescribeScheduledActions+import Amazonka.Redshift.DescribeSnapshotCopyGrants+import Amazonka.Redshift.DescribeSnapshotSchedules+import Amazonka.Redshift.DescribeStorage+import Amazonka.Redshift.DescribeTableRestoreStatus+import Amazonka.Redshift.DescribeTags+import Amazonka.Redshift.DescribeUsageLimits+import Amazonka.Redshift.DisableLogging+import Amazonka.Redshift.DisableSnapshotCopy+import Amazonka.Redshift.DisassociateDataShareConsumer+import Amazonka.Redshift.EnableLogging+import Amazonka.Redshift.EnableSnapshotCopy+import Amazonka.Redshift.GetClusterCredentials+import Amazonka.Redshift.GetClusterCredentialsWithIAM+import Amazonka.Redshift.GetReservedNodeExchangeConfigurationOptions+import Amazonka.Redshift.GetReservedNodeExchangeOfferings+import Amazonka.Redshift.ModifyAquaConfiguration+import Amazonka.Redshift.ModifyAuthenticationProfile+import Amazonka.Redshift.ModifyCluster+import Amazonka.Redshift.ModifyClusterDbRevision+import Amazonka.Redshift.ModifyClusterIamRoles+import Amazonka.Redshift.ModifyClusterMaintenance+import Amazonka.Redshift.ModifyClusterParameterGroup+import Amazonka.Redshift.ModifyClusterSnapshot+import Amazonka.Redshift.ModifyClusterSnapshotSchedule+import Amazonka.Redshift.ModifyClusterSubnetGroup+import Amazonka.Redshift.ModifyEndpointAccess+import Amazonka.Redshift.ModifyEventSubscription+import Amazonka.Redshift.ModifyScheduledAction+import Amazonka.Redshift.ModifySnapshotCopyRetentionPeriod+import Amazonka.Redshift.ModifySnapshotSchedule+import Amazonka.Redshift.ModifyUsageLimit+import Amazonka.Redshift.PauseCluster+import Amazonka.Redshift.PurchaseReservedNodeOffering+import Amazonka.Redshift.RebootCluster+import Amazonka.Redshift.RejectDataShare+import Amazonka.Redshift.ResetClusterParameterGroup+import Amazonka.Redshift.ResizeCluster+import Amazonka.Redshift.RestoreFromClusterSnapshot+import Amazonka.Redshift.RestoreTableFromClusterSnapshot+import Amazonka.Redshift.ResumeCluster+import Amazonka.Redshift.RevokeClusterSecurityGroupIngress+import Amazonka.Redshift.RevokeEndpointAccess+import Amazonka.Redshift.RevokeSnapshotAccess+import Amazonka.Redshift.RotateEncryptionKey+import Amazonka.Redshift.Types.AccountAttribute+import Amazonka.Redshift.Types.AccountWithRestoreAccess+import Amazonka.Redshift.Types.AquaConfiguration+import Amazonka.Redshift.Types.AttributeValueTarget+import Amazonka.Redshift.Types.AuthenticationProfile+import Amazonka.Redshift.Types.AvailabilityZone+import Amazonka.Redshift.Types.Cluster+import Amazonka.Redshift.Types.ClusterAssociatedToSchedule+import Amazonka.Redshift.Types.ClusterDbRevision+import Amazonka.Redshift.Types.ClusterIamRole+import Amazonka.Redshift.Types.ClusterNode+import Amazonka.Redshift.Types.ClusterParameterGroup+import Amazonka.Redshift.Types.ClusterParameterGroupNameMessage+import Amazonka.Redshift.Types.ClusterParameterGroupStatus+import Amazonka.Redshift.Types.ClusterParameterStatus+import Amazonka.Redshift.Types.ClusterSecurityGroup+import Amazonka.Redshift.Types.ClusterSecurityGroupMembership+import Amazonka.Redshift.Types.ClusterSnapshotCopyStatus+import Amazonka.Redshift.Types.ClusterSubnetGroup+import Amazonka.Redshift.Types.ClusterVersion+import Amazonka.Redshift.Types.DataShare+import Amazonka.Redshift.Types.DataShareAssociation+import Amazonka.Redshift.Types.DataTransferProgress+import Amazonka.Redshift.Types.DefaultClusterParameters+import Amazonka.Redshift.Types.DeferredMaintenanceWindow+import Amazonka.Redshift.Types.DeleteClusterSnapshotMessage+import Amazonka.Redshift.Types.EC2SecurityGroup+import Amazonka.Redshift.Types.ElasticIpStatus+import Amazonka.Redshift.Types.Endpoint+import Amazonka.Redshift.Types.EndpointAccess+import Amazonka.Redshift.Types.EndpointAuthorization+import Amazonka.Redshift.Types.Event+import Amazonka.Redshift.Types.EventCategoriesMap+import Amazonka.Redshift.Types.EventInfoMap+import Amazonka.Redshift.Types.EventSubscription+import Amazonka.Redshift.Types.HsmClientCertificate+import Amazonka.Redshift.Types.HsmConfiguration+import Amazonka.Redshift.Types.HsmStatus+import Amazonka.Redshift.Types.IPRange+import Amazonka.Redshift.Types.LoggingStatus+import Amazonka.Redshift.Types.MaintenanceTrack+import Amazonka.Redshift.Types.NetworkInterface+import Amazonka.Redshift.Types.NodeConfigurationOption+import Amazonka.Redshift.Types.NodeConfigurationOptionsFilter+import Amazonka.Redshift.Types.OrderableClusterOption+import Amazonka.Redshift.Types.Parameter+import Amazonka.Redshift.Types.PartnerIntegrationInfo+import Amazonka.Redshift.Types.PartnerIntegrationInputMessage+import Amazonka.Redshift.Types.PartnerIntegrationOutputMessage+import Amazonka.Redshift.Types.PauseClusterMessage+import Amazonka.Redshift.Types.PendingModifiedValues+import Amazonka.Redshift.Types.RecurringCharge+import Amazonka.Redshift.Types.ReservedNode+import Amazonka.Redshift.Types.ReservedNodeConfigurationOption+import Amazonka.Redshift.Types.ReservedNodeExchangeStatus+import Amazonka.Redshift.Types.ReservedNodeOffering+import Amazonka.Redshift.Types.ResizeClusterMessage+import Amazonka.Redshift.Types.ResizeInfo+import Amazonka.Redshift.Types.ResizeProgressMessage+import Amazonka.Redshift.Types.RestoreStatus+import Amazonka.Redshift.Types.ResumeClusterMessage+import Amazonka.Redshift.Types.RevisionTarget+import Amazonka.Redshift.Types.ScheduledAction+import Amazonka.Redshift.Types.ScheduledActionFilter+import Amazonka.Redshift.Types.ScheduledActionType+import Amazonka.Redshift.Types.Snapshot+import Amazonka.Redshift.Types.SnapshotCopyGrant+import Amazonka.Redshift.Types.SnapshotErrorMessage+import Amazonka.Redshift.Types.SnapshotSchedule+import Amazonka.Redshift.Types.SnapshotSortingEntity+import Amazonka.Redshift.Types.Subnet+import Amazonka.Redshift.Types.SupportedOperation+import Amazonka.Redshift.Types.SupportedPlatform+import Amazonka.Redshift.Types.TableRestoreStatus+import Amazonka.Redshift.Types.Tag+import Amazonka.Redshift.Types.TaggedResource+import Amazonka.Redshift.Types.UpdateTarget+import Amazonka.Redshift.Types.UsageLimit+import Amazonka.Redshift.Types.VpcEndpoint+import Amazonka.Redshift.Types.VpcSecurityGroupMembership+import Amazonka.Redshift.UpdatePartnerStatus
+ gen/Amazonka/Redshift/ModifyAquaConfiguration.hs view
@@ -0,0 +1,187 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module : Amazonka.Redshift.ModifyAquaConfiguration+-- Copyright : (c) 2013-2023 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- This operation is retired. Calling this operation does not change AQUA+-- configuration. Amazon Redshift automatically determines whether to use+-- AQUA (Advanced Query Accelerator).+module Amazonka.Redshift.ModifyAquaConfiguration+ ( -- * Creating a Request+ ModifyAquaConfiguration (..),+ newModifyAquaConfiguration,++ -- * Request Lenses+ modifyAquaConfiguration_aquaConfigurationStatus,+ modifyAquaConfiguration_clusterIdentifier,++ -- * Destructuring the Response+ ModifyAquaConfigurationResponse (..),+ newModifyAquaConfigurationResponse,++ -- * Response Lenses+ modifyAquaConfigurationResponse_aquaConfiguration,+ modifyAquaConfigurationResponse_httpStatus,+ )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Redshift.Types+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newModifyAquaConfiguration' smart constructor.+data ModifyAquaConfiguration = ModifyAquaConfiguration'+ { -- | This parameter is retired. Amazon Redshift automatically determines+ -- whether to use AQUA (Advanced Query Accelerator).+ aquaConfigurationStatus :: Prelude.Maybe AquaConfigurationStatus,+ -- | The identifier of the cluster to be modified.+ clusterIdentifier :: Prelude.Text+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ModifyAquaConfiguration' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'aquaConfigurationStatus', 'modifyAquaConfiguration_aquaConfigurationStatus' - This parameter is retired. Amazon Redshift automatically determines+-- whether to use AQUA (Advanced Query Accelerator).+--+-- 'clusterIdentifier', 'modifyAquaConfiguration_clusterIdentifier' - The identifier of the cluster to be modified.+newModifyAquaConfiguration ::+ -- | 'clusterIdentifier'+ Prelude.Text ->+ ModifyAquaConfiguration+newModifyAquaConfiguration pClusterIdentifier_ =+ ModifyAquaConfiguration'+ { aquaConfigurationStatus =+ Prelude.Nothing,+ clusterIdentifier = pClusterIdentifier_+ }++-- | This parameter is retired. Amazon Redshift automatically determines+-- whether to use AQUA (Advanced Query Accelerator).+modifyAquaConfiguration_aquaConfigurationStatus :: Lens.Lens' ModifyAquaConfiguration (Prelude.Maybe AquaConfigurationStatus)+modifyAquaConfiguration_aquaConfigurationStatus = Lens.lens (\ModifyAquaConfiguration' {aquaConfigurationStatus} -> aquaConfigurationStatus) (\s@ModifyAquaConfiguration' {} a -> s {aquaConfigurationStatus = a} :: ModifyAquaConfiguration)++-- | The identifier of the cluster to be modified.+modifyAquaConfiguration_clusterIdentifier :: Lens.Lens' ModifyAquaConfiguration Prelude.Text+modifyAquaConfiguration_clusterIdentifier = Lens.lens (\ModifyAquaConfiguration' {clusterIdentifier} -> clusterIdentifier) (\s@ModifyAquaConfiguration' {} a -> s {clusterIdentifier = a} :: ModifyAquaConfiguration)++instance Core.AWSRequest ModifyAquaConfiguration where+ type+ AWSResponse ModifyAquaConfiguration =+ ModifyAquaConfigurationResponse+ request overrides =+ Request.postQuery (overrides defaultService)+ response =+ Response.receiveXMLWrapper+ "ModifyAquaConfigurationResult"+ ( \s h x ->+ ModifyAquaConfigurationResponse'+ Prelude.<$> (x Data..@? "AquaConfiguration")+ Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+ )++instance Prelude.Hashable ModifyAquaConfiguration where+ hashWithSalt _salt ModifyAquaConfiguration' {..} =+ _salt+ `Prelude.hashWithSalt` aquaConfigurationStatus+ `Prelude.hashWithSalt` clusterIdentifier++instance Prelude.NFData ModifyAquaConfiguration where+ rnf ModifyAquaConfiguration' {..} =+ Prelude.rnf aquaConfigurationStatus+ `Prelude.seq` Prelude.rnf clusterIdentifier++instance Data.ToHeaders ModifyAquaConfiguration where+ toHeaders = Prelude.const Prelude.mempty++instance Data.ToPath ModifyAquaConfiguration where+ toPath = Prelude.const "/"++instance Data.ToQuery ModifyAquaConfiguration where+ toQuery ModifyAquaConfiguration' {..} =+ Prelude.mconcat+ [ "Action"+ Data.=: ("ModifyAquaConfiguration" :: Prelude.ByteString),+ "Version"+ Data.=: ("2012-12-01" :: Prelude.ByteString),+ "AquaConfigurationStatus"+ Data.=: aquaConfigurationStatus,+ "ClusterIdentifier" Data.=: clusterIdentifier+ ]++-- | /See:/ 'newModifyAquaConfigurationResponse' smart constructor.+data ModifyAquaConfigurationResponse = ModifyAquaConfigurationResponse'+ { -- | This parameter is retired. Amazon Redshift automatically determines+ -- whether to use AQUA (Advanced Query Accelerator).+ aquaConfiguration :: Prelude.Maybe AquaConfiguration,+ -- | The response's http status code.+ httpStatus :: Prelude.Int+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ModifyAquaConfigurationResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'aquaConfiguration', 'modifyAquaConfigurationResponse_aquaConfiguration' - This parameter is retired. Amazon Redshift automatically determines+-- whether to use AQUA (Advanced Query Accelerator).+--+-- 'httpStatus', 'modifyAquaConfigurationResponse_httpStatus' - The response's http status code.+newModifyAquaConfigurationResponse ::+ -- | 'httpStatus'+ Prelude.Int ->+ ModifyAquaConfigurationResponse+newModifyAquaConfigurationResponse pHttpStatus_ =+ ModifyAquaConfigurationResponse'+ { aquaConfiguration =+ Prelude.Nothing,+ httpStatus = pHttpStatus_+ }++-- | This parameter is retired. Amazon Redshift automatically determines+-- whether to use AQUA (Advanced Query Accelerator).+modifyAquaConfigurationResponse_aquaConfiguration :: Lens.Lens' ModifyAquaConfigurationResponse (Prelude.Maybe AquaConfiguration)+modifyAquaConfigurationResponse_aquaConfiguration = Lens.lens (\ModifyAquaConfigurationResponse' {aquaConfiguration} -> aquaConfiguration) (\s@ModifyAquaConfigurationResponse' {} a -> s {aquaConfiguration = a} :: ModifyAquaConfigurationResponse)++-- | The response's http status code.+modifyAquaConfigurationResponse_httpStatus :: Lens.Lens' ModifyAquaConfigurationResponse Prelude.Int+modifyAquaConfigurationResponse_httpStatus = Lens.lens (\ModifyAquaConfigurationResponse' {httpStatus} -> httpStatus) (\s@ModifyAquaConfigurationResponse' {} a -> s {httpStatus = a} :: ModifyAquaConfigurationResponse)++instance+ Prelude.NFData+ ModifyAquaConfigurationResponse+ where+ rnf ModifyAquaConfigurationResponse' {..} =+ Prelude.rnf aquaConfiguration+ `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/Redshift/ModifyAuthenticationProfile.hs view
@@ -0,0 +1,206 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module : Amazonka.Redshift.ModifyAuthenticationProfile+-- Copyright : (c) 2013-2023 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Modifies an authentication profile.+module Amazonka.Redshift.ModifyAuthenticationProfile+ ( -- * Creating a Request+ ModifyAuthenticationProfile (..),+ newModifyAuthenticationProfile,++ -- * Request Lenses+ modifyAuthenticationProfile_authenticationProfileName,+ modifyAuthenticationProfile_authenticationProfileContent,++ -- * Destructuring the Response+ ModifyAuthenticationProfileResponse (..),+ newModifyAuthenticationProfileResponse,++ -- * Response Lenses+ modifyAuthenticationProfileResponse_authenticationProfileContent,+ modifyAuthenticationProfileResponse_authenticationProfileName,+ modifyAuthenticationProfileResponse_httpStatus,+ )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Redshift.Types+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newModifyAuthenticationProfile' smart constructor.+data ModifyAuthenticationProfile = ModifyAuthenticationProfile'+ { -- | The name of the authentication profile to replace.+ authenticationProfileName :: Prelude.Text,+ -- | The new content of the authentication profile in JSON format. The+ -- maximum length of the JSON string is determined by a quota for your+ -- account.+ authenticationProfileContent :: Prelude.Text+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ModifyAuthenticationProfile' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'authenticationProfileName', 'modifyAuthenticationProfile_authenticationProfileName' - The name of the authentication profile to replace.+--+-- 'authenticationProfileContent', 'modifyAuthenticationProfile_authenticationProfileContent' - The new content of the authentication profile in JSON format. The+-- maximum length of the JSON string is determined by a quota for your+-- account.+newModifyAuthenticationProfile ::+ -- | 'authenticationProfileName'+ Prelude.Text ->+ -- | 'authenticationProfileContent'+ Prelude.Text ->+ ModifyAuthenticationProfile+newModifyAuthenticationProfile+ pAuthenticationProfileName_+ pAuthenticationProfileContent_ =+ ModifyAuthenticationProfile'+ { authenticationProfileName =+ pAuthenticationProfileName_,+ authenticationProfileContent =+ pAuthenticationProfileContent_+ }++-- | The name of the authentication profile to replace.+modifyAuthenticationProfile_authenticationProfileName :: Lens.Lens' ModifyAuthenticationProfile Prelude.Text+modifyAuthenticationProfile_authenticationProfileName = Lens.lens (\ModifyAuthenticationProfile' {authenticationProfileName} -> authenticationProfileName) (\s@ModifyAuthenticationProfile' {} a -> s {authenticationProfileName = a} :: ModifyAuthenticationProfile)++-- | The new content of the authentication profile in JSON format. The+-- maximum length of the JSON string is determined by a quota for your+-- account.+modifyAuthenticationProfile_authenticationProfileContent :: Lens.Lens' ModifyAuthenticationProfile Prelude.Text+modifyAuthenticationProfile_authenticationProfileContent = Lens.lens (\ModifyAuthenticationProfile' {authenticationProfileContent} -> authenticationProfileContent) (\s@ModifyAuthenticationProfile' {} a -> s {authenticationProfileContent = a} :: ModifyAuthenticationProfile)++instance Core.AWSRequest ModifyAuthenticationProfile where+ type+ AWSResponse ModifyAuthenticationProfile =+ ModifyAuthenticationProfileResponse+ request overrides =+ Request.postQuery (overrides defaultService)+ response =+ Response.receiveXMLWrapper+ "ModifyAuthenticationProfileResult"+ ( \s h x ->+ ModifyAuthenticationProfileResponse'+ Prelude.<$> (x Data..@? "AuthenticationProfileContent")+ Prelude.<*> (x Data..@? "AuthenticationProfileName")+ Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+ )++instance Prelude.Hashable ModifyAuthenticationProfile where+ hashWithSalt _salt ModifyAuthenticationProfile' {..} =+ _salt+ `Prelude.hashWithSalt` authenticationProfileName+ `Prelude.hashWithSalt` authenticationProfileContent++instance Prelude.NFData ModifyAuthenticationProfile where+ rnf ModifyAuthenticationProfile' {..} =+ Prelude.rnf authenticationProfileName+ `Prelude.seq` Prelude.rnf authenticationProfileContent++instance Data.ToHeaders ModifyAuthenticationProfile where+ toHeaders = Prelude.const Prelude.mempty++instance Data.ToPath ModifyAuthenticationProfile where+ toPath = Prelude.const "/"++instance Data.ToQuery ModifyAuthenticationProfile where+ toQuery ModifyAuthenticationProfile' {..} =+ Prelude.mconcat+ [ "Action"+ Data.=: ( "ModifyAuthenticationProfile" ::+ Prelude.ByteString+ ),+ "Version"+ Data.=: ("2012-12-01" :: Prelude.ByteString),+ "AuthenticationProfileName"+ Data.=: authenticationProfileName,+ "AuthenticationProfileContent"+ Data.=: authenticationProfileContent+ ]++-- | /See:/ 'newModifyAuthenticationProfileResponse' smart constructor.+data ModifyAuthenticationProfileResponse = ModifyAuthenticationProfileResponse'+ { -- | The updated content of the authentication profile in JSON format.+ authenticationProfileContent :: Prelude.Maybe Prelude.Text,+ -- | The name of the authentication profile that was replaced.+ authenticationProfileName :: Prelude.Maybe Prelude.Text,+ -- | The response's http status code.+ httpStatus :: Prelude.Int+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ModifyAuthenticationProfileResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'authenticationProfileContent', 'modifyAuthenticationProfileResponse_authenticationProfileContent' - The updated content of the authentication profile in JSON format.+--+-- 'authenticationProfileName', 'modifyAuthenticationProfileResponse_authenticationProfileName' - The name of the authentication profile that was replaced.+--+-- 'httpStatus', 'modifyAuthenticationProfileResponse_httpStatus' - The response's http status code.+newModifyAuthenticationProfileResponse ::+ -- | 'httpStatus'+ Prelude.Int ->+ ModifyAuthenticationProfileResponse+newModifyAuthenticationProfileResponse pHttpStatus_ =+ ModifyAuthenticationProfileResponse'+ { authenticationProfileContent =+ Prelude.Nothing,+ authenticationProfileName =+ Prelude.Nothing,+ httpStatus = pHttpStatus_+ }++-- | The updated content of the authentication profile in JSON format.+modifyAuthenticationProfileResponse_authenticationProfileContent :: Lens.Lens' ModifyAuthenticationProfileResponse (Prelude.Maybe Prelude.Text)+modifyAuthenticationProfileResponse_authenticationProfileContent = Lens.lens (\ModifyAuthenticationProfileResponse' {authenticationProfileContent} -> authenticationProfileContent) (\s@ModifyAuthenticationProfileResponse' {} a -> s {authenticationProfileContent = a} :: ModifyAuthenticationProfileResponse)++-- | The name of the authentication profile that was replaced.+modifyAuthenticationProfileResponse_authenticationProfileName :: Lens.Lens' ModifyAuthenticationProfileResponse (Prelude.Maybe Prelude.Text)+modifyAuthenticationProfileResponse_authenticationProfileName = Lens.lens (\ModifyAuthenticationProfileResponse' {authenticationProfileName} -> authenticationProfileName) (\s@ModifyAuthenticationProfileResponse' {} a -> s {authenticationProfileName = a} :: ModifyAuthenticationProfileResponse)++-- | The response's http status code.+modifyAuthenticationProfileResponse_httpStatus :: Lens.Lens' ModifyAuthenticationProfileResponse Prelude.Int+modifyAuthenticationProfileResponse_httpStatus = Lens.lens (\ModifyAuthenticationProfileResponse' {httpStatus} -> httpStatus) (\s@ModifyAuthenticationProfileResponse' {} a -> s {httpStatus = a} :: ModifyAuthenticationProfileResponse)++instance+ Prelude.NFData+ ModifyAuthenticationProfileResponse+ where+ rnf ModifyAuthenticationProfileResponse' {..} =+ Prelude.rnf authenticationProfileContent+ `Prelude.seq` Prelude.rnf authenticationProfileName+ `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/Redshift/ModifyCluster.hs view
@@ -0,0 +1,1008 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module : Amazonka.Redshift.ModifyCluster+-- Copyright : (c) 2013-2023 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Modifies the settings for a cluster.+--+-- You can also change node type and the number of nodes to scale up or+-- down the cluster. When resizing a cluster, you must specify both the+-- number of nodes and the node type even if one of the parameters does not+-- change.+--+-- You can add another security or parameter group, or change the admin+-- user password. Resetting a cluster password or modifying the security+-- groups associated with a cluster do not need a reboot. However,+-- modifying a parameter group requires a reboot for parameters to take+-- effect. For more information about managing clusters, go to+-- <https://docs.aws.amazon.com/redshift/latest/mgmt/working-with-clusters.html Amazon Redshift Clusters>+-- in the /Amazon Redshift Cluster Management Guide/.+module Amazonka.Redshift.ModifyCluster+ ( -- * Creating a Request+ ModifyCluster (..),+ newModifyCluster,++ -- * Request Lenses+ modifyCluster_allowVersionUpgrade,+ modifyCluster_automatedSnapshotRetentionPeriod,+ modifyCluster_availabilityZone,+ modifyCluster_availabilityZoneRelocation,+ modifyCluster_clusterParameterGroupName,+ modifyCluster_clusterSecurityGroups,+ modifyCluster_clusterType,+ modifyCluster_clusterVersion,+ modifyCluster_elasticIp,+ modifyCluster_encrypted,+ modifyCluster_enhancedVpcRouting,+ modifyCluster_hsmClientCertificateIdentifier,+ modifyCluster_hsmConfigurationIdentifier,+ modifyCluster_kmsKeyId,+ modifyCluster_maintenanceTrackName,+ modifyCluster_manualSnapshotRetentionPeriod,+ modifyCluster_masterUserPassword,+ modifyCluster_newClusterIdentifier,+ modifyCluster_nodeType,+ modifyCluster_numberOfNodes,+ modifyCluster_port,+ modifyCluster_preferredMaintenanceWindow,+ modifyCluster_publiclyAccessible,+ modifyCluster_vpcSecurityGroupIds,+ modifyCluster_clusterIdentifier,++ -- * Destructuring the Response+ ModifyClusterResponse (..),+ newModifyClusterResponse,++ -- * Response Lenses+ modifyClusterResponse_cluster,+ modifyClusterResponse_httpStatus,+ )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Redshift.Types+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- |+--+-- /See:/ 'newModifyCluster' smart constructor.+data ModifyCluster = ModifyCluster'+ { -- | If @true@, major version upgrades will be applied automatically to the+ -- cluster during the maintenance window.+ --+ -- Default: @false@+ allowVersionUpgrade :: Prelude.Maybe Prelude.Bool,+ -- | The number of days that automated snapshots are retained. If the value+ -- is 0, automated snapshots are disabled. Even if automated snapshots are+ -- disabled, you can still create manual snapshots when you want with+ -- CreateClusterSnapshot.+ --+ -- If you decrease the automated snapshot retention period from its current+ -- value, existing automated snapshots that fall outside of the new+ -- retention period will be immediately deleted.+ --+ -- You can\'t disable automated snapshots for RA3 node types. Set the+ -- automated retention period from 1-35 days.+ --+ -- Default: Uses existing setting.+ --+ -- Constraints: Must be a value from 0 to 35.+ automatedSnapshotRetentionPeriod :: Prelude.Maybe Prelude.Int,+ -- | The option to initiate relocation for an Amazon Redshift cluster to the+ -- target Availability Zone.+ availabilityZone :: Prelude.Maybe Prelude.Text,+ -- | The option to enable relocation for an Amazon Redshift cluster between+ -- Availability Zones after the cluster modification is complete.+ availabilityZoneRelocation :: Prelude.Maybe Prelude.Bool,+ -- | The name of the cluster parameter group to apply to this cluster. This+ -- change is applied only after the cluster is rebooted. To reboot a+ -- cluster use RebootCluster.+ --+ -- Default: Uses existing setting.+ --+ -- Constraints: The cluster parameter group must be in the same parameter+ -- group family that matches the cluster version.+ clusterParameterGroupName :: Prelude.Maybe Prelude.Text,+ -- | A list of cluster security groups to be authorized on this cluster. This+ -- change is asynchronously applied as soon as possible.+ --+ -- Security groups currently associated with the cluster, and not in the+ -- list of groups to apply, will be revoked from the cluster.+ --+ -- Constraints:+ --+ -- - Must be 1 to 255 alphanumeric characters or hyphens+ --+ -- - First character must be a letter+ --+ -- - Cannot end with a hyphen or contain two consecutive hyphens+ clusterSecurityGroups :: Prelude.Maybe [Prelude.Text],+ -- | The new cluster type.+ --+ -- When you submit your cluster resize request, your existing cluster goes+ -- into a read-only mode. After Amazon Redshift provisions a new cluster+ -- based on your resize requirements, there will be outage for a period+ -- while the old cluster is deleted and your connection is switched to the+ -- new cluster. You can use DescribeResize to track the progress of the+ -- resize request.+ --+ -- Valid Values: @ multi-node | single-node @+ clusterType :: Prelude.Maybe Prelude.Text,+ -- | The new version number of the Amazon Redshift engine to upgrade to.+ --+ -- For major version upgrades, if a non-default cluster parameter group is+ -- currently in use, a new cluster parameter group in the cluster parameter+ -- group family for the new version must be specified. The new cluster+ -- parameter group can be the default for that cluster parameter group+ -- family. For more information about parameters and parameter groups, go+ -- to+ -- <https://docs.aws.amazon.com/redshift/latest/mgmt/working-with-parameter-groups.html Amazon Redshift Parameter Groups>+ -- in the /Amazon Redshift Cluster Management Guide/.+ --+ -- Example: @1.0@+ clusterVersion :: Prelude.Maybe Prelude.Text,+ -- | The Elastic IP (EIP) address for the cluster.+ --+ -- Constraints: The cluster must be provisioned in EC2-VPC and+ -- publicly-accessible through an Internet gateway. For more information+ -- about provisioning clusters in EC2-VPC, go to+ -- <https://docs.aws.amazon.com/redshift/latest/mgmt/working-with-clusters.html#cluster-platforms Supported Platforms to Launch Your Cluster>+ -- in the Amazon Redshift Cluster Management Guide.+ elasticIp :: Prelude.Maybe Prelude.Text,+ -- | Indicates whether the cluster is encrypted. If the value is encrypted+ -- (true) and you provide a value for the @KmsKeyId@ parameter, we encrypt+ -- the cluster with the provided @KmsKeyId@. If you don\'t provide a+ -- @KmsKeyId@, we encrypt with the default key.+ --+ -- If the value is not encrypted (false), then the cluster is decrypted.+ encrypted :: Prelude.Maybe Prelude.Bool,+ -- | An option that specifies whether to create the cluster with enhanced VPC+ -- routing enabled. To create a cluster that uses enhanced VPC routing, the+ -- cluster must be in a VPC. For more information, see+ -- <https://docs.aws.amazon.com/redshift/latest/mgmt/enhanced-vpc-routing.html Enhanced VPC Routing>+ -- in the Amazon Redshift Cluster Management Guide.+ --+ -- If this option is @true@, enhanced VPC routing is enabled.+ --+ -- Default: false+ enhancedVpcRouting :: Prelude.Maybe Prelude.Bool,+ -- | Specifies the name of the HSM client certificate the Amazon Redshift+ -- cluster uses to retrieve the data encryption keys stored in an HSM.+ hsmClientCertificateIdentifier :: Prelude.Maybe Prelude.Text,+ -- | Specifies the name of the HSM configuration that contains the+ -- information the Amazon Redshift cluster can use to retrieve and store+ -- keys in an HSM.+ hsmConfigurationIdentifier :: Prelude.Maybe Prelude.Text,+ -- | The Key Management Service (KMS) key ID of the encryption key that you+ -- want to use to encrypt data in the cluster.+ kmsKeyId :: Prelude.Maybe Prelude.Text,+ -- | The name for the maintenance track that you want to assign for the+ -- cluster. This name change is asynchronous. The new track name stays in+ -- the @PendingModifiedValues@ for the cluster until the next maintenance+ -- window. When the maintenance track changes, the cluster is switched to+ -- the latest cluster release available for the maintenance track. At this+ -- point, the maintenance track name is applied.+ maintenanceTrackName :: Prelude.Maybe Prelude.Text,+ -- | The default for number of days that a newly created manual snapshot is+ -- retained. If the value is -1, the manual snapshot is retained+ -- indefinitely. This value doesn\'t retroactively change the retention+ -- periods of existing manual snapshots.+ --+ -- The value must be either -1 or an integer between 1 and 3,653.+ --+ -- The default value is -1.+ manualSnapshotRetentionPeriod :: Prelude.Maybe Prelude.Int,+ -- | The new password for the cluster admin user. This change is+ -- asynchronously applied as soon as possible. Between the time of the+ -- request and the completion of the request, the @MasterUserPassword@+ -- element exists in the @PendingModifiedValues@ element of the operation+ -- response.+ --+ -- Operations never return the password, so this operation provides a way+ -- to regain access to the admin user account for a cluster if the password+ -- is lost.+ --+ -- Default: Uses existing setting.+ --+ -- Constraints:+ --+ -- - Must be between 8 and 64 characters in length.+ --+ -- - Must contain at least one uppercase letter.+ --+ -- - Must contain at least one lowercase letter.+ --+ -- - Must contain one number.+ --+ -- - Can be any printable ASCII character (ASCII code 33-126) except @\'@+ -- (single quote), @\"@ (double quote), @\\@, @\/@, or @\@@.+ masterUserPassword :: Prelude.Maybe Prelude.Text,+ -- | The new identifier for the cluster.+ --+ -- Constraints:+ --+ -- - Must contain from 1 to 63 alphanumeric characters or hyphens.+ --+ -- - Alphabetic characters must be lowercase.+ --+ -- - First character must be a letter.+ --+ -- - Cannot end with a hyphen or contain two consecutive hyphens.+ --+ -- - Must be unique for all clusters within an Amazon Web Services+ -- account.+ --+ -- Example: @examplecluster@+ newClusterIdentifier' :: Prelude.Maybe Prelude.Text,+ -- | The new node type of the cluster. If you specify a new node type, you+ -- must also specify the number of nodes parameter.+ --+ -- For more information about resizing clusters, go to+ -- <https://docs.aws.amazon.com/redshift/latest/mgmt/rs-resize-tutorial.html Resizing Clusters in Amazon Redshift>+ -- in the /Amazon Redshift Cluster Management Guide/.+ --+ -- Valid Values: @ds2.xlarge@ | @ds2.8xlarge@ | @dc1.large@ | @dc1.8xlarge@+ -- | @dc2.large@ | @dc2.8xlarge@ | @ra3.xlplus@ | @ra3.4xlarge@ |+ -- @ra3.16xlarge@+ nodeType :: Prelude.Maybe Prelude.Text,+ -- | The new number of nodes of the cluster. If you specify a new number of+ -- nodes, you must also specify the node type parameter.+ --+ -- For more information about resizing clusters, go to+ -- <https://docs.aws.amazon.com/redshift/latest/mgmt/rs-resize-tutorial.html Resizing Clusters in Amazon Redshift>+ -- in the /Amazon Redshift Cluster Management Guide/.+ --+ -- Valid Values: Integer greater than @0@.+ numberOfNodes :: Prelude.Maybe Prelude.Int,+ -- | The option to change the port of an Amazon Redshift cluster.+ port :: Prelude.Maybe Prelude.Int,+ -- | The weekly time range (in UTC) during which system maintenance can+ -- occur, if necessary. If system maintenance is necessary during the+ -- window, it may result in an outage.+ --+ -- This maintenance window change is made immediately. If the new+ -- maintenance window indicates the current time, there must be at least+ -- 120 minutes between the current time and end of the window in order to+ -- ensure that pending changes are applied.+ --+ -- Default: Uses existing setting.+ --+ -- Format: ddd:hh24:mi-ddd:hh24:mi, for example @wed:07:30-wed:08:00@.+ --+ -- Valid Days: Mon | Tue | Wed | Thu | Fri | Sat | Sun+ --+ -- Constraints: Must be at least 30 minutes.+ preferredMaintenanceWindow :: Prelude.Maybe Prelude.Text,+ -- | If @true@, the cluster can be accessed from a public network. Only+ -- clusters in VPCs can be set to be publicly available.+ publiclyAccessible :: Prelude.Maybe Prelude.Bool,+ -- | A list of virtual private cloud (VPC) security groups to be associated+ -- with the cluster. This change is asynchronously applied as soon as+ -- possible.+ vpcSecurityGroupIds :: Prelude.Maybe [Prelude.Text],+ -- | The unique identifier of the cluster to be modified.+ --+ -- Example: @examplecluster@+ clusterIdentifier :: Prelude.Text+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ModifyCluster' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'allowVersionUpgrade', 'modifyCluster_allowVersionUpgrade' - If @true@, major version upgrades will be applied automatically to the+-- cluster during the maintenance window.+--+-- Default: @false@+--+-- 'automatedSnapshotRetentionPeriod', 'modifyCluster_automatedSnapshotRetentionPeriod' - The number of days that automated snapshots are retained. If the value+-- is 0, automated snapshots are disabled. Even if automated snapshots are+-- disabled, you can still create manual snapshots when you want with+-- CreateClusterSnapshot.+--+-- If you decrease the automated snapshot retention period from its current+-- value, existing automated snapshots that fall outside of the new+-- retention period will be immediately deleted.+--+-- You can\'t disable automated snapshots for RA3 node types. Set the+-- automated retention period from 1-35 days.+--+-- Default: Uses existing setting.+--+-- Constraints: Must be a value from 0 to 35.+--+-- 'availabilityZone', 'modifyCluster_availabilityZone' - The option to initiate relocation for an Amazon Redshift cluster to the+-- target Availability Zone.+--+-- 'availabilityZoneRelocation', 'modifyCluster_availabilityZoneRelocation' - The option to enable relocation for an Amazon Redshift cluster between+-- Availability Zones after the cluster modification is complete.+--+-- 'clusterParameterGroupName', 'modifyCluster_clusterParameterGroupName' - The name of the cluster parameter group to apply to this cluster. This+-- change is applied only after the cluster is rebooted. To reboot a+-- cluster use RebootCluster.+--+-- Default: Uses existing setting.+--+-- Constraints: The cluster parameter group must be in the same parameter+-- group family that matches the cluster version.+--+-- 'clusterSecurityGroups', 'modifyCluster_clusterSecurityGroups' - A list of cluster security groups to be authorized on this cluster. This+-- change is asynchronously applied as soon as possible.+--+-- Security groups currently associated with the cluster, and not in the+-- list of groups to apply, will be revoked from the cluster.+--+-- Constraints:+--+-- - Must be 1 to 255 alphanumeric characters or hyphens+--+-- - First character must be a letter+--+-- - Cannot end with a hyphen or contain two consecutive hyphens+--+-- 'clusterType', 'modifyCluster_clusterType' - The new cluster type.+--+-- When you submit your cluster resize request, your existing cluster goes+-- into a read-only mode. After Amazon Redshift provisions a new cluster+-- based on your resize requirements, there will be outage for a period+-- while the old cluster is deleted and your connection is switched to the+-- new cluster. You can use DescribeResize to track the progress of the+-- resize request.+--+-- Valid Values: @ multi-node | single-node @+--+-- 'clusterVersion', 'modifyCluster_clusterVersion' - The new version number of the Amazon Redshift engine to upgrade to.+--+-- For major version upgrades, if a non-default cluster parameter group is+-- currently in use, a new cluster parameter group in the cluster parameter+-- group family for the new version must be specified. The new cluster+-- parameter group can be the default for that cluster parameter group+-- family. For more information about parameters and parameter groups, go+-- to+-- <https://docs.aws.amazon.com/redshift/latest/mgmt/working-with-parameter-groups.html Amazon Redshift Parameter Groups>+-- in the /Amazon Redshift Cluster Management Guide/.+--+-- Example: @1.0@+--+-- 'elasticIp', 'modifyCluster_elasticIp' - The Elastic IP (EIP) address for the cluster.+--+-- Constraints: The cluster must be provisioned in EC2-VPC and+-- publicly-accessible through an Internet gateway. For more information+-- about provisioning clusters in EC2-VPC, go to+-- <https://docs.aws.amazon.com/redshift/latest/mgmt/working-with-clusters.html#cluster-platforms Supported Platforms to Launch Your Cluster>+-- in the Amazon Redshift Cluster Management Guide.+--+-- 'encrypted', 'modifyCluster_encrypted' - Indicates whether the cluster is encrypted. If the value is encrypted+-- (true) and you provide a value for the @KmsKeyId@ parameter, we encrypt+-- the cluster with the provided @KmsKeyId@. If you don\'t provide a+-- @KmsKeyId@, we encrypt with the default key.+--+-- If the value is not encrypted (false), then the cluster is decrypted.+--+-- 'enhancedVpcRouting', 'modifyCluster_enhancedVpcRouting' - An option that specifies whether to create the cluster with enhanced VPC+-- routing enabled. To create a cluster that uses enhanced VPC routing, the+-- cluster must be in a VPC. For more information, see+-- <https://docs.aws.amazon.com/redshift/latest/mgmt/enhanced-vpc-routing.html Enhanced VPC Routing>+-- in the Amazon Redshift Cluster Management Guide.+--+-- If this option is @true@, enhanced VPC routing is enabled.+--+-- Default: false+--+-- 'hsmClientCertificateIdentifier', 'modifyCluster_hsmClientCertificateIdentifier' - Specifies the name of the HSM client certificate the Amazon Redshift+-- cluster uses to retrieve the data encryption keys stored in an HSM.+--+-- 'hsmConfigurationIdentifier', 'modifyCluster_hsmConfigurationIdentifier' - Specifies the name of the HSM configuration that contains the+-- information the Amazon Redshift cluster can use to retrieve and store+-- keys in an HSM.+--+-- 'kmsKeyId', 'modifyCluster_kmsKeyId' - The Key Management Service (KMS) key ID of the encryption key that you+-- want to use to encrypt data in the cluster.+--+-- 'maintenanceTrackName', 'modifyCluster_maintenanceTrackName' - The name for the maintenance track that you want to assign for the+-- cluster. This name change is asynchronous. The new track name stays in+-- the @PendingModifiedValues@ for the cluster until the next maintenance+-- window. When the maintenance track changes, the cluster is switched to+-- the latest cluster release available for the maintenance track. At this+-- point, the maintenance track name is applied.+--+-- 'manualSnapshotRetentionPeriod', 'modifyCluster_manualSnapshotRetentionPeriod' - The default for number of days that a newly created manual snapshot is+-- retained. If the value is -1, the manual snapshot is retained+-- indefinitely. This value doesn\'t retroactively change the retention+-- periods of existing manual snapshots.+--+-- The value must be either -1 or an integer between 1 and 3,653.+--+-- The default value is -1.+--+-- 'masterUserPassword', 'modifyCluster_masterUserPassword' - The new password for the cluster admin user. This change is+-- asynchronously applied as soon as possible. Between the time of the+-- request and the completion of the request, the @MasterUserPassword@+-- element exists in the @PendingModifiedValues@ element of the operation+-- response.+--+-- Operations never return the password, so this operation provides a way+-- to regain access to the admin user account for a cluster if the password+-- is lost.+--+-- Default: Uses existing setting.+--+-- Constraints:+--+-- - Must be between 8 and 64 characters in length.+--+-- - Must contain at least one uppercase letter.+--+-- - Must contain at least one lowercase letter.+--+-- - Must contain one number.+--+-- - Can be any printable ASCII character (ASCII code 33-126) except @\'@+-- (single quote), @\"@ (double quote), @\\@, @\/@, or @\@@.+--+-- 'newClusterIdentifier'', 'modifyCluster_newClusterIdentifier' - The new identifier for the cluster.+--+-- Constraints:+--+-- - Must contain from 1 to 63 alphanumeric characters or hyphens.+--+-- - Alphabetic characters must be lowercase.+--+-- - First character must be a letter.+--+-- - Cannot end with a hyphen or contain two consecutive hyphens.+--+-- - Must be unique for all clusters within an Amazon Web Services+-- account.+--+-- Example: @examplecluster@+--+-- 'nodeType', 'modifyCluster_nodeType' - The new node type of the cluster. If you specify a new node type, you+-- must also specify the number of nodes parameter.+--+-- For more information about resizing clusters, go to+-- <https://docs.aws.amazon.com/redshift/latest/mgmt/rs-resize-tutorial.html Resizing Clusters in Amazon Redshift>+-- in the /Amazon Redshift Cluster Management Guide/.+--+-- Valid Values: @ds2.xlarge@ | @ds2.8xlarge@ | @dc1.large@ | @dc1.8xlarge@+-- | @dc2.large@ | @dc2.8xlarge@ | @ra3.xlplus@ | @ra3.4xlarge@ |+-- @ra3.16xlarge@+--+-- 'numberOfNodes', 'modifyCluster_numberOfNodes' - The new number of nodes of the cluster. If you specify a new number of+-- nodes, you must also specify the node type parameter.+--+-- For more information about resizing clusters, go to+-- <https://docs.aws.amazon.com/redshift/latest/mgmt/rs-resize-tutorial.html Resizing Clusters in Amazon Redshift>+-- in the /Amazon Redshift Cluster Management Guide/.+--+-- Valid Values: Integer greater than @0@.+--+-- 'port', 'modifyCluster_port' - The option to change the port of an Amazon Redshift cluster.+--+-- 'preferredMaintenanceWindow', 'modifyCluster_preferredMaintenanceWindow' - The weekly time range (in UTC) during which system maintenance can+-- occur, if necessary. If system maintenance is necessary during the+-- window, it may result in an outage.+--+-- This maintenance window change is made immediately. If the new+-- maintenance window indicates the current time, there must be at least+-- 120 minutes between the current time and end of the window in order to+-- ensure that pending changes are applied.+--+-- Default: Uses existing setting.+--+-- Format: ddd:hh24:mi-ddd:hh24:mi, for example @wed:07:30-wed:08:00@.+--+-- Valid Days: Mon | Tue | Wed | Thu | Fri | Sat | Sun+--+-- Constraints: Must be at least 30 minutes.+--+-- 'publiclyAccessible', 'modifyCluster_publiclyAccessible' - If @true@, the cluster can be accessed from a public network. Only+-- clusters in VPCs can be set to be publicly available.+--+-- 'vpcSecurityGroupIds', 'modifyCluster_vpcSecurityGroupIds' - A list of virtual private cloud (VPC) security groups to be associated+-- with the cluster. This change is asynchronously applied as soon as+-- possible.+--+-- 'clusterIdentifier', 'modifyCluster_clusterIdentifier' - The unique identifier of the cluster to be modified.+--+-- Example: @examplecluster@+newModifyCluster ::+ -- | 'clusterIdentifier'+ Prelude.Text ->+ ModifyCluster+newModifyCluster pClusterIdentifier_ =+ ModifyCluster'+ { allowVersionUpgrade =+ Prelude.Nothing,+ automatedSnapshotRetentionPeriod = Prelude.Nothing,+ availabilityZone = Prelude.Nothing,+ availabilityZoneRelocation = Prelude.Nothing,+ clusterParameterGroupName = Prelude.Nothing,+ clusterSecurityGroups = Prelude.Nothing,+ clusterType = Prelude.Nothing,+ clusterVersion = Prelude.Nothing,+ elasticIp = Prelude.Nothing,+ encrypted = Prelude.Nothing,+ enhancedVpcRouting = Prelude.Nothing,+ hsmClientCertificateIdentifier = Prelude.Nothing,+ hsmConfigurationIdentifier = Prelude.Nothing,+ kmsKeyId = Prelude.Nothing,+ maintenanceTrackName = Prelude.Nothing,+ manualSnapshotRetentionPeriod = Prelude.Nothing,+ masterUserPassword = Prelude.Nothing,+ newClusterIdentifier' = Prelude.Nothing,+ nodeType = Prelude.Nothing,+ numberOfNodes = Prelude.Nothing,+ port = Prelude.Nothing,+ preferredMaintenanceWindow = Prelude.Nothing,+ publiclyAccessible = Prelude.Nothing,+ vpcSecurityGroupIds = Prelude.Nothing,+ clusterIdentifier = pClusterIdentifier_+ }++-- | If @true@, major version upgrades will be applied automatically to the+-- cluster during the maintenance window.+--+-- Default: @false@+modifyCluster_allowVersionUpgrade :: Lens.Lens' ModifyCluster (Prelude.Maybe Prelude.Bool)+modifyCluster_allowVersionUpgrade = Lens.lens (\ModifyCluster' {allowVersionUpgrade} -> allowVersionUpgrade) (\s@ModifyCluster' {} a -> s {allowVersionUpgrade = a} :: ModifyCluster)++-- | The number of days that automated snapshots are retained. If the value+-- is 0, automated snapshots are disabled. Even if automated snapshots are+-- disabled, you can still create manual snapshots when you want with+-- CreateClusterSnapshot.+--+-- If you decrease the automated snapshot retention period from its current+-- value, existing automated snapshots that fall outside of the new+-- retention period will be immediately deleted.+--+-- You can\'t disable automated snapshots for RA3 node types. Set the+-- automated retention period from 1-35 days.+--+-- Default: Uses existing setting.+--+-- Constraints: Must be a value from 0 to 35.+modifyCluster_automatedSnapshotRetentionPeriod :: Lens.Lens' ModifyCluster (Prelude.Maybe Prelude.Int)+modifyCluster_automatedSnapshotRetentionPeriod = Lens.lens (\ModifyCluster' {automatedSnapshotRetentionPeriod} -> automatedSnapshotRetentionPeriod) (\s@ModifyCluster' {} a -> s {automatedSnapshotRetentionPeriod = a} :: ModifyCluster)++-- | The option to initiate relocation for an Amazon Redshift cluster to the+-- target Availability Zone.+modifyCluster_availabilityZone :: Lens.Lens' ModifyCluster (Prelude.Maybe Prelude.Text)+modifyCluster_availabilityZone = Lens.lens (\ModifyCluster' {availabilityZone} -> availabilityZone) (\s@ModifyCluster' {} a -> s {availabilityZone = a} :: ModifyCluster)++-- | The option to enable relocation for an Amazon Redshift cluster between+-- Availability Zones after the cluster modification is complete.+modifyCluster_availabilityZoneRelocation :: Lens.Lens' ModifyCluster (Prelude.Maybe Prelude.Bool)+modifyCluster_availabilityZoneRelocation = Lens.lens (\ModifyCluster' {availabilityZoneRelocation} -> availabilityZoneRelocation) (\s@ModifyCluster' {} a -> s {availabilityZoneRelocation = a} :: ModifyCluster)++-- | The name of the cluster parameter group to apply to this cluster. This+-- change is applied only after the cluster is rebooted. To reboot a+-- cluster use RebootCluster.+--+-- Default: Uses existing setting.+--+-- Constraints: The cluster parameter group must be in the same parameter+-- group family that matches the cluster version.+modifyCluster_clusterParameterGroupName :: Lens.Lens' ModifyCluster (Prelude.Maybe Prelude.Text)+modifyCluster_clusterParameterGroupName = Lens.lens (\ModifyCluster' {clusterParameterGroupName} -> clusterParameterGroupName) (\s@ModifyCluster' {} a -> s {clusterParameterGroupName = a} :: ModifyCluster)++-- | A list of cluster security groups to be authorized on this cluster. This+-- change is asynchronously applied as soon as possible.+--+-- Security groups currently associated with the cluster, and not in the+-- list of groups to apply, will be revoked from the cluster.+--+-- Constraints:+--+-- - Must be 1 to 255 alphanumeric characters or hyphens+--+-- - First character must be a letter+--+-- - Cannot end with a hyphen or contain two consecutive hyphens+modifyCluster_clusterSecurityGroups :: Lens.Lens' ModifyCluster (Prelude.Maybe [Prelude.Text])+modifyCluster_clusterSecurityGroups = Lens.lens (\ModifyCluster' {clusterSecurityGroups} -> clusterSecurityGroups) (\s@ModifyCluster' {} a -> s {clusterSecurityGroups = a} :: ModifyCluster) Prelude.. Lens.mapping Lens.coerced++-- | The new cluster type.+--+-- When you submit your cluster resize request, your existing cluster goes+-- into a read-only mode. After Amazon Redshift provisions a new cluster+-- based on your resize requirements, there will be outage for a period+-- while the old cluster is deleted and your connection is switched to the+-- new cluster. You can use DescribeResize to track the progress of the+-- resize request.+--+-- Valid Values: @ multi-node | single-node @+modifyCluster_clusterType :: Lens.Lens' ModifyCluster (Prelude.Maybe Prelude.Text)+modifyCluster_clusterType = Lens.lens (\ModifyCluster' {clusterType} -> clusterType) (\s@ModifyCluster' {} a -> s {clusterType = a} :: ModifyCluster)++-- | The new version number of the Amazon Redshift engine to upgrade to.+--+-- For major version upgrades, if a non-default cluster parameter group is+-- currently in use, a new cluster parameter group in the cluster parameter+-- group family for the new version must be specified. The new cluster+-- parameter group can be the default for that cluster parameter group+-- family. For more information about parameters and parameter groups, go+-- to+-- <https://docs.aws.amazon.com/redshift/latest/mgmt/working-with-parameter-groups.html Amazon Redshift Parameter Groups>+-- in the /Amazon Redshift Cluster Management Guide/.+--+-- Example: @1.0@+modifyCluster_clusterVersion :: Lens.Lens' ModifyCluster (Prelude.Maybe Prelude.Text)+modifyCluster_clusterVersion = Lens.lens (\ModifyCluster' {clusterVersion} -> clusterVersion) (\s@ModifyCluster' {} a -> s {clusterVersion = a} :: ModifyCluster)++-- | The Elastic IP (EIP) address for the cluster.+--+-- Constraints: The cluster must be provisioned in EC2-VPC and+-- publicly-accessible through an Internet gateway. For more information+-- about provisioning clusters in EC2-VPC, go to+-- <https://docs.aws.amazon.com/redshift/latest/mgmt/working-with-clusters.html#cluster-platforms Supported Platforms to Launch Your Cluster>+-- in the Amazon Redshift Cluster Management Guide.+modifyCluster_elasticIp :: Lens.Lens' ModifyCluster (Prelude.Maybe Prelude.Text)+modifyCluster_elasticIp = Lens.lens (\ModifyCluster' {elasticIp} -> elasticIp) (\s@ModifyCluster' {} a -> s {elasticIp = a} :: ModifyCluster)++-- | Indicates whether the cluster is encrypted. If the value is encrypted+-- (true) and you provide a value for the @KmsKeyId@ parameter, we encrypt+-- the cluster with the provided @KmsKeyId@. If you don\'t provide a+-- @KmsKeyId@, we encrypt with the default key.+--+-- If the value is not encrypted (false), then the cluster is decrypted.+modifyCluster_encrypted :: Lens.Lens' ModifyCluster (Prelude.Maybe Prelude.Bool)+modifyCluster_encrypted = Lens.lens (\ModifyCluster' {encrypted} -> encrypted) (\s@ModifyCluster' {} a -> s {encrypted = a} :: ModifyCluster)++-- | An option that specifies whether to create the cluster with enhanced VPC+-- routing enabled. To create a cluster that uses enhanced VPC routing, the+-- cluster must be in a VPC. For more information, see+-- <https://docs.aws.amazon.com/redshift/latest/mgmt/enhanced-vpc-routing.html Enhanced VPC Routing>+-- in the Amazon Redshift Cluster Management Guide.+--+-- If this option is @true@, enhanced VPC routing is enabled.+--+-- Default: false+modifyCluster_enhancedVpcRouting :: Lens.Lens' ModifyCluster (Prelude.Maybe Prelude.Bool)+modifyCluster_enhancedVpcRouting = Lens.lens (\ModifyCluster' {enhancedVpcRouting} -> enhancedVpcRouting) (\s@ModifyCluster' {} a -> s {enhancedVpcRouting = a} :: ModifyCluster)++-- | Specifies the name of the HSM client certificate the Amazon Redshift+-- cluster uses to retrieve the data encryption keys stored in an HSM.+modifyCluster_hsmClientCertificateIdentifier :: Lens.Lens' ModifyCluster (Prelude.Maybe Prelude.Text)+modifyCluster_hsmClientCertificateIdentifier = Lens.lens (\ModifyCluster' {hsmClientCertificateIdentifier} -> hsmClientCertificateIdentifier) (\s@ModifyCluster' {} a -> s {hsmClientCertificateIdentifier = a} :: ModifyCluster)++-- | Specifies the name of the HSM configuration that contains the+-- information the Amazon Redshift cluster can use to retrieve and store+-- keys in an HSM.+modifyCluster_hsmConfigurationIdentifier :: Lens.Lens' ModifyCluster (Prelude.Maybe Prelude.Text)+modifyCluster_hsmConfigurationIdentifier = Lens.lens (\ModifyCluster' {hsmConfigurationIdentifier} -> hsmConfigurationIdentifier) (\s@ModifyCluster' {} a -> s {hsmConfigurationIdentifier = a} :: ModifyCluster)++-- | The Key Management Service (KMS) key ID of the encryption key that you+-- want to use to encrypt data in the cluster.+modifyCluster_kmsKeyId :: Lens.Lens' ModifyCluster (Prelude.Maybe Prelude.Text)+modifyCluster_kmsKeyId = Lens.lens (\ModifyCluster' {kmsKeyId} -> kmsKeyId) (\s@ModifyCluster' {} a -> s {kmsKeyId = a} :: ModifyCluster)++-- | The name for the maintenance track that you want to assign for the+-- cluster. This name change is asynchronous. The new track name stays in+-- the @PendingModifiedValues@ for the cluster until the next maintenance+-- window. When the maintenance track changes, the cluster is switched to+-- the latest cluster release available for the maintenance track. At this+-- point, the maintenance track name is applied.+modifyCluster_maintenanceTrackName :: Lens.Lens' ModifyCluster (Prelude.Maybe Prelude.Text)+modifyCluster_maintenanceTrackName = Lens.lens (\ModifyCluster' {maintenanceTrackName} -> maintenanceTrackName) (\s@ModifyCluster' {} a -> s {maintenanceTrackName = a} :: ModifyCluster)++-- | The default for number of days that a newly created manual snapshot is+-- retained. If the value is -1, the manual snapshot is retained+-- indefinitely. This value doesn\'t retroactively change the retention+-- periods of existing manual snapshots.+--+-- The value must be either -1 or an integer between 1 and 3,653.+--+-- The default value is -1.+modifyCluster_manualSnapshotRetentionPeriod :: Lens.Lens' ModifyCluster (Prelude.Maybe Prelude.Int)+modifyCluster_manualSnapshotRetentionPeriod = Lens.lens (\ModifyCluster' {manualSnapshotRetentionPeriod} -> manualSnapshotRetentionPeriod) (\s@ModifyCluster' {} a -> s {manualSnapshotRetentionPeriod = a} :: ModifyCluster)++-- | The new password for the cluster admin user. This change is+-- asynchronously applied as soon as possible. Between the time of the+-- request and the completion of the request, the @MasterUserPassword@+-- element exists in the @PendingModifiedValues@ element of the operation+-- response.+--+-- Operations never return the password, so this operation provides a way+-- to regain access to the admin user account for a cluster if the password+-- is lost.+--+-- Default: Uses existing setting.+--+-- Constraints:+--+-- - Must be between 8 and 64 characters in length.+--+-- - Must contain at least one uppercase letter.+--+-- - Must contain at least one lowercase letter.+--+-- - Must contain one number.+--+-- - Can be any printable ASCII character (ASCII code 33-126) except @\'@+-- (single quote), @\"@ (double quote), @\\@, @\/@, or @\@@.+modifyCluster_masterUserPassword :: Lens.Lens' ModifyCluster (Prelude.Maybe Prelude.Text)+modifyCluster_masterUserPassword = Lens.lens (\ModifyCluster' {masterUserPassword} -> masterUserPassword) (\s@ModifyCluster' {} a -> s {masterUserPassword = a} :: ModifyCluster)++-- | The new identifier for the cluster.+--+-- Constraints:+--+-- - Must contain from 1 to 63 alphanumeric characters or hyphens.+--+-- - Alphabetic characters must be lowercase.+--+-- - First character must be a letter.+--+-- - Cannot end with a hyphen or contain two consecutive hyphens.+--+-- - Must be unique for all clusters within an Amazon Web Services+-- account.+--+-- Example: @examplecluster@+modifyCluster_newClusterIdentifier :: Lens.Lens' ModifyCluster (Prelude.Maybe Prelude.Text)+modifyCluster_newClusterIdentifier = Lens.lens (\ModifyCluster' {newClusterIdentifier'} -> newClusterIdentifier') (\s@ModifyCluster' {} a -> s {newClusterIdentifier' = a} :: ModifyCluster)++-- | The new node type of the cluster. If you specify a new node type, you+-- must also specify the number of nodes parameter.+--+-- For more information about resizing clusters, go to+-- <https://docs.aws.amazon.com/redshift/latest/mgmt/rs-resize-tutorial.html Resizing Clusters in Amazon Redshift>+-- in the /Amazon Redshift Cluster Management Guide/.+--+-- Valid Values: @ds2.xlarge@ | @ds2.8xlarge@ | @dc1.large@ | @dc1.8xlarge@+-- | @dc2.large@ | @dc2.8xlarge@ | @ra3.xlplus@ | @ra3.4xlarge@ |+-- @ra3.16xlarge@+modifyCluster_nodeType :: Lens.Lens' ModifyCluster (Prelude.Maybe Prelude.Text)+modifyCluster_nodeType = Lens.lens (\ModifyCluster' {nodeType} -> nodeType) (\s@ModifyCluster' {} a -> s {nodeType = a} :: ModifyCluster)++-- | The new number of nodes of the cluster. If you specify a new number of+-- nodes, you must also specify the node type parameter.+--+-- For more information about resizing clusters, go to+-- <https://docs.aws.amazon.com/redshift/latest/mgmt/rs-resize-tutorial.html Resizing Clusters in Amazon Redshift>+-- in the /Amazon Redshift Cluster Management Guide/.+--+-- Valid Values: Integer greater than @0@.+modifyCluster_numberOfNodes :: Lens.Lens' ModifyCluster (Prelude.Maybe Prelude.Int)+modifyCluster_numberOfNodes = Lens.lens (\ModifyCluster' {numberOfNodes} -> numberOfNodes) (\s@ModifyCluster' {} a -> s {numberOfNodes = a} :: ModifyCluster)++-- | The option to change the port of an Amazon Redshift cluster.+modifyCluster_port :: Lens.Lens' ModifyCluster (Prelude.Maybe Prelude.Int)+modifyCluster_port = Lens.lens (\ModifyCluster' {port} -> port) (\s@ModifyCluster' {} a -> s {port = a} :: ModifyCluster)++-- | The weekly time range (in UTC) during which system maintenance can+-- occur, if necessary. If system maintenance is necessary during the+-- window, it may result in an outage.+--+-- This maintenance window change is made immediately. If the new+-- maintenance window indicates the current time, there must be at least+-- 120 minutes between the current time and end of the window in order to+-- ensure that pending changes are applied.+--+-- Default: Uses existing setting.+--+-- Format: ddd:hh24:mi-ddd:hh24:mi, for example @wed:07:30-wed:08:00@.+--+-- Valid Days: Mon | Tue | Wed | Thu | Fri | Sat | Sun+--+-- Constraints: Must be at least 30 minutes.+modifyCluster_preferredMaintenanceWindow :: Lens.Lens' ModifyCluster (Prelude.Maybe Prelude.Text)+modifyCluster_preferredMaintenanceWindow = Lens.lens (\ModifyCluster' {preferredMaintenanceWindow} -> preferredMaintenanceWindow) (\s@ModifyCluster' {} a -> s {preferredMaintenanceWindow = a} :: ModifyCluster)++-- | If @true@, the cluster can be accessed from a public network. Only+-- clusters in VPCs can be set to be publicly available.+modifyCluster_publiclyAccessible :: Lens.Lens' ModifyCluster (Prelude.Maybe Prelude.Bool)+modifyCluster_publiclyAccessible = Lens.lens (\ModifyCluster' {publiclyAccessible} -> publiclyAccessible) (\s@ModifyCluster' {} a -> s {publiclyAccessible = a} :: ModifyCluster)++-- | A list of virtual private cloud (VPC) security groups to be associated+-- with the cluster. This change is asynchronously applied as soon as+-- possible.+modifyCluster_vpcSecurityGroupIds :: Lens.Lens' ModifyCluster (Prelude.Maybe [Prelude.Text])+modifyCluster_vpcSecurityGroupIds = Lens.lens (\ModifyCluster' {vpcSecurityGroupIds} -> vpcSecurityGroupIds) (\s@ModifyCluster' {} a -> s {vpcSecurityGroupIds = a} :: ModifyCluster) Prelude.. Lens.mapping Lens.coerced++-- | The unique identifier of the cluster to be modified.+--+-- Example: @examplecluster@+modifyCluster_clusterIdentifier :: Lens.Lens' ModifyCluster Prelude.Text+modifyCluster_clusterIdentifier = Lens.lens (\ModifyCluster' {clusterIdentifier} -> clusterIdentifier) (\s@ModifyCluster' {} a -> s {clusterIdentifier = a} :: ModifyCluster)++instance Core.AWSRequest ModifyCluster where+ type+ AWSResponse ModifyCluster =+ ModifyClusterResponse+ request overrides =+ Request.postQuery (overrides defaultService)+ response =+ Response.receiveXMLWrapper+ "ModifyClusterResult"+ ( \s h x ->+ ModifyClusterResponse'+ Prelude.<$> (x Data..@? "Cluster")+ Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+ )++instance Prelude.Hashable ModifyCluster where+ hashWithSalt _salt ModifyCluster' {..} =+ _salt+ `Prelude.hashWithSalt` allowVersionUpgrade+ `Prelude.hashWithSalt` automatedSnapshotRetentionPeriod+ `Prelude.hashWithSalt` availabilityZone+ `Prelude.hashWithSalt` availabilityZoneRelocation+ `Prelude.hashWithSalt` clusterParameterGroupName+ `Prelude.hashWithSalt` clusterSecurityGroups+ `Prelude.hashWithSalt` clusterType+ `Prelude.hashWithSalt` clusterVersion+ `Prelude.hashWithSalt` elasticIp+ `Prelude.hashWithSalt` encrypted+ `Prelude.hashWithSalt` enhancedVpcRouting+ `Prelude.hashWithSalt` hsmClientCertificateIdentifier+ `Prelude.hashWithSalt` hsmConfigurationIdentifier+ `Prelude.hashWithSalt` kmsKeyId+ `Prelude.hashWithSalt` maintenanceTrackName+ `Prelude.hashWithSalt` manualSnapshotRetentionPeriod+ `Prelude.hashWithSalt` masterUserPassword+ `Prelude.hashWithSalt` newClusterIdentifier'+ `Prelude.hashWithSalt` nodeType+ `Prelude.hashWithSalt` numberOfNodes+ `Prelude.hashWithSalt` port+ `Prelude.hashWithSalt` preferredMaintenanceWindow+ `Prelude.hashWithSalt` publiclyAccessible+ `Prelude.hashWithSalt` vpcSecurityGroupIds+ `Prelude.hashWithSalt` clusterIdentifier++instance Prelude.NFData ModifyCluster where+ rnf ModifyCluster' {..} =+ Prelude.rnf allowVersionUpgrade+ `Prelude.seq` Prelude.rnf automatedSnapshotRetentionPeriod+ `Prelude.seq` Prelude.rnf availabilityZone+ `Prelude.seq` Prelude.rnf availabilityZoneRelocation+ `Prelude.seq` Prelude.rnf clusterParameterGroupName+ `Prelude.seq` Prelude.rnf clusterSecurityGroups+ `Prelude.seq` Prelude.rnf clusterType+ `Prelude.seq` Prelude.rnf clusterVersion+ `Prelude.seq` Prelude.rnf elasticIp+ `Prelude.seq` Prelude.rnf encrypted+ `Prelude.seq` Prelude.rnf enhancedVpcRouting+ `Prelude.seq` Prelude.rnf hsmClientCertificateIdentifier+ `Prelude.seq` Prelude.rnf hsmConfigurationIdentifier+ `Prelude.seq` Prelude.rnf kmsKeyId+ `Prelude.seq` Prelude.rnf maintenanceTrackName+ `Prelude.seq` Prelude.rnf+ manualSnapshotRetentionPeriod+ `Prelude.seq` Prelude.rnf masterUserPassword+ `Prelude.seq` Prelude.rnf newClusterIdentifier'+ `Prelude.seq` Prelude.rnf nodeType+ `Prelude.seq` Prelude.rnf numberOfNodes+ `Prelude.seq` Prelude.rnf port+ `Prelude.seq` Prelude.rnf+ preferredMaintenanceWindow+ `Prelude.seq` Prelude.rnf+ publiclyAccessible+ `Prelude.seq` Prelude.rnf+ vpcSecurityGroupIds+ `Prelude.seq` Prelude.rnf+ clusterIdentifier++instance Data.ToHeaders ModifyCluster where+ toHeaders = Prelude.const Prelude.mempty++instance Data.ToPath ModifyCluster where+ toPath = Prelude.const "/"++instance Data.ToQuery ModifyCluster where+ toQuery ModifyCluster' {..} =+ Prelude.mconcat+ [ "Action"+ Data.=: ("ModifyCluster" :: Prelude.ByteString),+ "Version"+ Data.=: ("2012-12-01" :: Prelude.ByteString),+ "AllowVersionUpgrade" Data.=: allowVersionUpgrade,+ "AutomatedSnapshotRetentionPeriod"+ Data.=: automatedSnapshotRetentionPeriod,+ "AvailabilityZone" Data.=: availabilityZone,+ "AvailabilityZoneRelocation"+ Data.=: availabilityZoneRelocation,+ "ClusterParameterGroupName"+ Data.=: clusterParameterGroupName,+ "ClusterSecurityGroups"+ Data.=: Data.toQuery+ ( Data.toQueryList "ClusterSecurityGroupName"+ Prelude.<$> clusterSecurityGroups+ ),+ "ClusterType" Data.=: clusterType,+ "ClusterVersion" Data.=: clusterVersion,+ "ElasticIp" Data.=: elasticIp,+ "Encrypted" Data.=: encrypted,+ "EnhancedVpcRouting" Data.=: enhancedVpcRouting,+ "HsmClientCertificateIdentifier"+ Data.=: hsmClientCertificateIdentifier,+ "HsmConfigurationIdentifier"+ Data.=: hsmConfigurationIdentifier,+ "KmsKeyId" Data.=: kmsKeyId,+ "MaintenanceTrackName" Data.=: maintenanceTrackName,+ "ManualSnapshotRetentionPeriod"+ Data.=: manualSnapshotRetentionPeriod,+ "MasterUserPassword" Data.=: masterUserPassword,+ "NewClusterIdentifier" Data.=: newClusterIdentifier',+ "NodeType" Data.=: nodeType,+ "NumberOfNodes" Data.=: numberOfNodes,+ "Port" Data.=: port,+ "PreferredMaintenanceWindow"+ Data.=: preferredMaintenanceWindow,+ "PubliclyAccessible" Data.=: publiclyAccessible,+ "VpcSecurityGroupIds"+ Data.=: Data.toQuery+ ( Data.toQueryList "VpcSecurityGroupId"+ Prelude.<$> vpcSecurityGroupIds+ ),+ "ClusterIdentifier" Data.=: clusterIdentifier+ ]++-- | /See:/ 'newModifyClusterResponse' smart constructor.+data ModifyClusterResponse = ModifyClusterResponse'+ { cluster :: Prelude.Maybe Cluster,+ -- | The response's http status code.+ httpStatus :: Prelude.Int+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ModifyClusterResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'cluster', 'modifyClusterResponse_cluster' - Undocumented member.+--+-- 'httpStatus', 'modifyClusterResponse_httpStatus' - The response's http status code.+newModifyClusterResponse ::+ -- | 'httpStatus'+ Prelude.Int ->+ ModifyClusterResponse+newModifyClusterResponse pHttpStatus_ =+ ModifyClusterResponse'+ { cluster = Prelude.Nothing,+ httpStatus = pHttpStatus_+ }++-- | Undocumented member.+modifyClusterResponse_cluster :: Lens.Lens' ModifyClusterResponse (Prelude.Maybe Cluster)+modifyClusterResponse_cluster = Lens.lens (\ModifyClusterResponse' {cluster} -> cluster) (\s@ModifyClusterResponse' {} a -> s {cluster = a} :: ModifyClusterResponse)++-- | The response's http status code.+modifyClusterResponse_httpStatus :: Lens.Lens' ModifyClusterResponse Prelude.Int+modifyClusterResponse_httpStatus = Lens.lens (\ModifyClusterResponse' {httpStatus} -> httpStatus) (\s@ModifyClusterResponse' {} a -> s {httpStatus = a} :: ModifyClusterResponse)++instance Prelude.NFData ModifyClusterResponse where+ rnf ModifyClusterResponse' {..} =+ Prelude.rnf cluster+ `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/Redshift/ModifyClusterDbRevision.hs view
@@ -0,0 +1,194 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module : Amazonka.Redshift.ModifyClusterDbRevision+-- Copyright : (c) 2013-2023 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Modifies the database revision of a cluster. The database revision is a+-- unique revision of the database running in a cluster.+module Amazonka.Redshift.ModifyClusterDbRevision+ ( -- * Creating a Request+ ModifyClusterDbRevision (..),+ newModifyClusterDbRevision,++ -- * Request Lenses+ modifyClusterDbRevision_clusterIdentifier,+ modifyClusterDbRevision_revisionTarget,++ -- * Destructuring the Response+ ModifyClusterDbRevisionResponse (..),+ newModifyClusterDbRevisionResponse,++ -- * Response Lenses+ modifyClusterDbRevisionResponse_cluster,+ modifyClusterDbRevisionResponse_httpStatus,+ )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Redshift.Types+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newModifyClusterDbRevision' smart constructor.+data ModifyClusterDbRevision = ModifyClusterDbRevision'+ { -- | The unique identifier of a cluster whose database revision you want to+ -- modify.+ --+ -- Example: @examplecluster@+ clusterIdentifier :: Prelude.Text,+ -- | The identifier of the database revision. You can retrieve this value+ -- from the response to the DescribeClusterDbRevisions request.+ revisionTarget :: Prelude.Text+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ModifyClusterDbRevision' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'clusterIdentifier', 'modifyClusterDbRevision_clusterIdentifier' - The unique identifier of a cluster whose database revision you want to+-- modify.+--+-- Example: @examplecluster@+--+-- 'revisionTarget', 'modifyClusterDbRevision_revisionTarget' - The identifier of the database revision. You can retrieve this value+-- from the response to the DescribeClusterDbRevisions request.+newModifyClusterDbRevision ::+ -- | 'clusterIdentifier'+ Prelude.Text ->+ -- | 'revisionTarget'+ Prelude.Text ->+ ModifyClusterDbRevision+newModifyClusterDbRevision+ pClusterIdentifier_+ pRevisionTarget_ =+ ModifyClusterDbRevision'+ { clusterIdentifier =+ pClusterIdentifier_,+ revisionTarget = pRevisionTarget_+ }++-- | The unique identifier of a cluster whose database revision you want to+-- modify.+--+-- Example: @examplecluster@+modifyClusterDbRevision_clusterIdentifier :: Lens.Lens' ModifyClusterDbRevision Prelude.Text+modifyClusterDbRevision_clusterIdentifier = Lens.lens (\ModifyClusterDbRevision' {clusterIdentifier} -> clusterIdentifier) (\s@ModifyClusterDbRevision' {} a -> s {clusterIdentifier = a} :: ModifyClusterDbRevision)++-- | The identifier of the database revision. You can retrieve this value+-- from the response to the DescribeClusterDbRevisions request.+modifyClusterDbRevision_revisionTarget :: Lens.Lens' ModifyClusterDbRevision Prelude.Text+modifyClusterDbRevision_revisionTarget = Lens.lens (\ModifyClusterDbRevision' {revisionTarget} -> revisionTarget) (\s@ModifyClusterDbRevision' {} a -> s {revisionTarget = a} :: ModifyClusterDbRevision)++instance Core.AWSRequest ModifyClusterDbRevision where+ type+ AWSResponse ModifyClusterDbRevision =+ ModifyClusterDbRevisionResponse+ request overrides =+ Request.postQuery (overrides defaultService)+ response =+ Response.receiveXMLWrapper+ "ModifyClusterDbRevisionResult"+ ( \s h x ->+ ModifyClusterDbRevisionResponse'+ Prelude.<$> (x Data..@? "Cluster")+ Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+ )++instance Prelude.Hashable ModifyClusterDbRevision where+ hashWithSalt _salt ModifyClusterDbRevision' {..} =+ _salt+ `Prelude.hashWithSalt` clusterIdentifier+ `Prelude.hashWithSalt` revisionTarget++instance Prelude.NFData ModifyClusterDbRevision where+ rnf ModifyClusterDbRevision' {..} =+ Prelude.rnf clusterIdentifier+ `Prelude.seq` Prelude.rnf revisionTarget++instance Data.ToHeaders ModifyClusterDbRevision where+ toHeaders = Prelude.const Prelude.mempty++instance Data.ToPath ModifyClusterDbRevision where+ toPath = Prelude.const "/"++instance Data.ToQuery ModifyClusterDbRevision where+ toQuery ModifyClusterDbRevision' {..} =+ Prelude.mconcat+ [ "Action"+ Data.=: ("ModifyClusterDbRevision" :: Prelude.ByteString),+ "Version"+ Data.=: ("2012-12-01" :: Prelude.ByteString),+ "ClusterIdentifier" Data.=: clusterIdentifier,+ "RevisionTarget" Data.=: revisionTarget+ ]++-- | /See:/ 'newModifyClusterDbRevisionResponse' smart constructor.+data ModifyClusterDbRevisionResponse = ModifyClusterDbRevisionResponse'+ { cluster :: Prelude.Maybe Cluster,+ -- | The response's http status code.+ httpStatus :: Prelude.Int+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ModifyClusterDbRevisionResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'cluster', 'modifyClusterDbRevisionResponse_cluster' - Undocumented member.+--+-- 'httpStatus', 'modifyClusterDbRevisionResponse_httpStatus' - The response's http status code.+newModifyClusterDbRevisionResponse ::+ -- | 'httpStatus'+ Prelude.Int ->+ ModifyClusterDbRevisionResponse+newModifyClusterDbRevisionResponse pHttpStatus_ =+ ModifyClusterDbRevisionResponse'+ { cluster =+ Prelude.Nothing,+ httpStatus = pHttpStatus_+ }++-- | Undocumented member.+modifyClusterDbRevisionResponse_cluster :: Lens.Lens' ModifyClusterDbRevisionResponse (Prelude.Maybe Cluster)+modifyClusterDbRevisionResponse_cluster = Lens.lens (\ModifyClusterDbRevisionResponse' {cluster} -> cluster) (\s@ModifyClusterDbRevisionResponse' {} a -> s {cluster = a} :: ModifyClusterDbRevisionResponse)++-- | The response's http status code.+modifyClusterDbRevisionResponse_httpStatus :: Lens.Lens' ModifyClusterDbRevisionResponse Prelude.Int+modifyClusterDbRevisionResponse_httpStatus = Lens.lens (\ModifyClusterDbRevisionResponse' {httpStatus} -> httpStatus) (\s@ModifyClusterDbRevisionResponse' {} a -> s {httpStatus = a} :: ModifyClusterDbRevisionResponse)++instance+ Prelude.NFData+ ModifyClusterDbRevisionResponse+ where+ rnf ModifyClusterDbRevisionResponse' {..} =+ Prelude.rnf cluster+ `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/Redshift/ModifyClusterIamRoles.hs view
@@ -0,0 +1,225 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module : Amazonka.Redshift.ModifyClusterIamRoles+-- Copyright : (c) 2013-2023 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Modifies the list of Identity and Access Management (IAM) roles that can+-- be used by the cluster to access other Amazon Web Services services.+--+-- The maximum number of IAM roles that you can associate is subject to a+-- quota. For more information, go to+-- <https://docs.aws.amazon.com/redshift/latest/mgmt/amazon-redshift-limits.html Quotas and limits>+-- in the /Amazon Redshift Cluster Management Guide/.+module Amazonka.Redshift.ModifyClusterIamRoles+ ( -- * Creating a Request+ ModifyClusterIamRoles (..),+ newModifyClusterIamRoles,++ -- * Request Lenses+ modifyClusterIamRoles_addIamRoles,+ modifyClusterIamRoles_defaultIamRoleArn,+ modifyClusterIamRoles_removeIamRoles,+ modifyClusterIamRoles_clusterIdentifier,++ -- * Destructuring the Response+ ModifyClusterIamRolesResponse (..),+ newModifyClusterIamRolesResponse,++ -- * Response Lenses+ modifyClusterIamRolesResponse_cluster,+ modifyClusterIamRolesResponse_httpStatus,+ )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Redshift.Types+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- |+--+-- /See:/ 'newModifyClusterIamRoles' smart constructor.+data ModifyClusterIamRoles = ModifyClusterIamRoles'+ { -- | Zero or more IAM roles to associate with the cluster. The roles must be+ -- in their Amazon Resource Name (ARN) format.+ addIamRoles :: Prelude.Maybe [Prelude.Text],+ -- | The Amazon Resource Name (ARN) for the IAM role that was set as default+ -- for the cluster when the cluster was last modified.+ defaultIamRoleArn :: Prelude.Maybe Prelude.Text,+ -- | Zero or more IAM roles in ARN format to disassociate from the cluster.+ removeIamRoles :: Prelude.Maybe [Prelude.Text],+ -- | The unique identifier of the cluster for which you want to associate or+ -- disassociate IAM roles.+ clusterIdentifier :: Prelude.Text+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ModifyClusterIamRoles' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'addIamRoles', 'modifyClusterIamRoles_addIamRoles' - Zero or more IAM roles to associate with the cluster. The roles must be+-- in their Amazon Resource Name (ARN) format.+--+-- 'defaultIamRoleArn', 'modifyClusterIamRoles_defaultIamRoleArn' - The Amazon Resource Name (ARN) for the IAM role that was set as default+-- for the cluster when the cluster was last modified.+--+-- 'removeIamRoles', 'modifyClusterIamRoles_removeIamRoles' - Zero or more IAM roles in ARN format to disassociate from the cluster.+--+-- 'clusterIdentifier', 'modifyClusterIamRoles_clusterIdentifier' - The unique identifier of the cluster for which you want to associate or+-- disassociate IAM roles.+newModifyClusterIamRoles ::+ -- | 'clusterIdentifier'+ Prelude.Text ->+ ModifyClusterIamRoles+newModifyClusterIamRoles pClusterIdentifier_ =+ ModifyClusterIamRoles'+ { addIamRoles =+ Prelude.Nothing,+ defaultIamRoleArn = Prelude.Nothing,+ removeIamRoles = Prelude.Nothing,+ clusterIdentifier = pClusterIdentifier_+ }++-- | Zero or more IAM roles to associate with the cluster. The roles must be+-- in their Amazon Resource Name (ARN) format.+modifyClusterIamRoles_addIamRoles :: Lens.Lens' ModifyClusterIamRoles (Prelude.Maybe [Prelude.Text])+modifyClusterIamRoles_addIamRoles = Lens.lens (\ModifyClusterIamRoles' {addIamRoles} -> addIamRoles) (\s@ModifyClusterIamRoles' {} a -> s {addIamRoles = a} :: ModifyClusterIamRoles) Prelude.. Lens.mapping Lens.coerced++-- | The Amazon Resource Name (ARN) for the IAM role that was set as default+-- for the cluster when the cluster was last modified.+modifyClusterIamRoles_defaultIamRoleArn :: Lens.Lens' ModifyClusterIamRoles (Prelude.Maybe Prelude.Text)+modifyClusterIamRoles_defaultIamRoleArn = Lens.lens (\ModifyClusterIamRoles' {defaultIamRoleArn} -> defaultIamRoleArn) (\s@ModifyClusterIamRoles' {} a -> s {defaultIamRoleArn = a} :: ModifyClusterIamRoles)++-- | Zero or more IAM roles in ARN format to disassociate from the cluster.+modifyClusterIamRoles_removeIamRoles :: Lens.Lens' ModifyClusterIamRoles (Prelude.Maybe [Prelude.Text])+modifyClusterIamRoles_removeIamRoles = Lens.lens (\ModifyClusterIamRoles' {removeIamRoles} -> removeIamRoles) (\s@ModifyClusterIamRoles' {} a -> s {removeIamRoles = a} :: ModifyClusterIamRoles) Prelude.. Lens.mapping Lens.coerced++-- | The unique identifier of the cluster for which you want to associate or+-- disassociate IAM roles.+modifyClusterIamRoles_clusterIdentifier :: Lens.Lens' ModifyClusterIamRoles Prelude.Text+modifyClusterIamRoles_clusterIdentifier = Lens.lens (\ModifyClusterIamRoles' {clusterIdentifier} -> clusterIdentifier) (\s@ModifyClusterIamRoles' {} a -> s {clusterIdentifier = a} :: ModifyClusterIamRoles)++instance Core.AWSRequest ModifyClusterIamRoles where+ type+ AWSResponse ModifyClusterIamRoles =+ ModifyClusterIamRolesResponse+ request overrides =+ Request.postQuery (overrides defaultService)+ response =+ Response.receiveXMLWrapper+ "ModifyClusterIamRolesResult"+ ( \s h x ->+ ModifyClusterIamRolesResponse'+ Prelude.<$> (x Data..@? "Cluster")+ Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+ )++instance Prelude.Hashable ModifyClusterIamRoles where+ hashWithSalt _salt ModifyClusterIamRoles' {..} =+ _salt+ `Prelude.hashWithSalt` addIamRoles+ `Prelude.hashWithSalt` defaultIamRoleArn+ `Prelude.hashWithSalt` removeIamRoles+ `Prelude.hashWithSalt` clusterIdentifier++instance Prelude.NFData ModifyClusterIamRoles where+ rnf ModifyClusterIamRoles' {..} =+ Prelude.rnf addIamRoles+ `Prelude.seq` Prelude.rnf defaultIamRoleArn+ `Prelude.seq` Prelude.rnf removeIamRoles+ `Prelude.seq` Prelude.rnf clusterIdentifier++instance Data.ToHeaders ModifyClusterIamRoles where+ toHeaders = Prelude.const Prelude.mempty++instance Data.ToPath ModifyClusterIamRoles where+ toPath = Prelude.const "/"++instance Data.ToQuery ModifyClusterIamRoles where+ toQuery ModifyClusterIamRoles' {..} =+ Prelude.mconcat+ [ "Action"+ Data.=: ("ModifyClusterIamRoles" :: Prelude.ByteString),+ "Version"+ Data.=: ("2012-12-01" :: Prelude.ByteString),+ "AddIamRoles"+ Data.=: Data.toQuery+ ( Data.toQueryList "IamRoleArn"+ Prelude.<$> addIamRoles+ ),+ "DefaultIamRoleArn" Data.=: defaultIamRoleArn,+ "RemoveIamRoles"+ Data.=: Data.toQuery+ ( Data.toQueryList "IamRoleArn"+ Prelude.<$> removeIamRoles+ ),+ "ClusterIdentifier" Data.=: clusterIdentifier+ ]++-- | /See:/ 'newModifyClusterIamRolesResponse' smart constructor.+data ModifyClusterIamRolesResponse = ModifyClusterIamRolesResponse'+ { cluster :: Prelude.Maybe Cluster,+ -- | The response's http status code.+ httpStatus :: Prelude.Int+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ModifyClusterIamRolesResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'cluster', 'modifyClusterIamRolesResponse_cluster' - Undocumented member.+--+-- 'httpStatus', 'modifyClusterIamRolesResponse_httpStatus' - The response's http status code.+newModifyClusterIamRolesResponse ::+ -- | 'httpStatus'+ Prelude.Int ->+ ModifyClusterIamRolesResponse+newModifyClusterIamRolesResponse pHttpStatus_ =+ ModifyClusterIamRolesResponse'+ { cluster =+ Prelude.Nothing,+ httpStatus = pHttpStatus_+ }++-- | Undocumented member.+modifyClusterIamRolesResponse_cluster :: Lens.Lens' ModifyClusterIamRolesResponse (Prelude.Maybe Cluster)+modifyClusterIamRolesResponse_cluster = Lens.lens (\ModifyClusterIamRolesResponse' {cluster} -> cluster) (\s@ModifyClusterIamRolesResponse' {} a -> s {cluster = a} :: ModifyClusterIamRolesResponse)++-- | The response's http status code.+modifyClusterIamRolesResponse_httpStatus :: Lens.Lens' ModifyClusterIamRolesResponse Prelude.Int+modifyClusterIamRolesResponse_httpStatus = Lens.lens (\ModifyClusterIamRolesResponse' {httpStatus} -> httpStatus) (\s@ModifyClusterIamRolesResponse' {} a -> s {httpStatus = a} :: ModifyClusterIamRolesResponse)++instance Prelude.NFData ModifyClusterIamRolesResponse where+ rnf ModifyClusterIamRolesResponse' {..} =+ Prelude.rnf cluster+ `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/Redshift/ModifyClusterMaintenance.hs view
@@ -0,0 +1,245 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module : Amazonka.Redshift.ModifyClusterMaintenance+-- Copyright : (c) 2013-2023 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Modifies the maintenance settings of a cluster.+module Amazonka.Redshift.ModifyClusterMaintenance+ ( -- * Creating a Request+ ModifyClusterMaintenance (..),+ newModifyClusterMaintenance,++ -- * Request Lenses+ modifyClusterMaintenance_deferMaintenance,+ modifyClusterMaintenance_deferMaintenanceDuration,+ modifyClusterMaintenance_deferMaintenanceEndTime,+ modifyClusterMaintenance_deferMaintenanceIdentifier,+ modifyClusterMaintenance_deferMaintenanceStartTime,+ modifyClusterMaintenance_clusterIdentifier,++ -- * Destructuring the Response+ ModifyClusterMaintenanceResponse (..),+ newModifyClusterMaintenanceResponse,++ -- * Response Lenses+ modifyClusterMaintenanceResponse_cluster,+ modifyClusterMaintenanceResponse_httpStatus,+ )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Redshift.Types+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newModifyClusterMaintenance' smart constructor.+data ModifyClusterMaintenance = ModifyClusterMaintenance'+ { -- | A boolean indicating whether to enable the deferred maintenance window.+ deferMaintenance :: Prelude.Maybe Prelude.Bool,+ -- | An integer indicating the duration of the maintenance window in days. If+ -- you specify a duration, you can\'t specify an end time. The duration+ -- must be 45 days or less.+ deferMaintenanceDuration :: Prelude.Maybe Prelude.Int,+ -- | A timestamp indicating end time for the deferred maintenance window. If+ -- you specify an end time, you can\'t specify a duration.+ deferMaintenanceEndTime :: Prelude.Maybe Data.ISO8601,+ -- | A unique identifier for the deferred maintenance window.+ deferMaintenanceIdentifier :: Prelude.Maybe Prelude.Text,+ -- | A timestamp indicating the start time for the deferred maintenance+ -- window.+ deferMaintenanceStartTime :: Prelude.Maybe Data.ISO8601,+ -- | A unique identifier for the cluster.+ clusterIdentifier :: Prelude.Text+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ModifyClusterMaintenance' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'deferMaintenance', 'modifyClusterMaintenance_deferMaintenance' - A boolean indicating whether to enable the deferred maintenance window.+--+-- 'deferMaintenanceDuration', 'modifyClusterMaintenance_deferMaintenanceDuration' - An integer indicating the duration of the maintenance window in days. If+-- you specify a duration, you can\'t specify an end time. The duration+-- must be 45 days or less.+--+-- 'deferMaintenanceEndTime', 'modifyClusterMaintenance_deferMaintenanceEndTime' - A timestamp indicating end time for the deferred maintenance window. If+-- you specify an end time, you can\'t specify a duration.+--+-- 'deferMaintenanceIdentifier', 'modifyClusterMaintenance_deferMaintenanceIdentifier' - A unique identifier for the deferred maintenance window.+--+-- 'deferMaintenanceStartTime', 'modifyClusterMaintenance_deferMaintenanceStartTime' - A timestamp indicating the start time for the deferred maintenance+-- window.+--+-- 'clusterIdentifier', 'modifyClusterMaintenance_clusterIdentifier' - A unique identifier for the cluster.+newModifyClusterMaintenance ::+ -- | 'clusterIdentifier'+ Prelude.Text ->+ ModifyClusterMaintenance+newModifyClusterMaintenance pClusterIdentifier_ =+ ModifyClusterMaintenance'+ { deferMaintenance =+ Prelude.Nothing,+ deferMaintenanceDuration = Prelude.Nothing,+ deferMaintenanceEndTime = Prelude.Nothing,+ deferMaintenanceIdentifier = Prelude.Nothing,+ deferMaintenanceStartTime = Prelude.Nothing,+ clusterIdentifier = pClusterIdentifier_+ }++-- | A boolean indicating whether to enable the deferred maintenance window.+modifyClusterMaintenance_deferMaintenance :: Lens.Lens' ModifyClusterMaintenance (Prelude.Maybe Prelude.Bool)+modifyClusterMaintenance_deferMaintenance = Lens.lens (\ModifyClusterMaintenance' {deferMaintenance} -> deferMaintenance) (\s@ModifyClusterMaintenance' {} a -> s {deferMaintenance = a} :: ModifyClusterMaintenance)++-- | An integer indicating the duration of the maintenance window in days. If+-- you specify a duration, you can\'t specify an end time. The duration+-- must be 45 days or less.+modifyClusterMaintenance_deferMaintenanceDuration :: Lens.Lens' ModifyClusterMaintenance (Prelude.Maybe Prelude.Int)+modifyClusterMaintenance_deferMaintenanceDuration = Lens.lens (\ModifyClusterMaintenance' {deferMaintenanceDuration} -> deferMaintenanceDuration) (\s@ModifyClusterMaintenance' {} a -> s {deferMaintenanceDuration = a} :: ModifyClusterMaintenance)++-- | A timestamp indicating end time for the deferred maintenance window. If+-- you specify an end time, you can\'t specify a duration.+modifyClusterMaintenance_deferMaintenanceEndTime :: Lens.Lens' ModifyClusterMaintenance (Prelude.Maybe Prelude.UTCTime)+modifyClusterMaintenance_deferMaintenanceEndTime = Lens.lens (\ModifyClusterMaintenance' {deferMaintenanceEndTime} -> deferMaintenanceEndTime) (\s@ModifyClusterMaintenance' {} a -> s {deferMaintenanceEndTime = a} :: ModifyClusterMaintenance) Prelude.. Lens.mapping Data._Time++-- | A unique identifier for the deferred maintenance window.+modifyClusterMaintenance_deferMaintenanceIdentifier :: Lens.Lens' ModifyClusterMaintenance (Prelude.Maybe Prelude.Text)+modifyClusterMaintenance_deferMaintenanceIdentifier = Lens.lens (\ModifyClusterMaintenance' {deferMaintenanceIdentifier} -> deferMaintenanceIdentifier) (\s@ModifyClusterMaintenance' {} a -> s {deferMaintenanceIdentifier = a} :: ModifyClusterMaintenance)++-- | A timestamp indicating the start time for the deferred maintenance+-- window.+modifyClusterMaintenance_deferMaintenanceStartTime :: Lens.Lens' ModifyClusterMaintenance (Prelude.Maybe Prelude.UTCTime)+modifyClusterMaintenance_deferMaintenanceStartTime = Lens.lens (\ModifyClusterMaintenance' {deferMaintenanceStartTime} -> deferMaintenanceStartTime) (\s@ModifyClusterMaintenance' {} a -> s {deferMaintenanceStartTime = a} :: ModifyClusterMaintenance) Prelude.. Lens.mapping Data._Time++-- | A unique identifier for the cluster.+modifyClusterMaintenance_clusterIdentifier :: Lens.Lens' ModifyClusterMaintenance Prelude.Text+modifyClusterMaintenance_clusterIdentifier = Lens.lens (\ModifyClusterMaintenance' {clusterIdentifier} -> clusterIdentifier) (\s@ModifyClusterMaintenance' {} a -> s {clusterIdentifier = a} :: ModifyClusterMaintenance)++instance Core.AWSRequest ModifyClusterMaintenance where+ type+ AWSResponse ModifyClusterMaintenance =+ ModifyClusterMaintenanceResponse+ request overrides =+ Request.postQuery (overrides defaultService)+ response =+ Response.receiveXMLWrapper+ "ModifyClusterMaintenanceResult"+ ( \s h x ->+ ModifyClusterMaintenanceResponse'+ Prelude.<$> (x Data..@? "Cluster")+ Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+ )++instance Prelude.Hashable ModifyClusterMaintenance where+ hashWithSalt _salt ModifyClusterMaintenance' {..} =+ _salt+ `Prelude.hashWithSalt` deferMaintenance+ `Prelude.hashWithSalt` deferMaintenanceDuration+ `Prelude.hashWithSalt` deferMaintenanceEndTime+ `Prelude.hashWithSalt` deferMaintenanceIdentifier+ `Prelude.hashWithSalt` deferMaintenanceStartTime+ `Prelude.hashWithSalt` clusterIdentifier++instance Prelude.NFData ModifyClusterMaintenance where+ rnf ModifyClusterMaintenance' {..} =+ Prelude.rnf deferMaintenance+ `Prelude.seq` Prelude.rnf deferMaintenanceDuration+ `Prelude.seq` Prelude.rnf deferMaintenanceEndTime+ `Prelude.seq` Prelude.rnf deferMaintenanceIdentifier+ `Prelude.seq` Prelude.rnf deferMaintenanceStartTime+ `Prelude.seq` Prelude.rnf clusterIdentifier++instance Data.ToHeaders ModifyClusterMaintenance where+ toHeaders = Prelude.const Prelude.mempty++instance Data.ToPath ModifyClusterMaintenance where+ toPath = Prelude.const "/"++instance Data.ToQuery ModifyClusterMaintenance where+ toQuery ModifyClusterMaintenance' {..} =+ Prelude.mconcat+ [ "Action"+ Data.=: ("ModifyClusterMaintenance" :: Prelude.ByteString),+ "Version"+ Data.=: ("2012-12-01" :: Prelude.ByteString),+ "DeferMaintenance" Data.=: deferMaintenance,+ "DeferMaintenanceDuration"+ Data.=: deferMaintenanceDuration,+ "DeferMaintenanceEndTime"+ Data.=: deferMaintenanceEndTime,+ "DeferMaintenanceIdentifier"+ Data.=: deferMaintenanceIdentifier,+ "DeferMaintenanceStartTime"+ Data.=: deferMaintenanceStartTime,+ "ClusterIdentifier" Data.=: clusterIdentifier+ ]++-- | /See:/ 'newModifyClusterMaintenanceResponse' smart constructor.+data ModifyClusterMaintenanceResponse = ModifyClusterMaintenanceResponse'+ { cluster :: Prelude.Maybe Cluster,+ -- | The response's http status code.+ httpStatus :: Prelude.Int+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ModifyClusterMaintenanceResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'cluster', 'modifyClusterMaintenanceResponse_cluster' - Undocumented member.+--+-- 'httpStatus', 'modifyClusterMaintenanceResponse_httpStatus' - The response's http status code.+newModifyClusterMaintenanceResponse ::+ -- | 'httpStatus'+ Prelude.Int ->+ ModifyClusterMaintenanceResponse+newModifyClusterMaintenanceResponse pHttpStatus_ =+ ModifyClusterMaintenanceResponse'+ { cluster =+ Prelude.Nothing,+ httpStatus = pHttpStatus_+ }++-- | Undocumented member.+modifyClusterMaintenanceResponse_cluster :: Lens.Lens' ModifyClusterMaintenanceResponse (Prelude.Maybe Cluster)+modifyClusterMaintenanceResponse_cluster = Lens.lens (\ModifyClusterMaintenanceResponse' {cluster} -> cluster) (\s@ModifyClusterMaintenanceResponse' {} a -> s {cluster = a} :: ModifyClusterMaintenanceResponse)++-- | The response's http status code.+modifyClusterMaintenanceResponse_httpStatus :: Lens.Lens' ModifyClusterMaintenanceResponse Prelude.Int+modifyClusterMaintenanceResponse_httpStatus = Lens.lens (\ModifyClusterMaintenanceResponse' {httpStatus} -> httpStatus) (\s@ModifyClusterMaintenanceResponse' {} a -> s {httpStatus = a} :: ModifyClusterMaintenanceResponse)++instance+ Prelude.NFData+ ModifyClusterMaintenanceResponse+ where+ rnf ModifyClusterMaintenanceResponse' {..} =+ Prelude.rnf cluster+ `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/Redshift/ModifyClusterParameterGroup.hs view
@@ -0,0 +1,161 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module : Amazonka.Redshift.ModifyClusterParameterGroup+-- Copyright : (c) 2013-2023 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Modifies the parameters of a parameter group. For the parameters+-- parameter, it can\'t contain ASCII characters.+--+-- For more information about parameters and parameter groups, go to+-- <https://docs.aws.amazon.com/redshift/latest/mgmt/working-with-parameter-groups.html Amazon Redshift Parameter Groups>+-- in the /Amazon Redshift Cluster Management Guide/.+module Amazonka.Redshift.ModifyClusterParameterGroup+ ( -- * Creating a Request+ ModifyClusterParameterGroup (..),+ newModifyClusterParameterGroup,++ -- * Request Lenses+ modifyClusterParameterGroup_parameterGroupName,+ modifyClusterParameterGroup_parameters,++ -- * Destructuring the Response+ ClusterParameterGroupNameMessage (..),+ newClusterParameterGroupNameMessage,++ -- * Response Lenses+ clusterParameterGroupNameMessage_parameterGroupName,+ clusterParameterGroupNameMessage_parameterGroupStatus,+ )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Redshift.Types+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | Describes a modify cluster parameter group operation.+--+-- /See:/ 'newModifyClusterParameterGroup' smart constructor.+data ModifyClusterParameterGroup = ModifyClusterParameterGroup'+ { -- | The name of the parameter group to be modified.+ parameterGroupName :: Prelude.Text,+ -- | An array of parameters to be modified. A maximum of 20 parameters can be+ -- modified in a single request.+ --+ -- For each parameter to be modified, you must supply at least the+ -- parameter name and parameter value; other name-value pairs of the+ -- parameter are optional.+ --+ -- For the workload management (WLM) configuration, you must supply all the+ -- name-value pairs in the wlm_json_configuration parameter.+ parameters :: [Parameter]+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ModifyClusterParameterGroup' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'parameterGroupName', 'modifyClusterParameterGroup_parameterGroupName' - The name of the parameter group to be modified.+--+-- 'parameters', 'modifyClusterParameterGroup_parameters' - An array of parameters to be modified. A maximum of 20 parameters can be+-- modified in a single request.+--+-- For each parameter to be modified, you must supply at least the+-- parameter name and parameter value; other name-value pairs of the+-- parameter are optional.+--+-- For the workload management (WLM) configuration, you must supply all the+-- name-value pairs in the wlm_json_configuration parameter.+newModifyClusterParameterGroup ::+ -- | 'parameterGroupName'+ Prelude.Text ->+ ModifyClusterParameterGroup+newModifyClusterParameterGroup pParameterGroupName_ =+ ModifyClusterParameterGroup'+ { parameterGroupName =+ pParameterGroupName_,+ parameters = Prelude.mempty+ }++-- | The name of the parameter group to be modified.+modifyClusterParameterGroup_parameterGroupName :: Lens.Lens' ModifyClusterParameterGroup Prelude.Text+modifyClusterParameterGroup_parameterGroupName = Lens.lens (\ModifyClusterParameterGroup' {parameterGroupName} -> parameterGroupName) (\s@ModifyClusterParameterGroup' {} a -> s {parameterGroupName = a} :: ModifyClusterParameterGroup)++-- | An array of parameters to be modified. A maximum of 20 parameters can be+-- modified in a single request.+--+-- For each parameter to be modified, you must supply at least the+-- parameter name and parameter value; other name-value pairs of the+-- parameter are optional.+--+-- For the workload management (WLM) configuration, you must supply all the+-- name-value pairs in the wlm_json_configuration parameter.+modifyClusterParameterGroup_parameters :: Lens.Lens' ModifyClusterParameterGroup [Parameter]+modifyClusterParameterGroup_parameters = Lens.lens (\ModifyClusterParameterGroup' {parameters} -> parameters) (\s@ModifyClusterParameterGroup' {} a -> s {parameters = a} :: ModifyClusterParameterGroup) Prelude.. Lens.coerced++instance Core.AWSRequest ModifyClusterParameterGroup where+ type+ AWSResponse ModifyClusterParameterGroup =+ ClusterParameterGroupNameMessage+ request overrides =+ Request.postQuery (overrides defaultService)+ response =+ Response.receiveXMLWrapper+ "ModifyClusterParameterGroupResult"+ (\s h x -> Data.parseXML x)++instance Prelude.Hashable ModifyClusterParameterGroup where+ hashWithSalt _salt ModifyClusterParameterGroup' {..} =+ _salt+ `Prelude.hashWithSalt` parameterGroupName+ `Prelude.hashWithSalt` parameters++instance Prelude.NFData ModifyClusterParameterGroup where+ rnf ModifyClusterParameterGroup' {..} =+ Prelude.rnf parameterGroupName+ `Prelude.seq` Prelude.rnf parameters++instance Data.ToHeaders ModifyClusterParameterGroup where+ toHeaders = Prelude.const Prelude.mempty++instance Data.ToPath ModifyClusterParameterGroup where+ toPath = Prelude.const "/"++instance Data.ToQuery ModifyClusterParameterGroup where+ toQuery ModifyClusterParameterGroup' {..} =+ Prelude.mconcat+ [ "Action"+ Data.=: ( "ModifyClusterParameterGroup" ::+ Prelude.ByteString+ ),+ "Version"+ Data.=: ("2012-12-01" :: Prelude.ByteString),+ "ParameterGroupName" Data.=: parameterGroupName,+ "Parameters"+ Data.=: Data.toQueryList "Parameter" parameters+ ]
+ gen/Amazonka/Redshift/ModifyClusterSnapshot.hs view
@@ -0,0 +1,211 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module : Amazonka.Redshift.ModifyClusterSnapshot+-- Copyright : (c) 2013-2023 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Modifies the settings for a snapshot.+--+-- This exanmple modifies the manual retention period setting for a cluster+-- snapshot.+module Amazonka.Redshift.ModifyClusterSnapshot+ ( -- * Creating a Request+ ModifyClusterSnapshot (..),+ newModifyClusterSnapshot,++ -- * Request Lenses+ modifyClusterSnapshot_force,+ modifyClusterSnapshot_manualSnapshotRetentionPeriod,+ modifyClusterSnapshot_snapshotIdentifier,++ -- * Destructuring the Response+ ModifyClusterSnapshotResponse (..),+ newModifyClusterSnapshotResponse,++ -- * Response Lenses+ modifyClusterSnapshotResponse_snapshot,+ modifyClusterSnapshotResponse_httpStatus,+ )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Redshift.Types+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newModifyClusterSnapshot' smart constructor.+data ModifyClusterSnapshot = ModifyClusterSnapshot'+ { -- | A Boolean option to override an exception if the retention period has+ -- already passed.+ force :: Prelude.Maybe Prelude.Bool,+ -- | The number of days that a manual snapshot is retained. If the value is+ -- -1, the manual snapshot is retained indefinitely.+ --+ -- If the manual snapshot falls outside of the new retention period, you+ -- can specify the force option to immediately delete the snapshot.+ --+ -- The value must be either -1 or an integer between 1 and 3,653.+ manualSnapshotRetentionPeriod :: Prelude.Maybe Prelude.Int,+ -- | The identifier of the snapshot whose setting you want to modify.+ snapshotIdentifier :: Prelude.Text+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ModifyClusterSnapshot' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'force', 'modifyClusterSnapshot_force' - A Boolean option to override an exception if the retention period has+-- already passed.+--+-- 'manualSnapshotRetentionPeriod', 'modifyClusterSnapshot_manualSnapshotRetentionPeriod' - The number of days that a manual snapshot is retained. If the value is+-- -1, the manual snapshot is retained indefinitely.+--+-- If the manual snapshot falls outside of the new retention period, you+-- can specify the force option to immediately delete the snapshot.+--+-- The value must be either -1 or an integer between 1 and 3,653.+--+-- 'snapshotIdentifier', 'modifyClusterSnapshot_snapshotIdentifier' - The identifier of the snapshot whose setting you want to modify.+newModifyClusterSnapshot ::+ -- | 'snapshotIdentifier'+ Prelude.Text ->+ ModifyClusterSnapshot+newModifyClusterSnapshot pSnapshotIdentifier_ =+ ModifyClusterSnapshot'+ { force = Prelude.Nothing,+ manualSnapshotRetentionPeriod = Prelude.Nothing,+ snapshotIdentifier = pSnapshotIdentifier_+ }++-- | A Boolean option to override an exception if the retention period has+-- already passed.+modifyClusterSnapshot_force :: Lens.Lens' ModifyClusterSnapshot (Prelude.Maybe Prelude.Bool)+modifyClusterSnapshot_force = Lens.lens (\ModifyClusterSnapshot' {force} -> force) (\s@ModifyClusterSnapshot' {} a -> s {force = a} :: ModifyClusterSnapshot)++-- | The number of days that a manual snapshot is retained. If the value is+-- -1, the manual snapshot is retained indefinitely.+--+-- If the manual snapshot falls outside of the new retention period, you+-- can specify the force option to immediately delete the snapshot.+--+-- The value must be either -1 or an integer between 1 and 3,653.+modifyClusterSnapshot_manualSnapshotRetentionPeriod :: Lens.Lens' ModifyClusterSnapshot (Prelude.Maybe Prelude.Int)+modifyClusterSnapshot_manualSnapshotRetentionPeriod = Lens.lens (\ModifyClusterSnapshot' {manualSnapshotRetentionPeriod} -> manualSnapshotRetentionPeriod) (\s@ModifyClusterSnapshot' {} a -> s {manualSnapshotRetentionPeriod = a} :: ModifyClusterSnapshot)++-- | The identifier of the snapshot whose setting you want to modify.+modifyClusterSnapshot_snapshotIdentifier :: Lens.Lens' ModifyClusterSnapshot Prelude.Text+modifyClusterSnapshot_snapshotIdentifier = Lens.lens (\ModifyClusterSnapshot' {snapshotIdentifier} -> snapshotIdentifier) (\s@ModifyClusterSnapshot' {} a -> s {snapshotIdentifier = a} :: ModifyClusterSnapshot)++instance Core.AWSRequest ModifyClusterSnapshot where+ type+ AWSResponse ModifyClusterSnapshot =+ ModifyClusterSnapshotResponse+ request overrides =+ Request.postQuery (overrides defaultService)+ response =+ Response.receiveXMLWrapper+ "ModifyClusterSnapshotResult"+ ( \s h x ->+ ModifyClusterSnapshotResponse'+ Prelude.<$> (x Data..@? "Snapshot")+ Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+ )++instance Prelude.Hashable ModifyClusterSnapshot where+ hashWithSalt _salt ModifyClusterSnapshot' {..} =+ _salt+ `Prelude.hashWithSalt` force+ `Prelude.hashWithSalt` manualSnapshotRetentionPeriod+ `Prelude.hashWithSalt` snapshotIdentifier++instance Prelude.NFData ModifyClusterSnapshot where+ rnf ModifyClusterSnapshot' {..} =+ Prelude.rnf force+ `Prelude.seq` Prelude.rnf manualSnapshotRetentionPeriod+ `Prelude.seq` Prelude.rnf snapshotIdentifier++instance Data.ToHeaders ModifyClusterSnapshot where+ toHeaders = Prelude.const Prelude.mempty++instance Data.ToPath ModifyClusterSnapshot where+ toPath = Prelude.const "/"++instance Data.ToQuery ModifyClusterSnapshot where+ toQuery ModifyClusterSnapshot' {..} =+ Prelude.mconcat+ [ "Action"+ Data.=: ("ModifyClusterSnapshot" :: Prelude.ByteString),+ "Version"+ Data.=: ("2012-12-01" :: Prelude.ByteString),+ "Force" Data.=: force,+ "ManualSnapshotRetentionPeriod"+ Data.=: manualSnapshotRetentionPeriod,+ "SnapshotIdentifier" Data.=: snapshotIdentifier+ ]++-- | /See:/ 'newModifyClusterSnapshotResponse' smart constructor.+data ModifyClusterSnapshotResponse = ModifyClusterSnapshotResponse'+ { snapshot :: Prelude.Maybe Snapshot,+ -- | The response's http status code.+ httpStatus :: Prelude.Int+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ModifyClusterSnapshotResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'snapshot', 'modifyClusterSnapshotResponse_snapshot' - Undocumented member.+--+-- 'httpStatus', 'modifyClusterSnapshotResponse_httpStatus' - The response's http status code.+newModifyClusterSnapshotResponse ::+ -- | 'httpStatus'+ Prelude.Int ->+ ModifyClusterSnapshotResponse+newModifyClusterSnapshotResponse pHttpStatus_ =+ ModifyClusterSnapshotResponse'+ { snapshot =+ Prelude.Nothing,+ httpStatus = pHttpStatus_+ }++-- | Undocumented member.+modifyClusterSnapshotResponse_snapshot :: Lens.Lens' ModifyClusterSnapshotResponse (Prelude.Maybe Snapshot)+modifyClusterSnapshotResponse_snapshot = Lens.lens (\ModifyClusterSnapshotResponse' {snapshot} -> snapshot) (\s@ModifyClusterSnapshotResponse' {} a -> s {snapshot = a} :: ModifyClusterSnapshotResponse)++-- | The response's http status code.+modifyClusterSnapshotResponse_httpStatus :: Lens.Lens' ModifyClusterSnapshotResponse Prelude.Int+modifyClusterSnapshotResponse_httpStatus = Lens.lens (\ModifyClusterSnapshotResponse' {httpStatus} -> httpStatus) (\s@ModifyClusterSnapshotResponse' {} a -> s {httpStatus = a} :: ModifyClusterSnapshotResponse)++instance Prelude.NFData ModifyClusterSnapshotResponse where+ rnf ModifyClusterSnapshotResponse' {..} =+ Prelude.rnf snapshot+ `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/Redshift/ModifyClusterSnapshotSchedule.hs view
@@ -0,0 +1,173 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module : Amazonka.Redshift.ModifyClusterSnapshotSchedule+-- Copyright : (c) 2013-2023 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Modifies a snapshot schedule for a cluster.+module Amazonka.Redshift.ModifyClusterSnapshotSchedule+ ( -- * Creating a Request+ ModifyClusterSnapshotSchedule (..),+ newModifyClusterSnapshotSchedule,++ -- * Request Lenses+ modifyClusterSnapshotSchedule_disassociateSchedule,+ modifyClusterSnapshotSchedule_scheduleIdentifier,+ modifyClusterSnapshotSchedule_clusterIdentifier,++ -- * Destructuring the Response+ ModifyClusterSnapshotScheduleResponse (..),+ newModifyClusterSnapshotScheduleResponse,+ )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Redshift.Types+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newModifyClusterSnapshotSchedule' smart constructor.+data ModifyClusterSnapshotSchedule = ModifyClusterSnapshotSchedule'+ { -- | A boolean to indicate whether to remove the assoiciation between the+ -- cluster and the schedule.+ disassociateSchedule :: Prelude.Maybe Prelude.Bool,+ -- | A unique alphanumeric identifier for the schedule that you want to+ -- associate with the cluster.+ scheduleIdentifier :: Prelude.Maybe Prelude.Text,+ -- | A unique identifier for the cluster whose snapshot schedule you want to+ -- modify.+ clusterIdentifier :: Prelude.Text+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ModifyClusterSnapshotSchedule' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'disassociateSchedule', 'modifyClusterSnapshotSchedule_disassociateSchedule' - A boolean to indicate whether to remove the assoiciation between the+-- cluster and the schedule.+--+-- 'scheduleIdentifier', 'modifyClusterSnapshotSchedule_scheduleIdentifier' - A unique alphanumeric identifier for the schedule that you want to+-- associate with the cluster.+--+-- 'clusterIdentifier', 'modifyClusterSnapshotSchedule_clusterIdentifier' - A unique identifier for the cluster whose snapshot schedule you want to+-- modify.+newModifyClusterSnapshotSchedule ::+ -- | 'clusterIdentifier'+ Prelude.Text ->+ ModifyClusterSnapshotSchedule+newModifyClusterSnapshotSchedule pClusterIdentifier_ =+ ModifyClusterSnapshotSchedule'+ { disassociateSchedule =+ Prelude.Nothing,+ scheduleIdentifier = Prelude.Nothing,+ clusterIdentifier = pClusterIdentifier_+ }++-- | A boolean to indicate whether to remove the assoiciation between the+-- cluster and the schedule.+modifyClusterSnapshotSchedule_disassociateSchedule :: Lens.Lens' ModifyClusterSnapshotSchedule (Prelude.Maybe Prelude.Bool)+modifyClusterSnapshotSchedule_disassociateSchedule = Lens.lens (\ModifyClusterSnapshotSchedule' {disassociateSchedule} -> disassociateSchedule) (\s@ModifyClusterSnapshotSchedule' {} a -> s {disassociateSchedule = a} :: ModifyClusterSnapshotSchedule)++-- | A unique alphanumeric identifier for the schedule that you want to+-- associate with the cluster.+modifyClusterSnapshotSchedule_scheduleIdentifier :: Lens.Lens' ModifyClusterSnapshotSchedule (Prelude.Maybe Prelude.Text)+modifyClusterSnapshotSchedule_scheduleIdentifier = Lens.lens (\ModifyClusterSnapshotSchedule' {scheduleIdentifier} -> scheduleIdentifier) (\s@ModifyClusterSnapshotSchedule' {} a -> s {scheduleIdentifier = a} :: ModifyClusterSnapshotSchedule)++-- | A unique identifier for the cluster whose snapshot schedule you want to+-- modify.+modifyClusterSnapshotSchedule_clusterIdentifier :: Lens.Lens' ModifyClusterSnapshotSchedule Prelude.Text+modifyClusterSnapshotSchedule_clusterIdentifier = Lens.lens (\ModifyClusterSnapshotSchedule' {clusterIdentifier} -> clusterIdentifier) (\s@ModifyClusterSnapshotSchedule' {} a -> s {clusterIdentifier = a} :: ModifyClusterSnapshotSchedule)++instance+ Core.AWSRequest+ ModifyClusterSnapshotSchedule+ where+ type+ AWSResponse ModifyClusterSnapshotSchedule =+ ModifyClusterSnapshotScheduleResponse+ request overrides =+ Request.postQuery (overrides defaultService)+ response =+ Response.receiveNull+ ModifyClusterSnapshotScheduleResponse'++instance+ Prelude.Hashable+ ModifyClusterSnapshotSchedule+ where+ hashWithSalt _salt ModifyClusterSnapshotSchedule' {..} =+ _salt+ `Prelude.hashWithSalt` disassociateSchedule+ `Prelude.hashWithSalt` scheduleIdentifier+ `Prelude.hashWithSalt` clusterIdentifier++instance Prelude.NFData ModifyClusterSnapshotSchedule where+ rnf ModifyClusterSnapshotSchedule' {..} =+ Prelude.rnf disassociateSchedule+ `Prelude.seq` Prelude.rnf scheduleIdentifier+ `Prelude.seq` Prelude.rnf clusterIdentifier++instance Data.ToHeaders ModifyClusterSnapshotSchedule where+ toHeaders = Prelude.const Prelude.mempty++instance Data.ToPath ModifyClusterSnapshotSchedule where+ toPath = Prelude.const "/"++instance Data.ToQuery ModifyClusterSnapshotSchedule where+ toQuery ModifyClusterSnapshotSchedule' {..} =+ Prelude.mconcat+ [ "Action"+ Data.=: ( "ModifyClusterSnapshotSchedule" ::+ Prelude.ByteString+ ),+ "Version"+ Data.=: ("2012-12-01" :: Prelude.ByteString),+ "DisassociateSchedule" Data.=: disassociateSchedule,+ "ScheduleIdentifier" Data.=: scheduleIdentifier,+ "ClusterIdentifier" Data.=: clusterIdentifier+ ]++-- | /See:/ 'newModifyClusterSnapshotScheduleResponse' smart constructor.+data ModifyClusterSnapshotScheduleResponse = ModifyClusterSnapshotScheduleResponse'+ {+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ModifyClusterSnapshotScheduleResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+newModifyClusterSnapshotScheduleResponse ::+ ModifyClusterSnapshotScheduleResponse+newModifyClusterSnapshotScheduleResponse =+ ModifyClusterSnapshotScheduleResponse'++instance+ Prelude.NFData+ ModifyClusterSnapshotScheduleResponse+ where+ rnf _ = ()
+ gen/Amazonka/Redshift/ModifyClusterSubnetGroup.hs view
@@ -0,0 +1,199 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module : Amazonka.Redshift.ModifyClusterSubnetGroup+-- Copyright : (c) 2013-2023 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Modifies a cluster subnet group to include the specified list of VPC+-- subnets. The operation replaces the existing list of subnets with the+-- new list of subnets.+module Amazonka.Redshift.ModifyClusterSubnetGroup+ ( -- * Creating a Request+ ModifyClusterSubnetGroup (..),+ newModifyClusterSubnetGroup,++ -- * Request Lenses+ modifyClusterSubnetGroup_description,+ modifyClusterSubnetGroup_clusterSubnetGroupName,+ modifyClusterSubnetGroup_subnetIds,++ -- * Destructuring the Response+ ModifyClusterSubnetGroupResponse (..),+ newModifyClusterSubnetGroupResponse,++ -- * Response Lenses+ modifyClusterSubnetGroupResponse_clusterSubnetGroup,+ modifyClusterSubnetGroupResponse_httpStatus,+ )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Redshift.Types+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- |+--+-- /See:/ 'newModifyClusterSubnetGroup' smart constructor.+data ModifyClusterSubnetGroup = ModifyClusterSubnetGroup'+ { -- | A text description of the subnet group to be modified.+ description :: Prelude.Maybe Prelude.Text,+ -- | The name of the subnet group to be modified.+ clusterSubnetGroupName :: Prelude.Text,+ -- | An array of VPC subnet IDs. A maximum of 20 subnets can be modified in a+ -- single request.+ subnetIds :: [Prelude.Text]+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ModifyClusterSubnetGroup' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'description', 'modifyClusterSubnetGroup_description' - A text description of the subnet group to be modified.+--+-- 'clusterSubnetGroupName', 'modifyClusterSubnetGroup_clusterSubnetGroupName' - The name of the subnet group to be modified.+--+-- 'subnetIds', 'modifyClusterSubnetGroup_subnetIds' - An array of VPC subnet IDs. A maximum of 20 subnets can be modified in a+-- single request.+newModifyClusterSubnetGroup ::+ -- | 'clusterSubnetGroupName'+ Prelude.Text ->+ ModifyClusterSubnetGroup+newModifyClusterSubnetGroup pClusterSubnetGroupName_ =+ ModifyClusterSubnetGroup'+ { description =+ Prelude.Nothing,+ clusterSubnetGroupName = pClusterSubnetGroupName_,+ subnetIds = Prelude.mempty+ }++-- | A text description of the subnet group to be modified.+modifyClusterSubnetGroup_description :: Lens.Lens' ModifyClusterSubnetGroup (Prelude.Maybe Prelude.Text)+modifyClusterSubnetGroup_description = Lens.lens (\ModifyClusterSubnetGroup' {description} -> description) (\s@ModifyClusterSubnetGroup' {} a -> s {description = a} :: ModifyClusterSubnetGroup)++-- | The name of the subnet group to be modified.+modifyClusterSubnetGroup_clusterSubnetGroupName :: Lens.Lens' ModifyClusterSubnetGroup Prelude.Text+modifyClusterSubnetGroup_clusterSubnetGroupName = Lens.lens (\ModifyClusterSubnetGroup' {clusterSubnetGroupName} -> clusterSubnetGroupName) (\s@ModifyClusterSubnetGroup' {} a -> s {clusterSubnetGroupName = a} :: ModifyClusterSubnetGroup)++-- | An array of VPC subnet IDs. A maximum of 20 subnets can be modified in a+-- single request.+modifyClusterSubnetGroup_subnetIds :: Lens.Lens' ModifyClusterSubnetGroup [Prelude.Text]+modifyClusterSubnetGroup_subnetIds = Lens.lens (\ModifyClusterSubnetGroup' {subnetIds} -> subnetIds) (\s@ModifyClusterSubnetGroup' {} a -> s {subnetIds = a} :: ModifyClusterSubnetGroup) Prelude.. Lens.coerced++instance Core.AWSRequest ModifyClusterSubnetGroup where+ type+ AWSResponse ModifyClusterSubnetGroup =+ ModifyClusterSubnetGroupResponse+ request overrides =+ Request.postQuery (overrides defaultService)+ response =+ Response.receiveXMLWrapper+ "ModifyClusterSubnetGroupResult"+ ( \s h x ->+ ModifyClusterSubnetGroupResponse'+ Prelude.<$> (x Data..@? "ClusterSubnetGroup")+ Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+ )++instance Prelude.Hashable ModifyClusterSubnetGroup where+ hashWithSalt _salt ModifyClusterSubnetGroup' {..} =+ _salt+ `Prelude.hashWithSalt` description+ `Prelude.hashWithSalt` clusterSubnetGroupName+ `Prelude.hashWithSalt` subnetIds++instance Prelude.NFData ModifyClusterSubnetGroup where+ rnf ModifyClusterSubnetGroup' {..} =+ Prelude.rnf description+ `Prelude.seq` Prelude.rnf clusterSubnetGroupName+ `Prelude.seq` Prelude.rnf subnetIds++instance Data.ToHeaders ModifyClusterSubnetGroup where+ toHeaders = Prelude.const Prelude.mempty++instance Data.ToPath ModifyClusterSubnetGroup where+ toPath = Prelude.const "/"++instance Data.ToQuery ModifyClusterSubnetGroup where+ toQuery ModifyClusterSubnetGroup' {..} =+ Prelude.mconcat+ [ "Action"+ Data.=: ("ModifyClusterSubnetGroup" :: Prelude.ByteString),+ "Version"+ Data.=: ("2012-12-01" :: Prelude.ByteString),+ "Description" Data.=: description,+ "ClusterSubnetGroupName"+ Data.=: clusterSubnetGroupName,+ "SubnetIds"+ Data.=: Data.toQueryList "SubnetIdentifier" subnetIds+ ]++-- | /See:/ 'newModifyClusterSubnetGroupResponse' smart constructor.+data ModifyClusterSubnetGroupResponse = ModifyClusterSubnetGroupResponse'+ { clusterSubnetGroup :: Prelude.Maybe ClusterSubnetGroup,+ -- | The response's http status code.+ httpStatus :: Prelude.Int+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ModifyClusterSubnetGroupResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'clusterSubnetGroup', 'modifyClusterSubnetGroupResponse_clusterSubnetGroup' - Undocumented member.+--+-- 'httpStatus', 'modifyClusterSubnetGroupResponse_httpStatus' - The response's http status code.+newModifyClusterSubnetGroupResponse ::+ -- | 'httpStatus'+ Prelude.Int ->+ ModifyClusterSubnetGroupResponse+newModifyClusterSubnetGroupResponse pHttpStatus_ =+ ModifyClusterSubnetGroupResponse'+ { clusterSubnetGroup =+ Prelude.Nothing,+ httpStatus = pHttpStatus_+ }++-- | Undocumented member.+modifyClusterSubnetGroupResponse_clusterSubnetGroup :: Lens.Lens' ModifyClusterSubnetGroupResponse (Prelude.Maybe ClusterSubnetGroup)+modifyClusterSubnetGroupResponse_clusterSubnetGroup = Lens.lens (\ModifyClusterSubnetGroupResponse' {clusterSubnetGroup} -> clusterSubnetGroup) (\s@ModifyClusterSubnetGroupResponse' {} a -> s {clusterSubnetGroup = a} :: ModifyClusterSubnetGroupResponse)++-- | The response's http status code.+modifyClusterSubnetGroupResponse_httpStatus :: Lens.Lens' ModifyClusterSubnetGroupResponse Prelude.Int+modifyClusterSubnetGroupResponse_httpStatus = Lens.lens (\ModifyClusterSubnetGroupResponse' {httpStatus} -> httpStatus) (\s@ModifyClusterSubnetGroupResponse' {} a -> s {httpStatus = a} :: ModifyClusterSubnetGroupResponse)++instance+ Prelude.NFData+ ModifyClusterSubnetGroupResponse+ where+ rnf ModifyClusterSubnetGroupResponse' {..} =+ Prelude.rnf clusterSubnetGroup+ `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/Redshift/ModifyEndpointAccess.hs view
@@ -0,0 +1,142 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module : Amazonka.Redshift.ModifyEndpointAccess+-- Copyright : (c) 2013-2023 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Modifies a Redshift-managed VPC endpoint.+module Amazonka.Redshift.ModifyEndpointAccess+ ( -- * Creating a Request+ ModifyEndpointAccess (..),+ newModifyEndpointAccess,++ -- * Request Lenses+ modifyEndpointAccess_vpcSecurityGroupIds,+ modifyEndpointAccess_endpointName,++ -- * Destructuring the Response+ EndpointAccess (..),+ newEndpointAccess,++ -- * Response Lenses+ endpointAccess_address,+ endpointAccess_clusterIdentifier,+ endpointAccess_endpointCreateTime,+ endpointAccess_endpointName,+ endpointAccess_endpointStatus,+ endpointAccess_port,+ endpointAccess_resourceOwner,+ endpointAccess_subnetGroupName,+ endpointAccess_vpcEndpoint,+ endpointAccess_vpcSecurityGroups,+ )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Redshift.Types+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newModifyEndpointAccess' smart constructor.+data ModifyEndpointAccess = ModifyEndpointAccess'+ { -- | The complete list of VPC security groups associated with the endpoint+ -- after the endpoint is modified.+ vpcSecurityGroupIds :: Prelude.Maybe [Prelude.Text],+ -- | The endpoint to be modified.+ endpointName :: Prelude.Text+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ModifyEndpointAccess' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'vpcSecurityGroupIds', 'modifyEndpointAccess_vpcSecurityGroupIds' - The complete list of VPC security groups associated with the endpoint+-- after the endpoint is modified.+--+-- 'endpointName', 'modifyEndpointAccess_endpointName' - The endpoint to be modified.+newModifyEndpointAccess ::+ -- | 'endpointName'+ Prelude.Text ->+ ModifyEndpointAccess+newModifyEndpointAccess pEndpointName_ =+ ModifyEndpointAccess'+ { vpcSecurityGroupIds =+ Prelude.Nothing,+ endpointName = pEndpointName_+ }++-- | The complete list of VPC security groups associated with the endpoint+-- after the endpoint is modified.+modifyEndpointAccess_vpcSecurityGroupIds :: Lens.Lens' ModifyEndpointAccess (Prelude.Maybe [Prelude.Text])+modifyEndpointAccess_vpcSecurityGroupIds = Lens.lens (\ModifyEndpointAccess' {vpcSecurityGroupIds} -> vpcSecurityGroupIds) (\s@ModifyEndpointAccess' {} a -> s {vpcSecurityGroupIds = a} :: ModifyEndpointAccess) Prelude.. Lens.mapping Lens.coerced++-- | The endpoint to be modified.+modifyEndpointAccess_endpointName :: Lens.Lens' ModifyEndpointAccess Prelude.Text+modifyEndpointAccess_endpointName = Lens.lens (\ModifyEndpointAccess' {endpointName} -> endpointName) (\s@ModifyEndpointAccess' {} a -> s {endpointName = a} :: ModifyEndpointAccess)++instance Core.AWSRequest ModifyEndpointAccess where+ type+ AWSResponse ModifyEndpointAccess =+ EndpointAccess+ request overrides =+ Request.postQuery (overrides defaultService)+ response =+ Response.receiveXMLWrapper+ "ModifyEndpointAccessResult"+ (\s h x -> Data.parseXML x)++instance Prelude.Hashable ModifyEndpointAccess where+ hashWithSalt _salt ModifyEndpointAccess' {..} =+ _salt+ `Prelude.hashWithSalt` vpcSecurityGroupIds+ `Prelude.hashWithSalt` endpointName++instance Prelude.NFData ModifyEndpointAccess where+ rnf ModifyEndpointAccess' {..} =+ Prelude.rnf vpcSecurityGroupIds+ `Prelude.seq` Prelude.rnf endpointName++instance Data.ToHeaders ModifyEndpointAccess where+ toHeaders = Prelude.const Prelude.mempty++instance Data.ToPath ModifyEndpointAccess where+ toPath = Prelude.const "/"++instance Data.ToQuery ModifyEndpointAccess where+ toQuery ModifyEndpointAccess' {..} =+ Prelude.mconcat+ [ "Action"+ Data.=: ("ModifyEndpointAccess" :: Prelude.ByteString),+ "Version"+ Data.=: ("2012-12-01" :: Prelude.ByteString),+ "VpcSecurityGroupIds"+ Data.=: Data.toQuery+ ( Data.toQueryList "VpcSecurityGroupId"+ Prelude.<$> vpcSecurityGroupIds+ ),+ "EndpointName" Data.=: endpointName+ ]
+ gen/Amazonka/Redshift/ModifyEventSubscription.hs view
@@ -0,0 +1,321 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module : Amazonka.Redshift.ModifyEventSubscription+-- Copyright : (c) 2013-2023 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Modifies an existing Amazon Redshift event notification subscription.+module Amazonka.Redshift.ModifyEventSubscription+ ( -- * Creating a Request+ ModifyEventSubscription (..),+ newModifyEventSubscription,++ -- * Request Lenses+ modifyEventSubscription_enabled,+ modifyEventSubscription_eventCategories,+ modifyEventSubscription_severity,+ modifyEventSubscription_snsTopicArn,+ modifyEventSubscription_sourceIds,+ modifyEventSubscription_sourceType,+ modifyEventSubscription_subscriptionName,++ -- * Destructuring the Response+ ModifyEventSubscriptionResponse (..),+ newModifyEventSubscriptionResponse,++ -- * Response Lenses+ modifyEventSubscriptionResponse_eventSubscription,+ modifyEventSubscriptionResponse_httpStatus,+ )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Redshift.Types+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- |+--+-- /See:/ 'newModifyEventSubscription' smart constructor.+data ModifyEventSubscription = ModifyEventSubscription'+ { -- | A Boolean value indicating if the subscription is enabled. @true@+ -- indicates the subscription is enabled+ enabled :: Prelude.Maybe Prelude.Bool,+ -- | Specifies the Amazon Redshift event categories to be published by the+ -- event notification subscription.+ --+ -- Values: configuration, management, monitoring, security, pending+ eventCategories :: Prelude.Maybe [Prelude.Text],+ -- | Specifies the Amazon Redshift event severity to be published by the+ -- event notification subscription.+ --+ -- Values: ERROR, INFO+ severity :: Prelude.Maybe Prelude.Text,+ -- | The Amazon Resource Name (ARN) of the SNS topic to be used by the event+ -- notification subscription.+ snsTopicArn :: Prelude.Maybe Prelude.Text,+ -- | A list of one or more identifiers of Amazon Redshift source objects. All+ -- of the objects must be of the same type as was specified in the source+ -- type parameter. The event subscription will return only events generated+ -- by the specified objects. If not specified, then events are returned for+ -- all objects within the source type specified.+ --+ -- Example: my-cluster-1, my-cluster-2+ --+ -- Example: my-snapshot-20131010+ sourceIds :: Prelude.Maybe [Prelude.Text],+ -- | The type of source that will be generating the events. For example, if+ -- you want to be notified of events generated by a cluster, you would set+ -- this parameter to cluster. If this value is not specified, events are+ -- returned for all Amazon Redshift objects in your Amazon Web Services+ -- account. You must specify a source type in order to specify source IDs.+ --+ -- Valid values: cluster, cluster-parameter-group, cluster-security-group,+ -- cluster-snapshot, and scheduled-action.+ sourceType :: Prelude.Maybe Prelude.Text,+ -- | The name of the modified Amazon Redshift event notification+ -- subscription.+ subscriptionName :: Prelude.Text+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ModifyEventSubscription' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'enabled', 'modifyEventSubscription_enabled' - A Boolean value indicating if the subscription is enabled. @true@+-- indicates the subscription is enabled+--+-- 'eventCategories', 'modifyEventSubscription_eventCategories' - Specifies the Amazon Redshift event categories to be published by the+-- event notification subscription.+--+-- Values: configuration, management, monitoring, security, pending+--+-- 'severity', 'modifyEventSubscription_severity' - Specifies the Amazon Redshift event severity to be published by the+-- event notification subscription.+--+-- Values: ERROR, INFO+--+-- 'snsTopicArn', 'modifyEventSubscription_snsTopicArn' - The Amazon Resource Name (ARN) of the SNS topic to be used by the event+-- notification subscription.+--+-- 'sourceIds', 'modifyEventSubscription_sourceIds' - A list of one or more identifiers of Amazon Redshift source objects. All+-- of the objects must be of the same type as was specified in the source+-- type parameter. The event subscription will return only events generated+-- by the specified objects. If not specified, then events are returned for+-- all objects within the source type specified.+--+-- Example: my-cluster-1, my-cluster-2+--+-- Example: my-snapshot-20131010+--+-- 'sourceType', 'modifyEventSubscription_sourceType' - The type of source that will be generating the events. For example, if+-- you want to be notified of events generated by a cluster, you would set+-- this parameter to cluster. If this value is not specified, events are+-- returned for all Amazon Redshift objects in your Amazon Web Services+-- account. You must specify a source type in order to specify source IDs.+--+-- Valid values: cluster, cluster-parameter-group, cluster-security-group,+-- cluster-snapshot, and scheduled-action.+--+-- 'subscriptionName', 'modifyEventSubscription_subscriptionName' - The name of the modified Amazon Redshift event notification+-- subscription.+newModifyEventSubscription ::+ -- | 'subscriptionName'+ Prelude.Text ->+ ModifyEventSubscription+newModifyEventSubscription pSubscriptionName_ =+ ModifyEventSubscription'+ { enabled = Prelude.Nothing,+ eventCategories = Prelude.Nothing,+ severity = Prelude.Nothing,+ snsTopicArn = Prelude.Nothing,+ sourceIds = Prelude.Nothing,+ sourceType = Prelude.Nothing,+ subscriptionName = pSubscriptionName_+ }++-- | A Boolean value indicating if the subscription is enabled. @true@+-- indicates the subscription is enabled+modifyEventSubscription_enabled :: Lens.Lens' ModifyEventSubscription (Prelude.Maybe Prelude.Bool)+modifyEventSubscription_enabled = Lens.lens (\ModifyEventSubscription' {enabled} -> enabled) (\s@ModifyEventSubscription' {} a -> s {enabled = a} :: ModifyEventSubscription)++-- | Specifies the Amazon Redshift event categories to be published by the+-- event notification subscription.+--+-- Values: configuration, management, monitoring, security, pending+modifyEventSubscription_eventCategories :: Lens.Lens' ModifyEventSubscription (Prelude.Maybe [Prelude.Text])+modifyEventSubscription_eventCategories = Lens.lens (\ModifyEventSubscription' {eventCategories} -> eventCategories) (\s@ModifyEventSubscription' {} a -> s {eventCategories = a} :: ModifyEventSubscription) Prelude.. Lens.mapping Lens.coerced++-- | Specifies the Amazon Redshift event severity to be published by the+-- event notification subscription.+--+-- Values: ERROR, INFO+modifyEventSubscription_severity :: Lens.Lens' ModifyEventSubscription (Prelude.Maybe Prelude.Text)+modifyEventSubscription_severity = Lens.lens (\ModifyEventSubscription' {severity} -> severity) (\s@ModifyEventSubscription' {} a -> s {severity = a} :: ModifyEventSubscription)++-- | The Amazon Resource Name (ARN) of the SNS topic to be used by the event+-- notification subscription.+modifyEventSubscription_snsTopicArn :: Lens.Lens' ModifyEventSubscription (Prelude.Maybe Prelude.Text)+modifyEventSubscription_snsTopicArn = Lens.lens (\ModifyEventSubscription' {snsTopicArn} -> snsTopicArn) (\s@ModifyEventSubscription' {} a -> s {snsTopicArn = a} :: ModifyEventSubscription)++-- | A list of one or more identifiers of Amazon Redshift source objects. All+-- of the objects must be of the same type as was specified in the source+-- type parameter. The event subscription will return only events generated+-- by the specified objects. If not specified, then events are returned for+-- all objects within the source type specified.+--+-- Example: my-cluster-1, my-cluster-2+--+-- Example: my-snapshot-20131010+modifyEventSubscription_sourceIds :: Lens.Lens' ModifyEventSubscription (Prelude.Maybe [Prelude.Text])+modifyEventSubscription_sourceIds = Lens.lens (\ModifyEventSubscription' {sourceIds} -> sourceIds) (\s@ModifyEventSubscription' {} a -> s {sourceIds = a} :: ModifyEventSubscription) Prelude.. Lens.mapping Lens.coerced++-- | The type of source that will be generating the events. For example, if+-- you want to be notified of events generated by a cluster, you would set+-- this parameter to cluster. If this value is not specified, events are+-- returned for all Amazon Redshift objects in your Amazon Web Services+-- account. You must specify a source type in order to specify source IDs.+--+-- Valid values: cluster, cluster-parameter-group, cluster-security-group,+-- cluster-snapshot, and scheduled-action.+modifyEventSubscription_sourceType :: Lens.Lens' ModifyEventSubscription (Prelude.Maybe Prelude.Text)+modifyEventSubscription_sourceType = Lens.lens (\ModifyEventSubscription' {sourceType} -> sourceType) (\s@ModifyEventSubscription' {} a -> s {sourceType = a} :: ModifyEventSubscription)++-- | The name of the modified Amazon Redshift event notification+-- subscription.+modifyEventSubscription_subscriptionName :: Lens.Lens' ModifyEventSubscription Prelude.Text+modifyEventSubscription_subscriptionName = Lens.lens (\ModifyEventSubscription' {subscriptionName} -> subscriptionName) (\s@ModifyEventSubscription' {} a -> s {subscriptionName = a} :: ModifyEventSubscription)++instance Core.AWSRequest ModifyEventSubscription where+ type+ AWSResponse ModifyEventSubscription =+ ModifyEventSubscriptionResponse+ request overrides =+ Request.postQuery (overrides defaultService)+ response =+ Response.receiveXMLWrapper+ "ModifyEventSubscriptionResult"+ ( \s h x ->+ ModifyEventSubscriptionResponse'+ Prelude.<$> (x Data..@? "EventSubscription")+ Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+ )++instance Prelude.Hashable ModifyEventSubscription where+ hashWithSalt _salt ModifyEventSubscription' {..} =+ _salt+ `Prelude.hashWithSalt` enabled+ `Prelude.hashWithSalt` eventCategories+ `Prelude.hashWithSalt` severity+ `Prelude.hashWithSalt` snsTopicArn+ `Prelude.hashWithSalt` sourceIds+ `Prelude.hashWithSalt` sourceType+ `Prelude.hashWithSalt` subscriptionName++instance Prelude.NFData ModifyEventSubscription where+ rnf ModifyEventSubscription' {..} =+ Prelude.rnf enabled+ `Prelude.seq` Prelude.rnf eventCategories+ `Prelude.seq` Prelude.rnf severity+ `Prelude.seq` Prelude.rnf snsTopicArn+ `Prelude.seq` Prelude.rnf sourceIds+ `Prelude.seq` Prelude.rnf sourceType+ `Prelude.seq` Prelude.rnf subscriptionName++instance Data.ToHeaders ModifyEventSubscription where+ toHeaders = Prelude.const Prelude.mempty++instance Data.ToPath ModifyEventSubscription where+ toPath = Prelude.const "/"++instance Data.ToQuery ModifyEventSubscription where+ toQuery ModifyEventSubscription' {..} =+ Prelude.mconcat+ [ "Action"+ Data.=: ("ModifyEventSubscription" :: Prelude.ByteString),+ "Version"+ Data.=: ("2012-12-01" :: Prelude.ByteString),+ "Enabled" Data.=: enabled,+ "EventCategories"+ Data.=: Data.toQuery+ ( Data.toQueryList "EventCategory"+ Prelude.<$> eventCategories+ ),+ "Severity" Data.=: severity,+ "SnsTopicArn" Data.=: snsTopicArn,+ "SourceIds"+ Data.=: Data.toQuery+ (Data.toQueryList "SourceId" Prelude.<$> sourceIds),+ "SourceType" Data.=: sourceType,+ "SubscriptionName" Data.=: subscriptionName+ ]++-- | /See:/ 'newModifyEventSubscriptionResponse' smart constructor.+data ModifyEventSubscriptionResponse = ModifyEventSubscriptionResponse'+ { eventSubscription :: Prelude.Maybe EventSubscription,+ -- | The response's http status code.+ httpStatus :: Prelude.Int+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ModifyEventSubscriptionResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'eventSubscription', 'modifyEventSubscriptionResponse_eventSubscription' - Undocumented member.+--+-- 'httpStatus', 'modifyEventSubscriptionResponse_httpStatus' - The response's http status code.+newModifyEventSubscriptionResponse ::+ -- | 'httpStatus'+ Prelude.Int ->+ ModifyEventSubscriptionResponse+newModifyEventSubscriptionResponse pHttpStatus_ =+ ModifyEventSubscriptionResponse'+ { eventSubscription =+ Prelude.Nothing,+ httpStatus = pHttpStatus_+ }++-- | Undocumented member.+modifyEventSubscriptionResponse_eventSubscription :: Lens.Lens' ModifyEventSubscriptionResponse (Prelude.Maybe EventSubscription)+modifyEventSubscriptionResponse_eventSubscription = Lens.lens (\ModifyEventSubscriptionResponse' {eventSubscription} -> eventSubscription) (\s@ModifyEventSubscriptionResponse' {} a -> s {eventSubscription = a} :: ModifyEventSubscriptionResponse)++-- | The response's http status code.+modifyEventSubscriptionResponse_httpStatus :: Lens.Lens' ModifyEventSubscriptionResponse Prelude.Int+modifyEventSubscriptionResponse_httpStatus = Lens.lens (\ModifyEventSubscriptionResponse' {httpStatus} -> httpStatus) (\s@ModifyEventSubscriptionResponse' {} a -> s {httpStatus = a} :: ModifyEventSubscriptionResponse)++instance+ Prelude.NFData+ ModifyEventSubscriptionResponse+ where+ rnf ModifyEventSubscriptionResponse' {..} =+ Prelude.rnf eventSubscription+ `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/Redshift/ModifyScheduledAction.hs view
@@ -0,0 +1,230 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module : Amazonka.Redshift.ModifyScheduledAction+-- Copyright : (c) 2013-2023 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Modifies a scheduled action.+module Amazonka.Redshift.ModifyScheduledAction+ ( -- * Creating a Request+ ModifyScheduledAction (..),+ newModifyScheduledAction,++ -- * Request Lenses+ modifyScheduledAction_enable,+ modifyScheduledAction_endTime,+ modifyScheduledAction_iamRole,+ modifyScheduledAction_schedule,+ modifyScheduledAction_scheduledActionDescription,+ modifyScheduledAction_startTime,+ modifyScheduledAction_targetAction,+ modifyScheduledAction_scheduledActionName,++ -- * Destructuring the Response+ ScheduledAction (..),+ newScheduledAction,++ -- * Response Lenses+ scheduledAction_endTime,+ scheduledAction_iamRole,+ scheduledAction_nextInvocations,+ scheduledAction_schedule,+ scheduledAction_scheduledActionDescription,+ scheduledAction_scheduledActionName,+ scheduledAction_startTime,+ scheduledAction_state,+ scheduledAction_targetAction,+ )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Redshift.Types+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newModifyScheduledAction' smart constructor.+data ModifyScheduledAction = ModifyScheduledAction'+ { -- | A modified enable flag of the scheduled action. If true, the scheduled+ -- action is active. If false, the scheduled action is disabled.+ enable :: Prelude.Maybe Prelude.Bool,+ -- | A modified end time of the scheduled action. For more information about+ -- this parameter, see ScheduledAction.+ endTime :: Prelude.Maybe Data.ISO8601,+ -- | A different IAM role to assume to run the target action. For more+ -- information about this parameter, see ScheduledAction.+ iamRole :: Prelude.Maybe Prelude.Text,+ -- | A modified schedule in either @at( )@ or @cron( )@ format. For more+ -- information about this parameter, see ScheduledAction.+ schedule :: Prelude.Maybe Prelude.Text,+ -- | A modified description of the scheduled action.+ scheduledActionDescription :: Prelude.Maybe Prelude.Text,+ -- | A modified start time of the scheduled action. For more information+ -- about this parameter, see ScheduledAction.+ startTime :: Prelude.Maybe Data.ISO8601,+ -- | A modified JSON format of the scheduled action. For more information+ -- about this parameter, see ScheduledAction.+ targetAction :: Prelude.Maybe ScheduledActionType,+ -- | The name of the scheduled action to modify.+ scheduledActionName :: Prelude.Text+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ModifyScheduledAction' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'enable', 'modifyScheduledAction_enable' - A modified enable flag of the scheduled action. If true, the scheduled+-- action is active. If false, the scheduled action is disabled.+--+-- 'endTime', 'modifyScheduledAction_endTime' - A modified end time of the scheduled action. For more information about+-- this parameter, see ScheduledAction.+--+-- 'iamRole', 'modifyScheduledAction_iamRole' - A different IAM role to assume to run the target action. For more+-- information about this parameter, see ScheduledAction.+--+-- 'schedule', 'modifyScheduledAction_schedule' - A modified schedule in either @at( )@ or @cron( )@ format. For more+-- information about this parameter, see ScheduledAction.+--+-- 'scheduledActionDescription', 'modifyScheduledAction_scheduledActionDescription' - A modified description of the scheduled action.+--+-- 'startTime', 'modifyScheduledAction_startTime' - A modified start time of the scheduled action. For more information+-- about this parameter, see ScheduledAction.+--+-- 'targetAction', 'modifyScheduledAction_targetAction' - A modified JSON format of the scheduled action. For more information+-- about this parameter, see ScheduledAction.+--+-- 'scheduledActionName', 'modifyScheduledAction_scheduledActionName' - The name of the scheduled action to modify.+newModifyScheduledAction ::+ -- | 'scheduledActionName'+ Prelude.Text ->+ ModifyScheduledAction+newModifyScheduledAction pScheduledActionName_ =+ ModifyScheduledAction'+ { enable = Prelude.Nothing,+ endTime = Prelude.Nothing,+ iamRole = Prelude.Nothing,+ schedule = Prelude.Nothing,+ scheduledActionDescription = Prelude.Nothing,+ startTime = Prelude.Nothing,+ targetAction = Prelude.Nothing,+ scheduledActionName = pScheduledActionName_+ }++-- | A modified enable flag of the scheduled action. If true, the scheduled+-- action is active. If false, the scheduled action is disabled.+modifyScheduledAction_enable :: Lens.Lens' ModifyScheduledAction (Prelude.Maybe Prelude.Bool)+modifyScheduledAction_enable = Lens.lens (\ModifyScheduledAction' {enable} -> enable) (\s@ModifyScheduledAction' {} a -> s {enable = a} :: ModifyScheduledAction)++-- | A modified end time of the scheduled action. For more information about+-- this parameter, see ScheduledAction.+modifyScheduledAction_endTime :: Lens.Lens' ModifyScheduledAction (Prelude.Maybe Prelude.UTCTime)+modifyScheduledAction_endTime = Lens.lens (\ModifyScheduledAction' {endTime} -> endTime) (\s@ModifyScheduledAction' {} a -> s {endTime = a} :: ModifyScheduledAction) Prelude.. Lens.mapping Data._Time++-- | A different IAM role to assume to run the target action. For more+-- information about this parameter, see ScheduledAction.+modifyScheduledAction_iamRole :: Lens.Lens' ModifyScheduledAction (Prelude.Maybe Prelude.Text)+modifyScheduledAction_iamRole = Lens.lens (\ModifyScheduledAction' {iamRole} -> iamRole) (\s@ModifyScheduledAction' {} a -> s {iamRole = a} :: ModifyScheduledAction)++-- | A modified schedule in either @at( )@ or @cron( )@ format. For more+-- information about this parameter, see ScheduledAction.+modifyScheduledAction_schedule :: Lens.Lens' ModifyScheduledAction (Prelude.Maybe Prelude.Text)+modifyScheduledAction_schedule = Lens.lens (\ModifyScheduledAction' {schedule} -> schedule) (\s@ModifyScheduledAction' {} a -> s {schedule = a} :: ModifyScheduledAction)++-- | A modified description of the scheduled action.+modifyScheduledAction_scheduledActionDescription :: Lens.Lens' ModifyScheduledAction (Prelude.Maybe Prelude.Text)+modifyScheduledAction_scheduledActionDescription = Lens.lens (\ModifyScheduledAction' {scheduledActionDescription} -> scheduledActionDescription) (\s@ModifyScheduledAction' {} a -> s {scheduledActionDescription = a} :: ModifyScheduledAction)++-- | A modified start time of the scheduled action. For more information+-- about this parameter, see ScheduledAction.+modifyScheduledAction_startTime :: Lens.Lens' ModifyScheduledAction (Prelude.Maybe Prelude.UTCTime)+modifyScheduledAction_startTime = Lens.lens (\ModifyScheduledAction' {startTime} -> startTime) (\s@ModifyScheduledAction' {} a -> s {startTime = a} :: ModifyScheduledAction) Prelude.. Lens.mapping Data._Time++-- | A modified JSON format of the scheduled action. For more information+-- about this parameter, see ScheduledAction.+modifyScheduledAction_targetAction :: Lens.Lens' ModifyScheduledAction (Prelude.Maybe ScheduledActionType)+modifyScheduledAction_targetAction = Lens.lens (\ModifyScheduledAction' {targetAction} -> targetAction) (\s@ModifyScheduledAction' {} a -> s {targetAction = a} :: ModifyScheduledAction)++-- | The name of the scheduled action to modify.+modifyScheduledAction_scheduledActionName :: Lens.Lens' ModifyScheduledAction Prelude.Text+modifyScheduledAction_scheduledActionName = Lens.lens (\ModifyScheduledAction' {scheduledActionName} -> scheduledActionName) (\s@ModifyScheduledAction' {} a -> s {scheduledActionName = a} :: ModifyScheduledAction)++instance Core.AWSRequest ModifyScheduledAction where+ type+ AWSResponse ModifyScheduledAction =+ ScheduledAction+ request overrides =+ Request.postQuery (overrides defaultService)+ response =+ Response.receiveXMLWrapper+ "ModifyScheduledActionResult"+ (\s h x -> Data.parseXML x)++instance Prelude.Hashable ModifyScheduledAction where+ hashWithSalt _salt ModifyScheduledAction' {..} =+ _salt+ `Prelude.hashWithSalt` enable+ `Prelude.hashWithSalt` endTime+ `Prelude.hashWithSalt` iamRole+ `Prelude.hashWithSalt` schedule+ `Prelude.hashWithSalt` scheduledActionDescription+ `Prelude.hashWithSalt` startTime+ `Prelude.hashWithSalt` targetAction+ `Prelude.hashWithSalt` scheduledActionName++instance Prelude.NFData ModifyScheduledAction where+ rnf ModifyScheduledAction' {..} =+ Prelude.rnf enable+ `Prelude.seq` Prelude.rnf endTime+ `Prelude.seq` Prelude.rnf iamRole+ `Prelude.seq` Prelude.rnf schedule+ `Prelude.seq` Prelude.rnf scheduledActionDescription+ `Prelude.seq` Prelude.rnf startTime+ `Prelude.seq` Prelude.rnf targetAction+ `Prelude.seq` Prelude.rnf scheduledActionName++instance Data.ToHeaders ModifyScheduledAction where+ toHeaders = Prelude.const Prelude.mempty++instance Data.ToPath ModifyScheduledAction where+ toPath = Prelude.const "/"++instance Data.ToQuery ModifyScheduledAction where+ toQuery ModifyScheduledAction' {..} =+ Prelude.mconcat+ [ "Action"+ Data.=: ("ModifyScheduledAction" :: Prelude.ByteString),+ "Version"+ Data.=: ("2012-12-01" :: Prelude.ByteString),+ "Enable" Data.=: enable,+ "EndTime" Data.=: endTime,+ "IamRole" Data.=: iamRole,+ "Schedule" Data.=: schedule,+ "ScheduledActionDescription"+ Data.=: scheduledActionDescription,+ "StartTime" Data.=: startTime,+ "TargetAction" Data.=: targetAction,+ "ScheduledActionName" Data.=: scheduledActionName+ ]
+ gen/Amazonka/Redshift/ModifySnapshotCopyRetentionPeriod.hs view
@@ -0,0 +1,314 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module : Amazonka.Redshift.ModifySnapshotCopyRetentionPeriod+-- Copyright : (c) 2013-2023 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Modifies the number of days to retain snapshots in the destination+-- Amazon Web Services Region after they are copied from the source Amazon+-- Web Services Region. By default, this operation only changes the+-- retention period of copied automated snapshots. The retention periods+-- for both new and existing copied automated snapshots are updated with+-- the new retention period. You can set the manual option to change only+-- the retention periods of copied manual snapshots. If you set this+-- option, only newly copied manual snapshots have the new retention+-- period.+module Amazonka.Redshift.ModifySnapshotCopyRetentionPeriod+ ( -- * Creating a Request+ ModifySnapshotCopyRetentionPeriod (..),+ newModifySnapshotCopyRetentionPeriod,++ -- * Request Lenses+ modifySnapshotCopyRetentionPeriod_manual,+ modifySnapshotCopyRetentionPeriod_clusterIdentifier,+ modifySnapshotCopyRetentionPeriod_retentionPeriod,++ -- * Destructuring the Response+ ModifySnapshotCopyRetentionPeriodResponse (..),+ newModifySnapshotCopyRetentionPeriodResponse,++ -- * Response Lenses+ modifySnapshotCopyRetentionPeriodResponse_cluster,+ modifySnapshotCopyRetentionPeriodResponse_httpStatus,+ )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Redshift.Types+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- |+--+-- /See:/ 'newModifySnapshotCopyRetentionPeriod' smart constructor.+data ModifySnapshotCopyRetentionPeriod = ModifySnapshotCopyRetentionPeriod'+ { -- | Indicates whether to apply the snapshot retention period to newly copied+ -- manual snapshots instead of automated snapshots.+ manual :: Prelude.Maybe Prelude.Bool,+ -- | The unique identifier of the cluster for which you want to change the+ -- retention period for either automated or manual snapshots that are+ -- copied to a destination Amazon Web Services Region.+ --+ -- Constraints: Must be the valid name of an existing cluster that has+ -- cross-region snapshot copy enabled.+ clusterIdentifier :: Prelude.Text,+ -- | The number of days to retain automated snapshots in the destination+ -- Amazon Web Services Region after they are copied from the source Amazon+ -- Web Services Region.+ --+ -- By default, this only changes the retention period of copied automated+ -- snapshots.+ --+ -- If you decrease the retention period for automated snapshots that are+ -- copied to a destination Amazon Web Services Region, Amazon Redshift+ -- deletes any existing automated snapshots that were copied to the+ -- destination Amazon Web Services Region and that fall outside of the new+ -- retention period.+ --+ -- Constraints: Must be at least 1 and no more than 35 for automated+ -- snapshots.+ --+ -- If you specify the @manual@ option, only newly copied manual snapshots+ -- will have the new retention period.+ --+ -- If you specify the value of -1 newly copied manual snapshots are+ -- retained indefinitely.+ --+ -- Constraints: The number of days must be either -1 or an integer between+ -- 1 and 3,653 for manual snapshots.+ retentionPeriod :: Prelude.Int+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ModifySnapshotCopyRetentionPeriod' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'manual', 'modifySnapshotCopyRetentionPeriod_manual' - Indicates whether to apply the snapshot retention period to newly copied+-- manual snapshots instead of automated snapshots.+--+-- 'clusterIdentifier', 'modifySnapshotCopyRetentionPeriod_clusterIdentifier' - The unique identifier of the cluster for which you want to change the+-- retention period for either automated or manual snapshots that are+-- copied to a destination Amazon Web Services Region.+--+-- Constraints: Must be the valid name of an existing cluster that has+-- cross-region snapshot copy enabled.+--+-- 'retentionPeriod', 'modifySnapshotCopyRetentionPeriod_retentionPeriod' - The number of days to retain automated snapshots in the destination+-- Amazon Web Services Region after they are copied from the source Amazon+-- Web Services Region.+--+-- By default, this only changes the retention period of copied automated+-- snapshots.+--+-- If you decrease the retention period for automated snapshots that are+-- copied to a destination Amazon Web Services Region, Amazon Redshift+-- deletes any existing automated snapshots that were copied to the+-- destination Amazon Web Services Region and that fall outside of the new+-- retention period.+--+-- Constraints: Must be at least 1 and no more than 35 for automated+-- snapshots.+--+-- If you specify the @manual@ option, only newly copied manual snapshots+-- will have the new retention period.+--+-- If you specify the value of -1 newly copied manual snapshots are+-- retained indefinitely.+--+-- Constraints: The number of days must be either -1 or an integer between+-- 1 and 3,653 for manual snapshots.+newModifySnapshotCopyRetentionPeriod ::+ -- | 'clusterIdentifier'+ Prelude.Text ->+ -- | 'retentionPeriod'+ Prelude.Int ->+ ModifySnapshotCopyRetentionPeriod+newModifySnapshotCopyRetentionPeriod+ pClusterIdentifier_+ pRetentionPeriod_ =+ ModifySnapshotCopyRetentionPeriod'+ { manual =+ Prelude.Nothing,+ clusterIdentifier = pClusterIdentifier_,+ retentionPeriod = pRetentionPeriod_+ }++-- | Indicates whether to apply the snapshot retention period to newly copied+-- manual snapshots instead of automated snapshots.+modifySnapshotCopyRetentionPeriod_manual :: Lens.Lens' ModifySnapshotCopyRetentionPeriod (Prelude.Maybe Prelude.Bool)+modifySnapshotCopyRetentionPeriod_manual = Lens.lens (\ModifySnapshotCopyRetentionPeriod' {manual} -> manual) (\s@ModifySnapshotCopyRetentionPeriod' {} a -> s {manual = a} :: ModifySnapshotCopyRetentionPeriod)++-- | The unique identifier of the cluster for which you want to change the+-- retention period for either automated or manual snapshots that are+-- copied to a destination Amazon Web Services Region.+--+-- Constraints: Must be the valid name of an existing cluster that has+-- cross-region snapshot copy enabled.+modifySnapshotCopyRetentionPeriod_clusterIdentifier :: Lens.Lens' ModifySnapshotCopyRetentionPeriod Prelude.Text+modifySnapshotCopyRetentionPeriod_clusterIdentifier = Lens.lens (\ModifySnapshotCopyRetentionPeriod' {clusterIdentifier} -> clusterIdentifier) (\s@ModifySnapshotCopyRetentionPeriod' {} a -> s {clusterIdentifier = a} :: ModifySnapshotCopyRetentionPeriod)++-- | The number of days to retain automated snapshots in the destination+-- Amazon Web Services Region after they are copied from the source Amazon+-- Web Services Region.+--+-- By default, this only changes the retention period of copied automated+-- snapshots.+--+-- If you decrease the retention period for automated snapshots that are+-- copied to a destination Amazon Web Services Region, Amazon Redshift+-- deletes any existing automated snapshots that were copied to the+-- destination Amazon Web Services Region and that fall outside of the new+-- retention period.+--+-- Constraints: Must be at least 1 and no more than 35 for automated+-- snapshots.+--+-- If you specify the @manual@ option, only newly copied manual snapshots+-- will have the new retention period.+--+-- If you specify the value of -1 newly copied manual snapshots are+-- retained indefinitely.+--+-- Constraints: The number of days must be either -1 or an integer between+-- 1 and 3,653 for manual snapshots.+modifySnapshotCopyRetentionPeriod_retentionPeriod :: Lens.Lens' ModifySnapshotCopyRetentionPeriod Prelude.Int+modifySnapshotCopyRetentionPeriod_retentionPeriod = Lens.lens (\ModifySnapshotCopyRetentionPeriod' {retentionPeriod} -> retentionPeriod) (\s@ModifySnapshotCopyRetentionPeriod' {} a -> s {retentionPeriod = a} :: ModifySnapshotCopyRetentionPeriod)++instance+ Core.AWSRequest+ ModifySnapshotCopyRetentionPeriod+ where+ type+ AWSResponse ModifySnapshotCopyRetentionPeriod =+ ModifySnapshotCopyRetentionPeriodResponse+ request overrides =+ Request.postQuery (overrides defaultService)+ response =+ Response.receiveXMLWrapper+ "ModifySnapshotCopyRetentionPeriodResult"+ ( \s h x ->+ ModifySnapshotCopyRetentionPeriodResponse'+ Prelude.<$> (x Data..@? "Cluster")+ Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+ )++instance+ Prelude.Hashable+ ModifySnapshotCopyRetentionPeriod+ where+ hashWithSalt+ _salt+ ModifySnapshotCopyRetentionPeriod' {..} =+ _salt+ `Prelude.hashWithSalt` manual+ `Prelude.hashWithSalt` clusterIdentifier+ `Prelude.hashWithSalt` retentionPeriod++instance+ Prelude.NFData+ ModifySnapshotCopyRetentionPeriod+ where+ rnf ModifySnapshotCopyRetentionPeriod' {..} =+ Prelude.rnf manual+ `Prelude.seq` Prelude.rnf clusterIdentifier+ `Prelude.seq` Prelude.rnf retentionPeriod++instance+ Data.ToHeaders+ ModifySnapshotCopyRetentionPeriod+ where+ toHeaders = Prelude.const Prelude.mempty++instance+ Data.ToPath+ ModifySnapshotCopyRetentionPeriod+ where+ toPath = Prelude.const "/"++instance+ Data.ToQuery+ ModifySnapshotCopyRetentionPeriod+ where+ toQuery ModifySnapshotCopyRetentionPeriod' {..} =+ Prelude.mconcat+ [ "Action"+ Data.=: ( "ModifySnapshotCopyRetentionPeriod" ::+ Prelude.ByteString+ ),+ "Version"+ Data.=: ("2012-12-01" :: Prelude.ByteString),+ "Manual" Data.=: manual,+ "ClusterIdentifier" Data.=: clusterIdentifier,+ "RetentionPeriod" Data.=: retentionPeriod+ ]++-- | /See:/ 'newModifySnapshotCopyRetentionPeriodResponse' smart constructor.+data ModifySnapshotCopyRetentionPeriodResponse = ModifySnapshotCopyRetentionPeriodResponse'+ { cluster :: Prelude.Maybe Cluster,+ -- | The response's http status code.+ httpStatus :: Prelude.Int+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ModifySnapshotCopyRetentionPeriodResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'cluster', 'modifySnapshotCopyRetentionPeriodResponse_cluster' - Undocumented member.+--+-- 'httpStatus', 'modifySnapshotCopyRetentionPeriodResponse_httpStatus' - The response's http status code.+newModifySnapshotCopyRetentionPeriodResponse ::+ -- | 'httpStatus'+ Prelude.Int ->+ ModifySnapshotCopyRetentionPeriodResponse+newModifySnapshotCopyRetentionPeriodResponse+ pHttpStatus_ =+ ModifySnapshotCopyRetentionPeriodResponse'+ { cluster =+ Prelude.Nothing,+ httpStatus = pHttpStatus_+ }++-- | Undocumented member.+modifySnapshotCopyRetentionPeriodResponse_cluster :: Lens.Lens' ModifySnapshotCopyRetentionPeriodResponse (Prelude.Maybe Cluster)+modifySnapshotCopyRetentionPeriodResponse_cluster = Lens.lens (\ModifySnapshotCopyRetentionPeriodResponse' {cluster} -> cluster) (\s@ModifySnapshotCopyRetentionPeriodResponse' {} a -> s {cluster = a} :: ModifySnapshotCopyRetentionPeriodResponse)++-- | The response's http status code.+modifySnapshotCopyRetentionPeriodResponse_httpStatus :: Lens.Lens' ModifySnapshotCopyRetentionPeriodResponse Prelude.Int+modifySnapshotCopyRetentionPeriodResponse_httpStatus = Lens.lens (\ModifySnapshotCopyRetentionPeriodResponse' {httpStatus} -> httpStatus) (\s@ModifySnapshotCopyRetentionPeriodResponse' {} a -> s {httpStatus = a} :: ModifySnapshotCopyRetentionPeriodResponse)++instance+ Prelude.NFData+ ModifySnapshotCopyRetentionPeriodResponse+ where+ rnf ModifySnapshotCopyRetentionPeriodResponse' {..} =+ Prelude.rnf cluster+ `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/Redshift/ModifySnapshotSchedule.hs view
@@ -0,0 +1,142 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module : Amazonka.Redshift.ModifySnapshotSchedule+-- Copyright : (c) 2013-2023 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Modifies a snapshot schedule. Any schedule associated with a cluster is+-- modified asynchronously.+module Amazonka.Redshift.ModifySnapshotSchedule+ ( -- * Creating a Request+ ModifySnapshotSchedule (..),+ newModifySnapshotSchedule,++ -- * Request Lenses+ modifySnapshotSchedule_scheduleIdentifier,+ modifySnapshotSchedule_scheduleDefinitions,++ -- * Destructuring the Response+ SnapshotSchedule (..),+ newSnapshotSchedule,++ -- * Response Lenses+ snapshotSchedule_associatedClusterCount,+ snapshotSchedule_associatedClusters,+ snapshotSchedule_nextInvocations,+ snapshotSchedule_scheduleDefinitions,+ snapshotSchedule_scheduleDescription,+ snapshotSchedule_scheduleIdentifier,+ snapshotSchedule_tags,+ )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Redshift.Types+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newModifySnapshotSchedule' smart constructor.+data ModifySnapshotSchedule = ModifySnapshotSchedule'+ { -- | A unique alphanumeric identifier of the schedule to modify.+ scheduleIdentifier :: Prelude.Text,+ -- | An updated list of schedule definitions. A schedule definition is made+ -- up of schedule expressions, for example, \"cron(30 12 *)\" or \"rate(12+ -- hours)\".+ scheduleDefinitions :: [Prelude.Text]+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ModifySnapshotSchedule' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'scheduleIdentifier', 'modifySnapshotSchedule_scheduleIdentifier' - A unique alphanumeric identifier of the schedule to modify.+--+-- 'scheduleDefinitions', 'modifySnapshotSchedule_scheduleDefinitions' - An updated list of schedule definitions. A schedule definition is made+-- up of schedule expressions, for example, \"cron(30 12 *)\" or \"rate(12+-- hours)\".+newModifySnapshotSchedule ::+ -- | 'scheduleIdentifier'+ Prelude.Text ->+ ModifySnapshotSchedule+newModifySnapshotSchedule pScheduleIdentifier_ =+ ModifySnapshotSchedule'+ { scheduleIdentifier =+ pScheduleIdentifier_,+ scheduleDefinitions = Prelude.mempty+ }++-- | A unique alphanumeric identifier of the schedule to modify.+modifySnapshotSchedule_scheduleIdentifier :: Lens.Lens' ModifySnapshotSchedule Prelude.Text+modifySnapshotSchedule_scheduleIdentifier = Lens.lens (\ModifySnapshotSchedule' {scheduleIdentifier} -> scheduleIdentifier) (\s@ModifySnapshotSchedule' {} a -> s {scheduleIdentifier = a} :: ModifySnapshotSchedule)++-- | An updated list of schedule definitions. A schedule definition is made+-- up of schedule expressions, for example, \"cron(30 12 *)\" or \"rate(12+-- hours)\".+modifySnapshotSchedule_scheduleDefinitions :: Lens.Lens' ModifySnapshotSchedule [Prelude.Text]+modifySnapshotSchedule_scheduleDefinitions = Lens.lens (\ModifySnapshotSchedule' {scheduleDefinitions} -> scheduleDefinitions) (\s@ModifySnapshotSchedule' {} a -> s {scheduleDefinitions = a} :: ModifySnapshotSchedule) Prelude.. Lens.coerced++instance Core.AWSRequest ModifySnapshotSchedule where+ type+ AWSResponse ModifySnapshotSchedule =+ SnapshotSchedule+ request overrides =+ Request.postQuery (overrides defaultService)+ response =+ Response.receiveXMLWrapper+ "ModifySnapshotScheduleResult"+ (\s h x -> Data.parseXML x)++instance Prelude.Hashable ModifySnapshotSchedule where+ hashWithSalt _salt ModifySnapshotSchedule' {..} =+ _salt+ `Prelude.hashWithSalt` scheduleIdentifier+ `Prelude.hashWithSalt` scheduleDefinitions++instance Prelude.NFData ModifySnapshotSchedule where+ rnf ModifySnapshotSchedule' {..} =+ Prelude.rnf scheduleIdentifier+ `Prelude.seq` Prelude.rnf scheduleDefinitions++instance Data.ToHeaders ModifySnapshotSchedule where+ toHeaders = Prelude.const Prelude.mempty++instance Data.ToPath ModifySnapshotSchedule where+ toPath = Prelude.const "/"++instance Data.ToQuery ModifySnapshotSchedule where+ toQuery ModifySnapshotSchedule' {..} =+ Prelude.mconcat+ [ "Action"+ Data.=: ("ModifySnapshotSchedule" :: Prelude.ByteString),+ "Version"+ Data.=: ("2012-12-01" :: Prelude.ByteString),+ "ScheduleIdentifier" Data.=: scheduleIdentifier,+ "ScheduleDefinitions"+ Data.=: Data.toQueryList+ "ScheduleDefinition"+ scheduleDefinitions+ ]
+ gen/Amazonka/Redshift/ModifyUsageLimit.hs view
@@ -0,0 +1,150 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module : Amazonka.Redshift.ModifyUsageLimit+-- Copyright : (c) 2013-2023 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Modifies a usage limit in a cluster. You can\'t modify the feature type+-- or period of a usage limit.+module Amazonka.Redshift.ModifyUsageLimit+ ( -- * Creating a Request+ ModifyUsageLimit (..),+ newModifyUsageLimit,++ -- * Request Lenses+ modifyUsageLimit_amount,+ modifyUsageLimit_breachAction,+ modifyUsageLimit_usageLimitId,++ -- * Destructuring the Response+ UsageLimit (..),+ newUsageLimit,++ -- * Response Lenses+ usageLimit_amount,+ usageLimit_breachAction,+ usageLimit_clusterIdentifier,+ usageLimit_featureType,+ usageLimit_limitType,+ usageLimit_period,+ usageLimit_tags,+ usageLimit_usageLimitId,+ )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Redshift.Types+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newModifyUsageLimit' smart constructor.+data ModifyUsageLimit = ModifyUsageLimit'+ { -- | The new limit amount. For more information about this parameter, see+ -- UsageLimit.+ amount :: Prelude.Maybe Prelude.Integer,+ -- | The new action that Amazon Redshift takes when the limit is reached. For+ -- more information about this parameter, see UsageLimit.+ breachAction :: Prelude.Maybe UsageLimitBreachAction,+ -- | The identifier of the usage limit to modify.+ usageLimitId :: Prelude.Text+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ModifyUsageLimit' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'amount', 'modifyUsageLimit_amount' - The new limit amount. For more information about this parameter, see+-- UsageLimit.+--+-- 'breachAction', 'modifyUsageLimit_breachAction' - The new action that Amazon Redshift takes when the limit is reached. For+-- more information about this parameter, see UsageLimit.+--+-- 'usageLimitId', 'modifyUsageLimit_usageLimitId' - The identifier of the usage limit to modify.+newModifyUsageLimit ::+ -- | 'usageLimitId'+ Prelude.Text ->+ ModifyUsageLimit+newModifyUsageLimit pUsageLimitId_ =+ ModifyUsageLimit'+ { amount = Prelude.Nothing,+ breachAction = Prelude.Nothing,+ usageLimitId = pUsageLimitId_+ }++-- | The new limit amount. For more information about this parameter, see+-- UsageLimit.+modifyUsageLimit_amount :: Lens.Lens' ModifyUsageLimit (Prelude.Maybe Prelude.Integer)+modifyUsageLimit_amount = Lens.lens (\ModifyUsageLimit' {amount} -> amount) (\s@ModifyUsageLimit' {} a -> s {amount = a} :: ModifyUsageLimit)++-- | The new action that Amazon Redshift takes when the limit is reached. For+-- more information about this parameter, see UsageLimit.+modifyUsageLimit_breachAction :: Lens.Lens' ModifyUsageLimit (Prelude.Maybe UsageLimitBreachAction)+modifyUsageLimit_breachAction = Lens.lens (\ModifyUsageLimit' {breachAction} -> breachAction) (\s@ModifyUsageLimit' {} a -> s {breachAction = a} :: ModifyUsageLimit)++-- | The identifier of the usage limit to modify.+modifyUsageLimit_usageLimitId :: Lens.Lens' ModifyUsageLimit Prelude.Text+modifyUsageLimit_usageLimitId = Lens.lens (\ModifyUsageLimit' {usageLimitId} -> usageLimitId) (\s@ModifyUsageLimit' {} a -> s {usageLimitId = a} :: ModifyUsageLimit)++instance Core.AWSRequest ModifyUsageLimit where+ type AWSResponse ModifyUsageLimit = UsageLimit+ request overrides =+ Request.postQuery (overrides defaultService)+ response =+ Response.receiveXMLWrapper+ "ModifyUsageLimitResult"+ (\s h x -> Data.parseXML x)++instance Prelude.Hashable ModifyUsageLimit where+ hashWithSalt _salt ModifyUsageLimit' {..} =+ _salt+ `Prelude.hashWithSalt` amount+ `Prelude.hashWithSalt` breachAction+ `Prelude.hashWithSalt` usageLimitId++instance Prelude.NFData ModifyUsageLimit where+ rnf ModifyUsageLimit' {..} =+ Prelude.rnf amount+ `Prelude.seq` Prelude.rnf breachAction+ `Prelude.seq` Prelude.rnf usageLimitId++instance Data.ToHeaders ModifyUsageLimit where+ toHeaders = Prelude.const Prelude.mempty++instance Data.ToPath ModifyUsageLimit where+ toPath = Prelude.const "/"++instance Data.ToQuery ModifyUsageLimit where+ toQuery ModifyUsageLimit' {..} =+ Prelude.mconcat+ [ "Action"+ Data.=: ("ModifyUsageLimit" :: Prelude.ByteString),+ "Version"+ Data.=: ("2012-12-01" :: Prelude.ByteString),+ "Amount" Data.=: amount,+ "BreachAction" Data.=: breachAction,+ "UsageLimitId" Data.=: usageLimitId+ ]
+ gen/Amazonka/Redshift/PauseCluster.hs view
@@ -0,0 +1,159 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module : Amazonka.Redshift.PauseCluster+-- Copyright : (c) 2013-2023 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Pauses a cluster.+module Amazonka.Redshift.PauseCluster+ ( -- * Creating a Request+ PauseCluster (..),+ newPauseCluster,++ -- * Request Lenses+ pauseCluster_clusterIdentifier,++ -- * Destructuring the Response+ PauseClusterResponse (..),+ newPauseClusterResponse,++ -- * Response Lenses+ pauseClusterResponse_cluster,+ pauseClusterResponse_httpStatus,+ )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Redshift.Types+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | Describes a pause cluster operation. For example, a scheduled action to+-- run the @PauseCluster@ API operation.+--+-- /See:/ 'newPauseCluster' smart constructor.+data PauseCluster = PauseCluster'+ { -- | The identifier of the cluster to be paused.+ clusterIdentifier :: Prelude.Text+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'PauseCluster' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'clusterIdentifier', 'pauseCluster_clusterIdentifier' - The identifier of the cluster to be paused.+newPauseCluster ::+ -- | 'clusterIdentifier'+ Prelude.Text ->+ PauseCluster+newPauseCluster pClusterIdentifier_ =+ PauseCluster'+ { clusterIdentifier =+ pClusterIdentifier_+ }++-- | The identifier of the cluster to be paused.+pauseCluster_clusterIdentifier :: Lens.Lens' PauseCluster Prelude.Text+pauseCluster_clusterIdentifier = Lens.lens (\PauseCluster' {clusterIdentifier} -> clusterIdentifier) (\s@PauseCluster' {} a -> s {clusterIdentifier = a} :: PauseCluster)++instance Core.AWSRequest PauseCluster where+ type AWSResponse PauseCluster = PauseClusterResponse+ request overrides =+ Request.postQuery (overrides defaultService)+ response =+ Response.receiveXMLWrapper+ "PauseClusterResult"+ ( \s h x ->+ PauseClusterResponse'+ Prelude.<$> (x Data..@? "Cluster")+ Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+ )++instance Prelude.Hashable PauseCluster where+ hashWithSalt _salt PauseCluster' {..} =+ _salt `Prelude.hashWithSalt` clusterIdentifier++instance Prelude.NFData PauseCluster where+ rnf PauseCluster' {..} = Prelude.rnf clusterIdentifier++instance Data.ToHeaders PauseCluster where+ toHeaders = Prelude.const Prelude.mempty++instance Data.ToPath PauseCluster where+ toPath = Prelude.const "/"++instance Data.ToQuery PauseCluster where+ toQuery PauseCluster' {..} =+ Prelude.mconcat+ [ "Action"+ Data.=: ("PauseCluster" :: Prelude.ByteString),+ "Version"+ Data.=: ("2012-12-01" :: Prelude.ByteString),+ "ClusterIdentifier" Data.=: clusterIdentifier+ ]++-- | /See:/ 'newPauseClusterResponse' smart constructor.+data PauseClusterResponse = PauseClusterResponse'+ { cluster :: Prelude.Maybe Cluster,+ -- | The response's http status code.+ httpStatus :: Prelude.Int+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'PauseClusterResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'cluster', 'pauseClusterResponse_cluster' - Undocumented member.+--+-- 'httpStatus', 'pauseClusterResponse_httpStatus' - The response's http status code.+newPauseClusterResponse ::+ -- | 'httpStatus'+ Prelude.Int ->+ PauseClusterResponse+newPauseClusterResponse pHttpStatus_ =+ PauseClusterResponse'+ { cluster = Prelude.Nothing,+ httpStatus = pHttpStatus_+ }++-- | Undocumented member.+pauseClusterResponse_cluster :: Lens.Lens' PauseClusterResponse (Prelude.Maybe Cluster)+pauseClusterResponse_cluster = Lens.lens (\PauseClusterResponse' {cluster} -> cluster) (\s@PauseClusterResponse' {} a -> s {cluster = a} :: PauseClusterResponse)++-- | The response's http status code.+pauseClusterResponse_httpStatus :: Lens.Lens' PauseClusterResponse Prelude.Int+pauseClusterResponse_httpStatus = Lens.lens (\PauseClusterResponse' {httpStatus} -> httpStatus) (\s@PauseClusterResponse' {} a -> s {httpStatus = a} :: PauseClusterResponse)++instance Prelude.NFData PauseClusterResponse where+ rnf PauseClusterResponse' {..} =+ Prelude.rnf cluster+ `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/Redshift/PurchaseReservedNodeOffering.hs view
@@ -0,0 +1,205 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module : Amazonka.Redshift.PurchaseReservedNodeOffering+-- Copyright : (c) 2013-2023 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Allows you to purchase reserved nodes. Amazon Redshift offers a+-- predefined set of reserved node offerings. You can purchase one or more+-- of the offerings. You can call the DescribeReservedNodeOfferings API to+-- obtain the available reserved node offerings. You can call this API by+-- providing a specific reserved node offering and the number of nodes you+-- want to reserve.+--+-- For more information about reserved node offerings, go to+-- <https://docs.aws.amazon.com/redshift/latest/mgmt/purchase-reserved-node-instance.html Purchasing Reserved Nodes>+-- in the /Amazon Redshift Cluster Management Guide/.+module Amazonka.Redshift.PurchaseReservedNodeOffering+ ( -- * Creating a Request+ PurchaseReservedNodeOffering (..),+ newPurchaseReservedNodeOffering,++ -- * Request Lenses+ purchaseReservedNodeOffering_nodeCount,+ purchaseReservedNodeOffering_reservedNodeOfferingId,++ -- * Destructuring the Response+ PurchaseReservedNodeOfferingResponse (..),+ newPurchaseReservedNodeOfferingResponse,++ -- * Response Lenses+ purchaseReservedNodeOfferingResponse_reservedNode,+ purchaseReservedNodeOfferingResponse_httpStatus,+ )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Redshift.Types+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- |+--+-- /See:/ 'newPurchaseReservedNodeOffering' smart constructor.+data PurchaseReservedNodeOffering = PurchaseReservedNodeOffering'+ { -- | The number of reserved nodes that you want to purchase.+ --+ -- Default: @1@+ nodeCount :: Prelude.Maybe Prelude.Int,+ -- | The unique identifier of the reserved node offering you want to+ -- purchase.+ reservedNodeOfferingId :: Prelude.Text+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'PurchaseReservedNodeOffering' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'nodeCount', 'purchaseReservedNodeOffering_nodeCount' - The number of reserved nodes that you want to purchase.+--+-- Default: @1@+--+-- 'reservedNodeOfferingId', 'purchaseReservedNodeOffering_reservedNodeOfferingId' - The unique identifier of the reserved node offering you want to+-- purchase.+newPurchaseReservedNodeOffering ::+ -- | 'reservedNodeOfferingId'+ Prelude.Text ->+ PurchaseReservedNodeOffering+newPurchaseReservedNodeOffering+ pReservedNodeOfferingId_ =+ PurchaseReservedNodeOffering'+ { nodeCount =+ Prelude.Nothing,+ reservedNodeOfferingId =+ pReservedNodeOfferingId_+ }++-- | The number of reserved nodes that you want to purchase.+--+-- Default: @1@+purchaseReservedNodeOffering_nodeCount :: Lens.Lens' PurchaseReservedNodeOffering (Prelude.Maybe Prelude.Int)+purchaseReservedNodeOffering_nodeCount = Lens.lens (\PurchaseReservedNodeOffering' {nodeCount} -> nodeCount) (\s@PurchaseReservedNodeOffering' {} a -> s {nodeCount = a} :: PurchaseReservedNodeOffering)++-- | The unique identifier of the reserved node offering you want to+-- purchase.+purchaseReservedNodeOffering_reservedNodeOfferingId :: Lens.Lens' PurchaseReservedNodeOffering Prelude.Text+purchaseReservedNodeOffering_reservedNodeOfferingId = Lens.lens (\PurchaseReservedNodeOffering' {reservedNodeOfferingId} -> reservedNodeOfferingId) (\s@PurchaseReservedNodeOffering' {} a -> s {reservedNodeOfferingId = a} :: PurchaseReservedNodeOffering)++instance Core.AWSRequest PurchaseReservedNodeOffering where+ type+ AWSResponse PurchaseReservedNodeOffering =+ PurchaseReservedNodeOfferingResponse+ request overrides =+ Request.postQuery (overrides defaultService)+ response =+ Response.receiveXMLWrapper+ "PurchaseReservedNodeOfferingResult"+ ( \s h x ->+ PurchaseReservedNodeOfferingResponse'+ Prelude.<$> (x Data..@? "ReservedNode")+ Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+ )++instance+ Prelude.Hashable+ PurchaseReservedNodeOffering+ where+ hashWithSalt _salt PurchaseReservedNodeOffering' {..} =+ _salt+ `Prelude.hashWithSalt` nodeCount+ `Prelude.hashWithSalt` reservedNodeOfferingId++instance Prelude.NFData PurchaseReservedNodeOffering where+ rnf PurchaseReservedNodeOffering' {..} =+ Prelude.rnf nodeCount+ `Prelude.seq` Prelude.rnf reservedNodeOfferingId++instance Data.ToHeaders PurchaseReservedNodeOffering where+ toHeaders = Prelude.const Prelude.mempty++instance Data.ToPath PurchaseReservedNodeOffering where+ toPath = Prelude.const "/"++instance Data.ToQuery PurchaseReservedNodeOffering where+ toQuery PurchaseReservedNodeOffering' {..} =+ Prelude.mconcat+ [ "Action"+ Data.=: ( "PurchaseReservedNodeOffering" ::+ Prelude.ByteString+ ),+ "Version"+ Data.=: ("2012-12-01" :: Prelude.ByteString),+ "NodeCount" Data.=: nodeCount,+ "ReservedNodeOfferingId"+ Data.=: reservedNodeOfferingId+ ]++-- | /See:/ 'newPurchaseReservedNodeOfferingResponse' smart constructor.+data PurchaseReservedNodeOfferingResponse = PurchaseReservedNodeOfferingResponse'+ { reservedNode :: Prelude.Maybe ReservedNode,+ -- | The response's http status code.+ httpStatus :: Prelude.Int+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'PurchaseReservedNodeOfferingResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'reservedNode', 'purchaseReservedNodeOfferingResponse_reservedNode' - Undocumented member.+--+-- 'httpStatus', 'purchaseReservedNodeOfferingResponse_httpStatus' - The response's http status code.+newPurchaseReservedNodeOfferingResponse ::+ -- | 'httpStatus'+ Prelude.Int ->+ PurchaseReservedNodeOfferingResponse+newPurchaseReservedNodeOfferingResponse pHttpStatus_ =+ PurchaseReservedNodeOfferingResponse'+ { reservedNode =+ Prelude.Nothing,+ httpStatus = pHttpStatus_+ }++-- | Undocumented member.+purchaseReservedNodeOfferingResponse_reservedNode :: Lens.Lens' PurchaseReservedNodeOfferingResponse (Prelude.Maybe ReservedNode)+purchaseReservedNodeOfferingResponse_reservedNode = Lens.lens (\PurchaseReservedNodeOfferingResponse' {reservedNode} -> reservedNode) (\s@PurchaseReservedNodeOfferingResponse' {} a -> s {reservedNode = a} :: PurchaseReservedNodeOfferingResponse)++-- | The response's http status code.+purchaseReservedNodeOfferingResponse_httpStatus :: Lens.Lens' PurchaseReservedNodeOfferingResponse Prelude.Int+purchaseReservedNodeOfferingResponse_httpStatus = Lens.lens (\PurchaseReservedNodeOfferingResponse' {httpStatus} -> httpStatus) (\s@PurchaseReservedNodeOfferingResponse' {} a -> s {httpStatus = a} :: PurchaseReservedNodeOfferingResponse)++instance+ Prelude.NFData+ PurchaseReservedNodeOfferingResponse+ where+ rnf PurchaseReservedNodeOfferingResponse' {..} =+ Prelude.rnf reservedNode+ `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/Redshift/RebootCluster.hs view
@@ -0,0 +1,168 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module : Amazonka.Redshift.RebootCluster+-- Copyright : (c) 2013-2023 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Reboots a cluster. This action is taken as soon as possible. It results+-- in a momentary outage to the cluster, during which the cluster status is+-- set to @rebooting@. A cluster event is created when the reboot is+-- completed. Any pending cluster modifications (see ModifyCluster) are+-- applied at this reboot. For more information about managing clusters, go+-- to+-- <https://docs.aws.amazon.com/redshift/latest/mgmt/working-with-clusters.html Amazon Redshift Clusters>+-- in the /Amazon Redshift Cluster Management Guide/.+module Amazonka.Redshift.RebootCluster+ ( -- * Creating a Request+ RebootCluster (..),+ newRebootCluster,++ -- * Request Lenses+ rebootCluster_clusterIdentifier,++ -- * Destructuring the Response+ RebootClusterResponse (..),+ newRebootClusterResponse,++ -- * Response Lenses+ rebootClusterResponse_cluster,+ rebootClusterResponse_httpStatus,+ )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Redshift.Types+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- |+--+-- /See:/ 'newRebootCluster' smart constructor.+data RebootCluster = RebootCluster'+ { -- | The cluster identifier.+ clusterIdentifier :: Prelude.Text+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'RebootCluster' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'clusterIdentifier', 'rebootCluster_clusterIdentifier' - The cluster identifier.+newRebootCluster ::+ -- | 'clusterIdentifier'+ Prelude.Text ->+ RebootCluster+newRebootCluster pClusterIdentifier_ =+ RebootCluster'+ { clusterIdentifier =+ pClusterIdentifier_+ }++-- | The cluster identifier.+rebootCluster_clusterIdentifier :: Lens.Lens' RebootCluster Prelude.Text+rebootCluster_clusterIdentifier = Lens.lens (\RebootCluster' {clusterIdentifier} -> clusterIdentifier) (\s@RebootCluster' {} a -> s {clusterIdentifier = a} :: RebootCluster)++instance Core.AWSRequest RebootCluster where+ type+ AWSResponse RebootCluster =+ RebootClusterResponse+ request overrides =+ Request.postQuery (overrides defaultService)+ response =+ Response.receiveXMLWrapper+ "RebootClusterResult"+ ( \s h x ->+ RebootClusterResponse'+ Prelude.<$> (x Data..@? "Cluster")+ Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+ )++instance Prelude.Hashable RebootCluster where+ hashWithSalt _salt RebootCluster' {..} =+ _salt `Prelude.hashWithSalt` clusterIdentifier++instance Prelude.NFData RebootCluster where+ rnf RebootCluster' {..} =+ Prelude.rnf clusterIdentifier++instance Data.ToHeaders RebootCluster where+ toHeaders = Prelude.const Prelude.mempty++instance Data.ToPath RebootCluster where+ toPath = Prelude.const "/"++instance Data.ToQuery RebootCluster where+ toQuery RebootCluster' {..} =+ Prelude.mconcat+ [ "Action"+ Data.=: ("RebootCluster" :: Prelude.ByteString),+ "Version"+ Data.=: ("2012-12-01" :: Prelude.ByteString),+ "ClusterIdentifier" Data.=: clusterIdentifier+ ]++-- | /See:/ 'newRebootClusterResponse' smart constructor.+data RebootClusterResponse = RebootClusterResponse'+ { cluster :: Prelude.Maybe Cluster,+ -- | The response's http status code.+ httpStatus :: Prelude.Int+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'RebootClusterResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'cluster', 'rebootClusterResponse_cluster' - Undocumented member.+--+-- 'httpStatus', 'rebootClusterResponse_httpStatus' - The response's http status code.+newRebootClusterResponse ::+ -- | 'httpStatus'+ Prelude.Int ->+ RebootClusterResponse+newRebootClusterResponse pHttpStatus_ =+ RebootClusterResponse'+ { cluster = Prelude.Nothing,+ httpStatus = pHttpStatus_+ }++-- | Undocumented member.+rebootClusterResponse_cluster :: Lens.Lens' RebootClusterResponse (Prelude.Maybe Cluster)+rebootClusterResponse_cluster = Lens.lens (\RebootClusterResponse' {cluster} -> cluster) (\s@RebootClusterResponse' {} a -> s {cluster = a} :: RebootClusterResponse)++-- | The response's http status code.+rebootClusterResponse_httpStatus :: Lens.Lens' RebootClusterResponse Prelude.Int+rebootClusterResponse_httpStatus = Lens.lens (\RebootClusterResponse' {httpStatus} -> httpStatus) (\s@RebootClusterResponse' {} a -> s {httpStatus = a} :: RebootClusterResponse)++instance Prelude.NFData RebootClusterResponse where+ rnf RebootClusterResponse' {..} =+ Prelude.rnf cluster+ `Prelude.seq` Prelude.rnf httpStatus
@@ -0,0 +1,110 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module : Amazonka.Redshift.RejectDataShare+-- Copyright : (c) 2013-2023 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- From a datashare consumer account, rejects the specified datashare.+module Amazonka.Redshift.RejectDataShare+ ( -- * Creating a Request+ RejectDataShare (..),+ newRejectDataShare,++ -- * Request Lenses+ rejectDataShare_dataShareArn,++ -- * Destructuring the Response+ DataShare (..),+ newDataShare,++ -- * Response Lenses+ dataShare_allowPubliclyAccessibleConsumers,+ dataShare_dataShareArn,+ dataShare_dataShareAssociations,+ dataShare_managedBy,+ dataShare_producerArn,+ )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Redshift.Types+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newRejectDataShare' smart constructor.+data RejectDataShare = RejectDataShare'+ { -- | The Amazon Resource Name (ARN) of the datashare to reject.+ dataShareArn :: Prelude.Text+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'RejectDataShare' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'dataShareArn', 'rejectDataShare_dataShareArn' - The Amazon Resource Name (ARN) of the datashare to reject.+newRejectDataShare ::+ -- | 'dataShareArn'+ Prelude.Text ->+ RejectDataShare+newRejectDataShare pDataShareArn_ =+ RejectDataShare' {dataShareArn = pDataShareArn_}++-- | The Amazon Resource Name (ARN) of the datashare to reject.+rejectDataShare_dataShareArn :: Lens.Lens' RejectDataShare Prelude.Text+rejectDataShare_dataShareArn = Lens.lens (\RejectDataShare' {dataShareArn} -> dataShareArn) (\s@RejectDataShare' {} a -> s {dataShareArn = a} :: RejectDataShare)++instance Core.AWSRequest RejectDataShare where+ type AWSResponse RejectDataShare = DataShare+ request overrides =+ Request.postQuery (overrides defaultService)+ response =+ Response.receiveXMLWrapper+ "RejectDataShareResult"+ (\s h x -> Data.parseXML x)++instance Prelude.Hashable RejectDataShare where+ hashWithSalt _salt RejectDataShare' {..} =+ _salt `Prelude.hashWithSalt` dataShareArn++instance Prelude.NFData RejectDataShare where+ rnf RejectDataShare' {..} = Prelude.rnf dataShareArn++instance Data.ToHeaders RejectDataShare where+ toHeaders = Prelude.const Prelude.mempty++instance Data.ToPath RejectDataShare where+ toPath = Prelude.const "/"++instance Data.ToQuery RejectDataShare where+ toQuery RejectDataShare' {..} =+ Prelude.mconcat+ [ "Action"+ Data.=: ("RejectDataShare" :: Prelude.ByteString),+ "Version"+ Data.=: ("2012-12-01" :: Prelude.ByteString),+ "DataShareArn" Data.=: dataShareArn+ ]
+ gen/Amazonka/Redshift/ResetClusterParameterGroup.hs view
@@ -0,0 +1,171 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module : Amazonka.Redshift.ResetClusterParameterGroup+-- Copyright : (c) 2013-2023 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Sets one or more parameters of the specified parameter group to their+-- default values and sets the source values of the parameters to+-- \"engine-default\". To reset the entire parameter group specify the+-- /ResetAllParameters/ parameter. For parameter changes to take effect you+-- must reboot any associated clusters.+module Amazonka.Redshift.ResetClusterParameterGroup+ ( -- * Creating a Request+ ResetClusterParameterGroup (..),+ newResetClusterParameterGroup,++ -- * Request Lenses+ resetClusterParameterGroup_parameters,+ resetClusterParameterGroup_resetAllParameters,+ resetClusterParameterGroup_parameterGroupName,++ -- * Destructuring the Response+ ClusterParameterGroupNameMessage (..),+ newClusterParameterGroupNameMessage,++ -- * Response Lenses+ clusterParameterGroupNameMessage_parameterGroupName,+ clusterParameterGroupNameMessage_parameterGroupStatus,+ )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Redshift.Types+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- |+--+-- /See:/ 'newResetClusterParameterGroup' smart constructor.+data ResetClusterParameterGroup = ResetClusterParameterGroup'+ { -- | An array of names of parameters to be reset. If /ResetAllParameters/+ -- option is not used, then at least one parameter name must be supplied.+ --+ -- Constraints: A maximum of 20 parameters can be reset in a single+ -- request.+ parameters :: Prelude.Maybe [Parameter],+ -- | If @true@, all parameters in the specified parameter group will be reset+ -- to their default values.+ --+ -- Default: @true@+ resetAllParameters :: Prelude.Maybe Prelude.Bool,+ -- | The name of the cluster parameter group to be reset.+ parameterGroupName :: Prelude.Text+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ResetClusterParameterGroup' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'parameters', 'resetClusterParameterGroup_parameters' - An array of names of parameters to be reset. If /ResetAllParameters/+-- option is not used, then at least one parameter name must be supplied.+--+-- Constraints: A maximum of 20 parameters can be reset in a single+-- request.+--+-- 'resetAllParameters', 'resetClusterParameterGroup_resetAllParameters' - If @true@, all parameters in the specified parameter group will be reset+-- to their default values.+--+-- Default: @true@+--+-- 'parameterGroupName', 'resetClusterParameterGroup_parameterGroupName' - The name of the cluster parameter group to be reset.+newResetClusterParameterGroup ::+ -- | 'parameterGroupName'+ Prelude.Text ->+ ResetClusterParameterGroup+newResetClusterParameterGroup pParameterGroupName_ =+ ResetClusterParameterGroup'+ { parameters =+ Prelude.Nothing,+ resetAllParameters = Prelude.Nothing,+ parameterGroupName = pParameterGroupName_+ }++-- | An array of names of parameters to be reset. If /ResetAllParameters/+-- option is not used, then at least one parameter name must be supplied.+--+-- Constraints: A maximum of 20 parameters can be reset in a single+-- request.+resetClusterParameterGroup_parameters :: Lens.Lens' ResetClusterParameterGroup (Prelude.Maybe [Parameter])+resetClusterParameterGroup_parameters = Lens.lens (\ResetClusterParameterGroup' {parameters} -> parameters) (\s@ResetClusterParameterGroup' {} a -> s {parameters = a} :: ResetClusterParameterGroup) Prelude.. Lens.mapping Lens.coerced++-- | If @true@, all parameters in the specified parameter group will be reset+-- to their default values.+--+-- Default: @true@+resetClusterParameterGroup_resetAllParameters :: Lens.Lens' ResetClusterParameterGroup (Prelude.Maybe Prelude.Bool)+resetClusterParameterGroup_resetAllParameters = Lens.lens (\ResetClusterParameterGroup' {resetAllParameters} -> resetAllParameters) (\s@ResetClusterParameterGroup' {} a -> s {resetAllParameters = a} :: ResetClusterParameterGroup)++-- | The name of the cluster parameter group to be reset.+resetClusterParameterGroup_parameterGroupName :: Lens.Lens' ResetClusterParameterGroup Prelude.Text+resetClusterParameterGroup_parameterGroupName = Lens.lens (\ResetClusterParameterGroup' {parameterGroupName} -> parameterGroupName) (\s@ResetClusterParameterGroup' {} a -> s {parameterGroupName = a} :: ResetClusterParameterGroup)++instance Core.AWSRequest ResetClusterParameterGroup where+ type+ AWSResponse ResetClusterParameterGroup =+ ClusterParameterGroupNameMessage+ request overrides =+ Request.postQuery (overrides defaultService)+ response =+ Response.receiveXMLWrapper+ "ResetClusterParameterGroupResult"+ (\s h x -> Data.parseXML x)++instance Prelude.Hashable ResetClusterParameterGroup where+ hashWithSalt _salt ResetClusterParameterGroup' {..} =+ _salt+ `Prelude.hashWithSalt` parameters+ `Prelude.hashWithSalt` resetAllParameters+ `Prelude.hashWithSalt` parameterGroupName++instance Prelude.NFData ResetClusterParameterGroup where+ rnf ResetClusterParameterGroup' {..} =+ Prelude.rnf parameters+ `Prelude.seq` Prelude.rnf resetAllParameters+ `Prelude.seq` Prelude.rnf parameterGroupName++instance Data.ToHeaders ResetClusterParameterGroup where+ toHeaders = Prelude.const Prelude.mempty++instance Data.ToPath ResetClusterParameterGroup where+ toPath = Prelude.const "/"++instance Data.ToQuery ResetClusterParameterGroup where+ toQuery ResetClusterParameterGroup' {..} =+ Prelude.mconcat+ [ "Action"+ Data.=: ("ResetClusterParameterGroup" :: Prelude.ByteString),+ "Version"+ Data.=: ("2012-12-01" :: Prelude.ByteString),+ "Parameters"+ Data.=: Data.toQuery+ ( Data.toQueryList "Parameter"+ Prelude.<$> parameters+ ),+ "ResetAllParameters" Data.=: resetAllParameters,+ "ParameterGroupName" Data.=: parameterGroupName+ ]
+ gen/Amazonka/Redshift/ResizeCluster.hs view
@@ -0,0 +1,282 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module : Amazonka.Redshift.ResizeCluster+-- Copyright : (c) 2013-2023 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Changes the size of the cluster. You can change the cluster\'s type, or+-- change the number or type of nodes. The default behavior is to use the+-- elastic resize method. With an elastic resize, your cluster is available+-- for read and write operations more quickly than with the classic resize+-- method.+--+-- Elastic resize operations have the following restrictions:+--+-- - You can only resize clusters of the following types:+--+-- - dc1.large (if your cluster is in a VPC)+--+-- - dc1.8xlarge (if your cluster is in a VPC)+--+-- - dc2.large+--+-- - dc2.8xlarge+--+-- - ds2.xlarge+--+-- - ds2.8xlarge+--+-- - ra3.xlplus+--+-- - ra3.4xlarge+--+-- - ra3.16xlarge+--+-- - The type of nodes that you add must match the node type for the+-- cluster.+module Amazonka.Redshift.ResizeCluster+ ( -- * Creating a Request+ ResizeCluster (..),+ newResizeCluster,++ -- * Request Lenses+ resizeCluster_classic,+ resizeCluster_clusterType,+ resizeCluster_nodeType,+ resizeCluster_numberOfNodes,+ resizeCluster_reservedNodeId,+ resizeCluster_targetReservedNodeOfferingId,+ resizeCluster_clusterIdentifier,++ -- * Destructuring the Response+ ResizeClusterResponse (..),+ newResizeClusterResponse,++ -- * Response Lenses+ resizeClusterResponse_cluster,+ resizeClusterResponse_httpStatus,+ )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Redshift.Types+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | Describes a resize cluster operation. For example, a scheduled action to+-- run the @ResizeCluster@ API operation.+--+-- /See:/ 'newResizeCluster' smart constructor.+data ResizeCluster = ResizeCluster'+ { -- | A boolean value indicating whether the resize operation is using the+ -- classic resize process. If you don\'t provide this parameter or set the+ -- value to @false@, the resize type is elastic.+ classic :: Prelude.Maybe Prelude.Bool,+ -- | The new cluster type for the specified cluster.+ clusterType :: Prelude.Maybe Prelude.Text,+ -- | The new node type for the nodes you are adding. If not specified, the+ -- cluster\'s current node type is used.+ nodeType :: Prelude.Maybe Prelude.Text,+ -- | The new number of nodes for the cluster. If not specified, the+ -- cluster\'s current number of nodes is used.+ numberOfNodes :: Prelude.Maybe Prelude.Int,+ -- | The identifier of the reserved node.+ reservedNodeId :: Prelude.Maybe Prelude.Text,+ -- | The identifier of the target reserved node offering.+ targetReservedNodeOfferingId :: Prelude.Maybe Prelude.Text,+ -- | The unique identifier for the cluster to resize.+ clusterIdentifier :: Prelude.Text+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ResizeCluster' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'classic', 'resizeCluster_classic' - A boolean value indicating whether the resize operation is using the+-- classic resize process. If you don\'t provide this parameter or set the+-- value to @false@, the resize type is elastic.+--+-- 'clusterType', 'resizeCluster_clusterType' - The new cluster type for the specified cluster.+--+-- 'nodeType', 'resizeCluster_nodeType' - The new node type for the nodes you are adding. If not specified, the+-- cluster\'s current node type is used.+--+-- 'numberOfNodes', 'resizeCluster_numberOfNodes' - The new number of nodes for the cluster. If not specified, the+-- cluster\'s current number of nodes is used.+--+-- 'reservedNodeId', 'resizeCluster_reservedNodeId' - The identifier of the reserved node.+--+-- 'targetReservedNodeOfferingId', 'resizeCluster_targetReservedNodeOfferingId' - The identifier of the target reserved node offering.+--+-- 'clusterIdentifier', 'resizeCluster_clusterIdentifier' - The unique identifier for the cluster to resize.+newResizeCluster ::+ -- | 'clusterIdentifier'+ Prelude.Text ->+ ResizeCluster+newResizeCluster pClusterIdentifier_ =+ ResizeCluster'+ { classic = Prelude.Nothing,+ clusterType = Prelude.Nothing,+ nodeType = Prelude.Nothing,+ numberOfNodes = Prelude.Nothing,+ reservedNodeId = Prelude.Nothing,+ targetReservedNodeOfferingId = Prelude.Nothing,+ clusterIdentifier = pClusterIdentifier_+ }++-- | A boolean value indicating whether the resize operation is using the+-- classic resize process. If you don\'t provide this parameter or set the+-- value to @false@, the resize type is elastic.+resizeCluster_classic :: Lens.Lens' ResizeCluster (Prelude.Maybe Prelude.Bool)+resizeCluster_classic = Lens.lens (\ResizeCluster' {classic} -> classic) (\s@ResizeCluster' {} a -> s {classic = a} :: ResizeCluster)++-- | The new cluster type for the specified cluster.+resizeCluster_clusterType :: Lens.Lens' ResizeCluster (Prelude.Maybe Prelude.Text)+resizeCluster_clusterType = Lens.lens (\ResizeCluster' {clusterType} -> clusterType) (\s@ResizeCluster' {} a -> s {clusterType = a} :: ResizeCluster)++-- | The new node type for the nodes you are adding. If not specified, the+-- cluster\'s current node type is used.+resizeCluster_nodeType :: Lens.Lens' ResizeCluster (Prelude.Maybe Prelude.Text)+resizeCluster_nodeType = Lens.lens (\ResizeCluster' {nodeType} -> nodeType) (\s@ResizeCluster' {} a -> s {nodeType = a} :: ResizeCluster)++-- | The new number of nodes for the cluster. If not specified, the+-- cluster\'s current number of nodes is used.+resizeCluster_numberOfNodes :: Lens.Lens' ResizeCluster (Prelude.Maybe Prelude.Int)+resizeCluster_numberOfNodes = Lens.lens (\ResizeCluster' {numberOfNodes} -> numberOfNodes) (\s@ResizeCluster' {} a -> s {numberOfNodes = a} :: ResizeCluster)++-- | The identifier of the reserved node.+resizeCluster_reservedNodeId :: Lens.Lens' ResizeCluster (Prelude.Maybe Prelude.Text)+resizeCluster_reservedNodeId = Lens.lens (\ResizeCluster' {reservedNodeId} -> reservedNodeId) (\s@ResizeCluster' {} a -> s {reservedNodeId = a} :: ResizeCluster)++-- | The identifier of the target reserved node offering.+resizeCluster_targetReservedNodeOfferingId :: Lens.Lens' ResizeCluster (Prelude.Maybe Prelude.Text)+resizeCluster_targetReservedNodeOfferingId = Lens.lens (\ResizeCluster' {targetReservedNodeOfferingId} -> targetReservedNodeOfferingId) (\s@ResizeCluster' {} a -> s {targetReservedNodeOfferingId = a} :: ResizeCluster)++-- | The unique identifier for the cluster to resize.+resizeCluster_clusterIdentifier :: Lens.Lens' ResizeCluster Prelude.Text+resizeCluster_clusterIdentifier = Lens.lens (\ResizeCluster' {clusterIdentifier} -> clusterIdentifier) (\s@ResizeCluster' {} a -> s {clusterIdentifier = a} :: ResizeCluster)++instance Core.AWSRequest ResizeCluster where+ type+ AWSResponse ResizeCluster =+ ResizeClusterResponse+ request overrides =+ Request.postQuery (overrides defaultService)+ response =+ Response.receiveXMLWrapper+ "ResizeClusterResult"+ ( \s h x ->+ ResizeClusterResponse'+ Prelude.<$> (x Data..@? "Cluster")+ Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+ )++instance Prelude.Hashable ResizeCluster where+ hashWithSalt _salt ResizeCluster' {..} =+ _salt+ `Prelude.hashWithSalt` classic+ `Prelude.hashWithSalt` clusterType+ `Prelude.hashWithSalt` nodeType+ `Prelude.hashWithSalt` numberOfNodes+ `Prelude.hashWithSalt` reservedNodeId+ `Prelude.hashWithSalt` targetReservedNodeOfferingId+ `Prelude.hashWithSalt` clusterIdentifier++instance Prelude.NFData ResizeCluster where+ rnf ResizeCluster' {..} =+ Prelude.rnf classic+ `Prelude.seq` Prelude.rnf clusterType+ `Prelude.seq` Prelude.rnf nodeType+ `Prelude.seq` Prelude.rnf numberOfNodes+ `Prelude.seq` Prelude.rnf reservedNodeId+ `Prelude.seq` Prelude.rnf targetReservedNodeOfferingId+ `Prelude.seq` Prelude.rnf clusterIdentifier++instance Data.ToHeaders ResizeCluster where+ toHeaders = Prelude.const Prelude.mempty++instance Data.ToPath ResizeCluster where+ toPath = Prelude.const "/"++instance Data.ToQuery ResizeCluster where+ toQuery ResizeCluster' {..} =+ Prelude.mconcat+ [ "Action"+ Data.=: ("ResizeCluster" :: Prelude.ByteString),+ "Version"+ Data.=: ("2012-12-01" :: Prelude.ByteString),+ "Classic" Data.=: classic,+ "ClusterType" Data.=: clusterType,+ "NodeType" Data.=: nodeType,+ "NumberOfNodes" Data.=: numberOfNodes,+ "ReservedNodeId" Data.=: reservedNodeId,+ "TargetReservedNodeOfferingId"+ Data.=: targetReservedNodeOfferingId,+ "ClusterIdentifier" Data.=: clusterIdentifier+ ]++-- | /See:/ 'newResizeClusterResponse' smart constructor.+data ResizeClusterResponse = ResizeClusterResponse'+ { cluster :: Prelude.Maybe Cluster,+ -- | The response's http status code.+ httpStatus :: Prelude.Int+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ResizeClusterResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'cluster', 'resizeClusterResponse_cluster' - Undocumented member.+--+-- 'httpStatus', 'resizeClusterResponse_httpStatus' - The response's http status code.+newResizeClusterResponse ::+ -- | 'httpStatus'+ Prelude.Int ->+ ResizeClusterResponse+newResizeClusterResponse pHttpStatus_ =+ ResizeClusterResponse'+ { cluster = Prelude.Nothing,+ httpStatus = pHttpStatus_+ }++-- | Undocumented member.+resizeClusterResponse_cluster :: Lens.Lens' ResizeClusterResponse (Prelude.Maybe Cluster)+resizeClusterResponse_cluster = Lens.lens (\ResizeClusterResponse' {cluster} -> cluster) (\s@ResizeClusterResponse' {} a -> s {cluster = a} :: ResizeClusterResponse)++-- | The response's http status code.+resizeClusterResponse_httpStatus :: Lens.Lens' ResizeClusterResponse Prelude.Int+resizeClusterResponse_httpStatus = Lens.lens (\ResizeClusterResponse' {httpStatus} -> httpStatus) (\s@ResizeClusterResponse' {} a -> s {httpStatus = a} :: ResizeClusterResponse)++instance Prelude.NFData ResizeClusterResponse where+ rnf ResizeClusterResponse' {..} =+ Prelude.rnf cluster+ `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/Redshift/RestoreFromClusterSnapshot.hs view
@@ -0,0 +1,1046 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module : Amazonka.Redshift.RestoreFromClusterSnapshot+-- Copyright : (c) 2013-2023 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Creates a new cluster from a snapshot. By default, Amazon Redshift+-- creates the resulting cluster with the same configuration as the+-- original cluster from which the snapshot was created, except that the+-- new cluster is created with the default cluster security and parameter+-- groups. After Amazon Redshift creates the cluster, you can use the+-- ModifyCluster API to associate a different security group and different+-- parameter group with the restored cluster. If you are using a DS node+-- type, you can also choose to change to another DS node type of the same+-- size during restore.+--+-- If you restore a cluster into a VPC, you must provide a cluster subnet+-- group where you want the cluster restored.+--+-- For more information about working with snapshots, go to+-- <https://docs.aws.amazon.com/redshift/latest/mgmt/working-with-snapshots.html Amazon Redshift Snapshots>+-- in the /Amazon Redshift Cluster Management Guide/.+module Amazonka.Redshift.RestoreFromClusterSnapshot+ ( -- * Creating a Request+ RestoreFromClusterSnapshot (..),+ newRestoreFromClusterSnapshot,++ -- * Request Lenses+ restoreFromClusterSnapshot_additionalInfo,+ restoreFromClusterSnapshot_allowVersionUpgrade,+ restoreFromClusterSnapshot_aquaConfigurationStatus,+ restoreFromClusterSnapshot_automatedSnapshotRetentionPeriod,+ restoreFromClusterSnapshot_availabilityZone,+ restoreFromClusterSnapshot_availabilityZoneRelocation,+ restoreFromClusterSnapshot_clusterParameterGroupName,+ restoreFromClusterSnapshot_clusterSecurityGroups,+ restoreFromClusterSnapshot_clusterSubnetGroupName,+ restoreFromClusterSnapshot_defaultIamRoleArn,+ restoreFromClusterSnapshot_elasticIp,+ restoreFromClusterSnapshot_encrypted,+ restoreFromClusterSnapshot_enhancedVpcRouting,+ restoreFromClusterSnapshot_hsmClientCertificateIdentifier,+ restoreFromClusterSnapshot_hsmConfigurationIdentifier,+ restoreFromClusterSnapshot_iamRoles,+ restoreFromClusterSnapshot_kmsKeyId,+ restoreFromClusterSnapshot_maintenanceTrackName,+ restoreFromClusterSnapshot_manualSnapshotRetentionPeriod,+ restoreFromClusterSnapshot_nodeType,+ restoreFromClusterSnapshot_numberOfNodes,+ restoreFromClusterSnapshot_ownerAccount,+ restoreFromClusterSnapshot_port,+ restoreFromClusterSnapshot_preferredMaintenanceWindow,+ restoreFromClusterSnapshot_publiclyAccessible,+ restoreFromClusterSnapshot_reservedNodeId,+ restoreFromClusterSnapshot_snapshotArn,+ restoreFromClusterSnapshot_snapshotClusterIdentifier,+ restoreFromClusterSnapshot_snapshotIdentifier,+ restoreFromClusterSnapshot_snapshotScheduleIdentifier,+ restoreFromClusterSnapshot_targetReservedNodeOfferingId,+ restoreFromClusterSnapshot_vpcSecurityGroupIds,+ restoreFromClusterSnapshot_clusterIdentifier,++ -- * Destructuring the Response+ RestoreFromClusterSnapshotResponse (..),+ newRestoreFromClusterSnapshotResponse,++ -- * Response Lenses+ restoreFromClusterSnapshotResponse_cluster,+ restoreFromClusterSnapshotResponse_httpStatus,+ )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Redshift.Types+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- |+--+-- /See:/ 'newRestoreFromClusterSnapshot' smart constructor.+data RestoreFromClusterSnapshot = RestoreFromClusterSnapshot'+ { -- | Reserved.+ additionalInfo :: Prelude.Maybe Prelude.Text,+ -- | If @true@, major version upgrades can be applied during the maintenance+ -- window to the Amazon Redshift engine that is running on the cluster.+ --+ -- Default: @true@+ allowVersionUpgrade :: Prelude.Maybe Prelude.Bool,+ -- | This parameter is retired. It does not set the AQUA configuration+ -- status. Amazon Redshift automatically determines whether to use AQUA+ -- (Advanced Query Accelerator).+ aquaConfigurationStatus :: Prelude.Maybe AquaConfigurationStatus,+ -- | The number of days that automated snapshots are retained. If the value+ -- is 0, automated snapshots are disabled. Even if automated snapshots are+ -- disabled, you can still create manual snapshots when you want with+ -- CreateClusterSnapshot.+ --+ -- You can\'t disable automated snapshots for RA3 node types. Set the+ -- automated retention period from 1-35 days.+ --+ -- Default: The value selected for the cluster from which the snapshot was+ -- taken.+ --+ -- Constraints: Must be a value from 0 to 35.+ automatedSnapshotRetentionPeriod :: Prelude.Maybe Prelude.Int,+ -- | The Amazon EC2 Availability Zone in which to restore the cluster.+ --+ -- Default: A random, system-chosen Availability Zone.+ --+ -- Example: @us-east-2a@+ availabilityZone :: Prelude.Maybe Prelude.Text,+ -- | The option to enable relocation for an Amazon Redshift cluster between+ -- Availability Zones after the cluster is restored.+ availabilityZoneRelocation :: Prelude.Maybe Prelude.Bool,+ -- | The name of the parameter group to be associated with this cluster.+ --+ -- Default: The default Amazon Redshift cluster parameter group. For+ -- information about the default parameter group, go to+ -- <https://docs.aws.amazon.com/redshift/latest/mgmt/working-with-parameter-groups.html Working with Amazon Redshift Parameter Groups>.+ --+ -- Constraints:+ --+ -- - Must be 1 to 255 alphanumeric characters or hyphens.+ --+ -- - First character must be a letter.+ --+ -- - Cannot end with a hyphen or contain two consecutive hyphens.+ clusterParameterGroupName :: Prelude.Maybe Prelude.Text,+ -- | A list of security groups to be associated with this cluster.+ --+ -- Default: The default cluster security group for Amazon Redshift.+ --+ -- Cluster security groups only apply to clusters outside of VPCs.+ clusterSecurityGroups :: Prelude.Maybe [Prelude.Text],+ -- | The name of the subnet group where you want to cluster restored.+ --+ -- A snapshot of cluster in VPC can be restored only in VPC. Therefore, you+ -- must provide subnet group name where you want the cluster restored.+ clusterSubnetGroupName :: Prelude.Maybe Prelude.Text,+ -- | The Amazon Resource Name (ARN) for the IAM role that was set as default+ -- for the cluster when the cluster was last modified while it was restored+ -- from a snapshot.+ defaultIamRoleArn :: Prelude.Maybe Prelude.Text,+ -- | The Elastic IP (EIP) address for the cluster. Don\'t specify the Elastic+ -- IP address for a publicly accessible cluster with availability zone+ -- relocation turned on.+ elasticIp :: Prelude.Maybe Prelude.Text,+ -- | Enables support for restoring an unencrypted snapshot to a cluster+ -- encrypted with Key Management Service (KMS) and a customer managed key.+ encrypted :: Prelude.Maybe Prelude.Bool,+ -- | An option that specifies whether to create the cluster with enhanced VPC+ -- routing enabled. To create a cluster that uses enhanced VPC routing, the+ -- cluster must be in a VPC. For more information, see+ -- <https://docs.aws.amazon.com/redshift/latest/mgmt/enhanced-vpc-routing.html Enhanced VPC Routing>+ -- in the Amazon Redshift Cluster Management Guide.+ --+ -- If this option is @true@, enhanced VPC routing is enabled.+ --+ -- Default: false+ enhancedVpcRouting :: Prelude.Maybe Prelude.Bool,+ -- | Specifies the name of the HSM client certificate the Amazon Redshift+ -- cluster uses to retrieve the data encryption keys stored in an HSM.+ hsmClientCertificateIdentifier :: Prelude.Maybe Prelude.Text,+ -- | Specifies the name of the HSM configuration that contains the+ -- information the Amazon Redshift cluster can use to retrieve and store+ -- keys in an HSM.+ hsmConfigurationIdentifier :: Prelude.Maybe Prelude.Text,+ -- | A list of Identity and Access Management (IAM) roles that can be used by+ -- the cluster to access other Amazon Web Services services. You must+ -- supply the IAM roles in their Amazon Resource Name (ARN) format.+ --+ -- The maximum number of IAM roles that you can associate is subject to a+ -- quota. For more information, go to+ -- <https://docs.aws.amazon.com/redshift/latest/mgmt/amazon-redshift-limits.html Quotas and limits>+ -- in the /Amazon Redshift Cluster Management Guide/.+ iamRoles :: Prelude.Maybe [Prelude.Text],+ -- | The Key Management Service (KMS) key ID of the encryption key that+ -- encrypts data in the cluster restored from a shared snapshot. You can+ -- also provide the key ID when you restore from an unencrypted snapshot to+ -- an encrypted cluster in the same account. Additionally, you can specify+ -- a new KMS key ID when you restore from an encrypted snapshot in the same+ -- account in order to change it. In that case, the restored cluster is+ -- encrypted with the new KMS key ID.+ kmsKeyId :: Prelude.Maybe Prelude.Text,+ -- | The name of the maintenance track for the restored cluster. When you+ -- take a snapshot, the snapshot inherits the @MaintenanceTrack@ value from+ -- the cluster. The snapshot might be on a different track than the cluster+ -- that was the source for the snapshot. For example, suppose that you take+ -- a snapshot of a cluster that is on the current track and then change the+ -- cluster to be on the trailing track. In this case, the snapshot and the+ -- source cluster are on different tracks.+ maintenanceTrackName :: Prelude.Maybe Prelude.Text,+ -- | The default number of days to retain a manual snapshot. If the value is+ -- -1, the snapshot is retained indefinitely. This setting doesn\'t change+ -- the retention period of existing snapshots.+ --+ -- The value must be either -1 or an integer between 1 and 3,653.+ manualSnapshotRetentionPeriod :: Prelude.Maybe Prelude.Int,+ -- | The node type that the restored cluster will be provisioned with.+ --+ -- Default: The node type of the cluster from which the snapshot was taken.+ -- You can modify this if you are using any DS node type. In that case, you+ -- can choose to restore into another DS node type of the same size. For+ -- example, you can restore ds1.8xlarge into ds2.8xlarge, or ds1.xlarge+ -- into ds2.xlarge. If you have a DC instance type, you must restore into+ -- that same instance type and size. In other words, you can only restore a+ -- dc1.large instance type into another dc1.large instance type or+ -- dc2.large instance type. You can\'t restore dc1.8xlarge to dc2.8xlarge.+ -- First restore to a dc1.8xlarge cluster, then resize to a dc2.8large+ -- cluster. For more information about node types, see+ -- <https://docs.aws.amazon.com/redshift/latest/mgmt/working-with-clusters.html#rs-about-clusters-and-nodes About Clusters and Nodes>+ -- in the /Amazon Redshift Cluster Management Guide/.+ nodeType :: Prelude.Maybe Prelude.Text,+ -- | The number of nodes specified when provisioning the restored cluster.+ numberOfNodes :: Prelude.Maybe Prelude.Int,+ -- | The Amazon Web Services account used to create or copy the snapshot.+ -- Required if you are restoring a snapshot you do not own, optional if you+ -- own the snapshot.+ ownerAccount :: Prelude.Maybe Prelude.Text,+ -- | The port number on which the cluster accepts connections.+ --+ -- Default: The same port as the original cluster.+ --+ -- Constraints: Must be between @1115@ and @65535@.+ port :: Prelude.Maybe Prelude.Int,+ -- | The weekly time range (in UTC) during which automated cluster+ -- maintenance can occur.+ --+ -- Format: @ddd:hh24:mi-ddd:hh24:mi@+ --+ -- Default: The value selected for the cluster from which the snapshot was+ -- taken. For more information about the time blocks for each region, see+ -- <https://docs.aws.amazon.com/redshift/latest/mgmt/working-with-clusters.html#rs-maintenance-windows Maintenance Windows>+ -- in Amazon Redshift Cluster Management Guide.+ --+ -- Valid Days: Mon | Tue | Wed | Thu | Fri | Sat | Sun+ --+ -- Constraints: Minimum 30-minute window.+ preferredMaintenanceWindow :: Prelude.Maybe Prelude.Text,+ -- | If @true@, the cluster can be accessed from a public network.+ publiclyAccessible :: Prelude.Maybe Prelude.Bool,+ -- | The identifier of the target reserved node offering.+ reservedNodeId :: Prelude.Maybe Prelude.Text,+ -- | The Amazon Resource Name (ARN) of the snapshot associated with the+ -- message to restore from a cluster. You can specify this parameter or+ -- @snapshotIdentifier@, but not both.+ snapshotArn :: Prelude.Maybe Prelude.Text,+ -- | The name of the cluster the source snapshot was created from. This+ -- parameter is required if your IAM user has a policy containing a+ -- snapshot resource element that specifies anything other than * for the+ -- cluster name.+ snapshotClusterIdentifier :: Prelude.Maybe Prelude.Text,+ -- | The name of the snapshot from which to create the new cluster. This+ -- parameter isn\'t case sensitive. You can specify this parameter or+ -- @snapshotArn@, but not both.+ --+ -- Example: @my-snapshot-id@+ snapshotIdentifier :: Prelude.Maybe Prelude.Text,+ -- | A unique identifier for the snapshot schedule.+ snapshotScheduleIdentifier :: Prelude.Maybe Prelude.Text,+ -- | The identifier of the target reserved node offering.+ targetReservedNodeOfferingId :: Prelude.Maybe Prelude.Text,+ -- | A list of Virtual Private Cloud (VPC) security groups to be associated+ -- with the cluster.+ --+ -- Default: The default VPC security group is associated with the cluster.+ --+ -- VPC security groups only apply to clusters in VPCs.+ vpcSecurityGroupIds :: Prelude.Maybe [Prelude.Text],+ -- | The identifier of the cluster that will be created from restoring the+ -- snapshot.+ --+ -- Constraints:+ --+ -- - Must contain from 1 to 63 alphanumeric characters or hyphens.+ --+ -- - Alphabetic characters must be lowercase.+ --+ -- - First character must be a letter.+ --+ -- - Cannot end with a hyphen or contain two consecutive hyphens.+ --+ -- - Must be unique for all clusters within an Amazon Web Services+ -- account.+ clusterIdentifier :: Prelude.Text+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'RestoreFromClusterSnapshot' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'additionalInfo', 'restoreFromClusterSnapshot_additionalInfo' - Reserved.+--+-- 'allowVersionUpgrade', 'restoreFromClusterSnapshot_allowVersionUpgrade' - If @true@, major version upgrades can be applied during the maintenance+-- window to the Amazon Redshift engine that is running on the cluster.+--+-- Default: @true@+--+-- 'aquaConfigurationStatus', 'restoreFromClusterSnapshot_aquaConfigurationStatus' - This parameter is retired. It does not set the AQUA configuration+-- status. Amazon Redshift automatically determines whether to use AQUA+-- (Advanced Query Accelerator).+--+-- 'automatedSnapshotRetentionPeriod', 'restoreFromClusterSnapshot_automatedSnapshotRetentionPeriod' - The number of days that automated snapshots are retained. If the value+-- is 0, automated snapshots are disabled. Even if automated snapshots are+-- disabled, you can still create manual snapshots when you want with+-- CreateClusterSnapshot.+--+-- You can\'t disable automated snapshots for RA3 node types. Set the+-- automated retention period from 1-35 days.+--+-- Default: The value selected for the cluster from which the snapshot was+-- taken.+--+-- Constraints: Must be a value from 0 to 35.+--+-- 'availabilityZone', 'restoreFromClusterSnapshot_availabilityZone' - The Amazon EC2 Availability Zone in which to restore the cluster.+--+-- Default: A random, system-chosen Availability Zone.+--+-- Example: @us-east-2a@+--+-- 'availabilityZoneRelocation', 'restoreFromClusterSnapshot_availabilityZoneRelocation' - The option to enable relocation for an Amazon Redshift cluster between+-- Availability Zones after the cluster is restored.+--+-- 'clusterParameterGroupName', 'restoreFromClusterSnapshot_clusterParameterGroupName' - The name of the parameter group to be associated with this cluster.+--+-- Default: The default Amazon Redshift cluster parameter group. For+-- information about the default parameter group, go to+-- <https://docs.aws.amazon.com/redshift/latest/mgmt/working-with-parameter-groups.html Working with Amazon Redshift Parameter Groups>.+--+-- Constraints:+--+-- - Must be 1 to 255 alphanumeric characters or hyphens.+--+-- - First character must be a letter.+--+-- - Cannot end with a hyphen or contain two consecutive hyphens.+--+-- 'clusterSecurityGroups', 'restoreFromClusterSnapshot_clusterSecurityGroups' - A list of security groups to be associated with this cluster.+--+-- Default: The default cluster security group for Amazon Redshift.+--+-- Cluster security groups only apply to clusters outside of VPCs.+--+-- 'clusterSubnetGroupName', 'restoreFromClusterSnapshot_clusterSubnetGroupName' - The name of the subnet group where you want to cluster restored.+--+-- A snapshot of cluster in VPC can be restored only in VPC. Therefore, you+-- must provide subnet group name where you want the cluster restored.+--+-- 'defaultIamRoleArn', 'restoreFromClusterSnapshot_defaultIamRoleArn' - The Amazon Resource Name (ARN) for the IAM role that was set as default+-- for the cluster when the cluster was last modified while it was restored+-- from a snapshot.+--+-- 'elasticIp', 'restoreFromClusterSnapshot_elasticIp' - The Elastic IP (EIP) address for the cluster. Don\'t specify the Elastic+-- IP address for a publicly accessible cluster with availability zone+-- relocation turned on.+--+-- 'encrypted', 'restoreFromClusterSnapshot_encrypted' - Enables support for restoring an unencrypted snapshot to a cluster+-- encrypted with Key Management Service (KMS) and a customer managed key.+--+-- 'enhancedVpcRouting', 'restoreFromClusterSnapshot_enhancedVpcRouting' - An option that specifies whether to create the cluster with enhanced VPC+-- routing enabled. To create a cluster that uses enhanced VPC routing, the+-- cluster must be in a VPC. For more information, see+-- <https://docs.aws.amazon.com/redshift/latest/mgmt/enhanced-vpc-routing.html Enhanced VPC Routing>+-- in the Amazon Redshift Cluster Management Guide.+--+-- If this option is @true@, enhanced VPC routing is enabled.+--+-- Default: false+--+-- 'hsmClientCertificateIdentifier', 'restoreFromClusterSnapshot_hsmClientCertificateIdentifier' - Specifies the name of the HSM client certificate the Amazon Redshift+-- cluster uses to retrieve the data encryption keys stored in an HSM.+--+-- 'hsmConfigurationIdentifier', 'restoreFromClusterSnapshot_hsmConfigurationIdentifier' - Specifies the name of the HSM configuration that contains the+-- information the Amazon Redshift cluster can use to retrieve and store+-- keys in an HSM.+--+-- 'iamRoles', 'restoreFromClusterSnapshot_iamRoles' - A list of Identity and Access Management (IAM) roles that can be used by+-- the cluster to access other Amazon Web Services services. You must+-- supply the IAM roles in their Amazon Resource Name (ARN) format.+--+-- The maximum number of IAM roles that you can associate is subject to a+-- quota. For more information, go to+-- <https://docs.aws.amazon.com/redshift/latest/mgmt/amazon-redshift-limits.html Quotas and limits>+-- in the /Amazon Redshift Cluster Management Guide/.+--+-- 'kmsKeyId', 'restoreFromClusterSnapshot_kmsKeyId' - The Key Management Service (KMS) key ID of the encryption key that+-- encrypts data in the cluster restored from a shared snapshot. You can+-- also provide the key ID when you restore from an unencrypted snapshot to+-- an encrypted cluster in the same account. Additionally, you can specify+-- a new KMS key ID when you restore from an encrypted snapshot in the same+-- account in order to change it. In that case, the restored cluster is+-- encrypted with the new KMS key ID.+--+-- 'maintenanceTrackName', 'restoreFromClusterSnapshot_maintenanceTrackName' - The name of the maintenance track for the restored cluster. When you+-- take a snapshot, the snapshot inherits the @MaintenanceTrack@ value from+-- the cluster. The snapshot might be on a different track than the cluster+-- that was the source for the snapshot. For example, suppose that you take+-- a snapshot of a cluster that is on the current track and then change the+-- cluster to be on the trailing track. In this case, the snapshot and the+-- source cluster are on different tracks.+--+-- 'manualSnapshotRetentionPeriod', 'restoreFromClusterSnapshot_manualSnapshotRetentionPeriod' - The default number of days to retain a manual snapshot. If the value is+-- -1, the snapshot is retained indefinitely. This setting doesn\'t change+-- the retention period of existing snapshots.+--+-- The value must be either -1 or an integer between 1 and 3,653.+--+-- 'nodeType', 'restoreFromClusterSnapshot_nodeType' - The node type that the restored cluster will be provisioned with.+--+-- Default: The node type of the cluster from which the snapshot was taken.+-- You can modify this if you are using any DS node type. In that case, you+-- can choose to restore into another DS node type of the same size. For+-- example, you can restore ds1.8xlarge into ds2.8xlarge, or ds1.xlarge+-- into ds2.xlarge. If you have a DC instance type, you must restore into+-- that same instance type and size. In other words, you can only restore a+-- dc1.large instance type into another dc1.large instance type or+-- dc2.large instance type. You can\'t restore dc1.8xlarge to dc2.8xlarge.+-- First restore to a dc1.8xlarge cluster, then resize to a dc2.8large+-- cluster. For more information about node types, see+-- <https://docs.aws.amazon.com/redshift/latest/mgmt/working-with-clusters.html#rs-about-clusters-and-nodes About Clusters and Nodes>+-- in the /Amazon Redshift Cluster Management Guide/.+--+-- 'numberOfNodes', 'restoreFromClusterSnapshot_numberOfNodes' - The number of nodes specified when provisioning the restored cluster.+--+-- 'ownerAccount', 'restoreFromClusterSnapshot_ownerAccount' - The Amazon Web Services account used to create or copy the snapshot.+-- Required if you are restoring a snapshot you do not own, optional if you+-- own the snapshot.+--+-- 'port', 'restoreFromClusterSnapshot_port' - The port number on which the cluster accepts connections.+--+-- Default: The same port as the original cluster.+--+-- Constraints: Must be between @1115@ and @65535@.+--+-- 'preferredMaintenanceWindow', 'restoreFromClusterSnapshot_preferredMaintenanceWindow' - The weekly time range (in UTC) during which automated cluster+-- maintenance can occur.+--+-- Format: @ddd:hh24:mi-ddd:hh24:mi@+--+-- Default: The value selected for the cluster from which the snapshot was+-- taken. For more information about the time blocks for each region, see+-- <https://docs.aws.amazon.com/redshift/latest/mgmt/working-with-clusters.html#rs-maintenance-windows Maintenance Windows>+-- in Amazon Redshift Cluster Management Guide.+--+-- Valid Days: Mon | Tue | Wed | Thu | Fri | Sat | Sun+--+-- Constraints: Minimum 30-minute window.+--+-- 'publiclyAccessible', 'restoreFromClusterSnapshot_publiclyAccessible' - If @true@, the cluster can be accessed from a public network.+--+-- 'reservedNodeId', 'restoreFromClusterSnapshot_reservedNodeId' - The identifier of the target reserved node offering.+--+-- 'snapshotArn', 'restoreFromClusterSnapshot_snapshotArn' - The Amazon Resource Name (ARN) of the snapshot associated with the+-- message to restore from a cluster. You can specify this parameter or+-- @snapshotIdentifier@, but not both.+--+-- 'snapshotClusterIdentifier', 'restoreFromClusterSnapshot_snapshotClusterIdentifier' - The name of the cluster the source snapshot was created from. This+-- parameter is required if your IAM user has a policy containing a+-- snapshot resource element that specifies anything other than * for the+-- cluster name.+--+-- 'snapshotIdentifier', 'restoreFromClusterSnapshot_snapshotIdentifier' - The name of the snapshot from which to create the new cluster. This+-- parameter isn\'t case sensitive. You can specify this parameter or+-- @snapshotArn@, but not both.+--+-- Example: @my-snapshot-id@+--+-- 'snapshotScheduleIdentifier', 'restoreFromClusterSnapshot_snapshotScheduleIdentifier' - A unique identifier for the snapshot schedule.+--+-- 'targetReservedNodeOfferingId', 'restoreFromClusterSnapshot_targetReservedNodeOfferingId' - The identifier of the target reserved node offering.+--+-- 'vpcSecurityGroupIds', 'restoreFromClusterSnapshot_vpcSecurityGroupIds' - A list of Virtual Private Cloud (VPC) security groups to be associated+-- with the cluster.+--+-- Default: The default VPC security group is associated with the cluster.+--+-- VPC security groups only apply to clusters in VPCs.+--+-- 'clusterIdentifier', 'restoreFromClusterSnapshot_clusterIdentifier' - The identifier of the cluster that will be created from restoring the+-- snapshot.+--+-- Constraints:+--+-- - Must contain from 1 to 63 alphanumeric characters or hyphens.+--+-- - Alphabetic characters must be lowercase.+--+-- - First character must be a letter.+--+-- - Cannot end with a hyphen or contain two consecutive hyphens.+--+-- - Must be unique for all clusters within an Amazon Web Services+-- account.+newRestoreFromClusterSnapshot ::+ -- | 'clusterIdentifier'+ Prelude.Text ->+ RestoreFromClusterSnapshot+newRestoreFromClusterSnapshot pClusterIdentifier_ =+ RestoreFromClusterSnapshot'+ { additionalInfo =+ Prelude.Nothing,+ allowVersionUpgrade = Prelude.Nothing,+ aquaConfigurationStatus = Prelude.Nothing,+ automatedSnapshotRetentionPeriod =+ Prelude.Nothing,+ availabilityZone = Prelude.Nothing,+ availabilityZoneRelocation = Prelude.Nothing,+ clusterParameterGroupName = Prelude.Nothing,+ clusterSecurityGroups = Prelude.Nothing,+ clusterSubnetGroupName = Prelude.Nothing,+ defaultIamRoleArn = Prelude.Nothing,+ elasticIp = Prelude.Nothing,+ encrypted = Prelude.Nothing,+ enhancedVpcRouting = Prelude.Nothing,+ hsmClientCertificateIdentifier =+ Prelude.Nothing,+ hsmConfigurationIdentifier = Prelude.Nothing,+ iamRoles = Prelude.Nothing,+ kmsKeyId = Prelude.Nothing,+ maintenanceTrackName = Prelude.Nothing,+ manualSnapshotRetentionPeriod = Prelude.Nothing,+ nodeType = Prelude.Nothing,+ numberOfNodes = Prelude.Nothing,+ ownerAccount = Prelude.Nothing,+ port = Prelude.Nothing,+ preferredMaintenanceWindow = Prelude.Nothing,+ publiclyAccessible = Prelude.Nothing,+ reservedNodeId = Prelude.Nothing,+ snapshotArn = Prelude.Nothing,+ snapshotClusterIdentifier = Prelude.Nothing,+ snapshotIdentifier = Prelude.Nothing,+ snapshotScheduleIdentifier = Prelude.Nothing,+ targetReservedNodeOfferingId = Prelude.Nothing,+ vpcSecurityGroupIds = Prelude.Nothing,+ clusterIdentifier = pClusterIdentifier_+ }++-- | Reserved.+restoreFromClusterSnapshot_additionalInfo :: Lens.Lens' RestoreFromClusterSnapshot (Prelude.Maybe Prelude.Text)+restoreFromClusterSnapshot_additionalInfo = Lens.lens (\RestoreFromClusterSnapshot' {additionalInfo} -> additionalInfo) (\s@RestoreFromClusterSnapshot' {} a -> s {additionalInfo = a} :: RestoreFromClusterSnapshot)++-- | If @true@, major version upgrades can be applied during the maintenance+-- window to the Amazon Redshift engine that is running on the cluster.+--+-- Default: @true@+restoreFromClusterSnapshot_allowVersionUpgrade :: Lens.Lens' RestoreFromClusterSnapshot (Prelude.Maybe Prelude.Bool)+restoreFromClusterSnapshot_allowVersionUpgrade = Lens.lens (\RestoreFromClusterSnapshot' {allowVersionUpgrade} -> allowVersionUpgrade) (\s@RestoreFromClusterSnapshot' {} a -> s {allowVersionUpgrade = a} :: RestoreFromClusterSnapshot)++-- | This parameter is retired. It does not set the AQUA configuration+-- status. Amazon Redshift automatically determines whether to use AQUA+-- (Advanced Query Accelerator).+restoreFromClusterSnapshot_aquaConfigurationStatus :: Lens.Lens' RestoreFromClusterSnapshot (Prelude.Maybe AquaConfigurationStatus)+restoreFromClusterSnapshot_aquaConfigurationStatus = Lens.lens (\RestoreFromClusterSnapshot' {aquaConfigurationStatus} -> aquaConfigurationStatus) (\s@RestoreFromClusterSnapshot' {} a -> s {aquaConfigurationStatus = a} :: RestoreFromClusterSnapshot)++-- | The number of days that automated snapshots are retained. If the value+-- is 0, automated snapshots are disabled. Even if automated snapshots are+-- disabled, you can still create manual snapshots when you want with+-- CreateClusterSnapshot.+--+-- You can\'t disable automated snapshots for RA3 node types. Set the+-- automated retention period from 1-35 days.+--+-- Default: The value selected for the cluster from which the snapshot was+-- taken.+--+-- Constraints: Must be a value from 0 to 35.+restoreFromClusterSnapshot_automatedSnapshotRetentionPeriod :: Lens.Lens' RestoreFromClusterSnapshot (Prelude.Maybe Prelude.Int)+restoreFromClusterSnapshot_automatedSnapshotRetentionPeriod = Lens.lens (\RestoreFromClusterSnapshot' {automatedSnapshotRetentionPeriod} -> automatedSnapshotRetentionPeriod) (\s@RestoreFromClusterSnapshot' {} a -> s {automatedSnapshotRetentionPeriod = a} :: RestoreFromClusterSnapshot)++-- | The Amazon EC2 Availability Zone in which to restore the cluster.+--+-- Default: A random, system-chosen Availability Zone.+--+-- Example: @us-east-2a@+restoreFromClusterSnapshot_availabilityZone :: Lens.Lens' RestoreFromClusterSnapshot (Prelude.Maybe Prelude.Text)+restoreFromClusterSnapshot_availabilityZone = Lens.lens (\RestoreFromClusterSnapshot' {availabilityZone} -> availabilityZone) (\s@RestoreFromClusterSnapshot' {} a -> s {availabilityZone = a} :: RestoreFromClusterSnapshot)++-- | The option to enable relocation for an Amazon Redshift cluster between+-- Availability Zones after the cluster is restored.+restoreFromClusterSnapshot_availabilityZoneRelocation :: Lens.Lens' RestoreFromClusterSnapshot (Prelude.Maybe Prelude.Bool)+restoreFromClusterSnapshot_availabilityZoneRelocation = Lens.lens (\RestoreFromClusterSnapshot' {availabilityZoneRelocation} -> availabilityZoneRelocation) (\s@RestoreFromClusterSnapshot' {} a -> s {availabilityZoneRelocation = a} :: RestoreFromClusterSnapshot)++-- | The name of the parameter group to be associated with this cluster.+--+-- Default: The default Amazon Redshift cluster parameter group. For+-- information about the default parameter group, go to+-- <https://docs.aws.amazon.com/redshift/latest/mgmt/working-with-parameter-groups.html Working with Amazon Redshift Parameter Groups>.+--+-- Constraints:+--+-- - Must be 1 to 255 alphanumeric characters or hyphens.+--+-- - First character must be a letter.+--+-- - Cannot end with a hyphen or contain two consecutive hyphens.+restoreFromClusterSnapshot_clusterParameterGroupName :: Lens.Lens' RestoreFromClusterSnapshot (Prelude.Maybe Prelude.Text)+restoreFromClusterSnapshot_clusterParameterGroupName = Lens.lens (\RestoreFromClusterSnapshot' {clusterParameterGroupName} -> clusterParameterGroupName) (\s@RestoreFromClusterSnapshot' {} a -> s {clusterParameterGroupName = a} :: RestoreFromClusterSnapshot)++-- | A list of security groups to be associated with this cluster.+--+-- Default: The default cluster security group for Amazon Redshift.+--+-- Cluster security groups only apply to clusters outside of VPCs.+restoreFromClusterSnapshot_clusterSecurityGroups :: Lens.Lens' RestoreFromClusterSnapshot (Prelude.Maybe [Prelude.Text])+restoreFromClusterSnapshot_clusterSecurityGroups = Lens.lens (\RestoreFromClusterSnapshot' {clusterSecurityGroups} -> clusterSecurityGroups) (\s@RestoreFromClusterSnapshot' {} a -> s {clusterSecurityGroups = a} :: RestoreFromClusterSnapshot) Prelude.. Lens.mapping Lens.coerced++-- | The name of the subnet group where you want to cluster restored.+--+-- A snapshot of cluster in VPC can be restored only in VPC. Therefore, you+-- must provide subnet group name where you want the cluster restored.+restoreFromClusterSnapshot_clusterSubnetGroupName :: Lens.Lens' RestoreFromClusterSnapshot (Prelude.Maybe Prelude.Text)+restoreFromClusterSnapshot_clusterSubnetGroupName = Lens.lens (\RestoreFromClusterSnapshot' {clusterSubnetGroupName} -> clusterSubnetGroupName) (\s@RestoreFromClusterSnapshot' {} a -> s {clusterSubnetGroupName = a} :: RestoreFromClusterSnapshot)++-- | The Amazon Resource Name (ARN) for the IAM role that was set as default+-- for the cluster when the cluster was last modified while it was restored+-- from a snapshot.+restoreFromClusterSnapshot_defaultIamRoleArn :: Lens.Lens' RestoreFromClusterSnapshot (Prelude.Maybe Prelude.Text)+restoreFromClusterSnapshot_defaultIamRoleArn = Lens.lens (\RestoreFromClusterSnapshot' {defaultIamRoleArn} -> defaultIamRoleArn) (\s@RestoreFromClusterSnapshot' {} a -> s {defaultIamRoleArn = a} :: RestoreFromClusterSnapshot)++-- | The Elastic IP (EIP) address for the cluster. Don\'t specify the Elastic+-- IP address for a publicly accessible cluster with availability zone+-- relocation turned on.+restoreFromClusterSnapshot_elasticIp :: Lens.Lens' RestoreFromClusterSnapshot (Prelude.Maybe Prelude.Text)+restoreFromClusterSnapshot_elasticIp = Lens.lens (\RestoreFromClusterSnapshot' {elasticIp} -> elasticIp) (\s@RestoreFromClusterSnapshot' {} a -> s {elasticIp = a} :: RestoreFromClusterSnapshot)++-- | Enables support for restoring an unencrypted snapshot to a cluster+-- encrypted with Key Management Service (KMS) and a customer managed key.+restoreFromClusterSnapshot_encrypted :: Lens.Lens' RestoreFromClusterSnapshot (Prelude.Maybe Prelude.Bool)+restoreFromClusterSnapshot_encrypted = Lens.lens (\RestoreFromClusterSnapshot' {encrypted} -> encrypted) (\s@RestoreFromClusterSnapshot' {} a -> s {encrypted = a} :: RestoreFromClusterSnapshot)++-- | An option that specifies whether to create the cluster with enhanced VPC+-- routing enabled. To create a cluster that uses enhanced VPC routing, the+-- cluster must be in a VPC. For more information, see+-- <https://docs.aws.amazon.com/redshift/latest/mgmt/enhanced-vpc-routing.html Enhanced VPC Routing>+-- in the Amazon Redshift Cluster Management Guide.+--+-- If this option is @true@, enhanced VPC routing is enabled.+--+-- Default: false+restoreFromClusterSnapshot_enhancedVpcRouting :: Lens.Lens' RestoreFromClusterSnapshot (Prelude.Maybe Prelude.Bool)+restoreFromClusterSnapshot_enhancedVpcRouting = Lens.lens (\RestoreFromClusterSnapshot' {enhancedVpcRouting} -> enhancedVpcRouting) (\s@RestoreFromClusterSnapshot' {} a -> s {enhancedVpcRouting = a} :: RestoreFromClusterSnapshot)++-- | Specifies the name of the HSM client certificate the Amazon Redshift+-- cluster uses to retrieve the data encryption keys stored in an HSM.+restoreFromClusterSnapshot_hsmClientCertificateIdentifier :: Lens.Lens' RestoreFromClusterSnapshot (Prelude.Maybe Prelude.Text)+restoreFromClusterSnapshot_hsmClientCertificateIdentifier = Lens.lens (\RestoreFromClusterSnapshot' {hsmClientCertificateIdentifier} -> hsmClientCertificateIdentifier) (\s@RestoreFromClusterSnapshot' {} a -> s {hsmClientCertificateIdentifier = a} :: RestoreFromClusterSnapshot)++-- | Specifies the name of the HSM configuration that contains the+-- information the Amazon Redshift cluster can use to retrieve and store+-- keys in an HSM.+restoreFromClusterSnapshot_hsmConfigurationIdentifier :: Lens.Lens' RestoreFromClusterSnapshot (Prelude.Maybe Prelude.Text)+restoreFromClusterSnapshot_hsmConfigurationIdentifier = Lens.lens (\RestoreFromClusterSnapshot' {hsmConfigurationIdentifier} -> hsmConfigurationIdentifier) (\s@RestoreFromClusterSnapshot' {} a -> s {hsmConfigurationIdentifier = a} :: RestoreFromClusterSnapshot)++-- | A list of Identity and Access Management (IAM) roles that can be used by+-- the cluster to access other Amazon Web Services services. You must+-- supply the IAM roles in their Amazon Resource Name (ARN) format.+--+-- The maximum number of IAM roles that you can associate is subject to a+-- quota. For more information, go to+-- <https://docs.aws.amazon.com/redshift/latest/mgmt/amazon-redshift-limits.html Quotas and limits>+-- in the /Amazon Redshift Cluster Management Guide/.+restoreFromClusterSnapshot_iamRoles :: Lens.Lens' RestoreFromClusterSnapshot (Prelude.Maybe [Prelude.Text])+restoreFromClusterSnapshot_iamRoles = Lens.lens (\RestoreFromClusterSnapshot' {iamRoles} -> iamRoles) (\s@RestoreFromClusterSnapshot' {} a -> s {iamRoles = a} :: RestoreFromClusterSnapshot) Prelude.. Lens.mapping Lens.coerced++-- | The Key Management Service (KMS) key ID of the encryption key that+-- encrypts data in the cluster restored from a shared snapshot. You can+-- also provide the key ID when you restore from an unencrypted snapshot to+-- an encrypted cluster in the same account. Additionally, you can specify+-- a new KMS key ID when you restore from an encrypted snapshot in the same+-- account in order to change it. In that case, the restored cluster is+-- encrypted with the new KMS key ID.+restoreFromClusterSnapshot_kmsKeyId :: Lens.Lens' RestoreFromClusterSnapshot (Prelude.Maybe Prelude.Text)+restoreFromClusterSnapshot_kmsKeyId = Lens.lens (\RestoreFromClusterSnapshot' {kmsKeyId} -> kmsKeyId) (\s@RestoreFromClusterSnapshot' {} a -> s {kmsKeyId = a} :: RestoreFromClusterSnapshot)++-- | The name of the maintenance track for the restored cluster. When you+-- take a snapshot, the snapshot inherits the @MaintenanceTrack@ value from+-- the cluster. The snapshot might be on a different track than the cluster+-- that was the source for the snapshot. For example, suppose that you take+-- a snapshot of a cluster that is on the current track and then change the+-- cluster to be on the trailing track. In this case, the snapshot and the+-- source cluster are on different tracks.+restoreFromClusterSnapshot_maintenanceTrackName :: Lens.Lens' RestoreFromClusterSnapshot (Prelude.Maybe Prelude.Text)+restoreFromClusterSnapshot_maintenanceTrackName = Lens.lens (\RestoreFromClusterSnapshot' {maintenanceTrackName} -> maintenanceTrackName) (\s@RestoreFromClusterSnapshot' {} a -> s {maintenanceTrackName = a} :: RestoreFromClusterSnapshot)++-- | The default number of days to retain a manual snapshot. If the value is+-- -1, the snapshot is retained indefinitely. This setting doesn\'t change+-- the retention period of existing snapshots.+--+-- The value must be either -1 or an integer between 1 and 3,653.+restoreFromClusterSnapshot_manualSnapshotRetentionPeriod :: Lens.Lens' RestoreFromClusterSnapshot (Prelude.Maybe Prelude.Int)+restoreFromClusterSnapshot_manualSnapshotRetentionPeriod = Lens.lens (\RestoreFromClusterSnapshot' {manualSnapshotRetentionPeriod} -> manualSnapshotRetentionPeriod) (\s@RestoreFromClusterSnapshot' {} a -> s {manualSnapshotRetentionPeriod = a} :: RestoreFromClusterSnapshot)++-- | The node type that the restored cluster will be provisioned with.+--+-- Default: The node type of the cluster from which the snapshot was taken.+-- You can modify this if you are using any DS node type. In that case, you+-- can choose to restore into another DS node type of the same size. For+-- example, you can restore ds1.8xlarge into ds2.8xlarge, or ds1.xlarge+-- into ds2.xlarge. If you have a DC instance type, you must restore into+-- that same instance type and size. In other words, you can only restore a+-- dc1.large instance type into another dc1.large instance type or+-- dc2.large instance type. You can\'t restore dc1.8xlarge to dc2.8xlarge.+-- First restore to a dc1.8xlarge cluster, then resize to a dc2.8large+-- cluster. For more information about node types, see+-- <https://docs.aws.amazon.com/redshift/latest/mgmt/working-with-clusters.html#rs-about-clusters-and-nodes About Clusters and Nodes>+-- in the /Amazon Redshift Cluster Management Guide/.+restoreFromClusterSnapshot_nodeType :: Lens.Lens' RestoreFromClusterSnapshot (Prelude.Maybe Prelude.Text)+restoreFromClusterSnapshot_nodeType = Lens.lens (\RestoreFromClusterSnapshot' {nodeType} -> nodeType) (\s@RestoreFromClusterSnapshot' {} a -> s {nodeType = a} :: RestoreFromClusterSnapshot)++-- | The number of nodes specified when provisioning the restored cluster.+restoreFromClusterSnapshot_numberOfNodes :: Lens.Lens' RestoreFromClusterSnapshot (Prelude.Maybe Prelude.Int)+restoreFromClusterSnapshot_numberOfNodes = Lens.lens (\RestoreFromClusterSnapshot' {numberOfNodes} -> numberOfNodes) (\s@RestoreFromClusterSnapshot' {} a -> s {numberOfNodes = a} :: RestoreFromClusterSnapshot)++-- | The Amazon Web Services account used to create or copy the snapshot.+-- Required if you are restoring a snapshot you do not own, optional if you+-- own the snapshot.+restoreFromClusterSnapshot_ownerAccount :: Lens.Lens' RestoreFromClusterSnapshot (Prelude.Maybe Prelude.Text)+restoreFromClusterSnapshot_ownerAccount = Lens.lens (\RestoreFromClusterSnapshot' {ownerAccount} -> ownerAccount) (\s@RestoreFromClusterSnapshot' {} a -> s {ownerAccount = a} :: RestoreFromClusterSnapshot)++-- | The port number on which the cluster accepts connections.+--+-- Default: The same port as the original cluster.+--+-- Constraints: Must be between @1115@ and @65535@.+restoreFromClusterSnapshot_port :: Lens.Lens' RestoreFromClusterSnapshot (Prelude.Maybe Prelude.Int)+restoreFromClusterSnapshot_port = Lens.lens (\RestoreFromClusterSnapshot' {port} -> port) (\s@RestoreFromClusterSnapshot' {} a -> s {port = a} :: RestoreFromClusterSnapshot)++-- | The weekly time range (in UTC) during which automated cluster+-- maintenance can occur.+--+-- Format: @ddd:hh24:mi-ddd:hh24:mi@+--+-- Default: The value selected for the cluster from which the snapshot was+-- taken. For more information about the time blocks for each region, see+-- <https://docs.aws.amazon.com/redshift/latest/mgmt/working-with-clusters.html#rs-maintenance-windows Maintenance Windows>+-- in Amazon Redshift Cluster Management Guide.+--+-- Valid Days: Mon | Tue | Wed | Thu | Fri | Sat | Sun+--+-- Constraints: Minimum 30-minute window.+restoreFromClusterSnapshot_preferredMaintenanceWindow :: Lens.Lens' RestoreFromClusterSnapshot (Prelude.Maybe Prelude.Text)+restoreFromClusterSnapshot_preferredMaintenanceWindow = Lens.lens (\RestoreFromClusterSnapshot' {preferredMaintenanceWindow} -> preferredMaintenanceWindow) (\s@RestoreFromClusterSnapshot' {} a -> s {preferredMaintenanceWindow = a} :: RestoreFromClusterSnapshot)++-- | If @true@, the cluster can be accessed from a public network.+restoreFromClusterSnapshot_publiclyAccessible :: Lens.Lens' RestoreFromClusterSnapshot (Prelude.Maybe Prelude.Bool)+restoreFromClusterSnapshot_publiclyAccessible = Lens.lens (\RestoreFromClusterSnapshot' {publiclyAccessible} -> publiclyAccessible) (\s@RestoreFromClusterSnapshot' {} a -> s {publiclyAccessible = a} :: RestoreFromClusterSnapshot)++-- | The identifier of the target reserved node offering.+restoreFromClusterSnapshot_reservedNodeId :: Lens.Lens' RestoreFromClusterSnapshot (Prelude.Maybe Prelude.Text)+restoreFromClusterSnapshot_reservedNodeId = Lens.lens (\RestoreFromClusterSnapshot' {reservedNodeId} -> reservedNodeId) (\s@RestoreFromClusterSnapshot' {} a -> s {reservedNodeId = a} :: RestoreFromClusterSnapshot)++-- | The Amazon Resource Name (ARN) of the snapshot associated with the+-- message to restore from a cluster. You can specify this parameter or+-- @snapshotIdentifier@, but not both.+restoreFromClusterSnapshot_snapshotArn :: Lens.Lens' RestoreFromClusterSnapshot (Prelude.Maybe Prelude.Text)+restoreFromClusterSnapshot_snapshotArn = Lens.lens (\RestoreFromClusterSnapshot' {snapshotArn} -> snapshotArn) (\s@RestoreFromClusterSnapshot' {} a -> s {snapshotArn = a} :: RestoreFromClusterSnapshot)++-- | The name of the cluster the source snapshot was created from. This+-- parameter is required if your IAM user has a policy containing a+-- snapshot resource element that specifies anything other than * for the+-- cluster name.+restoreFromClusterSnapshot_snapshotClusterIdentifier :: Lens.Lens' RestoreFromClusterSnapshot (Prelude.Maybe Prelude.Text)+restoreFromClusterSnapshot_snapshotClusterIdentifier = Lens.lens (\RestoreFromClusterSnapshot' {snapshotClusterIdentifier} -> snapshotClusterIdentifier) (\s@RestoreFromClusterSnapshot' {} a -> s {snapshotClusterIdentifier = a} :: RestoreFromClusterSnapshot)++-- | The name of the snapshot from which to create the new cluster. This+-- parameter isn\'t case sensitive. You can specify this parameter or+-- @snapshotArn@, but not both.+--+-- Example: @my-snapshot-id@+restoreFromClusterSnapshot_snapshotIdentifier :: Lens.Lens' RestoreFromClusterSnapshot (Prelude.Maybe Prelude.Text)+restoreFromClusterSnapshot_snapshotIdentifier = Lens.lens (\RestoreFromClusterSnapshot' {snapshotIdentifier} -> snapshotIdentifier) (\s@RestoreFromClusterSnapshot' {} a -> s {snapshotIdentifier = a} :: RestoreFromClusterSnapshot)++-- | A unique identifier for the snapshot schedule.+restoreFromClusterSnapshot_snapshotScheduleIdentifier :: Lens.Lens' RestoreFromClusterSnapshot (Prelude.Maybe Prelude.Text)+restoreFromClusterSnapshot_snapshotScheduleIdentifier = Lens.lens (\RestoreFromClusterSnapshot' {snapshotScheduleIdentifier} -> snapshotScheduleIdentifier) (\s@RestoreFromClusterSnapshot' {} a -> s {snapshotScheduleIdentifier = a} :: RestoreFromClusterSnapshot)++-- | The identifier of the target reserved node offering.+restoreFromClusterSnapshot_targetReservedNodeOfferingId :: Lens.Lens' RestoreFromClusterSnapshot (Prelude.Maybe Prelude.Text)+restoreFromClusterSnapshot_targetReservedNodeOfferingId = Lens.lens (\RestoreFromClusterSnapshot' {targetReservedNodeOfferingId} -> targetReservedNodeOfferingId) (\s@RestoreFromClusterSnapshot' {} a -> s {targetReservedNodeOfferingId = a} :: RestoreFromClusterSnapshot)++-- | A list of Virtual Private Cloud (VPC) security groups to be associated+-- with the cluster.+--+-- Default: The default VPC security group is associated with the cluster.+--+-- VPC security groups only apply to clusters in VPCs.+restoreFromClusterSnapshot_vpcSecurityGroupIds :: Lens.Lens' RestoreFromClusterSnapshot (Prelude.Maybe [Prelude.Text])+restoreFromClusterSnapshot_vpcSecurityGroupIds = Lens.lens (\RestoreFromClusterSnapshot' {vpcSecurityGroupIds} -> vpcSecurityGroupIds) (\s@RestoreFromClusterSnapshot' {} a -> s {vpcSecurityGroupIds = a} :: RestoreFromClusterSnapshot) Prelude.. Lens.mapping Lens.coerced++-- | The identifier of the cluster that will be created from restoring the+-- snapshot.+--+-- Constraints:+--+-- - Must contain from 1 to 63 alphanumeric characters or hyphens.+--+-- - Alphabetic characters must be lowercase.+--+-- - First character must be a letter.+--+-- - Cannot end with a hyphen or contain two consecutive hyphens.+--+-- - Must be unique for all clusters within an Amazon Web Services+-- account.+restoreFromClusterSnapshot_clusterIdentifier :: Lens.Lens' RestoreFromClusterSnapshot Prelude.Text+restoreFromClusterSnapshot_clusterIdentifier = Lens.lens (\RestoreFromClusterSnapshot' {clusterIdentifier} -> clusterIdentifier) (\s@RestoreFromClusterSnapshot' {} a -> s {clusterIdentifier = a} :: RestoreFromClusterSnapshot)++instance Core.AWSRequest RestoreFromClusterSnapshot where+ type+ AWSResponse RestoreFromClusterSnapshot =+ RestoreFromClusterSnapshotResponse+ request overrides =+ Request.postQuery (overrides defaultService)+ response =+ Response.receiveXMLWrapper+ "RestoreFromClusterSnapshotResult"+ ( \s h x ->+ RestoreFromClusterSnapshotResponse'+ Prelude.<$> (x Data..@? "Cluster")+ Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+ )++instance Prelude.Hashable RestoreFromClusterSnapshot where+ hashWithSalt _salt RestoreFromClusterSnapshot' {..} =+ _salt+ `Prelude.hashWithSalt` additionalInfo+ `Prelude.hashWithSalt` allowVersionUpgrade+ `Prelude.hashWithSalt` aquaConfigurationStatus+ `Prelude.hashWithSalt` automatedSnapshotRetentionPeriod+ `Prelude.hashWithSalt` availabilityZone+ `Prelude.hashWithSalt` availabilityZoneRelocation+ `Prelude.hashWithSalt` clusterParameterGroupName+ `Prelude.hashWithSalt` clusterSecurityGroups+ `Prelude.hashWithSalt` clusterSubnetGroupName+ `Prelude.hashWithSalt` defaultIamRoleArn+ `Prelude.hashWithSalt` elasticIp+ `Prelude.hashWithSalt` encrypted+ `Prelude.hashWithSalt` enhancedVpcRouting+ `Prelude.hashWithSalt` hsmClientCertificateIdentifier+ `Prelude.hashWithSalt` hsmConfigurationIdentifier+ `Prelude.hashWithSalt` iamRoles+ `Prelude.hashWithSalt` kmsKeyId+ `Prelude.hashWithSalt` maintenanceTrackName+ `Prelude.hashWithSalt` manualSnapshotRetentionPeriod+ `Prelude.hashWithSalt` nodeType+ `Prelude.hashWithSalt` numberOfNodes+ `Prelude.hashWithSalt` ownerAccount+ `Prelude.hashWithSalt` port+ `Prelude.hashWithSalt` preferredMaintenanceWindow+ `Prelude.hashWithSalt` publiclyAccessible+ `Prelude.hashWithSalt` reservedNodeId+ `Prelude.hashWithSalt` snapshotArn+ `Prelude.hashWithSalt` snapshotClusterIdentifier+ `Prelude.hashWithSalt` snapshotIdentifier+ `Prelude.hashWithSalt` snapshotScheduleIdentifier+ `Prelude.hashWithSalt` targetReservedNodeOfferingId+ `Prelude.hashWithSalt` vpcSecurityGroupIds+ `Prelude.hashWithSalt` clusterIdentifier++instance Prelude.NFData RestoreFromClusterSnapshot where+ rnf RestoreFromClusterSnapshot' {..} =+ Prelude.rnf additionalInfo+ `Prelude.seq` Prelude.rnf allowVersionUpgrade+ `Prelude.seq` Prelude.rnf aquaConfigurationStatus+ `Prelude.seq` Prelude.rnf automatedSnapshotRetentionPeriod+ `Prelude.seq` Prelude.rnf availabilityZone+ `Prelude.seq` Prelude.rnf availabilityZoneRelocation+ `Prelude.seq` Prelude.rnf clusterParameterGroupName+ `Prelude.seq` Prelude.rnf clusterSecurityGroups+ `Prelude.seq` Prelude.rnf clusterSubnetGroupName+ `Prelude.seq` Prelude.rnf defaultIamRoleArn+ `Prelude.seq` Prelude.rnf elasticIp+ `Prelude.seq` Prelude.rnf encrypted+ `Prelude.seq` Prelude.rnf enhancedVpcRouting+ `Prelude.seq` Prelude.rnf hsmClientCertificateIdentifier+ `Prelude.seq` Prelude.rnf hsmConfigurationIdentifier+ `Prelude.seq` Prelude.rnf iamRoles+ `Prelude.seq` Prelude.rnf kmsKeyId+ `Prelude.seq` Prelude.rnf maintenanceTrackName+ `Prelude.seq` Prelude.rnf+ manualSnapshotRetentionPeriod+ `Prelude.seq` Prelude.rnf nodeType+ `Prelude.seq` Prelude.rnf numberOfNodes+ `Prelude.seq` Prelude.rnf ownerAccount+ `Prelude.seq` Prelude.rnf port+ `Prelude.seq` Prelude.rnf+ preferredMaintenanceWindow+ `Prelude.seq` Prelude.rnf+ publiclyAccessible+ `Prelude.seq` Prelude.rnf+ reservedNodeId+ `Prelude.seq` Prelude.rnf+ snapshotArn+ `Prelude.seq` Prelude.rnf+ snapshotClusterIdentifier+ `Prelude.seq` Prelude.rnf+ snapshotIdentifier+ `Prelude.seq` Prelude.rnf+ snapshotScheduleIdentifier+ `Prelude.seq` Prelude.rnf+ targetReservedNodeOfferingId+ `Prelude.seq` Prelude.rnf+ vpcSecurityGroupIds+ `Prelude.seq` Prelude.rnf+ clusterIdentifier++instance Data.ToHeaders RestoreFromClusterSnapshot where+ toHeaders = Prelude.const Prelude.mempty++instance Data.ToPath RestoreFromClusterSnapshot where+ toPath = Prelude.const "/"++instance Data.ToQuery RestoreFromClusterSnapshot where+ toQuery RestoreFromClusterSnapshot' {..} =+ Prelude.mconcat+ [ "Action"+ Data.=: ("RestoreFromClusterSnapshot" :: Prelude.ByteString),+ "Version"+ Data.=: ("2012-12-01" :: Prelude.ByteString),+ "AdditionalInfo" Data.=: additionalInfo,+ "AllowVersionUpgrade" Data.=: allowVersionUpgrade,+ "AquaConfigurationStatus"+ Data.=: aquaConfigurationStatus,+ "AutomatedSnapshotRetentionPeriod"+ Data.=: automatedSnapshotRetentionPeriod,+ "AvailabilityZone" Data.=: availabilityZone,+ "AvailabilityZoneRelocation"+ Data.=: availabilityZoneRelocation,+ "ClusterParameterGroupName"+ Data.=: clusterParameterGroupName,+ "ClusterSecurityGroups"+ Data.=: Data.toQuery+ ( Data.toQueryList "ClusterSecurityGroupName"+ Prelude.<$> clusterSecurityGroups+ ),+ "ClusterSubnetGroupName"+ Data.=: clusterSubnetGroupName,+ "DefaultIamRoleArn" Data.=: defaultIamRoleArn,+ "ElasticIp" Data.=: elasticIp,+ "Encrypted" Data.=: encrypted,+ "EnhancedVpcRouting" Data.=: enhancedVpcRouting,+ "HsmClientCertificateIdentifier"+ Data.=: hsmClientCertificateIdentifier,+ "HsmConfigurationIdentifier"+ Data.=: hsmConfigurationIdentifier,+ "IamRoles"+ Data.=: Data.toQuery+ (Data.toQueryList "IamRoleArn" Prelude.<$> iamRoles),+ "KmsKeyId" Data.=: kmsKeyId,+ "MaintenanceTrackName" Data.=: maintenanceTrackName,+ "ManualSnapshotRetentionPeriod"+ Data.=: manualSnapshotRetentionPeriod,+ "NodeType" Data.=: nodeType,+ "NumberOfNodes" Data.=: numberOfNodes,+ "OwnerAccount" Data.=: ownerAccount,+ "Port" Data.=: port,+ "PreferredMaintenanceWindow"+ Data.=: preferredMaintenanceWindow,+ "PubliclyAccessible" Data.=: publiclyAccessible,+ "ReservedNodeId" Data.=: reservedNodeId,+ "SnapshotArn" Data.=: snapshotArn,+ "SnapshotClusterIdentifier"+ Data.=: snapshotClusterIdentifier,+ "SnapshotIdentifier" Data.=: snapshotIdentifier,+ "SnapshotScheduleIdentifier"+ Data.=: snapshotScheduleIdentifier,+ "TargetReservedNodeOfferingId"+ Data.=: targetReservedNodeOfferingId,+ "VpcSecurityGroupIds"+ Data.=: Data.toQuery+ ( Data.toQueryList "VpcSecurityGroupId"+ Prelude.<$> vpcSecurityGroupIds+ ),+ "ClusterIdentifier" Data.=: clusterIdentifier+ ]++-- | /See:/ 'newRestoreFromClusterSnapshotResponse' smart constructor.+data RestoreFromClusterSnapshotResponse = RestoreFromClusterSnapshotResponse'+ { cluster :: Prelude.Maybe Cluster,+ -- | The response's http status code.+ httpStatus :: Prelude.Int+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'RestoreFromClusterSnapshotResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'cluster', 'restoreFromClusterSnapshotResponse_cluster' - Undocumented member.+--+-- 'httpStatus', 'restoreFromClusterSnapshotResponse_httpStatus' - The response's http status code.+newRestoreFromClusterSnapshotResponse ::+ -- | 'httpStatus'+ Prelude.Int ->+ RestoreFromClusterSnapshotResponse+newRestoreFromClusterSnapshotResponse pHttpStatus_ =+ RestoreFromClusterSnapshotResponse'+ { cluster =+ Prelude.Nothing,+ httpStatus = pHttpStatus_+ }++-- | Undocumented member.+restoreFromClusterSnapshotResponse_cluster :: Lens.Lens' RestoreFromClusterSnapshotResponse (Prelude.Maybe Cluster)+restoreFromClusterSnapshotResponse_cluster = Lens.lens (\RestoreFromClusterSnapshotResponse' {cluster} -> cluster) (\s@RestoreFromClusterSnapshotResponse' {} a -> s {cluster = a} :: RestoreFromClusterSnapshotResponse)++-- | The response's http status code.+restoreFromClusterSnapshotResponse_httpStatus :: Lens.Lens' RestoreFromClusterSnapshotResponse Prelude.Int+restoreFromClusterSnapshotResponse_httpStatus = Lens.lens (\RestoreFromClusterSnapshotResponse' {httpStatus} -> httpStatus) (\s@RestoreFromClusterSnapshotResponse' {} a -> s {httpStatus = a} :: RestoreFromClusterSnapshotResponse)++instance+ Prelude.NFData+ RestoreFromClusterSnapshotResponse+ where+ rnf RestoreFromClusterSnapshotResponse' {..} =+ Prelude.rnf cluster+ `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/Redshift/RestoreTableFromClusterSnapshot.hs view
@@ -0,0 +1,332 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module : Amazonka.Redshift.RestoreTableFromClusterSnapshot+-- Copyright : (c) 2013-2023 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Creates a new table from a table in an Amazon Redshift cluster snapshot.+-- You must create the new table within the Amazon Redshift cluster that+-- the snapshot was taken from.+--+-- You cannot use @RestoreTableFromClusterSnapshot@ to restore a table with+-- the same name as an existing table in an Amazon Redshift cluster. That+-- is, you cannot overwrite an existing table in a cluster with a restored+-- table. If you want to replace your original table with a new, restored+-- table, then rename or drop your original table before you call+-- @RestoreTableFromClusterSnapshot@. When you have renamed your original+-- table, then you can pass the original name of the table as the+-- @NewTableName@ parameter value in the call to+-- @RestoreTableFromClusterSnapshot@. This way, you can replace the+-- original table with the table created from the snapshot.+module Amazonka.Redshift.RestoreTableFromClusterSnapshot+ ( -- * Creating a Request+ RestoreTableFromClusterSnapshot (..),+ newRestoreTableFromClusterSnapshot,++ -- * Request Lenses+ restoreTableFromClusterSnapshot_enableCaseSensitiveIdentifier,+ restoreTableFromClusterSnapshot_sourceSchemaName,+ restoreTableFromClusterSnapshot_targetDatabaseName,+ restoreTableFromClusterSnapshot_targetSchemaName,+ restoreTableFromClusterSnapshot_clusterIdentifier,+ restoreTableFromClusterSnapshot_snapshotIdentifier,+ restoreTableFromClusterSnapshot_sourceDatabaseName,+ restoreTableFromClusterSnapshot_sourceTableName,+ restoreTableFromClusterSnapshot_newTableName,++ -- * Destructuring the Response+ RestoreTableFromClusterSnapshotResponse (..),+ newRestoreTableFromClusterSnapshotResponse,++ -- * Response Lenses+ restoreTableFromClusterSnapshotResponse_tableRestoreStatus,+ restoreTableFromClusterSnapshotResponse_httpStatus,+ )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Redshift.Types+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- |+--+-- /See:/ 'newRestoreTableFromClusterSnapshot' smart constructor.+data RestoreTableFromClusterSnapshot = RestoreTableFromClusterSnapshot'+ { -- | Indicates whether name identifiers for database, schema, and table are+ -- case sensitive. If @true@, the names are case sensitive. If @false@+ -- (default), the names are not case sensitive.+ enableCaseSensitiveIdentifier :: Prelude.Maybe Prelude.Bool,+ -- | The name of the source schema that contains the table to restore from.+ -- If you do not specify a @SourceSchemaName@ value, the default is+ -- @public@.+ sourceSchemaName :: Prelude.Maybe Prelude.Text,+ -- | The name of the database to restore the table to.+ targetDatabaseName :: Prelude.Maybe Prelude.Text,+ -- | The name of the schema to restore the table to.+ targetSchemaName :: Prelude.Maybe Prelude.Text,+ -- | The identifier of the Amazon Redshift cluster to restore the table to.+ clusterIdentifier :: Prelude.Text,+ -- | The identifier of the snapshot to restore the table from. This snapshot+ -- must have been created from the Amazon Redshift cluster specified by the+ -- @ClusterIdentifier@ parameter.+ snapshotIdentifier :: Prelude.Text,+ -- | The name of the source database that contains the table to restore from.+ sourceDatabaseName :: Prelude.Text,+ -- | The name of the source table to restore from.+ sourceTableName :: Prelude.Text,+ -- | The name of the table to create as a result of the current request.+ newTableName' :: Prelude.Text+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'RestoreTableFromClusterSnapshot' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'enableCaseSensitiveIdentifier', 'restoreTableFromClusterSnapshot_enableCaseSensitiveIdentifier' - Indicates whether name identifiers for database, schema, and table are+-- case sensitive. If @true@, the names are case sensitive. If @false@+-- (default), the names are not case sensitive.+--+-- 'sourceSchemaName', 'restoreTableFromClusterSnapshot_sourceSchemaName' - The name of the source schema that contains the table to restore from.+-- If you do not specify a @SourceSchemaName@ value, the default is+-- @public@.+--+-- 'targetDatabaseName', 'restoreTableFromClusterSnapshot_targetDatabaseName' - The name of the database to restore the table to.+--+-- 'targetSchemaName', 'restoreTableFromClusterSnapshot_targetSchemaName' - The name of the schema to restore the table to.+--+-- 'clusterIdentifier', 'restoreTableFromClusterSnapshot_clusterIdentifier' - The identifier of the Amazon Redshift cluster to restore the table to.+--+-- 'snapshotIdentifier', 'restoreTableFromClusterSnapshot_snapshotIdentifier' - The identifier of the snapshot to restore the table from. This snapshot+-- must have been created from the Amazon Redshift cluster specified by the+-- @ClusterIdentifier@ parameter.+--+-- 'sourceDatabaseName', 'restoreTableFromClusterSnapshot_sourceDatabaseName' - The name of the source database that contains the table to restore from.+--+-- 'sourceTableName', 'restoreTableFromClusterSnapshot_sourceTableName' - The name of the source table to restore from.+--+-- 'newTableName'', 'restoreTableFromClusterSnapshot_newTableName' - The name of the table to create as a result of the current request.+newRestoreTableFromClusterSnapshot ::+ -- | 'clusterIdentifier'+ Prelude.Text ->+ -- | 'snapshotIdentifier'+ Prelude.Text ->+ -- | 'sourceDatabaseName'+ Prelude.Text ->+ -- | 'sourceTableName'+ Prelude.Text ->+ -- | 'newTableName''+ Prelude.Text ->+ RestoreTableFromClusterSnapshot+newRestoreTableFromClusterSnapshot+ pClusterIdentifier_+ pSnapshotIdentifier_+ pSourceDatabaseName_+ pSourceTableName_+ pNewTableName_ =+ RestoreTableFromClusterSnapshot'+ { enableCaseSensitiveIdentifier =+ Prelude.Nothing,+ sourceSchemaName = Prelude.Nothing,+ targetDatabaseName = Prelude.Nothing,+ targetSchemaName = Prelude.Nothing,+ clusterIdentifier = pClusterIdentifier_,+ snapshotIdentifier = pSnapshotIdentifier_,+ sourceDatabaseName = pSourceDatabaseName_,+ sourceTableName = pSourceTableName_,+ newTableName' = pNewTableName_+ }++-- | Indicates whether name identifiers for database, schema, and table are+-- case sensitive. If @true@, the names are case sensitive. If @false@+-- (default), the names are not case sensitive.+restoreTableFromClusterSnapshot_enableCaseSensitiveIdentifier :: Lens.Lens' RestoreTableFromClusterSnapshot (Prelude.Maybe Prelude.Bool)+restoreTableFromClusterSnapshot_enableCaseSensitiveIdentifier = Lens.lens (\RestoreTableFromClusterSnapshot' {enableCaseSensitiveIdentifier} -> enableCaseSensitiveIdentifier) (\s@RestoreTableFromClusterSnapshot' {} a -> s {enableCaseSensitiveIdentifier = a} :: RestoreTableFromClusterSnapshot)++-- | The name of the source schema that contains the table to restore from.+-- If you do not specify a @SourceSchemaName@ value, the default is+-- @public@.+restoreTableFromClusterSnapshot_sourceSchemaName :: Lens.Lens' RestoreTableFromClusterSnapshot (Prelude.Maybe Prelude.Text)+restoreTableFromClusterSnapshot_sourceSchemaName = Lens.lens (\RestoreTableFromClusterSnapshot' {sourceSchemaName} -> sourceSchemaName) (\s@RestoreTableFromClusterSnapshot' {} a -> s {sourceSchemaName = a} :: RestoreTableFromClusterSnapshot)++-- | The name of the database to restore the table to.+restoreTableFromClusterSnapshot_targetDatabaseName :: Lens.Lens' RestoreTableFromClusterSnapshot (Prelude.Maybe Prelude.Text)+restoreTableFromClusterSnapshot_targetDatabaseName = Lens.lens (\RestoreTableFromClusterSnapshot' {targetDatabaseName} -> targetDatabaseName) (\s@RestoreTableFromClusterSnapshot' {} a -> s {targetDatabaseName = a} :: RestoreTableFromClusterSnapshot)++-- | The name of the schema to restore the table to.+restoreTableFromClusterSnapshot_targetSchemaName :: Lens.Lens' RestoreTableFromClusterSnapshot (Prelude.Maybe Prelude.Text)+restoreTableFromClusterSnapshot_targetSchemaName = Lens.lens (\RestoreTableFromClusterSnapshot' {targetSchemaName} -> targetSchemaName) (\s@RestoreTableFromClusterSnapshot' {} a -> s {targetSchemaName = a} :: RestoreTableFromClusterSnapshot)++-- | The identifier of the Amazon Redshift cluster to restore the table to.+restoreTableFromClusterSnapshot_clusterIdentifier :: Lens.Lens' RestoreTableFromClusterSnapshot Prelude.Text+restoreTableFromClusterSnapshot_clusterIdentifier = Lens.lens (\RestoreTableFromClusterSnapshot' {clusterIdentifier} -> clusterIdentifier) (\s@RestoreTableFromClusterSnapshot' {} a -> s {clusterIdentifier = a} :: RestoreTableFromClusterSnapshot)++-- | The identifier of the snapshot to restore the table from. This snapshot+-- must have been created from the Amazon Redshift cluster specified by the+-- @ClusterIdentifier@ parameter.+restoreTableFromClusterSnapshot_snapshotIdentifier :: Lens.Lens' RestoreTableFromClusterSnapshot Prelude.Text+restoreTableFromClusterSnapshot_snapshotIdentifier = Lens.lens (\RestoreTableFromClusterSnapshot' {snapshotIdentifier} -> snapshotIdentifier) (\s@RestoreTableFromClusterSnapshot' {} a -> s {snapshotIdentifier = a} :: RestoreTableFromClusterSnapshot)++-- | The name of the source database that contains the table to restore from.+restoreTableFromClusterSnapshot_sourceDatabaseName :: Lens.Lens' RestoreTableFromClusterSnapshot Prelude.Text+restoreTableFromClusterSnapshot_sourceDatabaseName = Lens.lens (\RestoreTableFromClusterSnapshot' {sourceDatabaseName} -> sourceDatabaseName) (\s@RestoreTableFromClusterSnapshot' {} a -> s {sourceDatabaseName = a} :: RestoreTableFromClusterSnapshot)++-- | The name of the source table to restore from.+restoreTableFromClusterSnapshot_sourceTableName :: Lens.Lens' RestoreTableFromClusterSnapshot Prelude.Text+restoreTableFromClusterSnapshot_sourceTableName = Lens.lens (\RestoreTableFromClusterSnapshot' {sourceTableName} -> sourceTableName) (\s@RestoreTableFromClusterSnapshot' {} a -> s {sourceTableName = a} :: RestoreTableFromClusterSnapshot)++-- | The name of the table to create as a result of the current request.+restoreTableFromClusterSnapshot_newTableName :: Lens.Lens' RestoreTableFromClusterSnapshot Prelude.Text+restoreTableFromClusterSnapshot_newTableName = Lens.lens (\RestoreTableFromClusterSnapshot' {newTableName'} -> newTableName') (\s@RestoreTableFromClusterSnapshot' {} a -> s {newTableName' = a} :: RestoreTableFromClusterSnapshot)++instance+ Core.AWSRequest+ RestoreTableFromClusterSnapshot+ where+ type+ AWSResponse RestoreTableFromClusterSnapshot =+ RestoreTableFromClusterSnapshotResponse+ request overrides =+ Request.postQuery (overrides defaultService)+ response =+ Response.receiveXMLWrapper+ "RestoreTableFromClusterSnapshotResult"+ ( \s h x ->+ RestoreTableFromClusterSnapshotResponse'+ Prelude.<$> (x Data..@? "TableRestoreStatus")+ Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+ )++instance+ Prelude.Hashable+ RestoreTableFromClusterSnapshot+ where+ hashWithSalt+ _salt+ RestoreTableFromClusterSnapshot' {..} =+ _salt+ `Prelude.hashWithSalt` enableCaseSensitiveIdentifier+ `Prelude.hashWithSalt` sourceSchemaName+ `Prelude.hashWithSalt` targetDatabaseName+ `Prelude.hashWithSalt` targetSchemaName+ `Prelude.hashWithSalt` clusterIdentifier+ `Prelude.hashWithSalt` snapshotIdentifier+ `Prelude.hashWithSalt` sourceDatabaseName+ `Prelude.hashWithSalt` sourceTableName+ `Prelude.hashWithSalt` newTableName'++instance+ Prelude.NFData+ RestoreTableFromClusterSnapshot+ where+ rnf RestoreTableFromClusterSnapshot' {..} =+ Prelude.rnf enableCaseSensitiveIdentifier+ `Prelude.seq` Prelude.rnf sourceSchemaName+ `Prelude.seq` Prelude.rnf targetDatabaseName+ `Prelude.seq` Prelude.rnf targetSchemaName+ `Prelude.seq` Prelude.rnf clusterIdentifier+ `Prelude.seq` Prelude.rnf snapshotIdentifier+ `Prelude.seq` Prelude.rnf sourceDatabaseName+ `Prelude.seq` Prelude.rnf sourceTableName+ `Prelude.seq` Prelude.rnf newTableName'++instance+ Data.ToHeaders+ RestoreTableFromClusterSnapshot+ where+ toHeaders = Prelude.const Prelude.mempty++instance Data.ToPath RestoreTableFromClusterSnapshot where+ toPath = Prelude.const "/"++instance Data.ToQuery RestoreTableFromClusterSnapshot where+ toQuery RestoreTableFromClusterSnapshot' {..} =+ Prelude.mconcat+ [ "Action"+ Data.=: ( "RestoreTableFromClusterSnapshot" ::+ Prelude.ByteString+ ),+ "Version"+ Data.=: ("2012-12-01" :: Prelude.ByteString),+ "EnableCaseSensitiveIdentifier"+ Data.=: enableCaseSensitiveIdentifier,+ "SourceSchemaName" Data.=: sourceSchemaName,+ "TargetDatabaseName" Data.=: targetDatabaseName,+ "TargetSchemaName" Data.=: targetSchemaName,+ "ClusterIdentifier" Data.=: clusterIdentifier,+ "SnapshotIdentifier" Data.=: snapshotIdentifier,+ "SourceDatabaseName" Data.=: sourceDatabaseName,+ "SourceTableName" Data.=: sourceTableName,+ "NewTableName" Data.=: newTableName'+ ]++-- | /See:/ 'newRestoreTableFromClusterSnapshotResponse' smart constructor.+data RestoreTableFromClusterSnapshotResponse = RestoreTableFromClusterSnapshotResponse'+ { tableRestoreStatus :: Prelude.Maybe TableRestoreStatus,+ -- | The response's http status code.+ httpStatus :: Prelude.Int+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'RestoreTableFromClusterSnapshotResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'tableRestoreStatus', 'restoreTableFromClusterSnapshotResponse_tableRestoreStatus' - Undocumented member.+--+-- 'httpStatus', 'restoreTableFromClusterSnapshotResponse_httpStatus' - The response's http status code.+newRestoreTableFromClusterSnapshotResponse ::+ -- | 'httpStatus'+ Prelude.Int ->+ RestoreTableFromClusterSnapshotResponse+newRestoreTableFromClusterSnapshotResponse+ pHttpStatus_ =+ RestoreTableFromClusterSnapshotResponse'+ { tableRestoreStatus =+ Prelude.Nothing,+ httpStatus = pHttpStatus_+ }++-- | Undocumented member.+restoreTableFromClusterSnapshotResponse_tableRestoreStatus :: Lens.Lens' RestoreTableFromClusterSnapshotResponse (Prelude.Maybe TableRestoreStatus)+restoreTableFromClusterSnapshotResponse_tableRestoreStatus = Lens.lens (\RestoreTableFromClusterSnapshotResponse' {tableRestoreStatus} -> tableRestoreStatus) (\s@RestoreTableFromClusterSnapshotResponse' {} a -> s {tableRestoreStatus = a} :: RestoreTableFromClusterSnapshotResponse)++-- | The response's http status code.+restoreTableFromClusterSnapshotResponse_httpStatus :: Lens.Lens' RestoreTableFromClusterSnapshotResponse Prelude.Int+restoreTableFromClusterSnapshotResponse_httpStatus = Lens.lens (\RestoreTableFromClusterSnapshotResponse' {httpStatus} -> httpStatus) (\s@RestoreTableFromClusterSnapshotResponse' {} a -> s {httpStatus = a} :: RestoreTableFromClusterSnapshotResponse)++instance+ Prelude.NFData+ RestoreTableFromClusterSnapshotResponse+ where+ rnf RestoreTableFromClusterSnapshotResponse' {..} =+ Prelude.rnf tableRestoreStatus+ `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/Redshift/ResumeCluster.hs view
@@ -0,0 +1,162 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module : Amazonka.Redshift.ResumeCluster+-- Copyright : (c) 2013-2023 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Resumes a paused cluster.+module Amazonka.Redshift.ResumeCluster+ ( -- * Creating a Request+ ResumeCluster (..),+ newResumeCluster,++ -- * Request Lenses+ resumeCluster_clusterIdentifier,++ -- * Destructuring the Response+ ResumeClusterResponse (..),+ newResumeClusterResponse,++ -- * Response Lenses+ resumeClusterResponse_cluster,+ resumeClusterResponse_httpStatus,+ )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Redshift.Types+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | Describes a resume cluster operation. For example, a scheduled action to+-- run the @ResumeCluster@ API operation.+--+-- /See:/ 'newResumeCluster' smart constructor.+data ResumeCluster = ResumeCluster'+ { -- | The identifier of the cluster to be resumed.+ clusterIdentifier :: Prelude.Text+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ResumeCluster' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'clusterIdentifier', 'resumeCluster_clusterIdentifier' - The identifier of the cluster to be resumed.+newResumeCluster ::+ -- | 'clusterIdentifier'+ Prelude.Text ->+ ResumeCluster+newResumeCluster pClusterIdentifier_ =+ ResumeCluster'+ { clusterIdentifier =+ pClusterIdentifier_+ }++-- | The identifier of the cluster to be resumed.+resumeCluster_clusterIdentifier :: Lens.Lens' ResumeCluster Prelude.Text+resumeCluster_clusterIdentifier = Lens.lens (\ResumeCluster' {clusterIdentifier} -> clusterIdentifier) (\s@ResumeCluster' {} a -> s {clusterIdentifier = a} :: ResumeCluster)++instance Core.AWSRequest ResumeCluster where+ type+ AWSResponse ResumeCluster =+ ResumeClusterResponse+ request overrides =+ Request.postQuery (overrides defaultService)+ response =+ Response.receiveXMLWrapper+ "ResumeClusterResult"+ ( \s h x ->+ ResumeClusterResponse'+ Prelude.<$> (x Data..@? "Cluster")+ Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+ )++instance Prelude.Hashable ResumeCluster where+ hashWithSalt _salt ResumeCluster' {..} =+ _salt `Prelude.hashWithSalt` clusterIdentifier++instance Prelude.NFData ResumeCluster where+ rnf ResumeCluster' {..} =+ Prelude.rnf clusterIdentifier++instance Data.ToHeaders ResumeCluster where+ toHeaders = Prelude.const Prelude.mempty++instance Data.ToPath ResumeCluster where+ toPath = Prelude.const "/"++instance Data.ToQuery ResumeCluster where+ toQuery ResumeCluster' {..} =+ Prelude.mconcat+ [ "Action"+ Data.=: ("ResumeCluster" :: Prelude.ByteString),+ "Version"+ Data.=: ("2012-12-01" :: Prelude.ByteString),+ "ClusterIdentifier" Data.=: clusterIdentifier+ ]++-- | /See:/ 'newResumeClusterResponse' smart constructor.+data ResumeClusterResponse = ResumeClusterResponse'+ { cluster :: Prelude.Maybe Cluster,+ -- | The response's http status code.+ httpStatus :: Prelude.Int+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ResumeClusterResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'cluster', 'resumeClusterResponse_cluster' - Undocumented member.+--+-- 'httpStatus', 'resumeClusterResponse_httpStatus' - The response's http status code.+newResumeClusterResponse ::+ -- | 'httpStatus'+ Prelude.Int ->+ ResumeClusterResponse+newResumeClusterResponse pHttpStatus_ =+ ResumeClusterResponse'+ { cluster = Prelude.Nothing,+ httpStatus = pHttpStatus_+ }++-- | Undocumented member.+resumeClusterResponse_cluster :: Lens.Lens' ResumeClusterResponse (Prelude.Maybe Cluster)+resumeClusterResponse_cluster = Lens.lens (\ResumeClusterResponse' {cluster} -> cluster) (\s@ResumeClusterResponse' {} a -> s {cluster = a} :: ResumeClusterResponse)++-- | The response's http status code.+resumeClusterResponse_httpStatus :: Lens.Lens' ResumeClusterResponse Prelude.Int+resumeClusterResponse_httpStatus = Lens.lens (\ResumeClusterResponse' {httpStatus} -> httpStatus) (\s@ResumeClusterResponse' {} a -> s {httpStatus = a} :: ResumeClusterResponse)++instance Prelude.NFData ResumeClusterResponse where+ rnf ResumeClusterResponse' {..} =+ Prelude.rnf cluster+ `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/Redshift/RevokeClusterSecurityGroupIngress.hs view
@@ -0,0 +1,271 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module : Amazonka.Redshift.RevokeClusterSecurityGroupIngress+-- Copyright : (c) 2013-2023 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Revokes an ingress rule in an Amazon Redshift security group for a+-- previously authorized IP range or Amazon EC2 security group. To add an+-- ingress rule, see AuthorizeClusterSecurityGroupIngress. For information+-- about managing security groups, go to+-- <https://docs.aws.amazon.com/redshift/latest/mgmt/working-with-security-groups.html Amazon Redshift Cluster Security Groups>+-- in the /Amazon Redshift Cluster Management Guide/.+module Amazonka.Redshift.RevokeClusterSecurityGroupIngress+ ( -- * Creating a Request+ RevokeClusterSecurityGroupIngress (..),+ newRevokeClusterSecurityGroupIngress,++ -- * Request Lenses+ revokeClusterSecurityGroupIngress_cidrip,+ revokeClusterSecurityGroupIngress_eC2SecurityGroupName,+ revokeClusterSecurityGroupIngress_eC2SecurityGroupOwnerId,+ revokeClusterSecurityGroupIngress_clusterSecurityGroupName,++ -- * Destructuring the Response+ RevokeClusterSecurityGroupIngressResponse (..),+ newRevokeClusterSecurityGroupIngressResponse,++ -- * Response Lenses+ revokeClusterSecurityGroupIngressResponse_clusterSecurityGroup,+ revokeClusterSecurityGroupIngressResponse_httpStatus,+ )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Redshift.Types+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- |+--+-- /See:/ 'newRevokeClusterSecurityGroupIngress' smart constructor.+data RevokeClusterSecurityGroupIngress = RevokeClusterSecurityGroupIngress'+ { -- | The IP range for which to revoke access. This range must be a valid+ -- Classless Inter-Domain Routing (CIDR) block of IP addresses. If @CIDRIP@+ -- is specified, @EC2SecurityGroupName@ and @EC2SecurityGroupOwnerId@+ -- cannot be provided.+ cidrip :: Prelude.Maybe Prelude.Text,+ -- | The name of the EC2 Security Group whose access is to be revoked. If+ -- @EC2SecurityGroupName@ is specified, @EC2SecurityGroupOwnerId@ must also+ -- be provided and @CIDRIP@ cannot be provided.+ eC2SecurityGroupName :: Prelude.Maybe Prelude.Text,+ -- | The Amazon Web Services account number of the owner of the security+ -- group specified in the @EC2SecurityGroupName@ parameter. The Amazon Web+ -- Services access key ID is not an acceptable value. If+ -- @EC2SecurityGroupOwnerId@ is specified, @EC2SecurityGroupName@ must also+ -- be provided. and @CIDRIP@ cannot be provided.+ --+ -- Example: @111122223333@+ eC2SecurityGroupOwnerId :: Prelude.Maybe Prelude.Text,+ -- | The name of the security Group from which to revoke the ingress rule.+ clusterSecurityGroupName :: Prelude.Text+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'RevokeClusterSecurityGroupIngress' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'cidrip', 'revokeClusterSecurityGroupIngress_cidrip' - The IP range for which to revoke access. This range must be a valid+-- Classless Inter-Domain Routing (CIDR) block of IP addresses. If @CIDRIP@+-- is specified, @EC2SecurityGroupName@ and @EC2SecurityGroupOwnerId@+-- cannot be provided.+--+-- 'eC2SecurityGroupName', 'revokeClusterSecurityGroupIngress_eC2SecurityGroupName' - The name of the EC2 Security Group whose access is to be revoked. If+-- @EC2SecurityGroupName@ is specified, @EC2SecurityGroupOwnerId@ must also+-- be provided and @CIDRIP@ cannot be provided.+--+-- 'eC2SecurityGroupOwnerId', 'revokeClusterSecurityGroupIngress_eC2SecurityGroupOwnerId' - The Amazon Web Services account number of the owner of the security+-- group specified in the @EC2SecurityGroupName@ parameter. The Amazon Web+-- Services access key ID is not an acceptable value. If+-- @EC2SecurityGroupOwnerId@ is specified, @EC2SecurityGroupName@ must also+-- be provided. and @CIDRIP@ cannot be provided.+--+-- Example: @111122223333@+--+-- 'clusterSecurityGroupName', 'revokeClusterSecurityGroupIngress_clusterSecurityGroupName' - The name of the security Group from which to revoke the ingress rule.+newRevokeClusterSecurityGroupIngress ::+ -- | 'clusterSecurityGroupName'+ Prelude.Text ->+ RevokeClusterSecurityGroupIngress+newRevokeClusterSecurityGroupIngress+ pClusterSecurityGroupName_ =+ RevokeClusterSecurityGroupIngress'+ { cidrip =+ Prelude.Nothing,+ eC2SecurityGroupName = Prelude.Nothing,+ eC2SecurityGroupOwnerId =+ Prelude.Nothing,+ clusterSecurityGroupName =+ pClusterSecurityGroupName_+ }++-- | The IP range for which to revoke access. This range must be a valid+-- Classless Inter-Domain Routing (CIDR) block of IP addresses. If @CIDRIP@+-- is specified, @EC2SecurityGroupName@ and @EC2SecurityGroupOwnerId@+-- cannot be provided.+revokeClusterSecurityGroupIngress_cidrip :: Lens.Lens' RevokeClusterSecurityGroupIngress (Prelude.Maybe Prelude.Text)+revokeClusterSecurityGroupIngress_cidrip = Lens.lens (\RevokeClusterSecurityGroupIngress' {cidrip} -> cidrip) (\s@RevokeClusterSecurityGroupIngress' {} a -> s {cidrip = a} :: RevokeClusterSecurityGroupIngress)++-- | The name of the EC2 Security Group whose access is to be revoked. If+-- @EC2SecurityGroupName@ is specified, @EC2SecurityGroupOwnerId@ must also+-- be provided and @CIDRIP@ cannot be provided.+revokeClusterSecurityGroupIngress_eC2SecurityGroupName :: Lens.Lens' RevokeClusterSecurityGroupIngress (Prelude.Maybe Prelude.Text)+revokeClusterSecurityGroupIngress_eC2SecurityGroupName = Lens.lens (\RevokeClusterSecurityGroupIngress' {eC2SecurityGroupName} -> eC2SecurityGroupName) (\s@RevokeClusterSecurityGroupIngress' {} a -> s {eC2SecurityGroupName = a} :: RevokeClusterSecurityGroupIngress)++-- | The Amazon Web Services account number of the owner of the security+-- group specified in the @EC2SecurityGroupName@ parameter. The Amazon Web+-- Services access key ID is not an acceptable value. If+-- @EC2SecurityGroupOwnerId@ is specified, @EC2SecurityGroupName@ must also+-- be provided. and @CIDRIP@ cannot be provided.+--+-- Example: @111122223333@+revokeClusterSecurityGroupIngress_eC2SecurityGroupOwnerId :: Lens.Lens' RevokeClusterSecurityGroupIngress (Prelude.Maybe Prelude.Text)+revokeClusterSecurityGroupIngress_eC2SecurityGroupOwnerId = Lens.lens (\RevokeClusterSecurityGroupIngress' {eC2SecurityGroupOwnerId} -> eC2SecurityGroupOwnerId) (\s@RevokeClusterSecurityGroupIngress' {} a -> s {eC2SecurityGroupOwnerId = a} :: RevokeClusterSecurityGroupIngress)++-- | The name of the security Group from which to revoke the ingress rule.+revokeClusterSecurityGroupIngress_clusterSecurityGroupName :: Lens.Lens' RevokeClusterSecurityGroupIngress Prelude.Text+revokeClusterSecurityGroupIngress_clusterSecurityGroupName = Lens.lens (\RevokeClusterSecurityGroupIngress' {clusterSecurityGroupName} -> clusterSecurityGroupName) (\s@RevokeClusterSecurityGroupIngress' {} a -> s {clusterSecurityGroupName = a} :: RevokeClusterSecurityGroupIngress)++instance+ Core.AWSRequest+ RevokeClusterSecurityGroupIngress+ where+ type+ AWSResponse RevokeClusterSecurityGroupIngress =+ RevokeClusterSecurityGroupIngressResponse+ request overrides =+ Request.postQuery (overrides defaultService)+ response =+ Response.receiveXMLWrapper+ "RevokeClusterSecurityGroupIngressResult"+ ( \s h x ->+ RevokeClusterSecurityGroupIngressResponse'+ Prelude.<$> (x Data..@? "ClusterSecurityGroup")+ Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+ )++instance+ Prelude.Hashable+ RevokeClusterSecurityGroupIngress+ where+ hashWithSalt+ _salt+ RevokeClusterSecurityGroupIngress' {..} =+ _salt+ `Prelude.hashWithSalt` cidrip+ `Prelude.hashWithSalt` eC2SecurityGroupName+ `Prelude.hashWithSalt` eC2SecurityGroupOwnerId+ `Prelude.hashWithSalt` clusterSecurityGroupName++instance+ Prelude.NFData+ RevokeClusterSecurityGroupIngress+ where+ rnf RevokeClusterSecurityGroupIngress' {..} =+ Prelude.rnf cidrip+ `Prelude.seq` Prelude.rnf eC2SecurityGroupName+ `Prelude.seq` Prelude.rnf eC2SecurityGroupOwnerId+ `Prelude.seq` Prelude.rnf clusterSecurityGroupName++instance+ Data.ToHeaders+ RevokeClusterSecurityGroupIngress+ where+ toHeaders = Prelude.const Prelude.mempty++instance+ Data.ToPath+ RevokeClusterSecurityGroupIngress+ where+ toPath = Prelude.const "/"++instance+ Data.ToQuery+ RevokeClusterSecurityGroupIngress+ where+ toQuery RevokeClusterSecurityGroupIngress' {..} =+ Prelude.mconcat+ [ "Action"+ Data.=: ( "RevokeClusterSecurityGroupIngress" ::+ Prelude.ByteString+ ),+ "Version"+ Data.=: ("2012-12-01" :: Prelude.ByteString),+ "CIDRIP" Data.=: cidrip,+ "EC2SecurityGroupName" Data.=: eC2SecurityGroupName,+ "EC2SecurityGroupOwnerId"+ Data.=: eC2SecurityGroupOwnerId,+ "ClusterSecurityGroupName"+ Data.=: clusterSecurityGroupName+ ]++-- | /See:/ 'newRevokeClusterSecurityGroupIngressResponse' smart constructor.+data RevokeClusterSecurityGroupIngressResponse = RevokeClusterSecurityGroupIngressResponse'+ { clusterSecurityGroup :: Prelude.Maybe ClusterSecurityGroup,+ -- | The response's http status code.+ httpStatus :: Prelude.Int+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'RevokeClusterSecurityGroupIngressResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'clusterSecurityGroup', 'revokeClusterSecurityGroupIngressResponse_clusterSecurityGroup' - Undocumented member.+--+-- 'httpStatus', 'revokeClusterSecurityGroupIngressResponse_httpStatus' - The response's http status code.+newRevokeClusterSecurityGroupIngressResponse ::+ -- | 'httpStatus'+ Prelude.Int ->+ RevokeClusterSecurityGroupIngressResponse+newRevokeClusterSecurityGroupIngressResponse+ pHttpStatus_ =+ RevokeClusterSecurityGroupIngressResponse'+ { clusterSecurityGroup =+ Prelude.Nothing,+ httpStatus = pHttpStatus_+ }++-- | Undocumented member.+revokeClusterSecurityGroupIngressResponse_clusterSecurityGroup :: Lens.Lens' RevokeClusterSecurityGroupIngressResponse (Prelude.Maybe ClusterSecurityGroup)+revokeClusterSecurityGroupIngressResponse_clusterSecurityGroup = Lens.lens (\RevokeClusterSecurityGroupIngressResponse' {clusterSecurityGroup} -> clusterSecurityGroup) (\s@RevokeClusterSecurityGroupIngressResponse' {} a -> s {clusterSecurityGroup = a} :: RevokeClusterSecurityGroupIngressResponse)++-- | The response's http status code.+revokeClusterSecurityGroupIngressResponse_httpStatus :: Lens.Lens' RevokeClusterSecurityGroupIngressResponse Prelude.Int+revokeClusterSecurityGroupIngressResponse_httpStatus = Lens.lens (\RevokeClusterSecurityGroupIngressResponse' {httpStatus} -> httpStatus) (\s@RevokeClusterSecurityGroupIngressResponse' {} a -> s {httpStatus = a} :: RevokeClusterSecurityGroupIngressResponse)++instance+ Prelude.NFData+ RevokeClusterSecurityGroupIngressResponse+ where+ rnf RevokeClusterSecurityGroupIngressResponse' {..} =+ Prelude.rnf clusterSecurityGroup+ `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/Redshift/RevokeEndpointAccess.hs view
@@ -0,0 +1,170 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module : Amazonka.Redshift.RevokeEndpointAccess+-- Copyright : (c) 2013-2023 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Revokes access to a cluster.+module Amazonka.Redshift.RevokeEndpointAccess+ ( -- * Creating a Request+ RevokeEndpointAccess (..),+ newRevokeEndpointAccess,++ -- * Request Lenses+ revokeEndpointAccess_account,+ revokeEndpointAccess_clusterIdentifier,+ revokeEndpointAccess_force,+ revokeEndpointAccess_vpcIds,++ -- * Destructuring the Response+ EndpointAuthorization (..),+ newEndpointAuthorization,++ -- * Response Lenses+ endpointAuthorization_allowedAllVPCs,+ endpointAuthorization_allowedVPCs,+ endpointAuthorization_authorizeTime,+ endpointAuthorization_clusterIdentifier,+ endpointAuthorization_clusterStatus,+ endpointAuthorization_endpointCount,+ endpointAuthorization_grantee,+ endpointAuthorization_grantor,+ endpointAuthorization_status,+ )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Redshift.Types+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newRevokeEndpointAccess' smart constructor.+data RevokeEndpointAccess = RevokeEndpointAccess'+ { -- | The Amazon Web Services account ID whose access is to be revoked.+ account :: Prelude.Maybe Prelude.Text,+ -- | The cluster to revoke access from.+ clusterIdentifier :: Prelude.Maybe Prelude.Text,+ -- | Indicates whether to force the revoke action. If true, the+ -- Redshift-managed VPC endpoints associated with the endpoint+ -- authorization are also deleted.+ force :: Prelude.Maybe Prelude.Bool,+ -- | The virtual private cloud (VPC) identifiers for which access is to be+ -- revoked.+ vpcIds :: Prelude.Maybe [Prelude.Text]+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'RevokeEndpointAccess' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'account', 'revokeEndpointAccess_account' - The Amazon Web Services account ID whose access is to be revoked.+--+-- 'clusterIdentifier', 'revokeEndpointAccess_clusterIdentifier' - The cluster to revoke access from.+--+-- 'force', 'revokeEndpointAccess_force' - Indicates whether to force the revoke action. If true, the+-- Redshift-managed VPC endpoints associated with the endpoint+-- authorization are also deleted.+--+-- 'vpcIds', 'revokeEndpointAccess_vpcIds' - The virtual private cloud (VPC) identifiers for which access is to be+-- revoked.+newRevokeEndpointAccess ::+ RevokeEndpointAccess+newRevokeEndpointAccess =+ RevokeEndpointAccess'+ { account = Prelude.Nothing,+ clusterIdentifier = Prelude.Nothing,+ force = Prelude.Nothing,+ vpcIds = Prelude.Nothing+ }++-- | The Amazon Web Services account ID whose access is to be revoked.+revokeEndpointAccess_account :: Lens.Lens' RevokeEndpointAccess (Prelude.Maybe Prelude.Text)+revokeEndpointAccess_account = Lens.lens (\RevokeEndpointAccess' {account} -> account) (\s@RevokeEndpointAccess' {} a -> s {account = a} :: RevokeEndpointAccess)++-- | The cluster to revoke access from.+revokeEndpointAccess_clusterIdentifier :: Lens.Lens' RevokeEndpointAccess (Prelude.Maybe Prelude.Text)+revokeEndpointAccess_clusterIdentifier = Lens.lens (\RevokeEndpointAccess' {clusterIdentifier} -> clusterIdentifier) (\s@RevokeEndpointAccess' {} a -> s {clusterIdentifier = a} :: RevokeEndpointAccess)++-- | Indicates whether to force the revoke action. If true, the+-- Redshift-managed VPC endpoints associated with the endpoint+-- authorization are also deleted.+revokeEndpointAccess_force :: Lens.Lens' RevokeEndpointAccess (Prelude.Maybe Prelude.Bool)+revokeEndpointAccess_force = Lens.lens (\RevokeEndpointAccess' {force} -> force) (\s@RevokeEndpointAccess' {} a -> s {force = a} :: RevokeEndpointAccess)++-- | The virtual private cloud (VPC) identifiers for which access is to be+-- revoked.+revokeEndpointAccess_vpcIds :: Lens.Lens' RevokeEndpointAccess (Prelude.Maybe [Prelude.Text])+revokeEndpointAccess_vpcIds = Lens.lens (\RevokeEndpointAccess' {vpcIds} -> vpcIds) (\s@RevokeEndpointAccess' {} a -> s {vpcIds = a} :: RevokeEndpointAccess) Prelude.. Lens.mapping Lens.coerced++instance Core.AWSRequest RevokeEndpointAccess where+ type+ AWSResponse RevokeEndpointAccess =+ EndpointAuthorization+ request overrides =+ Request.postQuery (overrides defaultService)+ response =+ Response.receiveXMLWrapper+ "RevokeEndpointAccessResult"+ (\s h x -> Data.parseXML x)++instance Prelude.Hashable RevokeEndpointAccess where+ hashWithSalt _salt RevokeEndpointAccess' {..} =+ _salt+ `Prelude.hashWithSalt` account+ `Prelude.hashWithSalt` clusterIdentifier+ `Prelude.hashWithSalt` force+ `Prelude.hashWithSalt` vpcIds++instance Prelude.NFData RevokeEndpointAccess where+ rnf RevokeEndpointAccess' {..} =+ Prelude.rnf account+ `Prelude.seq` Prelude.rnf clusterIdentifier+ `Prelude.seq` Prelude.rnf force+ `Prelude.seq` Prelude.rnf vpcIds++instance Data.ToHeaders RevokeEndpointAccess where+ toHeaders = Prelude.const Prelude.mempty++instance Data.ToPath RevokeEndpointAccess where+ toPath = Prelude.const "/"++instance Data.ToQuery RevokeEndpointAccess where+ toQuery RevokeEndpointAccess' {..} =+ Prelude.mconcat+ [ "Action"+ Data.=: ("RevokeEndpointAccess" :: Prelude.ByteString),+ "Version"+ Data.=: ("2012-12-01" :: Prelude.ByteString),+ "Account" Data.=: account,+ "ClusterIdentifier" Data.=: clusterIdentifier,+ "Force" Data.=: force,+ "VpcIds"+ Data.=: Data.toQuery+ ( Data.toQueryList "VpcIdentifier"+ Prelude.<$> vpcIds+ )+ ]
+ gen/Amazonka/Redshift/RevokeSnapshotAccess.hs view
@@ -0,0 +1,226 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module : Amazonka.Redshift.RevokeSnapshotAccess+-- Copyright : (c) 2013-2023 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Removes the ability of the specified Amazon Web Services account to+-- restore the specified snapshot. If the account is currently restoring+-- the snapshot, the restore will run to completion.+--+-- For more information about working with snapshots, go to+-- <https://docs.aws.amazon.com/redshift/latest/mgmt/working-with-snapshots.html Amazon Redshift Snapshots>+-- in the /Amazon Redshift Cluster Management Guide/.+module Amazonka.Redshift.RevokeSnapshotAccess+ ( -- * Creating a Request+ RevokeSnapshotAccess (..),+ newRevokeSnapshotAccess,++ -- * Request Lenses+ revokeSnapshotAccess_snapshotArn,+ revokeSnapshotAccess_snapshotClusterIdentifier,+ revokeSnapshotAccess_snapshotIdentifier,+ revokeSnapshotAccess_accountWithRestoreAccess,++ -- * Destructuring the Response+ RevokeSnapshotAccessResponse (..),+ newRevokeSnapshotAccessResponse,++ -- * Response Lenses+ revokeSnapshotAccessResponse_snapshot,+ revokeSnapshotAccessResponse_httpStatus,+ )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Redshift.Types+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- |+--+-- /See:/ 'newRevokeSnapshotAccess' smart constructor.+data RevokeSnapshotAccess = RevokeSnapshotAccess'+ { -- | The Amazon Resource Name (ARN) of the snapshot associated with the+ -- message to revoke access.+ snapshotArn :: Prelude.Maybe Prelude.Text,+ -- | The identifier of the cluster the snapshot was created from. This+ -- parameter is required if your IAM user has a policy containing a+ -- snapshot resource element that specifies anything other than * for the+ -- cluster name.+ snapshotClusterIdentifier :: Prelude.Maybe Prelude.Text,+ -- | The identifier of the snapshot that the account can no longer access.+ snapshotIdentifier :: Prelude.Maybe Prelude.Text,+ -- | The identifier of the Amazon Web Services account that can no longer+ -- restore the specified snapshot.+ accountWithRestoreAccess :: Prelude.Text+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'RevokeSnapshotAccess' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'snapshotArn', 'revokeSnapshotAccess_snapshotArn' - The Amazon Resource Name (ARN) of the snapshot associated with the+-- message to revoke access.+--+-- 'snapshotClusterIdentifier', 'revokeSnapshotAccess_snapshotClusterIdentifier' - The identifier of the cluster the snapshot was created from. This+-- parameter is required if your IAM user has a policy containing a+-- snapshot resource element that specifies anything other than * for the+-- cluster name.+--+-- 'snapshotIdentifier', 'revokeSnapshotAccess_snapshotIdentifier' - The identifier of the snapshot that the account can no longer access.+--+-- 'accountWithRestoreAccess', 'revokeSnapshotAccess_accountWithRestoreAccess' - The identifier of the Amazon Web Services account that can no longer+-- restore the specified snapshot.+newRevokeSnapshotAccess ::+ -- | 'accountWithRestoreAccess'+ Prelude.Text ->+ RevokeSnapshotAccess+newRevokeSnapshotAccess pAccountWithRestoreAccess_ =+ RevokeSnapshotAccess'+ { snapshotArn =+ Prelude.Nothing,+ snapshotClusterIdentifier = Prelude.Nothing,+ snapshotIdentifier = Prelude.Nothing,+ accountWithRestoreAccess =+ pAccountWithRestoreAccess_+ }++-- | The Amazon Resource Name (ARN) of the snapshot associated with the+-- message to revoke access.+revokeSnapshotAccess_snapshotArn :: Lens.Lens' RevokeSnapshotAccess (Prelude.Maybe Prelude.Text)+revokeSnapshotAccess_snapshotArn = Lens.lens (\RevokeSnapshotAccess' {snapshotArn} -> snapshotArn) (\s@RevokeSnapshotAccess' {} a -> s {snapshotArn = a} :: RevokeSnapshotAccess)++-- | The identifier of the cluster the snapshot was created from. This+-- parameter is required if your IAM user has a policy containing a+-- snapshot resource element that specifies anything other than * for the+-- cluster name.+revokeSnapshotAccess_snapshotClusterIdentifier :: Lens.Lens' RevokeSnapshotAccess (Prelude.Maybe Prelude.Text)+revokeSnapshotAccess_snapshotClusterIdentifier = Lens.lens (\RevokeSnapshotAccess' {snapshotClusterIdentifier} -> snapshotClusterIdentifier) (\s@RevokeSnapshotAccess' {} a -> s {snapshotClusterIdentifier = a} :: RevokeSnapshotAccess)++-- | The identifier of the snapshot that the account can no longer access.+revokeSnapshotAccess_snapshotIdentifier :: Lens.Lens' RevokeSnapshotAccess (Prelude.Maybe Prelude.Text)+revokeSnapshotAccess_snapshotIdentifier = Lens.lens (\RevokeSnapshotAccess' {snapshotIdentifier} -> snapshotIdentifier) (\s@RevokeSnapshotAccess' {} a -> s {snapshotIdentifier = a} :: RevokeSnapshotAccess)++-- | The identifier of the Amazon Web Services account that can no longer+-- restore the specified snapshot.+revokeSnapshotAccess_accountWithRestoreAccess :: Lens.Lens' RevokeSnapshotAccess Prelude.Text+revokeSnapshotAccess_accountWithRestoreAccess = Lens.lens (\RevokeSnapshotAccess' {accountWithRestoreAccess} -> accountWithRestoreAccess) (\s@RevokeSnapshotAccess' {} a -> s {accountWithRestoreAccess = a} :: RevokeSnapshotAccess)++instance Core.AWSRequest RevokeSnapshotAccess where+ type+ AWSResponse RevokeSnapshotAccess =+ RevokeSnapshotAccessResponse+ request overrides =+ Request.postQuery (overrides defaultService)+ response =+ Response.receiveXMLWrapper+ "RevokeSnapshotAccessResult"+ ( \s h x ->+ RevokeSnapshotAccessResponse'+ Prelude.<$> (x Data..@? "Snapshot")+ Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+ )++instance Prelude.Hashable RevokeSnapshotAccess where+ hashWithSalt _salt RevokeSnapshotAccess' {..} =+ _salt+ `Prelude.hashWithSalt` snapshotArn+ `Prelude.hashWithSalt` snapshotClusterIdentifier+ `Prelude.hashWithSalt` snapshotIdentifier+ `Prelude.hashWithSalt` accountWithRestoreAccess++instance Prelude.NFData RevokeSnapshotAccess where+ rnf RevokeSnapshotAccess' {..} =+ Prelude.rnf snapshotArn+ `Prelude.seq` Prelude.rnf snapshotClusterIdentifier+ `Prelude.seq` Prelude.rnf snapshotIdentifier+ `Prelude.seq` Prelude.rnf accountWithRestoreAccess++instance Data.ToHeaders RevokeSnapshotAccess where+ toHeaders = Prelude.const Prelude.mempty++instance Data.ToPath RevokeSnapshotAccess where+ toPath = Prelude.const "/"++instance Data.ToQuery RevokeSnapshotAccess where+ toQuery RevokeSnapshotAccess' {..} =+ Prelude.mconcat+ [ "Action"+ Data.=: ("RevokeSnapshotAccess" :: Prelude.ByteString),+ "Version"+ Data.=: ("2012-12-01" :: Prelude.ByteString),+ "SnapshotArn" Data.=: snapshotArn,+ "SnapshotClusterIdentifier"+ Data.=: snapshotClusterIdentifier,+ "SnapshotIdentifier" Data.=: snapshotIdentifier,+ "AccountWithRestoreAccess"+ Data.=: accountWithRestoreAccess+ ]++-- | /See:/ 'newRevokeSnapshotAccessResponse' smart constructor.+data RevokeSnapshotAccessResponse = RevokeSnapshotAccessResponse'+ { snapshot :: Prelude.Maybe Snapshot,+ -- | The response's http status code.+ httpStatus :: Prelude.Int+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'RevokeSnapshotAccessResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'snapshot', 'revokeSnapshotAccessResponse_snapshot' - Undocumented member.+--+-- 'httpStatus', 'revokeSnapshotAccessResponse_httpStatus' - The response's http status code.+newRevokeSnapshotAccessResponse ::+ -- | 'httpStatus'+ Prelude.Int ->+ RevokeSnapshotAccessResponse+newRevokeSnapshotAccessResponse pHttpStatus_ =+ RevokeSnapshotAccessResponse'+ { snapshot =+ Prelude.Nothing,+ httpStatus = pHttpStatus_+ }++-- | Undocumented member.+revokeSnapshotAccessResponse_snapshot :: Lens.Lens' RevokeSnapshotAccessResponse (Prelude.Maybe Snapshot)+revokeSnapshotAccessResponse_snapshot = Lens.lens (\RevokeSnapshotAccessResponse' {snapshot} -> snapshot) (\s@RevokeSnapshotAccessResponse' {} a -> s {snapshot = a} :: RevokeSnapshotAccessResponse)++-- | The response's http status code.+revokeSnapshotAccessResponse_httpStatus :: Lens.Lens' RevokeSnapshotAccessResponse Prelude.Int+revokeSnapshotAccessResponse_httpStatus = Lens.lens (\RevokeSnapshotAccessResponse' {httpStatus} -> httpStatus) (\s@RevokeSnapshotAccessResponse' {} a -> s {httpStatus = a} :: RevokeSnapshotAccessResponse)++instance Prelude.NFData RevokeSnapshotAccessResponse where+ rnf RevokeSnapshotAccessResponse' {..} =+ Prelude.rnf snapshot+ `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/Redshift/RotateEncryptionKey.hs view
@@ -0,0 +1,174 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module : Amazonka.Redshift.RotateEncryptionKey+-- Copyright : (c) 2013-2023 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Rotates the encryption keys for a cluster.+module Amazonka.Redshift.RotateEncryptionKey+ ( -- * Creating a Request+ RotateEncryptionKey (..),+ newRotateEncryptionKey,++ -- * Request Lenses+ rotateEncryptionKey_clusterIdentifier,++ -- * Destructuring the Response+ RotateEncryptionKeyResponse (..),+ newRotateEncryptionKeyResponse,++ -- * Response Lenses+ rotateEncryptionKeyResponse_cluster,+ rotateEncryptionKeyResponse_httpStatus,+ )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Redshift.Types+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- |+--+-- /See:/ 'newRotateEncryptionKey' smart constructor.+data RotateEncryptionKey = RotateEncryptionKey'+ { -- | The unique identifier of the cluster that you want to rotate the+ -- encryption keys for.+ --+ -- Constraints: Must be the name of valid cluster that has encryption+ -- enabled.+ clusterIdentifier :: Prelude.Text+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'RotateEncryptionKey' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'clusterIdentifier', 'rotateEncryptionKey_clusterIdentifier' - The unique identifier of the cluster that you want to rotate the+-- encryption keys for.+--+-- Constraints: Must be the name of valid cluster that has encryption+-- enabled.+newRotateEncryptionKey ::+ -- | 'clusterIdentifier'+ Prelude.Text ->+ RotateEncryptionKey+newRotateEncryptionKey pClusterIdentifier_ =+ RotateEncryptionKey'+ { clusterIdentifier =+ pClusterIdentifier_+ }++-- | The unique identifier of the cluster that you want to rotate the+-- encryption keys for.+--+-- Constraints: Must be the name of valid cluster that has encryption+-- enabled.+rotateEncryptionKey_clusterIdentifier :: Lens.Lens' RotateEncryptionKey Prelude.Text+rotateEncryptionKey_clusterIdentifier = Lens.lens (\RotateEncryptionKey' {clusterIdentifier} -> clusterIdentifier) (\s@RotateEncryptionKey' {} a -> s {clusterIdentifier = a} :: RotateEncryptionKey)++instance Core.AWSRequest RotateEncryptionKey where+ type+ AWSResponse RotateEncryptionKey =+ RotateEncryptionKeyResponse+ request overrides =+ Request.postQuery (overrides defaultService)+ response =+ Response.receiveXMLWrapper+ "RotateEncryptionKeyResult"+ ( \s h x ->+ RotateEncryptionKeyResponse'+ Prelude.<$> (x Data..@? "Cluster")+ Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+ )++instance Prelude.Hashable RotateEncryptionKey where+ hashWithSalt _salt RotateEncryptionKey' {..} =+ _salt `Prelude.hashWithSalt` clusterIdentifier++instance Prelude.NFData RotateEncryptionKey where+ rnf RotateEncryptionKey' {..} =+ Prelude.rnf clusterIdentifier++instance Data.ToHeaders RotateEncryptionKey where+ toHeaders = Prelude.const Prelude.mempty++instance Data.ToPath RotateEncryptionKey where+ toPath = Prelude.const "/"++instance Data.ToQuery RotateEncryptionKey where+ toQuery RotateEncryptionKey' {..} =+ Prelude.mconcat+ [ "Action"+ Data.=: ("RotateEncryptionKey" :: Prelude.ByteString),+ "Version"+ Data.=: ("2012-12-01" :: Prelude.ByteString),+ "ClusterIdentifier" Data.=: clusterIdentifier+ ]++-- | /See:/ 'newRotateEncryptionKeyResponse' smart constructor.+data RotateEncryptionKeyResponse = RotateEncryptionKeyResponse'+ { cluster :: Prelude.Maybe Cluster,+ -- | The response's http status code.+ httpStatus :: Prelude.Int+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'RotateEncryptionKeyResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'cluster', 'rotateEncryptionKeyResponse_cluster' - Undocumented member.+--+-- 'httpStatus', 'rotateEncryptionKeyResponse_httpStatus' - The response's http status code.+newRotateEncryptionKeyResponse ::+ -- | 'httpStatus'+ Prelude.Int ->+ RotateEncryptionKeyResponse+newRotateEncryptionKeyResponse pHttpStatus_ =+ RotateEncryptionKeyResponse'+ { cluster =+ Prelude.Nothing,+ httpStatus = pHttpStatus_+ }++-- | Undocumented member.+rotateEncryptionKeyResponse_cluster :: Lens.Lens' RotateEncryptionKeyResponse (Prelude.Maybe Cluster)+rotateEncryptionKeyResponse_cluster = Lens.lens (\RotateEncryptionKeyResponse' {cluster} -> cluster) (\s@RotateEncryptionKeyResponse' {} a -> s {cluster = a} :: RotateEncryptionKeyResponse)++-- | The response's http status code.+rotateEncryptionKeyResponse_httpStatus :: Lens.Lens' RotateEncryptionKeyResponse Prelude.Int+rotateEncryptionKeyResponse_httpStatus = Lens.lens (\RotateEncryptionKeyResponse' {httpStatus} -> httpStatus) (\s@RotateEncryptionKeyResponse' {} a -> s {httpStatus = a} :: RotateEncryptionKeyResponse)++instance Prelude.NFData RotateEncryptionKeyResponse where+ rnf RotateEncryptionKeyResponse' {..} =+ Prelude.rnf cluster+ `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/Redshift/Types.hs view
@@ -0,0 +1,2275 @@+{-# LANGUAGE DisambiguateRecordFields #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module : Amazonka.Redshift.Types+-- Copyright : (c) 2013-2023 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.Redshift.Types+ ( -- * Service Configuration+ defaultService,++ -- * Errors+ _AccessToClusterDeniedFault,+ _AccessToSnapshotDeniedFault,+ _AuthenticationProfileAlreadyExistsFault,+ _AuthenticationProfileNotFoundFault,+ _AuthenticationProfileQuotaExceededFault,+ _AuthorizationAlreadyExistsFault,+ _AuthorizationNotFoundFault,+ _AuthorizationQuotaExceededFault,+ _BatchDeleteRequestSizeExceededFault,+ _BatchModifyClusterSnapshotsLimitExceededFault,+ _BucketNotFoundFault,+ _ClusterAlreadyExistsFault,+ _ClusterNotFoundFault,+ _ClusterOnLatestRevisionFault,+ _ClusterParameterGroupAlreadyExistsFault,+ _ClusterParameterGroupNotFoundFault,+ _ClusterParameterGroupQuotaExceededFault,+ _ClusterQuotaExceededFault,+ _ClusterSecurityGroupAlreadyExistsFault,+ _ClusterSecurityGroupNotFoundFault,+ _ClusterSecurityGroupQuotaExceededFault,+ _ClusterSnapshotAlreadyExistsFault,+ _ClusterSnapshotNotFoundFault,+ _ClusterSnapshotQuotaExceededFault,+ _ClusterSubnetGroupAlreadyExistsFault,+ _ClusterSubnetGroupNotFoundFault,+ _ClusterSubnetGroupQuotaExceededFault,+ _ClusterSubnetQuotaExceededFault,+ _CopyToRegionDisabledFault,+ _DependentServiceRequestThrottlingFault,+ _DependentServiceUnavailableFault,+ _EndpointAlreadyExistsFault,+ _EndpointAuthorizationAlreadyExistsFault,+ _EndpointAuthorizationNotFoundFault,+ _EndpointAuthorizationsPerClusterLimitExceededFault,+ _EndpointNotFoundFault,+ _EndpointsPerAuthorizationLimitExceededFault,+ _EndpointsPerClusterLimitExceededFault,+ _EventSubscriptionQuotaExceededFault,+ _HsmClientCertificateAlreadyExistsFault,+ _HsmClientCertificateNotFoundFault,+ _HsmClientCertificateQuotaExceededFault,+ _HsmConfigurationAlreadyExistsFault,+ _HsmConfigurationNotFoundFault,+ _HsmConfigurationQuotaExceededFault,+ _InProgressTableRestoreQuotaExceededFault,+ _IncompatibleOrderableOptions,+ _InsufficientClusterCapacityFault,+ _InsufficientS3BucketPolicyFault,+ _InvalidAuthenticationProfileRequestFault,+ _InvalidAuthorizationStateFault,+ _InvalidClusterParameterGroupStateFault,+ _InvalidClusterSecurityGroupStateFault,+ _InvalidClusterSnapshotScheduleStateFault,+ _InvalidClusterSnapshotStateFault,+ _InvalidClusterStateFault,+ _InvalidClusterSubnetGroupStateFault,+ _InvalidClusterSubnetStateFault,+ _InvalidClusterTrackFault,+ _InvalidDataShareFault,+ _InvalidElasticIpFault,+ _InvalidEndpointStateFault,+ _InvalidHsmClientCertificateStateFault,+ _InvalidHsmConfigurationStateFault,+ _InvalidNamespaceFault,+ _InvalidReservedNodeStateFault,+ _InvalidRestoreFault,+ _InvalidRetentionPeriodFault,+ _InvalidS3BucketNameFault,+ _InvalidS3KeyPrefixFault,+ _InvalidScheduleFault,+ _InvalidScheduledActionFault,+ _InvalidSnapshotCopyGrantStateFault,+ _InvalidSubnet,+ _InvalidSubscriptionStateFault,+ _InvalidTableRestoreArgumentFault,+ _InvalidTagFault,+ _InvalidUsageLimitFault,+ _InvalidVPCNetworkStateFault,+ _LimitExceededFault,+ _NumberOfNodesPerClusterLimitExceededFault,+ _NumberOfNodesQuotaExceededFault,+ _PartnerNotFoundFault,+ _ReservedNodeAlreadyExistsFault,+ _ReservedNodeAlreadyMigratedFault,+ _ReservedNodeExchangeNotFoundFault,+ _ReservedNodeNotFoundFault,+ _ReservedNodeOfferingNotFoundFault,+ _ReservedNodeQuotaExceededFault,+ _ResizeNotFoundFault,+ _ResourceNotFoundFault,+ _SNSInvalidTopicFault,+ _SNSNoAuthorizationFault,+ _SNSTopicArnNotFoundFault,+ _ScheduleDefinitionTypeUnsupportedFault,+ _ScheduledActionAlreadyExistsFault,+ _ScheduledActionNotFoundFault,+ _ScheduledActionQuotaExceededFault,+ _ScheduledActionTypeUnsupportedFault,+ _SnapshotCopyAlreadyDisabledFault,+ _SnapshotCopyAlreadyEnabledFault,+ _SnapshotCopyDisabledFault,+ _SnapshotCopyGrantAlreadyExistsFault,+ _SnapshotCopyGrantNotFoundFault,+ _SnapshotCopyGrantQuotaExceededFault,+ _SnapshotScheduleAlreadyExistsFault,+ _SnapshotScheduleNotFoundFault,+ _SnapshotScheduleQuotaExceededFault,+ _SnapshotScheduleUpdateInProgressFault,+ _SourceNotFoundFault,+ _SubnetAlreadyInUse,+ _SubscriptionAlreadyExistFault,+ _SubscriptionCategoryNotFoundFault,+ _SubscriptionEventIdNotFoundFault,+ _SubscriptionNotFoundFault,+ _SubscriptionSeverityNotFoundFault,+ _TableLimitExceededFault,+ _TableRestoreNotFoundFault,+ _TagLimitExceededFault,+ _UnauthorizedOperation,+ _UnauthorizedPartnerIntegrationFault,+ _UnknownSnapshotCopyRegionFault,+ _UnsupportedOperationFault,+ _UnsupportedOptionFault,+ _UsageLimitAlreadyExistsFault,+ _UsageLimitNotFoundFault,++ -- * Re-exported Types+ module Amazonka.Redshift.Internal,++ -- * ActionType+ ActionType (..),++ -- * AquaConfigurationStatus+ AquaConfigurationStatus (..),++ -- * AquaStatus+ AquaStatus (..),++ -- * AuthorizationStatus+ AuthorizationStatus (..),++ -- * DataShareStatus+ DataShareStatus (..),++ -- * DataShareStatusForConsumer+ DataShareStatusForConsumer (..),++ -- * DataShareStatusForProducer+ DataShareStatusForProducer (..),++ -- * LogDestinationType+ LogDestinationType (..),++ -- * Mode+ Mode (..),++ -- * NodeConfigurationOptionsFilterName+ NodeConfigurationOptionsFilterName (..),++ -- * OperatorType+ OperatorType (..),++ -- * ParameterApplyType+ ParameterApplyType (..),++ -- * PartnerIntegrationStatus+ PartnerIntegrationStatus (..),++ -- * ReservedNodeExchangeActionType+ ReservedNodeExchangeActionType (..),++ -- * ReservedNodeExchangeStatusType+ ReservedNodeExchangeStatusType (..),++ -- * ReservedNodeOfferingType+ ReservedNodeOfferingType (..),++ -- * ScheduleState+ ScheduleState (..),++ -- * ScheduledActionFilterName+ ScheduledActionFilterName (..),++ -- * ScheduledActionState+ ScheduledActionState (..),++ -- * ScheduledActionTypeValues+ ScheduledActionTypeValues (..),++ -- * SnapshotAttributeToSortBy+ SnapshotAttributeToSortBy (..),++ -- * SortByOrder+ SortByOrder (..),++ -- * SourceType+ SourceType (..),++ -- * TableRestoreStatusType+ TableRestoreStatusType (..),++ -- * UsageLimitBreachAction+ UsageLimitBreachAction (..),++ -- * UsageLimitFeatureType+ UsageLimitFeatureType (..),++ -- * UsageLimitLimitType+ UsageLimitLimitType (..),++ -- * UsageLimitPeriod+ UsageLimitPeriod (..),++ -- * AccountAttribute+ AccountAttribute (..),+ newAccountAttribute,+ accountAttribute_attributeName,+ accountAttribute_attributeValues,++ -- * AccountWithRestoreAccess+ AccountWithRestoreAccess (..),+ newAccountWithRestoreAccess,+ accountWithRestoreAccess_accountAlias,+ accountWithRestoreAccess_accountId,++ -- * AquaConfiguration+ AquaConfiguration (..),+ newAquaConfiguration,+ aquaConfiguration_aquaConfigurationStatus,+ aquaConfiguration_aquaStatus,++ -- * AttributeValueTarget+ AttributeValueTarget (..),+ newAttributeValueTarget,+ attributeValueTarget_attributeValue,++ -- * AuthenticationProfile+ AuthenticationProfile (..),+ newAuthenticationProfile,+ authenticationProfile_authenticationProfileContent,+ authenticationProfile_authenticationProfileName,++ -- * AvailabilityZone+ AvailabilityZone (..),+ newAvailabilityZone,+ availabilityZone_name,+ availabilityZone_supportedPlatforms,++ -- * Cluster+ Cluster (..),+ newCluster,+ cluster_allowVersionUpgrade,+ cluster_aquaConfiguration,+ cluster_automatedSnapshotRetentionPeriod,+ cluster_availabilityZone,+ cluster_availabilityZoneRelocationStatus,+ cluster_clusterAvailabilityStatus,+ cluster_clusterCreateTime,+ cluster_clusterIdentifier,+ cluster_clusterNamespaceArn,+ cluster_clusterNodes,+ cluster_clusterParameterGroups,+ cluster_clusterPublicKey,+ cluster_clusterRevisionNumber,+ cluster_clusterSecurityGroups,+ cluster_clusterSnapshotCopyStatus,+ cluster_clusterStatus,+ cluster_clusterSubnetGroupName,+ cluster_clusterVersion,+ cluster_dbName,+ cluster_dataTransferProgress,+ cluster_defaultIamRoleArn,+ cluster_deferredMaintenanceWindows,+ cluster_elasticIpStatus,+ cluster_elasticResizeNumberOfNodeOptions,+ cluster_encrypted,+ cluster_endpoint,+ cluster_enhancedVpcRouting,+ cluster_expectedNextSnapshotScheduleTime,+ cluster_expectedNextSnapshotScheduleTimeStatus,+ cluster_hsmStatus,+ cluster_iamRoles,+ cluster_kmsKeyId,+ cluster_maintenanceTrackName,+ cluster_manualSnapshotRetentionPeriod,+ cluster_masterUsername,+ cluster_modifyStatus,+ cluster_nextMaintenanceWindowStartTime,+ cluster_nodeType,+ cluster_numberOfNodes,+ cluster_pendingActions,+ cluster_pendingModifiedValues,+ cluster_preferredMaintenanceWindow,+ cluster_publiclyAccessible,+ cluster_reservedNodeExchangeStatus,+ cluster_resizeInfo,+ cluster_restoreStatus,+ cluster_snapshotScheduleIdentifier,+ cluster_snapshotScheduleState,+ cluster_tags,+ cluster_totalStorageCapacityInMegaBytes,+ cluster_vpcId,+ cluster_vpcSecurityGroups,++ -- * ClusterAssociatedToSchedule+ ClusterAssociatedToSchedule (..),+ newClusterAssociatedToSchedule,+ clusterAssociatedToSchedule_clusterIdentifier,+ clusterAssociatedToSchedule_scheduleAssociationState,++ -- * ClusterDbRevision+ ClusterDbRevision (..),+ newClusterDbRevision,+ clusterDbRevision_clusterIdentifier,+ clusterDbRevision_currentDatabaseRevision,+ clusterDbRevision_databaseRevisionReleaseDate,+ clusterDbRevision_revisionTargets,++ -- * ClusterIamRole+ ClusterIamRole (..),+ newClusterIamRole,+ clusterIamRole_applyStatus,+ clusterIamRole_iamRoleArn,++ -- * ClusterNode+ ClusterNode (..),+ newClusterNode,+ clusterNode_nodeRole,+ clusterNode_privateIPAddress,+ clusterNode_publicIPAddress,++ -- * ClusterParameterGroup+ ClusterParameterGroup (..),+ newClusterParameterGroup,+ clusterParameterGroup_description,+ clusterParameterGroup_parameterGroupFamily,+ clusterParameterGroup_parameterGroupName,+ clusterParameterGroup_tags,++ -- * ClusterParameterGroupNameMessage+ ClusterParameterGroupNameMessage (..),+ newClusterParameterGroupNameMessage,+ clusterParameterGroupNameMessage_parameterGroupName,+ clusterParameterGroupNameMessage_parameterGroupStatus,++ -- * ClusterParameterGroupStatus+ ClusterParameterGroupStatus (..),+ newClusterParameterGroupStatus,+ clusterParameterGroupStatus_clusterParameterStatusList,+ clusterParameterGroupStatus_parameterApplyStatus,+ clusterParameterGroupStatus_parameterGroupName,++ -- * ClusterParameterStatus+ ClusterParameterStatus (..),+ newClusterParameterStatus,+ clusterParameterStatus_parameterApplyErrorDescription,+ clusterParameterStatus_parameterApplyStatus,+ clusterParameterStatus_parameterName,++ -- * ClusterSecurityGroup+ ClusterSecurityGroup (..),+ newClusterSecurityGroup,+ clusterSecurityGroup_clusterSecurityGroupName,+ clusterSecurityGroup_description,+ clusterSecurityGroup_eC2SecurityGroups,+ clusterSecurityGroup_iPRanges,+ clusterSecurityGroup_tags,++ -- * ClusterSecurityGroupMembership+ ClusterSecurityGroupMembership (..),+ newClusterSecurityGroupMembership,+ clusterSecurityGroupMembership_clusterSecurityGroupName,+ clusterSecurityGroupMembership_status,++ -- * ClusterSnapshotCopyStatus+ ClusterSnapshotCopyStatus (..),+ newClusterSnapshotCopyStatus,+ clusterSnapshotCopyStatus_destinationRegion,+ clusterSnapshotCopyStatus_manualSnapshotRetentionPeriod,+ clusterSnapshotCopyStatus_retentionPeriod,+ clusterSnapshotCopyStatus_snapshotCopyGrantName,++ -- * ClusterSubnetGroup+ ClusterSubnetGroup (..),+ newClusterSubnetGroup,+ clusterSubnetGroup_clusterSubnetGroupName,+ clusterSubnetGroup_description,+ clusterSubnetGroup_subnetGroupStatus,+ clusterSubnetGroup_subnets,+ clusterSubnetGroup_tags,+ clusterSubnetGroup_vpcId,++ -- * ClusterVersion+ ClusterVersion (..),+ newClusterVersion,+ clusterVersion_clusterParameterGroupFamily,+ clusterVersion_clusterVersion,+ clusterVersion_description,++ -- * DataShare+ DataShare (..),+ newDataShare,+ dataShare_allowPubliclyAccessibleConsumers,+ dataShare_dataShareArn,+ dataShare_dataShareAssociations,+ dataShare_managedBy,+ dataShare_producerArn,++ -- * DataShareAssociation+ DataShareAssociation (..),+ newDataShareAssociation,+ dataShareAssociation_consumerIdentifier,+ dataShareAssociation_consumerRegion,+ dataShareAssociation_createdDate,+ dataShareAssociation_status,+ dataShareAssociation_statusChangeDate,++ -- * DataTransferProgress+ DataTransferProgress (..),+ newDataTransferProgress,+ dataTransferProgress_currentRateInMegaBytesPerSecond,+ dataTransferProgress_dataTransferredInMegaBytes,+ dataTransferProgress_elapsedTimeInSeconds,+ dataTransferProgress_estimatedTimeToCompletionInSeconds,+ dataTransferProgress_status,+ dataTransferProgress_totalDataInMegaBytes,++ -- * DefaultClusterParameters+ DefaultClusterParameters (..),+ newDefaultClusterParameters,+ defaultClusterParameters_marker,+ defaultClusterParameters_parameterGroupFamily,+ defaultClusterParameters_parameters,++ -- * DeferredMaintenanceWindow+ DeferredMaintenanceWindow (..),+ newDeferredMaintenanceWindow,+ deferredMaintenanceWindow_deferMaintenanceEndTime,+ deferredMaintenanceWindow_deferMaintenanceIdentifier,+ deferredMaintenanceWindow_deferMaintenanceStartTime,++ -- * DeleteClusterSnapshotMessage+ DeleteClusterSnapshotMessage (..),+ newDeleteClusterSnapshotMessage,+ deleteClusterSnapshotMessage_snapshotClusterIdentifier,+ deleteClusterSnapshotMessage_snapshotIdentifier,++ -- * EC2SecurityGroup+ EC2SecurityGroup (..),+ newEC2SecurityGroup,+ eC2SecurityGroup_eC2SecurityGroupName,+ eC2SecurityGroup_eC2SecurityGroupOwnerId,+ eC2SecurityGroup_status,+ eC2SecurityGroup_tags,++ -- * ElasticIpStatus+ ElasticIpStatus (..),+ newElasticIpStatus,+ elasticIpStatus_elasticIp,+ elasticIpStatus_status,++ -- * Endpoint+ Endpoint (..),+ newEndpoint,+ endpoint_address,+ endpoint_port,+ endpoint_vpcEndpoints,++ -- * EndpointAccess+ EndpointAccess (..),+ newEndpointAccess,+ endpointAccess_address,+ endpointAccess_clusterIdentifier,+ endpointAccess_endpointCreateTime,+ endpointAccess_endpointName,+ endpointAccess_endpointStatus,+ endpointAccess_port,+ endpointAccess_resourceOwner,+ endpointAccess_subnetGroupName,+ endpointAccess_vpcEndpoint,+ endpointAccess_vpcSecurityGroups,++ -- * EndpointAuthorization+ EndpointAuthorization (..),+ newEndpointAuthorization,+ endpointAuthorization_allowedAllVPCs,+ endpointAuthorization_allowedVPCs,+ endpointAuthorization_authorizeTime,+ endpointAuthorization_clusterIdentifier,+ endpointAuthorization_clusterStatus,+ endpointAuthorization_endpointCount,+ endpointAuthorization_grantee,+ endpointAuthorization_grantor,+ endpointAuthorization_status,++ -- * Event+ Event (..),+ newEvent,+ event_date,+ event_eventCategories,+ event_eventId,+ event_message,+ event_severity,+ event_sourceIdentifier,+ event_sourceType,++ -- * EventCategoriesMap+ EventCategoriesMap (..),+ newEventCategoriesMap,+ eventCategoriesMap_events,+ eventCategoriesMap_sourceType,++ -- * EventInfoMap+ EventInfoMap (..),+ newEventInfoMap,+ eventInfoMap_eventCategories,+ eventInfoMap_eventDescription,+ eventInfoMap_eventId,+ eventInfoMap_severity,++ -- * EventSubscription+ EventSubscription (..),+ newEventSubscription,+ eventSubscription_custSubscriptionId,+ eventSubscription_customerAwsId,+ eventSubscription_enabled,+ eventSubscription_eventCategoriesList,+ eventSubscription_severity,+ eventSubscription_snsTopicArn,+ eventSubscription_sourceIdsList,+ eventSubscription_sourceType,+ eventSubscription_status,+ eventSubscription_subscriptionCreationTime,+ eventSubscription_tags,++ -- * HsmClientCertificate+ HsmClientCertificate (..),+ newHsmClientCertificate,+ hsmClientCertificate_hsmClientCertificateIdentifier,+ hsmClientCertificate_hsmClientCertificatePublicKey,+ hsmClientCertificate_tags,++ -- * HsmConfiguration+ HsmConfiguration (..),+ newHsmConfiguration,+ hsmConfiguration_description,+ hsmConfiguration_hsmConfigurationIdentifier,+ hsmConfiguration_hsmIpAddress,+ hsmConfiguration_hsmPartitionName,+ hsmConfiguration_tags,++ -- * HsmStatus+ HsmStatus (..),+ newHsmStatus,+ hsmStatus_hsmClientCertificateIdentifier,+ hsmStatus_hsmConfigurationIdentifier,+ hsmStatus_status,++ -- * IPRange+ IPRange (..),+ newIPRange,+ iPRange_cidrip,+ iPRange_status,+ iPRange_tags,++ -- * LoggingStatus+ LoggingStatus (..),+ newLoggingStatus,+ loggingStatus_bucketName,+ loggingStatus_lastFailureMessage,+ loggingStatus_lastFailureTime,+ loggingStatus_lastSuccessfulDeliveryTime,+ loggingStatus_logDestinationType,+ loggingStatus_logExports,+ loggingStatus_loggingEnabled,+ loggingStatus_s3KeyPrefix,++ -- * MaintenanceTrack+ MaintenanceTrack (..),+ newMaintenanceTrack,+ maintenanceTrack_databaseVersion,+ maintenanceTrack_maintenanceTrackName,+ maintenanceTrack_updateTargets,++ -- * NetworkInterface+ NetworkInterface (..),+ newNetworkInterface,+ networkInterface_availabilityZone,+ networkInterface_networkInterfaceId,+ networkInterface_privateIpAddress,+ networkInterface_subnetId,++ -- * NodeConfigurationOption+ NodeConfigurationOption (..),+ newNodeConfigurationOption,+ nodeConfigurationOption_estimatedDiskUtilizationPercent,+ nodeConfigurationOption_mode,+ nodeConfigurationOption_nodeType,+ nodeConfigurationOption_numberOfNodes,++ -- * NodeConfigurationOptionsFilter+ NodeConfigurationOptionsFilter (..),+ newNodeConfigurationOptionsFilter,+ nodeConfigurationOptionsFilter_name,+ nodeConfigurationOptionsFilter_operator,+ nodeConfigurationOptionsFilter_values,++ -- * OrderableClusterOption+ OrderableClusterOption (..),+ newOrderableClusterOption,+ orderableClusterOption_availabilityZones,+ orderableClusterOption_clusterType,+ orderableClusterOption_clusterVersion,+ orderableClusterOption_nodeType,++ -- * Parameter+ Parameter (..),+ newParameter,+ parameter_allowedValues,+ parameter_applyType,+ parameter_dataType,+ parameter_description,+ parameter_isModifiable,+ parameter_minimumEngineVersion,+ parameter_parameterName,+ parameter_parameterValue,+ parameter_source,++ -- * PartnerIntegrationInfo+ PartnerIntegrationInfo (..),+ newPartnerIntegrationInfo,+ partnerIntegrationInfo_createdAt,+ partnerIntegrationInfo_databaseName,+ partnerIntegrationInfo_partnerName,+ partnerIntegrationInfo_status,+ partnerIntegrationInfo_statusMessage,+ partnerIntegrationInfo_updatedAt,++ -- * PartnerIntegrationInputMessage+ PartnerIntegrationInputMessage (..),+ newPartnerIntegrationInputMessage,+ partnerIntegrationInputMessage_accountId,+ partnerIntegrationInputMessage_clusterIdentifier,+ partnerIntegrationInputMessage_databaseName,+ partnerIntegrationInputMessage_partnerName,++ -- * PartnerIntegrationOutputMessage+ PartnerIntegrationOutputMessage (..),+ newPartnerIntegrationOutputMessage,+ partnerIntegrationOutputMessage_databaseName,+ partnerIntegrationOutputMessage_partnerName,++ -- * PauseClusterMessage+ PauseClusterMessage (..),+ newPauseClusterMessage,+ pauseClusterMessage_clusterIdentifier,++ -- * PendingModifiedValues+ PendingModifiedValues (..),+ newPendingModifiedValues,+ pendingModifiedValues_automatedSnapshotRetentionPeriod,+ pendingModifiedValues_clusterIdentifier,+ pendingModifiedValues_clusterType,+ pendingModifiedValues_clusterVersion,+ pendingModifiedValues_encryptionType,+ pendingModifiedValues_enhancedVpcRouting,+ pendingModifiedValues_maintenanceTrackName,+ pendingModifiedValues_masterUserPassword,+ pendingModifiedValues_nodeType,+ pendingModifiedValues_numberOfNodes,+ pendingModifiedValues_publiclyAccessible,++ -- * RecurringCharge+ RecurringCharge (..),+ newRecurringCharge,+ recurringCharge_recurringChargeAmount,+ recurringCharge_recurringChargeFrequency,++ -- * ReservedNode+ ReservedNode (..),+ newReservedNode,+ reservedNode_currencyCode,+ reservedNode_duration,+ reservedNode_fixedPrice,+ reservedNode_nodeCount,+ reservedNode_nodeType,+ reservedNode_offeringType,+ reservedNode_recurringCharges,+ reservedNode_reservedNodeId,+ reservedNode_reservedNodeOfferingId,+ reservedNode_reservedNodeOfferingType,+ reservedNode_startTime,+ reservedNode_state,+ reservedNode_usagePrice,++ -- * ReservedNodeConfigurationOption+ ReservedNodeConfigurationOption (..),+ newReservedNodeConfigurationOption,+ reservedNodeConfigurationOption_sourceReservedNode,+ reservedNodeConfigurationOption_targetReservedNodeCount,+ reservedNodeConfigurationOption_targetReservedNodeOffering,++ -- * ReservedNodeExchangeStatus+ ReservedNodeExchangeStatus (..),+ newReservedNodeExchangeStatus,+ reservedNodeExchangeStatus_requestTime,+ reservedNodeExchangeStatus_reservedNodeExchangeRequestId,+ reservedNodeExchangeStatus_sourceReservedNodeCount,+ reservedNodeExchangeStatus_sourceReservedNodeId,+ reservedNodeExchangeStatus_sourceReservedNodeType,+ reservedNodeExchangeStatus_status,+ reservedNodeExchangeStatus_targetReservedNodeCount,+ reservedNodeExchangeStatus_targetReservedNodeOfferingId,+ reservedNodeExchangeStatus_targetReservedNodeType,++ -- * ReservedNodeOffering+ ReservedNodeOffering (..),+ newReservedNodeOffering,+ reservedNodeOffering_currencyCode,+ reservedNodeOffering_duration,+ reservedNodeOffering_fixedPrice,+ reservedNodeOffering_nodeType,+ reservedNodeOffering_offeringType,+ reservedNodeOffering_recurringCharges,+ reservedNodeOffering_reservedNodeOfferingId,+ reservedNodeOffering_reservedNodeOfferingType,+ reservedNodeOffering_usagePrice,++ -- * ResizeClusterMessage+ ResizeClusterMessage (..),+ newResizeClusterMessage,+ resizeClusterMessage_classic,+ resizeClusterMessage_clusterType,+ resizeClusterMessage_nodeType,+ resizeClusterMessage_numberOfNodes,+ resizeClusterMessage_reservedNodeId,+ resizeClusterMessage_targetReservedNodeOfferingId,+ resizeClusterMessage_clusterIdentifier,++ -- * ResizeInfo+ ResizeInfo (..),+ newResizeInfo,+ resizeInfo_allowCancelResize,+ resizeInfo_resizeType,++ -- * ResizeProgressMessage+ ResizeProgressMessage (..),+ newResizeProgressMessage,+ resizeProgressMessage_avgResizeRateInMegaBytesPerSecond,+ resizeProgressMessage_dataTransferProgressPercent,+ resizeProgressMessage_elapsedTimeInSeconds,+ resizeProgressMessage_estimatedTimeToCompletionInSeconds,+ resizeProgressMessage_importTablesCompleted,+ resizeProgressMessage_importTablesInProgress,+ resizeProgressMessage_importTablesNotStarted,+ resizeProgressMessage_message,+ resizeProgressMessage_progressInMegaBytes,+ resizeProgressMessage_resizeType,+ resizeProgressMessage_status,+ resizeProgressMessage_targetClusterType,+ resizeProgressMessage_targetEncryptionType,+ resizeProgressMessage_targetNodeType,+ resizeProgressMessage_targetNumberOfNodes,+ resizeProgressMessage_totalResizeDataInMegaBytes,++ -- * RestoreStatus+ RestoreStatus (..),+ newRestoreStatus,+ restoreStatus_currentRestoreRateInMegaBytesPerSecond,+ restoreStatus_elapsedTimeInSeconds,+ restoreStatus_estimatedTimeToCompletionInSeconds,+ restoreStatus_progressInMegaBytes,+ restoreStatus_snapshotSizeInMegaBytes,+ restoreStatus_status,++ -- * ResumeClusterMessage+ ResumeClusterMessage (..),+ newResumeClusterMessage,+ resumeClusterMessage_clusterIdentifier,++ -- * RevisionTarget+ RevisionTarget (..),+ newRevisionTarget,+ revisionTarget_databaseRevision,+ revisionTarget_databaseRevisionReleaseDate,+ revisionTarget_description,++ -- * ScheduledAction+ ScheduledAction (..),+ newScheduledAction,+ scheduledAction_endTime,+ scheduledAction_iamRole,+ scheduledAction_nextInvocations,+ scheduledAction_schedule,+ scheduledAction_scheduledActionDescription,+ scheduledAction_scheduledActionName,+ scheduledAction_startTime,+ scheduledAction_state,+ scheduledAction_targetAction,++ -- * ScheduledActionFilter+ ScheduledActionFilter (..),+ newScheduledActionFilter,+ scheduledActionFilter_name,+ scheduledActionFilter_values,++ -- * ScheduledActionType+ ScheduledActionType (..),+ newScheduledActionType,+ scheduledActionType_pauseCluster,+ scheduledActionType_resizeCluster,+ scheduledActionType_resumeCluster,++ -- * Snapshot+ Snapshot (..),+ newSnapshot,+ snapshot_accountsWithRestoreAccess,+ snapshot_actualIncrementalBackupSizeInMegaBytes,+ snapshot_availabilityZone,+ snapshot_backupProgressInMegaBytes,+ snapshot_clusterCreateTime,+ snapshot_clusterIdentifier,+ snapshot_clusterVersion,+ snapshot_currentBackupRateInMegaBytesPerSecond,+ snapshot_dbName,+ snapshot_elapsedTimeInSeconds,+ snapshot_encrypted,+ snapshot_encryptedWithHSM,+ snapshot_engineFullVersion,+ snapshot_enhancedVpcRouting,+ snapshot_estimatedSecondsToCompletion,+ snapshot_kmsKeyId,+ snapshot_maintenanceTrackName,+ snapshot_manualSnapshotRemainingDays,+ snapshot_manualSnapshotRetentionPeriod,+ snapshot_masterUsername,+ snapshot_nodeType,+ snapshot_numberOfNodes,+ snapshot_ownerAccount,+ snapshot_port,+ snapshot_restorableNodeTypes,+ snapshot_snapshotCreateTime,+ snapshot_snapshotIdentifier,+ snapshot_snapshotRetentionStartTime,+ snapshot_snapshotType,+ snapshot_sourceRegion,+ snapshot_status,+ snapshot_tags,+ snapshot_totalBackupSizeInMegaBytes,+ snapshot_vpcId,++ -- * SnapshotCopyGrant+ SnapshotCopyGrant (..),+ newSnapshotCopyGrant,+ snapshotCopyGrant_kmsKeyId,+ snapshotCopyGrant_snapshotCopyGrantName,+ snapshotCopyGrant_tags,++ -- * SnapshotErrorMessage+ SnapshotErrorMessage (..),+ newSnapshotErrorMessage,+ snapshotErrorMessage_failureCode,+ snapshotErrorMessage_failureReason,+ snapshotErrorMessage_snapshotClusterIdentifier,+ snapshotErrorMessage_snapshotIdentifier,++ -- * SnapshotSchedule+ SnapshotSchedule (..),+ newSnapshotSchedule,+ snapshotSchedule_associatedClusterCount,+ snapshotSchedule_associatedClusters,+ snapshotSchedule_nextInvocations,+ snapshotSchedule_scheduleDefinitions,+ snapshotSchedule_scheduleDescription,+ snapshotSchedule_scheduleIdentifier,+ snapshotSchedule_tags,++ -- * SnapshotSortingEntity+ SnapshotSortingEntity (..),+ newSnapshotSortingEntity,+ snapshotSortingEntity_sortOrder,+ snapshotSortingEntity_attribute,++ -- * Subnet+ Subnet (..),+ newSubnet,+ subnet_subnetAvailabilityZone,+ subnet_subnetIdentifier,+ subnet_subnetStatus,++ -- * SupportedOperation+ SupportedOperation (..),+ newSupportedOperation,+ supportedOperation_operationName,++ -- * SupportedPlatform+ SupportedPlatform (..),+ newSupportedPlatform,+ supportedPlatform_name,++ -- * TableRestoreStatus+ TableRestoreStatus (..),+ newTableRestoreStatus,+ tableRestoreStatus_clusterIdentifier,+ tableRestoreStatus_message,+ tableRestoreStatus_newTableName,+ tableRestoreStatus_progressInMegaBytes,+ tableRestoreStatus_requestTime,+ tableRestoreStatus_snapshotIdentifier,+ tableRestoreStatus_sourceDatabaseName,+ tableRestoreStatus_sourceSchemaName,+ tableRestoreStatus_sourceTableName,+ tableRestoreStatus_status,+ tableRestoreStatus_tableRestoreRequestId,+ tableRestoreStatus_targetDatabaseName,+ tableRestoreStatus_targetSchemaName,+ tableRestoreStatus_totalDataInMegaBytes,++ -- * Tag+ Tag (..),+ newTag,+ tag_key,+ tag_value,++ -- * TaggedResource+ TaggedResource (..),+ newTaggedResource,+ taggedResource_resourceName,+ taggedResource_resourceType,+ taggedResource_tag,++ -- * UpdateTarget+ UpdateTarget (..),+ newUpdateTarget,+ updateTarget_databaseVersion,+ updateTarget_maintenanceTrackName,+ updateTarget_supportedOperations,++ -- * UsageLimit+ UsageLimit (..),+ newUsageLimit,+ usageLimit_amount,+ usageLimit_breachAction,+ usageLimit_clusterIdentifier,+ usageLimit_featureType,+ usageLimit_limitType,+ usageLimit_period,+ usageLimit_tags,+ usageLimit_usageLimitId,++ -- * VpcEndpoint+ VpcEndpoint (..),+ newVpcEndpoint,+ vpcEndpoint_networkInterfaces,+ vpcEndpoint_vpcEndpointId,+ vpcEndpoint_vpcId,++ -- * VpcSecurityGroupMembership+ VpcSecurityGroupMembership (..),+ newVpcSecurityGroupMembership,+ vpcSecurityGroupMembership_status,+ vpcSecurityGroupMembership_vpcSecurityGroupId,+ )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Prelude as Prelude+import Amazonka.Redshift.Internal+import Amazonka.Redshift.Types.AccountAttribute+import Amazonka.Redshift.Types.AccountWithRestoreAccess+import Amazonka.Redshift.Types.ActionType+import Amazonka.Redshift.Types.AquaConfiguration+import Amazonka.Redshift.Types.AquaConfigurationStatus+import Amazonka.Redshift.Types.AquaStatus+import Amazonka.Redshift.Types.AttributeValueTarget+import Amazonka.Redshift.Types.AuthenticationProfile+import Amazonka.Redshift.Types.AuthorizationStatus+import Amazonka.Redshift.Types.AvailabilityZone+import Amazonka.Redshift.Types.Cluster+import Amazonka.Redshift.Types.ClusterAssociatedToSchedule+import Amazonka.Redshift.Types.ClusterDbRevision+import Amazonka.Redshift.Types.ClusterIamRole+import Amazonka.Redshift.Types.ClusterNode+import Amazonka.Redshift.Types.ClusterParameterGroup+import Amazonka.Redshift.Types.ClusterParameterGroupNameMessage+import Amazonka.Redshift.Types.ClusterParameterGroupStatus+import Amazonka.Redshift.Types.ClusterParameterStatus+import Amazonka.Redshift.Types.ClusterSecurityGroup+import Amazonka.Redshift.Types.ClusterSecurityGroupMembership+import Amazonka.Redshift.Types.ClusterSnapshotCopyStatus+import Amazonka.Redshift.Types.ClusterSubnetGroup+import Amazonka.Redshift.Types.ClusterVersion+import Amazonka.Redshift.Types.DataShare+import Amazonka.Redshift.Types.DataShareAssociation+import Amazonka.Redshift.Types.DataShareStatus+import Amazonka.Redshift.Types.DataShareStatusForConsumer+import Amazonka.Redshift.Types.DataShareStatusForProducer+import Amazonka.Redshift.Types.DataTransferProgress+import Amazonka.Redshift.Types.DefaultClusterParameters+import Amazonka.Redshift.Types.DeferredMaintenanceWindow+import Amazonka.Redshift.Types.DeleteClusterSnapshotMessage+import Amazonka.Redshift.Types.EC2SecurityGroup+import Amazonka.Redshift.Types.ElasticIpStatus+import Amazonka.Redshift.Types.Endpoint+import Amazonka.Redshift.Types.EndpointAccess+import Amazonka.Redshift.Types.EndpointAuthorization+import Amazonka.Redshift.Types.Event+import Amazonka.Redshift.Types.EventCategoriesMap+import Amazonka.Redshift.Types.EventInfoMap+import Amazonka.Redshift.Types.EventSubscription+import Amazonka.Redshift.Types.HsmClientCertificate+import Amazonka.Redshift.Types.HsmConfiguration+import Amazonka.Redshift.Types.HsmStatus+import Amazonka.Redshift.Types.IPRange+import Amazonka.Redshift.Types.LogDestinationType+import Amazonka.Redshift.Types.LoggingStatus+import Amazonka.Redshift.Types.MaintenanceTrack+import Amazonka.Redshift.Types.Mode+import Amazonka.Redshift.Types.NetworkInterface+import Amazonka.Redshift.Types.NodeConfigurationOption+import Amazonka.Redshift.Types.NodeConfigurationOptionsFilter+import Amazonka.Redshift.Types.NodeConfigurationOptionsFilterName+import Amazonka.Redshift.Types.OperatorType+import Amazonka.Redshift.Types.OrderableClusterOption+import Amazonka.Redshift.Types.Parameter+import Amazonka.Redshift.Types.ParameterApplyType+import Amazonka.Redshift.Types.PartnerIntegrationInfo+import Amazonka.Redshift.Types.PartnerIntegrationInputMessage+import Amazonka.Redshift.Types.PartnerIntegrationOutputMessage+import Amazonka.Redshift.Types.PartnerIntegrationStatus+import Amazonka.Redshift.Types.PauseClusterMessage+import Amazonka.Redshift.Types.PendingModifiedValues+import Amazonka.Redshift.Types.RecurringCharge+import Amazonka.Redshift.Types.ReservedNode+import Amazonka.Redshift.Types.ReservedNodeConfigurationOption+import Amazonka.Redshift.Types.ReservedNodeExchangeActionType+import Amazonka.Redshift.Types.ReservedNodeExchangeStatus+import Amazonka.Redshift.Types.ReservedNodeExchangeStatusType+import Amazonka.Redshift.Types.ReservedNodeOffering+import Amazonka.Redshift.Types.ReservedNodeOfferingType+import Amazonka.Redshift.Types.ResizeClusterMessage+import Amazonka.Redshift.Types.ResizeInfo+import Amazonka.Redshift.Types.ResizeProgressMessage+import Amazonka.Redshift.Types.RestoreStatus+import Amazonka.Redshift.Types.ResumeClusterMessage+import Amazonka.Redshift.Types.RevisionTarget+import Amazonka.Redshift.Types.ScheduleState+import Amazonka.Redshift.Types.ScheduledAction+import Amazonka.Redshift.Types.ScheduledActionFilter+import Amazonka.Redshift.Types.ScheduledActionFilterName+import Amazonka.Redshift.Types.ScheduledActionState+import Amazonka.Redshift.Types.ScheduledActionType+import Amazonka.Redshift.Types.ScheduledActionTypeValues+import Amazonka.Redshift.Types.Snapshot+import Amazonka.Redshift.Types.SnapshotAttributeToSortBy+import Amazonka.Redshift.Types.SnapshotCopyGrant+import Amazonka.Redshift.Types.SnapshotErrorMessage+import Amazonka.Redshift.Types.SnapshotSchedule+import Amazonka.Redshift.Types.SnapshotSortingEntity+import Amazonka.Redshift.Types.SortByOrder+import Amazonka.Redshift.Types.SourceType+import Amazonka.Redshift.Types.Subnet+import Amazonka.Redshift.Types.SupportedOperation+import Amazonka.Redshift.Types.SupportedPlatform+import Amazonka.Redshift.Types.TableRestoreStatus+import Amazonka.Redshift.Types.TableRestoreStatusType+import Amazonka.Redshift.Types.Tag+import Amazonka.Redshift.Types.TaggedResource+import Amazonka.Redshift.Types.UpdateTarget+import Amazonka.Redshift.Types.UsageLimit+import Amazonka.Redshift.Types.UsageLimitBreachAction+import Amazonka.Redshift.Types.UsageLimitFeatureType+import Amazonka.Redshift.Types.UsageLimitLimitType+import Amazonka.Redshift.Types.UsageLimitPeriod+import Amazonka.Redshift.Types.VpcEndpoint+import Amazonka.Redshift.Types.VpcSecurityGroupMembership+import qualified Amazonka.Sign.V4 as Sign++-- | API version @2012-12-01@ of the Amazon Redshift SDK configuration.+defaultService :: Core.Service+defaultService =+ Core.Service+ { Core.abbrev = "Redshift",+ Core.signer = Sign.v4,+ Core.endpointPrefix = "redshift",+ Core.signingName = "redshift",+ Core.version = "2012-12-01",+ Core.s3AddressingStyle = Core.S3AddressingStyleAuto,+ Core.endpoint = Core.defaultEndpoint defaultService,+ Core.timeout = Prelude.Just 70,+ Core.check = Core.statusSuccess,+ Core.error = Core.parseXMLError "Redshift",+ Core.retry = retry+ }+ where+ retry =+ Core.Exponential+ { Core.base = 5.0e-2,+ Core.growth = 2,+ Core.attempts = 5,+ Core.check = check+ }+ check e+ | Lens.has (Core.hasStatus 502) e =+ Prelude.Just "bad_gateway"+ | Lens.has (Core.hasStatus 504) e =+ Prelude.Just "gateway_timeout"+ | Lens.has (Core.hasStatus 500) e =+ Prelude.Just "general_server_error"+ | Lens.has (Core.hasStatus 509) e =+ Prelude.Just "limit_exceeded"+ | Lens.has+ ( Core.hasCode "RequestThrottledException"+ Prelude.. Core.hasStatus 400+ )+ e =+ Prelude.Just "request_throttled_exception"+ | Lens.has (Core.hasStatus 503) e =+ Prelude.Just "service_unavailable"+ | Lens.has+ ( Core.hasCode "ThrottledException"+ Prelude.. Core.hasStatus 400+ )+ e =+ Prelude.Just "throttled_exception"+ | Lens.has+ ( Core.hasCode "Throttling"+ Prelude.. Core.hasStatus 400+ )+ e =+ Prelude.Just "throttling"+ | Lens.has+ ( Core.hasCode "ThrottlingException"+ Prelude.. Core.hasStatus 400+ )+ e =+ Prelude.Just "throttling_exception"+ | Lens.has+ ( Core.hasCode+ "ProvisionedThroughputExceededException"+ Prelude.. Core.hasStatus 400+ )+ e =+ Prelude.Just "throughput_exceeded"+ | Lens.has (Core.hasStatus 429) e =+ Prelude.Just "too_many_requests"+ | Prelude.otherwise = Prelude.Nothing++-- | You are not authorized to access the cluster.+_AccessToClusterDeniedFault :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_AccessToClusterDeniedFault =+ Core._MatchServiceError+ defaultService+ "AccessToClusterDenied"+ Prelude.. Core.hasStatus 400++-- | The owner of the specified snapshot has not authorized your account to+-- access the snapshot.+_AccessToSnapshotDeniedFault :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_AccessToSnapshotDeniedFault =+ Core._MatchServiceError+ defaultService+ "AccessToSnapshotDenied"+ Prelude.. Core.hasStatus 400++-- | The authentication profile already exists.+_AuthenticationProfileAlreadyExistsFault :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_AuthenticationProfileAlreadyExistsFault =+ Core._MatchServiceError+ defaultService+ "AuthenticationProfileAlreadyExistsFault"+ Prelude.. Core.hasStatus 400++-- | The authentication profile can\'t be found.+_AuthenticationProfileNotFoundFault :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_AuthenticationProfileNotFoundFault =+ Core._MatchServiceError+ defaultService+ "AuthenticationProfileNotFoundFault"+ Prelude.. Core.hasStatus 404++-- | The size or number of authentication profiles has exceeded the quota.+-- The maximum length of the JSON string and maximum number of+-- authentication profiles is determined by a quota for your account.+_AuthenticationProfileQuotaExceededFault :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_AuthenticationProfileQuotaExceededFault =+ Core._MatchServiceError+ defaultService+ "AuthenticationProfileQuotaExceededFault"+ Prelude.. Core.hasStatus 400++-- | The specified CIDR block or EC2 security group is already authorized for+-- the specified cluster security group.+_AuthorizationAlreadyExistsFault :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_AuthorizationAlreadyExistsFault =+ Core._MatchServiceError+ defaultService+ "AuthorizationAlreadyExists"+ Prelude.. Core.hasStatus 400++-- | The specified CIDR IP range or EC2 security group is not authorized for+-- the specified cluster security group.+_AuthorizationNotFoundFault :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_AuthorizationNotFoundFault =+ Core._MatchServiceError+ defaultService+ "AuthorizationNotFound"+ Prelude.. Core.hasStatus 404++-- | The authorization quota for the cluster security group has been reached.+_AuthorizationQuotaExceededFault :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_AuthorizationQuotaExceededFault =+ Core._MatchServiceError+ defaultService+ "AuthorizationQuotaExceeded"+ Prelude.. Core.hasStatus 400++-- | The maximum number for a batch delete of snapshots has been reached. The+-- limit is 100.+_BatchDeleteRequestSizeExceededFault :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_BatchDeleteRequestSizeExceededFault =+ Core._MatchServiceError+ defaultService+ "BatchDeleteRequestSizeExceeded"+ Prelude.. Core.hasStatus 400++-- | The maximum number for snapshot identifiers has been reached. The limit+-- is 100.+_BatchModifyClusterSnapshotsLimitExceededFault :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_BatchModifyClusterSnapshotsLimitExceededFault =+ Core._MatchServiceError+ defaultService+ "BatchModifyClusterSnapshotsLimitExceededFault"+ Prelude.. Core.hasStatus 400++-- | Could not find the specified S3 bucket.+_BucketNotFoundFault :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_BucketNotFoundFault =+ Core._MatchServiceError+ defaultService+ "BucketNotFoundFault"+ Prelude.. Core.hasStatus 400++-- | The account already has a cluster with the given identifier.+_ClusterAlreadyExistsFault :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_ClusterAlreadyExistsFault =+ Core._MatchServiceError+ defaultService+ "ClusterAlreadyExists"+ Prelude.. Core.hasStatus 400++-- | The @ClusterIdentifier@ parameter does not refer to an existing cluster.+_ClusterNotFoundFault :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_ClusterNotFoundFault =+ Core._MatchServiceError+ defaultService+ "ClusterNotFound"+ Prelude.. Core.hasStatus 404++-- | Cluster is already on the latest database revision.+_ClusterOnLatestRevisionFault :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_ClusterOnLatestRevisionFault =+ Core._MatchServiceError+ defaultService+ "ClusterOnLatestRevision"+ Prelude.. Core.hasStatus 400++-- | A cluster parameter group with the same name already exists.+_ClusterParameterGroupAlreadyExistsFault :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_ClusterParameterGroupAlreadyExistsFault =+ Core._MatchServiceError+ defaultService+ "ClusterParameterGroupAlreadyExists"+ Prelude.. Core.hasStatus 400++-- | The parameter group name does not refer to an existing parameter group.+_ClusterParameterGroupNotFoundFault :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_ClusterParameterGroupNotFoundFault =+ Core._MatchServiceError+ defaultService+ "ClusterParameterGroupNotFound"+ Prelude.. Core.hasStatus 404++-- | The request would result in the user exceeding the allowed number of+-- cluster parameter groups. For information about increasing your quota,+-- go to+-- <https://docs.aws.amazon.com/redshift/latest/mgmt/amazon-redshift-limits.html Limits in Amazon Redshift>+-- in the /Amazon Redshift Cluster Management Guide/.+_ClusterParameterGroupQuotaExceededFault :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_ClusterParameterGroupQuotaExceededFault =+ Core._MatchServiceError+ defaultService+ "ClusterParameterGroupQuotaExceeded"+ Prelude.. Core.hasStatus 400++-- | The request would exceed the allowed number of cluster instances for+-- this account. For information about increasing your quota, go to+-- <https://docs.aws.amazon.com/redshift/latest/mgmt/amazon-redshift-limits.html Limits in Amazon Redshift>+-- in the /Amazon Redshift Cluster Management Guide/.+_ClusterQuotaExceededFault :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_ClusterQuotaExceededFault =+ Core._MatchServiceError+ defaultService+ "ClusterQuotaExceeded"+ Prelude.. Core.hasStatus 400++-- | A cluster security group with the same name already exists.+_ClusterSecurityGroupAlreadyExistsFault :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_ClusterSecurityGroupAlreadyExistsFault =+ Core._MatchServiceError+ defaultService+ "ClusterSecurityGroupAlreadyExists"+ Prelude.. Core.hasStatus 400++-- | The cluster security group name does not refer to an existing cluster+-- security group.+_ClusterSecurityGroupNotFoundFault :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_ClusterSecurityGroupNotFoundFault =+ Core._MatchServiceError+ defaultService+ "ClusterSecurityGroupNotFound"+ Prelude.. Core.hasStatus 404++-- | The request would result in the user exceeding the allowed number of+-- cluster security groups. For information about increasing your quota, go+-- to+-- <https://docs.aws.amazon.com/redshift/latest/mgmt/amazon-redshift-limits.html Limits in Amazon Redshift>+-- in the /Amazon Redshift Cluster Management Guide/.+_ClusterSecurityGroupQuotaExceededFault :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_ClusterSecurityGroupQuotaExceededFault =+ Core._MatchServiceError+ defaultService+ "QuotaExceeded.ClusterSecurityGroup"+ Prelude.. Core.hasStatus 400++-- | The value specified as a snapshot identifier is already used by an+-- existing snapshot.+_ClusterSnapshotAlreadyExistsFault :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_ClusterSnapshotAlreadyExistsFault =+ Core._MatchServiceError+ defaultService+ "ClusterSnapshotAlreadyExists"+ Prelude.. Core.hasStatus 400++-- | The snapshot identifier does not refer to an existing cluster snapshot.+_ClusterSnapshotNotFoundFault :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_ClusterSnapshotNotFoundFault =+ Core._MatchServiceError+ defaultService+ "ClusterSnapshotNotFound"+ Prelude.. Core.hasStatus 404++-- | The request would result in the user exceeding the allowed number of+-- cluster snapshots.+_ClusterSnapshotQuotaExceededFault :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_ClusterSnapshotQuotaExceededFault =+ Core._MatchServiceError+ defaultService+ "ClusterSnapshotQuotaExceeded"+ Prelude.. Core.hasStatus 400++-- | A /ClusterSubnetGroupName/ is already used by an existing cluster subnet+-- group.+_ClusterSubnetGroupAlreadyExistsFault :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_ClusterSubnetGroupAlreadyExistsFault =+ Core._MatchServiceError+ defaultService+ "ClusterSubnetGroupAlreadyExists"+ Prelude.. Core.hasStatus 400++-- | The cluster subnet group name does not refer to an existing cluster+-- subnet group.+_ClusterSubnetGroupNotFoundFault :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_ClusterSubnetGroupNotFoundFault =+ Core._MatchServiceError+ defaultService+ "ClusterSubnetGroupNotFoundFault"+ Prelude.. Core.hasStatus 400++-- | The request would result in user exceeding the allowed number of cluster+-- subnet groups. For information about increasing your quota, go to+-- <https://docs.aws.amazon.com/redshift/latest/mgmt/amazon-redshift-limits.html Limits in Amazon Redshift>+-- in the /Amazon Redshift Cluster Management Guide/.+_ClusterSubnetGroupQuotaExceededFault :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_ClusterSubnetGroupQuotaExceededFault =+ Core._MatchServiceError+ defaultService+ "ClusterSubnetGroupQuotaExceeded"+ Prelude.. Core.hasStatus 400++-- | The request would result in user exceeding the allowed number of subnets+-- in a cluster subnet groups. For information about increasing your quota,+-- go to+-- <https://docs.aws.amazon.com/redshift/latest/mgmt/amazon-redshift-limits.html Limits in Amazon Redshift>+-- in the /Amazon Redshift Cluster Management Guide/.+_ClusterSubnetQuotaExceededFault :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_ClusterSubnetQuotaExceededFault =+ Core._MatchServiceError+ defaultService+ "ClusterSubnetQuotaExceededFault"+ Prelude.. Core.hasStatus 400++-- | Cross-region snapshot copy was temporarily disabled. Try your request+-- again.+_CopyToRegionDisabledFault :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_CopyToRegionDisabledFault =+ Core._MatchServiceError+ defaultService+ "CopyToRegionDisabledFault"+ Prelude.. Core.hasStatus 400++-- | The request cannot be completed because a dependent service is+-- throttling requests made by Amazon Redshift on your behalf. Wait and+-- retry the request.+_DependentServiceRequestThrottlingFault :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_DependentServiceRequestThrottlingFault =+ Core._MatchServiceError+ defaultService+ "DependentServiceRequestThrottlingFault"+ Prelude.. Core.hasStatus 400++-- | Your request cannot be completed because a dependent internal service is+-- temporarily unavailable. Wait 30 to 60 seconds and try again.+_DependentServiceUnavailableFault :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_DependentServiceUnavailableFault =+ Core._MatchServiceError+ defaultService+ "DependentServiceUnavailableFault"+ Prelude.. Core.hasStatus 400++-- | The account already has a Redshift-managed VPC endpoint with the given+-- identifier.+_EndpointAlreadyExistsFault :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_EndpointAlreadyExistsFault =+ Core._MatchServiceError+ defaultService+ "EndpointAlreadyExists"+ Prelude.. Core.hasStatus 400++-- | The authorization already exists for this endpoint.+_EndpointAuthorizationAlreadyExistsFault :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_EndpointAuthorizationAlreadyExistsFault =+ Core._MatchServiceError+ defaultService+ "EndpointAuthorizationAlreadyExists"+ Prelude.. Core.hasStatus 400++-- | The authorization for this endpoint can\'t be found.+_EndpointAuthorizationNotFoundFault :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_EndpointAuthorizationNotFoundFault =+ Core._MatchServiceError+ defaultService+ "EndpointAuthorizationNotFound"+ Prelude.. Core.hasStatus 404++-- | The number of endpoint authorizations per cluster has exceeded its+-- limit.+_EndpointAuthorizationsPerClusterLimitExceededFault :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_EndpointAuthorizationsPerClusterLimitExceededFault =+ Core._MatchServiceError+ defaultService+ "EndpointAuthorizationsPerClusterLimitExceeded"+ Prelude.. Core.hasStatus 400++-- | The endpoint name doesn\'t refer to an existing endpoint.+_EndpointNotFoundFault :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_EndpointNotFoundFault =+ Core._MatchServiceError+ defaultService+ "EndpointNotFound"+ Prelude.. Core.hasStatus 404++-- | The number of Redshift-managed VPC endpoints per authorization has+-- exceeded its limit.+_EndpointsPerAuthorizationLimitExceededFault :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_EndpointsPerAuthorizationLimitExceededFault =+ Core._MatchServiceError+ defaultService+ "EndpointsPerAuthorizationLimitExceeded"+ Prelude.. Core.hasStatus 400++-- | The number of Redshift-managed VPC endpoints per cluster has exceeded+-- its limit.+_EndpointsPerClusterLimitExceededFault :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_EndpointsPerClusterLimitExceededFault =+ Core._MatchServiceError+ defaultService+ "EndpointsPerClusterLimitExceeded"+ Prelude.. Core.hasStatus 400++-- | The request would exceed the allowed number of event subscriptions for+-- this account. For information about increasing your quota, go to+-- <https://docs.aws.amazon.com/redshift/latest/mgmt/amazon-redshift-limits.html Limits in Amazon Redshift>+-- in the /Amazon Redshift Cluster Management Guide/.+_EventSubscriptionQuotaExceededFault :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_EventSubscriptionQuotaExceededFault =+ Core._MatchServiceError+ defaultService+ "EventSubscriptionQuotaExceeded"+ Prelude.. Core.hasStatus 400++-- | There is already an existing Amazon Redshift HSM client certificate with+-- the specified identifier.+_HsmClientCertificateAlreadyExistsFault :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_HsmClientCertificateAlreadyExistsFault =+ Core._MatchServiceError+ defaultService+ "HsmClientCertificateAlreadyExistsFault"+ Prelude.. Core.hasStatus 400++-- | There is no Amazon Redshift HSM client certificate with the specified+-- identifier.+_HsmClientCertificateNotFoundFault :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_HsmClientCertificateNotFoundFault =+ Core._MatchServiceError+ defaultService+ "HsmClientCertificateNotFoundFault"+ Prelude.. Core.hasStatus 400++-- | The quota for HSM client certificates has been reached. For information+-- about increasing your quota, go to+-- <https://docs.aws.amazon.com/redshift/latest/mgmt/amazon-redshift-limits.html Limits in Amazon Redshift>+-- in the /Amazon Redshift Cluster Management Guide/.+_HsmClientCertificateQuotaExceededFault :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_HsmClientCertificateQuotaExceededFault =+ Core._MatchServiceError+ defaultService+ "HsmClientCertificateQuotaExceededFault"+ Prelude.. Core.hasStatus 400++-- | There is already an existing Amazon Redshift HSM configuration with the+-- specified identifier.+_HsmConfigurationAlreadyExistsFault :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_HsmConfigurationAlreadyExistsFault =+ Core._MatchServiceError+ defaultService+ "HsmConfigurationAlreadyExistsFault"+ Prelude.. Core.hasStatus 400++-- | There is no Amazon Redshift HSM configuration with the specified+-- identifier.+_HsmConfigurationNotFoundFault :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_HsmConfigurationNotFoundFault =+ Core._MatchServiceError+ defaultService+ "HsmConfigurationNotFoundFault"+ Prelude.. Core.hasStatus 400++-- | The quota for HSM configurations has been reached. For information about+-- increasing your quota, go to+-- <https://docs.aws.amazon.com/redshift/latest/mgmt/amazon-redshift-limits.html Limits in Amazon Redshift>+-- in the /Amazon Redshift Cluster Management Guide/.+_HsmConfigurationQuotaExceededFault :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_HsmConfigurationQuotaExceededFault =+ Core._MatchServiceError+ defaultService+ "HsmConfigurationQuotaExceededFault"+ Prelude.. Core.hasStatus 400++-- | You have exceeded the allowed number of table restore requests. Wait for+-- your current table restore requests to complete before making a new+-- request.+_InProgressTableRestoreQuotaExceededFault :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_InProgressTableRestoreQuotaExceededFault =+ Core._MatchServiceError+ defaultService+ "InProgressTableRestoreQuotaExceededFault"+ Prelude.. Core.hasStatus 400++-- | The specified options are incompatible.+_IncompatibleOrderableOptions :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_IncompatibleOrderableOptions =+ Core._MatchServiceError+ defaultService+ "IncompatibleOrderableOptions"+ Prelude.. Core.hasStatus 400++-- | The number of nodes specified exceeds the allotted capacity of the+-- cluster.+_InsufficientClusterCapacityFault :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_InsufficientClusterCapacityFault =+ Core._MatchServiceError+ defaultService+ "InsufficientClusterCapacity"+ Prelude.. Core.hasStatus 400++-- | The cluster does not have read bucket or put object permissions on the+-- S3 bucket specified when enabling logging.+_InsufficientS3BucketPolicyFault :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_InsufficientS3BucketPolicyFault =+ Core._MatchServiceError+ defaultService+ "InsufficientS3BucketPolicyFault"+ Prelude.. Core.hasStatus 400++-- | The authentication profile request is not valid. The profile name can\'t+-- be null or empty. The authentication profile API operation must be+-- available in the Amazon Web Services Region.+_InvalidAuthenticationProfileRequestFault :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_InvalidAuthenticationProfileRequestFault =+ Core._MatchServiceError+ defaultService+ "InvalidAuthenticationProfileRequestFault"+ Prelude.. Core.hasStatus 400++-- | The status of the authorization is not valid.+_InvalidAuthorizationStateFault :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_InvalidAuthorizationStateFault =+ Core._MatchServiceError+ defaultService+ "InvalidAuthorizationState"+ Prelude.. Core.hasStatus 400++-- | The cluster parameter group action can not be completed because another+-- task is in progress that involves the parameter group. Wait a few+-- moments and try the operation again.+_InvalidClusterParameterGroupStateFault :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_InvalidClusterParameterGroupStateFault =+ Core._MatchServiceError+ defaultService+ "InvalidClusterParameterGroupState"+ Prelude.. Core.hasStatus 400++-- | The state of the cluster security group is not @available@.+_InvalidClusterSecurityGroupStateFault :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_InvalidClusterSecurityGroupStateFault =+ Core._MatchServiceError+ defaultService+ "InvalidClusterSecurityGroupState"+ Prelude.. Core.hasStatus 400++-- | The cluster snapshot schedule state is not valid.+_InvalidClusterSnapshotScheduleStateFault :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_InvalidClusterSnapshotScheduleStateFault =+ Core._MatchServiceError+ defaultService+ "InvalidClusterSnapshotScheduleState"+ Prelude.. Core.hasStatus 400++-- | The specified cluster snapshot is not in the @available@ state, or other+-- accounts are authorized to access the snapshot.+_InvalidClusterSnapshotStateFault :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_InvalidClusterSnapshotStateFault =+ Core._MatchServiceError+ defaultService+ "InvalidClusterSnapshotState"+ Prelude.. Core.hasStatus 400++-- | The specified cluster is not in the @available@ state.+_InvalidClusterStateFault :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_InvalidClusterStateFault =+ Core._MatchServiceError+ defaultService+ "InvalidClusterState"+ Prelude.. Core.hasStatus 400++-- | The cluster subnet group cannot be deleted because it is in use.+_InvalidClusterSubnetGroupStateFault :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_InvalidClusterSubnetGroupStateFault =+ Core._MatchServiceError+ defaultService+ "InvalidClusterSubnetGroupStateFault"+ Prelude.. Core.hasStatus 400++-- | The state of the subnet is invalid.+_InvalidClusterSubnetStateFault :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_InvalidClusterSubnetStateFault =+ Core._MatchServiceError+ defaultService+ "InvalidClusterSubnetStateFault"+ Prelude.. Core.hasStatus 400++-- | The provided cluster track name is not valid.+_InvalidClusterTrackFault :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_InvalidClusterTrackFault =+ Core._MatchServiceError+ defaultService+ "InvalidClusterTrack"+ Prelude.. Core.hasStatus 400++-- | There is an error with the datashare.+_InvalidDataShareFault :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_InvalidDataShareFault =+ Core._MatchServiceError+ defaultService+ "InvalidDataShareFault"+ Prelude.. Core.hasStatus 400++-- | The Elastic IP (EIP) is invalid or cannot be found.+_InvalidElasticIpFault :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_InvalidElasticIpFault =+ Core._MatchServiceError+ defaultService+ "InvalidElasticIpFault"+ Prelude.. Core.hasStatus 400++-- | The status of the endpoint is not valid.+_InvalidEndpointStateFault :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_InvalidEndpointStateFault =+ Core._MatchServiceError+ defaultService+ "InvalidEndpointState"+ Prelude.. Core.hasStatus 400++-- | The specified HSM client certificate is not in the @available@ state, or+-- it is still in use by one or more Amazon Redshift clusters.+_InvalidHsmClientCertificateStateFault :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_InvalidHsmClientCertificateStateFault =+ Core._MatchServiceError+ defaultService+ "InvalidHsmClientCertificateStateFault"+ Prelude.. Core.hasStatus 400++-- | The specified HSM configuration is not in the @available@ state, or it+-- is still in use by one or more Amazon Redshift clusters.+_InvalidHsmConfigurationStateFault :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_InvalidHsmConfigurationStateFault =+ Core._MatchServiceError+ defaultService+ "InvalidHsmConfigurationStateFault"+ Prelude.. Core.hasStatus 400++-- | The namespace isn\'t valid because the namespace doesn\'t exist. Provide+-- a valid namespace.+_InvalidNamespaceFault :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_InvalidNamespaceFault =+ Core._MatchServiceError+ defaultService+ "InvalidNamespaceFault"+ Prelude.. Core.hasStatus 400++-- | Indicates that the Reserved Node being exchanged is not in an active+-- state.+_InvalidReservedNodeStateFault :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_InvalidReservedNodeStateFault =+ Core._MatchServiceError+ defaultService+ "InvalidReservedNodeState"+ Prelude.. Core.hasStatus 400++-- | The restore is invalid.+_InvalidRestoreFault :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_InvalidRestoreFault =+ Core._MatchServiceError+ defaultService+ "InvalidRestore"+ Prelude.. Core.hasStatus 406++-- | The retention period specified is either in the past or is not a valid+-- value.+--+-- The value must be either -1 or an integer between 1 and 3,653.+_InvalidRetentionPeriodFault :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_InvalidRetentionPeriodFault =+ Core._MatchServiceError+ defaultService+ "InvalidRetentionPeriodFault"+ Prelude.. Core.hasStatus 400++-- | The S3 bucket name is invalid. For more information about naming rules,+-- go to+-- <https://docs.aws.amazon.com/AmazonS3/latest/dev/BucketRestrictions.html Bucket Restrictions and Limitations>+-- in the Amazon Simple Storage Service (S3) Developer Guide.+_InvalidS3BucketNameFault :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_InvalidS3BucketNameFault =+ Core._MatchServiceError+ defaultService+ "InvalidS3BucketNameFault"+ Prelude.. Core.hasStatus 400++-- | The string specified for the logging S3 key prefix does not comply with+-- the documented constraints.+_InvalidS3KeyPrefixFault :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_InvalidS3KeyPrefixFault =+ Core._MatchServiceError+ defaultService+ "InvalidS3KeyPrefixFault"+ Prelude.. Core.hasStatus 400++-- | The schedule you submitted isn\'t valid.+_InvalidScheduleFault :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_InvalidScheduleFault =+ Core._MatchServiceError+ defaultService+ "InvalidSchedule"+ Prelude.. Core.hasStatus 400++-- | The scheduled action is not valid.+_InvalidScheduledActionFault :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_InvalidScheduledActionFault =+ Core._MatchServiceError+ defaultService+ "InvalidScheduledAction"+ Prelude.. Core.hasStatus 400++-- | The snapshot copy grant can\'t be deleted because it is used by one or+-- more clusters.+_InvalidSnapshotCopyGrantStateFault :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_InvalidSnapshotCopyGrantStateFault =+ Core._MatchServiceError+ defaultService+ "InvalidSnapshotCopyGrantStateFault"+ Prelude.. Core.hasStatus 400++-- | The requested subnet is not valid, or not all of the subnets are in the+-- same VPC.+_InvalidSubnet :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_InvalidSubnet =+ Core._MatchServiceError+ defaultService+ "InvalidSubnet"+ Prelude.. Core.hasStatus 400++-- | The subscription request is invalid because it is a duplicate request.+-- This subscription request is already in progress.+_InvalidSubscriptionStateFault :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_InvalidSubscriptionStateFault =+ Core._MatchServiceError+ defaultService+ "InvalidSubscriptionStateFault"+ Prelude.. Core.hasStatus 400++-- | The value specified for the @sourceDatabaseName@, @sourceSchemaName@, or+-- @sourceTableName@ parameter, or a combination of these, doesn\'t exist+-- in the snapshot.+_InvalidTableRestoreArgumentFault :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_InvalidTableRestoreArgumentFault =+ Core._MatchServiceError+ defaultService+ "InvalidTableRestoreArgument"+ Prelude.. Core.hasStatus 400++-- | The tag is invalid.+_InvalidTagFault :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_InvalidTagFault =+ Core._MatchServiceError+ defaultService+ "InvalidTagFault"+ Prelude.. Core.hasStatus 400++-- | The usage limit is not valid.+_InvalidUsageLimitFault :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_InvalidUsageLimitFault =+ Core._MatchServiceError+ defaultService+ "InvalidUsageLimit"+ Prelude.. Core.hasStatus 400++-- | The cluster subnet group does not cover all Availability Zones.+_InvalidVPCNetworkStateFault :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_InvalidVPCNetworkStateFault =+ Core._MatchServiceError+ defaultService+ "InvalidVPCNetworkStateFault"+ Prelude.. Core.hasStatus 400++-- | The encryption key has exceeded its grant limit in Amazon Web Services+-- KMS.+_LimitExceededFault :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_LimitExceededFault =+ Core._MatchServiceError+ defaultService+ "LimitExceededFault"+ Prelude.. Core.hasStatus 400++-- | The operation would exceed the number of nodes allowed for a cluster.+_NumberOfNodesPerClusterLimitExceededFault :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_NumberOfNodesPerClusterLimitExceededFault =+ Core._MatchServiceError+ defaultService+ "NumberOfNodesPerClusterLimitExceeded"+ Prelude.. Core.hasStatus 400++-- | The operation would exceed the number of nodes allotted to the account.+-- For information about increasing your quota, go to+-- <https://docs.aws.amazon.com/redshift/latest/mgmt/amazon-redshift-limits.html Limits in Amazon Redshift>+-- in the /Amazon Redshift Cluster Management Guide/.+_NumberOfNodesQuotaExceededFault :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_NumberOfNodesQuotaExceededFault =+ Core._MatchServiceError+ defaultService+ "NumberOfNodesQuotaExceeded"+ Prelude.. Core.hasStatus 400++-- | The name of the partner was not found.+_PartnerNotFoundFault :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_PartnerNotFoundFault =+ Core._MatchServiceError+ defaultService+ "PartnerNotFound"+ Prelude.. Core.hasStatus 404++-- | User already has a reservation with the given identifier.+_ReservedNodeAlreadyExistsFault :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_ReservedNodeAlreadyExistsFault =+ Core._MatchServiceError+ defaultService+ "ReservedNodeAlreadyExists"+ Prelude.. Core.hasStatus 404++-- | Indicates that the reserved node has already been exchanged.+_ReservedNodeAlreadyMigratedFault :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_ReservedNodeAlreadyMigratedFault =+ Core._MatchServiceError+ defaultService+ "ReservedNodeAlreadyMigrated"+ Prelude.. Core.hasStatus 400++-- | The reserved-node exchange status wasn\'t found.+_ReservedNodeExchangeNotFoundFault :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_ReservedNodeExchangeNotFoundFault =+ Core._MatchServiceError+ defaultService+ "ReservedNodeExchangeNotFond"+ Prelude.. Core.hasStatus 404++-- | The specified reserved compute node not found.+_ReservedNodeNotFoundFault :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_ReservedNodeNotFoundFault =+ Core._MatchServiceError+ defaultService+ "ReservedNodeNotFound"+ Prelude.. Core.hasStatus 404++-- | Specified offering does not exist.+_ReservedNodeOfferingNotFoundFault :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_ReservedNodeOfferingNotFoundFault =+ Core._MatchServiceError+ defaultService+ "ReservedNodeOfferingNotFound"+ Prelude.. Core.hasStatus 404++-- | Request would exceed the user\'s compute node quota. For information+-- about increasing your quota, go to+-- <https://docs.aws.amazon.com/redshift/latest/mgmt/amazon-redshift-limits.html Limits in Amazon Redshift>+-- in the /Amazon Redshift Cluster Management Guide/.+_ReservedNodeQuotaExceededFault :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_ReservedNodeQuotaExceededFault =+ Core._MatchServiceError+ defaultService+ "ReservedNodeQuotaExceeded"+ Prelude.. Core.hasStatus 400++-- | A resize operation for the specified cluster is not found.+_ResizeNotFoundFault :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_ResizeNotFoundFault =+ Core._MatchServiceError+ defaultService+ "ResizeNotFound"+ Prelude.. Core.hasStatus 404++-- | The resource could not be found.+_ResourceNotFoundFault :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_ResourceNotFoundFault =+ Core._MatchServiceError+ defaultService+ "ResourceNotFoundFault"+ Prelude.. Core.hasStatus 404++-- | Amazon SNS has responded that there is a problem with the specified+-- Amazon SNS topic.+_SNSInvalidTopicFault :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_SNSInvalidTopicFault =+ Core._MatchServiceError+ defaultService+ "SNSInvalidTopic"+ Prelude.. Core.hasStatus 400++-- | You do not have permission to publish to the specified Amazon SNS topic.+_SNSNoAuthorizationFault :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_SNSNoAuthorizationFault =+ Core._MatchServiceError+ defaultService+ "SNSNoAuthorization"+ Prelude.. Core.hasStatus 400++-- | An Amazon SNS topic with the specified Amazon Resource Name (ARN) does+-- not exist.+_SNSTopicArnNotFoundFault :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_SNSTopicArnNotFoundFault =+ Core._MatchServiceError+ defaultService+ "SNSTopicArnNotFound"+ Prelude.. Core.hasStatus 404++-- | The definition you submitted is not supported.+_ScheduleDefinitionTypeUnsupportedFault :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_ScheduleDefinitionTypeUnsupportedFault =+ Core._MatchServiceError+ defaultService+ "ScheduleDefinitionTypeUnsupported"+ Prelude.. Core.hasStatus 400++-- | The scheduled action already exists.+_ScheduledActionAlreadyExistsFault :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_ScheduledActionAlreadyExistsFault =+ Core._MatchServiceError+ defaultService+ "ScheduledActionAlreadyExists"+ Prelude.. Core.hasStatus 400++-- | The scheduled action cannot be found.+_ScheduledActionNotFoundFault :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_ScheduledActionNotFoundFault =+ Core._MatchServiceError+ defaultService+ "ScheduledActionNotFound"+ Prelude.. Core.hasStatus 400++-- | The quota for scheduled actions exceeded.+_ScheduledActionQuotaExceededFault :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_ScheduledActionQuotaExceededFault =+ Core._MatchServiceError+ defaultService+ "ScheduledActionQuotaExceeded"+ Prelude.. Core.hasStatus 400++-- | The action type specified for a scheduled action is not supported.+_ScheduledActionTypeUnsupportedFault :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_ScheduledActionTypeUnsupportedFault =+ Core._MatchServiceError+ defaultService+ "ScheduledActionTypeUnsupported"+ Prelude.. Core.hasStatus 400++-- | The cluster already has cross-region snapshot copy disabled.+_SnapshotCopyAlreadyDisabledFault :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_SnapshotCopyAlreadyDisabledFault =+ Core._MatchServiceError+ defaultService+ "SnapshotCopyAlreadyDisabledFault"+ Prelude.. Core.hasStatus 400++-- | The cluster already has cross-region snapshot copy enabled.+_SnapshotCopyAlreadyEnabledFault :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_SnapshotCopyAlreadyEnabledFault =+ Core._MatchServiceError+ defaultService+ "SnapshotCopyAlreadyEnabledFault"+ Prelude.. Core.hasStatus 400++-- | Cross-region snapshot copy was temporarily disabled. Try your request+-- again.+_SnapshotCopyDisabledFault :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_SnapshotCopyDisabledFault =+ Core._MatchServiceError+ defaultService+ "SnapshotCopyDisabledFault"+ Prelude.. Core.hasStatus 400++-- | The snapshot copy grant can\'t be created because a grant with the same+-- name already exists.+_SnapshotCopyGrantAlreadyExistsFault :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_SnapshotCopyGrantAlreadyExistsFault =+ Core._MatchServiceError+ defaultService+ "SnapshotCopyGrantAlreadyExistsFault"+ Prelude.. Core.hasStatus 400++-- | The specified snapshot copy grant can\'t be found. Make sure that the+-- name is typed correctly and that the grant exists in the destination+-- region.+_SnapshotCopyGrantNotFoundFault :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_SnapshotCopyGrantNotFoundFault =+ Core._MatchServiceError+ defaultService+ "SnapshotCopyGrantNotFoundFault"+ Prelude.. Core.hasStatus 400++-- | The Amazon Web Services account has exceeded the maximum number of+-- snapshot copy grants in this region.+_SnapshotCopyGrantQuotaExceededFault :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_SnapshotCopyGrantQuotaExceededFault =+ Core._MatchServiceError+ defaultService+ "SnapshotCopyGrantQuotaExceededFault"+ Prelude.. Core.hasStatus 400++-- | The specified snapshot schedule already exists.+_SnapshotScheduleAlreadyExistsFault :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_SnapshotScheduleAlreadyExistsFault =+ Core._MatchServiceError+ defaultService+ "SnapshotScheduleAlreadyExists"+ Prelude.. Core.hasStatus 400++-- | We could not find the specified snapshot schedule.+_SnapshotScheduleNotFoundFault :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_SnapshotScheduleNotFoundFault =+ Core._MatchServiceError+ defaultService+ "SnapshotScheduleNotFound"+ Prelude.. Core.hasStatus 400++-- | You have exceeded the quota of snapshot schedules.+_SnapshotScheduleQuotaExceededFault :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_SnapshotScheduleQuotaExceededFault =+ Core._MatchServiceError+ defaultService+ "SnapshotScheduleQuotaExceeded"+ Prelude.. Core.hasStatus 400++-- | The specified snapshot schedule is already being updated.+_SnapshotScheduleUpdateInProgressFault :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_SnapshotScheduleUpdateInProgressFault =+ Core._MatchServiceError+ defaultService+ "SnapshotScheduleUpdateInProgress"+ Prelude.. Core.hasStatus 400++-- | The specified Amazon Redshift event source could not be found.+_SourceNotFoundFault :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_SourceNotFoundFault =+ Core._MatchServiceError+ defaultService+ "SourceNotFound"+ Prelude.. Core.hasStatus 404++-- | A specified subnet is already in use by another cluster.+_SubnetAlreadyInUse :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_SubnetAlreadyInUse =+ Core._MatchServiceError+ defaultService+ "SubnetAlreadyInUse"+ Prelude.. Core.hasStatus 400++-- | There is already an existing event notification subscription with the+-- specified name.+_SubscriptionAlreadyExistFault :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_SubscriptionAlreadyExistFault =+ Core._MatchServiceError+ defaultService+ "SubscriptionAlreadyExist"+ Prelude.. Core.hasStatus 400++-- | The value specified for the event category was not one of the allowed+-- values, or it specified a category that does not apply to the specified+-- source type. The allowed values are Configuration, Management,+-- Monitoring, and Security.+_SubscriptionCategoryNotFoundFault :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_SubscriptionCategoryNotFoundFault =+ Core._MatchServiceError+ defaultService+ "SubscriptionCategoryNotFound"+ Prelude.. Core.hasStatus 404++-- | An Amazon Redshift event with the specified event ID does not exist.+_SubscriptionEventIdNotFoundFault :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_SubscriptionEventIdNotFoundFault =+ Core._MatchServiceError+ defaultService+ "SubscriptionEventIdNotFound"+ Prelude.. Core.hasStatus 404++-- | An Amazon Redshift event notification subscription with the specified+-- name does not exist.+_SubscriptionNotFoundFault :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_SubscriptionNotFoundFault =+ Core._MatchServiceError+ defaultService+ "SubscriptionNotFound"+ Prelude.. Core.hasStatus 404++-- | The value specified for the event severity was not one of the allowed+-- values, or it specified a severity that does not apply to the specified+-- source type. The allowed values are ERROR and INFO.+_SubscriptionSeverityNotFoundFault :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_SubscriptionSeverityNotFoundFault =+ Core._MatchServiceError+ defaultService+ "SubscriptionSeverityNotFound"+ Prelude.. Core.hasStatus 404++-- | The number of tables in the cluster exceeds the limit for the requested+-- new cluster node type.+_TableLimitExceededFault :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_TableLimitExceededFault =+ Core._MatchServiceError+ defaultService+ "TableLimitExceeded"+ Prelude.. Core.hasStatus 400++-- | The specified @TableRestoreRequestId@ value was not found.+_TableRestoreNotFoundFault :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_TableRestoreNotFoundFault =+ Core._MatchServiceError+ defaultService+ "TableRestoreNotFoundFault"+ Prelude.. Core.hasStatus 400++-- | You have exceeded the number of tags allowed.+_TagLimitExceededFault :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_TagLimitExceededFault =+ Core._MatchServiceError+ defaultService+ "TagLimitExceededFault"+ Prelude.. Core.hasStatus 400++-- | Your account is not authorized to perform the requested operation.+_UnauthorizedOperation :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_UnauthorizedOperation =+ Core._MatchServiceError+ defaultService+ "UnauthorizedOperation"+ Prelude.. Core.hasStatus 400++-- | The partner integration is not authorized.+_UnauthorizedPartnerIntegrationFault :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_UnauthorizedPartnerIntegrationFault =+ Core._MatchServiceError+ defaultService+ "UnauthorizedPartnerIntegration"+ Prelude.. Core.hasStatus 401++-- | The specified region is incorrect or does not exist.+_UnknownSnapshotCopyRegionFault :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_UnknownSnapshotCopyRegionFault =+ Core._MatchServiceError+ defaultService+ "UnknownSnapshotCopyRegionFault"+ Prelude.. Core.hasStatus 404++-- | The requested operation isn\'t supported.+_UnsupportedOperationFault :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_UnsupportedOperationFault =+ Core._MatchServiceError+ defaultService+ "UnsupportedOperation"+ Prelude.. Core.hasStatus 400++-- | A request option was specified that is not supported.+_UnsupportedOptionFault :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_UnsupportedOptionFault =+ Core._MatchServiceError+ defaultService+ "UnsupportedOptionFault"+ Prelude.. Core.hasStatus 400++-- | The usage limit already exists.+_UsageLimitAlreadyExistsFault :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_UsageLimitAlreadyExistsFault =+ Core._MatchServiceError+ defaultService+ "UsageLimitAlreadyExists"+ Prelude.. Core.hasStatus 400++-- | The usage limit identifier can\'t be found.+_UsageLimitNotFoundFault :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_UsageLimitNotFoundFault =+ Core._MatchServiceError+ defaultService+ "UsageLimitNotFound"+ Prelude.. Core.hasStatus 404
+ gen/Amazonka/Redshift/Types/AccountAttribute.hs view
@@ -0,0 +1,86 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module : Amazonka.Redshift.Types.AccountAttribute+-- Copyright : (c) 2013-2023 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.Redshift.Types.AccountAttribute where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Redshift.Internal+import Amazonka.Redshift.Types.AttributeValueTarget++-- | A name value pair that describes an aspect of an account.+--+-- /See:/ 'newAccountAttribute' smart constructor.+data AccountAttribute = AccountAttribute'+ { -- | The name of the attribute.+ attributeName :: Prelude.Maybe Prelude.Text,+ -- | A list of attribute values.+ attributeValues :: Prelude.Maybe [AttributeValueTarget]+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'AccountAttribute' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'attributeName', 'accountAttribute_attributeName' - The name of the attribute.+--+-- 'attributeValues', 'accountAttribute_attributeValues' - A list of attribute values.+newAccountAttribute ::+ AccountAttribute+newAccountAttribute =+ AccountAttribute'+ { attributeName = Prelude.Nothing,+ attributeValues = Prelude.Nothing+ }++-- | The name of the attribute.+accountAttribute_attributeName :: Lens.Lens' AccountAttribute (Prelude.Maybe Prelude.Text)+accountAttribute_attributeName = Lens.lens (\AccountAttribute' {attributeName} -> attributeName) (\s@AccountAttribute' {} a -> s {attributeName = a} :: AccountAttribute)++-- | A list of attribute values.+accountAttribute_attributeValues :: Lens.Lens' AccountAttribute (Prelude.Maybe [AttributeValueTarget])+accountAttribute_attributeValues = Lens.lens (\AccountAttribute' {attributeValues} -> attributeValues) (\s@AccountAttribute' {} a -> s {attributeValues = a} :: AccountAttribute) Prelude.. Lens.mapping Lens.coerced++instance Data.FromXML AccountAttribute where+ parseXML x =+ AccountAttribute'+ Prelude.<$> (x Data..@? "AttributeName")+ Prelude.<*> ( x+ Data..@? "AttributeValues"+ Core..!@ Prelude.mempty+ Prelude.>>= Core.may (Data.parseXMLList "AttributeValueTarget")+ )++instance Prelude.Hashable AccountAttribute where+ hashWithSalt _salt AccountAttribute' {..} =+ _salt+ `Prelude.hashWithSalt` attributeName+ `Prelude.hashWithSalt` attributeValues++instance Prelude.NFData AccountAttribute where+ rnf AccountAttribute' {..} =+ Prelude.rnf attributeName+ `Prelude.seq` Prelude.rnf attributeValues
+ gen/Amazonka/Redshift/Types/AccountWithRestoreAccess.hs view
@@ -0,0 +1,92 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module : Amazonka.Redshift.Types.AccountWithRestoreAccess+-- Copyright : (c) 2013-2023 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.Redshift.Types.AccountWithRestoreAccess where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Redshift.Internal++-- | Describes an Amazon Web Services account authorized to restore a+-- snapshot.+--+-- /See:/ 'newAccountWithRestoreAccess' smart constructor.+data AccountWithRestoreAccess = AccountWithRestoreAccess'+ { -- | The identifier of an Amazon Web Services support account authorized to+ -- restore a snapshot. For Amazon Web Services Support, the identifier is+ -- @amazon-redshift-support@.+ accountAlias :: Prelude.Maybe Prelude.Text,+ -- | The identifier of an Amazon Web Services account authorized to restore a+ -- snapshot.+ accountId :: Prelude.Maybe Prelude.Text+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'AccountWithRestoreAccess' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'accountAlias', 'accountWithRestoreAccess_accountAlias' - The identifier of an Amazon Web Services support account authorized to+-- restore a snapshot. For Amazon Web Services Support, the identifier is+-- @amazon-redshift-support@.+--+-- 'accountId', 'accountWithRestoreAccess_accountId' - The identifier of an Amazon Web Services account authorized to restore a+-- snapshot.+newAccountWithRestoreAccess ::+ AccountWithRestoreAccess+newAccountWithRestoreAccess =+ AccountWithRestoreAccess'+ { accountAlias =+ Prelude.Nothing,+ accountId = Prelude.Nothing+ }++-- | The identifier of an Amazon Web Services support account authorized to+-- restore a snapshot. For Amazon Web Services Support, the identifier is+-- @amazon-redshift-support@.+accountWithRestoreAccess_accountAlias :: Lens.Lens' AccountWithRestoreAccess (Prelude.Maybe Prelude.Text)+accountWithRestoreAccess_accountAlias = Lens.lens (\AccountWithRestoreAccess' {accountAlias} -> accountAlias) (\s@AccountWithRestoreAccess' {} a -> s {accountAlias = a} :: AccountWithRestoreAccess)++-- | The identifier of an Amazon Web Services account authorized to restore a+-- snapshot.+accountWithRestoreAccess_accountId :: Lens.Lens' AccountWithRestoreAccess (Prelude.Maybe Prelude.Text)+accountWithRestoreAccess_accountId = Lens.lens (\AccountWithRestoreAccess' {accountId} -> accountId) (\s@AccountWithRestoreAccess' {} a -> s {accountId = a} :: AccountWithRestoreAccess)++instance Data.FromXML AccountWithRestoreAccess where+ parseXML x =+ AccountWithRestoreAccess'+ Prelude.<$> (x Data..@? "AccountAlias")+ Prelude.<*> (x Data..@? "AccountId")++instance Prelude.Hashable AccountWithRestoreAccess where+ hashWithSalt _salt AccountWithRestoreAccess' {..} =+ _salt+ `Prelude.hashWithSalt` accountAlias+ `Prelude.hashWithSalt` accountId++instance Prelude.NFData AccountWithRestoreAccess where+ rnf AccountWithRestoreAccess' {..} =+ Prelude.rnf accountAlias+ `Prelude.seq` Prelude.rnf accountId
+ gen/Amazonka/Redshift/Types/ActionType.hs view
@@ -0,0 +1,77 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE GeneralizedNewtypeDeriving #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module : Amazonka.Redshift.Types.ActionType+-- Copyright : (c) 2013-2023 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.Redshift.Types.ActionType+ ( ActionType+ ( ..,+ ActionType_Recommend_node_config,+ ActionType_Resize_cluster,+ ActionType_Restore_cluster+ ),+ )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Redshift.Internal++newtype ActionType = ActionType'+ { fromActionType ::+ Data.Text+ }+ deriving stock+ ( Prelude.Show,+ Prelude.Read,+ Prelude.Eq,+ Prelude.Ord,+ Prelude.Generic+ )+ deriving newtype+ ( Prelude.Hashable,+ Prelude.NFData,+ Data.FromText,+ Data.ToText,+ Data.ToByteString,+ Data.ToLog,+ Data.ToHeader,+ Data.ToQuery,+ Data.FromJSON,+ Data.FromJSONKey,+ Data.ToJSON,+ Data.ToJSONKey,+ Data.FromXML,+ Data.ToXML+ )++pattern ActionType_Recommend_node_config :: ActionType+pattern ActionType_Recommend_node_config = ActionType' "recommend-node-config"++pattern ActionType_Resize_cluster :: ActionType+pattern ActionType_Resize_cluster = ActionType' "resize-cluster"++pattern ActionType_Restore_cluster :: ActionType+pattern ActionType_Restore_cluster = ActionType' "restore-cluster"++{-# COMPLETE+ ActionType_Recommend_node_config,+ ActionType_Resize_cluster,+ ActionType_Restore_cluster,+ ActionType'+ #-}
+ gen/Amazonka/Redshift/Types/AquaConfiguration.hs view
@@ -0,0 +1,92 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module : Amazonka.Redshift.Types.AquaConfiguration+-- Copyright : (c) 2013-2023 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.Redshift.Types.AquaConfiguration where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Redshift.Internal+import Amazonka.Redshift.Types.AquaConfigurationStatus+import Amazonka.Redshift.Types.AquaStatus++-- | The operation that uses this structure is retired. Amazon Redshift+-- automatically determines whether to use AQUA (Advanced Query+-- Accelerator).+--+-- /See:/ 'newAquaConfiguration' smart constructor.+data AquaConfiguration = AquaConfiguration'+ { -- | This field is retired. Amazon Redshift automatically determines whether+ -- to use AQUA (Advanced Query Accelerator).+ aquaConfigurationStatus :: Prelude.Maybe AquaConfigurationStatus,+ -- | This field is retired. Amazon Redshift automatically determines whether+ -- to use AQUA (Advanced Query Accelerator).+ aquaStatus :: Prelude.Maybe AquaStatus+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'AquaConfiguration' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'aquaConfigurationStatus', 'aquaConfiguration_aquaConfigurationStatus' - This field is retired. Amazon Redshift automatically determines whether+-- to use AQUA (Advanced Query Accelerator).+--+-- 'aquaStatus', 'aquaConfiguration_aquaStatus' - This field is retired. Amazon Redshift automatically determines whether+-- to use AQUA (Advanced Query Accelerator).+newAquaConfiguration ::+ AquaConfiguration+newAquaConfiguration =+ AquaConfiguration'+ { aquaConfigurationStatus =+ Prelude.Nothing,+ aquaStatus = Prelude.Nothing+ }++-- | This field is retired. Amazon Redshift automatically determines whether+-- to use AQUA (Advanced Query Accelerator).+aquaConfiguration_aquaConfigurationStatus :: Lens.Lens' AquaConfiguration (Prelude.Maybe AquaConfigurationStatus)+aquaConfiguration_aquaConfigurationStatus = Lens.lens (\AquaConfiguration' {aquaConfigurationStatus} -> aquaConfigurationStatus) (\s@AquaConfiguration' {} a -> s {aquaConfigurationStatus = a} :: AquaConfiguration)++-- | This field is retired. Amazon Redshift automatically determines whether+-- to use AQUA (Advanced Query Accelerator).+aquaConfiguration_aquaStatus :: Lens.Lens' AquaConfiguration (Prelude.Maybe AquaStatus)+aquaConfiguration_aquaStatus = Lens.lens (\AquaConfiguration' {aquaStatus} -> aquaStatus) (\s@AquaConfiguration' {} a -> s {aquaStatus = a} :: AquaConfiguration)++instance Data.FromXML AquaConfiguration where+ parseXML x =+ AquaConfiguration'+ Prelude.<$> (x Data..@? "AquaConfigurationStatus")+ Prelude.<*> (x Data..@? "AquaStatus")++instance Prelude.Hashable AquaConfiguration where+ hashWithSalt _salt AquaConfiguration' {..} =+ _salt+ `Prelude.hashWithSalt` aquaConfigurationStatus+ `Prelude.hashWithSalt` aquaStatus++instance Prelude.NFData AquaConfiguration where+ rnf AquaConfiguration' {..} =+ Prelude.rnf aquaConfigurationStatus+ `Prelude.seq` Prelude.rnf aquaStatus
+ gen/Amazonka/Redshift/Types/AquaConfigurationStatus.hs view
@@ -0,0 +1,77 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE GeneralizedNewtypeDeriving #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module : Amazonka.Redshift.Types.AquaConfigurationStatus+-- Copyright : (c) 2013-2023 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.Redshift.Types.AquaConfigurationStatus+ ( AquaConfigurationStatus+ ( ..,+ AquaConfigurationStatus_Auto,+ AquaConfigurationStatus_Disabled,+ AquaConfigurationStatus_Enabled+ ),+ )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Redshift.Internal++newtype AquaConfigurationStatus = AquaConfigurationStatus'+ { fromAquaConfigurationStatus ::+ Data.Text+ }+ deriving stock+ ( Prelude.Show,+ Prelude.Read,+ Prelude.Eq,+ Prelude.Ord,+ Prelude.Generic+ )+ deriving newtype+ ( Prelude.Hashable,+ Prelude.NFData,+ Data.FromText,+ Data.ToText,+ Data.ToByteString,+ Data.ToLog,+ Data.ToHeader,+ Data.ToQuery,+ Data.FromJSON,+ Data.FromJSONKey,+ Data.ToJSON,+ Data.ToJSONKey,+ Data.FromXML,+ Data.ToXML+ )++pattern AquaConfigurationStatus_Auto :: AquaConfigurationStatus+pattern AquaConfigurationStatus_Auto = AquaConfigurationStatus' "auto"++pattern AquaConfigurationStatus_Disabled :: AquaConfigurationStatus+pattern AquaConfigurationStatus_Disabled = AquaConfigurationStatus' "disabled"++pattern AquaConfigurationStatus_Enabled :: AquaConfigurationStatus+pattern AquaConfigurationStatus_Enabled = AquaConfigurationStatus' "enabled"++{-# COMPLETE+ AquaConfigurationStatus_Auto,+ AquaConfigurationStatus_Disabled,+ AquaConfigurationStatus_Enabled,+ AquaConfigurationStatus'+ #-}
+ gen/Amazonka/Redshift/Types/AquaStatus.hs view
@@ -0,0 +1,77 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE GeneralizedNewtypeDeriving #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module : Amazonka.Redshift.Types.AquaStatus+-- Copyright : (c) 2013-2023 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.Redshift.Types.AquaStatus+ ( AquaStatus+ ( ..,+ AquaStatus_Applying,+ AquaStatus_Disabled,+ AquaStatus_Enabled+ ),+ )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Redshift.Internal++newtype AquaStatus = AquaStatus'+ { fromAquaStatus ::+ Data.Text+ }+ deriving stock+ ( Prelude.Show,+ Prelude.Read,+ Prelude.Eq,+ Prelude.Ord,+ Prelude.Generic+ )+ deriving newtype+ ( Prelude.Hashable,+ Prelude.NFData,+ Data.FromText,+ Data.ToText,+ Data.ToByteString,+ Data.ToLog,+ Data.ToHeader,+ Data.ToQuery,+ Data.FromJSON,+ Data.FromJSONKey,+ Data.ToJSON,+ Data.ToJSONKey,+ Data.FromXML,+ Data.ToXML+ )++pattern AquaStatus_Applying :: AquaStatus+pattern AquaStatus_Applying = AquaStatus' "applying"++pattern AquaStatus_Disabled :: AquaStatus+pattern AquaStatus_Disabled = AquaStatus' "disabled"++pattern AquaStatus_Enabled :: AquaStatus+pattern AquaStatus_Enabled = AquaStatus' "enabled"++{-# COMPLETE+ AquaStatus_Applying,+ AquaStatus_Disabled,+ AquaStatus_Enabled,+ AquaStatus'+ #-}
+ gen/Amazonka/Redshift/Types/AttributeValueTarget.hs view
@@ -0,0 +1,69 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module : Amazonka.Redshift.Types.AttributeValueTarget+-- Copyright : (c) 2013-2023 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.Redshift.Types.AttributeValueTarget where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Redshift.Internal++-- | Describes an attribute value.+--+-- /See:/ 'newAttributeValueTarget' smart constructor.+data AttributeValueTarget = AttributeValueTarget'+ { -- | The value of the attribute.+ attributeValue :: Prelude.Maybe Prelude.Text+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'AttributeValueTarget' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'attributeValue', 'attributeValueTarget_attributeValue' - The value of the attribute.+newAttributeValueTarget ::+ AttributeValueTarget+newAttributeValueTarget =+ AttributeValueTarget'+ { attributeValue =+ Prelude.Nothing+ }++-- | The value of the attribute.+attributeValueTarget_attributeValue :: Lens.Lens' AttributeValueTarget (Prelude.Maybe Prelude.Text)+attributeValueTarget_attributeValue = Lens.lens (\AttributeValueTarget' {attributeValue} -> attributeValue) (\s@AttributeValueTarget' {} a -> s {attributeValue = a} :: AttributeValueTarget)++instance Data.FromXML AttributeValueTarget where+ parseXML x =+ AttributeValueTarget'+ Prelude.<$> (x Data..@? "AttributeValue")++instance Prelude.Hashable AttributeValueTarget where+ hashWithSalt _salt AttributeValueTarget' {..} =+ _salt `Prelude.hashWithSalt` attributeValue++instance Prelude.NFData AttributeValueTarget where+ rnf AttributeValueTarget' {..} =+ Prelude.rnf attributeValue
+ gen/Amazonka/Redshift/Types/AuthenticationProfile.hs view
@@ -0,0 +1,85 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module : Amazonka.Redshift.Types.AuthenticationProfile+-- Copyright : (c) 2013-2023 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.Redshift.Types.AuthenticationProfile where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Redshift.Internal++-- | Describes an authentication profile.+--+-- /See:/ 'newAuthenticationProfile' smart constructor.+data AuthenticationProfile = AuthenticationProfile'+ { -- | The content of the authentication profile in JSON format. The maximum+ -- length of the JSON string is determined by a quota for your account.+ authenticationProfileContent :: Prelude.Maybe Prelude.Text,+ -- | The name of the authentication profile.+ authenticationProfileName :: Prelude.Maybe Prelude.Text+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'AuthenticationProfile' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'authenticationProfileContent', 'authenticationProfile_authenticationProfileContent' - The content of the authentication profile in JSON format. The maximum+-- length of the JSON string is determined by a quota for your account.+--+-- 'authenticationProfileName', 'authenticationProfile_authenticationProfileName' - The name of the authentication profile.+newAuthenticationProfile ::+ AuthenticationProfile+newAuthenticationProfile =+ AuthenticationProfile'+ { authenticationProfileContent =+ Prelude.Nothing,+ authenticationProfileName = Prelude.Nothing+ }++-- | The content of the authentication profile in JSON format. The maximum+-- length of the JSON string is determined by a quota for your account.+authenticationProfile_authenticationProfileContent :: Lens.Lens' AuthenticationProfile (Prelude.Maybe Prelude.Text)+authenticationProfile_authenticationProfileContent = Lens.lens (\AuthenticationProfile' {authenticationProfileContent} -> authenticationProfileContent) (\s@AuthenticationProfile' {} a -> s {authenticationProfileContent = a} :: AuthenticationProfile)++-- | The name of the authentication profile.+authenticationProfile_authenticationProfileName :: Lens.Lens' AuthenticationProfile (Prelude.Maybe Prelude.Text)+authenticationProfile_authenticationProfileName = Lens.lens (\AuthenticationProfile' {authenticationProfileName} -> authenticationProfileName) (\s@AuthenticationProfile' {} a -> s {authenticationProfileName = a} :: AuthenticationProfile)++instance Data.FromXML AuthenticationProfile where+ parseXML x =+ AuthenticationProfile'+ Prelude.<$> (x Data..@? "AuthenticationProfileContent")+ Prelude.<*> (x Data..@? "AuthenticationProfileName")++instance Prelude.Hashable AuthenticationProfile where+ hashWithSalt _salt AuthenticationProfile' {..} =+ _salt+ `Prelude.hashWithSalt` authenticationProfileContent+ `Prelude.hashWithSalt` authenticationProfileName++instance Prelude.NFData AuthenticationProfile where+ rnf AuthenticationProfile' {..} =+ Prelude.rnf authenticationProfileContent+ `Prelude.seq` Prelude.rnf authenticationProfileName
+ gen/Amazonka/Redshift/Types/AuthorizationStatus.hs view
@@ -0,0 +1,72 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE GeneralizedNewtypeDeriving #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module : Amazonka.Redshift.Types.AuthorizationStatus+-- Copyright : (c) 2013-2023 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.Redshift.Types.AuthorizationStatus+ ( AuthorizationStatus+ ( ..,+ AuthorizationStatus_Authorized,+ AuthorizationStatus_Revoking+ ),+ )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Redshift.Internal++newtype AuthorizationStatus = AuthorizationStatus'+ { fromAuthorizationStatus ::+ Data.Text+ }+ deriving stock+ ( Prelude.Show,+ Prelude.Read,+ Prelude.Eq,+ Prelude.Ord,+ Prelude.Generic+ )+ deriving newtype+ ( Prelude.Hashable,+ Prelude.NFData,+ Data.FromText,+ Data.ToText,+ Data.ToByteString,+ Data.ToLog,+ Data.ToHeader,+ Data.ToQuery,+ Data.FromJSON,+ Data.FromJSONKey,+ Data.ToJSON,+ Data.ToJSONKey,+ Data.FromXML,+ Data.ToXML+ )++pattern AuthorizationStatus_Authorized :: AuthorizationStatus+pattern AuthorizationStatus_Authorized = AuthorizationStatus' "Authorized"++pattern AuthorizationStatus_Revoking :: AuthorizationStatus+pattern AuthorizationStatus_Revoking = AuthorizationStatus' "Revoking"++{-# COMPLETE+ AuthorizationStatus_Authorized,+ AuthorizationStatus_Revoking,+ AuthorizationStatus'+ #-}
+ gen/Amazonka/Redshift/Types/AvailabilityZone.hs view
@@ -0,0 +1,84 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module : Amazonka.Redshift.Types.AvailabilityZone+-- Copyright : (c) 2013-2023 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.Redshift.Types.AvailabilityZone where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Redshift.Internal+import Amazonka.Redshift.Types.SupportedPlatform++-- | Describes an availability zone.+--+-- /See:/ 'newAvailabilityZone' smart constructor.+data AvailabilityZone = AvailabilityZone'+ { -- | The name of the availability zone.+ name :: Prelude.Maybe Prelude.Text,+ supportedPlatforms :: Prelude.Maybe [SupportedPlatform]+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'AvailabilityZone' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'name', 'availabilityZone_name' - The name of the availability zone.+--+-- 'supportedPlatforms', 'availabilityZone_supportedPlatforms' -+newAvailabilityZone ::+ AvailabilityZone+newAvailabilityZone =+ AvailabilityZone'+ { name = Prelude.Nothing,+ supportedPlatforms = Prelude.Nothing+ }++-- | The name of the availability zone.+availabilityZone_name :: Lens.Lens' AvailabilityZone (Prelude.Maybe Prelude.Text)+availabilityZone_name = Lens.lens (\AvailabilityZone' {name} -> name) (\s@AvailabilityZone' {} a -> s {name = a} :: AvailabilityZone)++availabilityZone_supportedPlatforms :: Lens.Lens' AvailabilityZone (Prelude.Maybe [SupportedPlatform])+availabilityZone_supportedPlatforms = Lens.lens (\AvailabilityZone' {supportedPlatforms} -> supportedPlatforms) (\s@AvailabilityZone' {} a -> s {supportedPlatforms = a} :: AvailabilityZone) Prelude.. Lens.mapping Lens.coerced++instance Data.FromXML AvailabilityZone where+ parseXML x =+ AvailabilityZone'+ Prelude.<$> (x Data..@? "Name")+ Prelude.<*> ( x+ Data..@? "SupportedPlatforms"+ Core..!@ Prelude.mempty+ Prelude.>>= Core.may (Data.parseXMLList "SupportedPlatform")+ )++instance Prelude.Hashable AvailabilityZone where+ hashWithSalt _salt AvailabilityZone' {..} =+ _salt+ `Prelude.hashWithSalt` name+ `Prelude.hashWithSalt` supportedPlatforms++instance Prelude.NFData AvailabilityZone where+ rnf AvailabilityZone' {..} =+ Prelude.rnf name+ `Prelude.seq` Prelude.rnf supportedPlatforms
+ gen/Amazonka/Redshift/Types/Cluster.hs view
@@ -0,0 +1,1103 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module : Amazonka.Redshift.Types.Cluster+-- Copyright : (c) 2013-2023 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.Redshift.Types.Cluster where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Redshift.Internal+import Amazonka.Redshift.Types.AquaConfiguration+import Amazonka.Redshift.Types.ClusterIamRole+import Amazonka.Redshift.Types.ClusterNode+import Amazonka.Redshift.Types.ClusterParameterGroupStatus+import Amazonka.Redshift.Types.ClusterSecurityGroupMembership+import Amazonka.Redshift.Types.ClusterSnapshotCopyStatus+import Amazonka.Redshift.Types.DataTransferProgress+import Amazonka.Redshift.Types.DeferredMaintenanceWindow+import Amazonka.Redshift.Types.ElasticIpStatus+import Amazonka.Redshift.Types.Endpoint+import Amazonka.Redshift.Types.HsmStatus+import Amazonka.Redshift.Types.PendingModifiedValues+import Amazonka.Redshift.Types.ReservedNodeExchangeStatus+import Amazonka.Redshift.Types.ResizeInfo+import Amazonka.Redshift.Types.RestoreStatus+import Amazonka.Redshift.Types.ScheduleState+import Amazonka.Redshift.Types.Tag+import Amazonka.Redshift.Types.VpcSecurityGroupMembership++-- | Describes a cluster.+--+-- /See:/ 'newCluster' smart constructor.+data Cluster = Cluster'+ { -- | A boolean value that, if @true@, indicates that major version upgrades+ -- will be applied automatically to the cluster during the maintenance+ -- window.+ allowVersionUpgrade :: Prelude.Maybe Prelude.Bool,+ -- | This field is retired. Amazon Redshift automatically determines whether+ -- to use AQUA (Advanced Query Accelerator).+ aquaConfiguration :: Prelude.Maybe AquaConfiguration,+ -- | The number of days that automatic cluster snapshots are retained.+ automatedSnapshotRetentionPeriod :: Prelude.Maybe Prelude.Int,+ -- | The name of the Availability Zone in which the cluster is located.+ availabilityZone :: Prelude.Maybe Prelude.Text,+ -- | Describes the status of the Availability Zone relocation operation.+ availabilityZoneRelocationStatus :: Prelude.Maybe Prelude.Text,+ -- | The availability status of the cluster for queries. Possible values are+ -- the following:+ --+ -- - Available - The cluster is available for queries.+ --+ -- - Unavailable - The cluster is not available for queries.+ --+ -- - Maintenance - The cluster is intermittently available for queries+ -- due to maintenance activities.+ --+ -- - Modifying - The cluster is intermittently available for queries due+ -- to changes that modify the cluster.+ --+ -- - Failed - The cluster failed and is not available for queries.+ clusterAvailabilityStatus :: Prelude.Maybe Prelude.Text,+ -- | The date and time that the cluster was created.+ clusterCreateTime :: Prelude.Maybe Data.ISO8601,+ -- | The unique identifier of the cluster.+ clusterIdentifier :: Prelude.Maybe Prelude.Text,+ -- | The namespace Amazon Resource Name (ARN) of the cluster.+ clusterNamespaceArn :: Prelude.Maybe Prelude.Text,+ -- | The nodes in the cluster.+ clusterNodes :: Prelude.Maybe [ClusterNode],+ -- | The list of cluster parameter groups that are associated with this+ -- cluster. Each parameter group in the list is returned with its status.+ clusterParameterGroups :: Prelude.Maybe [ClusterParameterGroupStatus],+ -- | The public key for the cluster.+ clusterPublicKey :: Prelude.Maybe Prelude.Text,+ -- | The specific revision number of the database in the cluster.+ clusterRevisionNumber :: Prelude.Maybe Prelude.Text,+ -- | A list of cluster security group that are associated with the cluster.+ -- Each security group is represented by an element that contains+ -- @ClusterSecurityGroup.Name@ and @ClusterSecurityGroup.Status@+ -- subelements.+ --+ -- Cluster security groups are used when the cluster is not created in an+ -- Amazon Virtual Private Cloud (VPC). Clusters that are created in a VPC+ -- use VPC security groups, which are listed by the __VpcSecurityGroups__+ -- parameter.+ clusterSecurityGroups :: Prelude.Maybe [ClusterSecurityGroupMembership],+ -- | A value that returns the destination region and retention period that+ -- are configured for cross-region snapshot copy.+ clusterSnapshotCopyStatus :: Prelude.Maybe ClusterSnapshotCopyStatus,+ -- | The current state of the cluster. Possible values are the following:+ --+ -- - @available@+ --+ -- - @available, prep-for-resize@+ --+ -- - @available, resize-cleanup@+ --+ -- - @cancelling-resize@+ --+ -- - @creating@+ --+ -- - @deleting@+ --+ -- - @final-snapshot@+ --+ -- - @hardware-failure@+ --+ -- - @incompatible-hsm@+ --+ -- - @incompatible-network@+ --+ -- - @incompatible-parameters@+ --+ -- - @incompatible-restore@+ --+ -- - @modifying@+ --+ -- - @paused@+ --+ -- - @rebooting@+ --+ -- - @renaming@+ --+ -- - @resizing@+ --+ -- - @rotating-keys@+ --+ -- - @storage-full@+ --+ -- - @updating-hsm@+ clusterStatus :: Prelude.Maybe Prelude.Text,+ -- | The name of the subnet group that is associated with the cluster. This+ -- parameter is valid only when the cluster is in a VPC.+ clusterSubnetGroupName :: Prelude.Maybe Prelude.Text,+ -- | The version ID of the Amazon Redshift engine that is running on the+ -- cluster.+ clusterVersion :: Prelude.Maybe Prelude.Text,+ -- | The name of the initial database that was created when the cluster was+ -- created. This same name is returned for the life of the cluster. If an+ -- initial database was not specified, a database named @dev@dev was+ -- created by default.+ dbName :: Prelude.Maybe Prelude.Text,+ dataTransferProgress :: Prelude.Maybe DataTransferProgress,+ -- | The Amazon Resource Name (ARN) for the IAM role set as default for the+ -- cluster.+ defaultIamRoleArn :: Prelude.Maybe Prelude.Text,+ -- | Describes a group of @DeferredMaintenanceWindow@ objects.+ deferredMaintenanceWindows :: Prelude.Maybe [DeferredMaintenanceWindow],+ -- | The status of the elastic IP (EIP) address.+ elasticIpStatus :: Prelude.Maybe ElasticIpStatus,+ -- | The number of nodes that you can resize the cluster to with the elastic+ -- resize method.+ elasticResizeNumberOfNodeOptions :: Prelude.Maybe Prelude.Text,+ -- | A boolean value that, if @true@, indicates that data in the cluster is+ -- encrypted at rest.+ encrypted :: Prelude.Maybe Prelude.Bool,+ -- | The connection endpoint.+ endpoint :: Prelude.Maybe Endpoint,+ -- | An option that specifies whether to create the cluster with enhanced VPC+ -- routing enabled. To create a cluster that uses enhanced VPC routing, the+ -- cluster must be in a VPC. For more information, see+ -- <https://docs.aws.amazon.com/redshift/latest/mgmt/enhanced-vpc-routing.html Enhanced VPC Routing>+ -- in the Amazon Redshift Cluster Management Guide.+ --+ -- If this option is @true@, enhanced VPC routing is enabled.+ --+ -- Default: false+ enhancedVpcRouting :: Prelude.Maybe Prelude.Bool,+ -- | The date and time when the next snapshot is expected to be taken for+ -- clusters with a valid snapshot schedule and backups enabled.+ expectedNextSnapshotScheduleTime :: Prelude.Maybe Data.ISO8601,+ -- | The status of next expected snapshot for clusters having a valid+ -- snapshot schedule and backups enabled. Possible values are the+ -- following:+ --+ -- - OnTrack - The next snapshot is expected to be taken on time.+ --+ -- - Pending - The next snapshot is pending to be taken.+ expectedNextSnapshotScheduleTimeStatus :: Prelude.Maybe Prelude.Text,+ -- | A value that reports whether the Amazon Redshift cluster has finished+ -- applying any hardware security module (HSM) settings changes specified+ -- in a modify cluster command.+ --+ -- Values: active, applying+ hsmStatus :: Prelude.Maybe HsmStatus,+ -- | A list of Identity and Access Management (IAM) roles that can be used by+ -- the cluster to access other Amazon Web Services services.+ iamRoles :: Prelude.Maybe [ClusterIamRole],+ -- | The Key Management Service (KMS) key ID of the encryption key used to+ -- encrypt data in the cluster.+ kmsKeyId :: Prelude.Maybe Prelude.Text,+ -- | The name of the maintenance track for the cluster.+ maintenanceTrackName :: Prelude.Maybe Prelude.Text,+ -- | The default number of days to retain a manual snapshot. If the value is+ -- -1, the snapshot is retained indefinitely. This setting doesn\'t change+ -- the retention period of existing snapshots.+ --+ -- The value must be either -1 or an integer between 1 and 3,653.+ manualSnapshotRetentionPeriod :: Prelude.Maybe Prelude.Int,+ -- | The admin user name for the cluster. This name is used to connect to the+ -- database that is specified in the __DBName__ parameter.+ masterUsername :: Prelude.Maybe Prelude.Text,+ -- | The status of a modify operation, if any, initiated for the cluster.+ modifyStatus :: Prelude.Maybe Prelude.Text,+ -- | The date and time in UTC when system maintenance can begin.+ nextMaintenanceWindowStartTime :: Prelude.Maybe Data.ISO8601,+ -- | The node type for the nodes in the cluster.+ nodeType :: Prelude.Maybe Prelude.Text,+ -- | The number of compute nodes in the cluster.+ numberOfNodes :: Prelude.Maybe Prelude.Int,+ -- | Cluster operations that are waiting to be started.+ pendingActions :: Prelude.Maybe [Prelude.Text],+ -- | A value that, if present, indicates that changes to the cluster are+ -- pending. Specific pending changes are identified by subelements.+ pendingModifiedValues :: Prelude.Maybe PendingModifiedValues,+ -- | The weekly time range, in Universal Coordinated Time (UTC), during which+ -- system maintenance can occur.+ preferredMaintenanceWindow :: Prelude.Maybe Prelude.Text,+ -- | A boolean value that, if @true@, indicates that the cluster can be+ -- accessed from a public network.+ publiclyAccessible :: Prelude.Maybe Prelude.Bool,+ -- | The status of the reserved-node exchange request. Statuses include+ -- in-progress and requested.+ reservedNodeExchangeStatus :: Prelude.Maybe ReservedNodeExchangeStatus,+ -- | Returns the following:+ --+ -- - AllowCancelResize: a boolean value indicating if the resize+ -- operation can be cancelled.+ --+ -- - ResizeType: Returns ClassicResize+ resizeInfo :: Prelude.Maybe ResizeInfo,+ -- | A value that describes the status of a cluster restore action. This+ -- parameter returns null if the cluster was not created by restoring a+ -- snapshot.+ restoreStatus :: Prelude.Maybe RestoreStatus,+ -- | A unique identifier for the cluster snapshot schedule.+ snapshotScheduleIdentifier :: Prelude.Maybe Prelude.Text,+ -- | The current state of the cluster snapshot schedule.+ snapshotScheduleState :: Prelude.Maybe ScheduleState,+ -- | The list of tags for the cluster.+ tags :: Prelude.Maybe [Tag],+ -- | The total storage capacity of the cluster in megabytes.+ totalStorageCapacityInMegaBytes :: Prelude.Maybe Prelude.Integer,+ -- | The identifier of the VPC the cluster is in, if the cluster is in a VPC.+ vpcId :: Prelude.Maybe Prelude.Text,+ -- | A list of Amazon Virtual Private Cloud (Amazon VPC) security groups that+ -- are associated with the cluster. This parameter is returned only if the+ -- cluster is in a VPC.+ vpcSecurityGroups :: Prelude.Maybe [VpcSecurityGroupMembership]+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'Cluster' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'allowVersionUpgrade', 'cluster_allowVersionUpgrade' - A boolean value that, if @true@, indicates that major version upgrades+-- will be applied automatically to the cluster during the maintenance+-- window.+--+-- 'aquaConfiguration', 'cluster_aquaConfiguration' - This field is retired. Amazon Redshift automatically determines whether+-- to use AQUA (Advanced Query Accelerator).+--+-- 'automatedSnapshotRetentionPeriod', 'cluster_automatedSnapshotRetentionPeriod' - The number of days that automatic cluster snapshots are retained.+--+-- 'availabilityZone', 'cluster_availabilityZone' - The name of the Availability Zone in which the cluster is located.+--+-- 'availabilityZoneRelocationStatus', 'cluster_availabilityZoneRelocationStatus' - Describes the status of the Availability Zone relocation operation.+--+-- 'clusterAvailabilityStatus', 'cluster_clusterAvailabilityStatus' - The availability status of the cluster for queries. Possible values are+-- the following:+--+-- - Available - The cluster is available for queries.+--+-- - Unavailable - The cluster is not available for queries.+--+-- - Maintenance - The cluster is intermittently available for queries+-- due to maintenance activities.+--+-- - Modifying - The cluster is intermittently available for queries due+-- to changes that modify the cluster.+--+-- - Failed - The cluster failed and is not available for queries.+--+-- 'clusterCreateTime', 'cluster_clusterCreateTime' - The date and time that the cluster was created.+--+-- 'clusterIdentifier', 'cluster_clusterIdentifier' - The unique identifier of the cluster.+--+-- 'clusterNamespaceArn', 'cluster_clusterNamespaceArn' - The namespace Amazon Resource Name (ARN) of the cluster.+--+-- 'clusterNodes', 'cluster_clusterNodes' - The nodes in the cluster.+--+-- 'clusterParameterGroups', 'cluster_clusterParameterGroups' - The list of cluster parameter groups that are associated with this+-- cluster. Each parameter group in the list is returned with its status.+--+-- 'clusterPublicKey', 'cluster_clusterPublicKey' - The public key for the cluster.+--+-- 'clusterRevisionNumber', 'cluster_clusterRevisionNumber' - The specific revision number of the database in the cluster.+--+-- 'clusterSecurityGroups', 'cluster_clusterSecurityGroups' - A list of cluster security group that are associated with the cluster.+-- Each security group is represented by an element that contains+-- @ClusterSecurityGroup.Name@ and @ClusterSecurityGroup.Status@+-- subelements.+--+-- Cluster security groups are used when the cluster is not created in an+-- Amazon Virtual Private Cloud (VPC). Clusters that are created in a VPC+-- use VPC security groups, which are listed by the __VpcSecurityGroups__+-- parameter.+--+-- 'clusterSnapshotCopyStatus', 'cluster_clusterSnapshotCopyStatus' - A value that returns the destination region and retention period that+-- are configured for cross-region snapshot copy.+--+-- 'clusterStatus', 'cluster_clusterStatus' - The current state of the cluster. Possible values are the following:+--+-- - @available@+--+-- - @available, prep-for-resize@+--+-- - @available, resize-cleanup@+--+-- - @cancelling-resize@+--+-- - @creating@+--+-- - @deleting@+--+-- - @final-snapshot@+--+-- - @hardware-failure@+--+-- - @incompatible-hsm@+--+-- - @incompatible-network@+--+-- - @incompatible-parameters@+--+-- - @incompatible-restore@+--+-- - @modifying@+--+-- - @paused@+--+-- - @rebooting@+--+-- - @renaming@+--+-- - @resizing@+--+-- - @rotating-keys@+--+-- - @storage-full@+--+-- - @updating-hsm@+--+-- 'clusterSubnetGroupName', 'cluster_clusterSubnetGroupName' - The name of the subnet group that is associated with the cluster. This+-- parameter is valid only when the cluster is in a VPC.+--+-- 'clusterVersion', 'cluster_clusterVersion' - The version ID of the Amazon Redshift engine that is running on the+-- cluster.+--+-- 'dbName', 'cluster_dbName' - The name of the initial database that was created when the cluster was+-- created. This same name is returned for the life of the cluster. If an+-- initial database was not specified, a database named @dev@dev was+-- created by default.+--+-- 'dataTransferProgress', 'cluster_dataTransferProgress' -+--+-- 'defaultIamRoleArn', 'cluster_defaultIamRoleArn' - The Amazon Resource Name (ARN) for the IAM role set as default for the+-- cluster.+--+-- 'deferredMaintenanceWindows', 'cluster_deferredMaintenanceWindows' - Describes a group of @DeferredMaintenanceWindow@ objects.+--+-- 'elasticIpStatus', 'cluster_elasticIpStatus' - The status of the elastic IP (EIP) address.+--+-- 'elasticResizeNumberOfNodeOptions', 'cluster_elasticResizeNumberOfNodeOptions' - The number of nodes that you can resize the cluster to with the elastic+-- resize method.+--+-- 'encrypted', 'cluster_encrypted' - A boolean value that, if @true@, indicates that data in the cluster is+-- encrypted at rest.+--+-- 'endpoint', 'cluster_endpoint' - The connection endpoint.+--+-- 'enhancedVpcRouting', 'cluster_enhancedVpcRouting' - An option that specifies whether to create the cluster with enhanced VPC+-- routing enabled. To create a cluster that uses enhanced VPC routing, the+-- cluster must be in a VPC. For more information, see+-- <https://docs.aws.amazon.com/redshift/latest/mgmt/enhanced-vpc-routing.html Enhanced VPC Routing>+-- in the Amazon Redshift Cluster Management Guide.+--+-- If this option is @true@, enhanced VPC routing is enabled.+--+-- Default: false+--+-- 'expectedNextSnapshotScheduleTime', 'cluster_expectedNextSnapshotScheduleTime' - The date and time when the next snapshot is expected to be taken for+-- clusters with a valid snapshot schedule and backups enabled.+--+-- 'expectedNextSnapshotScheduleTimeStatus', 'cluster_expectedNextSnapshotScheduleTimeStatus' - The status of next expected snapshot for clusters having a valid+-- snapshot schedule and backups enabled. Possible values are the+-- following:+--+-- - OnTrack - The next snapshot is expected to be taken on time.+--+-- - Pending - The next snapshot is pending to be taken.+--+-- 'hsmStatus', 'cluster_hsmStatus' - A value that reports whether the Amazon Redshift cluster has finished+-- applying any hardware security module (HSM) settings changes specified+-- in a modify cluster command.+--+-- Values: active, applying+--+-- 'iamRoles', 'cluster_iamRoles' - A list of Identity and Access Management (IAM) roles that can be used by+-- the cluster to access other Amazon Web Services services.+--+-- 'kmsKeyId', 'cluster_kmsKeyId' - The Key Management Service (KMS) key ID of the encryption key used to+-- encrypt data in the cluster.+--+-- 'maintenanceTrackName', 'cluster_maintenanceTrackName' - The name of the maintenance track for the cluster.+--+-- 'manualSnapshotRetentionPeriod', 'cluster_manualSnapshotRetentionPeriod' - The default number of days to retain a manual snapshot. If the value is+-- -1, the snapshot is retained indefinitely. This setting doesn\'t change+-- the retention period of existing snapshots.+--+-- The value must be either -1 or an integer between 1 and 3,653.+--+-- 'masterUsername', 'cluster_masterUsername' - The admin user name for the cluster. This name is used to connect to the+-- database that is specified in the __DBName__ parameter.+--+-- 'modifyStatus', 'cluster_modifyStatus' - The status of a modify operation, if any, initiated for the cluster.+--+-- 'nextMaintenanceWindowStartTime', 'cluster_nextMaintenanceWindowStartTime' - The date and time in UTC when system maintenance can begin.+--+-- 'nodeType', 'cluster_nodeType' - The node type for the nodes in the cluster.+--+-- 'numberOfNodes', 'cluster_numberOfNodes' - The number of compute nodes in the cluster.+--+-- 'pendingActions', 'cluster_pendingActions' - Cluster operations that are waiting to be started.+--+-- 'pendingModifiedValues', 'cluster_pendingModifiedValues' - A value that, if present, indicates that changes to the cluster are+-- pending. Specific pending changes are identified by subelements.+--+-- 'preferredMaintenanceWindow', 'cluster_preferredMaintenanceWindow' - The weekly time range, in Universal Coordinated Time (UTC), during which+-- system maintenance can occur.+--+-- 'publiclyAccessible', 'cluster_publiclyAccessible' - A boolean value that, if @true@, indicates that the cluster can be+-- accessed from a public network.+--+-- 'reservedNodeExchangeStatus', 'cluster_reservedNodeExchangeStatus' - The status of the reserved-node exchange request. Statuses include+-- in-progress and requested.+--+-- 'resizeInfo', 'cluster_resizeInfo' - Returns the following:+--+-- - AllowCancelResize: a boolean value indicating if the resize+-- operation can be cancelled.+--+-- - ResizeType: Returns ClassicResize+--+-- 'restoreStatus', 'cluster_restoreStatus' - A value that describes the status of a cluster restore action. This+-- parameter returns null if the cluster was not created by restoring a+-- snapshot.+--+-- 'snapshotScheduleIdentifier', 'cluster_snapshotScheduleIdentifier' - A unique identifier for the cluster snapshot schedule.+--+-- 'snapshotScheduleState', 'cluster_snapshotScheduleState' - The current state of the cluster snapshot schedule.+--+-- 'tags', 'cluster_tags' - The list of tags for the cluster.+--+-- 'totalStorageCapacityInMegaBytes', 'cluster_totalStorageCapacityInMegaBytes' - The total storage capacity of the cluster in megabytes.+--+-- 'vpcId', 'cluster_vpcId' - The identifier of the VPC the cluster is in, if the cluster is in a VPC.+--+-- 'vpcSecurityGroups', 'cluster_vpcSecurityGroups' - A list of Amazon Virtual Private Cloud (Amazon VPC) security groups that+-- are associated with the cluster. This parameter is returned only if the+-- cluster is in a VPC.+newCluster ::+ Cluster+newCluster =+ Cluster'+ { allowVersionUpgrade = Prelude.Nothing,+ aquaConfiguration = Prelude.Nothing,+ automatedSnapshotRetentionPeriod = Prelude.Nothing,+ availabilityZone = Prelude.Nothing,+ availabilityZoneRelocationStatus = Prelude.Nothing,+ clusterAvailabilityStatus = Prelude.Nothing,+ clusterCreateTime = Prelude.Nothing,+ clusterIdentifier = Prelude.Nothing,+ clusterNamespaceArn = Prelude.Nothing,+ clusterNodes = Prelude.Nothing,+ clusterParameterGroups = Prelude.Nothing,+ clusterPublicKey = Prelude.Nothing,+ clusterRevisionNumber = Prelude.Nothing,+ clusterSecurityGroups = Prelude.Nothing,+ clusterSnapshotCopyStatus = Prelude.Nothing,+ clusterStatus = Prelude.Nothing,+ clusterSubnetGroupName = Prelude.Nothing,+ clusterVersion = Prelude.Nothing,+ dbName = Prelude.Nothing,+ dataTransferProgress = Prelude.Nothing,+ defaultIamRoleArn = Prelude.Nothing,+ deferredMaintenanceWindows = Prelude.Nothing,+ elasticIpStatus = Prelude.Nothing,+ elasticResizeNumberOfNodeOptions = Prelude.Nothing,+ encrypted = Prelude.Nothing,+ endpoint = Prelude.Nothing,+ enhancedVpcRouting = Prelude.Nothing,+ expectedNextSnapshotScheduleTime = Prelude.Nothing,+ expectedNextSnapshotScheduleTimeStatus =+ Prelude.Nothing,+ hsmStatus = Prelude.Nothing,+ iamRoles = Prelude.Nothing,+ kmsKeyId = Prelude.Nothing,+ maintenanceTrackName = Prelude.Nothing,+ manualSnapshotRetentionPeriod = Prelude.Nothing,+ masterUsername = Prelude.Nothing,+ modifyStatus = Prelude.Nothing,+ nextMaintenanceWindowStartTime = Prelude.Nothing,+ nodeType = Prelude.Nothing,+ numberOfNodes = Prelude.Nothing,+ pendingActions = Prelude.Nothing,+ pendingModifiedValues = Prelude.Nothing,+ preferredMaintenanceWindow = Prelude.Nothing,+ publiclyAccessible = Prelude.Nothing,+ reservedNodeExchangeStatus = Prelude.Nothing,+ resizeInfo = Prelude.Nothing,+ restoreStatus = Prelude.Nothing,+ snapshotScheduleIdentifier = Prelude.Nothing,+ snapshotScheduleState = Prelude.Nothing,+ tags = Prelude.Nothing,+ totalStorageCapacityInMegaBytes = Prelude.Nothing,+ vpcId = Prelude.Nothing,+ vpcSecurityGroups = Prelude.Nothing+ }++-- | A boolean value that, if @true@, indicates that major version upgrades+-- will be applied automatically to the cluster during the maintenance+-- window.+cluster_allowVersionUpgrade :: Lens.Lens' Cluster (Prelude.Maybe Prelude.Bool)+cluster_allowVersionUpgrade = Lens.lens (\Cluster' {allowVersionUpgrade} -> allowVersionUpgrade) (\s@Cluster' {} a -> s {allowVersionUpgrade = a} :: Cluster)++-- | This field is retired. Amazon Redshift automatically determines whether+-- to use AQUA (Advanced Query Accelerator).+cluster_aquaConfiguration :: Lens.Lens' Cluster (Prelude.Maybe AquaConfiguration)+cluster_aquaConfiguration = Lens.lens (\Cluster' {aquaConfiguration} -> aquaConfiguration) (\s@Cluster' {} a -> s {aquaConfiguration = a} :: Cluster)++-- | The number of days that automatic cluster snapshots are retained.+cluster_automatedSnapshotRetentionPeriod :: Lens.Lens' Cluster (Prelude.Maybe Prelude.Int)+cluster_automatedSnapshotRetentionPeriod = Lens.lens (\Cluster' {automatedSnapshotRetentionPeriod} -> automatedSnapshotRetentionPeriod) (\s@Cluster' {} a -> s {automatedSnapshotRetentionPeriod = a} :: Cluster)++-- | The name of the Availability Zone in which the cluster is located.+cluster_availabilityZone :: Lens.Lens' Cluster (Prelude.Maybe Prelude.Text)+cluster_availabilityZone = Lens.lens (\Cluster' {availabilityZone} -> availabilityZone) (\s@Cluster' {} a -> s {availabilityZone = a} :: Cluster)++-- | Describes the status of the Availability Zone relocation operation.+cluster_availabilityZoneRelocationStatus :: Lens.Lens' Cluster (Prelude.Maybe Prelude.Text)+cluster_availabilityZoneRelocationStatus = Lens.lens (\Cluster' {availabilityZoneRelocationStatus} -> availabilityZoneRelocationStatus) (\s@Cluster' {} a -> s {availabilityZoneRelocationStatus = a} :: Cluster)++-- | The availability status of the cluster for queries. Possible values are+-- the following:+--+-- - Available - The cluster is available for queries.+--+-- - Unavailable - The cluster is not available for queries.+--+-- - Maintenance - The cluster is intermittently available for queries+-- due to maintenance activities.+--+-- - Modifying - The cluster is intermittently available for queries due+-- to changes that modify the cluster.+--+-- - Failed - The cluster failed and is not available for queries.+cluster_clusterAvailabilityStatus :: Lens.Lens' Cluster (Prelude.Maybe Prelude.Text)+cluster_clusterAvailabilityStatus = Lens.lens (\Cluster' {clusterAvailabilityStatus} -> clusterAvailabilityStatus) (\s@Cluster' {} a -> s {clusterAvailabilityStatus = a} :: Cluster)++-- | The date and time that the cluster was created.+cluster_clusterCreateTime :: Lens.Lens' Cluster (Prelude.Maybe Prelude.UTCTime)+cluster_clusterCreateTime = Lens.lens (\Cluster' {clusterCreateTime} -> clusterCreateTime) (\s@Cluster' {} a -> s {clusterCreateTime = a} :: Cluster) Prelude.. Lens.mapping Data._Time++-- | The unique identifier of the cluster.+cluster_clusterIdentifier :: Lens.Lens' Cluster (Prelude.Maybe Prelude.Text)+cluster_clusterIdentifier = Lens.lens (\Cluster' {clusterIdentifier} -> clusterIdentifier) (\s@Cluster' {} a -> s {clusterIdentifier = a} :: Cluster)++-- | The namespace Amazon Resource Name (ARN) of the cluster.+cluster_clusterNamespaceArn :: Lens.Lens' Cluster (Prelude.Maybe Prelude.Text)+cluster_clusterNamespaceArn = Lens.lens (\Cluster' {clusterNamespaceArn} -> clusterNamespaceArn) (\s@Cluster' {} a -> s {clusterNamespaceArn = a} :: Cluster)++-- | The nodes in the cluster.+cluster_clusterNodes :: Lens.Lens' Cluster (Prelude.Maybe [ClusterNode])+cluster_clusterNodes = Lens.lens (\Cluster' {clusterNodes} -> clusterNodes) (\s@Cluster' {} a -> s {clusterNodes = a} :: Cluster) Prelude.. Lens.mapping Lens.coerced++-- | The list of cluster parameter groups that are associated with this+-- cluster. Each parameter group in the list is returned with its status.+cluster_clusterParameterGroups :: Lens.Lens' Cluster (Prelude.Maybe [ClusterParameterGroupStatus])+cluster_clusterParameterGroups = Lens.lens (\Cluster' {clusterParameterGroups} -> clusterParameterGroups) (\s@Cluster' {} a -> s {clusterParameterGroups = a} :: Cluster) Prelude.. Lens.mapping Lens.coerced++-- | The public key for the cluster.+cluster_clusterPublicKey :: Lens.Lens' Cluster (Prelude.Maybe Prelude.Text)+cluster_clusterPublicKey = Lens.lens (\Cluster' {clusterPublicKey} -> clusterPublicKey) (\s@Cluster' {} a -> s {clusterPublicKey = a} :: Cluster)++-- | The specific revision number of the database in the cluster.+cluster_clusterRevisionNumber :: Lens.Lens' Cluster (Prelude.Maybe Prelude.Text)+cluster_clusterRevisionNumber = Lens.lens (\Cluster' {clusterRevisionNumber} -> clusterRevisionNumber) (\s@Cluster' {} a -> s {clusterRevisionNumber = a} :: Cluster)++-- | A list of cluster security group that are associated with the cluster.+-- Each security group is represented by an element that contains+-- @ClusterSecurityGroup.Name@ and @ClusterSecurityGroup.Status@+-- subelements.+--+-- Cluster security groups are used when the cluster is not created in an+-- Amazon Virtual Private Cloud (VPC). Clusters that are created in a VPC+-- use VPC security groups, which are listed by the __VpcSecurityGroups__+-- parameter.+cluster_clusterSecurityGroups :: Lens.Lens' Cluster (Prelude.Maybe [ClusterSecurityGroupMembership])+cluster_clusterSecurityGroups = Lens.lens (\Cluster' {clusterSecurityGroups} -> clusterSecurityGroups) (\s@Cluster' {} a -> s {clusterSecurityGroups = a} :: Cluster) Prelude.. Lens.mapping Lens.coerced++-- | A value that returns the destination region and retention period that+-- are configured for cross-region snapshot copy.+cluster_clusterSnapshotCopyStatus :: Lens.Lens' Cluster (Prelude.Maybe ClusterSnapshotCopyStatus)+cluster_clusterSnapshotCopyStatus = Lens.lens (\Cluster' {clusterSnapshotCopyStatus} -> clusterSnapshotCopyStatus) (\s@Cluster' {} a -> s {clusterSnapshotCopyStatus = a} :: Cluster)++-- | The current state of the cluster. Possible values are the following:+--+-- - @available@+--+-- - @available, prep-for-resize@+--+-- - @available, resize-cleanup@+--+-- - @cancelling-resize@+--+-- - @creating@+--+-- - @deleting@+--+-- - @final-snapshot@+--+-- - @hardware-failure@+--+-- - @incompatible-hsm@+--+-- - @incompatible-network@+--+-- - @incompatible-parameters@+--+-- - @incompatible-restore@+--+-- - @modifying@+--+-- - @paused@+--+-- - @rebooting@+--+-- - @renaming@+--+-- - @resizing@+--+-- - @rotating-keys@+--+-- - @storage-full@+--+-- - @updating-hsm@+cluster_clusterStatus :: Lens.Lens' Cluster (Prelude.Maybe Prelude.Text)+cluster_clusterStatus = Lens.lens (\Cluster' {clusterStatus} -> clusterStatus) (\s@Cluster' {} a -> s {clusterStatus = a} :: Cluster)++-- | The name of the subnet group that is associated with the cluster. This+-- parameter is valid only when the cluster is in a VPC.+cluster_clusterSubnetGroupName :: Lens.Lens' Cluster (Prelude.Maybe Prelude.Text)+cluster_clusterSubnetGroupName = Lens.lens (\Cluster' {clusterSubnetGroupName} -> clusterSubnetGroupName) (\s@Cluster' {} a -> s {clusterSubnetGroupName = a} :: Cluster)++-- | The version ID of the Amazon Redshift engine that is running on the+-- cluster.+cluster_clusterVersion :: Lens.Lens' Cluster (Prelude.Maybe Prelude.Text)+cluster_clusterVersion = Lens.lens (\Cluster' {clusterVersion} -> clusterVersion) (\s@Cluster' {} a -> s {clusterVersion = a} :: Cluster)++-- | The name of the initial database that was created when the cluster was+-- created. This same name is returned for the life of the cluster. If an+-- initial database was not specified, a database named @dev@dev was+-- created by default.+cluster_dbName :: Lens.Lens' Cluster (Prelude.Maybe Prelude.Text)+cluster_dbName = Lens.lens (\Cluster' {dbName} -> dbName) (\s@Cluster' {} a -> s {dbName = a} :: Cluster)++cluster_dataTransferProgress :: Lens.Lens' Cluster (Prelude.Maybe DataTransferProgress)+cluster_dataTransferProgress = Lens.lens (\Cluster' {dataTransferProgress} -> dataTransferProgress) (\s@Cluster' {} a -> s {dataTransferProgress = a} :: Cluster)++-- | The Amazon Resource Name (ARN) for the IAM role set as default for the+-- cluster.+cluster_defaultIamRoleArn :: Lens.Lens' Cluster (Prelude.Maybe Prelude.Text)+cluster_defaultIamRoleArn = Lens.lens (\Cluster' {defaultIamRoleArn} -> defaultIamRoleArn) (\s@Cluster' {} a -> s {defaultIamRoleArn = a} :: Cluster)++-- | Describes a group of @DeferredMaintenanceWindow@ objects.+cluster_deferredMaintenanceWindows :: Lens.Lens' Cluster (Prelude.Maybe [DeferredMaintenanceWindow])+cluster_deferredMaintenanceWindows = Lens.lens (\Cluster' {deferredMaintenanceWindows} -> deferredMaintenanceWindows) (\s@Cluster' {} a -> s {deferredMaintenanceWindows = a} :: Cluster) Prelude.. Lens.mapping Lens.coerced++-- | The status of the elastic IP (EIP) address.+cluster_elasticIpStatus :: Lens.Lens' Cluster (Prelude.Maybe ElasticIpStatus)+cluster_elasticIpStatus = Lens.lens (\Cluster' {elasticIpStatus} -> elasticIpStatus) (\s@Cluster' {} a -> s {elasticIpStatus = a} :: Cluster)++-- | The number of nodes that you can resize the cluster to with the elastic+-- resize method.+cluster_elasticResizeNumberOfNodeOptions :: Lens.Lens' Cluster (Prelude.Maybe Prelude.Text)+cluster_elasticResizeNumberOfNodeOptions = Lens.lens (\Cluster' {elasticResizeNumberOfNodeOptions} -> elasticResizeNumberOfNodeOptions) (\s@Cluster' {} a -> s {elasticResizeNumberOfNodeOptions = a} :: Cluster)++-- | A boolean value that, if @true@, indicates that data in the cluster is+-- encrypted at rest.+cluster_encrypted :: Lens.Lens' Cluster (Prelude.Maybe Prelude.Bool)+cluster_encrypted = Lens.lens (\Cluster' {encrypted} -> encrypted) (\s@Cluster' {} a -> s {encrypted = a} :: Cluster)++-- | The connection endpoint.+cluster_endpoint :: Lens.Lens' Cluster (Prelude.Maybe Endpoint)+cluster_endpoint = Lens.lens (\Cluster' {endpoint} -> endpoint) (\s@Cluster' {} a -> s {endpoint = a} :: Cluster)++-- | An option that specifies whether to create the cluster with enhanced VPC+-- routing enabled. To create a cluster that uses enhanced VPC routing, the+-- cluster must be in a VPC. For more information, see+-- <https://docs.aws.amazon.com/redshift/latest/mgmt/enhanced-vpc-routing.html Enhanced VPC Routing>+-- in the Amazon Redshift Cluster Management Guide.+--+-- If this option is @true@, enhanced VPC routing is enabled.+--+-- Default: false+cluster_enhancedVpcRouting :: Lens.Lens' Cluster (Prelude.Maybe Prelude.Bool)+cluster_enhancedVpcRouting = Lens.lens (\Cluster' {enhancedVpcRouting} -> enhancedVpcRouting) (\s@Cluster' {} a -> s {enhancedVpcRouting = a} :: Cluster)++-- | The date and time when the next snapshot is expected to be taken for+-- clusters with a valid snapshot schedule and backups enabled.+cluster_expectedNextSnapshotScheduleTime :: Lens.Lens' Cluster (Prelude.Maybe Prelude.UTCTime)+cluster_expectedNextSnapshotScheduleTime = Lens.lens (\Cluster' {expectedNextSnapshotScheduleTime} -> expectedNextSnapshotScheduleTime) (\s@Cluster' {} a -> s {expectedNextSnapshotScheduleTime = a} :: Cluster) Prelude.. Lens.mapping Data._Time++-- | The status of next expected snapshot for clusters having a valid+-- snapshot schedule and backups enabled. Possible values are the+-- following:+--+-- - OnTrack - The next snapshot is expected to be taken on time.+--+-- - Pending - The next snapshot is pending to be taken.+cluster_expectedNextSnapshotScheduleTimeStatus :: Lens.Lens' Cluster (Prelude.Maybe Prelude.Text)+cluster_expectedNextSnapshotScheduleTimeStatus = Lens.lens (\Cluster' {expectedNextSnapshotScheduleTimeStatus} -> expectedNextSnapshotScheduleTimeStatus) (\s@Cluster' {} a -> s {expectedNextSnapshotScheduleTimeStatus = a} :: Cluster)++-- | A value that reports whether the Amazon Redshift cluster has finished+-- applying any hardware security module (HSM) settings changes specified+-- in a modify cluster command.+--+-- Values: active, applying+cluster_hsmStatus :: Lens.Lens' Cluster (Prelude.Maybe HsmStatus)+cluster_hsmStatus = Lens.lens (\Cluster' {hsmStatus} -> hsmStatus) (\s@Cluster' {} a -> s {hsmStatus = a} :: Cluster)++-- | A list of Identity and Access Management (IAM) roles that can be used by+-- the cluster to access other Amazon Web Services services.+cluster_iamRoles :: Lens.Lens' Cluster (Prelude.Maybe [ClusterIamRole])+cluster_iamRoles = Lens.lens (\Cluster' {iamRoles} -> iamRoles) (\s@Cluster' {} a -> s {iamRoles = a} :: Cluster) Prelude.. Lens.mapping Lens.coerced++-- | The Key Management Service (KMS) key ID of the encryption key used to+-- encrypt data in the cluster.+cluster_kmsKeyId :: Lens.Lens' Cluster (Prelude.Maybe Prelude.Text)+cluster_kmsKeyId = Lens.lens (\Cluster' {kmsKeyId} -> kmsKeyId) (\s@Cluster' {} a -> s {kmsKeyId = a} :: Cluster)++-- | The name of the maintenance track for the cluster.+cluster_maintenanceTrackName :: Lens.Lens' Cluster (Prelude.Maybe Prelude.Text)+cluster_maintenanceTrackName = Lens.lens (\Cluster' {maintenanceTrackName} -> maintenanceTrackName) (\s@Cluster' {} a -> s {maintenanceTrackName = a} :: Cluster)++-- | The default number of days to retain a manual snapshot. If the value is+-- -1, the snapshot is retained indefinitely. This setting doesn\'t change+-- the retention period of existing snapshots.+--+-- The value must be either -1 or an integer between 1 and 3,653.+cluster_manualSnapshotRetentionPeriod :: Lens.Lens' Cluster (Prelude.Maybe Prelude.Int)+cluster_manualSnapshotRetentionPeriod = Lens.lens (\Cluster' {manualSnapshotRetentionPeriod} -> manualSnapshotRetentionPeriod) (\s@Cluster' {} a -> s {manualSnapshotRetentionPeriod = a} :: Cluster)++-- | The admin user name for the cluster. This name is used to connect to the+-- database that is specified in the __DBName__ parameter.+cluster_masterUsername :: Lens.Lens' Cluster (Prelude.Maybe Prelude.Text)+cluster_masterUsername = Lens.lens (\Cluster' {masterUsername} -> masterUsername) (\s@Cluster' {} a -> s {masterUsername = a} :: Cluster)++-- | The status of a modify operation, if any, initiated for the cluster.+cluster_modifyStatus :: Lens.Lens' Cluster (Prelude.Maybe Prelude.Text)+cluster_modifyStatus = Lens.lens (\Cluster' {modifyStatus} -> modifyStatus) (\s@Cluster' {} a -> s {modifyStatus = a} :: Cluster)++-- | The date and time in UTC when system maintenance can begin.+cluster_nextMaintenanceWindowStartTime :: Lens.Lens' Cluster (Prelude.Maybe Prelude.UTCTime)+cluster_nextMaintenanceWindowStartTime = Lens.lens (\Cluster' {nextMaintenanceWindowStartTime} -> nextMaintenanceWindowStartTime) (\s@Cluster' {} a -> s {nextMaintenanceWindowStartTime = a} :: Cluster) Prelude.. Lens.mapping Data._Time++-- | The node type for the nodes in the cluster.+cluster_nodeType :: Lens.Lens' Cluster (Prelude.Maybe Prelude.Text)+cluster_nodeType = Lens.lens (\Cluster' {nodeType} -> nodeType) (\s@Cluster' {} a -> s {nodeType = a} :: Cluster)++-- | The number of compute nodes in the cluster.+cluster_numberOfNodes :: Lens.Lens' Cluster (Prelude.Maybe Prelude.Int)+cluster_numberOfNodes = Lens.lens (\Cluster' {numberOfNodes} -> numberOfNodes) (\s@Cluster' {} a -> s {numberOfNodes = a} :: Cluster)++-- | Cluster operations that are waiting to be started.+cluster_pendingActions :: Lens.Lens' Cluster (Prelude.Maybe [Prelude.Text])+cluster_pendingActions = Lens.lens (\Cluster' {pendingActions} -> pendingActions) (\s@Cluster' {} a -> s {pendingActions = a} :: Cluster) Prelude.. Lens.mapping Lens.coerced++-- | A value that, if present, indicates that changes to the cluster are+-- pending. Specific pending changes are identified by subelements.+cluster_pendingModifiedValues :: Lens.Lens' Cluster (Prelude.Maybe PendingModifiedValues)+cluster_pendingModifiedValues = Lens.lens (\Cluster' {pendingModifiedValues} -> pendingModifiedValues) (\s@Cluster' {} a -> s {pendingModifiedValues = a} :: Cluster)++-- | The weekly time range, in Universal Coordinated Time (UTC), during which+-- system maintenance can occur.+cluster_preferredMaintenanceWindow :: Lens.Lens' Cluster (Prelude.Maybe Prelude.Text)+cluster_preferredMaintenanceWindow = Lens.lens (\Cluster' {preferredMaintenanceWindow} -> preferredMaintenanceWindow) (\s@Cluster' {} a -> s {preferredMaintenanceWindow = a} :: Cluster)++-- | A boolean value that, if @true@, indicates that the cluster can be+-- accessed from a public network.+cluster_publiclyAccessible :: Lens.Lens' Cluster (Prelude.Maybe Prelude.Bool)+cluster_publiclyAccessible = Lens.lens (\Cluster' {publiclyAccessible} -> publiclyAccessible) (\s@Cluster' {} a -> s {publiclyAccessible = a} :: Cluster)++-- | The status of the reserved-node exchange request. Statuses include+-- in-progress and requested.+cluster_reservedNodeExchangeStatus :: Lens.Lens' Cluster (Prelude.Maybe ReservedNodeExchangeStatus)+cluster_reservedNodeExchangeStatus = Lens.lens (\Cluster' {reservedNodeExchangeStatus} -> reservedNodeExchangeStatus) (\s@Cluster' {} a -> s {reservedNodeExchangeStatus = a} :: Cluster)++-- | Returns the following:+--+-- - AllowCancelResize: a boolean value indicating if the resize+-- operation can be cancelled.+--+-- - ResizeType: Returns ClassicResize+cluster_resizeInfo :: Lens.Lens' Cluster (Prelude.Maybe ResizeInfo)+cluster_resizeInfo = Lens.lens (\Cluster' {resizeInfo} -> resizeInfo) (\s@Cluster' {} a -> s {resizeInfo = a} :: Cluster)++-- | A value that describes the status of a cluster restore action. This+-- parameter returns null if the cluster was not created by restoring a+-- snapshot.+cluster_restoreStatus :: Lens.Lens' Cluster (Prelude.Maybe RestoreStatus)+cluster_restoreStatus = Lens.lens (\Cluster' {restoreStatus} -> restoreStatus) (\s@Cluster' {} a -> s {restoreStatus = a} :: Cluster)++-- | A unique identifier for the cluster snapshot schedule.+cluster_snapshotScheduleIdentifier :: Lens.Lens' Cluster (Prelude.Maybe Prelude.Text)+cluster_snapshotScheduleIdentifier = Lens.lens (\Cluster' {snapshotScheduleIdentifier} -> snapshotScheduleIdentifier) (\s@Cluster' {} a -> s {snapshotScheduleIdentifier = a} :: Cluster)++-- | The current state of the cluster snapshot schedule.+cluster_snapshotScheduleState :: Lens.Lens' Cluster (Prelude.Maybe ScheduleState)+cluster_snapshotScheduleState = Lens.lens (\Cluster' {snapshotScheduleState} -> snapshotScheduleState) (\s@Cluster' {} a -> s {snapshotScheduleState = a} :: Cluster)++-- | The list of tags for the cluster.+cluster_tags :: Lens.Lens' Cluster (Prelude.Maybe [Tag])+cluster_tags = Lens.lens (\Cluster' {tags} -> tags) (\s@Cluster' {} a -> s {tags = a} :: Cluster) Prelude.. Lens.mapping Lens.coerced++-- | The total storage capacity of the cluster in megabytes.+cluster_totalStorageCapacityInMegaBytes :: Lens.Lens' Cluster (Prelude.Maybe Prelude.Integer)+cluster_totalStorageCapacityInMegaBytes = Lens.lens (\Cluster' {totalStorageCapacityInMegaBytes} -> totalStorageCapacityInMegaBytes) (\s@Cluster' {} a -> s {totalStorageCapacityInMegaBytes = a} :: Cluster)++-- | The identifier of the VPC the cluster is in, if the cluster is in a VPC.+cluster_vpcId :: Lens.Lens' Cluster (Prelude.Maybe Prelude.Text)+cluster_vpcId = Lens.lens (\Cluster' {vpcId} -> vpcId) (\s@Cluster' {} a -> s {vpcId = a} :: Cluster)++-- | A list of Amazon Virtual Private Cloud (Amazon VPC) security groups that+-- are associated with the cluster. This parameter is returned only if the+-- cluster is in a VPC.+cluster_vpcSecurityGroups :: Lens.Lens' Cluster (Prelude.Maybe [VpcSecurityGroupMembership])+cluster_vpcSecurityGroups = Lens.lens (\Cluster' {vpcSecurityGroups} -> vpcSecurityGroups) (\s@Cluster' {} a -> s {vpcSecurityGroups = a} :: Cluster) Prelude.. Lens.mapping Lens.coerced++instance Data.FromXML Cluster where+ parseXML x =+ Cluster'+ Prelude.<$> (x Data..@? "AllowVersionUpgrade")+ Prelude.<*> (x Data..@? "AquaConfiguration")+ Prelude.<*> (x Data..@? "AutomatedSnapshotRetentionPeriod")+ Prelude.<*> (x Data..@? "AvailabilityZone")+ Prelude.<*> (x Data..@? "AvailabilityZoneRelocationStatus")+ Prelude.<*> (x Data..@? "ClusterAvailabilityStatus")+ Prelude.<*> (x Data..@? "ClusterCreateTime")+ Prelude.<*> (x Data..@? "ClusterIdentifier")+ Prelude.<*> (x Data..@? "ClusterNamespaceArn")+ Prelude.<*> ( x+ Data..@? "ClusterNodes"+ Core..!@ Prelude.mempty+ Prelude.>>= Core.may (Data.parseXMLList "member")+ )+ Prelude.<*> ( x+ Data..@? "ClusterParameterGroups"+ Core..!@ Prelude.mempty+ Prelude.>>= Core.may (Data.parseXMLList "ClusterParameterGroup")+ )+ Prelude.<*> (x Data..@? "ClusterPublicKey")+ Prelude.<*> (x Data..@? "ClusterRevisionNumber")+ Prelude.<*> ( x+ Data..@? "ClusterSecurityGroups"+ Core..!@ Prelude.mempty+ Prelude.>>= Core.may (Data.parseXMLList "ClusterSecurityGroup")+ )+ Prelude.<*> (x Data..@? "ClusterSnapshotCopyStatus")+ Prelude.<*> (x Data..@? "ClusterStatus")+ Prelude.<*> (x Data..@? "ClusterSubnetGroupName")+ Prelude.<*> (x Data..@? "ClusterVersion")+ Prelude.<*> (x Data..@? "DBName")+ Prelude.<*> (x Data..@? "DataTransferProgress")+ Prelude.<*> (x Data..@? "DefaultIamRoleArn")+ Prelude.<*> ( x+ Data..@? "DeferredMaintenanceWindows"+ Core..!@ Prelude.mempty+ Prelude.>>= Core.may+ (Data.parseXMLList "DeferredMaintenanceWindow")+ )+ Prelude.<*> (x Data..@? "ElasticIpStatus")+ Prelude.<*> (x Data..@? "ElasticResizeNumberOfNodeOptions")+ Prelude.<*> (x Data..@? "Encrypted")+ Prelude.<*> (x Data..@? "Endpoint")+ Prelude.<*> (x Data..@? "EnhancedVpcRouting")+ Prelude.<*> (x Data..@? "ExpectedNextSnapshotScheduleTime")+ Prelude.<*> (x Data..@? "ExpectedNextSnapshotScheduleTimeStatus")+ Prelude.<*> (x Data..@? "HsmStatus")+ Prelude.<*> ( x+ Data..@? "IamRoles"+ Core..!@ Prelude.mempty+ Prelude.>>= Core.may (Data.parseXMLList "ClusterIamRole")+ )+ Prelude.<*> (x Data..@? "KmsKeyId")+ Prelude.<*> (x Data..@? "MaintenanceTrackName")+ Prelude.<*> (x Data..@? "ManualSnapshotRetentionPeriod")+ Prelude.<*> (x Data..@? "MasterUsername")+ Prelude.<*> (x Data..@? "ModifyStatus")+ Prelude.<*> (x Data..@? "NextMaintenanceWindowStartTime")+ Prelude.<*> (x Data..@? "NodeType")+ Prelude.<*> (x Data..@? "NumberOfNodes")+ Prelude.<*> ( x+ Data..@? "PendingActions"+ Core..!@ Prelude.mempty+ Prelude.>>= Core.may (Data.parseXMLList "member")+ )+ Prelude.<*> (x Data..@? "PendingModifiedValues")+ Prelude.<*> (x Data..@? "PreferredMaintenanceWindow")+ Prelude.<*> (x Data..@? "PubliclyAccessible")+ Prelude.<*> (x Data..@? "ReservedNodeExchangeStatus")+ Prelude.<*> (x Data..@? "ResizeInfo")+ Prelude.<*> (x Data..@? "RestoreStatus")+ Prelude.<*> (x Data..@? "SnapshotScheduleIdentifier")+ Prelude.<*> (x Data..@? "SnapshotScheduleState")+ Prelude.<*> ( x+ Data..@? "Tags"+ Core..!@ Prelude.mempty+ Prelude.>>= Core.may (Data.parseXMLList "Tag")+ )+ Prelude.<*> (x Data..@? "TotalStorageCapacityInMegaBytes")+ Prelude.<*> (x Data..@? "VpcId")+ Prelude.<*> ( x+ Data..@? "VpcSecurityGroups"+ Core..!@ Prelude.mempty+ Prelude.>>= Core.may (Data.parseXMLList "VpcSecurityGroup")+ )++instance Prelude.Hashable Cluster where+ hashWithSalt _salt Cluster' {..} =+ _salt+ `Prelude.hashWithSalt` allowVersionUpgrade+ `Prelude.hashWithSalt` aquaConfiguration+ `Prelude.hashWithSalt` automatedSnapshotRetentionPeriod+ `Prelude.hashWithSalt` availabilityZone+ `Prelude.hashWithSalt` availabilityZoneRelocationStatus+ `Prelude.hashWithSalt` clusterAvailabilityStatus+ `Prelude.hashWithSalt` clusterCreateTime+ `Prelude.hashWithSalt` clusterIdentifier+ `Prelude.hashWithSalt` clusterNamespaceArn+ `Prelude.hashWithSalt` clusterNodes+ `Prelude.hashWithSalt` clusterParameterGroups+ `Prelude.hashWithSalt` clusterPublicKey+ `Prelude.hashWithSalt` clusterRevisionNumber+ `Prelude.hashWithSalt` clusterSecurityGroups+ `Prelude.hashWithSalt` clusterSnapshotCopyStatus+ `Prelude.hashWithSalt` clusterStatus+ `Prelude.hashWithSalt` clusterSubnetGroupName+ `Prelude.hashWithSalt` clusterVersion+ `Prelude.hashWithSalt` dbName+ `Prelude.hashWithSalt` dataTransferProgress+ `Prelude.hashWithSalt` defaultIamRoleArn+ `Prelude.hashWithSalt` deferredMaintenanceWindows+ `Prelude.hashWithSalt` elasticIpStatus+ `Prelude.hashWithSalt` elasticResizeNumberOfNodeOptions+ `Prelude.hashWithSalt` encrypted+ `Prelude.hashWithSalt` endpoint+ `Prelude.hashWithSalt` enhancedVpcRouting+ `Prelude.hashWithSalt` expectedNextSnapshotScheduleTime+ `Prelude.hashWithSalt` expectedNextSnapshotScheduleTimeStatus+ `Prelude.hashWithSalt` hsmStatus+ `Prelude.hashWithSalt` iamRoles+ `Prelude.hashWithSalt` kmsKeyId+ `Prelude.hashWithSalt` maintenanceTrackName+ `Prelude.hashWithSalt` manualSnapshotRetentionPeriod+ `Prelude.hashWithSalt` masterUsername+ `Prelude.hashWithSalt` modifyStatus+ `Prelude.hashWithSalt` nextMaintenanceWindowStartTime+ `Prelude.hashWithSalt` nodeType+ `Prelude.hashWithSalt` numberOfNodes+ `Prelude.hashWithSalt` pendingActions+ `Prelude.hashWithSalt` pendingModifiedValues+ `Prelude.hashWithSalt` preferredMaintenanceWindow+ `Prelude.hashWithSalt` publiclyAccessible+ `Prelude.hashWithSalt` reservedNodeExchangeStatus+ `Prelude.hashWithSalt` resizeInfo+ `Prelude.hashWithSalt` restoreStatus+ `Prelude.hashWithSalt` snapshotScheduleIdentifier+ `Prelude.hashWithSalt` snapshotScheduleState+ `Prelude.hashWithSalt` tags+ `Prelude.hashWithSalt` totalStorageCapacityInMegaBytes+ `Prelude.hashWithSalt` vpcId+ `Prelude.hashWithSalt` vpcSecurityGroups++instance Prelude.NFData Cluster where+ rnf Cluster' {..} =+ Prelude.rnf allowVersionUpgrade+ `Prelude.seq` Prelude.rnf aquaConfiguration+ `Prelude.seq` Prelude.rnf automatedSnapshotRetentionPeriod+ `Prelude.seq` Prelude.rnf availabilityZone+ `Prelude.seq` Prelude.rnf availabilityZoneRelocationStatus+ `Prelude.seq` Prelude.rnf clusterAvailabilityStatus+ `Prelude.seq` Prelude.rnf clusterCreateTime+ `Prelude.seq` Prelude.rnf clusterIdentifier+ `Prelude.seq` Prelude.rnf clusterNamespaceArn+ `Prelude.seq` Prelude.rnf clusterNodes+ `Prelude.seq` Prelude.rnf clusterParameterGroups+ `Prelude.seq` Prelude.rnf clusterPublicKey+ `Prelude.seq` Prelude.rnf clusterRevisionNumber+ `Prelude.seq` Prelude.rnf clusterSecurityGroups+ `Prelude.seq` Prelude.rnf clusterSnapshotCopyStatus+ `Prelude.seq` Prelude.rnf clusterStatus+ `Prelude.seq` Prelude.rnf clusterSubnetGroupName+ `Prelude.seq` Prelude.rnf clusterVersion+ `Prelude.seq` Prelude.rnf dbName+ `Prelude.seq` Prelude.rnf+ dataTransferProgress+ `Prelude.seq` Prelude.rnf+ defaultIamRoleArn+ `Prelude.seq` Prelude.rnf+ deferredMaintenanceWindows+ `Prelude.seq` Prelude.rnf+ elasticIpStatus+ `Prelude.seq` Prelude.rnf+ elasticResizeNumberOfNodeOptions+ `Prelude.seq` Prelude.rnf+ encrypted+ `Prelude.seq` Prelude.rnf+ endpoint+ `Prelude.seq` Prelude.rnf+ enhancedVpcRouting+ `Prelude.seq` Prelude.rnf+ expectedNextSnapshotScheduleTime+ `Prelude.seq` Prelude.rnf+ expectedNextSnapshotScheduleTimeStatus+ `Prelude.seq` Prelude.rnf+ hsmStatus+ `Prelude.seq` Prelude.rnf+ iamRoles+ `Prelude.seq` Prelude.rnf+ kmsKeyId+ `Prelude.seq` Prelude.rnf+ maintenanceTrackName+ `Prelude.seq` Prelude.rnf+ manualSnapshotRetentionPeriod+ `Prelude.seq` Prelude.rnf+ masterUsername+ `Prelude.seq` Prelude.rnf+ modifyStatus+ `Prelude.seq` Prelude.rnf+ nextMaintenanceWindowStartTime+ `Prelude.seq` Prelude.rnf+ nodeType+ `Prelude.seq` Prelude.rnf+ numberOfNodes+ `Prelude.seq` Prelude.rnf+ pendingActions+ `Prelude.seq` Prelude.rnf+ pendingModifiedValues+ `Prelude.seq` Prelude.rnf+ preferredMaintenanceWindow+ `Prelude.seq` Prelude.rnf+ publiclyAccessible+ `Prelude.seq` Prelude.rnf+ reservedNodeExchangeStatus+ `Prelude.seq` Prelude.rnf+ resizeInfo+ `Prelude.seq` Prelude.rnf+ restoreStatus+ `Prelude.seq` Prelude.rnf+ snapshotScheduleIdentifier+ `Prelude.seq` Prelude.rnf+ snapshotScheduleState+ `Prelude.seq` Prelude.rnf+ tags+ `Prelude.seq` Prelude.rnf+ totalStorageCapacityInMegaBytes+ `Prelude.seq` Prelude.rnf+ vpcId+ `Prelude.seq` Prelude.rnf+ vpcSecurityGroups
+ gen/Amazonka/Redshift/Types/ClusterAssociatedToSchedule.hs view
@@ -0,0 +1,79 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module : Amazonka.Redshift.Types.ClusterAssociatedToSchedule+-- Copyright : (c) 2013-2023 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.Redshift.Types.ClusterAssociatedToSchedule where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Redshift.Internal+import Amazonka.Redshift.Types.ScheduleState++-- |+--+-- /See:/ 'newClusterAssociatedToSchedule' smart constructor.+data ClusterAssociatedToSchedule = ClusterAssociatedToSchedule'+ { clusterIdentifier :: Prelude.Maybe Prelude.Text,+ scheduleAssociationState :: Prelude.Maybe ScheduleState+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ClusterAssociatedToSchedule' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'clusterIdentifier', 'clusterAssociatedToSchedule_clusterIdentifier' -+--+-- 'scheduleAssociationState', 'clusterAssociatedToSchedule_scheduleAssociationState' -+newClusterAssociatedToSchedule ::+ ClusterAssociatedToSchedule+newClusterAssociatedToSchedule =+ ClusterAssociatedToSchedule'+ { clusterIdentifier =+ Prelude.Nothing,+ scheduleAssociationState = Prelude.Nothing+ }++clusterAssociatedToSchedule_clusterIdentifier :: Lens.Lens' ClusterAssociatedToSchedule (Prelude.Maybe Prelude.Text)+clusterAssociatedToSchedule_clusterIdentifier = Lens.lens (\ClusterAssociatedToSchedule' {clusterIdentifier} -> clusterIdentifier) (\s@ClusterAssociatedToSchedule' {} a -> s {clusterIdentifier = a} :: ClusterAssociatedToSchedule)++clusterAssociatedToSchedule_scheduleAssociationState :: Lens.Lens' ClusterAssociatedToSchedule (Prelude.Maybe ScheduleState)+clusterAssociatedToSchedule_scheduleAssociationState = Lens.lens (\ClusterAssociatedToSchedule' {scheduleAssociationState} -> scheduleAssociationState) (\s@ClusterAssociatedToSchedule' {} a -> s {scheduleAssociationState = a} :: ClusterAssociatedToSchedule)++instance Data.FromXML ClusterAssociatedToSchedule where+ parseXML x =+ ClusterAssociatedToSchedule'+ Prelude.<$> (x Data..@? "ClusterIdentifier")+ Prelude.<*> (x Data..@? "ScheduleAssociationState")++instance Prelude.Hashable ClusterAssociatedToSchedule where+ hashWithSalt _salt ClusterAssociatedToSchedule' {..} =+ _salt+ `Prelude.hashWithSalt` clusterIdentifier+ `Prelude.hashWithSalt` scheduleAssociationState++instance Prelude.NFData ClusterAssociatedToSchedule where+ rnf ClusterAssociatedToSchedule' {..} =+ Prelude.rnf clusterIdentifier+ `Prelude.seq` Prelude.rnf scheduleAssociationState
+ gen/Amazonka/Redshift/Types/ClusterDbRevision.hs view
@@ -0,0 +1,114 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module : Amazonka.Redshift.Types.ClusterDbRevision+-- Copyright : (c) 2013-2023 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.Redshift.Types.ClusterDbRevision where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Redshift.Internal+import Amazonka.Redshift.Types.RevisionTarget++-- | Describes a @ClusterDbRevision@.+--+-- /See:/ 'newClusterDbRevision' smart constructor.+data ClusterDbRevision = ClusterDbRevision'+ { -- | The unique identifier of the cluster.+ clusterIdentifier :: Prelude.Maybe Prelude.Text,+ -- | A string representing the current cluster version.+ currentDatabaseRevision :: Prelude.Maybe Prelude.Text,+ -- | The date on which the database revision was released.+ databaseRevisionReleaseDate :: Prelude.Maybe Data.ISO8601,+ -- | A list of @RevisionTarget@ objects, where each object describes the+ -- database revision that a cluster can be updated to.+ revisionTargets :: Prelude.Maybe [RevisionTarget]+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ClusterDbRevision' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'clusterIdentifier', 'clusterDbRevision_clusterIdentifier' - The unique identifier of the cluster.+--+-- 'currentDatabaseRevision', 'clusterDbRevision_currentDatabaseRevision' - A string representing the current cluster version.+--+-- 'databaseRevisionReleaseDate', 'clusterDbRevision_databaseRevisionReleaseDate' - The date on which the database revision was released.+--+-- 'revisionTargets', 'clusterDbRevision_revisionTargets' - A list of @RevisionTarget@ objects, where each object describes the+-- database revision that a cluster can be updated to.+newClusterDbRevision ::+ ClusterDbRevision+newClusterDbRevision =+ ClusterDbRevision'+ { clusterIdentifier =+ Prelude.Nothing,+ currentDatabaseRevision = Prelude.Nothing,+ databaseRevisionReleaseDate = Prelude.Nothing,+ revisionTargets = Prelude.Nothing+ }++-- | The unique identifier of the cluster.+clusterDbRevision_clusterIdentifier :: Lens.Lens' ClusterDbRevision (Prelude.Maybe Prelude.Text)+clusterDbRevision_clusterIdentifier = Lens.lens (\ClusterDbRevision' {clusterIdentifier} -> clusterIdentifier) (\s@ClusterDbRevision' {} a -> s {clusterIdentifier = a} :: ClusterDbRevision)++-- | A string representing the current cluster version.+clusterDbRevision_currentDatabaseRevision :: Lens.Lens' ClusterDbRevision (Prelude.Maybe Prelude.Text)+clusterDbRevision_currentDatabaseRevision = Lens.lens (\ClusterDbRevision' {currentDatabaseRevision} -> currentDatabaseRevision) (\s@ClusterDbRevision' {} a -> s {currentDatabaseRevision = a} :: ClusterDbRevision)++-- | The date on which the database revision was released.+clusterDbRevision_databaseRevisionReleaseDate :: Lens.Lens' ClusterDbRevision (Prelude.Maybe Prelude.UTCTime)+clusterDbRevision_databaseRevisionReleaseDate = Lens.lens (\ClusterDbRevision' {databaseRevisionReleaseDate} -> databaseRevisionReleaseDate) (\s@ClusterDbRevision' {} a -> s {databaseRevisionReleaseDate = a} :: ClusterDbRevision) Prelude.. Lens.mapping Data._Time++-- | A list of @RevisionTarget@ objects, where each object describes the+-- database revision that a cluster can be updated to.+clusterDbRevision_revisionTargets :: Lens.Lens' ClusterDbRevision (Prelude.Maybe [RevisionTarget])+clusterDbRevision_revisionTargets = Lens.lens (\ClusterDbRevision' {revisionTargets} -> revisionTargets) (\s@ClusterDbRevision' {} a -> s {revisionTargets = a} :: ClusterDbRevision) Prelude.. Lens.mapping Lens.coerced++instance Data.FromXML ClusterDbRevision where+ parseXML x =+ ClusterDbRevision'+ Prelude.<$> (x Data..@? "ClusterIdentifier")+ Prelude.<*> (x Data..@? "CurrentDatabaseRevision")+ Prelude.<*> (x Data..@? "DatabaseRevisionReleaseDate")+ Prelude.<*> ( x+ Data..@? "RevisionTargets"+ Core..!@ Prelude.mempty+ Prelude.>>= Core.may (Data.parseXMLList "RevisionTarget")+ )++instance Prelude.Hashable ClusterDbRevision where+ hashWithSalt _salt ClusterDbRevision' {..} =+ _salt+ `Prelude.hashWithSalt` clusterIdentifier+ `Prelude.hashWithSalt` currentDatabaseRevision+ `Prelude.hashWithSalt` databaseRevisionReleaseDate+ `Prelude.hashWithSalt` revisionTargets++instance Prelude.NFData ClusterDbRevision where+ rnf ClusterDbRevision' {..} =+ Prelude.rnf clusterIdentifier+ `Prelude.seq` Prelude.rnf currentDatabaseRevision+ `Prelude.seq` Prelude.rnf databaseRevisionReleaseDate+ `Prelude.seq` Prelude.rnf revisionTargets
+ gen/Amazonka/Redshift/Types/ClusterIamRole.hs view
@@ -0,0 +1,119 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module : Amazonka.Redshift.Types.ClusterIamRole+-- Copyright : (c) 2013-2023 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.Redshift.Types.ClusterIamRole where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Redshift.Internal++-- | An Identity and Access Management (IAM) role that can be used by the+-- associated Amazon Redshift cluster to access other Amazon Web Services+-- services.+--+-- /See:/ 'newClusterIamRole' smart constructor.+data ClusterIamRole = ClusterIamRole'+ { -- | A value that describes the status of the IAM role\'s association with an+ -- Amazon Redshift cluster.+ --+ -- The following are possible statuses and descriptions.+ --+ -- - @in-sync@: The role is available for use by the cluster.+ --+ -- - @adding@: The role is in the process of being associated with the+ -- cluster.+ --+ -- - @removing@: The role is in the process of being disassociated with+ -- the cluster.+ applyStatus :: Prelude.Maybe Prelude.Text,+ -- | The Amazon Resource Name (ARN) of the IAM role, for example,+ -- @arn:aws:iam::123456789012:role\/RedshiftCopyUnload@.+ iamRoleArn :: Prelude.Maybe Prelude.Text+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ClusterIamRole' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'applyStatus', 'clusterIamRole_applyStatus' - A value that describes the status of the IAM role\'s association with an+-- Amazon Redshift cluster.+--+-- The following are possible statuses and descriptions.+--+-- - @in-sync@: The role is available for use by the cluster.+--+-- - @adding@: The role is in the process of being associated with the+-- cluster.+--+-- - @removing@: The role is in the process of being disassociated with+-- the cluster.+--+-- 'iamRoleArn', 'clusterIamRole_iamRoleArn' - The Amazon Resource Name (ARN) of the IAM role, for example,+-- @arn:aws:iam::123456789012:role\/RedshiftCopyUnload@.+newClusterIamRole ::+ ClusterIamRole+newClusterIamRole =+ ClusterIamRole'+ { applyStatus = Prelude.Nothing,+ iamRoleArn = Prelude.Nothing+ }++-- | A value that describes the status of the IAM role\'s association with an+-- Amazon Redshift cluster.+--+-- The following are possible statuses and descriptions.+--+-- - @in-sync@: The role is available for use by the cluster.+--+-- - @adding@: The role is in the process of being associated with the+-- cluster.+--+-- - @removing@: The role is in the process of being disassociated with+-- the cluster.+clusterIamRole_applyStatus :: Lens.Lens' ClusterIamRole (Prelude.Maybe Prelude.Text)+clusterIamRole_applyStatus = Lens.lens (\ClusterIamRole' {applyStatus} -> applyStatus) (\s@ClusterIamRole' {} a -> s {applyStatus = a} :: ClusterIamRole)++-- | The Amazon Resource Name (ARN) of the IAM role, for example,+-- @arn:aws:iam::123456789012:role\/RedshiftCopyUnload@.+clusterIamRole_iamRoleArn :: Lens.Lens' ClusterIamRole (Prelude.Maybe Prelude.Text)+clusterIamRole_iamRoleArn = Lens.lens (\ClusterIamRole' {iamRoleArn} -> iamRoleArn) (\s@ClusterIamRole' {} a -> s {iamRoleArn = a} :: ClusterIamRole)++instance Data.FromXML ClusterIamRole where+ parseXML x =+ ClusterIamRole'+ Prelude.<$> (x Data..@? "ApplyStatus")+ Prelude.<*> (x Data..@? "IamRoleArn")++instance Prelude.Hashable ClusterIamRole where+ hashWithSalt _salt ClusterIamRole' {..} =+ _salt+ `Prelude.hashWithSalt` applyStatus+ `Prelude.hashWithSalt` iamRoleArn++instance Prelude.NFData ClusterIamRole where+ rnf ClusterIamRole' {..} =+ Prelude.rnf applyStatus+ `Prelude.seq` Prelude.rnf iamRoleArn
+ gen/Amazonka/Redshift/Types/ClusterNode.hs view
@@ -0,0 +1,93 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module : Amazonka.Redshift.Types.ClusterNode+-- Copyright : (c) 2013-2023 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.Redshift.Types.ClusterNode where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Redshift.Internal++-- | The identifier of a node in a cluster.+--+-- /See:/ 'newClusterNode' smart constructor.+data ClusterNode = ClusterNode'+ { -- | Whether the node is a leader node or a compute node.+ nodeRole :: Prelude.Maybe Prelude.Text,+ -- | The private IP address of a node within a cluster.+ privateIPAddress :: Prelude.Maybe Prelude.Text,+ -- | The public IP address of a node within a cluster.+ publicIPAddress :: Prelude.Maybe Prelude.Text+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ClusterNode' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'nodeRole', 'clusterNode_nodeRole' - Whether the node is a leader node or a compute node.+--+-- 'privateIPAddress', 'clusterNode_privateIPAddress' - The private IP address of a node within a cluster.+--+-- 'publicIPAddress', 'clusterNode_publicIPAddress' - The public IP address of a node within a cluster.+newClusterNode ::+ ClusterNode+newClusterNode =+ ClusterNode'+ { nodeRole = Prelude.Nothing,+ privateIPAddress = Prelude.Nothing,+ publicIPAddress = Prelude.Nothing+ }++-- | Whether the node is a leader node or a compute node.+clusterNode_nodeRole :: Lens.Lens' ClusterNode (Prelude.Maybe Prelude.Text)+clusterNode_nodeRole = Lens.lens (\ClusterNode' {nodeRole} -> nodeRole) (\s@ClusterNode' {} a -> s {nodeRole = a} :: ClusterNode)++-- | The private IP address of a node within a cluster.+clusterNode_privateIPAddress :: Lens.Lens' ClusterNode (Prelude.Maybe Prelude.Text)+clusterNode_privateIPAddress = Lens.lens (\ClusterNode' {privateIPAddress} -> privateIPAddress) (\s@ClusterNode' {} a -> s {privateIPAddress = a} :: ClusterNode)++-- | The public IP address of a node within a cluster.+clusterNode_publicIPAddress :: Lens.Lens' ClusterNode (Prelude.Maybe Prelude.Text)+clusterNode_publicIPAddress = Lens.lens (\ClusterNode' {publicIPAddress} -> publicIPAddress) (\s@ClusterNode' {} a -> s {publicIPAddress = a} :: ClusterNode)++instance Data.FromXML ClusterNode where+ parseXML x =+ ClusterNode'+ Prelude.<$> (x Data..@? "NodeRole")+ Prelude.<*> (x Data..@? "PrivateIPAddress")+ Prelude.<*> (x Data..@? "PublicIPAddress")++instance Prelude.Hashable ClusterNode where+ hashWithSalt _salt ClusterNode' {..} =+ _salt+ `Prelude.hashWithSalt` nodeRole+ `Prelude.hashWithSalt` privateIPAddress+ `Prelude.hashWithSalt` publicIPAddress++instance Prelude.NFData ClusterNode where+ rnf ClusterNode' {..} =+ Prelude.rnf nodeRole+ `Prelude.seq` Prelude.rnf privateIPAddress+ `Prelude.seq` Prelude.rnf publicIPAddress
+ gen/Amazonka/Redshift/Types/ClusterParameterGroup.hs view
@@ -0,0 +1,114 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module : Amazonka.Redshift.Types.ClusterParameterGroup+-- Copyright : (c) 2013-2023 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.Redshift.Types.ClusterParameterGroup where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Redshift.Internal+import Amazonka.Redshift.Types.Tag++-- | Describes a parameter group.+--+-- /See:/ 'newClusterParameterGroup' smart constructor.+data ClusterParameterGroup = ClusterParameterGroup'+ { -- | The description of the parameter group.+ description :: Prelude.Maybe Prelude.Text,+ -- | The name of the cluster parameter group family that this cluster+ -- parameter group is compatible with.+ parameterGroupFamily :: Prelude.Maybe Prelude.Text,+ -- | The name of the cluster parameter group.+ parameterGroupName :: Prelude.Maybe Prelude.Text,+ -- | The list of tags for the cluster parameter group.+ tags :: Prelude.Maybe [Tag]+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ClusterParameterGroup' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'description', 'clusterParameterGroup_description' - The description of the parameter group.+--+-- 'parameterGroupFamily', 'clusterParameterGroup_parameterGroupFamily' - The name of the cluster parameter group family that this cluster+-- parameter group is compatible with.+--+-- 'parameterGroupName', 'clusterParameterGroup_parameterGroupName' - The name of the cluster parameter group.+--+-- 'tags', 'clusterParameterGroup_tags' - The list of tags for the cluster parameter group.+newClusterParameterGroup ::+ ClusterParameterGroup+newClusterParameterGroup =+ ClusterParameterGroup'+ { description =+ Prelude.Nothing,+ parameterGroupFamily = Prelude.Nothing,+ parameterGroupName = Prelude.Nothing,+ tags = Prelude.Nothing+ }++-- | The description of the parameter group.+clusterParameterGroup_description :: Lens.Lens' ClusterParameterGroup (Prelude.Maybe Prelude.Text)+clusterParameterGroup_description = Lens.lens (\ClusterParameterGroup' {description} -> description) (\s@ClusterParameterGroup' {} a -> s {description = a} :: ClusterParameterGroup)++-- | The name of the cluster parameter group family that this cluster+-- parameter group is compatible with.+clusterParameterGroup_parameterGroupFamily :: Lens.Lens' ClusterParameterGroup (Prelude.Maybe Prelude.Text)+clusterParameterGroup_parameterGroupFamily = Lens.lens (\ClusterParameterGroup' {parameterGroupFamily} -> parameterGroupFamily) (\s@ClusterParameterGroup' {} a -> s {parameterGroupFamily = a} :: ClusterParameterGroup)++-- | The name of the cluster parameter group.+clusterParameterGroup_parameterGroupName :: Lens.Lens' ClusterParameterGroup (Prelude.Maybe Prelude.Text)+clusterParameterGroup_parameterGroupName = Lens.lens (\ClusterParameterGroup' {parameterGroupName} -> parameterGroupName) (\s@ClusterParameterGroup' {} a -> s {parameterGroupName = a} :: ClusterParameterGroup)++-- | The list of tags for the cluster parameter group.+clusterParameterGroup_tags :: Lens.Lens' ClusterParameterGroup (Prelude.Maybe [Tag])+clusterParameterGroup_tags = Lens.lens (\ClusterParameterGroup' {tags} -> tags) (\s@ClusterParameterGroup' {} a -> s {tags = a} :: ClusterParameterGroup) Prelude.. Lens.mapping Lens.coerced++instance Data.FromXML ClusterParameterGroup where+ parseXML x =+ ClusterParameterGroup'+ Prelude.<$> (x Data..@? "Description")+ Prelude.<*> (x Data..@? "ParameterGroupFamily")+ Prelude.<*> (x Data..@? "ParameterGroupName")+ Prelude.<*> ( x+ Data..@? "Tags"+ Core..!@ Prelude.mempty+ Prelude.>>= Core.may (Data.parseXMLList "Tag")+ )++instance Prelude.Hashable ClusterParameterGroup where+ hashWithSalt _salt ClusterParameterGroup' {..} =+ _salt+ `Prelude.hashWithSalt` description+ `Prelude.hashWithSalt` parameterGroupFamily+ `Prelude.hashWithSalt` parameterGroupName+ `Prelude.hashWithSalt` tags++instance Prelude.NFData ClusterParameterGroup where+ rnf ClusterParameterGroup' {..} =+ Prelude.rnf description+ `Prelude.seq` Prelude.rnf parameterGroupFamily+ `Prelude.seq` Prelude.rnf parameterGroupName+ `Prelude.seq` Prelude.rnf tags
+ gen/Amazonka/Redshift/Types/ClusterParameterGroupNameMessage.hs view
@@ -0,0 +1,99 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module : Amazonka.Redshift.Types.ClusterParameterGroupNameMessage+-- Copyright : (c) 2013-2023 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.Redshift.Types.ClusterParameterGroupNameMessage where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Redshift.Internal++-- |+--+-- /See:/ 'newClusterParameterGroupNameMessage' smart constructor.+data ClusterParameterGroupNameMessage = ClusterParameterGroupNameMessage'+ { -- | The name of the cluster parameter group.+ parameterGroupName :: Prelude.Maybe Prelude.Text,+ -- | The status of the parameter group. For example, if you made a change to+ -- a parameter group name-value pair, then the change could be pending a+ -- reboot of an associated cluster.+ parameterGroupStatus :: Prelude.Maybe Prelude.Text+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ClusterParameterGroupNameMessage' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'parameterGroupName', 'clusterParameterGroupNameMessage_parameterGroupName' - The name of the cluster parameter group.+--+-- 'parameterGroupStatus', 'clusterParameterGroupNameMessage_parameterGroupStatus' - The status of the parameter group. For example, if you made a change to+-- a parameter group name-value pair, then the change could be pending a+-- reboot of an associated cluster.+newClusterParameterGroupNameMessage ::+ ClusterParameterGroupNameMessage+newClusterParameterGroupNameMessage =+ ClusterParameterGroupNameMessage'+ { parameterGroupName =+ Prelude.Nothing,+ parameterGroupStatus = Prelude.Nothing+ }++-- | The name of the cluster parameter group.+clusterParameterGroupNameMessage_parameterGroupName :: Lens.Lens' ClusterParameterGroupNameMessage (Prelude.Maybe Prelude.Text)+clusterParameterGroupNameMessage_parameterGroupName = Lens.lens (\ClusterParameterGroupNameMessage' {parameterGroupName} -> parameterGroupName) (\s@ClusterParameterGroupNameMessage' {} a -> s {parameterGroupName = a} :: ClusterParameterGroupNameMessage)++-- | The status of the parameter group. For example, if you made a change to+-- a parameter group name-value pair, then the change could be pending a+-- reboot of an associated cluster.+clusterParameterGroupNameMessage_parameterGroupStatus :: Lens.Lens' ClusterParameterGroupNameMessage (Prelude.Maybe Prelude.Text)+clusterParameterGroupNameMessage_parameterGroupStatus = Lens.lens (\ClusterParameterGroupNameMessage' {parameterGroupStatus} -> parameterGroupStatus) (\s@ClusterParameterGroupNameMessage' {} a -> s {parameterGroupStatus = a} :: ClusterParameterGroupNameMessage)++instance+ Data.FromXML+ ClusterParameterGroupNameMessage+ where+ parseXML x =+ ClusterParameterGroupNameMessage'+ Prelude.<$> (x Data..@? "ParameterGroupName")+ Prelude.<*> (x Data..@? "ParameterGroupStatus")++instance+ Prelude.Hashable+ ClusterParameterGroupNameMessage+ where+ hashWithSalt+ _salt+ ClusterParameterGroupNameMessage' {..} =+ _salt+ `Prelude.hashWithSalt` parameterGroupName+ `Prelude.hashWithSalt` parameterGroupStatus++instance+ Prelude.NFData+ ClusterParameterGroupNameMessage+ where+ rnf ClusterParameterGroupNameMessage' {..} =+ Prelude.rnf parameterGroupName+ `Prelude.seq` Prelude.rnf parameterGroupStatus
+ gen/Amazonka/Redshift/Types/ClusterParameterGroupStatus.hs view
@@ -0,0 +1,111 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module : Amazonka.Redshift.Types.ClusterParameterGroupStatus+-- Copyright : (c) 2013-2023 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.Redshift.Types.ClusterParameterGroupStatus where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Redshift.Internal+import Amazonka.Redshift.Types.ClusterParameterStatus++-- | Describes the status of a parameter group.+--+-- /See:/ 'newClusterParameterGroupStatus' smart constructor.+data ClusterParameterGroupStatus = ClusterParameterGroupStatus'+ { -- | The list of parameter statuses.+ --+ -- For more information about parameters and parameter groups, go to+ -- <https://docs.aws.amazon.com/redshift/latest/mgmt/working-with-parameter-groups.html Amazon Redshift Parameter Groups>+ -- in the /Amazon Redshift Cluster Management Guide/.+ clusterParameterStatusList :: Prelude.Maybe [ClusterParameterStatus],+ -- | The status of parameter updates.+ parameterApplyStatus :: Prelude.Maybe Prelude.Text,+ -- | The name of the cluster parameter group.+ parameterGroupName :: Prelude.Maybe Prelude.Text+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ClusterParameterGroupStatus' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'clusterParameterStatusList', 'clusterParameterGroupStatus_clusterParameterStatusList' - The list of parameter statuses.+--+-- For more information about parameters and parameter groups, go to+-- <https://docs.aws.amazon.com/redshift/latest/mgmt/working-with-parameter-groups.html Amazon Redshift Parameter Groups>+-- in the /Amazon Redshift Cluster Management Guide/.+--+-- 'parameterApplyStatus', 'clusterParameterGroupStatus_parameterApplyStatus' - The status of parameter updates.+--+-- 'parameterGroupName', 'clusterParameterGroupStatus_parameterGroupName' - The name of the cluster parameter group.+newClusterParameterGroupStatus ::+ ClusterParameterGroupStatus+newClusterParameterGroupStatus =+ ClusterParameterGroupStatus'+ { clusterParameterStatusList =+ Prelude.Nothing,+ parameterApplyStatus = Prelude.Nothing,+ parameterGroupName = Prelude.Nothing+ }++-- | The list of parameter statuses.+--+-- For more information about parameters and parameter groups, go to+-- <https://docs.aws.amazon.com/redshift/latest/mgmt/working-with-parameter-groups.html Amazon Redshift Parameter Groups>+-- in the /Amazon Redshift Cluster Management Guide/.+clusterParameterGroupStatus_clusterParameterStatusList :: Lens.Lens' ClusterParameterGroupStatus (Prelude.Maybe [ClusterParameterStatus])+clusterParameterGroupStatus_clusterParameterStatusList = Lens.lens (\ClusterParameterGroupStatus' {clusterParameterStatusList} -> clusterParameterStatusList) (\s@ClusterParameterGroupStatus' {} a -> s {clusterParameterStatusList = a} :: ClusterParameterGroupStatus) Prelude.. Lens.mapping Lens.coerced++-- | The status of parameter updates.+clusterParameterGroupStatus_parameterApplyStatus :: Lens.Lens' ClusterParameterGroupStatus (Prelude.Maybe Prelude.Text)+clusterParameterGroupStatus_parameterApplyStatus = Lens.lens (\ClusterParameterGroupStatus' {parameterApplyStatus} -> parameterApplyStatus) (\s@ClusterParameterGroupStatus' {} a -> s {parameterApplyStatus = a} :: ClusterParameterGroupStatus)++-- | The name of the cluster parameter group.+clusterParameterGroupStatus_parameterGroupName :: Lens.Lens' ClusterParameterGroupStatus (Prelude.Maybe Prelude.Text)+clusterParameterGroupStatus_parameterGroupName = Lens.lens (\ClusterParameterGroupStatus' {parameterGroupName} -> parameterGroupName) (\s@ClusterParameterGroupStatus' {} a -> s {parameterGroupName = a} :: ClusterParameterGroupStatus)++instance Data.FromXML ClusterParameterGroupStatus where+ parseXML x =+ ClusterParameterGroupStatus'+ Prelude.<$> ( x+ Data..@? "ClusterParameterStatusList"+ Core..!@ Prelude.mempty+ Prelude.>>= Core.may (Data.parseXMLList "member")+ )+ Prelude.<*> (x Data..@? "ParameterApplyStatus")+ Prelude.<*> (x Data..@? "ParameterGroupName")++instance Prelude.Hashable ClusterParameterGroupStatus where+ hashWithSalt _salt ClusterParameterGroupStatus' {..} =+ _salt+ `Prelude.hashWithSalt` clusterParameterStatusList+ `Prelude.hashWithSalt` parameterApplyStatus+ `Prelude.hashWithSalt` parameterGroupName++instance Prelude.NFData ClusterParameterGroupStatus where+ rnf ClusterParameterGroupStatus' {..} =+ Prelude.rnf clusterParameterStatusList+ `Prelude.seq` Prelude.rnf parameterApplyStatus+ `Prelude.seq` Prelude.rnf parameterGroupName
+ gen/Amazonka/Redshift/Types/ClusterParameterStatus.hs view
@@ -0,0 +1,166 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module : Amazonka.Redshift.Types.ClusterParameterStatus+-- Copyright : (c) 2013-2023 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.Redshift.Types.ClusterParameterStatus where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Redshift.Internal++-- | Describes the status of a parameter group.+--+-- /See:/ 'newClusterParameterStatus' smart constructor.+data ClusterParameterStatus = ClusterParameterStatus'+ { -- | The error that prevented the parameter from being applied to the+ -- database.+ parameterApplyErrorDescription :: Prelude.Maybe Prelude.Text,+ -- | The status of the parameter that indicates whether the parameter is in+ -- sync with the database, waiting for a cluster reboot, or encountered an+ -- error when being applied.+ --+ -- The following are possible statuses and descriptions.+ --+ -- - @in-sync@: The parameter value is in sync with the database.+ --+ -- - @pending-reboot@: The parameter value will be applied after the+ -- cluster reboots.+ --+ -- - @applying@: The parameter value is being applied to the database.+ --+ -- - @invalid-parameter@: Cannot apply the parameter value because it has+ -- an invalid value or syntax.+ --+ -- - @apply-deferred@: The parameter contains static property changes.+ -- The changes are deferred until the cluster reboots.+ --+ -- - @apply-error@: Cannot connect to the cluster. The parameter change+ -- will be applied after the cluster reboots.+ --+ -- - @unknown-error@: Cannot apply the parameter change right now. The+ -- change will be applied after the cluster reboots.+ parameterApplyStatus :: Prelude.Maybe Prelude.Text,+ -- | The name of the parameter.+ parameterName :: Prelude.Maybe Prelude.Text+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ClusterParameterStatus' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'parameterApplyErrorDescription', 'clusterParameterStatus_parameterApplyErrorDescription' - The error that prevented the parameter from being applied to the+-- database.+--+-- 'parameterApplyStatus', 'clusterParameterStatus_parameterApplyStatus' - The status of the parameter that indicates whether the parameter is in+-- sync with the database, waiting for a cluster reboot, or encountered an+-- error when being applied.+--+-- The following are possible statuses and descriptions.+--+-- - @in-sync@: The parameter value is in sync with the database.+--+-- - @pending-reboot@: The parameter value will be applied after the+-- cluster reboots.+--+-- - @applying@: The parameter value is being applied to the database.+--+-- - @invalid-parameter@: Cannot apply the parameter value because it has+-- an invalid value or syntax.+--+-- - @apply-deferred@: The parameter contains static property changes.+-- The changes are deferred until the cluster reboots.+--+-- - @apply-error@: Cannot connect to the cluster. The parameter change+-- will be applied after the cluster reboots.+--+-- - @unknown-error@: Cannot apply the parameter change right now. The+-- change will be applied after the cluster reboots.+--+-- 'parameterName', 'clusterParameterStatus_parameterName' - The name of the parameter.+newClusterParameterStatus ::+ ClusterParameterStatus+newClusterParameterStatus =+ ClusterParameterStatus'+ { parameterApplyErrorDescription =+ Prelude.Nothing,+ parameterApplyStatus = Prelude.Nothing,+ parameterName = Prelude.Nothing+ }++-- | The error that prevented the parameter from being applied to the+-- database.+clusterParameterStatus_parameterApplyErrorDescription :: Lens.Lens' ClusterParameterStatus (Prelude.Maybe Prelude.Text)+clusterParameterStatus_parameterApplyErrorDescription = Lens.lens (\ClusterParameterStatus' {parameterApplyErrorDescription} -> parameterApplyErrorDescription) (\s@ClusterParameterStatus' {} a -> s {parameterApplyErrorDescription = a} :: ClusterParameterStatus)++-- | The status of the parameter that indicates whether the parameter is in+-- sync with the database, waiting for a cluster reboot, or encountered an+-- error when being applied.+--+-- The following are possible statuses and descriptions.+--+-- - @in-sync@: The parameter value is in sync with the database.+--+-- - @pending-reboot@: The parameter value will be applied after the+-- cluster reboots.+--+-- - @applying@: The parameter value is being applied to the database.+--+-- - @invalid-parameter@: Cannot apply the parameter value because it has+-- an invalid value or syntax.+--+-- - @apply-deferred@: The parameter contains static property changes.+-- The changes are deferred until the cluster reboots.+--+-- - @apply-error@: Cannot connect to the cluster. The parameter change+-- will be applied after the cluster reboots.+--+-- - @unknown-error@: Cannot apply the parameter change right now. The+-- change will be applied after the cluster reboots.+clusterParameterStatus_parameterApplyStatus :: Lens.Lens' ClusterParameterStatus (Prelude.Maybe Prelude.Text)+clusterParameterStatus_parameterApplyStatus = Lens.lens (\ClusterParameterStatus' {parameterApplyStatus} -> parameterApplyStatus) (\s@ClusterParameterStatus' {} a -> s {parameterApplyStatus = a} :: ClusterParameterStatus)++-- | The name of the parameter.+clusterParameterStatus_parameterName :: Lens.Lens' ClusterParameterStatus (Prelude.Maybe Prelude.Text)+clusterParameterStatus_parameterName = Lens.lens (\ClusterParameterStatus' {parameterName} -> parameterName) (\s@ClusterParameterStatus' {} a -> s {parameterName = a} :: ClusterParameterStatus)++instance Data.FromXML ClusterParameterStatus where+ parseXML x =+ ClusterParameterStatus'+ Prelude.<$> (x Data..@? "ParameterApplyErrorDescription")+ Prelude.<*> (x Data..@? "ParameterApplyStatus")+ Prelude.<*> (x Data..@? "ParameterName")++instance Prelude.Hashable ClusterParameterStatus where+ hashWithSalt _salt ClusterParameterStatus' {..} =+ _salt+ `Prelude.hashWithSalt` parameterApplyErrorDescription+ `Prelude.hashWithSalt` parameterApplyStatus+ `Prelude.hashWithSalt` parameterName++instance Prelude.NFData ClusterParameterStatus where+ rnf ClusterParameterStatus' {..} =+ Prelude.rnf parameterApplyErrorDescription+ `Prelude.seq` Prelude.rnf parameterApplyStatus+ `Prelude.seq` Prelude.rnf parameterName
+ gen/Amazonka/Redshift/Types/ClusterSecurityGroup.hs view
@@ -0,0 +1,142 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module : Amazonka.Redshift.Types.ClusterSecurityGroup+-- Copyright : (c) 2013-2023 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.Redshift.Types.ClusterSecurityGroup where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Redshift.Internal+import Amazonka.Redshift.Types.EC2SecurityGroup+import Amazonka.Redshift.Types.IPRange+import Amazonka.Redshift.Types.Tag++-- | Describes a security group.+--+-- /See:/ 'newClusterSecurityGroup' smart constructor.+data ClusterSecurityGroup = ClusterSecurityGroup'+ { -- | The name of the cluster security group to which the operation was+ -- applied.+ clusterSecurityGroupName :: Prelude.Maybe Prelude.Text,+ -- | A description of the security group.+ description :: Prelude.Maybe Prelude.Text,+ -- | A list of EC2 security groups that are permitted to access clusters+ -- associated with this cluster security group.+ eC2SecurityGroups :: Prelude.Maybe [EC2SecurityGroup],+ -- | A list of IP ranges (CIDR blocks) that are permitted to access clusters+ -- associated with this cluster security group.+ iPRanges :: Prelude.Maybe [IPRange],+ -- | The list of tags for the cluster security group.+ tags :: Prelude.Maybe [Tag]+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ClusterSecurityGroup' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'clusterSecurityGroupName', 'clusterSecurityGroup_clusterSecurityGroupName' - The name of the cluster security group to which the operation was+-- applied.+--+-- 'description', 'clusterSecurityGroup_description' - A description of the security group.+--+-- 'eC2SecurityGroups', 'clusterSecurityGroup_eC2SecurityGroups' - A list of EC2 security groups that are permitted to access clusters+-- associated with this cluster security group.+--+-- 'iPRanges', 'clusterSecurityGroup_iPRanges' - A list of IP ranges (CIDR blocks) that are permitted to access clusters+-- associated with this cluster security group.+--+-- 'tags', 'clusterSecurityGroup_tags' - The list of tags for the cluster security group.+newClusterSecurityGroup ::+ ClusterSecurityGroup+newClusterSecurityGroup =+ ClusterSecurityGroup'+ { clusterSecurityGroupName =+ Prelude.Nothing,+ description = Prelude.Nothing,+ eC2SecurityGroups = Prelude.Nothing,+ iPRanges = Prelude.Nothing,+ tags = Prelude.Nothing+ }++-- | The name of the cluster security group to which the operation was+-- applied.+clusterSecurityGroup_clusterSecurityGroupName :: Lens.Lens' ClusterSecurityGroup (Prelude.Maybe Prelude.Text)+clusterSecurityGroup_clusterSecurityGroupName = Lens.lens (\ClusterSecurityGroup' {clusterSecurityGroupName} -> clusterSecurityGroupName) (\s@ClusterSecurityGroup' {} a -> s {clusterSecurityGroupName = a} :: ClusterSecurityGroup)++-- | A description of the security group.+clusterSecurityGroup_description :: Lens.Lens' ClusterSecurityGroup (Prelude.Maybe Prelude.Text)+clusterSecurityGroup_description = Lens.lens (\ClusterSecurityGroup' {description} -> description) (\s@ClusterSecurityGroup' {} a -> s {description = a} :: ClusterSecurityGroup)++-- | A list of EC2 security groups that are permitted to access clusters+-- associated with this cluster security group.+clusterSecurityGroup_eC2SecurityGroups :: Lens.Lens' ClusterSecurityGroup (Prelude.Maybe [EC2SecurityGroup])+clusterSecurityGroup_eC2SecurityGroups = Lens.lens (\ClusterSecurityGroup' {eC2SecurityGroups} -> eC2SecurityGroups) (\s@ClusterSecurityGroup' {} a -> s {eC2SecurityGroups = a} :: ClusterSecurityGroup) Prelude.. Lens.mapping Lens.coerced++-- | A list of IP ranges (CIDR blocks) that are permitted to access clusters+-- associated with this cluster security group.+clusterSecurityGroup_iPRanges :: Lens.Lens' ClusterSecurityGroup (Prelude.Maybe [IPRange])+clusterSecurityGroup_iPRanges = Lens.lens (\ClusterSecurityGroup' {iPRanges} -> iPRanges) (\s@ClusterSecurityGroup' {} a -> s {iPRanges = a} :: ClusterSecurityGroup) Prelude.. Lens.mapping Lens.coerced++-- | The list of tags for the cluster security group.+clusterSecurityGroup_tags :: Lens.Lens' ClusterSecurityGroup (Prelude.Maybe [Tag])+clusterSecurityGroup_tags = Lens.lens (\ClusterSecurityGroup' {tags} -> tags) (\s@ClusterSecurityGroup' {} a -> s {tags = a} :: ClusterSecurityGroup) Prelude.. Lens.mapping Lens.coerced++instance Data.FromXML ClusterSecurityGroup where+ parseXML x =+ ClusterSecurityGroup'+ Prelude.<$> (x Data..@? "ClusterSecurityGroupName")+ Prelude.<*> (x Data..@? "Description")+ Prelude.<*> ( x+ Data..@? "EC2SecurityGroups"+ Core..!@ Prelude.mempty+ Prelude.>>= Core.may (Data.parseXMLList "EC2SecurityGroup")+ )+ Prelude.<*> ( x+ Data..@? "IPRanges"+ Core..!@ Prelude.mempty+ Prelude.>>= Core.may (Data.parseXMLList "IPRange")+ )+ Prelude.<*> ( x+ Data..@? "Tags"+ Core..!@ Prelude.mempty+ Prelude.>>= Core.may (Data.parseXMLList "Tag")+ )++instance Prelude.Hashable ClusterSecurityGroup where+ hashWithSalt _salt ClusterSecurityGroup' {..} =+ _salt+ `Prelude.hashWithSalt` clusterSecurityGroupName+ `Prelude.hashWithSalt` description+ `Prelude.hashWithSalt` eC2SecurityGroups+ `Prelude.hashWithSalt` iPRanges+ `Prelude.hashWithSalt` tags++instance Prelude.NFData ClusterSecurityGroup where+ rnf ClusterSecurityGroup' {..} =+ Prelude.rnf clusterSecurityGroupName+ `Prelude.seq` Prelude.rnf description+ `Prelude.seq` Prelude.rnf eC2SecurityGroups+ `Prelude.seq` Prelude.rnf iPRanges+ `Prelude.seq` Prelude.rnf tags
+ gen/Amazonka/Redshift/Types/ClusterSecurityGroupMembership.hs view
@@ -0,0 +1,90 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module : Amazonka.Redshift.Types.ClusterSecurityGroupMembership+-- Copyright : (c) 2013-2023 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.Redshift.Types.ClusterSecurityGroupMembership where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Redshift.Internal++-- | Describes a cluster security group.+--+-- /See:/ 'newClusterSecurityGroupMembership' smart constructor.+data ClusterSecurityGroupMembership = ClusterSecurityGroupMembership'+ { -- | The name of the cluster security group.+ clusterSecurityGroupName :: Prelude.Maybe Prelude.Text,+ -- | The status of the cluster security group.+ status :: Prelude.Maybe Prelude.Text+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ClusterSecurityGroupMembership' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'clusterSecurityGroupName', 'clusterSecurityGroupMembership_clusterSecurityGroupName' - The name of the cluster security group.+--+-- 'status', 'clusterSecurityGroupMembership_status' - The status of the cluster security group.+newClusterSecurityGroupMembership ::+ ClusterSecurityGroupMembership+newClusterSecurityGroupMembership =+ ClusterSecurityGroupMembership'+ { clusterSecurityGroupName =+ Prelude.Nothing,+ status = Prelude.Nothing+ }++-- | The name of the cluster security group.+clusterSecurityGroupMembership_clusterSecurityGroupName :: Lens.Lens' ClusterSecurityGroupMembership (Prelude.Maybe Prelude.Text)+clusterSecurityGroupMembership_clusterSecurityGroupName = Lens.lens (\ClusterSecurityGroupMembership' {clusterSecurityGroupName} -> clusterSecurityGroupName) (\s@ClusterSecurityGroupMembership' {} a -> s {clusterSecurityGroupName = a} :: ClusterSecurityGroupMembership)++-- | The status of the cluster security group.+clusterSecurityGroupMembership_status :: Lens.Lens' ClusterSecurityGroupMembership (Prelude.Maybe Prelude.Text)+clusterSecurityGroupMembership_status = Lens.lens (\ClusterSecurityGroupMembership' {status} -> status) (\s@ClusterSecurityGroupMembership' {} a -> s {status = a} :: ClusterSecurityGroupMembership)++instance Data.FromXML ClusterSecurityGroupMembership where+ parseXML x =+ ClusterSecurityGroupMembership'+ Prelude.<$> (x Data..@? "ClusterSecurityGroupName")+ Prelude.<*> (x Data..@? "Status")++instance+ Prelude.Hashable+ ClusterSecurityGroupMembership+ where+ hashWithSalt+ _salt+ ClusterSecurityGroupMembership' {..} =+ _salt+ `Prelude.hashWithSalt` clusterSecurityGroupName+ `Prelude.hashWithSalt` status++instance+ Prelude.NFData+ ClusterSecurityGroupMembership+ where+ rnf ClusterSecurityGroupMembership' {..} =+ Prelude.rnf clusterSecurityGroupName+ `Prelude.seq` Prelude.rnf status
+ gen/Amazonka/Redshift/Types/ClusterSnapshotCopyStatus.hs view
@@ -0,0 +1,125 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module : Amazonka.Redshift.Types.ClusterSnapshotCopyStatus+-- Copyright : (c) 2013-2023 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.Redshift.Types.ClusterSnapshotCopyStatus where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Redshift.Internal++-- | Returns the destination region and retention period that are configured+-- for cross-region snapshot copy.+--+-- /See:/ 'newClusterSnapshotCopyStatus' smart constructor.+data ClusterSnapshotCopyStatus = ClusterSnapshotCopyStatus'+ { -- | The destination region that snapshots are automatically copied to when+ -- cross-region snapshot copy is enabled.+ destinationRegion :: Prelude.Maybe Prelude.Text,+ -- | The number of days that automated snapshots are retained in the+ -- destination region after they are copied from a source region. If the+ -- value is -1, the manual snapshot is retained indefinitely.+ --+ -- The value must be either -1 or an integer between 1 and 3,653.+ manualSnapshotRetentionPeriod :: Prelude.Maybe Prelude.Int,+ -- | The number of days that automated snapshots are retained in the+ -- destination region after they are copied from a source region.+ retentionPeriod :: Prelude.Maybe Prelude.Integer,+ -- | The name of the snapshot copy grant.+ snapshotCopyGrantName :: Prelude.Maybe Prelude.Text+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ClusterSnapshotCopyStatus' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'destinationRegion', 'clusterSnapshotCopyStatus_destinationRegion' - The destination region that snapshots are automatically copied to when+-- cross-region snapshot copy is enabled.+--+-- 'manualSnapshotRetentionPeriod', 'clusterSnapshotCopyStatus_manualSnapshotRetentionPeriod' - The number of days that automated snapshots are retained in the+-- destination region after they are copied from a source region. If the+-- value is -1, the manual snapshot is retained indefinitely.+--+-- The value must be either -1 or an integer between 1 and 3,653.+--+-- 'retentionPeriod', 'clusterSnapshotCopyStatus_retentionPeriod' - The number of days that automated snapshots are retained in the+-- destination region after they are copied from a source region.+--+-- 'snapshotCopyGrantName', 'clusterSnapshotCopyStatus_snapshotCopyGrantName' - The name of the snapshot copy grant.+newClusterSnapshotCopyStatus ::+ ClusterSnapshotCopyStatus+newClusterSnapshotCopyStatus =+ ClusterSnapshotCopyStatus'+ { destinationRegion =+ Prelude.Nothing,+ manualSnapshotRetentionPeriod = Prelude.Nothing,+ retentionPeriod = Prelude.Nothing,+ snapshotCopyGrantName = Prelude.Nothing+ }++-- | The destination region that snapshots are automatically copied to when+-- cross-region snapshot copy is enabled.+clusterSnapshotCopyStatus_destinationRegion :: Lens.Lens' ClusterSnapshotCopyStatus (Prelude.Maybe Prelude.Text)+clusterSnapshotCopyStatus_destinationRegion = Lens.lens (\ClusterSnapshotCopyStatus' {destinationRegion} -> destinationRegion) (\s@ClusterSnapshotCopyStatus' {} a -> s {destinationRegion = a} :: ClusterSnapshotCopyStatus)++-- | The number of days that automated snapshots are retained in the+-- destination region after they are copied from a source region. If the+-- value is -1, the manual snapshot is retained indefinitely.+--+-- The value must be either -1 or an integer between 1 and 3,653.+clusterSnapshotCopyStatus_manualSnapshotRetentionPeriod :: Lens.Lens' ClusterSnapshotCopyStatus (Prelude.Maybe Prelude.Int)+clusterSnapshotCopyStatus_manualSnapshotRetentionPeriod = Lens.lens (\ClusterSnapshotCopyStatus' {manualSnapshotRetentionPeriod} -> manualSnapshotRetentionPeriod) (\s@ClusterSnapshotCopyStatus' {} a -> s {manualSnapshotRetentionPeriod = a} :: ClusterSnapshotCopyStatus)++-- | The number of days that automated snapshots are retained in the+-- destination region after they are copied from a source region.+clusterSnapshotCopyStatus_retentionPeriod :: Lens.Lens' ClusterSnapshotCopyStatus (Prelude.Maybe Prelude.Integer)+clusterSnapshotCopyStatus_retentionPeriod = Lens.lens (\ClusterSnapshotCopyStatus' {retentionPeriod} -> retentionPeriod) (\s@ClusterSnapshotCopyStatus' {} a -> s {retentionPeriod = a} :: ClusterSnapshotCopyStatus)++-- | The name of the snapshot copy grant.+clusterSnapshotCopyStatus_snapshotCopyGrantName :: Lens.Lens' ClusterSnapshotCopyStatus (Prelude.Maybe Prelude.Text)+clusterSnapshotCopyStatus_snapshotCopyGrantName = Lens.lens (\ClusterSnapshotCopyStatus' {snapshotCopyGrantName} -> snapshotCopyGrantName) (\s@ClusterSnapshotCopyStatus' {} a -> s {snapshotCopyGrantName = a} :: ClusterSnapshotCopyStatus)++instance Data.FromXML ClusterSnapshotCopyStatus where+ parseXML x =+ ClusterSnapshotCopyStatus'+ Prelude.<$> (x Data..@? "DestinationRegion")+ Prelude.<*> (x Data..@? "ManualSnapshotRetentionPeriod")+ Prelude.<*> (x Data..@? "RetentionPeriod")+ Prelude.<*> (x Data..@? "SnapshotCopyGrantName")++instance Prelude.Hashable ClusterSnapshotCopyStatus where+ hashWithSalt _salt ClusterSnapshotCopyStatus' {..} =+ _salt+ `Prelude.hashWithSalt` destinationRegion+ `Prelude.hashWithSalt` manualSnapshotRetentionPeriod+ `Prelude.hashWithSalt` retentionPeriod+ `Prelude.hashWithSalt` snapshotCopyGrantName++instance Prelude.NFData ClusterSnapshotCopyStatus where+ rnf ClusterSnapshotCopyStatus' {..} =+ Prelude.rnf destinationRegion+ `Prelude.seq` Prelude.rnf manualSnapshotRetentionPeriod+ `Prelude.seq` Prelude.rnf retentionPeriod+ `Prelude.seq` Prelude.rnf snapshotCopyGrantName
+ gen/Amazonka/Redshift/Types/ClusterSubnetGroup.hs view
@@ -0,0 +1,143 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module : Amazonka.Redshift.Types.ClusterSubnetGroup+-- Copyright : (c) 2013-2023 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.Redshift.Types.ClusterSubnetGroup where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Redshift.Internal+import Amazonka.Redshift.Types.Subnet+import Amazonka.Redshift.Types.Tag++-- | Describes a subnet group.+--+-- /See:/ 'newClusterSubnetGroup' smart constructor.+data ClusterSubnetGroup = ClusterSubnetGroup'+ { -- | The name of the cluster subnet group.+ clusterSubnetGroupName :: Prelude.Maybe Prelude.Text,+ -- | The description of the cluster subnet group.+ description :: Prelude.Maybe Prelude.Text,+ -- | The status of the cluster subnet group. Possible values are @Complete@,+ -- @Incomplete@ and @Invalid@.+ subnetGroupStatus :: Prelude.Maybe Prelude.Text,+ -- | A list of the VPC Subnet elements.+ subnets :: Prelude.Maybe [Subnet],+ -- | The list of tags for the cluster subnet group.+ tags :: Prelude.Maybe [Tag],+ -- | The VPC ID of the cluster subnet group.+ vpcId :: Prelude.Maybe Prelude.Text+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ClusterSubnetGroup' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'clusterSubnetGroupName', 'clusterSubnetGroup_clusterSubnetGroupName' - The name of the cluster subnet group.+--+-- 'description', 'clusterSubnetGroup_description' - The description of the cluster subnet group.+--+-- 'subnetGroupStatus', 'clusterSubnetGroup_subnetGroupStatus' - The status of the cluster subnet group. Possible values are @Complete@,+-- @Incomplete@ and @Invalid@.+--+-- 'subnets', 'clusterSubnetGroup_subnets' - A list of the VPC Subnet elements.+--+-- 'tags', 'clusterSubnetGroup_tags' - The list of tags for the cluster subnet group.+--+-- 'vpcId', 'clusterSubnetGroup_vpcId' - The VPC ID of the cluster subnet group.+newClusterSubnetGroup ::+ ClusterSubnetGroup+newClusterSubnetGroup =+ ClusterSubnetGroup'+ { clusterSubnetGroupName =+ Prelude.Nothing,+ description = Prelude.Nothing,+ subnetGroupStatus = Prelude.Nothing,+ subnets = Prelude.Nothing,+ tags = Prelude.Nothing,+ vpcId = Prelude.Nothing+ }++-- | The name of the cluster subnet group.+clusterSubnetGroup_clusterSubnetGroupName :: Lens.Lens' ClusterSubnetGroup (Prelude.Maybe Prelude.Text)+clusterSubnetGroup_clusterSubnetGroupName = Lens.lens (\ClusterSubnetGroup' {clusterSubnetGroupName} -> clusterSubnetGroupName) (\s@ClusterSubnetGroup' {} a -> s {clusterSubnetGroupName = a} :: ClusterSubnetGroup)++-- | The description of the cluster subnet group.+clusterSubnetGroup_description :: Lens.Lens' ClusterSubnetGroup (Prelude.Maybe Prelude.Text)+clusterSubnetGroup_description = Lens.lens (\ClusterSubnetGroup' {description} -> description) (\s@ClusterSubnetGroup' {} a -> s {description = a} :: ClusterSubnetGroup)++-- | The status of the cluster subnet group. Possible values are @Complete@,+-- @Incomplete@ and @Invalid@.+clusterSubnetGroup_subnetGroupStatus :: Lens.Lens' ClusterSubnetGroup (Prelude.Maybe Prelude.Text)+clusterSubnetGroup_subnetGroupStatus = Lens.lens (\ClusterSubnetGroup' {subnetGroupStatus} -> subnetGroupStatus) (\s@ClusterSubnetGroup' {} a -> s {subnetGroupStatus = a} :: ClusterSubnetGroup)++-- | A list of the VPC Subnet elements.+clusterSubnetGroup_subnets :: Lens.Lens' ClusterSubnetGroup (Prelude.Maybe [Subnet])+clusterSubnetGroup_subnets = Lens.lens (\ClusterSubnetGroup' {subnets} -> subnets) (\s@ClusterSubnetGroup' {} a -> s {subnets = a} :: ClusterSubnetGroup) Prelude.. Lens.mapping Lens.coerced++-- | The list of tags for the cluster subnet group.+clusterSubnetGroup_tags :: Lens.Lens' ClusterSubnetGroup (Prelude.Maybe [Tag])+clusterSubnetGroup_tags = Lens.lens (\ClusterSubnetGroup' {tags} -> tags) (\s@ClusterSubnetGroup' {} a -> s {tags = a} :: ClusterSubnetGroup) Prelude.. Lens.mapping Lens.coerced++-- | The VPC ID of the cluster subnet group.+clusterSubnetGroup_vpcId :: Lens.Lens' ClusterSubnetGroup (Prelude.Maybe Prelude.Text)+clusterSubnetGroup_vpcId = Lens.lens (\ClusterSubnetGroup' {vpcId} -> vpcId) (\s@ClusterSubnetGroup' {} a -> s {vpcId = a} :: ClusterSubnetGroup)++instance Data.FromXML ClusterSubnetGroup where+ parseXML x =+ ClusterSubnetGroup'+ Prelude.<$> (x Data..@? "ClusterSubnetGroupName")+ Prelude.<*> (x Data..@? "Description")+ Prelude.<*> (x Data..@? "SubnetGroupStatus")+ Prelude.<*> ( x+ Data..@? "Subnets"+ Core..!@ Prelude.mempty+ Prelude.>>= Core.may (Data.parseXMLList "Subnet")+ )+ Prelude.<*> ( x+ Data..@? "Tags"+ Core..!@ Prelude.mempty+ Prelude.>>= Core.may (Data.parseXMLList "Tag")+ )+ Prelude.<*> (x Data..@? "VpcId")++instance Prelude.Hashable ClusterSubnetGroup where+ hashWithSalt _salt ClusterSubnetGroup' {..} =+ _salt+ `Prelude.hashWithSalt` clusterSubnetGroupName+ `Prelude.hashWithSalt` description+ `Prelude.hashWithSalt` subnetGroupStatus+ `Prelude.hashWithSalt` subnets+ `Prelude.hashWithSalt` tags+ `Prelude.hashWithSalt` vpcId++instance Prelude.NFData ClusterSubnetGroup where+ rnf ClusterSubnetGroup' {..} =+ Prelude.rnf clusterSubnetGroupName+ `Prelude.seq` Prelude.rnf description+ `Prelude.seq` Prelude.rnf subnetGroupStatus+ `Prelude.seq` Prelude.rnf subnets+ `Prelude.seq` Prelude.rnf tags+ `Prelude.seq` Prelude.rnf vpcId
+ gen/Amazonka/Redshift/Types/ClusterVersion.hs view
@@ -0,0 +1,95 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module : Amazonka.Redshift.Types.ClusterVersion+-- Copyright : (c) 2013-2023 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.Redshift.Types.ClusterVersion where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Redshift.Internal++-- | Describes a cluster version, including the parameter group family and+-- description of the version.+--+-- /See:/ 'newClusterVersion' smart constructor.+data ClusterVersion = ClusterVersion'+ { -- | The name of the cluster parameter group family for the cluster.+ clusterParameterGroupFamily :: Prelude.Maybe Prelude.Text,+ -- | The version number used by the cluster.+ clusterVersion :: Prelude.Maybe Prelude.Text,+ -- | The description of the cluster version.+ description :: Prelude.Maybe Prelude.Text+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ClusterVersion' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'clusterParameterGroupFamily', 'clusterVersion_clusterParameterGroupFamily' - The name of the cluster parameter group family for the cluster.+--+-- 'clusterVersion', 'clusterVersion_clusterVersion' - The version number used by the cluster.+--+-- 'description', 'clusterVersion_description' - The description of the cluster version.+newClusterVersion ::+ ClusterVersion+newClusterVersion =+ ClusterVersion'+ { clusterParameterGroupFamily =+ Prelude.Nothing,+ clusterVersion = Prelude.Nothing,+ description = Prelude.Nothing+ }++-- | The name of the cluster parameter group family for the cluster.+clusterVersion_clusterParameterGroupFamily :: Lens.Lens' ClusterVersion (Prelude.Maybe Prelude.Text)+clusterVersion_clusterParameterGroupFamily = Lens.lens (\ClusterVersion' {clusterParameterGroupFamily} -> clusterParameterGroupFamily) (\s@ClusterVersion' {} a -> s {clusterParameterGroupFamily = a} :: ClusterVersion)++-- | The version number used by the cluster.+clusterVersion_clusterVersion :: Lens.Lens' ClusterVersion (Prelude.Maybe Prelude.Text)+clusterVersion_clusterVersion = Lens.lens (\ClusterVersion' {clusterVersion} -> clusterVersion) (\s@ClusterVersion' {} a -> s {clusterVersion = a} :: ClusterVersion)++-- | The description of the cluster version.+clusterVersion_description :: Lens.Lens' ClusterVersion (Prelude.Maybe Prelude.Text)+clusterVersion_description = Lens.lens (\ClusterVersion' {description} -> description) (\s@ClusterVersion' {} a -> s {description = a} :: ClusterVersion)++instance Data.FromXML ClusterVersion where+ parseXML x =+ ClusterVersion'+ Prelude.<$> (x Data..@? "ClusterParameterGroupFamily")+ Prelude.<*> (x Data..@? "ClusterVersion")+ Prelude.<*> (x Data..@? "Description")++instance Prelude.Hashable ClusterVersion where+ hashWithSalt _salt ClusterVersion' {..} =+ _salt+ `Prelude.hashWithSalt` clusterParameterGroupFamily+ `Prelude.hashWithSalt` clusterVersion+ `Prelude.hashWithSalt` description++instance Prelude.NFData ClusterVersion where+ rnf ClusterVersion' {..} =+ Prelude.rnf clusterParameterGroupFamily+ `Prelude.seq` Prelude.rnf clusterVersion+ `Prelude.seq` Prelude.rnf description
@@ -0,0 +1,139 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module : Amazonka.Redshift.Types.DataShare+-- Copyright : (c) 2013-2023 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.Redshift.Types.DataShare where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Redshift.Internal+import Amazonka.Redshift.Types.DataShareAssociation++-- | /See:/ 'newDataShare' smart constructor.+data DataShare = DataShare'+ { -- | A value that specifies whether the datashare can be shared to a publicly+ -- accessible cluster.+ allowPubliclyAccessibleConsumers :: Prelude.Maybe Prelude.Bool,+ -- | An Amazon Resource Name (ARN) that references the datashare that is+ -- owned by a specific namespace of the producer cluster. A datashare ARN+ -- is in the+ -- @arn:aws:redshift:{region}:{account-id}:{datashare}:{namespace-guid}\/{datashare-name}@+ -- format.+ dataShareArn :: Prelude.Maybe Prelude.Text,+ -- | A value that specifies when the datashare has an association between+ -- producer and data consumers.+ dataShareAssociations :: Prelude.Maybe [DataShareAssociation],+ -- | The identifier of a datashare to show its managing entity.+ managedBy :: Prelude.Maybe Prelude.Text,+ -- | The Amazon Resource Name (ARN) of the producer.+ producerArn :: Prelude.Maybe Prelude.Text+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DataShare' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'allowPubliclyAccessibleConsumers', 'dataShare_allowPubliclyAccessibleConsumers' - A value that specifies whether the datashare can be shared to a publicly+-- accessible cluster.+--+-- 'dataShareArn', 'dataShare_dataShareArn' - An Amazon Resource Name (ARN) that references the datashare that is+-- owned by a specific namespace of the producer cluster. A datashare ARN+-- is in the+-- @arn:aws:redshift:{region}:{account-id}:{datashare}:{namespace-guid}\/{datashare-name}@+-- format.+--+-- 'dataShareAssociations', 'dataShare_dataShareAssociations' - A value that specifies when the datashare has an association between+-- producer and data consumers.+--+-- 'managedBy', 'dataShare_managedBy' - The identifier of a datashare to show its managing entity.+--+-- 'producerArn', 'dataShare_producerArn' - The Amazon Resource Name (ARN) of the producer.+newDataShare ::+ DataShare+newDataShare =+ DataShare'+ { allowPubliclyAccessibleConsumers =+ Prelude.Nothing,+ dataShareArn = Prelude.Nothing,+ dataShareAssociations = Prelude.Nothing,+ managedBy = Prelude.Nothing,+ producerArn = Prelude.Nothing+ }++-- | A value that specifies whether the datashare can be shared to a publicly+-- accessible cluster.+dataShare_allowPubliclyAccessibleConsumers :: Lens.Lens' DataShare (Prelude.Maybe Prelude.Bool)+dataShare_allowPubliclyAccessibleConsumers = Lens.lens (\DataShare' {allowPubliclyAccessibleConsumers} -> allowPubliclyAccessibleConsumers) (\s@DataShare' {} a -> s {allowPubliclyAccessibleConsumers = a} :: DataShare)++-- | An Amazon Resource Name (ARN) that references the datashare that is+-- owned by a specific namespace of the producer cluster. A datashare ARN+-- is in the+-- @arn:aws:redshift:{region}:{account-id}:{datashare}:{namespace-guid}\/{datashare-name}@+-- format.+dataShare_dataShareArn :: Lens.Lens' DataShare (Prelude.Maybe Prelude.Text)+dataShare_dataShareArn = Lens.lens (\DataShare' {dataShareArn} -> dataShareArn) (\s@DataShare' {} a -> s {dataShareArn = a} :: DataShare)++-- | A value that specifies when the datashare has an association between+-- producer and data consumers.+dataShare_dataShareAssociations :: Lens.Lens' DataShare (Prelude.Maybe [DataShareAssociation])+dataShare_dataShareAssociations = Lens.lens (\DataShare' {dataShareAssociations} -> dataShareAssociations) (\s@DataShare' {} a -> s {dataShareAssociations = a} :: DataShare) Prelude.. Lens.mapping Lens.coerced++-- | The identifier of a datashare to show its managing entity.+dataShare_managedBy :: Lens.Lens' DataShare (Prelude.Maybe Prelude.Text)+dataShare_managedBy = Lens.lens (\DataShare' {managedBy} -> managedBy) (\s@DataShare' {} a -> s {managedBy = a} :: DataShare)++-- | The Amazon Resource Name (ARN) of the producer.+dataShare_producerArn :: Lens.Lens' DataShare (Prelude.Maybe Prelude.Text)+dataShare_producerArn = Lens.lens (\DataShare' {producerArn} -> producerArn) (\s@DataShare' {} a -> s {producerArn = a} :: DataShare)++instance Data.FromXML DataShare where+ parseXML x =+ DataShare'+ Prelude.<$> (x Data..@? "AllowPubliclyAccessibleConsumers")+ Prelude.<*> (x Data..@? "DataShareArn")+ Prelude.<*> ( x+ Data..@? "DataShareAssociations"+ Core..!@ Prelude.mempty+ Prelude.>>= Core.may (Data.parseXMLList "member")+ )+ Prelude.<*> (x Data..@? "ManagedBy")+ Prelude.<*> (x Data..@? "ProducerArn")++instance Prelude.Hashable DataShare where+ hashWithSalt _salt DataShare' {..} =+ _salt+ `Prelude.hashWithSalt` allowPubliclyAccessibleConsumers+ `Prelude.hashWithSalt` dataShareArn+ `Prelude.hashWithSalt` dataShareAssociations+ `Prelude.hashWithSalt` managedBy+ `Prelude.hashWithSalt` producerArn++instance Prelude.NFData DataShare where+ rnf DataShare' {..} =+ Prelude.rnf allowPubliclyAccessibleConsumers+ `Prelude.seq` Prelude.rnf dataShareArn+ `Prelude.seq` Prelude.rnf dataShareAssociations+ `Prelude.seq` Prelude.rnf managedBy+ `Prelude.seq` Prelude.rnf producerArn
@@ -0,0 +1,126 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module : Amazonka.Redshift.Types.DataShareAssociation+-- Copyright : (c) 2013-2023 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.Redshift.Types.DataShareAssociation where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Redshift.Internal+import Amazonka.Redshift.Types.DataShareStatus++-- | The association of a datashare from a producer account with a data+-- consumer.+--+-- /See:/ 'newDataShareAssociation' smart constructor.+data DataShareAssociation = DataShareAssociation'+ { -- | The name of the consumer accounts that have an association with a+ -- producer datashare.+ consumerIdentifier :: Prelude.Maybe Prelude.Text,+ -- | The Amazon Web Services Region of the consumer accounts that have an+ -- association with a producer datashare.+ consumerRegion :: Prelude.Maybe Prelude.Text,+ -- | The creation date of the datashare that is associated.+ createdDate :: Prelude.Maybe Data.ISO8601,+ -- | The status of the datashare that is associated.+ status :: Prelude.Maybe DataShareStatus,+ -- | The status change data of the datashare that is associated.+ statusChangeDate :: Prelude.Maybe Data.ISO8601+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DataShareAssociation' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'consumerIdentifier', 'dataShareAssociation_consumerIdentifier' - The name of the consumer accounts that have an association with a+-- producer datashare.+--+-- 'consumerRegion', 'dataShareAssociation_consumerRegion' - The Amazon Web Services Region of the consumer accounts that have an+-- association with a producer datashare.+--+-- 'createdDate', 'dataShareAssociation_createdDate' - The creation date of the datashare that is associated.+--+-- 'status', 'dataShareAssociation_status' - The status of the datashare that is associated.+--+-- 'statusChangeDate', 'dataShareAssociation_statusChangeDate' - The status change data of the datashare that is associated.+newDataShareAssociation ::+ DataShareAssociation+newDataShareAssociation =+ DataShareAssociation'+ { consumerIdentifier =+ Prelude.Nothing,+ consumerRegion = Prelude.Nothing,+ createdDate = Prelude.Nothing,+ status = Prelude.Nothing,+ statusChangeDate = Prelude.Nothing+ }++-- | The name of the consumer accounts that have an association with a+-- producer datashare.+dataShareAssociation_consumerIdentifier :: Lens.Lens' DataShareAssociation (Prelude.Maybe Prelude.Text)+dataShareAssociation_consumerIdentifier = Lens.lens (\DataShareAssociation' {consumerIdentifier} -> consumerIdentifier) (\s@DataShareAssociation' {} a -> s {consumerIdentifier = a} :: DataShareAssociation)++-- | The Amazon Web Services Region of the consumer accounts that have an+-- association with a producer datashare.+dataShareAssociation_consumerRegion :: Lens.Lens' DataShareAssociation (Prelude.Maybe Prelude.Text)+dataShareAssociation_consumerRegion = Lens.lens (\DataShareAssociation' {consumerRegion} -> consumerRegion) (\s@DataShareAssociation' {} a -> s {consumerRegion = a} :: DataShareAssociation)++-- | The creation date of the datashare that is associated.+dataShareAssociation_createdDate :: Lens.Lens' DataShareAssociation (Prelude.Maybe Prelude.UTCTime)+dataShareAssociation_createdDate = Lens.lens (\DataShareAssociation' {createdDate} -> createdDate) (\s@DataShareAssociation' {} a -> s {createdDate = a} :: DataShareAssociation) Prelude.. Lens.mapping Data._Time++-- | The status of the datashare that is associated.+dataShareAssociation_status :: Lens.Lens' DataShareAssociation (Prelude.Maybe DataShareStatus)+dataShareAssociation_status = Lens.lens (\DataShareAssociation' {status} -> status) (\s@DataShareAssociation' {} a -> s {status = a} :: DataShareAssociation)++-- | The status change data of the datashare that is associated.+dataShareAssociation_statusChangeDate :: Lens.Lens' DataShareAssociation (Prelude.Maybe Prelude.UTCTime)+dataShareAssociation_statusChangeDate = Lens.lens (\DataShareAssociation' {statusChangeDate} -> statusChangeDate) (\s@DataShareAssociation' {} a -> s {statusChangeDate = a} :: DataShareAssociation) Prelude.. Lens.mapping Data._Time++instance Data.FromXML DataShareAssociation where+ parseXML x =+ DataShareAssociation'+ Prelude.<$> (x Data..@? "ConsumerIdentifier")+ Prelude.<*> (x Data..@? "ConsumerRegion")+ Prelude.<*> (x Data..@? "CreatedDate")+ Prelude.<*> (x Data..@? "Status")+ Prelude.<*> (x Data..@? "StatusChangeDate")++instance Prelude.Hashable DataShareAssociation where+ hashWithSalt _salt DataShareAssociation' {..} =+ _salt+ `Prelude.hashWithSalt` consumerIdentifier+ `Prelude.hashWithSalt` consumerRegion+ `Prelude.hashWithSalt` createdDate+ `Prelude.hashWithSalt` status+ `Prelude.hashWithSalt` statusChangeDate++instance Prelude.NFData DataShareAssociation where+ rnf DataShareAssociation' {..} =+ Prelude.rnf consumerIdentifier+ `Prelude.seq` Prelude.rnf consumerRegion+ `Prelude.seq` Prelude.rnf createdDate+ `Prelude.seq` Prelude.rnf status+ `Prelude.seq` Prelude.rnf statusChangeDate
@@ -0,0 +1,92 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE GeneralizedNewtypeDeriving #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module : Amazonka.Redshift.Types.DataShareStatus+-- Copyright : (c) 2013-2023 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.Redshift.Types.DataShareStatus+ ( DataShareStatus+ ( ..,+ DataShareStatus_ACTIVE,+ DataShareStatus_AUTHORIZED,+ DataShareStatus_AVAILABLE,+ DataShareStatus_DEAUTHORIZED,+ DataShareStatus_PENDING_AUTHORIZATION,+ DataShareStatus_REJECTED+ ),+ )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Redshift.Internal++newtype DataShareStatus = DataShareStatus'+ { fromDataShareStatus ::+ Data.Text+ }+ deriving stock+ ( Prelude.Show,+ Prelude.Read,+ Prelude.Eq,+ Prelude.Ord,+ Prelude.Generic+ )+ deriving newtype+ ( Prelude.Hashable,+ Prelude.NFData,+ Data.FromText,+ Data.ToText,+ Data.ToByteString,+ Data.ToLog,+ Data.ToHeader,+ Data.ToQuery,+ Data.FromJSON,+ Data.FromJSONKey,+ Data.ToJSON,+ Data.ToJSONKey,+ Data.FromXML,+ Data.ToXML+ )++pattern DataShareStatus_ACTIVE :: DataShareStatus+pattern DataShareStatus_ACTIVE = DataShareStatus' "ACTIVE"++pattern DataShareStatus_AUTHORIZED :: DataShareStatus+pattern DataShareStatus_AUTHORIZED = DataShareStatus' "AUTHORIZED"++pattern DataShareStatus_AVAILABLE :: DataShareStatus+pattern DataShareStatus_AVAILABLE = DataShareStatus' "AVAILABLE"++pattern DataShareStatus_DEAUTHORIZED :: DataShareStatus+pattern DataShareStatus_DEAUTHORIZED = DataShareStatus' "DEAUTHORIZED"++pattern DataShareStatus_PENDING_AUTHORIZATION :: DataShareStatus+pattern DataShareStatus_PENDING_AUTHORIZATION = DataShareStatus' "PENDING_AUTHORIZATION"++pattern DataShareStatus_REJECTED :: DataShareStatus+pattern DataShareStatus_REJECTED = DataShareStatus' "REJECTED"++{-# COMPLETE+ DataShareStatus_ACTIVE,+ DataShareStatus_AUTHORIZED,+ DataShareStatus_AVAILABLE,+ DataShareStatus_DEAUTHORIZED,+ DataShareStatus_PENDING_AUTHORIZATION,+ DataShareStatus_REJECTED,+ DataShareStatus'+ #-}
@@ -0,0 +1,72 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE GeneralizedNewtypeDeriving #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module : Amazonka.Redshift.Types.DataShareStatusForConsumer+-- Copyright : (c) 2013-2023 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.Redshift.Types.DataShareStatusForConsumer+ ( DataShareStatusForConsumer+ ( ..,+ DataShareStatusForConsumer_ACTIVE,+ DataShareStatusForConsumer_AVAILABLE+ ),+ )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Redshift.Internal++newtype DataShareStatusForConsumer = DataShareStatusForConsumer'+ { fromDataShareStatusForConsumer ::+ Data.Text+ }+ deriving stock+ ( Prelude.Show,+ Prelude.Read,+ Prelude.Eq,+ Prelude.Ord,+ Prelude.Generic+ )+ deriving newtype+ ( Prelude.Hashable,+ Prelude.NFData,+ Data.FromText,+ Data.ToText,+ Data.ToByteString,+ Data.ToLog,+ Data.ToHeader,+ Data.ToQuery,+ Data.FromJSON,+ Data.FromJSONKey,+ Data.ToJSON,+ Data.ToJSONKey,+ Data.FromXML,+ Data.ToXML+ )++pattern DataShareStatusForConsumer_ACTIVE :: DataShareStatusForConsumer+pattern DataShareStatusForConsumer_ACTIVE = DataShareStatusForConsumer' "ACTIVE"++pattern DataShareStatusForConsumer_AVAILABLE :: DataShareStatusForConsumer+pattern DataShareStatusForConsumer_AVAILABLE = DataShareStatusForConsumer' "AVAILABLE"++{-# COMPLETE+ DataShareStatusForConsumer_ACTIVE,+ DataShareStatusForConsumer_AVAILABLE,+ DataShareStatusForConsumer'+ #-}
@@ -0,0 +1,87 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE GeneralizedNewtypeDeriving #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module : Amazonka.Redshift.Types.DataShareStatusForProducer+-- Copyright : (c) 2013-2023 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.Redshift.Types.DataShareStatusForProducer+ ( DataShareStatusForProducer+ ( ..,+ DataShareStatusForProducer_ACTIVE,+ DataShareStatusForProducer_AUTHORIZED,+ DataShareStatusForProducer_DEAUTHORIZED,+ DataShareStatusForProducer_PENDING_AUTHORIZATION,+ DataShareStatusForProducer_REJECTED+ ),+ )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Redshift.Internal++newtype DataShareStatusForProducer = DataShareStatusForProducer'+ { fromDataShareStatusForProducer ::+ Data.Text+ }+ deriving stock+ ( Prelude.Show,+ Prelude.Read,+ Prelude.Eq,+ Prelude.Ord,+ Prelude.Generic+ )+ deriving newtype+ ( Prelude.Hashable,+ Prelude.NFData,+ Data.FromText,+ Data.ToText,+ Data.ToByteString,+ Data.ToLog,+ Data.ToHeader,+ Data.ToQuery,+ Data.FromJSON,+ Data.FromJSONKey,+ Data.ToJSON,+ Data.ToJSONKey,+ Data.FromXML,+ Data.ToXML+ )++pattern DataShareStatusForProducer_ACTIVE :: DataShareStatusForProducer+pattern DataShareStatusForProducer_ACTIVE = DataShareStatusForProducer' "ACTIVE"++pattern DataShareStatusForProducer_AUTHORIZED :: DataShareStatusForProducer+pattern DataShareStatusForProducer_AUTHORIZED = DataShareStatusForProducer' "AUTHORIZED"++pattern DataShareStatusForProducer_DEAUTHORIZED :: DataShareStatusForProducer+pattern DataShareStatusForProducer_DEAUTHORIZED = DataShareStatusForProducer' "DEAUTHORIZED"++pattern DataShareStatusForProducer_PENDING_AUTHORIZATION :: DataShareStatusForProducer+pattern DataShareStatusForProducer_PENDING_AUTHORIZATION = DataShareStatusForProducer' "PENDING_AUTHORIZATION"++pattern DataShareStatusForProducer_REJECTED :: DataShareStatusForProducer+pattern DataShareStatusForProducer_REJECTED = DataShareStatusForProducer' "REJECTED"++{-# COMPLETE+ DataShareStatusForProducer_ACTIVE,+ DataShareStatusForProducer_AUTHORIZED,+ DataShareStatusForProducer_DEAUTHORIZED,+ DataShareStatusForProducer_PENDING_AUTHORIZATION,+ DataShareStatusForProducer_REJECTED,+ DataShareStatusForProducer'+ #-}
+ gen/Amazonka/Redshift/Types/DataTransferProgress.hs view
@@ -0,0 +1,140 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module : Amazonka.Redshift.Types.DataTransferProgress+-- Copyright : (c) 2013-2023 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.Redshift.Types.DataTransferProgress where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Redshift.Internal++-- | Describes the status of a cluster while it is in the process of resizing+-- with an incremental resize.+--+-- /See:/ 'newDataTransferProgress' smart constructor.+data DataTransferProgress = DataTransferProgress'+ { -- | Describes the data transfer rate in MB\'s per second.+ currentRateInMegaBytesPerSecond :: Prelude.Maybe Prelude.Double,+ -- | Describes the total amount of data that has been transfered in MB\'s.+ dataTransferredInMegaBytes :: Prelude.Maybe Prelude.Integer,+ -- | Describes the number of seconds that have elapsed during the data+ -- transfer.+ elapsedTimeInSeconds :: Prelude.Maybe Prelude.Integer,+ -- | Describes the estimated number of seconds remaining to complete the+ -- transfer.+ estimatedTimeToCompletionInSeconds :: Prelude.Maybe Prelude.Integer,+ -- | Describes the status of the cluster. While the transfer is in progress+ -- the status is @transferringdata@.+ status :: Prelude.Maybe Prelude.Text,+ -- | Describes the total amount of data to be transfered in megabytes.+ totalDataInMegaBytes :: Prelude.Maybe Prelude.Integer+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DataTransferProgress' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'currentRateInMegaBytesPerSecond', 'dataTransferProgress_currentRateInMegaBytesPerSecond' - Describes the data transfer rate in MB\'s per second.+--+-- 'dataTransferredInMegaBytes', 'dataTransferProgress_dataTransferredInMegaBytes' - Describes the total amount of data that has been transfered in MB\'s.+--+-- 'elapsedTimeInSeconds', 'dataTransferProgress_elapsedTimeInSeconds' - Describes the number of seconds that have elapsed during the data+-- transfer.+--+-- 'estimatedTimeToCompletionInSeconds', 'dataTransferProgress_estimatedTimeToCompletionInSeconds' - Describes the estimated number of seconds remaining to complete the+-- transfer.+--+-- 'status', 'dataTransferProgress_status' - Describes the status of the cluster. While the transfer is in progress+-- the status is @transferringdata@.+--+-- 'totalDataInMegaBytes', 'dataTransferProgress_totalDataInMegaBytes' - Describes the total amount of data to be transfered in megabytes.+newDataTransferProgress ::+ DataTransferProgress+newDataTransferProgress =+ DataTransferProgress'+ { currentRateInMegaBytesPerSecond =+ Prelude.Nothing,+ dataTransferredInMegaBytes = Prelude.Nothing,+ elapsedTimeInSeconds = Prelude.Nothing,+ estimatedTimeToCompletionInSeconds = Prelude.Nothing,+ status = Prelude.Nothing,+ totalDataInMegaBytes = Prelude.Nothing+ }++-- | Describes the data transfer rate in MB\'s per second.+dataTransferProgress_currentRateInMegaBytesPerSecond :: Lens.Lens' DataTransferProgress (Prelude.Maybe Prelude.Double)+dataTransferProgress_currentRateInMegaBytesPerSecond = Lens.lens (\DataTransferProgress' {currentRateInMegaBytesPerSecond} -> currentRateInMegaBytesPerSecond) (\s@DataTransferProgress' {} a -> s {currentRateInMegaBytesPerSecond = a} :: DataTransferProgress)++-- | Describes the total amount of data that has been transfered in MB\'s.+dataTransferProgress_dataTransferredInMegaBytes :: Lens.Lens' DataTransferProgress (Prelude.Maybe Prelude.Integer)+dataTransferProgress_dataTransferredInMegaBytes = Lens.lens (\DataTransferProgress' {dataTransferredInMegaBytes} -> dataTransferredInMegaBytes) (\s@DataTransferProgress' {} a -> s {dataTransferredInMegaBytes = a} :: DataTransferProgress)++-- | Describes the number of seconds that have elapsed during the data+-- transfer.+dataTransferProgress_elapsedTimeInSeconds :: Lens.Lens' DataTransferProgress (Prelude.Maybe Prelude.Integer)+dataTransferProgress_elapsedTimeInSeconds = Lens.lens (\DataTransferProgress' {elapsedTimeInSeconds} -> elapsedTimeInSeconds) (\s@DataTransferProgress' {} a -> s {elapsedTimeInSeconds = a} :: DataTransferProgress)++-- | Describes the estimated number of seconds remaining to complete the+-- transfer.+dataTransferProgress_estimatedTimeToCompletionInSeconds :: Lens.Lens' DataTransferProgress (Prelude.Maybe Prelude.Integer)+dataTransferProgress_estimatedTimeToCompletionInSeconds = Lens.lens (\DataTransferProgress' {estimatedTimeToCompletionInSeconds} -> estimatedTimeToCompletionInSeconds) (\s@DataTransferProgress' {} a -> s {estimatedTimeToCompletionInSeconds = a} :: DataTransferProgress)++-- | Describes the status of the cluster. While the transfer is in progress+-- the status is @transferringdata@.+dataTransferProgress_status :: Lens.Lens' DataTransferProgress (Prelude.Maybe Prelude.Text)+dataTransferProgress_status = Lens.lens (\DataTransferProgress' {status} -> status) (\s@DataTransferProgress' {} a -> s {status = a} :: DataTransferProgress)++-- | Describes the total amount of data to be transfered in megabytes.+dataTransferProgress_totalDataInMegaBytes :: Lens.Lens' DataTransferProgress (Prelude.Maybe Prelude.Integer)+dataTransferProgress_totalDataInMegaBytes = Lens.lens (\DataTransferProgress' {totalDataInMegaBytes} -> totalDataInMegaBytes) (\s@DataTransferProgress' {} a -> s {totalDataInMegaBytes = a} :: DataTransferProgress)++instance Data.FromXML DataTransferProgress where+ parseXML x =+ DataTransferProgress'+ Prelude.<$> (x Data..@? "CurrentRateInMegaBytesPerSecond")+ Prelude.<*> (x Data..@? "DataTransferredInMegaBytes")+ Prelude.<*> (x Data..@? "ElapsedTimeInSeconds")+ Prelude.<*> (x Data..@? "EstimatedTimeToCompletionInSeconds")+ Prelude.<*> (x Data..@? "Status")+ Prelude.<*> (x Data..@? "TotalDataInMegaBytes")++instance Prelude.Hashable DataTransferProgress where+ hashWithSalt _salt DataTransferProgress' {..} =+ _salt+ `Prelude.hashWithSalt` currentRateInMegaBytesPerSecond+ `Prelude.hashWithSalt` dataTransferredInMegaBytes+ `Prelude.hashWithSalt` elapsedTimeInSeconds+ `Prelude.hashWithSalt` estimatedTimeToCompletionInSeconds+ `Prelude.hashWithSalt` status+ `Prelude.hashWithSalt` totalDataInMegaBytes++instance Prelude.NFData DataTransferProgress where+ rnf DataTransferProgress' {..} =+ Prelude.rnf currentRateInMegaBytesPerSecond+ `Prelude.seq` Prelude.rnf dataTransferredInMegaBytes+ `Prelude.seq` Prelude.rnf elapsedTimeInSeconds+ `Prelude.seq` Prelude.rnf estimatedTimeToCompletionInSeconds+ `Prelude.seq` Prelude.rnf status+ `Prelude.seq` Prelude.rnf totalDataInMegaBytes
+ gen/Amazonka/Redshift/Types/DefaultClusterParameters.hs view
@@ -0,0 +1,116 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module : Amazonka.Redshift.Types.DefaultClusterParameters+-- Copyright : (c) 2013-2023 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.Redshift.Types.DefaultClusterParameters where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Redshift.Internal+import Amazonka.Redshift.Types.Parameter++-- | Describes the default cluster parameters for a parameter group family.+--+-- /See:/ 'newDefaultClusterParameters' smart constructor.+data DefaultClusterParameters = DefaultClusterParameters'+ { -- | A value that indicates the starting point for the next set of response+ -- records in a subsequent request. If a value is returned in a response,+ -- you can retrieve the next set of records by providing this returned+ -- marker value in the @Marker@ parameter and retrying the command. If the+ -- @Marker@ field is empty, all response records have been retrieved for+ -- the request.+ marker :: Prelude.Maybe Prelude.Text,+ -- | The name of the cluster parameter group family to which the engine+ -- default parameters apply.+ parameterGroupFamily :: Prelude.Maybe Prelude.Text,+ -- | The list of cluster default parameters.+ parameters :: Prelude.Maybe [Parameter]+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DefaultClusterParameters' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'marker', 'defaultClusterParameters_marker' - A value that indicates the starting point for the next set of response+-- records in a subsequent request. If a value is returned in a response,+-- you can retrieve the next set of records by providing this returned+-- marker value in the @Marker@ parameter and retrying the command. If the+-- @Marker@ field is empty, all response records have been retrieved for+-- the request.+--+-- 'parameterGroupFamily', 'defaultClusterParameters_parameterGroupFamily' - The name of the cluster parameter group family to which the engine+-- default parameters apply.+--+-- 'parameters', 'defaultClusterParameters_parameters' - The list of cluster default parameters.+newDefaultClusterParameters ::+ DefaultClusterParameters+newDefaultClusterParameters =+ DefaultClusterParameters'+ { marker = Prelude.Nothing,+ parameterGroupFamily = Prelude.Nothing,+ parameters = Prelude.Nothing+ }++-- | A value that indicates the starting point for the next set of response+-- records in a subsequent request. If a value is returned in a response,+-- you can retrieve the next set of records by providing this returned+-- marker value in the @Marker@ parameter and retrying the command. If the+-- @Marker@ field is empty, all response records have been retrieved for+-- the request.+defaultClusterParameters_marker :: Lens.Lens' DefaultClusterParameters (Prelude.Maybe Prelude.Text)+defaultClusterParameters_marker = Lens.lens (\DefaultClusterParameters' {marker} -> marker) (\s@DefaultClusterParameters' {} a -> s {marker = a} :: DefaultClusterParameters)++-- | The name of the cluster parameter group family to which the engine+-- default parameters apply.+defaultClusterParameters_parameterGroupFamily :: Lens.Lens' DefaultClusterParameters (Prelude.Maybe Prelude.Text)+defaultClusterParameters_parameterGroupFamily = Lens.lens (\DefaultClusterParameters' {parameterGroupFamily} -> parameterGroupFamily) (\s@DefaultClusterParameters' {} a -> s {parameterGroupFamily = a} :: DefaultClusterParameters)++-- | The list of cluster default parameters.+defaultClusterParameters_parameters :: Lens.Lens' DefaultClusterParameters (Prelude.Maybe [Parameter])+defaultClusterParameters_parameters = Lens.lens (\DefaultClusterParameters' {parameters} -> parameters) (\s@DefaultClusterParameters' {} a -> s {parameters = a} :: DefaultClusterParameters) Prelude.. Lens.mapping Lens.coerced++instance Data.FromXML DefaultClusterParameters where+ parseXML x =+ DefaultClusterParameters'+ Prelude.<$> (x Data..@? "Marker")+ Prelude.<*> (x Data..@? "ParameterGroupFamily")+ Prelude.<*> ( x+ Data..@? "Parameters"+ Core..!@ Prelude.mempty+ Prelude.>>= Core.may (Data.parseXMLList "Parameter")+ )++instance Prelude.Hashable DefaultClusterParameters where+ hashWithSalt _salt DefaultClusterParameters' {..} =+ _salt+ `Prelude.hashWithSalt` marker+ `Prelude.hashWithSalt` parameterGroupFamily+ `Prelude.hashWithSalt` parameters++instance Prelude.NFData DefaultClusterParameters where+ rnf DefaultClusterParameters' {..} =+ Prelude.rnf marker+ `Prelude.seq` Prelude.rnf parameterGroupFamily+ `Prelude.seq` Prelude.rnf parameters
+ gen/Amazonka/Redshift/Types/DeferredMaintenanceWindow.hs view
@@ -0,0 +1,97 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module : Amazonka.Redshift.Types.DeferredMaintenanceWindow+-- Copyright : (c) 2013-2023 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.Redshift.Types.DeferredMaintenanceWindow where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Redshift.Internal++-- | Describes a deferred maintenance window+--+-- /See:/ 'newDeferredMaintenanceWindow' smart constructor.+data DeferredMaintenanceWindow = DeferredMaintenanceWindow'+ { -- | A timestamp for the end of the time period when we defer maintenance.+ deferMaintenanceEndTime :: Prelude.Maybe Data.ISO8601,+ -- | A unique identifier for the maintenance window.+ deferMaintenanceIdentifier :: Prelude.Maybe Prelude.Text,+ -- | A timestamp for the beginning of the time period when we defer+ -- maintenance.+ deferMaintenanceStartTime :: Prelude.Maybe Data.ISO8601+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DeferredMaintenanceWindow' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'deferMaintenanceEndTime', 'deferredMaintenanceWindow_deferMaintenanceEndTime' - A timestamp for the end of the time period when we defer maintenance.+--+-- 'deferMaintenanceIdentifier', 'deferredMaintenanceWindow_deferMaintenanceIdentifier' - A unique identifier for the maintenance window.+--+-- 'deferMaintenanceStartTime', 'deferredMaintenanceWindow_deferMaintenanceStartTime' - A timestamp for the beginning of the time period when we defer+-- maintenance.+newDeferredMaintenanceWindow ::+ DeferredMaintenanceWindow+newDeferredMaintenanceWindow =+ DeferredMaintenanceWindow'+ { deferMaintenanceEndTime =+ Prelude.Nothing,+ deferMaintenanceIdentifier = Prelude.Nothing,+ deferMaintenanceStartTime = Prelude.Nothing+ }++-- | A timestamp for the end of the time period when we defer maintenance.+deferredMaintenanceWindow_deferMaintenanceEndTime :: Lens.Lens' DeferredMaintenanceWindow (Prelude.Maybe Prelude.UTCTime)+deferredMaintenanceWindow_deferMaintenanceEndTime = Lens.lens (\DeferredMaintenanceWindow' {deferMaintenanceEndTime} -> deferMaintenanceEndTime) (\s@DeferredMaintenanceWindow' {} a -> s {deferMaintenanceEndTime = a} :: DeferredMaintenanceWindow) Prelude.. Lens.mapping Data._Time++-- | A unique identifier for the maintenance window.+deferredMaintenanceWindow_deferMaintenanceIdentifier :: Lens.Lens' DeferredMaintenanceWindow (Prelude.Maybe Prelude.Text)+deferredMaintenanceWindow_deferMaintenanceIdentifier = Lens.lens (\DeferredMaintenanceWindow' {deferMaintenanceIdentifier} -> deferMaintenanceIdentifier) (\s@DeferredMaintenanceWindow' {} a -> s {deferMaintenanceIdentifier = a} :: DeferredMaintenanceWindow)++-- | A timestamp for the beginning of the time period when we defer+-- maintenance.+deferredMaintenanceWindow_deferMaintenanceStartTime :: Lens.Lens' DeferredMaintenanceWindow (Prelude.Maybe Prelude.UTCTime)+deferredMaintenanceWindow_deferMaintenanceStartTime = Lens.lens (\DeferredMaintenanceWindow' {deferMaintenanceStartTime} -> deferMaintenanceStartTime) (\s@DeferredMaintenanceWindow' {} a -> s {deferMaintenanceStartTime = a} :: DeferredMaintenanceWindow) Prelude.. Lens.mapping Data._Time++instance Data.FromXML DeferredMaintenanceWindow where+ parseXML x =+ DeferredMaintenanceWindow'+ Prelude.<$> (x Data..@? "DeferMaintenanceEndTime")+ Prelude.<*> (x Data..@? "DeferMaintenanceIdentifier")+ Prelude.<*> (x Data..@? "DeferMaintenanceStartTime")++instance Prelude.Hashable DeferredMaintenanceWindow where+ hashWithSalt _salt DeferredMaintenanceWindow' {..} =+ _salt+ `Prelude.hashWithSalt` deferMaintenanceEndTime+ `Prelude.hashWithSalt` deferMaintenanceIdentifier+ `Prelude.hashWithSalt` deferMaintenanceStartTime++instance Prelude.NFData DeferredMaintenanceWindow where+ rnf DeferredMaintenanceWindow' {..} =+ Prelude.rnf deferMaintenanceEndTime+ `Prelude.seq` Prelude.rnf deferMaintenanceIdentifier+ `Prelude.seq` Prelude.rnf deferMaintenanceStartTime
+ gen/Amazonka/Redshift/Types/DeleteClusterSnapshotMessage.hs view
@@ -0,0 +1,113 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module : Amazonka.Redshift.Types.DeleteClusterSnapshotMessage+-- Copyright : (c) 2013-2023 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.Redshift.Types.DeleteClusterSnapshotMessage where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Redshift.Internal++-- |+--+-- /See:/ 'newDeleteClusterSnapshotMessage' smart constructor.+data DeleteClusterSnapshotMessage = DeleteClusterSnapshotMessage'+ { -- | The unique identifier of the cluster the snapshot was created from. This+ -- parameter is required if your IAM user has a policy containing a+ -- snapshot resource element that specifies anything other than * for the+ -- cluster name.+ --+ -- Constraints: Must be the name of valid cluster.+ snapshotClusterIdentifier :: Prelude.Maybe Prelude.Text,+ -- | The unique identifier of the manual snapshot to be deleted.+ --+ -- Constraints: Must be the name of an existing snapshot that is in the+ -- @available@, @failed@, or @cancelled@ state.+ snapshotIdentifier :: Prelude.Text+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DeleteClusterSnapshotMessage' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'snapshotClusterIdentifier', 'deleteClusterSnapshotMessage_snapshotClusterIdentifier' - The unique identifier of the cluster the snapshot was created from. This+-- parameter is required if your IAM user has a policy containing a+-- snapshot resource element that specifies anything other than * for the+-- cluster name.+--+-- Constraints: Must be the name of valid cluster.+--+-- 'snapshotIdentifier', 'deleteClusterSnapshotMessage_snapshotIdentifier' - The unique identifier of the manual snapshot to be deleted.+--+-- Constraints: Must be the name of an existing snapshot that is in the+-- @available@, @failed@, or @cancelled@ state.+newDeleteClusterSnapshotMessage ::+ -- | 'snapshotIdentifier'+ Prelude.Text ->+ DeleteClusterSnapshotMessage+newDeleteClusterSnapshotMessage pSnapshotIdentifier_ =+ DeleteClusterSnapshotMessage'+ { snapshotClusterIdentifier =+ Prelude.Nothing,+ snapshotIdentifier = pSnapshotIdentifier_+ }++-- | The unique identifier of the cluster the snapshot was created from. This+-- parameter is required if your IAM user has a policy containing a+-- snapshot resource element that specifies anything other than * for the+-- cluster name.+--+-- Constraints: Must be the name of valid cluster.+deleteClusterSnapshotMessage_snapshotClusterIdentifier :: Lens.Lens' DeleteClusterSnapshotMessage (Prelude.Maybe Prelude.Text)+deleteClusterSnapshotMessage_snapshotClusterIdentifier = Lens.lens (\DeleteClusterSnapshotMessage' {snapshotClusterIdentifier} -> snapshotClusterIdentifier) (\s@DeleteClusterSnapshotMessage' {} a -> s {snapshotClusterIdentifier = a} :: DeleteClusterSnapshotMessage)++-- | The unique identifier of the manual snapshot to be deleted.+--+-- Constraints: Must be the name of an existing snapshot that is in the+-- @available@, @failed@, or @cancelled@ state.+deleteClusterSnapshotMessage_snapshotIdentifier :: Lens.Lens' DeleteClusterSnapshotMessage Prelude.Text+deleteClusterSnapshotMessage_snapshotIdentifier = Lens.lens (\DeleteClusterSnapshotMessage' {snapshotIdentifier} -> snapshotIdentifier) (\s@DeleteClusterSnapshotMessage' {} a -> s {snapshotIdentifier = a} :: DeleteClusterSnapshotMessage)++instance+ Prelude.Hashable+ DeleteClusterSnapshotMessage+ where+ hashWithSalt _salt DeleteClusterSnapshotMessage' {..} =+ _salt+ `Prelude.hashWithSalt` snapshotClusterIdentifier+ `Prelude.hashWithSalt` snapshotIdentifier++instance Prelude.NFData DeleteClusterSnapshotMessage where+ rnf DeleteClusterSnapshotMessage' {..} =+ Prelude.rnf snapshotClusterIdentifier+ `Prelude.seq` Prelude.rnf snapshotIdentifier++instance Data.ToQuery DeleteClusterSnapshotMessage where+ toQuery DeleteClusterSnapshotMessage' {..} =+ Prelude.mconcat+ [ "SnapshotClusterIdentifier"+ Data.=: snapshotClusterIdentifier,+ "SnapshotIdentifier" Data.=: snapshotIdentifier+ ]
+ gen/Amazonka/Redshift/Types/EC2SecurityGroup.hs view
@@ -0,0 +1,114 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module : Amazonka.Redshift.Types.EC2SecurityGroup+-- Copyright : (c) 2013-2023 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.Redshift.Types.EC2SecurityGroup where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Redshift.Internal+import Amazonka.Redshift.Types.Tag++-- | Describes an Amazon EC2 security group.+--+-- /See:/ 'newEC2SecurityGroup' smart constructor.+data EC2SecurityGroup = EC2SecurityGroup'+ { -- | The name of the EC2 Security Group.+ eC2SecurityGroupName :: Prelude.Maybe Prelude.Text,+ -- | The Amazon Web Services account ID of the owner of the EC2 security+ -- group specified in the @EC2SecurityGroupName@ field.+ eC2SecurityGroupOwnerId :: Prelude.Maybe Prelude.Text,+ -- | The status of the EC2 security group.+ status :: Prelude.Maybe Prelude.Text,+ -- | The list of tags for the EC2 security group.+ tags :: Prelude.Maybe [Tag]+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'EC2SecurityGroup' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'eC2SecurityGroupName', 'eC2SecurityGroup_eC2SecurityGroupName' - The name of the EC2 Security Group.+--+-- 'eC2SecurityGroupOwnerId', 'eC2SecurityGroup_eC2SecurityGroupOwnerId' - The Amazon Web Services account ID of the owner of the EC2 security+-- group specified in the @EC2SecurityGroupName@ field.+--+-- 'status', 'eC2SecurityGroup_status' - The status of the EC2 security group.+--+-- 'tags', 'eC2SecurityGroup_tags' - The list of tags for the EC2 security group.+newEC2SecurityGroup ::+ EC2SecurityGroup+newEC2SecurityGroup =+ EC2SecurityGroup'+ { eC2SecurityGroupName =+ Prelude.Nothing,+ eC2SecurityGroupOwnerId = Prelude.Nothing,+ status = Prelude.Nothing,+ tags = Prelude.Nothing+ }++-- | The name of the EC2 Security Group.+eC2SecurityGroup_eC2SecurityGroupName :: Lens.Lens' EC2SecurityGroup (Prelude.Maybe Prelude.Text)+eC2SecurityGroup_eC2SecurityGroupName = Lens.lens (\EC2SecurityGroup' {eC2SecurityGroupName} -> eC2SecurityGroupName) (\s@EC2SecurityGroup' {} a -> s {eC2SecurityGroupName = a} :: EC2SecurityGroup)++-- | The Amazon Web Services account ID of the owner of the EC2 security+-- group specified in the @EC2SecurityGroupName@ field.+eC2SecurityGroup_eC2SecurityGroupOwnerId :: Lens.Lens' EC2SecurityGroup (Prelude.Maybe Prelude.Text)+eC2SecurityGroup_eC2SecurityGroupOwnerId = Lens.lens (\EC2SecurityGroup' {eC2SecurityGroupOwnerId} -> eC2SecurityGroupOwnerId) (\s@EC2SecurityGroup' {} a -> s {eC2SecurityGroupOwnerId = a} :: EC2SecurityGroup)++-- | The status of the EC2 security group.+eC2SecurityGroup_status :: Lens.Lens' EC2SecurityGroup (Prelude.Maybe Prelude.Text)+eC2SecurityGroup_status = Lens.lens (\EC2SecurityGroup' {status} -> status) (\s@EC2SecurityGroup' {} a -> s {status = a} :: EC2SecurityGroup)++-- | The list of tags for the EC2 security group.+eC2SecurityGroup_tags :: Lens.Lens' EC2SecurityGroup (Prelude.Maybe [Tag])+eC2SecurityGroup_tags = Lens.lens (\EC2SecurityGroup' {tags} -> tags) (\s@EC2SecurityGroup' {} a -> s {tags = a} :: EC2SecurityGroup) Prelude.. Lens.mapping Lens.coerced++instance Data.FromXML EC2SecurityGroup where+ parseXML x =+ EC2SecurityGroup'+ Prelude.<$> (x Data..@? "EC2SecurityGroupName")+ Prelude.<*> (x Data..@? "EC2SecurityGroupOwnerId")+ Prelude.<*> (x Data..@? "Status")+ Prelude.<*> ( x+ Data..@? "Tags"+ Core..!@ Prelude.mempty+ Prelude.>>= Core.may (Data.parseXMLList "Tag")+ )++instance Prelude.Hashable EC2SecurityGroup where+ hashWithSalt _salt EC2SecurityGroup' {..} =+ _salt+ `Prelude.hashWithSalt` eC2SecurityGroupName+ `Prelude.hashWithSalt` eC2SecurityGroupOwnerId+ `Prelude.hashWithSalt` status+ `Prelude.hashWithSalt` tags++instance Prelude.NFData EC2SecurityGroup where+ rnf EC2SecurityGroup' {..} =+ Prelude.rnf eC2SecurityGroupName+ `Prelude.seq` Prelude.rnf eC2SecurityGroupOwnerId+ `Prelude.seq` Prelude.rnf status+ `Prelude.seq` Prelude.rnf tags
+ gen/Amazonka/Redshift/Types/ElasticIpStatus.hs view
@@ -0,0 +1,81 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module : Amazonka.Redshift.Types.ElasticIpStatus+-- Copyright : (c) 2013-2023 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.Redshift.Types.ElasticIpStatus where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Redshift.Internal++-- | Describes the status of the elastic IP (EIP) address.+--+-- /See:/ 'newElasticIpStatus' smart constructor.+data ElasticIpStatus = ElasticIpStatus'+ { -- | The elastic IP (EIP) address for the cluster.+ elasticIp :: Prelude.Maybe Prelude.Text,+ -- | The status of the elastic IP (EIP) address.+ status :: Prelude.Maybe Prelude.Text+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ElasticIpStatus' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'elasticIp', 'elasticIpStatus_elasticIp' - The elastic IP (EIP) address for the cluster.+--+-- 'status', 'elasticIpStatus_status' - The status of the elastic IP (EIP) address.+newElasticIpStatus ::+ ElasticIpStatus+newElasticIpStatus =+ ElasticIpStatus'+ { elasticIp = Prelude.Nothing,+ status = Prelude.Nothing+ }++-- | The elastic IP (EIP) address for the cluster.+elasticIpStatus_elasticIp :: Lens.Lens' ElasticIpStatus (Prelude.Maybe Prelude.Text)+elasticIpStatus_elasticIp = Lens.lens (\ElasticIpStatus' {elasticIp} -> elasticIp) (\s@ElasticIpStatus' {} a -> s {elasticIp = a} :: ElasticIpStatus)++-- | The status of the elastic IP (EIP) address.+elasticIpStatus_status :: Lens.Lens' ElasticIpStatus (Prelude.Maybe Prelude.Text)+elasticIpStatus_status = Lens.lens (\ElasticIpStatus' {status} -> status) (\s@ElasticIpStatus' {} a -> s {status = a} :: ElasticIpStatus)++instance Data.FromXML ElasticIpStatus where+ parseXML x =+ ElasticIpStatus'+ Prelude.<$> (x Data..@? "ElasticIp")+ Prelude.<*> (x Data..@? "Status")++instance Prelude.Hashable ElasticIpStatus where+ hashWithSalt _salt ElasticIpStatus' {..} =+ _salt+ `Prelude.hashWithSalt` elasticIp+ `Prelude.hashWithSalt` status++instance Prelude.NFData ElasticIpStatus where+ rnf ElasticIpStatus' {..} =+ Prelude.rnf elasticIp+ `Prelude.seq` Prelude.rnf status
+ gen/Amazonka/Redshift/Types/Endpoint.hs view
@@ -0,0 +1,98 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module : Amazonka.Redshift.Types.Endpoint+-- Copyright : (c) 2013-2023 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.Redshift.Types.Endpoint where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Redshift.Internal+import Amazonka.Redshift.Types.VpcEndpoint++-- | Describes a connection endpoint.+--+-- /See:/ 'newEndpoint' smart constructor.+data Endpoint = Endpoint'+ { -- | The DNS address of the Cluster.+ address :: Prelude.Maybe Prelude.Text,+ -- | The port that the database engine is listening on.+ port :: Prelude.Maybe Prelude.Int,+ -- | Describes a connection endpoint.+ vpcEndpoints :: Prelude.Maybe [VpcEndpoint]+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'Endpoint' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'address', 'endpoint_address' - The DNS address of the Cluster.+--+-- 'port', 'endpoint_port' - The port that the database engine is listening on.+--+-- 'vpcEndpoints', 'endpoint_vpcEndpoints' - Describes a connection endpoint.+newEndpoint ::+ Endpoint+newEndpoint =+ Endpoint'+ { address = Prelude.Nothing,+ port = Prelude.Nothing,+ vpcEndpoints = Prelude.Nothing+ }++-- | The DNS address of the Cluster.+endpoint_address :: Lens.Lens' Endpoint (Prelude.Maybe Prelude.Text)+endpoint_address = Lens.lens (\Endpoint' {address} -> address) (\s@Endpoint' {} a -> s {address = a} :: Endpoint)++-- | The port that the database engine is listening on.+endpoint_port :: Lens.Lens' Endpoint (Prelude.Maybe Prelude.Int)+endpoint_port = Lens.lens (\Endpoint' {port} -> port) (\s@Endpoint' {} a -> s {port = a} :: Endpoint)++-- | Describes a connection endpoint.+endpoint_vpcEndpoints :: Lens.Lens' Endpoint (Prelude.Maybe [VpcEndpoint])+endpoint_vpcEndpoints = Lens.lens (\Endpoint' {vpcEndpoints} -> vpcEndpoints) (\s@Endpoint' {} a -> s {vpcEndpoints = a} :: Endpoint) Prelude.. Lens.mapping Lens.coerced++instance Data.FromXML Endpoint where+ parseXML x =+ Endpoint'+ Prelude.<$> (x Data..@? "Address")+ Prelude.<*> (x Data..@? "Port")+ Prelude.<*> ( x+ Data..@? "VpcEndpoints"+ Core..!@ Prelude.mempty+ Prelude.>>= Core.may (Data.parseXMLList "VpcEndpoint")+ )++instance Prelude.Hashable Endpoint where+ hashWithSalt _salt Endpoint' {..} =+ _salt+ `Prelude.hashWithSalt` address+ `Prelude.hashWithSalt` port+ `Prelude.hashWithSalt` vpcEndpoints++instance Prelude.NFData Endpoint where+ rnf Endpoint' {..} =+ Prelude.rnf address+ `Prelude.seq` Prelude.rnf port+ `Prelude.seq` Prelude.rnf vpcEndpoints
+ gen/Amazonka/Redshift/Types/EndpointAccess.hs view
@@ -0,0 +1,185 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module : Amazonka.Redshift.Types.EndpointAccess+-- Copyright : (c) 2013-2023 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.Redshift.Types.EndpointAccess where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Redshift.Internal+import Amazonka.Redshift.Types.VpcEndpoint+import Amazonka.Redshift.Types.VpcSecurityGroupMembership++-- | Describes a Redshift-managed VPC endpoint.+--+-- /See:/ 'newEndpointAccess' smart constructor.+data EndpointAccess = EndpointAccess'+ { -- | The DNS address of the endpoint.+ address :: Prelude.Maybe Prelude.Text,+ -- | The cluster identifier of the cluster associated with the endpoint.+ clusterIdentifier :: Prelude.Maybe Prelude.Text,+ -- | The time (UTC) that the endpoint was created.+ endpointCreateTime :: Prelude.Maybe Data.ISO8601,+ -- | The name of the endpoint.+ endpointName :: Prelude.Maybe Prelude.Text,+ -- | The status of the endpoint.+ endpointStatus :: Prelude.Maybe Prelude.Text,+ -- | The port number on which the cluster accepts incoming connections.+ port :: Prelude.Maybe Prelude.Int,+ -- | The Amazon Web Services account ID of the owner of the cluster.+ resourceOwner :: Prelude.Maybe Prelude.Text,+ -- | The subnet group name where Amazon Redshift chooses to deploy the+ -- endpoint.+ subnetGroupName :: Prelude.Maybe Prelude.Text,+ vpcEndpoint :: Prelude.Maybe VpcEndpoint,+ -- | The security groups associated with the endpoint.+ vpcSecurityGroups :: Prelude.Maybe [VpcSecurityGroupMembership]+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'EndpointAccess' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'address', 'endpointAccess_address' - The DNS address of the endpoint.+--+-- 'clusterIdentifier', 'endpointAccess_clusterIdentifier' - The cluster identifier of the cluster associated with the endpoint.+--+-- 'endpointCreateTime', 'endpointAccess_endpointCreateTime' - The time (UTC) that the endpoint was created.+--+-- 'endpointName', 'endpointAccess_endpointName' - The name of the endpoint.+--+-- 'endpointStatus', 'endpointAccess_endpointStatus' - The status of the endpoint.+--+-- 'port', 'endpointAccess_port' - The port number on which the cluster accepts incoming connections.+--+-- 'resourceOwner', 'endpointAccess_resourceOwner' - The Amazon Web Services account ID of the owner of the cluster.+--+-- 'subnetGroupName', 'endpointAccess_subnetGroupName' - The subnet group name where Amazon Redshift chooses to deploy the+-- endpoint.+--+-- 'vpcEndpoint', 'endpointAccess_vpcEndpoint' - Undocumented member.+--+-- 'vpcSecurityGroups', 'endpointAccess_vpcSecurityGroups' - The security groups associated with the endpoint.+newEndpointAccess ::+ EndpointAccess+newEndpointAccess =+ EndpointAccess'+ { address = Prelude.Nothing,+ clusterIdentifier = Prelude.Nothing,+ endpointCreateTime = Prelude.Nothing,+ endpointName = Prelude.Nothing,+ endpointStatus = Prelude.Nothing,+ port = Prelude.Nothing,+ resourceOwner = Prelude.Nothing,+ subnetGroupName = Prelude.Nothing,+ vpcEndpoint = Prelude.Nothing,+ vpcSecurityGroups = Prelude.Nothing+ }++-- | The DNS address of the endpoint.+endpointAccess_address :: Lens.Lens' EndpointAccess (Prelude.Maybe Prelude.Text)+endpointAccess_address = Lens.lens (\EndpointAccess' {address} -> address) (\s@EndpointAccess' {} a -> s {address = a} :: EndpointAccess)++-- | The cluster identifier of the cluster associated with the endpoint.+endpointAccess_clusterIdentifier :: Lens.Lens' EndpointAccess (Prelude.Maybe Prelude.Text)+endpointAccess_clusterIdentifier = Lens.lens (\EndpointAccess' {clusterIdentifier} -> clusterIdentifier) (\s@EndpointAccess' {} a -> s {clusterIdentifier = a} :: EndpointAccess)++-- | The time (UTC) that the endpoint was created.+endpointAccess_endpointCreateTime :: Lens.Lens' EndpointAccess (Prelude.Maybe Prelude.UTCTime)+endpointAccess_endpointCreateTime = Lens.lens (\EndpointAccess' {endpointCreateTime} -> endpointCreateTime) (\s@EndpointAccess' {} a -> s {endpointCreateTime = a} :: EndpointAccess) Prelude.. Lens.mapping Data._Time++-- | The name of the endpoint.+endpointAccess_endpointName :: Lens.Lens' EndpointAccess (Prelude.Maybe Prelude.Text)+endpointAccess_endpointName = Lens.lens (\EndpointAccess' {endpointName} -> endpointName) (\s@EndpointAccess' {} a -> s {endpointName = a} :: EndpointAccess)++-- | The status of the endpoint.+endpointAccess_endpointStatus :: Lens.Lens' EndpointAccess (Prelude.Maybe Prelude.Text)+endpointAccess_endpointStatus = Lens.lens (\EndpointAccess' {endpointStatus} -> endpointStatus) (\s@EndpointAccess' {} a -> s {endpointStatus = a} :: EndpointAccess)++-- | The port number on which the cluster accepts incoming connections.+endpointAccess_port :: Lens.Lens' EndpointAccess (Prelude.Maybe Prelude.Int)+endpointAccess_port = Lens.lens (\EndpointAccess' {port} -> port) (\s@EndpointAccess' {} a -> s {port = a} :: EndpointAccess)++-- | The Amazon Web Services account ID of the owner of the cluster.+endpointAccess_resourceOwner :: Lens.Lens' EndpointAccess (Prelude.Maybe Prelude.Text)+endpointAccess_resourceOwner = Lens.lens (\EndpointAccess' {resourceOwner} -> resourceOwner) (\s@EndpointAccess' {} a -> s {resourceOwner = a} :: EndpointAccess)++-- | The subnet group name where Amazon Redshift chooses to deploy the+-- endpoint.+endpointAccess_subnetGroupName :: Lens.Lens' EndpointAccess (Prelude.Maybe Prelude.Text)+endpointAccess_subnetGroupName = Lens.lens (\EndpointAccess' {subnetGroupName} -> subnetGroupName) (\s@EndpointAccess' {} a -> s {subnetGroupName = a} :: EndpointAccess)++-- | Undocumented member.+endpointAccess_vpcEndpoint :: Lens.Lens' EndpointAccess (Prelude.Maybe VpcEndpoint)+endpointAccess_vpcEndpoint = Lens.lens (\EndpointAccess' {vpcEndpoint} -> vpcEndpoint) (\s@EndpointAccess' {} a -> s {vpcEndpoint = a} :: EndpointAccess)++-- | The security groups associated with the endpoint.+endpointAccess_vpcSecurityGroups :: Lens.Lens' EndpointAccess (Prelude.Maybe [VpcSecurityGroupMembership])+endpointAccess_vpcSecurityGroups = Lens.lens (\EndpointAccess' {vpcSecurityGroups} -> vpcSecurityGroups) (\s@EndpointAccess' {} a -> s {vpcSecurityGroups = a} :: EndpointAccess) Prelude.. Lens.mapping Lens.coerced++instance Data.FromXML EndpointAccess where+ parseXML x =+ EndpointAccess'+ Prelude.<$> (x Data..@? "Address")+ Prelude.<*> (x Data..@? "ClusterIdentifier")+ Prelude.<*> (x Data..@? "EndpointCreateTime")+ Prelude.<*> (x Data..@? "EndpointName")+ Prelude.<*> (x Data..@? "EndpointStatus")+ Prelude.<*> (x Data..@? "Port")+ Prelude.<*> (x Data..@? "ResourceOwner")+ Prelude.<*> (x Data..@? "SubnetGroupName")+ Prelude.<*> (x Data..@? "VpcEndpoint")+ Prelude.<*> ( x+ Data..@? "VpcSecurityGroups"+ Core..!@ Prelude.mempty+ Prelude.>>= Core.may (Data.parseXMLList "VpcSecurityGroup")+ )++instance Prelude.Hashable EndpointAccess where+ hashWithSalt _salt EndpointAccess' {..} =+ _salt+ `Prelude.hashWithSalt` address+ `Prelude.hashWithSalt` clusterIdentifier+ `Prelude.hashWithSalt` endpointCreateTime+ `Prelude.hashWithSalt` endpointName+ `Prelude.hashWithSalt` endpointStatus+ `Prelude.hashWithSalt` port+ `Prelude.hashWithSalt` resourceOwner+ `Prelude.hashWithSalt` subnetGroupName+ `Prelude.hashWithSalt` vpcEndpoint+ `Prelude.hashWithSalt` vpcSecurityGroups++instance Prelude.NFData EndpointAccess where+ rnf EndpointAccess' {..} =+ Prelude.rnf address+ `Prelude.seq` Prelude.rnf clusterIdentifier+ `Prelude.seq` Prelude.rnf endpointCreateTime+ `Prelude.seq` Prelude.rnf endpointName+ `Prelude.seq` Prelude.rnf endpointStatus+ `Prelude.seq` Prelude.rnf port+ `Prelude.seq` Prelude.rnf resourceOwner+ `Prelude.seq` Prelude.rnf subnetGroupName+ `Prelude.seq` Prelude.rnf vpcEndpoint+ `Prelude.seq` Prelude.rnf vpcSecurityGroups
+ gen/Amazonka/Redshift/Types/EndpointAuthorization.hs view
@@ -0,0 +1,178 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module : Amazonka.Redshift.Types.EndpointAuthorization+-- Copyright : (c) 2013-2023 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.Redshift.Types.EndpointAuthorization where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Redshift.Internal+import Amazonka.Redshift.Types.AuthorizationStatus++-- | Describes an endpoint authorization for authorizing Redshift-managed VPC+-- endpoint access to a cluster across Amazon Web Services accounts.+--+-- /See:/ 'newEndpointAuthorization' smart constructor.+data EndpointAuthorization = EndpointAuthorization'+ { -- | Indicates whether all VPCs in the grantee account are allowed access to+ -- the cluster.+ allowedAllVPCs :: Prelude.Maybe Prelude.Bool,+ -- | The VPCs allowed access to the cluster.+ allowedVPCs :: Prelude.Maybe [Prelude.Text],+ -- | The time (UTC) when the authorization was created.+ authorizeTime :: Prelude.Maybe Data.ISO8601,+ -- | The cluster identifier.+ clusterIdentifier :: Prelude.Maybe Prelude.Text,+ -- | The status of the cluster.+ clusterStatus :: Prelude.Maybe Prelude.Text,+ -- | The number of Redshift-managed VPC endpoints created for the+ -- authorization.+ endpointCount :: Prelude.Maybe Prelude.Int,+ -- | The Amazon Web Services account ID of the grantee of the cluster.+ grantee :: Prelude.Maybe Prelude.Text,+ -- | The Amazon Web Services account ID of the cluster owner.+ grantor :: Prelude.Maybe Prelude.Text,+ -- | The status of the authorization action.+ status :: Prelude.Maybe AuthorizationStatus+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'EndpointAuthorization' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'allowedAllVPCs', 'endpointAuthorization_allowedAllVPCs' - Indicates whether all VPCs in the grantee account are allowed access to+-- the cluster.+--+-- 'allowedVPCs', 'endpointAuthorization_allowedVPCs' - The VPCs allowed access to the cluster.+--+-- 'authorizeTime', 'endpointAuthorization_authorizeTime' - The time (UTC) when the authorization was created.+--+-- 'clusterIdentifier', 'endpointAuthorization_clusterIdentifier' - The cluster identifier.+--+-- 'clusterStatus', 'endpointAuthorization_clusterStatus' - The status of the cluster.+--+-- 'endpointCount', 'endpointAuthorization_endpointCount' - The number of Redshift-managed VPC endpoints created for the+-- authorization.+--+-- 'grantee', 'endpointAuthorization_grantee' - The Amazon Web Services account ID of the grantee of the cluster.+--+-- 'grantor', 'endpointAuthorization_grantor' - The Amazon Web Services account ID of the cluster owner.+--+-- 'status', 'endpointAuthorization_status' - The status of the authorization action.+newEndpointAuthorization ::+ EndpointAuthorization+newEndpointAuthorization =+ EndpointAuthorization'+ { allowedAllVPCs =+ Prelude.Nothing,+ allowedVPCs = Prelude.Nothing,+ authorizeTime = Prelude.Nothing,+ clusterIdentifier = Prelude.Nothing,+ clusterStatus = Prelude.Nothing,+ endpointCount = Prelude.Nothing,+ grantee = Prelude.Nothing,+ grantor = Prelude.Nothing,+ status = Prelude.Nothing+ }++-- | Indicates whether all VPCs in the grantee account are allowed access to+-- the cluster.+endpointAuthorization_allowedAllVPCs :: Lens.Lens' EndpointAuthorization (Prelude.Maybe Prelude.Bool)+endpointAuthorization_allowedAllVPCs = Lens.lens (\EndpointAuthorization' {allowedAllVPCs} -> allowedAllVPCs) (\s@EndpointAuthorization' {} a -> s {allowedAllVPCs = a} :: EndpointAuthorization)++-- | The VPCs allowed access to the cluster.+endpointAuthorization_allowedVPCs :: Lens.Lens' EndpointAuthorization (Prelude.Maybe [Prelude.Text])+endpointAuthorization_allowedVPCs = Lens.lens (\EndpointAuthorization' {allowedVPCs} -> allowedVPCs) (\s@EndpointAuthorization' {} a -> s {allowedVPCs = a} :: EndpointAuthorization) Prelude.. Lens.mapping Lens.coerced++-- | The time (UTC) when the authorization was created.+endpointAuthorization_authorizeTime :: Lens.Lens' EndpointAuthorization (Prelude.Maybe Prelude.UTCTime)+endpointAuthorization_authorizeTime = Lens.lens (\EndpointAuthorization' {authorizeTime} -> authorizeTime) (\s@EndpointAuthorization' {} a -> s {authorizeTime = a} :: EndpointAuthorization) Prelude.. Lens.mapping Data._Time++-- | The cluster identifier.+endpointAuthorization_clusterIdentifier :: Lens.Lens' EndpointAuthorization (Prelude.Maybe Prelude.Text)+endpointAuthorization_clusterIdentifier = Lens.lens (\EndpointAuthorization' {clusterIdentifier} -> clusterIdentifier) (\s@EndpointAuthorization' {} a -> s {clusterIdentifier = a} :: EndpointAuthorization)++-- | The status of the cluster.+endpointAuthorization_clusterStatus :: Lens.Lens' EndpointAuthorization (Prelude.Maybe Prelude.Text)+endpointAuthorization_clusterStatus = Lens.lens (\EndpointAuthorization' {clusterStatus} -> clusterStatus) (\s@EndpointAuthorization' {} a -> s {clusterStatus = a} :: EndpointAuthorization)++-- | The number of Redshift-managed VPC endpoints created for the+-- authorization.+endpointAuthorization_endpointCount :: Lens.Lens' EndpointAuthorization (Prelude.Maybe Prelude.Int)+endpointAuthorization_endpointCount = Lens.lens (\EndpointAuthorization' {endpointCount} -> endpointCount) (\s@EndpointAuthorization' {} a -> s {endpointCount = a} :: EndpointAuthorization)++-- | The Amazon Web Services account ID of the grantee of the cluster.+endpointAuthorization_grantee :: Lens.Lens' EndpointAuthorization (Prelude.Maybe Prelude.Text)+endpointAuthorization_grantee = Lens.lens (\EndpointAuthorization' {grantee} -> grantee) (\s@EndpointAuthorization' {} a -> s {grantee = a} :: EndpointAuthorization)++-- | The Amazon Web Services account ID of the cluster owner.+endpointAuthorization_grantor :: Lens.Lens' EndpointAuthorization (Prelude.Maybe Prelude.Text)+endpointAuthorization_grantor = Lens.lens (\EndpointAuthorization' {grantor} -> grantor) (\s@EndpointAuthorization' {} a -> s {grantor = a} :: EndpointAuthorization)++-- | The status of the authorization action.+endpointAuthorization_status :: Lens.Lens' EndpointAuthorization (Prelude.Maybe AuthorizationStatus)+endpointAuthorization_status = Lens.lens (\EndpointAuthorization' {status} -> status) (\s@EndpointAuthorization' {} a -> s {status = a} :: EndpointAuthorization)++instance Data.FromXML EndpointAuthorization where+ parseXML x =+ EndpointAuthorization'+ Prelude.<$> (x Data..@? "AllowedAllVPCs")+ Prelude.<*> ( x+ Data..@? "AllowedVPCs"+ Core..!@ Prelude.mempty+ Prelude.>>= Core.may (Data.parseXMLList "VpcIdentifier")+ )+ Prelude.<*> (x Data..@? "AuthorizeTime")+ Prelude.<*> (x Data..@? "ClusterIdentifier")+ Prelude.<*> (x Data..@? "ClusterStatus")+ Prelude.<*> (x Data..@? "EndpointCount")+ Prelude.<*> (x Data..@? "Grantee")+ Prelude.<*> (x Data..@? "Grantor")+ Prelude.<*> (x Data..@? "Status")++instance Prelude.Hashable EndpointAuthorization where+ hashWithSalt _salt EndpointAuthorization' {..} =+ _salt+ `Prelude.hashWithSalt` allowedAllVPCs+ `Prelude.hashWithSalt` allowedVPCs+ `Prelude.hashWithSalt` authorizeTime+ `Prelude.hashWithSalt` clusterIdentifier+ `Prelude.hashWithSalt` clusterStatus+ `Prelude.hashWithSalt` endpointCount+ `Prelude.hashWithSalt` grantee+ `Prelude.hashWithSalt` grantor+ `Prelude.hashWithSalt` status++instance Prelude.NFData EndpointAuthorization where+ rnf EndpointAuthorization' {..} =+ Prelude.rnf allowedAllVPCs+ `Prelude.seq` Prelude.rnf allowedVPCs+ `Prelude.seq` Prelude.rnf authorizeTime+ `Prelude.seq` Prelude.rnf clusterIdentifier+ `Prelude.seq` Prelude.rnf clusterStatus+ `Prelude.seq` Prelude.rnf endpointCount+ `Prelude.seq` Prelude.rnf grantee+ `Prelude.seq` Prelude.rnf grantor+ `Prelude.seq` Prelude.rnf status
+ gen/Amazonka/Redshift/Types/Event.hs view
@@ -0,0 +1,158 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module : Amazonka.Redshift.Types.Event+-- Copyright : (c) 2013-2023 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.Redshift.Types.Event where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Redshift.Internal+import Amazonka.Redshift.Types.SourceType++-- | Describes an event.+--+-- /See:/ 'newEvent' smart constructor.+data Event = Event'+ { -- | The date and time of the event.+ date :: Prelude.Maybe Data.ISO8601,+ -- | A list of the event categories.+ --+ -- Values: Configuration, Management, Monitoring, Security, Pending+ eventCategories :: Prelude.Maybe [Prelude.Text],+ -- | The identifier of the event.+ eventId :: Prelude.Maybe Prelude.Text,+ -- | The text of this event.+ message :: Prelude.Maybe Prelude.Text,+ -- | The severity of the event.+ --+ -- Values: ERROR, INFO+ severity :: Prelude.Maybe Prelude.Text,+ -- | The identifier for the source of the event.+ sourceIdentifier :: Prelude.Maybe Prelude.Text,+ -- | The source type for this event.+ sourceType :: Prelude.Maybe SourceType+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'Event' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'date', 'event_date' - The date and time of the event.+--+-- 'eventCategories', 'event_eventCategories' - A list of the event categories.+--+-- Values: Configuration, Management, Monitoring, Security, Pending+--+-- 'eventId', 'event_eventId' - The identifier of the event.+--+-- 'message', 'event_message' - The text of this event.+--+-- 'severity', 'event_severity' - The severity of the event.+--+-- Values: ERROR, INFO+--+-- 'sourceIdentifier', 'event_sourceIdentifier' - The identifier for the source of the event.+--+-- 'sourceType', 'event_sourceType' - The source type for this event.+newEvent ::+ Event+newEvent =+ Event'+ { date = Prelude.Nothing,+ eventCategories = Prelude.Nothing,+ eventId = Prelude.Nothing,+ message = Prelude.Nothing,+ severity = Prelude.Nothing,+ sourceIdentifier = Prelude.Nothing,+ sourceType = Prelude.Nothing+ }++-- | The date and time of the event.+event_date :: Lens.Lens' Event (Prelude.Maybe Prelude.UTCTime)+event_date = Lens.lens (\Event' {date} -> date) (\s@Event' {} a -> s {date = a} :: Event) Prelude.. Lens.mapping Data._Time++-- | A list of the event categories.+--+-- Values: Configuration, Management, Monitoring, Security, Pending+event_eventCategories :: Lens.Lens' Event (Prelude.Maybe [Prelude.Text])+event_eventCategories = Lens.lens (\Event' {eventCategories} -> eventCategories) (\s@Event' {} a -> s {eventCategories = a} :: Event) Prelude.. Lens.mapping Lens.coerced++-- | The identifier of the event.+event_eventId :: Lens.Lens' Event (Prelude.Maybe Prelude.Text)+event_eventId = Lens.lens (\Event' {eventId} -> eventId) (\s@Event' {} a -> s {eventId = a} :: Event)++-- | The text of this event.+event_message :: Lens.Lens' Event (Prelude.Maybe Prelude.Text)+event_message = Lens.lens (\Event' {message} -> message) (\s@Event' {} a -> s {message = a} :: Event)++-- | The severity of the event.+--+-- Values: ERROR, INFO+event_severity :: Lens.Lens' Event (Prelude.Maybe Prelude.Text)+event_severity = Lens.lens (\Event' {severity} -> severity) (\s@Event' {} a -> s {severity = a} :: Event)++-- | The identifier for the source of the event.+event_sourceIdentifier :: Lens.Lens' Event (Prelude.Maybe Prelude.Text)+event_sourceIdentifier = Lens.lens (\Event' {sourceIdentifier} -> sourceIdentifier) (\s@Event' {} a -> s {sourceIdentifier = a} :: Event)++-- | The source type for this event.+event_sourceType :: Lens.Lens' Event (Prelude.Maybe SourceType)+event_sourceType = Lens.lens (\Event' {sourceType} -> sourceType) (\s@Event' {} a -> s {sourceType = a} :: Event)++instance Data.FromXML Event where+ parseXML x =+ Event'+ Prelude.<$> (x Data..@? "Date")+ Prelude.<*> ( x+ Data..@? "EventCategories"+ Core..!@ Prelude.mempty+ Prelude.>>= Core.may (Data.parseXMLList "EventCategory")+ )+ Prelude.<*> (x Data..@? "EventId")+ Prelude.<*> (x Data..@? "Message")+ Prelude.<*> (x Data..@? "Severity")+ Prelude.<*> (x Data..@? "SourceIdentifier")+ Prelude.<*> (x Data..@? "SourceType")++instance Prelude.Hashable Event where+ hashWithSalt _salt Event' {..} =+ _salt+ `Prelude.hashWithSalt` date+ `Prelude.hashWithSalt` eventCategories+ `Prelude.hashWithSalt` eventId+ `Prelude.hashWithSalt` message+ `Prelude.hashWithSalt` severity+ `Prelude.hashWithSalt` sourceIdentifier+ `Prelude.hashWithSalt` sourceType++instance Prelude.NFData Event where+ rnf Event' {..} =+ Prelude.rnf date+ `Prelude.seq` Prelude.rnf eventCategories+ `Prelude.seq` Prelude.rnf eventId+ `Prelude.seq` Prelude.rnf message+ `Prelude.seq` Prelude.rnf severity+ `Prelude.seq` Prelude.rnf sourceIdentifier+ `Prelude.seq` Prelude.rnf sourceType
+ gen/Amazonka/Redshift/Types/EventCategoriesMap.hs view
@@ -0,0 +1,89 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module : Amazonka.Redshift.Types.EventCategoriesMap+-- Copyright : (c) 2013-2023 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.Redshift.Types.EventCategoriesMap where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Redshift.Internal+import Amazonka.Redshift.Types.EventInfoMap++-- | Describes event categories.+--+-- /See:/ 'newEventCategoriesMap' smart constructor.+data EventCategoriesMap = EventCategoriesMap'+ { -- | The events in the event category.+ events :: Prelude.Maybe [EventInfoMap],+ -- | The source type, such as cluster or cluster-snapshot, that the returned+ -- categories belong to.+ sourceType :: Prelude.Maybe Prelude.Text+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'EventCategoriesMap' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'events', 'eventCategoriesMap_events' - The events in the event category.+--+-- 'sourceType', 'eventCategoriesMap_sourceType' - The source type, such as cluster or cluster-snapshot, that the returned+-- categories belong to.+newEventCategoriesMap ::+ EventCategoriesMap+newEventCategoriesMap =+ EventCategoriesMap'+ { events = Prelude.Nothing,+ sourceType = Prelude.Nothing+ }++-- | The events in the event category.+eventCategoriesMap_events :: Lens.Lens' EventCategoriesMap (Prelude.Maybe [EventInfoMap])+eventCategoriesMap_events = Lens.lens (\EventCategoriesMap' {events} -> events) (\s@EventCategoriesMap' {} a -> s {events = a} :: EventCategoriesMap) Prelude.. Lens.mapping Lens.coerced++-- | The source type, such as cluster or cluster-snapshot, that the returned+-- categories belong to.+eventCategoriesMap_sourceType :: Lens.Lens' EventCategoriesMap (Prelude.Maybe Prelude.Text)+eventCategoriesMap_sourceType = Lens.lens (\EventCategoriesMap' {sourceType} -> sourceType) (\s@EventCategoriesMap' {} a -> s {sourceType = a} :: EventCategoriesMap)++instance Data.FromXML EventCategoriesMap where+ parseXML x =+ EventCategoriesMap'+ Prelude.<$> ( x+ Data..@? "Events"+ Core..!@ Prelude.mempty+ Prelude.>>= Core.may (Data.parseXMLList "EventInfoMap")+ )+ Prelude.<*> (x Data..@? "SourceType")++instance Prelude.Hashable EventCategoriesMap where+ hashWithSalt _salt EventCategoriesMap' {..} =+ _salt+ `Prelude.hashWithSalt` events+ `Prelude.hashWithSalt` sourceType++instance Prelude.NFData EventCategoriesMap where+ rnf EventCategoriesMap' {..} =+ Prelude.rnf events+ `Prelude.seq` Prelude.rnf sourceType
+ gen/Amazonka/Redshift/Types/EventInfoMap.hs view
@@ -0,0 +1,115 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module : Amazonka.Redshift.Types.EventInfoMap+-- Copyright : (c) 2013-2023 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.Redshift.Types.EventInfoMap where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Redshift.Internal++-- | Describes event information.+--+-- /See:/ 'newEventInfoMap' smart constructor.+data EventInfoMap = EventInfoMap'+ { -- | The category of an Amazon Redshift event.+ eventCategories :: Prelude.Maybe [Prelude.Text],+ -- | The description of an Amazon Redshift event.+ eventDescription :: Prelude.Maybe Prelude.Text,+ -- | The identifier of an Amazon Redshift event.+ eventId :: Prelude.Maybe Prelude.Text,+ -- | The severity of the event.+ --+ -- Values: ERROR, INFO+ severity :: Prelude.Maybe Prelude.Text+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'EventInfoMap' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'eventCategories', 'eventInfoMap_eventCategories' - The category of an Amazon Redshift event.+--+-- 'eventDescription', 'eventInfoMap_eventDescription' - The description of an Amazon Redshift event.+--+-- 'eventId', 'eventInfoMap_eventId' - The identifier of an Amazon Redshift event.+--+-- 'severity', 'eventInfoMap_severity' - The severity of the event.+--+-- Values: ERROR, INFO+newEventInfoMap ::+ EventInfoMap+newEventInfoMap =+ EventInfoMap'+ { eventCategories = Prelude.Nothing,+ eventDescription = Prelude.Nothing,+ eventId = Prelude.Nothing,+ severity = Prelude.Nothing+ }++-- | The category of an Amazon Redshift event.+eventInfoMap_eventCategories :: Lens.Lens' EventInfoMap (Prelude.Maybe [Prelude.Text])+eventInfoMap_eventCategories = Lens.lens (\EventInfoMap' {eventCategories} -> eventCategories) (\s@EventInfoMap' {} a -> s {eventCategories = a} :: EventInfoMap) Prelude.. Lens.mapping Lens.coerced++-- | The description of an Amazon Redshift event.+eventInfoMap_eventDescription :: Lens.Lens' EventInfoMap (Prelude.Maybe Prelude.Text)+eventInfoMap_eventDescription = Lens.lens (\EventInfoMap' {eventDescription} -> eventDescription) (\s@EventInfoMap' {} a -> s {eventDescription = a} :: EventInfoMap)++-- | The identifier of an Amazon Redshift event.+eventInfoMap_eventId :: Lens.Lens' EventInfoMap (Prelude.Maybe Prelude.Text)+eventInfoMap_eventId = Lens.lens (\EventInfoMap' {eventId} -> eventId) (\s@EventInfoMap' {} a -> s {eventId = a} :: EventInfoMap)++-- | The severity of the event.+--+-- Values: ERROR, INFO+eventInfoMap_severity :: Lens.Lens' EventInfoMap (Prelude.Maybe Prelude.Text)+eventInfoMap_severity = Lens.lens (\EventInfoMap' {severity} -> severity) (\s@EventInfoMap' {} a -> s {severity = a} :: EventInfoMap)++instance Data.FromXML EventInfoMap where+ parseXML x =+ EventInfoMap'+ Prelude.<$> ( x+ Data..@? "EventCategories"+ Core..!@ Prelude.mempty+ Prelude.>>= Core.may (Data.parseXMLList "EventCategory")+ )+ Prelude.<*> (x Data..@? "EventDescription")+ Prelude.<*> (x Data..@? "EventId")+ Prelude.<*> (x Data..@? "Severity")++instance Prelude.Hashable EventInfoMap where+ hashWithSalt _salt EventInfoMap' {..} =+ _salt+ `Prelude.hashWithSalt` eventCategories+ `Prelude.hashWithSalt` eventDescription+ `Prelude.hashWithSalt` eventId+ `Prelude.hashWithSalt` severity++instance Prelude.NFData EventInfoMap where+ rnf EventInfoMap' {..} =+ Prelude.rnf eventCategories+ `Prelude.seq` Prelude.rnf eventDescription+ `Prelude.seq` Prelude.rnf eventId+ `Prelude.seq` Prelude.rnf severity
+ gen/Amazonka/Redshift/Types/EventSubscription.hs view
@@ -0,0 +1,272 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module : Amazonka.Redshift.Types.EventSubscription+-- Copyright : (c) 2013-2023 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.Redshift.Types.EventSubscription where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Redshift.Internal+import Amazonka.Redshift.Types.Tag++-- | Describes event subscriptions.+--+-- /See:/ 'newEventSubscription' smart constructor.+data EventSubscription = EventSubscription'+ { -- | The name of the Amazon Redshift event notification subscription.+ custSubscriptionId :: Prelude.Maybe Prelude.Text,+ -- | The Amazon Web Services account associated with the Amazon Redshift+ -- event notification subscription.+ customerAwsId :: Prelude.Maybe Prelude.Text,+ -- | A boolean value indicating whether the subscription is enabled; @true@+ -- indicates that the subscription is enabled.+ enabled :: Prelude.Maybe Prelude.Bool,+ -- | The list of Amazon Redshift event categories specified in the event+ -- notification subscription.+ --+ -- Values: Configuration, Management, Monitoring, Security, Pending+ eventCategoriesList :: Prelude.Maybe [Prelude.Text],+ -- | The event severity specified in the Amazon Redshift event notification+ -- subscription.+ --+ -- Values: ERROR, INFO+ severity :: Prelude.Maybe Prelude.Text,+ -- | The Amazon Resource Name (ARN) of the Amazon SNS topic used by the event+ -- notification subscription.+ snsTopicArn :: Prelude.Maybe Prelude.Text,+ -- | A list of the sources that publish events to the Amazon Redshift event+ -- notification subscription.+ sourceIdsList :: Prelude.Maybe [Prelude.Text],+ -- | The source type of the events returned by the Amazon Redshift event+ -- notification, such as cluster, cluster-snapshot,+ -- cluster-parameter-group, cluster-security-group, or scheduled-action.+ sourceType :: Prelude.Maybe Prelude.Text,+ -- | The status of the Amazon Redshift event notification subscription.+ --+ -- Constraints:+ --+ -- - Can be one of the following: active | no-permission |+ -- topic-not-exist+ --+ -- - The status \"no-permission\" indicates that Amazon Redshift no+ -- longer has permission to post to the Amazon SNS topic. The status+ -- \"topic-not-exist\" indicates that the topic was deleted after the+ -- subscription was created.+ status :: Prelude.Maybe Prelude.Text,+ -- | The date and time the Amazon Redshift event notification subscription+ -- was created.+ subscriptionCreationTime :: Prelude.Maybe Data.ISO8601,+ -- | The list of tags for the event subscription.+ tags :: Prelude.Maybe [Tag]+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'EventSubscription' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'custSubscriptionId', 'eventSubscription_custSubscriptionId' - The name of the Amazon Redshift event notification subscription.+--+-- 'customerAwsId', 'eventSubscription_customerAwsId' - The Amazon Web Services account associated with the Amazon Redshift+-- event notification subscription.+--+-- 'enabled', 'eventSubscription_enabled' - A boolean value indicating whether the subscription is enabled; @true@+-- indicates that the subscription is enabled.+--+-- 'eventCategoriesList', 'eventSubscription_eventCategoriesList' - The list of Amazon Redshift event categories specified in the event+-- notification subscription.+--+-- Values: Configuration, Management, Monitoring, Security, Pending+--+-- 'severity', 'eventSubscription_severity' - The event severity specified in the Amazon Redshift event notification+-- subscription.+--+-- Values: ERROR, INFO+--+-- 'snsTopicArn', 'eventSubscription_snsTopicArn' - The Amazon Resource Name (ARN) of the Amazon SNS topic used by the event+-- notification subscription.+--+-- 'sourceIdsList', 'eventSubscription_sourceIdsList' - A list of the sources that publish events to the Amazon Redshift event+-- notification subscription.+--+-- 'sourceType', 'eventSubscription_sourceType' - The source type of the events returned by the Amazon Redshift event+-- notification, such as cluster, cluster-snapshot,+-- cluster-parameter-group, cluster-security-group, or scheduled-action.+--+-- 'status', 'eventSubscription_status' - The status of the Amazon Redshift event notification subscription.+--+-- Constraints:+--+-- - Can be one of the following: active | no-permission |+-- topic-not-exist+--+-- - The status \"no-permission\" indicates that Amazon Redshift no+-- longer has permission to post to the Amazon SNS topic. The status+-- \"topic-not-exist\" indicates that the topic was deleted after the+-- subscription was created.+--+-- 'subscriptionCreationTime', 'eventSubscription_subscriptionCreationTime' - The date and time the Amazon Redshift event notification subscription+-- was created.+--+-- 'tags', 'eventSubscription_tags' - The list of tags for the event subscription.+newEventSubscription ::+ EventSubscription+newEventSubscription =+ EventSubscription'+ { custSubscriptionId =+ Prelude.Nothing,+ customerAwsId = Prelude.Nothing,+ enabled = Prelude.Nothing,+ eventCategoriesList = Prelude.Nothing,+ severity = Prelude.Nothing,+ snsTopicArn = Prelude.Nothing,+ sourceIdsList = Prelude.Nothing,+ sourceType = Prelude.Nothing,+ status = Prelude.Nothing,+ subscriptionCreationTime = Prelude.Nothing,+ tags = Prelude.Nothing+ }++-- | The name of the Amazon Redshift event notification subscription.+eventSubscription_custSubscriptionId :: Lens.Lens' EventSubscription (Prelude.Maybe Prelude.Text)+eventSubscription_custSubscriptionId = Lens.lens (\EventSubscription' {custSubscriptionId} -> custSubscriptionId) (\s@EventSubscription' {} a -> s {custSubscriptionId = a} :: EventSubscription)++-- | The Amazon Web Services account associated with the Amazon Redshift+-- event notification subscription.+eventSubscription_customerAwsId :: Lens.Lens' EventSubscription (Prelude.Maybe Prelude.Text)+eventSubscription_customerAwsId = Lens.lens (\EventSubscription' {customerAwsId} -> customerAwsId) (\s@EventSubscription' {} a -> s {customerAwsId = a} :: EventSubscription)++-- | A boolean value indicating whether the subscription is enabled; @true@+-- indicates that the subscription is enabled.+eventSubscription_enabled :: Lens.Lens' EventSubscription (Prelude.Maybe Prelude.Bool)+eventSubscription_enabled = Lens.lens (\EventSubscription' {enabled} -> enabled) (\s@EventSubscription' {} a -> s {enabled = a} :: EventSubscription)++-- | The list of Amazon Redshift event categories specified in the event+-- notification subscription.+--+-- Values: Configuration, Management, Monitoring, Security, Pending+eventSubscription_eventCategoriesList :: Lens.Lens' EventSubscription (Prelude.Maybe [Prelude.Text])+eventSubscription_eventCategoriesList = Lens.lens (\EventSubscription' {eventCategoriesList} -> eventCategoriesList) (\s@EventSubscription' {} a -> s {eventCategoriesList = a} :: EventSubscription) Prelude.. Lens.mapping Lens.coerced++-- | The event severity specified in the Amazon Redshift event notification+-- subscription.+--+-- Values: ERROR, INFO+eventSubscription_severity :: Lens.Lens' EventSubscription (Prelude.Maybe Prelude.Text)+eventSubscription_severity = Lens.lens (\EventSubscription' {severity} -> severity) (\s@EventSubscription' {} a -> s {severity = a} :: EventSubscription)++-- | The Amazon Resource Name (ARN) of the Amazon SNS topic used by the event+-- notification subscription.+eventSubscription_snsTopicArn :: Lens.Lens' EventSubscription (Prelude.Maybe Prelude.Text)+eventSubscription_snsTopicArn = Lens.lens (\EventSubscription' {snsTopicArn} -> snsTopicArn) (\s@EventSubscription' {} a -> s {snsTopicArn = a} :: EventSubscription)++-- | A list of the sources that publish events to the Amazon Redshift event+-- notification subscription.+eventSubscription_sourceIdsList :: Lens.Lens' EventSubscription (Prelude.Maybe [Prelude.Text])+eventSubscription_sourceIdsList = Lens.lens (\EventSubscription' {sourceIdsList} -> sourceIdsList) (\s@EventSubscription' {} a -> s {sourceIdsList = a} :: EventSubscription) Prelude.. Lens.mapping Lens.coerced++-- | The source type of the events returned by the Amazon Redshift event+-- notification, such as cluster, cluster-snapshot,+-- cluster-parameter-group, cluster-security-group, or scheduled-action.+eventSubscription_sourceType :: Lens.Lens' EventSubscription (Prelude.Maybe Prelude.Text)+eventSubscription_sourceType = Lens.lens (\EventSubscription' {sourceType} -> sourceType) (\s@EventSubscription' {} a -> s {sourceType = a} :: EventSubscription)++-- | The status of the Amazon Redshift event notification subscription.+--+-- Constraints:+--+-- - Can be one of the following: active | no-permission |+-- topic-not-exist+--+-- - The status \"no-permission\" indicates that Amazon Redshift no+-- longer has permission to post to the Amazon SNS topic. The status+-- \"topic-not-exist\" indicates that the topic was deleted after the+-- subscription was created.+eventSubscription_status :: Lens.Lens' EventSubscription (Prelude.Maybe Prelude.Text)+eventSubscription_status = Lens.lens (\EventSubscription' {status} -> status) (\s@EventSubscription' {} a -> s {status = a} :: EventSubscription)++-- | The date and time the Amazon Redshift event notification subscription+-- was created.+eventSubscription_subscriptionCreationTime :: Lens.Lens' EventSubscription (Prelude.Maybe Prelude.UTCTime)+eventSubscription_subscriptionCreationTime = Lens.lens (\EventSubscription' {subscriptionCreationTime} -> subscriptionCreationTime) (\s@EventSubscription' {} a -> s {subscriptionCreationTime = a} :: EventSubscription) Prelude.. Lens.mapping Data._Time++-- | The list of tags for the event subscription.+eventSubscription_tags :: Lens.Lens' EventSubscription (Prelude.Maybe [Tag])+eventSubscription_tags = Lens.lens (\EventSubscription' {tags} -> tags) (\s@EventSubscription' {} a -> s {tags = a} :: EventSubscription) Prelude.. Lens.mapping Lens.coerced++instance Data.FromXML EventSubscription where+ parseXML x =+ EventSubscription'+ Prelude.<$> (x Data..@? "CustSubscriptionId")+ Prelude.<*> (x Data..@? "CustomerAwsId")+ Prelude.<*> (x Data..@? "Enabled")+ Prelude.<*> ( x+ Data..@? "EventCategoriesList"+ Core..!@ Prelude.mempty+ Prelude.>>= Core.may (Data.parseXMLList "EventCategory")+ )+ Prelude.<*> (x Data..@? "Severity")+ Prelude.<*> (x Data..@? "SnsTopicArn")+ Prelude.<*> ( x+ Data..@? "SourceIdsList"+ Core..!@ Prelude.mempty+ Prelude.>>= Core.may (Data.parseXMLList "SourceId")+ )+ Prelude.<*> (x Data..@? "SourceType")+ Prelude.<*> (x Data..@? "Status")+ Prelude.<*> (x Data..@? "SubscriptionCreationTime")+ Prelude.<*> ( x+ Data..@? "Tags"+ Core..!@ Prelude.mempty+ Prelude.>>= Core.may (Data.parseXMLList "Tag")+ )++instance Prelude.Hashable EventSubscription where+ hashWithSalt _salt EventSubscription' {..} =+ _salt+ `Prelude.hashWithSalt` custSubscriptionId+ `Prelude.hashWithSalt` customerAwsId+ `Prelude.hashWithSalt` enabled+ `Prelude.hashWithSalt` eventCategoriesList+ `Prelude.hashWithSalt` severity+ `Prelude.hashWithSalt` snsTopicArn+ `Prelude.hashWithSalt` sourceIdsList+ `Prelude.hashWithSalt` sourceType+ `Prelude.hashWithSalt` status+ `Prelude.hashWithSalt` subscriptionCreationTime+ `Prelude.hashWithSalt` tags++instance Prelude.NFData EventSubscription where+ rnf EventSubscription' {..} =+ Prelude.rnf custSubscriptionId+ `Prelude.seq` Prelude.rnf customerAwsId+ `Prelude.seq` Prelude.rnf enabled+ `Prelude.seq` Prelude.rnf eventCategoriesList+ `Prelude.seq` Prelude.rnf severity+ `Prelude.seq` Prelude.rnf snsTopicArn+ `Prelude.seq` Prelude.rnf sourceIdsList+ `Prelude.seq` Prelude.rnf sourceType+ `Prelude.seq` Prelude.rnf status+ `Prelude.seq` Prelude.rnf subscriptionCreationTime+ `Prelude.seq` Prelude.rnf tags
+ gen/Amazonka/Redshift/Types/HsmClientCertificate.hs view
@@ -0,0 +1,104 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module : Amazonka.Redshift.Types.HsmClientCertificate+-- Copyright : (c) 2013-2023 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.Redshift.Types.HsmClientCertificate where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Redshift.Internal+import Amazonka.Redshift.Types.Tag++-- | Returns information about an HSM client certificate. The certificate is+-- stored in a secure Hardware Storage Module (HSM), and used by the Amazon+-- Redshift cluster to encrypt data files.+--+-- /See:/ 'newHsmClientCertificate' smart constructor.+data HsmClientCertificate = HsmClientCertificate'+ { -- | The identifier of the HSM client certificate.+ hsmClientCertificateIdentifier :: Prelude.Maybe Prelude.Text,+ -- | The public key that the Amazon Redshift cluster will use to connect to+ -- the HSM. You must register the public key in the HSM.+ hsmClientCertificatePublicKey :: Prelude.Maybe Prelude.Text,+ -- | The list of tags for the HSM client certificate.+ tags :: Prelude.Maybe [Tag]+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'HsmClientCertificate' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'hsmClientCertificateIdentifier', 'hsmClientCertificate_hsmClientCertificateIdentifier' - The identifier of the HSM client certificate.+--+-- 'hsmClientCertificatePublicKey', 'hsmClientCertificate_hsmClientCertificatePublicKey' - The public key that the Amazon Redshift cluster will use to connect to+-- the HSM. You must register the public key in the HSM.+--+-- 'tags', 'hsmClientCertificate_tags' - The list of tags for the HSM client certificate.+newHsmClientCertificate ::+ HsmClientCertificate+newHsmClientCertificate =+ HsmClientCertificate'+ { hsmClientCertificateIdentifier =+ Prelude.Nothing,+ hsmClientCertificatePublicKey = Prelude.Nothing,+ tags = Prelude.Nothing+ }++-- | The identifier of the HSM client certificate.+hsmClientCertificate_hsmClientCertificateIdentifier :: Lens.Lens' HsmClientCertificate (Prelude.Maybe Prelude.Text)+hsmClientCertificate_hsmClientCertificateIdentifier = Lens.lens (\HsmClientCertificate' {hsmClientCertificateIdentifier} -> hsmClientCertificateIdentifier) (\s@HsmClientCertificate' {} a -> s {hsmClientCertificateIdentifier = a} :: HsmClientCertificate)++-- | The public key that the Amazon Redshift cluster will use to connect to+-- the HSM. You must register the public key in the HSM.+hsmClientCertificate_hsmClientCertificatePublicKey :: Lens.Lens' HsmClientCertificate (Prelude.Maybe Prelude.Text)+hsmClientCertificate_hsmClientCertificatePublicKey = Lens.lens (\HsmClientCertificate' {hsmClientCertificatePublicKey} -> hsmClientCertificatePublicKey) (\s@HsmClientCertificate' {} a -> s {hsmClientCertificatePublicKey = a} :: HsmClientCertificate)++-- | The list of tags for the HSM client certificate.+hsmClientCertificate_tags :: Lens.Lens' HsmClientCertificate (Prelude.Maybe [Tag])+hsmClientCertificate_tags = Lens.lens (\HsmClientCertificate' {tags} -> tags) (\s@HsmClientCertificate' {} a -> s {tags = a} :: HsmClientCertificate) Prelude.. Lens.mapping Lens.coerced++instance Data.FromXML HsmClientCertificate where+ parseXML x =+ HsmClientCertificate'+ Prelude.<$> (x Data..@? "HsmClientCertificateIdentifier")+ Prelude.<*> (x Data..@? "HsmClientCertificatePublicKey")+ Prelude.<*> ( x+ Data..@? "Tags"+ Core..!@ Prelude.mempty+ Prelude.>>= Core.may (Data.parseXMLList "Tag")+ )++instance Prelude.Hashable HsmClientCertificate where+ hashWithSalt _salt HsmClientCertificate' {..} =+ _salt+ `Prelude.hashWithSalt` hsmClientCertificateIdentifier+ `Prelude.hashWithSalt` hsmClientCertificatePublicKey+ `Prelude.hashWithSalt` tags++instance Prelude.NFData HsmClientCertificate where+ rnf HsmClientCertificate' {..} =+ Prelude.rnf hsmClientCertificateIdentifier+ `Prelude.seq` Prelude.rnf hsmClientCertificatePublicKey+ `Prelude.seq` Prelude.rnf tags
+ gen/Amazonka/Redshift/Types/HsmConfiguration.hs view
@@ -0,0 +1,130 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module : Amazonka.Redshift.Types.HsmConfiguration+-- Copyright : (c) 2013-2023 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.Redshift.Types.HsmConfiguration where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Redshift.Internal+import Amazonka.Redshift.Types.Tag++-- | Returns information about an HSM configuration, which is an object that+-- describes to Amazon Redshift clusters the information they require to+-- connect to an HSM where they can store database encryption keys.+--+-- /See:/ 'newHsmConfiguration' smart constructor.+data HsmConfiguration = HsmConfiguration'+ { -- | A text description of the HSM configuration.+ description :: Prelude.Maybe Prelude.Text,+ -- | The name of the Amazon Redshift HSM configuration.+ hsmConfigurationIdentifier :: Prelude.Maybe Prelude.Text,+ -- | The IP address that the Amazon Redshift cluster must use to access the+ -- HSM.+ hsmIpAddress :: Prelude.Maybe Prelude.Text,+ -- | The name of the partition in the HSM where the Amazon Redshift clusters+ -- will store their database encryption keys.+ hsmPartitionName :: Prelude.Maybe Prelude.Text,+ -- | The list of tags for the HSM configuration.+ tags :: Prelude.Maybe [Tag]+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'HsmConfiguration' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'description', 'hsmConfiguration_description' - A text description of the HSM configuration.+--+-- 'hsmConfigurationIdentifier', 'hsmConfiguration_hsmConfigurationIdentifier' - The name of the Amazon Redshift HSM configuration.+--+-- 'hsmIpAddress', 'hsmConfiguration_hsmIpAddress' - The IP address that the Amazon Redshift cluster must use to access the+-- HSM.+--+-- 'hsmPartitionName', 'hsmConfiguration_hsmPartitionName' - The name of the partition in the HSM where the Amazon Redshift clusters+-- will store their database encryption keys.+--+-- 'tags', 'hsmConfiguration_tags' - The list of tags for the HSM configuration.+newHsmConfiguration ::+ HsmConfiguration+newHsmConfiguration =+ HsmConfiguration'+ { description = Prelude.Nothing,+ hsmConfigurationIdentifier = Prelude.Nothing,+ hsmIpAddress = Prelude.Nothing,+ hsmPartitionName = Prelude.Nothing,+ tags = Prelude.Nothing+ }++-- | A text description of the HSM configuration.+hsmConfiguration_description :: Lens.Lens' HsmConfiguration (Prelude.Maybe Prelude.Text)+hsmConfiguration_description = Lens.lens (\HsmConfiguration' {description} -> description) (\s@HsmConfiguration' {} a -> s {description = a} :: HsmConfiguration)++-- | The name of the Amazon Redshift HSM configuration.+hsmConfiguration_hsmConfigurationIdentifier :: Lens.Lens' HsmConfiguration (Prelude.Maybe Prelude.Text)+hsmConfiguration_hsmConfigurationIdentifier = Lens.lens (\HsmConfiguration' {hsmConfigurationIdentifier} -> hsmConfigurationIdentifier) (\s@HsmConfiguration' {} a -> s {hsmConfigurationIdentifier = a} :: HsmConfiguration)++-- | The IP address that the Amazon Redshift cluster must use to access the+-- HSM.+hsmConfiguration_hsmIpAddress :: Lens.Lens' HsmConfiguration (Prelude.Maybe Prelude.Text)+hsmConfiguration_hsmIpAddress = Lens.lens (\HsmConfiguration' {hsmIpAddress} -> hsmIpAddress) (\s@HsmConfiguration' {} a -> s {hsmIpAddress = a} :: HsmConfiguration)++-- | The name of the partition in the HSM where the Amazon Redshift clusters+-- will store their database encryption keys.+hsmConfiguration_hsmPartitionName :: Lens.Lens' HsmConfiguration (Prelude.Maybe Prelude.Text)+hsmConfiguration_hsmPartitionName = Lens.lens (\HsmConfiguration' {hsmPartitionName} -> hsmPartitionName) (\s@HsmConfiguration' {} a -> s {hsmPartitionName = a} :: HsmConfiguration)++-- | The list of tags for the HSM configuration.+hsmConfiguration_tags :: Lens.Lens' HsmConfiguration (Prelude.Maybe [Tag])+hsmConfiguration_tags = Lens.lens (\HsmConfiguration' {tags} -> tags) (\s@HsmConfiguration' {} a -> s {tags = a} :: HsmConfiguration) Prelude.. Lens.mapping Lens.coerced++instance Data.FromXML HsmConfiguration where+ parseXML x =+ HsmConfiguration'+ Prelude.<$> (x Data..@? "Description")+ Prelude.<*> (x Data..@? "HsmConfigurationIdentifier")+ Prelude.<*> (x Data..@? "HsmIpAddress")+ Prelude.<*> (x Data..@? "HsmPartitionName")+ Prelude.<*> ( x+ Data..@? "Tags"+ Core..!@ Prelude.mempty+ Prelude.>>= Core.may (Data.parseXMLList "Tag")+ )++instance Prelude.Hashable HsmConfiguration where+ hashWithSalt _salt HsmConfiguration' {..} =+ _salt+ `Prelude.hashWithSalt` description+ `Prelude.hashWithSalt` hsmConfigurationIdentifier+ `Prelude.hashWithSalt` hsmIpAddress+ `Prelude.hashWithSalt` hsmPartitionName+ `Prelude.hashWithSalt` tags++instance Prelude.NFData HsmConfiguration where+ rnf HsmConfiguration' {..} =+ Prelude.rnf description+ `Prelude.seq` Prelude.rnf hsmConfigurationIdentifier+ `Prelude.seq` Prelude.rnf hsmIpAddress+ `Prelude.seq` Prelude.rnf hsmPartitionName+ `Prelude.seq` Prelude.rnf tags
+ gen/Amazonka/Redshift/Types/HsmStatus.hs view
@@ -0,0 +1,112 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module : Amazonka.Redshift.Types.HsmStatus+-- Copyright : (c) 2013-2023 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.Redshift.Types.HsmStatus where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Redshift.Internal++-- | Describes the status of changes to HSM settings.+--+-- /See:/ 'newHsmStatus' smart constructor.+data HsmStatus = HsmStatus'+ { -- | Specifies the name of the HSM client certificate the Amazon Redshift+ -- cluster uses to retrieve the data encryption keys stored in an HSM.+ hsmClientCertificateIdentifier :: Prelude.Maybe Prelude.Text,+ -- | Specifies the name of the HSM configuration that contains the+ -- information the Amazon Redshift cluster can use to retrieve and store+ -- keys in an HSM.+ hsmConfigurationIdentifier :: Prelude.Maybe Prelude.Text,+ -- | Reports whether the Amazon Redshift cluster has finished applying any+ -- HSM settings changes specified in a modify cluster command.+ --+ -- Values: active, applying+ status :: Prelude.Maybe Prelude.Text+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'HsmStatus' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'hsmClientCertificateIdentifier', 'hsmStatus_hsmClientCertificateIdentifier' - Specifies the name of the HSM client certificate the Amazon Redshift+-- cluster uses to retrieve the data encryption keys stored in an HSM.+--+-- 'hsmConfigurationIdentifier', 'hsmStatus_hsmConfigurationIdentifier' - Specifies the name of the HSM configuration that contains the+-- information the Amazon Redshift cluster can use to retrieve and store+-- keys in an HSM.+--+-- 'status', 'hsmStatus_status' - Reports whether the Amazon Redshift cluster has finished applying any+-- HSM settings changes specified in a modify cluster command.+--+-- Values: active, applying+newHsmStatus ::+ HsmStatus+newHsmStatus =+ HsmStatus'+ { hsmClientCertificateIdentifier =+ Prelude.Nothing,+ hsmConfigurationIdentifier = Prelude.Nothing,+ status = Prelude.Nothing+ }++-- | Specifies the name of the HSM client certificate the Amazon Redshift+-- cluster uses to retrieve the data encryption keys stored in an HSM.+hsmStatus_hsmClientCertificateIdentifier :: Lens.Lens' HsmStatus (Prelude.Maybe Prelude.Text)+hsmStatus_hsmClientCertificateIdentifier = Lens.lens (\HsmStatus' {hsmClientCertificateIdentifier} -> hsmClientCertificateIdentifier) (\s@HsmStatus' {} a -> s {hsmClientCertificateIdentifier = a} :: HsmStatus)++-- | Specifies the name of the HSM configuration that contains the+-- information the Amazon Redshift cluster can use to retrieve and store+-- keys in an HSM.+hsmStatus_hsmConfigurationIdentifier :: Lens.Lens' HsmStatus (Prelude.Maybe Prelude.Text)+hsmStatus_hsmConfigurationIdentifier = Lens.lens (\HsmStatus' {hsmConfigurationIdentifier} -> hsmConfigurationIdentifier) (\s@HsmStatus' {} a -> s {hsmConfigurationIdentifier = a} :: HsmStatus)++-- | Reports whether the Amazon Redshift cluster has finished applying any+-- HSM settings changes specified in a modify cluster command.+--+-- Values: active, applying+hsmStatus_status :: Lens.Lens' HsmStatus (Prelude.Maybe Prelude.Text)+hsmStatus_status = Lens.lens (\HsmStatus' {status} -> status) (\s@HsmStatus' {} a -> s {status = a} :: HsmStatus)++instance Data.FromXML HsmStatus where+ parseXML x =+ HsmStatus'+ Prelude.<$> (x Data..@? "HsmClientCertificateIdentifier")+ Prelude.<*> (x Data..@? "HsmConfigurationIdentifier")+ Prelude.<*> (x Data..@? "Status")++instance Prelude.Hashable HsmStatus where+ hashWithSalt _salt HsmStatus' {..} =+ _salt+ `Prelude.hashWithSalt` hsmClientCertificateIdentifier+ `Prelude.hashWithSalt` hsmConfigurationIdentifier+ `Prelude.hashWithSalt` status++instance Prelude.NFData HsmStatus where+ rnf HsmStatus' {..} =+ Prelude.rnf hsmClientCertificateIdentifier+ `Prelude.seq` Prelude.rnf hsmConfigurationIdentifier+ `Prelude.seq` Prelude.rnf status
+ gen/Amazonka/Redshift/Types/IPRange.hs view
@@ -0,0 +1,98 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module : Amazonka.Redshift.Types.IPRange+-- Copyright : (c) 2013-2023 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.Redshift.Types.IPRange where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Redshift.Internal+import Amazonka.Redshift.Types.Tag++-- | Describes an IP range used in a security group.+--+-- /See:/ 'newIPRange' smart constructor.+data IPRange = IPRange'+ { -- | The IP range in Classless Inter-Domain Routing (CIDR) notation.+ cidrip :: Prelude.Maybe Prelude.Text,+ -- | The status of the IP range, for example, \"authorized\".+ status :: Prelude.Maybe Prelude.Text,+ -- | The list of tags for the IP range.+ tags :: Prelude.Maybe [Tag]+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'IPRange' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'cidrip', 'iPRange_cidrip' - The IP range in Classless Inter-Domain Routing (CIDR) notation.+--+-- 'status', 'iPRange_status' - The status of the IP range, for example, \"authorized\".+--+-- 'tags', 'iPRange_tags' - The list of tags for the IP range.+newIPRange ::+ IPRange+newIPRange =+ IPRange'+ { cidrip = Prelude.Nothing,+ status = Prelude.Nothing,+ tags = Prelude.Nothing+ }++-- | The IP range in Classless Inter-Domain Routing (CIDR) notation.+iPRange_cidrip :: Lens.Lens' IPRange (Prelude.Maybe Prelude.Text)+iPRange_cidrip = Lens.lens (\IPRange' {cidrip} -> cidrip) (\s@IPRange' {} a -> s {cidrip = a} :: IPRange)++-- | The status of the IP range, for example, \"authorized\".+iPRange_status :: Lens.Lens' IPRange (Prelude.Maybe Prelude.Text)+iPRange_status = Lens.lens (\IPRange' {status} -> status) (\s@IPRange' {} a -> s {status = a} :: IPRange)++-- | The list of tags for the IP range.+iPRange_tags :: Lens.Lens' IPRange (Prelude.Maybe [Tag])+iPRange_tags = Lens.lens (\IPRange' {tags} -> tags) (\s@IPRange' {} a -> s {tags = a} :: IPRange) Prelude.. Lens.mapping Lens.coerced++instance Data.FromXML IPRange where+ parseXML x =+ IPRange'+ Prelude.<$> (x Data..@? "CIDRIP")+ Prelude.<*> (x Data..@? "Status")+ Prelude.<*> ( x+ Data..@? "Tags"+ Core..!@ Prelude.mempty+ Prelude.>>= Core.may (Data.parseXMLList "Tag")+ )++instance Prelude.Hashable IPRange where+ hashWithSalt _salt IPRange' {..} =+ _salt+ `Prelude.hashWithSalt` cidrip+ `Prelude.hashWithSalt` status+ `Prelude.hashWithSalt` tags++instance Prelude.NFData IPRange where+ rnf IPRange' {..} =+ Prelude.rnf cidrip+ `Prelude.seq` Prelude.rnf status+ `Prelude.seq` Prelude.rnf tags
+ gen/Amazonka/Redshift/Types/LogDestinationType.hs view
@@ -0,0 +1,72 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE GeneralizedNewtypeDeriving #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module : Amazonka.Redshift.Types.LogDestinationType+-- Copyright : (c) 2013-2023 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.Redshift.Types.LogDestinationType+ ( LogDestinationType+ ( ..,+ LogDestinationType_Cloudwatch,+ LogDestinationType_S3+ ),+ )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Redshift.Internal++newtype LogDestinationType = LogDestinationType'+ { fromLogDestinationType ::+ Data.Text+ }+ deriving stock+ ( Prelude.Show,+ Prelude.Read,+ Prelude.Eq,+ Prelude.Ord,+ Prelude.Generic+ )+ deriving newtype+ ( Prelude.Hashable,+ Prelude.NFData,+ Data.FromText,+ Data.ToText,+ Data.ToByteString,+ Data.ToLog,+ Data.ToHeader,+ Data.ToQuery,+ Data.FromJSON,+ Data.FromJSONKey,+ Data.ToJSON,+ Data.ToJSONKey,+ Data.FromXML,+ Data.ToXML+ )++pattern LogDestinationType_Cloudwatch :: LogDestinationType+pattern LogDestinationType_Cloudwatch = LogDestinationType' "cloudwatch"++pattern LogDestinationType_S3 :: LogDestinationType+pattern LogDestinationType_S3 = LogDestinationType' "s3"++{-# COMPLETE+ LogDestinationType_Cloudwatch,+ LogDestinationType_S3,+ LogDestinationType'+ #-}
+ gen/Amazonka/Redshift/Types/LoggingStatus.hs view
@@ -0,0 +1,164 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module : Amazonka.Redshift.Types.LoggingStatus+-- Copyright : (c) 2013-2023 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.Redshift.Types.LoggingStatus where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Redshift.Internal+import Amazonka.Redshift.Types.LogDestinationType++-- | Describes the status of logging for a cluster.+--+-- /See:/ 'newLoggingStatus' smart constructor.+data LoggingStatus = LoggingStatus'+ { -- | The name of the S3 bucket where the log files are stored.+ bucketName :: Prelude.Maybe Prelude.Text,+ -- | The message indicating that logs failed to be delivered.+ lastFailureMessage :: Prelude.Maybe Prelude.Text,+ -- | The last time when logs failed to be delivered.+ lastFailureTime :: Prelude.Maybe Data.ISO8601,+ -- | The last time that logs were delivered.+ lastSuccessfulDeliveryTime :: Prelude.Maybe Data.ISO8601,+ -- | The log destination type. An enum with possible values of @s3@ and+ -- @cloudwatch@.+ logDestinationType :: Prelude.Maybe LogDestinationType,+ -- | The collection of exported log types. Log types include the connection+ -- log, user log and user activity log.+ logExports :: Prelude.Maybe [Prelude.Text],+ -- | @true@ if logging is on, @false@ if logging is off.+ loggingEnabled :: Prelude.Maybe Prelude.Bool,+ -- | The prefix applied to the log file names.+ s3KeyPrefix :: Prelude.Maybe Prelude.Text+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'LoggingStatus' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'bucketName', 'loggingStatus_bucketName' - The name of the S3 bucket where the log files are stored.+--+-- 'lastFailureMessage', 'loggingStatus_lastFailureMessage' - The message indicating that logs failed to be delivered.+--+-- 'lastFailureTime', 'loggingStatus_lastFailureTime' - The last time when logs failed to be delivered.+--+-- 'lastSuccessfulDeliveryTime', 'loggingStatus_lastSuccessfulDeliveryTime' - The last time that logs were delivered.+--+-- 'logDestinationType', 'loggingStatus_logDestinationType' - The log destination type. An enum with possible values of @s3@ and+-- @cloudwatch@.+--+-- 'logExports', 'loggingStatus_logExports' - The collection of exported log types. Log types include the connection+-- log, user log and user activity log.+--+-- 'loggingEnabled', 'loggingStatus_loggingEnabled' - @true@ if logging is on, @false@ if logging is off.+--+-- 's3KeyPrefix', 'loggingStatus_s3KeyPrefix' - The prefix applied to the log file names.+newLoggingStatus ::+ LoggingStatus+newLoggingStatus =+ LoggingStatus'+ { bucketName = Prelude.Nothing,+ lastFailureMessage = Prelude.Nothing,+ lastFailureTime = Prelude.Nothing,+ lastSuccessfulDeliveryTime = Prelude.Nothing,+ logDestinationType = Prelude.Nothing,+ logExports = Prelude.Nothing,+ loggingEnabled = Prelude.Nothing,+ s3KeyPrefix = Prelude.Nothing+ }++-- | The name of the S3 bucket where the log files are stored.+loggingStatus_bucketName :: Lens.Lens' LoggingStatus (Prelude.Maybe Prelude.Text)+loggingStatus_bucketName = Lens.lens (\LoggingStatus' {bucketName} -> bucketName) (\s@LoggingStatus' {} a -> s {bucketName = a} :: LoggingStatus)++-- | The message indicating that logs failed to be delivered.+loggingStatus_lastFailureMessage :: Lens.Lens' LoggingStatus (Prelude.Maybe Prelude.Text)+loggingStatus_lastFailureMessage = Lens.lens (\LoggingStatus' {lastFailureMessage} -> lastFailureMessage) (\s@LoggingStatus' {} a -> s {lastFailureMessage = a} :: LoggingStatus)++-- | The last time when logs failed to be delivered.+loggingStatus_lastFailureTime :: Lens.Lens' LoggingStatus (Prelude.Maybe Prelude.UTCTime)+loggingStatus_lastFailureTime = Lens.lens (\LoggingStatus' {lastFailureTime} -> lastFailureTime) (\s@LoggingStatus' {} a -> s {lastFailureTime = a} :: LoggingStatus) Prelude.. Lens.mapping Data._Time++-- | The last time that logs were delivered.+loggingStatus_lastSuccessfulDeliveryTime :: Lens.Lens' LoggingStatus (Prelude.Maybe Prelude.UTCTime)+loggingStatus_lastSuccessfulDeliveryTime = Lens.lens (\LoggingStatus' {lastSuccessfulDeliveryTime} -> lastSuccessfulDeliveryTime) (\s@LoggingStatus' {} a -> s {lastSuccessfulDeliveryTime = a} :: LoggingStatus) Prelude.. Lens.mapping Data._Time++-- | The log destination type. An enum with possible values of @s3@ and+-- @cloudwatch@.+loggingStatus_logDestinationType :: Lens.Lens' LoggingStatus (Prelude.Maybe LogDestinationType)+loggingStatus_logDestinationType = Lens.lens (\LoggingStatus' {logDestinationType} -> logDestinationType) (\s@LoggingStatus' {} a -> s {logDestinationType = a} :: LoggingStatus)++-- | The collection of exported log types. Log types include the connection+-- log, user log and user activity log.+loggingStatus_logExports :: Lens.Lens' LoggingStatus (Prelude.Maybe [Prelude.Text])+loggingStatus_logExports = Lens.lens (\LoggingStatus' {logExports} -> logExports) (\s@LoggingStatus' {} a -> s {logExports = a} :: LoggingStatus) Prelude.. Lens.mapping Lens.coerced++-- | @true@ if logging is on, @false@ if logging is off.+loggingStatus_loggingEnabled :: Lens.Lens' LoggingStatus (Prelude.Maybe Prelude.Bool)+loggingStatus_loggingEnabled = Lens.lens (\LoggingStatus' {loggingEnabled} -> loggingEnabled) (\s@LoggingStatus' {} a -> s {loggingEnabled = a} :: LoggingStatus)++-- | The prefix applied to the log file names.+loggingStatus_s3KeyPrefix :: Lens.Lens' LoggingStatus (Prelude.Maybe Prelude.Text)+loggingStatus_s3KeyPrefix = Lens.lens (\LoggingStatus' {s3KeyPrefix} -> s3KeyPrefix) (\s@LoggingStatus' {} a -> s {s3KeyPrefix = a} :: LoggingStatus)++instance Data.FromXML LoggingStatus where+ parseXML x =+ LoggingStatus'+ Prelude.<$> (x Data..@? "BucketName")+ Prelude.<*> (x Data..@? "LastFailureMessage")+ Prelude.<*> (x Data..@? "LastFailureTime")+ Prelude.<*> (x Data..@? "LastSuccessfulDeliveryTime")+ Prelude.<*> (x Data..@? "LogDestinationType")+ Prelude.<*> ( x+ Data..@? "LogExports"+ Core..!@ Prelude.mempty+ Prelude.>>= Core.may (Data.parseXMLList "member")+ )+ Prelude.<*> (x Data..@? "LoggingEnabled")+ Prelude.<*> (x Data..@? "S3KeyPrefix")++instance Prelude.Hashable LoggingStatus where+ hashWithSalt _salt LoggingStatus' {..} =+ _salt+ `Prelude.hashWithSalt` bucketName+ `Prelude.hashWithSalt` lastFailureMessage+ `Prelude.hashWithSalt` lastFailureTime+ `Prelude.hashWithSalt` lastSuccessfulDeliveryTime+ `Prelude.hashWithSalt` logDestinationType+ `Prelude.hashWithSalt` logExports+ `Prelude.hashWithSalt` loggingEnabled+ `Prelude.hashWithSalt` s3KeyPrefix++instance Prelude.NFData LoggingStatus where+ rnf LoggingStatus' {..} =+ Prelude.rnf bucketName+ `Prelude.seq` Prelude.rnf lastFailureMessage+ `Prelude.seq` Prelude.rnf lastFailureTime+ `Prelude.seq` Prelude.rnf lastSuccessfulDeliveryTime+ `Prelude.seq` Prelude.rnf logDestinationType+ `Prelude.seq` Prelude.rnf logExports+ `Prelude.seq` Prelude.rnf loggingEnabled+ `Prelude.seq` Prelude.rnf s3KeyPrefix
+ gen/Amazonka/Redshift/Types/MaintenanceTrack.hs view
@@ -0,0 +1,106 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module : Amazonka.Redshift.Types.MaintenanceTrack+-- Copyright : (c) 2013-2023 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.Redshift.Types.MaintenanceTrack where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Redshift.Internal+import Amazonka.Redshift.Types.UpdateTarget++-- | Defines a maintenance track that determines which Amazon Redshift+-- version to apply during a maintenance window. If the value for+-- @MaintenanceTrack@ is @current@, the cluster is updated to the most+-- recently certified maintenance release. If the value is @trailing@, the+-- cluster is updated to the previously certified maintenance release.+--+-- /See:/ 'newMaintenanceTrack' smart constructor.+data MaintenanceTrack = MaintenanceTrack'+ { -- | The version number for the cluster release.+ databaseVersion :: Prelude.Maybe Prelude.Text,+ -- | The name of the maintenance track. Possible values are @current@ and+ -- @trailing@.+ maintenanceTrackName :: Prelude.Maybe Prelude.Text,+ -- | An array of UpdateTarget objects to update with the maintenance track.+ updateTargets :: Prelude.Maybe [UpdateTarget]+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'MaintenanceTrack' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'databaseVersion', 'maintenanceTrack_databaseVersion' - The version number for the cluster release.+--+-- 'maintenanceTrackName', 'maintenanceTrack_maintenanceTrackName' - The name of the maintenance track. Possible values are @current@ and+-- @trailing@.+--+-- 'updateTargets', 'maintenanceTrack_updateTargets' - An array of UpdateTarget objects to update with the maintenance track.+newMaintenanceTrack ::+ MaintenanceTrack+newMaintenanceTrack =+ MaintenanceTrack'+ { databaseVersion =+ Prelude.Nothing,+ maintenanceTrackName = Prelude.Nothing,+ updateTargets = Prelude.Nothing+ }++-- | The version number for the cluster release.+maintenanceTrack_databaseVersion :: Lens.Lens' MaintenanceTrack (Prelude.Maybe Prelude.Text)+maintenanceTrack_databaseVersion = Lens.lens (\MaintenanceTrack' {databaseVersion} -> databaseVersion) (\s@MaintenanceTrack' {} a -> s {databaseVersion = a} :: MaintenanceTrack)++-- | The name of the maintenance track. Possible values are @current@ and+-- @trailing@.+maintenanceTrack_maintenanceTrackName :: Lens.Lens' MaintenanceTrack (Prelude.Maybe Prelude.Text)+maintenanceTrack_maintenanceTrackName = Lens.lens (\MaintenanceTrack' {maintenanceTrackName} -> maintenanceTrackName) (\s@MaintenanceTrack' {} a -> s {maintenanceTrackName = a} :: MaintenanceTrack)++-- | An array of UpdateTarget objects to update with the maintenance track.+maintenanceTrack_updateTargets :: Lens.Lens' MaintenanceTrack (Prelude.Maybe [UpdateTarget])+maintenanceTrack_updateTargets = Lens.lens (\MaintenanceTrack' {updateTargets} -> updateTargets) (\s@MaintenanceTrack' {} a -> s {updateTargets = a} :: MaintenanceTrack) Prelude.. Lens.mapping Lens.coerced++instance Data.FromXML MaintenanceTrack where+ parseXML x =+ MaintenanceTrack'+ Prelude.<$> (x Data..@? "DatabaseVersion")+ Prelude.<*> (x Data..@? "MaintenanceTrackName")+ Prelude.<*> ( x+ Data..@? "UpdateTargets"+ Core..!@ Prelude.mempty+ Prelude.>>= Core.may (Data.parseXMLList "UpdateTarget")+ )++instance Prelude.Hashable MaintenanceTrack where+ hashWithSalt _salt MaintenanceTrack' {..} =+ _salt+ `Prelude.hashWithSalt` databaseVersion+ `Prelude.hashWithSalt` maintenanceTrackName+ `Prelude.hashWithSalt` updateTargets++instance Prelude.NFData MaintenanceTrack where+ rnf MaintenanceTrack' {..} =+ Prelude.rnf databaseVersion+ `Prelude.seq` Prelude.rnf maintenanceTrackName+ `Prelude.seq` Prelude.rnf updateTargets
+ gen/Amazonka/Redshift/Types/Mode.hs view
@@ -0,0 +1,69 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE GeneralizedNewtypeDeriving #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module : Amazonka.Redshift.Types.Mode+-- Copyright : (c) 2013-2023 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.Redshift.Types.Mode+ ( Mode+ ( ..,+ Mode_High_performance,+ Mode_Standard+ ),+ )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Redshift.Internal++newtype Mode = Mode' {fromMode :: Data.Text}+ deriving stock+ ( Prelude.Show,+ Prelude.Read,+ Prelude.Eq,+ Prelude.Ord,+ Prelude.Generic+ )+ deriving newtype+ ( Prelude.Hashable,+ Prelude.NFData,+ Data.FromText,+ Data.ToText,+ Data.ToByteString,+ Data.ToLog,+ Data.ToHeader,+ Data.ToQuery,+ Data.FromJSON,+ Data.FromJSONKey,+ Data.ToJSON,+ Data.ToJSONKey,+ Data.FromXML,+ Data.ToXML+ )++pattern Mode_High_performance :: Mode+pattern Mode_High_performance = Mode' "high-performance"++pattern Mode_Standard :: Mode+pattern Mode_Standard = Mode' "standard"++{-# COMPLETE+ Mode_High_performance,+ Mode_Standard,+ Mode'+ #-}
+ gen/Amazonka/Redshift/Types/NetworkInterface.hs view
@@ -0,0 +1,106 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module : Amazonka.Redshift.Types.NetworkInterface+-- Copyright : (c) 2013-2023 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.Redshift.Types.NetworkInterface where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Redshift.Internal++-- | Describes a network interface.+--+-- /See:/ 'newNetworkInterface' smart constructor.+data NetworkInterface = NetworkInterface'+ { -- | The Availability Zone.+ availabilityZone :: Prelude.Maybe Prelude.Text,+ -- | The network interface identifier.+ networkInterfaceId :: Prelude.Maybe Prelude.Text,+ -- | The IPv4 address of the network interface within the subnet.+ privateIpAddress :: Prelude.Maybe Prelude.Text,+ -- | The subnet identifier.+ subnetId :: Prelude.Maybe Prelude.Text+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'NetworkInterface' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'availabilityZone', 'networkInterface_availabilityZone' - The Availability Zone.+--+-- 'networkInterfaceId', 'networkInterface_networkInterfaceId' - The network interface identifier.+--+-- 'privateIpAddress', 'networkInterface_privateIpAddress' - The IPv4 address of the network interface within the subnet.+--+-- 'subnetId', 'networkInterface_subnetId' - The subnet identifier.+newNetworkInterface ::+ NetworkInterface+newNetworkInterface =+ NetworkInterface'+ { availabilityZone =+ Prelude.Nothing,+ networkInterfaceId = Prelude.Nothing,+ privateIpAddress = Prelude.Nothing,+ subnetId = Prelude.Nothing+ }++-- | The Availability Zone.+networkInterface_availabilityZone :: Lens.Lens' NetworkInterface (Prelude.Maybe Prelude.Text)+networkInterface_availabilityZone = Lens.lens (\NetworkInterface' {availabilityZone} -> availabilityZone) (\s@NetworkInterface' {} a -> s {availabilityZone = a} :: NetworkInterface)++-- | The network interface identifier.+networkInterface_networkInterfaceId :: Lens.Lens' NetworkInterface (Prelude.Maybe Prelude.Text)+networkInterface_networkInterfaceId = Lens.lens (\NetworkInterface' {networkInterfaceId} -> networkInterfaceId) (\s@NetworkInterface' {} a -> s {networkInterfaceId = a} :: NetworkInterface)++-- | The IPv4 address of the network interface within the subnet.+networkInterface_privateIpAddress :: Lens.Lens' NetworkInterface (Prelude.Maybe Prelude.Text)+networkInterface_privateIpAddress = Lens.lens (\NetworkInterface' {privateIpAddress} -> privateIpAddress) (\s@NetworkInterface' {} a -> s {privateIpAddress = a} :: NetworkInterface)++-- | The subnet identifier.+networkInterface_subnetId :: Lens.Lens' NetworkInterface (Prelude.Maybe Prelude.Text)+networkInterface_subnetId = Lens.lens (\NetworkInterface' {subnetId} -> subnetId) (\s@NetworkInterface' {} a -> s {subnetId = a} :: NetworkInterface)++instance Data.FromXML NetworkInterface where+ parseXML x =+ NetworkInterface'+ Prelude.<$> (x Data..@? "AvailabilityZone")+ Prelude.<*> (x Data..@? "NetworkInterfaceId")+ Prelude.<*> (x Data..@? "PrivateIpAddress")+ Prelude.<*> (x Data..@? "SubnetId")++instance Prelude.Hashable NetworkInterface where+ hashWithSalt _salt NetworkInterface' {..} =+ _salt+ `Prelude.hashWithSalt` availabilityZone+ `Prelude.hashWithSalt` networkInterfaceId+ `Prelude.hashWithSalt` privateIpAddress+ `Prelude.hashWithSalt` subnetId++instance Prelude.NFData NetworkInterface where+ rnf NetworkInterface' {..} =+ Prelude.rnf availabilityZone+ `Prelude.seq` Prelude.rnf networkInterfaceId+ `Prelude.seq` Prelude.rnf privateIpAddress+ `Prelude.seq` Prelude.rnf subnetId
+ gen/Amazonka/Redshift/Types/NodeConfigurationOption.hs view
@@ -0,0 +1,107 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module : Amazonka.Redshift.Types.NodeConfigurationOption+-- Copyright : (c) 2013-2023 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.Redshift.Types.NodeConfigurationOption where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Redshift.Internal+import Amazonka.Redshift.Types.Mode++-- | A list of node configurations.+--+-- /See:/ 'newNodeConfigurationOption' smart constructor.+data NodeConfigurationOption = NodeConfigurationOption'+ { -- | The estimated disk utilizaton percentage.+ estimatedDiskUtilizationPercent :: Prelude.Maybe Prelude.Double,+ -- | The category of the node configuration recommendation.+ mode :: Prelude.Maybe Mode,+ -- | The node type, such as, \"ds2.8xlarge\".+ nodeType :: Prelude.Maybe Prelude.Text,+ -- | The number of nodes.+ numberOfNodes :: Prelude.Maybe Prelude.Int+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'NodeConfigurationOption' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'estimatedDiskUtilizationPercent', 'nodeConfigurationOption_estimatedDiskUtilizationPercent' - The estimated disk utilizaton percentage.+--+-- 'mode', 'nodeConfigurationOption_mode' - The category of the node configuration recommendation.+--+-- 'nodeType', 'nodeConfigurationOption_nodeType' - The node type, such as, \"ds2.8xlarge\".+--+-- 'numberOfNodes', 'nodeConfigurationOption_numberOfNodes' - The number of nodes.+newNodeConfigurationOption ::+ NodeConfigurationOption+newNodeConfigurationOption =+ NodeConfigurationOption'+ { estimatedDiskUtilizationPercent =+ Prelude.Nothing,+ mode = Prelude.Nothing,+ nodeType = Prelude.Nothing,+ numberOfNodes = Prelude.Nothing+ }++-- | The estimated disk utilizaton percentage.+nodeConfigurationOption_estimatedDiskUtilizationPercent :: Lens.Lens' NodeConfigurationOption (Prelude.Maybe Prelude.Double)+nodeConfigurationOption_estimatedDiskUtilizationPercent = Lens.lens (\NodeConfigurationOption' {estimatedDiskUtilizationPercent} -> estimatedDiskUtilizationPercent) (\s@NodeConfigurationOption' {} a -> s {estimatedDiskUtilizationPercent = a} :: NodeConfigurationOption)++-- | The category of the node configuration recommendation.+nodeConfigurationOption_mode :: Lens.Lens' NodeConfigurationOption (Prelude.Maybe Mode)+nodeConfigurationOption_mode = Lens.lens (\NodeConfigurationOption' {mode} -> mode) (\s@NodeConfigurationOption' {} a -> s {mode = a} :: NodeConfigurationOption)++-- | The node type, such as, \"ds2.8xlarge\".+nodeConfigurationOption_nodeType :: Lens.Lens' NodeConfigurationOption (Prelude.Maybe Prelude.Text)+nodeConfigurationOption_nodeType = Lens.lens (\NodeConfigurationOption' {nodeType} -> nodeType) (\s@NodeConfigurationOption' {} a -> s {nodeType = a} :: NodeConfigurationOption)++-- | The number of nodes.+nodeConfigurationOption_numberOfNodes :: Lens.Lens' NodeConfigurationOption (Prelude.Maybe Prelude.Int)+nodeConfigurationOption_numberOfNodes = Lens.lens (\NodeConfigurationOption' {numberOfNodes} -> numberOfNodes) (\s@NodeConfigurationOption' {} a -> s {numberOfNodes = a} :: NodeConfigurationOption)++instance Data.FromXML NodeConfigurationOption where+ parseXML x =+ NodeConfigurationOption'+ Prelude.<$> (x Data..@? "EstimatedDiskUtilizationPercent")+ Prelude.<*> (x Data..@? "Mode")+ Prelude.<*> (x Data..@? "NodeType")+ Prelude.<*> (x Data..@? "NumberOfNodes")++instance Prelude.Hashable NodeConfigurationOption where+ hashWithSalt _salt NodeConfigurationOption' {..} =+ _salt+ `Prelude.hashWithSalt` estimatedDiskUtilizationPercent+ `Prelude.hashWithSalt` mode+ `Prelude.hashWithSalt` nodeType+ `Prelude.hashWithSalt` numberOfNodes++instance Prelude.NFData NodeConfigurationOption where+ rnf NodeConfigurationOption' {..} =+ Prelude.rnf estimatedDiskUtilizationPercent+ `Prelude.seq` Prelude.rnf mode+ `Prelude.seq` Prelude.rnf nodeType+ `Prelude.seq` Prelude.rnf numberOfNodes
+ gen/Amazonka/Redshift/Types/NodeConfigurationOptionsFilter.hs view
@@ -0,0 +1,125 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module : Amazonka.Redshift.Types.NodeConfigurationOptionsFilter+-- Copyright : (c) 2013-2023 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.Redshift.Types.NodeConfigurationOptionsFilter where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Redshift.Internal+import Amazonka.Redshift.Types.NodeConfigurationOptionsFilterName+import Amazonka.Redshift.Types.OperatorType++-- | A set of elements to filter the returned node configurations.+--+-- /See:/ 'newNodeConfigurationOptionsFilter' smart constructor.+data NodeConfigurationOptionsFilter = NodeConfigurationOptionsFilter'+ { -- | The name of the element to filter.+ name :: Prelude.Maybe NodeConfigurationOptionsFilterName,+ -- | The filter operator. If filter Name is NodeType only the \'in\' operator+ -- is supported. Provide one value to evaluate for \'eq\', \'lt\', \'le\',+ -- \'gt\', and \'ge\'. Provide two values to evaluate for \'between\'.+ -- Provide a list of values for \'in\'.+ operator :: Prelude.Maybe OperatorType,+ -- | List of values. Compare Name using Operator to Values. If filter Name is+ -- NumberOfNodes, then values can range from 0 to 200. If filter Name is+ -- EstimatedDiskUtilizationPercent, then values can range from 0 to 100.+ -- For example, filter NumberOfNodes (name) GT (operator) 3 (values).+ values :: Prelude.Maybe [Prelude.Text]+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'NodeConfigurationOptionsFilter' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'name', 'nodeConfigurationOptionsFilter_name' - The name of the element to filter.+--+-- 'operator', 'nodeConfigurationOptionsFilter_operator' - The filter operator. If filter Name is NodeType only the \'in\' operator+-- is supported. Provide one value to evaluate for \'eq\', \'lt\', \'le\',+-- \'gt\', and \'ge\'. Provide two values to evaluate for \'between\'.+-- Provide a list of values for \'in\'.+--+-- 'values', 'nodeConfigurationOptionsFilter_values' - List of values. Compare Name using Operator to Values. If filter Name is+-- NumberOfNodes, then values can range from 0 to 200. If filter Name is+-- EstimatedDiskUtilizationPercent, then values can range from 0 to 100.+-- For example, filter NumberOfNodes (name) GT (operator) 3 (values).+newNodeConfigurationOptionsFilter ::+ NodeConfigurationOptionsFilter+newNodeConfigurationOptionsFilter =+ NodeConfigurationOptionsFilter'+ { name =+ Prelude.Nothing,+ operator = Prelude.Nothing,+ values = Prelude.Nothing+ }++-- | The name of the element to filter.+nodeConfigurationOptionsFilter_name :: Lens.Lens' NodeConfigurationOptionsFilter (Prelude.Maybe NodeConfigurationOptionsFilterName)+nodeConfigurationOptionsFilter_name = Lens.lens (\NodeConfigurationOptionsFilter' {name} -> name) (\s@NodeConfigurationOptionsFilter' {} a -> s {name = a} :: NodeConfigurationOptionsFilter)++-- | The filter operator. If filter Name is NodeType only the \'in\' operator+-- is supported. Provide one value to evaluate for \'eq\', \'lt\', \'le\',+-- \'gt\', and \'ge\'. Provide two values to evaluate for \'between\'.+-- Provide a list of values for \'in\'.+nodeConfigurationOptionsFilter_operator :: Lens.Lens' NodeConfigurationOptionsFilter (Prelude.Maybe OperatorType)+nodeConfigurationOptionsFilter_operator = Lens.lens (\NodeConfigurationOptionsFilter' {operator} -> operator) (\s@NodeConfigurationOptionsFilter' {} a -> s {operator = a} :: NodeConfigurationOptionsFilter)++-- | List of values. Compare Name using Operator to Values. If filter Name is+-- NumberOfNodes, then values can range from 0 to 200. If filter Name is+-- EstimatedDiskUtilizationPercent, then values can range from 0 to 100.+-- For example, filter NumberOfNodes (name) GT (operator) 3 (values).+nodeConfigurationOptionsFilter_values :: Lens.Lens' NodeConfigurationOptionsFilter (Prelude.Maybe [Prelude.Text])+nodeConfigurationOptionsFilter_values = Lens.lens (\NodeConfigurationOptionsFilter' {values} -> values) (\s@NodeConfigurationOptionsFilter' {} a -> s {values = a} :: NodeConfigurationOptionsFilter) Prelude.. Lens.mapping Lens.coerced++instance+ Prelude.Hashable+ NodeConfigurationOptionsFilter+ where+ hashWithSalt+ _salt+ NodeConfigurationOptionsFilter' {..} =+ _salt+ `Prelude.hashWithSalt` name+ `Prelude.hashWithSalt` operator+ `Prelude.hashWithSalt` values++instance+ Prelude.NFData+ NodeConfigurationOptionsFilter+ where+ rnf NodeConfigurationOptionsFilter' {..} =+ Prelude.rnf name+ `Prelude.seq` Prelude.rnf operator+ `Prelude.seq` Prelude.rnf values++instance Data.ToQuery NodeConfigurationOptionsFilter where+ toQuery NodeConfigurationOptionsFilter' {..} =+ Prelude.mconcat+ [ "Name" Data.=: name,+ "Operator" Data.=: operator,+ "Value"+ Data.=: Data.toQuery+ (Data.toQueryList "item" Prelude.<$> values)+ ]
+ gen/Amazonka/Redshift/Types/NodeConfigurationOptionsFilterName.hs view
@@ -0,0 +1,82 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE GeneralizedNewtypeDeriving #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module : Amazonka.Redshift.Types.NodeConfigurationOptionsFilterName+-- Copyright : (c) 2013-2023 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.Redshift.Types.NodeConfigurationOptionsFilterName+ ( NodeConfigurationOptionsFilterName+ ( ..,+ NodeConfigurationOptionsFilterName_EstimatedDiskUtilizationPercent,+ NodeConfigurationOptionsFilterName_Mode,+ NodeConfigurationOptionsFilterName_NodeType,+ NodeConfigurationOptionsFilterName_NumberOfNodes+ ),+ )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Redshift.Internal++newtype NodeConfigurationOptionsFilterName = NodeConfigurationOptionsFilterName'+ { fromNodeConfigurationOptionsFilterName ::+ Data.Text+ }+ deriving stock+ ( Prelude.Show,+ Prelude.Read,+ Prelude.Eq,+ Prelude.Ord,+ Prelude.Generic+ )+ deriving newtype+ ( Prelude.Hashable,+ Prelude.NFData,+ Data.FromText,+ Data.ToText,+ Data.ToByteString,+ Data.ToLog,+ Data.ToHeader,+ Data.ToQuery,+ Data.FromJSON,+ Data.FromJSONKey,+ Data.ToJSON,+ Data.ToJSONKey,+ Data.FromXML,+ Data.ToXML+ )++pattern NodeConfigurationOptionsFilterName_EstimatedDiskUtilizationPercent :: NodeConfigurationOptionsFilterName+pattern NodeConfigurationOptionsFilterName_EstimatedDiskUtilizationPercent = NodeConfigurationOptionsFilterName' "EstimatedDiskUtilizationPercent"++pattern NodeConfigurationOptionsFilterName_Mode :: NodeConfigurationOptionsFilterName+pattern NodeConfigurationOptionsFilterName_Mode = NodeConfigurationOptionsFilterName' "Mode"++pattern NodeConfigurationOptionsFilterName_NodeType :: NodeConfigurationOptionsFilterName+pattern NodeConfigurationOptionsFilterName_NodeType = NodeConfigurationOptionsFilterName' "NodeType"++pattern NodeConfigurationOptionsFilterName_NumberOfNodes :: NodeConfigurationOptionsFilterName+pattern NodeConfigurationOptionsFilterName_NumberOfNodes = NodeConfigurationOptionsFilterName' "NumberOfNodes"++{-# COMPLETE+ NodeConfigurationOptionsFilterName_EstimatedDiskUtilizationPercent,+ NodeConfigurationOptionsFilterName_Mode,+ NodeConfigurationOptionsFilterName_NodeType,+ NodeConfigurationOptionsFilterName_NumberOfNodes,+ NodeConfigurationOptionsFilterName'+ #-}
+ gen/Amazonka/Redshift/Types/OperatorType.hs view
@@ -0,0 +1,97 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE GeneralizedNewtypeDeriving #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module : Amazonka.Redshift.Types.OperatorType+-- Copyright : (c) 2013-2023 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.Redshift.Types.OperatorType+ ( OperatorType+ ( ..,+ OperatorType_Between,+ OperatorType_Eq,+ OperatorType_Ge,+ OperatorType_Gt,+ OperatorType_In,+ OperatorType_Le,+ OperatorType_Lt+ ),+ )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Redshift.Internal++newtype OperatorType = OperatorType'+ { fromOperatorType ::+ Data.Text+ }+ deriving stock+ ( Prelude.Show,+ Prelude.Read,+ Prelude.Eq,+ Prelude.Ord,+ Prelude.Generic+ )+ deriving newtype+ ( Prelude.Hashable,+ Prelude.NFData,+ Data.FromText,+ Data.ToText,+ Data.ToByteString,+ Data.ToLog,+ Data.ToHeader,+ Data.ToQuery,+ Data.FromJSON,+ Data.FromJSONKey,+ Data.ToJSON,+ Data.ToJSONKey,+ Data.FromXML,+ Data.ToXML+ )++pattern OperatorType_Between :: OperatorType+pattern OperatorType_Between = OperatorType' "between"++pattern OperatorType_Eq :: OperatorType+pattern OperatorType_Eq = OperatorType' "eq"++pattern OperatorType_Ge :: OperatorType+pattern OperatorType_Ge = OperatorType' "ge"++pattern OperatorType_Gt :: OperatorType+pattern OperatorType_Gt = OperatorType' "gt"++pattern OperatorType_In :: OperatorType+pattern OperatorType_In = OperatorType' "in"++pattern OperatorType_Le :: OperatorType+pattern OperatorType_Le = OperatorType' "le"++pattern OperatorType_Lt :: OperatorType+pattern OperatorType_Lt = OperatorType' "lt"++{-# COMPLETE+ OperatorType_Between,+ OperatorType_Eq,+ OperatorType_Ge,+ OperatorType_Gt,+ OperatorType_In,+ OperatorType_Le,+ OperatorType_Lt,+ OperatorType'+ #-}
+ gen/Amazonka/Redshift/Types/OrderableClusterOption.hs view
@@ -0,0 +1,111 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module : Amazonka.Redshift.Types.OrderableClusterOption+-- Copyright : (c) 2013-2023 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.Redshift.Types.OrderableClusterOption where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Redshift.Internal+import Amazonka.Redshift.Types.AvailabilityZone++-- | Describes an orderable cluster option.+--+-- /See:/ 'newOrderableClusterOption' smart constructor.+data OrderableClusterOption = OrderableClusterOption'+ { -- | A list of availability zones for the orderable cluster.+ availabilityZones :: Prelude.Maybe [AvailabilityZone],+ -- | The cluster type, for example @multi-node@.+ clusterType :: Prelude.Maybe Prelude.Text,+ -- | The version of the orderable cluster.+ clusterVersion :: Prelude.Maybe Prelude.Text,+ -- | The node type for the orderable cluster.+ nodeType :: Prelude.Maybe Prelude.Text+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'OrderableClusterOption' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'availabilityZones', 'orderableClusterOption_availabilityZones' - A list of availability zones for the orderable cluster.+--+-- 'clusterType', 'orderableClusterOption_clusterType' - The cluster type, for example @multi-node@.+--+-- 'clusterVersion', 'orderableClusterOption_clusterVersion' - The version of the orderable cluster.+--+-- 'nodeType', 'orderableClusterOption_nodeType' - The node type for the orderable cluster.+newOrderableClusterOption ::+ OrderableClusterOption+newOrderableClusterOption =+ OrderableClusterOption'+ { availabilityZones =+ Prelude.Nothing,+ clusterType = Prelude.Nothing,+ clusterVersion = Prelude.Nothing,+ nodeType = Prelude.Nothing+ }++-- | A list of availability zones for the orderable cluster.+orderableClusterOption_availabilityZones :: Lens.Lens' OrderableClusterOption (Prelude.Maybe [AvailabilityZone])+orderableClusterOption_availabilityZones = Lens.lens (\OrderableClusterOption' {availabilityZones} -> availabilityZones) (\s@OrderableClusterOption' {} a -> s {availabilityZones = a} :: OrderableClusterOption) Prelude.. Lens.mapping Lens.coerced++-- | The cluster type, for example @multi-node@.+orderableClusterOption_clusterType :: Lens.Lens' OrderableClusterOption (Prelude.Maybe Prelude.Text)+orderableClusterOption_clusterType = Lens.lens (\OrderableClusterOption' {clusterType} -> clusterType) (\s@OrderableClusterOption' {} a -> s {clusterType = a} :: OrderableClusterOption)++-- | The version of the orderable cluster.+orderableClusterOption_clusterVersion :: Lens.Lens' OrderableClusterOption (Prelude.Maybe Prelude.Text)+orderableClusterOption_clusterVersion = Lens.lens (\OrderableClusterOption' {clusterVersion} -> clusterVersion) (\s@OrderableClusterOption' {} a -> s {clusterVersion = a} :: OrderableClusterOption)++-- | The node type for the orderable cluster.+orderableClusterOption_nodeType :: Lens.Lens' OrderableClusterOption (Prelude.Maybe Prelude.Text)+orderableClusterOption_nodeType = Lens.lens (\OrderableClusterOption' {nodeType} -> nodeType) (\s@OrderableClusterOption' {} a -> s {nodeType = a} :: OrderableClusterOption)++instance Data.FromXML OrderableClusterOption where+ parseXML x =+ OrderableClusterOption'+ Prelude.<$> ( x+ Data..@? "AvailabilityZones"+ Core..!@ Prelude.mempty+ Prelude.>>= Core.may (Data.parseXMLList "AvailabilityZone")+ )+ Prelude.<*> (x Data..@? "ClusterType")+ Prelude.<*> (x Data..@? "ClusterVersion")+ Prelude.<*> (x Data..@? "NodeType")++instance Prelude.Hashable OrderableClusterOption where+ hashWithSalt _salt OrderableClusterOption' {..} =+ _salt+ `Prelude.hashWithSalt` availabilityZones+ `Prelude.hashWithSalt` clusterType+ `Prelude.hashWithSalt` clusterVersion+ `Prelude.hashWithSalt` nodeType++instance Prelude.NFData OrderableClusterOption where+ rnf OrderableClusterOption' {..} =+ Prelude.rnf availabilityZones+ `Prelude.seq` Prelude.rnf clusterType+ `Prelude.seq` Prelude.rnf clusterVersion+ `Prelude.seq` Prelude.rnf nodeType
+ gen/Amazonka/Redshift/Types/Parameter.hs view
@@ -0,0 +1,210 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module : Amazonka.Redshift.Types.Parameter+-- Copyright : (c) 2013-2023 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.Redshift.Types.Parameter where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Redshift.Internal+import Amazonka.Redshift.Types.ParameterApplyType++-- | Describes a parameter in a cluster parameter group.+--+-- /See:/ 'newParameter' smart constructor.+data Parameter = Parameter'+ { -- | The valid range of values for the parameter.+ allowedValues :: Prelude.Maybe Prelude.Text,+ -- | Specifies how to apply the WLM configuration parameter. Some properties+ -- can be applied dynamically, while other properties require that any+ -- associated clusters be rebooted for the configuration changes to be+ -- applied. For more information about parameters and parameter groups, go+ -- to+ -- <https://docs.aws.amazon.com/redshift/latest/mgmt/working-with-parameter-groups.html Amazon Redshift Parameter Groups>+ -- in the /Amazon Redshift Cluster Management Guide/.+ applyType :: Prelude.Maybe ParameterApplyType,+ -- | The data type of the parameter.+ dataType :: Prelude.Maybe Prelude.Text,+ -- | A description of the parameter.+ description :: Prelude.Maybe Prelude.Text,+ -- | If @true@, the parameter can be modified. Some parameters have security+ -- or operational implications that prevent them from being changed.+ isModifiable :: Prelude.Maybe Prelude.Bool,+ -- | The earliest engine version to which the parameter can apply.+ minimumEngineVersion :: Prelude.Maybe Prelude.Text,+ -- | The name of the parameter.+ parameterName :: Prelude.Maybe Prelude.Text,+ -- | The value of the parameter. If @ParameterName@ is+ -- @wlm_json_configuration@, then the maximum size of @ParameterValue@ is+ -- 8000 characters.+ parameterValue :: Prelude.Maybe Prelude.Text,+ -- | The source of the parameter value, such as \"engine-default\" or+ -- \"user\".+ source :: Prelude.Maybe Prelude.Text+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'Parameter' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'allowedValues', 'parameter_allowedValues' - The valid range of values for the parameter.+--+-- 'applyType', 'parameter_applyType' - Specifies how to apply the WLM configuration parameter. Some properties+-- can be applied dynamically, while other properties require that any+-- associated clusters be rebooted for the configuration changes to be+-- applied. For more information about parameters and parameter groups, go+-- to+-- <https://docs.aws.amazon.com/redshift/latest/mgmt/working-with-parameter-groups.html Amazon Redshift Parameter Groups>+-- in the /Amazon Redshift Cluster Management Guide/.+--+-- 'dataType', 'parameter_dataType' - The data type of the parameter.+--+-- 'description', 'parameter_description' - A description of the parameter.+--+-- 'isModifiable', 'parameter_isModifiable' - If @true@, the parameter can be modified. Some parameters have security+-- or operational implications that prevent them from being changed.+--+-- 'minimumEngineVersion', 'parameter_minimumEngineVersion' - The earliest engine version to which the parameter can apply.+--+-- 'parameterName', 'parameter_parameterName' - The name of the parameter.+--+-- 'parameterValue', 'parameter_parameterValue' - The value of the parameter. If @ParameterName@ is+-- @wlm_json_configuration@, then the maximum size of @ParameterValue@ is+-- 8000 characters.+--+-- 'source', 'parameter_source' - The source of the parameter value, such as \"engine-default\" or+-- \"user\".+newParameter ::+ Parameter+newParameter =+ Parameter'+ { allowedValues = Prelude.Nothing,+ applyType = Prelude.Nothing,+ dataType = Prelude.Nothing,+ description = Prelude.Nothing,+ isModifiable = Prelude.Nothing,+ minimumEngineVersion = Prelude.Nothing,+ parameterName = Prelude.Nothing,+ parameterValue = Prelude.Nothing,+ source = Prelude.Nothing+ }++-- | The valid range of values for the parameter.+parameter_allowedValues :: Lens.Lens' Parameter (Prelude.Maybe Prelude.Text)+parameter_allowedValues = Lens.lens (\Parameter' {allowedValues} -> allowedValues) (\s@Parameter' {} a -> s {allowedValues = a} :: Parameter)++-- | Specifies how to apply the WLM configuration parameter. Some properties+-- can be applied dynamically, while other properties require that any+-- associated clusters be rebooted for the configuration changes to be+-- applied. For more information about parameters and parameter groups, go+-- to+-- <https://docs.aws.amazon.com/redshift/latest/mgmt/working-with-parameter-groups.html Amazon Redshift Parameter Groups>+-- in the /Amazon Redshift Cluster Management Guide/.+parameter_applyType :: Lens.Lens' Parameter (Prelude.Maybe ParameterApplyType)+parameter_applyType = Lens.lens (\Parameter' {applyType} -> applyType) (\s@Parameter' {} a -> s {applyType = a} :: Parameter)++-- | The data type of the parameter.+parameter_dataType :: Lens.Lens' Parameter (Prelude.Maybe Prelude.Text)+parameter_dataType = Lens.lens (\Parameter' {dataType} -> dataType) (\s@Parameter' {} a -> s {dataType = a} :: Parameter)++-- | A description of the parameter.+parameter_description :: Lens.Lens' Parameter (Prelude.Maybe Prelude.Text)+parameter_description = Lens.lens (\Parameter' {description} -> description) (\s@Parameter' {} a -> s {description = a} :: Parameter)++-- | If @true@, the parameter can be modified. Some parameters have security+-- or operational implications that prevent them from being changed.+parameter_isModifiable :: Lens.Lens' Parameter (Prelude.Maybe Prelude.Bool)+parameter_isModifiable = Lens.lens (\Parameter' {isModifiable} -> isModifiable) (\s@Parameter' {} a -> s {isModifiable = a} :: Parameter)++-- | The earliest engine version to which the parameter can apply.+parameter_minimumEngineVersion :: Lens.Lens' Parameter (Prelude.Maybe Prelude.Text)+parameter_minimumEngineVersion = Lens.lens (\Parameter' {minimumEngineVersion} -> minimumEngineVersion) (\s@Parameter' {} a -> s {minimumEngineVersion = a} :: Parameter)++-- | The name of the parameter.+parameter_parameterName :: Lens.Lens' Parameter (Prelude.Maybe Prelude.Text)+parameter_parameterName = Lens.lens (\Parameter' {parameterName} -> parameterName) (\s@Parameter' {} a -> s {parameterName = a} :: Parameter)++-- | The value of the parameter. If @ParameterName@ is+-- @wlm_json_configuration@, then the maximum size of @ParameterValue@ is+-- 8000 characters.+parameter_parameterValue :: Lens.Lens' Parameter (Prelude.Maybe Prelude.Text)+parameter_parameterValue = Lens.lens (\Parameter' {parameterValue} -> parameterValue) (\s@Parameter' {} a -> s {parameterValue = a} :: Parameter)++-- | The source of the parameter value, such as \"engine-default\" or+-- \"user\".+parameter_source :: Lens.Lens' Parameter (Prelude.Maybe Prelude.Text)+parameter_source = Lens.lens (\Parameter' {source} -> source) (\s@Parameter' {} a -> s {source = a} :: Parameter)++instance Data.FromXML Parameter where+ parseXML x =+ Parameter'+ Prelude.<$> (x Data..@? "AllowedValues")+ Prelude.<*> (x Data..@? "ApplyType")+ Prelude.<*> (x Data..@? "DataType")+ Prelude.<*> (x Data..@? "Description")+ Prelude.<*> (x Data..@? "IsModifiable")+ Prelude.<*> (x Data..@? "MinimumEngineVersion")+ Prelude.<*> (x Data..@? "ParameterName")+ Prelude.<*> (x Data..@? "ParameterValue")+ Prelude.<*> (x Data..@? "Source")++instance Prelude.Hashable Parameter where+ hashWithSalt _salt Parameter' {..} =+ _salt+ `Prelude.hashWithSalt` allowedValues+ `Prelude.hashWithSalt` applyType+ `Prelude.hashWithSalt` dataType+ `Prelude.hashWithSalt` description+ `Prelude.hashWithSalt` isModifiable+ `Prelude.hashWithSalt` minimumEngineVersion+ `Prelude.hashWithSalt` parameterName+ `Prelude.hashWithSalt` parameterValue+ `Prelude.hashWithSalt` source++instance Prelude.NFData Parameter where+ rnf Parameter' {..} =+ Prelude.rnf allowedValues+ `Prelude.seq` Prelude.rnf applyType+ `Prelude.seq` Prelude.rnf dataType+ `Prelude.seq` Prelude.rnf description+ `Prelude.seq` Prelude.rnf isModifiable+ `Prelude.seq` Prelude.rnf minimumEngineVersion+ `Prelude.seq` Prelude.rnf parameterName+ `Prelude.seq` Prelude.rnf parameterValue+ `Prelude.seq` Prelude.rnf source++instance Data.ToQuery Parameter where+ toQuery Parameter' {..} =+ Prelude.mconcat+ [ "AllowedValues" Data.=: allowedValues,+ "ApplyType" Data.=: applyType,+ "DataType" Data.=: dataType,+ "Description" Data.=: description,+ "IsModifiable" Data.=: isModifiable,+ "MinimumEngineVersion" Data.=: minimumEngineVersion,+ "ParameterName" Data.=: parameterName,+ "ParameterValue" Data.=: parameterValue,+ "Source" Data.=: source+ ]
+ gen/Amazonka/Redshift/Types/ParameterApplyType.hs view
@@ -0,0 +1,72 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE GeneralizedNewtypeDeriving #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module : Amazonka.Redshift.Types.ParameterApplyType+-- Copyright : (c) 2013-2023 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.Redshift.Types.ParameterApplyType+ ( ParameterApplyType+ ( ..,+ ParameterApplyType_Dynamic,+ ParameterApplyType_Static+ ),+ )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Redshift.Internal++newtype ParameterApplyType = ParameterApplyType'+ { fromParameterApplyType ::+ Data.Text+ }+ deriving stock+ ( Prelude.Show,+ Prelude.Read,+ Prelude.Eq,+ Prelude.Ord,+ Prelude.Generic+ )+ deriving newtype+ ( Prelude.Hashable,+ Prelude.NFData,+ Data.FromText,+ Data.ToText,+ Data.ToByteString,+ Data.ToLog,+ Data.ToHeader,+ Data.ToQuery,+ Data.FromJSON,+ Data.FromJSONKey,+ Data.ToJSON,+ Data.ToJSONKey,+ Data.FromXML,+ Data.ToXML+ )++pattern ParameterApplyType_Dynamic :: ParameterApplyType+pattern ParameterApplyType_Dynamic = ParameterApplyType' "dynamic"++pattern ParameterApplyType_Static :: ParameterApplyType+pattern ParameterApplyType_Static = ParameterApplyType' "static"++{-# COMPLETE+ ParameterApplyType_Dynamic,+ ParameterApplyType_Static,+ ParameterApplyType'+ #-}
+ gen/Amazonka/Redshift/Types/PartnerIntegrationInfo.hs view
@@ -0,0 +1,134 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module : Amazonka.Redshift.Types.PartnerIntegrationInfo+-- Copyright : (c) 2013-2023 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.Redshift.Types.PartnerIntegrationInfo where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Redshift.Internal+import Amazonka.Redshift.Types.PartnerIntegrationStatus++-- | Describes a partner integration.+--+-- /See:/ 'newPartnerIntegrationInfo' smart constructor.+data PartnerIntegrationInfo = PartnerIntegrationInfo'+ { -- | The date (UTC) that the partner integration was created.+ createdAt :: Prelude.Maybe Data.ISO8601,+ -- | The name of the database that receives data from a partner.+ databaseName :: Prelude.Maybe Prelude.Text,+ -- | The name of the partner.+ partnerName :: Prelude.Maybe Prelude.Text,+ -- | The partner integration status.+ status :: Prelude.Maybe PartnerIntegrationStatus,+ -- | The status message provided by the partner.+ statusMessage :: Prelude.Maybe Prelude.Text,+ -- | The date (UTC) that the partner integration status was last updated by+ -- the partner.+ updatedAt :: Prelude.Maybe Data.ISO8601+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'PartnerIntegrationInfo' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'createdAt', 'partnerIntegrationInfo_createdAt' - The date (UTC) that the partner integration was created.+--+-- 'databaseName', 'partnerIntegrationInfo_databaseName' - The name of the database that receives data from a partner.+--+-- 'partnerName', 'partnerIntegrationInfo_partnerName' - The name of the partner.+--+-- 'status', 'partnerIntegrationInfo_status' - The partner integration status.+--+-- 'statusMessage', 'partnerIntegrationInfo_statusMessage' - The status message provided by the partner.+--+-- 'updatedAt', 'partnerIntegrationInfo_updatedAt' - The date (UTC) that the partner integration status was last updated by+-- the partner.+newPartnerIntegrationInfo ::+ PartnerIntegrationInfo+newPartnerIntegrationInfo =+ PartnerIntegrationInfo'+ { createdAt =+ Prelude.Nothing,+ databaseName = Prelude.Nothing,+ partnerName = Prelude.Nothing,+ status = Prelude.Nothing,+ statusMessage = Prelude.Nothing,+ updatedAt = Prelude.Nothing+ }++-- | The date (UTC) that the partner integration was created.+partnerIntegrationInfo_createdAt :: Lens.Lens' PartnerIntegrationInfo (Prelude.Maybe Prelude.UTCTime)+partnerIntegrationInfo_createdAt = Lens.lens (\PartnerIntegrationInfo' {createdAt} -> createdAt) (\s@PartnerIntegrationInfo' {} a -> s {createdAt = a} :: PartnerIntegrationInfo) Prelude.. Lens.mapping Data._Time++-- | The name of the database that receives data from a partner.+partnerIntegrationInfo_databaseName :: Lens.Lens' PartnerIntegrationInfo (Prelude.Maybe Prelude.Text)+partnerIntegrationInfo_databaseName = Lens.lens (\PartnerIntegrationInfo' {databaseName} -> databaseName) (\s@PartnerIntegrationInfo' {} a -> s {databaseName = a} :: PartnerIntegrationInfo)++-- | The name of the partner.+partnerIntegrationInfo_partnerName :: Lens.Lens' PartnerIntegrationInfo (Prelude.Maybe Prelude.Text)+partnerIntegrationInfo_partnerName = Lens.lens (\PartnerIntegrationInfo' {partnerName} -> partnerName) (\s@PartnerIntegrationInfo' {} a -> s {partnerName = a} :: PartnerIntegrationInfo)++-- | The partner integration status.+partnerIntegrationInfo_status :: Lens.Lens' PartnerIntegrationInfo (Prelude.Maybe PartnerIntegrationStatus)+partnerIntegrationInfo_status = Lens.lens (\PartnerIntegrationInfo' {status} -> status) (\s@PartnerIntegrationInfo' {} a -> s {status = a} :: PartnerIntegrationInfo)++-- | The status message provided by the partner.+partnerIntegrationInfo_statusMessage :: Lens.Lens' PartnerIntegrationInfo (Prelude.Maybe Prelude.Text)+partnerIntegrationInfo_statusMessage = Lens.lens (\PartnerIntegrationInfo' {statusMessage} -> statusMessage) (\s@PartnerIntegrationInfo' {} a -> s {statusMessage = a} :: PartnerIntegrationInfo)++-- | The date (UTC) that the partner integration status was last updated by+-- the partner.+partnerIntegrationInfo_updatedAt :: Lens.Lens' PartnerIntegrationInfo (Prelude.Maybe Prelude.UTCTime)+partnerIntegrationInfo_updatedAt = Lens.lens (\PartnerIntegrationInfo' {updatedAt} -> updatedAt) (\s@PartnerIntegrationInfo' {} a -> s {updatedAt = a} :: PartnerIntegrationInfo) Prelude.. Lens.mapping Data._Time++instance Data.FromXML PartnerIntegrationInfo where+ parseXML x =+ PartnerIntegrationInfo'+ Prelude.<$> (x Data..@? "CreatedAt")+ Prelude.<*> (x Data..@? "DatabaseName")+ Prelude.<*> (x Data..@? "PartnerName")+ Prelude.<*> (x Data..@? "Status")+ Prelude.<*> (x Data..@? "StatusMessage")+ Prelude.<*> (x Data..@? "UpdatedAt")++instance Prelude.Hashable PartnerIntegrationInfo where+ hashWithSalt _salt PartnerIntegrationInfo' {..} =+ _salt+ `Prelude.hashWithSalt` createdAt+ `Prelude.hashWithSalt` databaseName+ `Prelude.hashWithSalt` partnerName+ `Prelude.hashWithSalt` status+ `Prelude.hashWithSalt` statusMessage+ `Prelude.hashWithSalt` updatedAt++instance Prelude.NFData PartnerIntegrationInfo where+ rnf PartnerIntegrationInfo' {..} =+ Prelude.rnf createdAt+ `Prelude.seq` Prelude.rnf databaseName+ `Prelude.seq` Prelude.rnf partnerName+ `Prelude.seq` Prelude.rnf status+ `Prelude.seq` Prelude.rnf statusMessage+ `Prelude.seq` Prelude.rnf updatedAt
+ gen/Amazonka/Redshift/Types/PartnerIntegrationInputMessage.hs view
@@ -0,0 +1,128 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module : Amazonka.Redshift.Types.PartnerIntegrationInputMessage+-- Copyright : (c) 2013-2023 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.Redshift.Types.PartnerIntegrationInputMessage where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Redshift.Internal++-- | /See:/ 'newPartnerIntegrationInputMessage' smart constructor.+data PartnerIntegrationInputMessage = PartnerIntegrationInputMessage'+ { -- | The Amazon Web Services account ID that owns the cluster.+ accountId :: Prelude.Text,+ -- | The cluster identifier of the cluster that receives data from the+ -- partner.+ clusterIdentifier :: Prelude.Text,+ -- | The name of the database that receives data from the partner.+ databaseName :: Prelude.Text,+ -- | The name of the partner that is authorized to send data.+ partnerName :: Prelude.Text+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'PartnerIntegrationInputMessage' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'accountId', 'partnerIntegrationInputMessage_accountId' - The Amazon Web Services account ID that owns the cluster.+--+-- 'clusterIdentifier', 'partnerIntegrationInputMessage_clusterIdentifier' - The cluster identifier of the cluster that receives data from the+-- partner.+--+-- 'databaseName', 'partnerIntegrationInputMessage_databaseName' - The name of the database that receives data from the partner.+--+-- 'partnerName', 'partnerIntegrationInputMessage_partnerName' - The name of the partner that is authorized to send data.+newPartnerIntegrationInputMessage ::+ -- | 'accountId'+ Prelude.Text ->+ -- | 'clusterIdentifier'+ Prelude.Text ->+ -- | 'databaseName'+ Prelude.Text ->+ -- | 'partnerName'+ Prelude.Text ->+ PartnerIntegrationInputMessage+newPartnerIntegrationInputMessage+ pAccountId_+ pClusterIdentifier_+ pDatabaseName_+ pPartnerName_ =+ PartnerIntegrationInputMessage'+ { accountId =+ pAccountId_,+ clusterIdentifier = pClusterIdentifier_,+ databaseName = pDatabaseName_,+ partnerName = pPartnerName_+ }++-- | The Amazon Web Services account ID that owns the cluster.+partnerIntegrationInputMessage_accountId :: Lens.Lens' PartnerIntegrationInputMessage Prelude.Text+partnerIntegrationInputMessage_accountId = Lens.lens (\PartnerIntegrationInputMessage' {accountId} -> accountId) (\s@PartnerIntegrationInputMessage' {} a -> s {accountId = a} :: PartnerIntegrationInputMessage)++-- | The cluster identifier of the cluster that receives data from the+-- partner.+partnerIntegrationInputMessage_clusterIdentifier :: Lens.Lens' PartnerIntegrationInputMessage Prelude.Text+partnerIntegrationInputMessage_clusterIdentifier = Lens.lens (\PartnerIntegrationInputMessage' {clusterIdentifier} -> clusterIdentifier) (\s@PartnerIntegrationInputMessage' {} a -> s {clusterIdentifier = a} :: PartnerIntegrationInputMessage)++-- | The name of the database that receives data from the partner.+partnerIntegrationInputMessage_databaseName :: Lens.Lens' PartnerIntegrationInputMessage Prelude.Text+partnerIntegrationInputMessage_databaseName = Lens.lens (\PartnerIntegrationInputMessage' {databaseName} -> databaseName) (\s@PartnerIntegrationInputMessage' {} a -> s {databaseName = a} :: PartnerIntegrationInputMessage)++-- | The name of the partner that is authorized to send data.+partnerIntegrationInputMessage_partnerName :: Lens.Lens' PartnerIntegrationInputMessage Prelude.Text+partnerIntegrationInputMessage_partnerName = Lens.lens (\PartnerIntegrationInputMessage' {partnerName} -> partnerName) (\s@PartnerIntegrationInputMessage' {} a -> s {partnerName = a} :: PartnerIntegrationInputMessage)++instance+ Prelude.Hashable+ PartnerIntegrationInputMessage+ where+ hashWithSalt+ _salt+ PartnerIntegrationInputMessage' {..} =+ _salt+ `Prelude.hashWithSalt` accountId+ `Prelude.hashWithSalt` clusterIdentifier+ `Prelude.hashWithSalt` databaseName+ `Prelude.hashWithSalt` partnerName++instance+ Prelude.NFData+ PartnerIntegrationInputMessage+ where+ rnf PartnerIntegrationInputMessage' {..} =+ Prelude.rnf accountId+ `Prelude.seq` Prelude.rnf clusterIdentifier+ `Prelude.seq` Prelude.rnf databaseName+ `Prelude.seq` Prelude.rnf partnerName++instance Data.ToQuery PartnerIntegrationInputMessage where+ toQuery PartnerIntegrationInputMessage' {..} =+ Prelude.mconcat+ [ "AccountId" Data.=: accountId,+ "ClusterIdentifier" Data.=: clusterIdentifier,+ "DatabaseName" Data.=: databaseName,+ "PartnerName" Data.=: partnerName+ ]
+ gen/Amazonka/Redshift/Types/PartnerIntegrationOutputMessage.hs view
@@ -0,0 +1,88 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module : Amazonka.Redshift.Types.PartnerIntegrationOutputMessage+-- Copyright : (c) 2013-2023 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.Redshift.Types.PartnerIntegrationOutputMessage where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Redshift.Internal++-- | /See:/ 'newPartnerIntegrationOutputMessage' smart constructor.+data PartnerIntegrationOutputMessage = PartnerIntegrationOutputMessage'+ { -- | The name of the database that receives data from the partner.+ databaseName :: Prelude.Maybe Prelude.Text,+ -- | The name of the partner that is authorized to send data.+ partnerName :: Prelude.Maybe Prelude.Text+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'PartnerIntegrationOutputMessage' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'databaseName', 'partnerIntegrationOutputMessage_databaseName' - The name of the database that receives data from the partner.+--+-- 'partnerName', 'partnerIntegrationOutputMessage_partnerName' - The name of the partner that is authorized to send data.+newPartnerIntegrationOutputMessage ::+ PartnerIntegrationOutputMessage+newPartnerIntegrationOutputMessage =+ PartnerIntegrationOutputMessage'+ { databaseName =+ Prelude.Nothing,+ partnerName = Prelude.Nothing+ }++-- | The name of the database that receives data from the partner.+partnerIntegrationOutputMessage_databaseName :: Lens.Lens' PartnerIntegrationOutputMessage (Prelude.Maybe Prelude.Text)+partnerIntegrationOutputMessage_databaseName = Lens.lens (\PartnerIntegrationOutputMessage' {databaseName} -> databaseName) (\s@PartnerIntegrationOutputMessage' {} a -> s {databaseName = a} :: PartnerIntegrationOutputMessage)++-- | The name of the partner that is authorized to send data.+partnerIntegrationOutputMessage_partnerName :: Lens.Lens' PartnerIntegrationOutputMessage (Prelude.Maybe Prelude.Text)+partnerIntegrationOutputMessage_partnerName = Lens.lens (\PartnerIntegrationOutputMessage' {partnerName} -> partnerName) (\s@PartnerIntegrationOutputMessage' {} a -> s {partnerName = a} :: PartnerIntegrationOutputMessage)++instance Data.FromXML PartnerIntegrationOutputMessage where+ parseXML x =+ PartnerIntegrationOutputMessage'+ Prelude.<$> (x Data..@? "DatabaseName")+ Prelude.<*> (x Data..@? "PartnerName")++instance+ Prelude.Hashable+ PartnerIntegrationOutputMessage+ where+ hashWithSalt+ _salt+ PartnerIntegrationOutputMessage' {..} =+ _salt+ `Prelude.hashWithSalt` databaseName+ `Prelude.hashWithSalt` partnerName++instance+ Prelude.NFData+ PartnerIntegrationOutputMessage+ where+ rnf PartnerIntegrationOutputMessage' {..} =+ Prelude.rnf databaseName+ `Prelude.seq` Prelude.rnf partnerName
+ gen/Amazonka/Redshift/Types/PartnerIntegrationStatus.hs view
@@ -0,0 +1,82 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE GeneralizedNewtypeDeriving #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module : Amazonka.Redshift.Types.PartnerIntegrationStatus+-- Copyright : (c) 2013-2023 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.Redshift.Types.PartnerIntegrationStatus+ ( PartnerIntegrationStatus+ ( ..,+ PartnerIntegrationStatus_Active,+ PartnerIntegrationStatus_ConnectionFailure,+ PartnerIntegrationStatus_Inactive,+ PartnerIntegrationStatus_RuntimeFailure+ ),+ )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Redshift.Internal++newtype PartnerIntegrationStatus = PartnerIntegrationStatus'+ { fromPartnerIntegrationStatus ::+ Data.Text+ }+ deriving stock+ ( Prelude.Show,+ Prelude.Read,+ Prelude.Eq,+ Prelude.Ord,+ Prelude.Generic+ )+ deriving newtype+ ( Prelude.Hashable,+ Prelude.NFData,+ Data.FromText,+ Data.ToText,+ Data.ToByteString,+ Data.ToLog,+ Data.ToHeader,+ Data.ToQuery,+ Data.FromJSON,+ Data.FromJSONKey,+ Data.ToJSON,+ Data.ToJSONKey,+ Data.FromXML,+ Data.ToXML+ )++pattern PartnerIntegrationStatus_Active :: PartnerIntegrationStatus+pattern PartnerIntegrationStatus_Active = PartnerIntegrationStatus' "Active"++pattern PartnerIntegrationStatus_ConnectionFailure :: PartnerIntegrationStatus+pattern PartnerIntegrationStatus_ConnectionFailure = PartnerIntegrationStatus' "ConnectionFailure"++pattern PartnerIntegrationStatus_Inactive :: PartnerIntegrationStatus+pattern PartnerIntegrationStatus_Inactive = PartnerIntegrationStatus' "Inactive"++pattern PartnerIntegrationStatus_RuntimeFailure :: PartnerIntegrationStatus+pattern PartnerIntegrationStatus_RuntimeFailure = PartnerIntegrationStatus' "RuntimeFailure"++{-# COMPLETE+ PartnerIntegrationStatus_Active,+ PartnerIntegrationStatus_ConnectionFailure,+ PartnerIntegrationStatus_Inactive,+ PartnerIntegrationStatus_RuntimeFailure,+ PartnerIntegrationStatus'+ #-}
+ gen/Amazonka/Redshift/Types/PauseClusterMessage.hs view
@@ -0,0 +1,77 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module : Amazonka.Redshift.Types.PauseClusterMessage+-- Copyright : (c) 2013-2023 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.Redshift.Types.PauseClusterMessage where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Redshift.Internal++-- | Describes a pause cluster operation. For example, a scheduled action to+-- run the @PauseCluster@ API operation.+--+-- /See:/ 'newPauseClusterMessage' smart constructor.+data PauseClusterMessage = PauseClusterMessage'+ { -- | The identifier of the cluster to be paused.+ clusterIdentifier :: Prelude.Text+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'PauseClusterMessage' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'clusterIdentifier', 'pauseClusterMessage_clusterIdentifier' - The identifier of the cluster to be paused.+newPauseClusterMessage ::+ -- | 'clusterIdentifier'+ Prelude.Text ->+ PauseClusterMessage+newPauseClusterMessage pClusterIdentifier_ =+ PauseClusterMessage'+ { clusterIdentifier =+ pClusterIdentifier_+ }++-- | The identifier of the cluster to be paused.+pauseClusterMessage_clusterIdentifier :: Lens.Lens' PauseClusterMessage Prelude.Text+pauseClusterMessage_clusterIdentifier = Lens.lens (\PauseClusterMessage' {clusterIdentifier} -> clusterIdentifier) (\s@PauseClusterMessage' {} a -> s {clusterIdentifier = a} :: PauseClusterMessage)++instance Data.FromXML PauseClusterMessage where+ parseXML x =+ PauseClusterMessage'+ Prelude.<$> (x Data..@ "ClusterIdentifier")++instance Prelude.Hashable PauseClusterMessage where+ hashWithSalt _salt PauseClusterMessage' {..} =+ _salt `Prelude.hashWithSalt` clusterIdentifier++instance Prelude.NFData PauseClusterMessage where+ rnf PauseClusterMessage' {..} =+ Prelude.rnf clusterIdentifier++instance Data.ToQuery PauseClusterMessage where+ toQuery PauseClusterMessage' {..} =+ Prelude.mconcat+ ["ClusterIdentifier" Data.=: clusterIdentifier]
+ gen/Amazonka/Redshift/Types/PendingModifiedValues.hs view
@@ -0,0 +1,228 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module : Amazonka.Redshift.Types.PendingModifiedValues+-- Copyright : (c) 2013-2023 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.Redshift.Types.PendingModifiedValues where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Redshift.Internal++-- | Describes cluster attributes that are in a pending state. A change to+-- one or more the attributes was requested and is in progress or will be+-- applied.+--+-- /See:/ 'newPendingModifiedValues' smart constructor.+data PendingModifiedValues = PendingModifiedValues'+ { -- | The pending or in-progress change of the automated snapshot retention+ -- period.+ automatedSnapshotRetentionPeriod :: Prelude.Maybe Prelude.Int,+ -- | The pending or in-progress change of the new identifier for the cluster.+ clusterIdentifier :: Prelude.Maybe Prelude.Text,+ -- | The pending or in-progress change of the cluster type.+ clusterType :: Prelude.Maybe Prelude.Text,+ -- | The pending or in-progress change of the service version.+ clusterVersion :: Prelude.Maybe Prelude.Text,+ -- | The encryption type for a cluster. Possible values are: KMS and None.+ encryptionType :: Prelude.Maybe Prelude.Text,+ -- | An option that specifies whether to create the cluster with enhanced VPC+ -- routing enabled. To create a cluster that uses enhanced VPC routing, the+ -- cluster must be in a VPC. For more information, see+ -- <https://docs.aws.amazon.com/redshift/latest/mgmt/enhanced-vpc-routing.html Enhanced VPC Routing>+ -- in the Amazon Redshift Cluster Management Guide.+ --+ -- If this option is @true@, enhanced VPC routing is enabled.+ --+ -- Default: false+ enhancedVpcRouting :: Prelude.Maybe Prelude.Bool,+ -- | The name of the maintenance track that the cluster will change to during+ -- the next maintenance window.+ maintenanceTrackName :: Prelude.Maybe Prelude.Text,+ -- | The pending or in-progress change of the admin user password for the+ -- cluster.+ masterUserPassword :: Prelude.Maybe Prelude.Text,+ -- | The pending or in-progress change of the cluster\'s node type.+ nodeType :: Prelude.Maybe Prelude.Text,+ -- | The pending or in-progress change of the number of nodes in the cluster.+ numberOfNodes :: Prelude.Maybe Prelude.Int,+ -- | The pending or in-progress change of the ability to connect to the+ -- cluster from the public network.+ publiclyAccessible :: Prelude.Maybe Prelude.Bool+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'PendingModifiedValues' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'automatedSnapshotRetentionPeriod', 'pendingModifiedValues_automatedSnapshotRetentionPeriod' - The pending or in-progress change of the automated snapshot retention+-- period.+--+-- 'clusterIdentifier', 'pendingModifiedValues_clusterIdentifier' - The pending or in-progress change of the new identifier for the cluster.+--+-- 'clusterType', 'pendingModifiedValues_clusterType' - The pending or in-progress change of the cluster type.+--+-- 'clusterVersion', 'pendingModifiedValues_clusterVersion' - The pending or in-progress change of the service version.+--+-- 'encryptionType', 'pendingModifiedValues_encryptionType' - The encryption type for a cluster. Possible values are: KMS and None.+--+-- 'enhancedVpcRouting', 'pendingModifiedValues_enhancedVpcRouting' - An option that specifies whether to create the cluster with enhanced VPC+-- routing enabled. To create a cluster that uses enhanced VPC routing, the+-- cluster must be in a VPC. For more information, see+-- <https://docs.aws.amazon.com/redshift/latest/mgmt/enhanced-vpc-routing.html Enhanced VPC Routing>+-- in the Amazon Redshift Cluster Management Guide.+--+-- If this option is @true@, enhanced VPC routing is enabled.+--+-- Default: false+--+-- 'maintenanceTrackName', 'pendingModifiedValues_maintenanceTrackName' - The name of the maintenance track that the cluster will change to during+-- the next maintenance window.+--+-- 'masterUserPassword', 'pendingModifiedValues_masterUserPassword' - The pending or in-progress change of the admin user password for the+-- cluster.+--+-- 'nodeType', 'pendingModifiedValues_nodeType' - The pending or in-progress change of the cluster\'s node type.+--+-- 'numberOfNodes', 'pendingModifiedValues_numberOfNodes' - The pending or in-progress change of the number of nodes in the cluster.+--+-- 'publiclyAccessible', 'pendingModifiedValues_publiclyAccessible' - The pending or in-progress change of the ability to connect to the+-- cluster from the public network.+newPendingModifiedValues ::+ PendingModifiedValues+newPendingModifiedValues =+ PendingModifiedValues'+ { automatedSnapshotRetentionPeriod =+ Prelude.Nothing,+ clusterIdentifier = Prelude.Nothing,+ clusterType = Prelude.Nothing,+ clusterVersion = Prelude.Nothing,+ encryptionType = Prelude.Nothing,+ enhancedVpcRouting = Prelude.Nothing,+ maintenanceTrackName = Prelude.Nothing,+ masterUserPassword = Prelude.Nothing,+ nodeType = Prelude.Nothing,+ numberOfNodes = Prelude.Nothing,+ publiclyAccessible = Prelude.Nothing+ }++-- | The pending or in-progress change of the automated snapshot retention+-- period.+pendingModifiedValues_automatedSnapshotRetentionPeriod :: Lens.Lens' PendingModifiedValues (Prelude.Maybe Prelude.Int)+pendingModifiedValues_automatedSnapshotRetentionPeriod = Lens.lens (\PendingModifiedValues' {automatedSnapshotRetentionPeriod} -> automatedSnapshotRetentionPeriod) (\s@PendingModifiedValues' {} a -> s {automatedSnapshotRetentionPeriod = a} :: PendingModifiedValues)++-- | The pending or in-progress change of the new identifier for the cluster.+pendingModifiedValues_clusterIdentifier :: Lens.Lens' PendingModifiedValues (Prelude.Maybe Prelude.Text)+pendingModifiedValues_clusterIdentifier = Lens.lens (\PendingModifiedValues' {clusterIdentifier} -> clusterIdentifier) (\s@PendingModifiedValues' {} a -> s {clusterIdentifier = a} :: PendingModifiedValues)++-- | The pending or in-progress change of the cluster type.+pendingModifiedValues_clusterType :: Lens.Lens' PendingModifiedValues (Prelude.Maybe Prelude.Text)+pendingModifiedValues_clusterType = Lens.lens (\PendingModifiedValues' {clusterType} -> clusterType) (\s@PendingModifiedValues' {} a -> s {clusterType = a} :: PendingModifiedValues)++-- | The pending or in-progress change of the service version.+pendingModifiedValues_clusterVersion :: Lens.Lens' PendingModifiedValues (Prelude.Maybe Prelude.Text)+pendingModifiedValues_clusterVersion = Lens.lens (\PendingModifiedValues' {clusterVersion} -> clusterVersion) (\s@PendingModifiedValues' {} a -> s {clusterVersion = a} :: PendingModifiedValues)++-- | The encryption type for a cluster. Possible values are: KMS and None.+pendingModifiedValues_encryptionType :: Lens.Lens' PendingModifiedValues (Prelude.Maybe Prelude.Text)+pendingModifiedValues_encryptionType = Lens.lens (\PendingModifiedValues' {encryptionType} -> encryptionType) (\s@PendingModifiedValues' {} a -> s {encryptionType = a} :: PendingModifiedValues)++-- | An option that specifies whether to create the cluster with enhanced VPC+-- routing enabled. To create a cluster that uses enhanced VPC routing, the+-- cluster must be in a VPC. For more information, see+-- <https://docs.aws.amazon.com/redshift/latest/mgmt/enhanced-vpc-routing.html Enhanced VPC Routing>+-- in the Amazon Redshift Cluster Management Guide.+--+-- If this option is @true@, enhanced VPC routing is enabled.+--+-- Default: false+pendingModifiedValues_enhancedVpcRouting :: Lens.Lens' PendingModifiedValues (Prelude.Maybe Prelude.Bool)+pendingModifiedValues_enhancedVpcRouting = Lens.lens (\PendingModifiedValues' {enhancedVpcRouting} -> enhancedVpcRouting) (\s@PendingModifiedValues' {} a -> s {enhancedVpcRouting = a} :: PendingModifiedValues)++-- | The name of the maintenance track that the cluster will change to during+-- the next maintenance window.+pendingModifiedValues_maintenanceTrackName :: Lens.Lens' PendingModifiedValues (Prelude.Maybe Prelude.Text)+pendingModifiedValues_maintenanceTrackName = Lens.lens (\PendingModifiedValues' {maintenanceTrackName} -> maintenanceTrackName) (\s@PendingModifiedValues' {} a -> s {maintenanceTrackName = a} :: PendingModifiedValues)++-- | The pending or in-progress change of the admin user password for the+-- cluster.+pendingModifiedValues_masterUserPassword :: Lens.Lens' PendingModifiedValues (Prelude.Maybe Prelude.Text)+pendingModifiedValues_masterUserPassword = Lens.lens (\PendingModifiedValues' {masterUserPassword} -> masterUserPassword) (\s@PendingModifiedValues' {} a -> s {masterUserPassword = a} :: PendingModifiedValues)++-- | The pending or in-progress change of the cluster\'s node type.+pendingModifiedValues_nodeType :: Lens.Lens' PendingModifiedValues (Prelude.Maybe Prelude.Text)+pendingModifiedValues_nodeType = Lens.lens (\PendingModifiedValues' {nodeType} -> nodeType) (\s@PendingModifiedValues' {} a -> s {nodeType = a} :: PendingModifiedValues)++-- | The pending or in-progress change of the number of nodes in the cluster.+pendingModifiedValues_numberOfNodes :: Lens.Lens' PendingModifiedValues (Prelude.Maybe Prelude.Int)+pendingModifiedValues_numberOfNodes = Lens.lens (\PendingModifiedValues' {numberOfNodes} -> numberOfNodes) (\s@PendingModifiedValues' {} a -> s {numberOfNodes = a} :: PendingModifiedValues)++-- | The pending or in-progress change of the ability to connect to the+-- cluster from the public network.+pendingModifiedValues_publiclyAccessible :: Lens.Lens' PendingModifiedValues (Prelude.Maybe Prelude.Bool)+pendingModifiedValues_publiclyAccessible = Lens.lens (\PendingModifiedValues' {publiclyAccessible} -> publiclyAccessible) (\s@PendingModifiedValues' {} a -> s {publiclyAccessible = a} :: PendingModifiedValues)++instance Data.FromXML PendingModifiedValues where+ parseXML x =+ PendingModifiedValues'+ Prelude.<$> (x Data..@? "AutomatedSnapshotRetentionPeriod")+ Prelude.<*> (x Data..@? "ClusterIdentifier")+ Prelude.<*> (x Data..@? "ClusterType")+ Prelude.<*> (x Data..@? "ClusterVersion")+ Prelude.<*> (x Data..@? "EncryptionType")+ Prelude.<*> (x Data..@? "EnhancedVpcRouting")+ Prelude.<*> (x Data..@? "MaintenanceTrackName")+ Prelude.<*> (x Data..@? "MasterUserPassword")+ Prelude.<*> (x Data..@? "NodeType")+ Prelude.<*> (x Data..@? "NumberOfNodes")+ Prelude.<*> (x Data..@? "PubliclyAccessible")++instance Prelude.Hashable PendingModifiedValues where+ hashWithSalt _salt PendingModifiedValues' {..} =+ _salt+ `Prelude.hashWithSalt` automatedSnapshotRetentionPeriod+ `Prelude.hashWithSalt` clusterIdentifier+ `Prelude.hashWithSalt` clusterType+ `Prelude.hashWithSalt` clusterVersion+ `Prelude.hashWithSalt` encryptionType+ `Prelude.hashWithSalt` enhancedVpcRouting+ `Prelude.hashWithSalt` maintenanceTrackName+ `Prelude.hashWithSalt` masterUserPassword+ `Prelude.hashWithSalt` nodeType+ `Prelude.hashWithSalt` numberOfNodes+ `Prelude.hashWithSalt` publiclyAccessible++instance Prelude.NFData PendingModifiedValues where+ rnf PendingModifiedValues' {..} =+ Prelude.rnf automatedSnapshotRetentionPeriod+ `Prelude.seq` Prelude.rnf clusterIdentifier+ `Prelude.seq` Prelude.rnf clusterType+ `Prelude.seq` Prelude.rnf clusterVersion+ `Prelude.seq` Prelude.rnf encryptionType+ `Prelude.seq` Prelude.rnf enhancedVpcRouting+ `Prelude.seq` Prelude.rnf maintenanceTrackName+ `Prelude.seq` Prelude.rnf masterUserPassword+ `Prelude.seq` Prelude.rnf nodeType+ `Prelude.seq` Prelude.rnf numberOfNodes+ `Prelude.seq` Prelude.rnf publiclyAccessible
+ gen/Amazonka/Redshift/Types/RecurringCharge.hs view
@@ -0,0 +1,85 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module : Amazonka.Redshift.Types.RecurringCharge+-- Copyright : (c) 2013-2023 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.Redshift.Types.RecurringCharge where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Redshift.Internal++-- | Describes a recurring charge.+--+-- /See:/ 'newRecurringCharge' smart constructor.+data RecurringCharge = RecurringCharge'+ { -- | The amount charged per the period of time specified by the recurring+ -- charge frequency.+ recurringChargeAmount :: Prelude.Maybe Prelude.Double,+ -- | The frequency at which the recurring charge amount is applied.+ recurringChargeFrequency :: Prelude.Maybe Prelude.Text+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'RecurringCharge' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'recurringChargeAmount', 'recurringCharge_recurringChargeAmount' - The amount charged per the period of time specified by the recurring+-- charge frequency.+--+-- 'recurringChargeFrequency', 'recurringCharge_recurringChargeFrequency' - The frequency at which the recurring charge amount is applied.+newRecurringCharge ::+ RecurringCharge+newRecurringCharge =+ RecurringCharge'+ { recurringChargeAmount =+ Prelude.Nothing,+ recurringChargeFrequency = Prelude.Nothing+ }++-- | The amount charged per the period of time specified by the recurring+-- charge frequency.+recurringCharge_recurringChargeAmount :: Lens.Lens' RecurringCharge (Prelude.Maybe Prelude.Double)+recurringCharge_recurringChargeAmount = Lens.lens (\RecurringCharge' {recurringChargeAmount} -> recurringChargeAmount) (\s@RecurringCharge' {} a -> s {recurringChargeAmount = a} :: RecurringCharge)++-- | The frequency at which the recurring charge amount is applied.+recurringCharge_recurringChargeFrequency :: Lens.Lens' RecurringCharge (Prelude.Maybe Prelude.Text)+recurringCharge_recurringChargeFrequency = Lens.lens (\RecurringCharge' {recurringChargeFrequency} -> recurringChargeFrequency) (\s@RecurringCharge' {} a -> s {recurringChargeFrequency = a} :: RecurringCharge)++instance Data.FromXML RecurringCharge where+ parseXML x =+ RecurringCharge'+ Prelude.<$> (x Data..@? "RecurringChargeAmount")+ Prelude.<*> (x Data..@? "RecurringChargeFrequency")++instance Prelude.Hashable RecurringCharge where+ hashWithSalt _salt RecurringCharge' {..} =+ _salt+ `Prelude.hashWithSalt` recurringChargeAmount+ `Prelude.hashWithSalt` recurringChargeFrequency++instance Prelude.NFData RecurringCharge where+ rnf RecurringCharge' {..} =+ Prelude.rnf recurringChargeAmount+ `Prelude.seq` Prelude.rnf recurringChargeFrequency
+ gen/Amazonka/Redshift/Types/ReservedNode.hs view
@@ -0,0 +1,270 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module : Amazonka.Redshift.Types.ReservedNode+-- Copyright : (c) 2013-2023 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.Redshift.Types.ReservedNode where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Redshift.Internal+import Amazonka.Redshift.Types.RecurringCharge+import Amazonka.Redshift.Types.ReservedNodeOfferingType++-- | Describes a reserved node. You can call the+-- DescribeReservedNodeOfferings API to obtain the available reserved node+-- offerings.+--+-- /See:/ 'newReservedNode' smart constructor.+data ReservedNode = ReservedNode'+ { -- | The currency code for the reserved cluster.+ currencyCode :: Prelude.Maybe Prelude.Text,+ -- | The duration of the node reservation in seconds.+ duration :: Prelude.Maybe Prelude.Int,+ -- | The fixed cost Amazon Redshift charges you for this reserved node.+ fixedPrice :: Prelude.Maybe Prelude.Double,+ -- | The number of reserved compute nodes.+ nodeCount :: Prelude.Maybe Prelude.Int,+ -- | The node type of the reserved node.+ nodeType :: Prelude.Maybe Prelude.Text,+ -- | The anticipated utilization of the reserved node, as defined in the+ -- reserved node offering.+ offeringType :: Prelude.Maybe Prelude.Text,+ -- | The recurring charges for the reserved node.+ recurringCharges :: Prelude.Maybe [RecurringCharge],+ -- | The unique identifier for the reservation.+ reservedNodeId :: Prelude.Maybe Prelude.Text,+ -- | The identifier for the reserved node offering.+ reservedNodeOfferingId :: Prelude.Maybe Prelude.Text,+ reservedNodeOfferingType :: Prelude.Maybe ReservedNodeOfferingType,+ -- | The time the reservation started. You purchase a reserved node offering+ -- for a duration. This is the start time of that duration.+ startTime :: Prelude.Maybe Data.ISO8601,+ -- | The state of the reserved compute node.+ --+ -- Possible Values:+ --+ -- - pending-payment-This reserved node has recently been purchased, and+ -- the sale has been approved, but payment has not yet been confirmed.+ --+ -- - active-This reserved node is owned by the caller and is available+ -- for use.+ --+ -- - payment-failed-Payment failed for the purchase attempt.+ --+ -- - retired-The reserved node is no longer available.+ --+ -- - exchanging-The owner is exchanging the reserved node for another+ -- reserved node.+ state :: Prelude.Maybe Prelude.Text,+ -- | The hourly rate Amazon Redshift charges you for this reserved node.+ usagePrice :: Prelude.Maybe Prelude.Double+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ReservedNode' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'currencyCode', 'reservedNode_currencyCode' - The currency code for the reserved cluster.+--+-- 'duration', 'reservedNode_duration' - The duration of the node reservation in seconds.+--+-- 'fixedPrice', 'reservedNode_fixedPrice' - The fixed cost Amazon Redshift charges you for this reserved node.+--+-- 'nodeCount', 'reservedNode_nodeCount' - The number of reserved compute nodes.+--+-- 'nodeType', 'reservedNode_nodeType' - The node type of the reserved node.+--+-- 'offeringType', 'reservedNode_offeringType' - The anticipated utilization of the reserved node, as defined in the+-- reserved node offering.+--+-- 'recurringCharges', 'reservedNode_recurringCharges' - The recurring charges for the reserved node.+--+-- 'reservedNodeId', 'reservedNode_reservedNodeId' - The unique identifier for the reservation.+--+-- 'reservedNodeOfferingId', 'reservedNode_reservedNodeOfferingId' - The identifier for the reserved node offering.+--+-- 'reservedNodeOfferingType', 'reservedNode_reservedNodeOfferingType' -+--+-- 'startTime', 'reservedNode_startTime' - The time the reservation started. You purchase a reserved node offering+-- for a duration. This is the start time of that duration.+--+-- 'state', 'reservedNode_state' - The state of the reserved compute node.+--+-- Possible Values:+--+-- - pending-payment-This reserved node has recently been purchased, and+-- the sale has been approved, but payment has not yet been confirmed.+--+-- - active-This reserved node is owned by the caller and is available+-- for use.+--+-- - payment-failed-Payment failed for the purchase attempt.+--+-- - retired-The reserved node is no longer available.+--+-- - exchanging-The owner is exchanging the reserved node for another+-- reserved node.+--+-- 'usagePrice', 'reservedNode_usagePrice' - The hourly rate Amazon Redshift charges you for this reserved node.+newReservedNode ::+ ReservedNode+newReservedNode =+ ReservedNode'+ { currencyCode = Prelude.Nothing,+ duration = Prelude.Nothing,+ fixedPrice = Prelude.Nothing,+ nodeCount = Prelude.Nothing,+ nodeType = Prelude.Nothing,+ offeringType = Prelude.Nothing,+ recurringCharges = Prelude.Nothing,+ reservedNodeId = Prelude.Nothing,+ reservedNodeOfferingId = Prelude.Nothing,+ reservedNodeOfferingType = Prelude.Nothing,+ startTime = Prelude.Nothing,+ state = Prelude.Nothing,+ usagePrice = Prelude.Nothing+ }++-- | The currency code for the reserved cluster.+reservedNode_currencyCode :: Lens.Lens' ReservedNode (Prelude.Maybe Prelude.Text)+reservedNode_currencyCode = Lens.lens (\ReservedNode' {currencyCode} -> currencyCode) (\s@ReservedNode' {} a -> s {currencyCode = a} :: ReservedNode)++-- | The duration of the node reservation in seconds.+reservedNode_duration :: Lens.Lens' ReservedNode (Prelude.Maybe Prelude.Int)+reservedNode_duration = Lens.lens (\ReservedNode' {duration} -> duration) (\s@ReservedNode' {} a -> s {duration = a} :: ReservedNode)++-- | The fixed cost Amazon Redshift charges you for this reserved node.+reservedNode_fixedPrice :: Lens.Lens' ReservedNode (Prelude.Maybe Prelude.Double)+reservedNode_fixedPrice = Lens.lens (\ReservedNode' {fixedPrice} -> fixedPrice) (\s@ReservedNode' {} a -> s {fixedPrice = a} :: ReservedNode)++-- | The number of reserved compute nodes.+reservedNode_nodeCount :: Lens.Lens' ReservedNode (Prelude.Maybe Prelude.Int)+reservedNode_nodeCount = Lens.lens (\ReservedNode' {nodeCount} -> nodeCount) (\s@ReservedNode' {} a -> s {nodeCount = a} :: ReservedNode)++-- | The node type of the reserved node.+reservedNode_nodeType :: Lens.Lens' ReservedNode (Prelude.Maybe Prelude.Text)+reservedNode_nodeType = Lens.lens (\ReservedNode' {nodeType} -> nodeType) (\s@ReservedNode' {} a -> s {nodeType = a} :: ReservedNode)++-- | The anticipated utilization of the reserved node, as defined in the+-- reserved node offering.+reservedNode_offeringType :: Lens.Lens' ReservedNode (Prelude.Maybe Prelude.Text)+reservedNode_offeringType = Lens.lens (\ReservedNode' {offeringType} -> offeringType) (\s@ReservedNode' {} a -> s {offeringType = a} :: ReservedNode)++-- | The recurring charges for the reserved node.+reservedNode_recurringCharges :: Lens.Lens' ReservedNode (Prelude.Maybe [RecurringCharge])+reservedNode_recurringCharges = Lens.lens (\ReservedNode' {recurringCharges} -> recurringCharges) (\s@ReservedNode' {} a -> s {recurringCharges = a} :: ReservedNode) Prelude.. Lens.mapping Lens.coerced++-- | The unique identifier for the reservation.+reservedNode_reservedNodeId :: Lens.Lens' ReservedNode (Prelude.Maybe Prelude.Text)+reservedNode_reservedNodeId = Lens.lens (\ReservedNode' {reservedNodeId} -> reservedNodeId) (\s@ReservedNode' {} a -> s {reservedNodeId = a} :: ReservedNode)++-- | The identifier for the reserved node offering.+reservedNode_reservedNodeOfferingId :: Lens.Lens' ReservedNode (Prelude.Maybe Prelude.Text)+reservedNode_reservedNodeOfferingId = Lens.lens (\ReservedNode' {reservedNodeOfferingId} -> reservedNodeOfferingId) (\s@ReservedNode' {} a -> s {reservedNodeOfferingId = a} :: ReservedNode)++reservedNode_reservedNodeOfferingType :: Lens.Lens' ReservedNode (Prelude.Maybe ReservedNodeOfferingType)+reservedNode_reservedNodeOfferingType = Lens.lens (\ReservedNode' {reservedNodeOfferingType} -> reservedNodeOfferingType) (\s@ReservedNode' {} a -> s {reservedNodeOfferingType = a} :: ReservedNode)++-- | The time the reservation started. You purchase a reserved node offering+-- for a duration. This is the start time of that duration.+reservedNode_startTime :: Lens.Lens' ReservedNode (Prelude.Maybe Prelude.UTCTime)+reservedNode_startTime = Lens.lens (\ReservedNode' {startTime} -> startTime) (\s@ReservedNode' {} a -> s {startTime = a} :: ReservedNode) Prelude.. Lens.mapping Data._Time++-- | The state of the reserved compute node.+--+-- Possible Values:+--+-- - pending-payment-This reserved node has recently been purchased, and+-- the sale has been approved, but payment has not yet been confirmed.+--+-- - active-This reserved node is owned by the caller and is available+-- for use.+--+-- - payment-failed-Payment failed for the purchase attempt.+--+-- - retired-The reserved node is no longer available.+--+-- - exchanging-The owner is exchanging the reserved node for another+-- reserved node.+reservedNode_state :: Lens.Lens' ReservedNode (Prelude.Maybe Prelude.Text)+reservedNode_state = Lens.lens (\ReservedNode' {state} -> state) (\s@ReservedNode' {} a -> s {state = a} :: ReservedNode)++-- | The hourly rate Amazon Redshift charges you for this reserved node.+reservedNode_usagePrice :: Lens.Lens' ReservedNode (Prelude.Maybe Prelude.Double)+reservedNode_usagePrice = Lens.lens (\ReservedNode' {usagePrice} -> usagePrice) (\s@ReservedNode' {} a -> s {usagePrice = a} :: ReservedNode)++instance Data.FromXML ReservedNode where+ parseXML x =+ ReservedNode'+ Prelude.<$> (x Data..@? "CurrencyCode")+ Prelude.<*> (x Data..@? "Duration")+ Prelude.<*> (x Data..@? "FixedPrice")+ Prelude.<*> (x Data..@? "NodeCount")+ Prelude.<*> (x Data..@? "NodeType")+ Prelude.<*> (x Data..@? "OfferingType")+ Prelude.<*> ( x+ Data..@? "RecurringCharges"+ Core..!@ Prelude.mempty+ Prelude.>>= Core.may (Data.parseXMLList "RecurringCharge")+ )+ Prelude.<*> (x Data..@? "ReservedNodeId")+ Prelude.<*> (x Data..@? "ReservedNodeOfferingId")+ Prelude.<*> (x Data..@? "ReservedNodeOfferingType")+ Prelude.<*> (x Data..@? "StartTime")+ Prelude.<*> (x Data..@? "State")+ Prelude.<*> (x Data..@? "UsagePrice")++instance Prelude.Hashable ReservedNode where+ hashWithSalt _salt ReservedNode' {..} =+ _salt+ `Prelude.hashWithSalt` currencyCode+ `Prelude.hashWithSalt` duration+ `Prelude.hashWithSalt` fixedPrice+ `Prelude.hashWithSalt` nodeCount+ `Prelude.hashWithSalt` nodeType+ `Prelude.hashWithSalt` offeringType+ `Prelude.hashWithSalt` recurringCharges+ `Prelude.hashWithSalt` reservedNodeId+ `Prelude.hashWithSalt` reservedNodeOfferingId+ `Prelude.hashWithSalt` reservedNodeOfferingType+ `Prelude.hashWithSalt` startTime+ `Prelude.hashWithSalt` state+ `Prelude.hashWithSalt` usagePrice++instance Prelude.NFData ReservedNode where+ rnf ReservedNode' {..} =+ Prelude.rnf currencyCode+ `Prelude.seq` Prelude.rnf duration+ `Prelude.seq` Prelude.rnf fixedPrice+ `Prelude.seq` Prelude.rnf nodeCount+ `Prelude.seq` Prelude.rnf nodeType+ `Prelude.seq` Prelude.rnf offeringType+ `Prelude.seq` Prelude.rnf recurringCharges+ `Prelude.seq` Prelude.rnf reservedNodeId+ `Prelude.seq` Prelude.rnf reservedNodeOfferingId+ `Prelude.seq` Prelude.rnf reservedNodeOfferingType+ `Prelude.seq` Prelude.rnf startTime+ `Prelude.seq` Prelude.rnf state+ `Prelude.seq` Prelude.rnf usagePrice
+ gen/Amazonka/Redshift/Types/ReservedNodeConfigurationOption.hs view
@@ -0,0 +1,105 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module : Amazonka.Redshift.Types.ReservedNodeConfigurationOption+-- Copyright : (c) 2013-2023 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.Redshift.Types.ReservedNodeConfigurationOption where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Redshift.Internal+import Amazonka.Redshift.Types.ReservedNode+import Amazonka.Redshift.Types.ReservedNodeOffering++-- | Details for a reserved-node exchange. Examples include the node type for+-- a reserved node, the price for a node, the node\'s state, and other+-- details.+--+-- /See:/ 'newReservedNodeConfigurationOption' smart constructor.+data ReservedNodeConfigurationOption = ReservedNodeConfigurationOption'+ { sourceReservedNode :: Prelude.Maybe ReservedNode,+ -- | The target reserved-node count.+ targetReservedNodeCount :: Prelude.Maybe Prelude.Int,+ targetReservedNodeOffering :: Prelude.Maybe ReservedNodeOffering+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ReservedNodeConfigurationOption' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'sourceReservedNode', 'reservedNodeConfigurationOption_sourceReservedNode' - Undocumented member.+--+-- 'targetReservedNodeCount', 'reservedNodeConfigurationOption_targetReservedNodeCount' - The target reserved-node count.+--+-- 'targetReservedNodeOffering', 'reservedNodeConfigurationOption_targetReservedNodeOffering' - Undocumented member.+newReservedNodeConfigurationOption ::+ ReservedNodeConfigurationOption+newReservedNodeConfigurationOption =+ ReservedNodeConfigurationOption'+ { sourceReservedNode =+ Prelude.Nothing,+ targetReservedNodeCount = Prelude.Nothing,+ targetReservedNodeOffering =+ Prelude.Nothing+ }++-- | Undocumented member.+reservedNodeConfigurationOption_sourceReservedNode :: Lens.Lens' ReservedNodeConfigurationOption (Prelude.Maybe ReservedNode)+reservedNodeConfigurationOption_sourceReservedNode = Lens.lens (\ReservedNodeConfigurationOption' {sourceReservedNode} -> sourceReservedNode) (\s@ReservedNodeConfigurationOption' {} a -> s {sourceReservedNode = a} :: ReservedNodeConfigurationOption)++-- | The target reserved-node count.+reservedNodeConfigurationOption_targetReservedNodeCount :: Lens.Lens' ReservedNodeConfigurationOption (Prelude.Maybe Prelude.Int)+reservedNodeConfigurationOption_targetReservedNodeCount = Lens.lens (\ReservedNodeConfigurationOption' {targetReservedNodeCount} -> targetReservedNodeCount) (\s@ReservedNodeConfigurationOption' {} a -> s {targetReservedNodeCount = a} :: ReservedNodeConfigurationOption)++-- | Undocumented member.+reservedNodeConfigurationOption_targetReservedNodeOffering :: Lens.Lens' ReservedNodeConfigurationOption (Prelude.Maybe ReservedNodeOffering)+reservedNodeConfigurationOption_targetReservedNodeOffering = Lens.lens (\ReservedNodeConfigurationOption' {targetReservedNodeOffering} -> targetReservedNodeOffering) (\s@ReservedNodeConfigurationOption' {} a -> s {targetReservedNodeOffering = a} :: ReservedNodeConfigurationOption)++instance Data.FromXML ReservedNodeConfigurationOption where+ parseXML x =+ ReservedNodeConfigurationOption'+ Prelude.<$> (x Data..@? "SourceReservedNode")+ Prelude.<*> (x Data..@? "TargetReservedNodeCount")+ Prelude.<*> (x Data..@? "TargetReservedNodeOffering")++instance+ Prelude.Hashable+ ReservedNodeConfigurationOption+ where+ hashWithSalt+ _salt+ ReservedNodeConfigurationOption' {..} =+ _salt+ `Prelude.hashWithSalt` sourceReservedNode+ `Prelude.hashWithSalt` targetReservedNodeCount+ `Prelude.hashWithSalt` targetReservedNodeOffering++instance+ Prelude.NFData+ ReservedNodeConfigurationOption+ where+ rnf ReservedNodeConfigurationOption' {..} =+ Prelude.rnf sourceReservedNode+ `Prelude.seq` Prelude.rnf targetReservedNodeCount+ `Prelude.seq` Prelude.rnf targetReservedNodeOffering
+ gen/Amazonka/Redshift/Types/ReservedNodeExchangeActionType.hs view
@@ -0,0 +1,72 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE GeneralizedNewtypeDeriving #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module : Amazonka.Redshift.Types.ReservedNodeExchangeActionType+-- Copyright : (c) 2013-2023 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.Redshift.Types.ReservedNodeExchangeActionType+ ( ReservedNodeExchangeActionType+ ( ..,+ ReservedNodeExchangeActionType_Resize_cluster,+ ReservedNodeExchangeActionType_Restore_cluster+ ),+ )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Redshift.Internal++newtype ReservedNodeExchangeActionType = ReservedNodeExchangeActionType'+ { fromReservedNodeExchangeActionType ::+ Data.Text+ }+ deriving stock+ ( Prelude.Show,+ Prelude.Read,+ Prelude.Eq,+ Prelude.Ord,+ Prelude.Generic+ )+ deriving newtype+ ( Prelude.Hashable,+ Prelude.NFData,+ Data.FromText,+ Data.ToText,+ Data.ToByteString,+ Data.ToLog,+ Data.ToHeader,+ Data.ToQuery,+ Data.FromJSON,+ Data.FromJSONKey,+ Data.ToJSON,+ Data.ToJSONKey,+ Data.FromXML,+ Data.ToXML+ )++pattern ReservedNodeExchangeActionType_Resize_cluster :: ReservedNodeExchangeActionType+pattern ReservedNodeExchangeActionType_Resize_cluster = ReservedNodeExchangeActionType' "resize-cluster"++pattern ReservedNodeExchangeActionType_Restore_cluster :: ReservedNodeExchangeActionType+pattern ReservedNodeExchangeActionType_Restore_cluster = ReservedNodeExchangeActionType' "restore-cluster"++{-# COMPLETE+ ReservedNodeExchangeActionType_Resize_cluster,+ ReservedNodeExchangeActionType_Restore_cluster,+ ReservedNodeExchangeActionType'+ #-}
+ gen/Amazonka/Redshift/Types/ReservedNodeExchangeStatus.hs view
@@ -0,0 +1,175 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module : Amazonka.Redshift.Types.ReservedNodeExchangeStatus+-- Copyright : (c) 2013-2023 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.Redshift.Types.ReservedNodeExchangeStatus where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Redshift.Internal+import Amazonka.Redshift.Types.ReservedNodeExchangeStatusType++-- | Reserved-node status details, such as the source reserved-node+-- identifier, the target reserved-node identifier, the node type, the node+-- count, and other details.+--+-- /See:/ 'newReservedNodeExchangeStatus' smart constructor.+data ReservedNodeExchangeStatus = ReservedNodeExchangeStatus'+ { -- | A date and time that indicate when the reserved-node exchange was+ -- requested.+ requestTime :: Prelude.Maybe Data.ISO8601,+ -- | The identifier of the reserved-node exchange request.+ reservedNodeExchangeRequestId :: Prelude.Maybe Prelude.Text,+ -- | The source reserved-node count in the cluster.+ sourceReservedNodeCount :: Prelude.Maybe Prelude.Int,+ -- | The identifier of the source reserved node.+ sourceReservedNodeId :: Prelude.Maybe Prelude.Text,+ -- | The source reserved-node type, for example ds2.xlarge.+ sourceReservedNodeType :: Prelude.Maybe Prelude.Text,+ -- | The status of the reserved-node exchange request. Statuses include+ -- in-progress and requested.+ status :: Prelude.Maybe ReservedNodeExchangeStatusType,+ -- | The count of target reserved nodes in the cluster.+ targetReservedNodeCount :: Prelude.Maybe Prelude.Int,+ -- | The identifier of the target reserved node offering.+ targetReservedNodeOfferingId :: Prelude.Maybe Prelude.Text,+ -- | The node type of the target reserved node, for example ra3.4xlarge.+ targetReservedNodeType :: Prelude.Maybe Prelude.Text+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ReservedNodeExchangeStatus' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'requestTime', 'reservedNodeExchangeStatus_requestTime' - A date and time that indicate when the reserved-node exchange was+-- requested.+--+-- 'reservedNodeExchangeRequestId', 'reservedNodeExchangeStatus_reservedNodeExchangeRequestId' - The identifier of the reserved-node exchange request.+--+-- 'sourceReservedNodeCount', 'reservedNodeExchangeStatus_sourceReservedNodeCount' - The source reserved-node count in the cluster.+--+-- 'sourceReservedNodeId', 'reservedNodeExchangeStatus_sourceReservedNodeId' - The identifier of the source reserved node.+--+-- 'sourceReservedNodeType', 'reservedNodeExchangeStatus_sourceReservedNodeType' - The source reserved-node type, for example ds2.xlarge.+--+-- 'status', 'reservedNodeExchangeStatus_status' - The status of the reserved-node exchange request. Statuses include+-- in-progress and requested.+--+-- 'targetReservedNodeCount', 'reservedNodeExchangeStatus_targetReservedNodeCount' - The count of target reserved nodes in the cluster.+--+-- 'targetReservedNodeOfferingId', 'reservedNodeExchangeStatus_targetReservedNodeOfferingId' - The identifier of the target reserved node offering.+--+-- 'targetReservedNodeType', 'reservedNodeExchangeStatus_targetReservedNodeType' - The node type of the target reserved node, for example ra3.4xlarge.+newReservedNodeExchangeStatus ::+ ReservedNodeExchangeStatus+newReservedNodeExchangeStatus =+ ReservedNodeExchangeStatus'+ { requestTime =+ Prelude.Nothing,+ reservedNodeExchangeRequestId = Prelude.Nothing,+ sourceReservedNodeCount = Prelude.Nothing,+ sourceReservedNodeId = Prelude.Nothing,+ sourceReservedNodeType = Prelude.Nothing,+ status = Prelude.Nothing,+ targetReservedNodeCount = Prelude.Nothing,+ targetReservedNodeOfferingId = Prelude.Nothing,+ targetReservedNodeType = Prelude.Nothing+ }++-- | A date and time that indicate when the reserved-node exchange was+-- requested.+reservedNodeExchangeStatus_requestTime :: Lens.Lens' ReservedNodeExchangeStatus (Prelude.Maybe Prelude.UTCTime)+reservedNodeExchangeStatus_requestTime = Lens.lens (\ReservedNodeExchangeStatus' {requestTime} -> requestTime) (\s@ReservedNodeExchangeStatus' {} a -> s {requestTime = a} :: ReservedNodeExchangeStatus) Prelude.. Lens.mapping Data._Time++-- | The identifier of the reserved-node exchange request.+reservedNodeExchangeStatus_reservedNodeExchangeRequestId :: Lens.Lens' ReservedNodeExchangeStatus (Prelude.Maybe Prelude.Text)+reservedNodeExchangeStatus_reservedNodeExchangeRequestId = Lens.lens (\ReservedNodeExchangeStatus' {reservedNodeExchangeRequestId} -> reservedNodeExchangeRequestId) (\s@ReservedNodeExchangeStatus' {} a -> s {reservedNodeExchangeRequestId = a} :: ReservedNodeExchangeStatus)++-- | The source reserved-node count in the cluster.+reservedNodeExchangeStatus_sourceReservedNodeCount :: Lens.Lens' ReservedNodeExchangeStatus (Prelude.Maybe Prelude.Int)+reservedNodeExchangeStatus_sourceReservedNodeCount = Lens.lens (\ReservedNodeExchangeStatus' {sourceReservedNodeCount} -> sourceReservedNodeCount) (\s@ReservedNodeExchangeStatus' {} a -> s {sourceReservedNodeCount = a} :: ReservedNodeExchangeStatus)++-- | The identifier of the source reserved node.+reservedNodeExchangeStatus_sourceReservedNodeId :: Lens.Lens' ReservedNodeExchangeStatus (Prelude.Maybe Prelude.Text)+reservedNodeExchangeStatus_sourceReservedNodeId = Lens.lens (\ReservedNodeExchangeStatus' {sourceReservedNodeId} -> sourceReservedNodeId) (\s@ReservedNodeExchangeStatus' {} a -> s {sourceReservedNodeId = a} :: ReservedNodeExchangeStatus)++-- | The source reserved-node type, for example ds2.xlarge.+reservedNodeExchangeStatus_sourceReservedNodeType :: Lens.Lens' ReservedNodeExchangeStatus (Prelude.Maybe Prelude.Text)+reservedNodeExchangeStatus_sourceReservedNodeType = Lens.lens (\ReservedNodeExchangeStatus' {sourceReservedNodeType} -> sourceReservedNodeType) (\s@ReservedNodeExchangeStatus' {} a -> s {sourceReservedNodeType = a} :: ReservedNodeExchangeStatus)++-- | The status of the reserved-node exchange request. Statuses include+-- in-progress and requested.+reservedNodeExchangeStatus_status :: Lens.Lens' ReservedNodeExchangeStatus (Prelude.Maybe ReservedNodeExchangeStatusType)+reservedNodeExchangeStatus_status = Lens.lens (\ReservedNodeExchangeStatus' {status} -> status) (\s@ReservedNodeExchangeStatus' {} a -> s {status = a} :: ReservedNodeExchangeStatus)++-- | The count of target reserved nodes in the cluster.+reservedNodeExchangeStatus_targetReservedNodeCount :: Lens.Lens' ReservedNodeExchangeStatus (Prelude.Maybe Prelude.Int)+reservedNodeExchangeStatus_targetReservedNodeCount = Lens.lens (\ReservedNodeExchangeStatus' {targetReservedNodeCount} -> targetReservedNodeCount) (\s@ReservedNodeExchangeStatus' {} a -> s {targetReservedNodeCount = a} :: ReservedNodeExchangeStatus)++-- | The identifier of the target reserved node offering.+reservedNodeExchangeStatus_targetReservedNodeOfferingId :: Lens.Lens' ReservedNodeExchangeStatus (Prelude.Maybe Prelude.Text)+reservedNodeExchangeStatus_targetReservedNodeOfferingId = Lens.lens (\ReservedNodeExchangeStatus' {targetReservedNodeOfferingId} -> targetReservedNodeOfferingId) (\s@ReservedNodeExchangeStatus' {} a -> s {targetReservedNodeOfferingId = a} :: ReservedNodeExchangeStatus)++-- | The node type of the target reserved node, for example ra3.4xlarge.+reservedNodeExchangeStatus_targetReservedNodeType :: Lens.Lens' ReservedNodeExchangeStatus (Prelude.Maybe Prelude.Text)+reservedNodeExchangeStatus_targetReservedNodeType = Lens.lens (\ReservedNodeExchangeStatus' {targetReservedNodeType} -> targetReservedNodeType) (\s@ReservedNodeExchangeStatus' {} a -> s {targetReservedNodeType = a} :: ReservedNodeExchangeStatus)++instance Data.FromXML ReservedNodeExchangeStatus where+ parseXML x =+ ReservedNodeExchangeStatus'+ Prelude.<$> (x Data..@? "RequestTime")+ Prelude.<*> (x Data..@? "ReservedNodeExchangeRequestId")+ Prelude.<*> (x Data..@? "SourceReservedNodeCount")+ Prelude.<*> (x Data..@? "SourceReservedNodeId")+ Prelude.<*> (x Data..@? "SourceReservedNodeType")+ Prelude.<*> (x Data..@? "Status")+ Prelude.<*> (x Data..@? "TargetReservedNodeCount")+ Prelude.<*> (x Data..@? "TargetReservedNodeOfferingId")+ Prelude.<*> (x Data..@? "TargetReservedNodeType")++instance Prelude.Hashable ReservedNodeExchangeStatus where+ hashWithSalt _salt ReservedNodeExchangeStatus' {..} =+ _salt+ `Prelude.hashWithSalt` requestTime+ `Prelude.hashWithSalt` reservedNodeExchangeRequestId+ `Prelude.hashWithSalt` sourceReservedNodeCount+ `Prelude.hashWithSalt` sourceReservedNodeId+ `Prelude.hashWithSalt` sourceReservedNodeType+ `Prelude.hashWithSalt` status+ `Prelude.hashWithSalt` targetReservedNodeCount+ `Prelude.hashWithSalt` targetReservedNodeOfferingId+ `Prelude.hashWithSalt` targetReservedNodeType++instance Prelude.NFData ReservedNodeExchangeStatus where+ rnf ReservedNodeExchangeStatus' {..} =+ Prelude.rnf requestTime+ `Prelude.seq` Prelude.rnf reservedNodeExchangeRequestId+ `Prelude.seq` Prelude.rnf sourceReservedNodeCount+ `Prelude.seq` Prelude.rnf sourceReservedNodeId+ `Prelude.seq` Prelude.rnf sourceReservedNodeType+ `Prelude.seq` Prelude.rnf status+ `Prelude.seq` Prelude.rnf targetReservedNodeCount+ `Prelude.seq` Prelude.rnf targetReservedNodeOfferingId+ `Prelude.seq` Prelude.rnf targetReservedNodeType
+ gen/Amazonka/Redshift/Types/ReservedNodeExchangeStatusType.hs view
@@ -0,0 +1,92 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE GeneralizedNewtypeDeriving #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module : Amazonka.Redshift.Types.ReservedNodeExchangeStatusType+-- Copyright : (c) 2013-2023 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.Redshift.Types.ReservedNodeExchangeStatusType+ ( ReservedNodeExchangeStatusType+ ( ..,+ ReservedNodeExchangeStatusType_FAILED,+ ReservedNodeExchangeStatusType_IN_PROGRESS,+ ReservedNodeExchangeStatusType_PENDING,+ ReservedNodeExchangeStatusType_REQUESTED,+ ReservedNodeExchangeStatusType_RETRYING,+ ReservedNodeExchangeStatusType_SUCCEEDED+ ),+ )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Redshift.Internal++newtype ReservedNodeExchangeStatusType = ReservedNodeExchangeStatusType'+ { fromReservedNodeExchangeStatusType ::+ Data.Text+ }+ deriving stock+ ( Prelude.Show,+ Prelude.Read,+ Prelude.Eq,+ Prelude.Ord,+ Prelude.Generic+ )+ deriving newtype+ ( Prelude.Hashable,+ Prelude.NFData,+ Data.FromText,+ Data.ToText,+ Data.ToByteString,+ Data.ToLog,+ Data.ToHeader,+ Data.ToQuery,+ Data.FromJSON,+ Data.FromJSONKey,+ Data.ToJSON,+ Data.ToJSONKey,+ Data.FromXML,+ Data.ToXML+ )++pattern ReservedNodeExchangeStatusType_FAILED :: ReservedNodeExchangeStatusType+pattern ReservedNodeExchangeStatusType_FAILED = ReservedNodeExchangeStatusType' "FAILED"++pattern ReservedNodeExchangeStatusType_IN_PROGRESS :: ReservedNodeExchangeStatusType+pattern ReservedNodeExchangeStatusType_IN_PROGRESS = ReservedNodeExchangeStatusType' "IN_PROGRESS"++pattern ReservedNodeExchangeStatusType_PENDING :: ReservedNodeExchangeStatusType+pattern ReservedNodeExchangeStatusType_PENDING = ReservedNodeExchangeStatusType' "PENDING"++pattern ReservedNodeExchangeStatusType_REQUESTED :: ReservedNodeExchangeStatusType+pattern ReservedNodeExchangeStatusType_REQUESTED = ReservedNodeExchangeStatusType' "REQUESTED"++pattern ReservedNodeExchangeStatusType_RETRYING :: ReservedNodeExchangeStatusType+pattern ReservedNodeExchangeStatusType_RETRYING = ReservedNodeExchangeStatusType' "RETRYING"++pattern ReservedNodeExchangeStatusType_SUCCEEDED :: ReservedNodeExchangeStatusType+pattern ReservedNodeExchangeStatusType_SUCCEEDED = ReservedNodeExchangeStatusType' "SUCCEEDED"++{-# COMPLETE+ ReservedNodeExchangeStatusType_FAILED,+ ReservedNodeExchangeStatusType_IN_PROGRESS,+ ReservedNodeExchangeStatusType_PENDING,+ ReservedNodeExchangeStatusType_REQUESTED,+ ReservedNodeExchangeStatusType_RETRYING,+ ReservedNodeExchangeStatusType_SUCCEEDED,+ ReservedNodeExchangeStatusType'+ #-}
+ gen/Amazonka/Redshift/Types/ReservedNodeOffering.hs view
@@ -0,0 +1,185 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module : Amazonka.Redshift.Types.ReservedNodeOffering+-- Copyright : (c) 2013-2023 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.Redshift.Types.ReservedNodeOffering where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Redshift.Internal+import Amazonka.Redshift.Types.RecurringCharge+import Amazonka.Redshift.Types.ReservedNodeOfferingType++-- | Describes a reserved node offering.+--+-- /See:/ 'newReservedNodeOffering' smart constructor.+data ReservedNodeOffering = ReservedNodeOffering'+ { -- | The currency code for the compute nodes offering.+ currencyCode :: Prelude.Maybe Prelude.Text,+ -- | The duration, in seconds, for which the offering will reserve the node.+ duration :: Prelude.Maybe Prelude.Int,+ -- | The upfront fixed charge you will pay to purchase the specific reserved+ -- node offering.+ fixedPrice :: Prelude.Maybe Prelude.Double,+ -- | The node type offered by the reserved node offering.+ nodeType :: Prelude.Maybe Prelude.Text,+ -- | The anticipated utilization of the reserved node, as defined in the+ -- reserved node offering.+ offeringType :: Prelude.Maybe Prelude.Text,+ -- | The charge to your account regardless of whether you are creating any+ -- clusters using the node offering. Recurring charges are only in effect+ -- for heavy-utilization reserved nodes.+ recurringCharges :: Prelude.Maybe [RecurringCharge],+ -- | The offering identifier.+ reservedNodeOfferingId :: Prelude.Maybe Prelude.Text,+ reservedNodeOfferingType :: Prelude.Maybe ReservedNodeOfferingType,+ -- | The rate you are charged for each hour the cluster that is using the+ -- offering is running.+ usagePrice :: Prelude.Maybe Prelude.Double+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ReservedNodeOffering' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'currencyCode', 'reservedNodeOffering_currencyCode' - The currency code for the compute nodes offering.+--+-- 'duration', 'reservedNodeOffering_duration' - The duration, in seconds, for which the offering will reserve the node.+--+-- 'fixedPrice', 'reservedNodeOffering_fixedPrice' - The upfront fixed charge you will pay to purchase the specific reserved+-- node offering.+--+-- 'nodeType', 'reservedNodeOffering_nodeType' - The node type offered by the reserved node offering.+--+-- 'offeringType', 'reservedNodeOffering_offeringType' - The anticipated utilization of the reserved node, as defined in the+-- reserved node offering.+--+-- 'recurringCharges', 'reservedNodeOffering_recurringCharges' - The charge to your account regardless of whether you are creating any+-- clusters using the node offering. Recurring charges are only in effect+-- for heavy-utilization reserved nodes.+--+-- 'reservedNodeOfferingId', 'reservedNodeOffering_reservedNodeOfferingId' - The offering identifier.+--+-- 'reservedNodeOfferingType', 'reservedNodeOffering_reservedNodeOfferingType' -+--+-- 'usagePrice', 'reservedNodeOffering_usagePrice' - The rate you are charged for each hour the cluster that is using the+-- offering is running.+newReservedNodeOffering ::+ ReservedNodeOffering+newReservedNodeOffering =+ ReservedNodeOffering'+ { currencyCode =+ Prelude.Nothing,+ duration = Prelude.Nothing,+ fixedPrice = Prelude.Nothing,+ nodeType = Prelude.Nothing,+ offeringType = Prelude.Nothing,+ recurringCharges = Prelude.Nothing,+ reservedNodeOfferingId = Prelude.Nothing,+ reservedNodeOfferingType = Prelude.Nothing,+ usagePrice = Prelude.Nothing+ }++-- | The currency code for the compute nodes offering.+reservedNodeOffering_currencyCode :: Lens.Lens' ReservedNodeOffering (Prelude.Maybe Prelude.Text)+reservedNodeOffering_currencyCode = Lens.lens (\ReservedNodeOffering' {currencyCode} -> currencyCode) (\s@ReservedNodeOffering' {} a -> s {currencyCode = a} :: ReservedNodeOffering)++-- | The duration, in seconds, for which the offering will reserve the node.+reservedNodeOffering_duration :: Lens.Lens' ReservedNodeOffering (Prelude.Maybe Prelude.Int)+reservedNodeOffering_duration = Lens.lens (\ReservedNodeOffering' {duration} -> duration) (\s@ReservedNodeOffering' {} a -> s {duration = a} :: ReservedNodeOffering)++-- | The upfront fixed charge you will pay to purchase the specific reserved+-- node offering.+reservedNodeOffering_fixedPrice :: Lens.Lens' ReservedNodeOffering (Prelude.Maybe Prelude.Double)+reservedNodeOffering_fixedPrice = Lens.lens (\ReservedNodeOffering' {fixedPrice} -> fixedPrice) (\s@ReservedNodeOffering' {} a -> s {fixedPrice = a} :: ReservedNodeOffering)++-- | The node type offered by the reserved node offering.+reservedNodeOffering_nodeType :: Lens.Lens' ReservedNodeOffering (Prelude.Maybe Prelude.Text)+reservedNodeOffering_nodeType = Lens.lens (\ReservedNodeOffering' {nodeType} -> nodeType) (\s@ReservedNodeOffering' {} a -> s {nodeType = a} :: ReservedNodeOffering)++-- | The anticipated utilization of the reserved node, as defined in the+-- reserved node offering.+reservedNodeOffering_offeringType :: Lens.Lens' ReservedNodeOffering (Prelude.Maybe Prelude.Text)+reservedNodeOffering_offeringType = Lens.lens (\ReservedNodeOffering' {offeringType} -> offeringType) (\s@ReservedNodeOffering' {} a -> s {offeringType = a} :: ReservedNodeOffering)++-- | The charge to your account regardless of whether you are creating any+-- clusters using the node offering. Recurring charges are only in effect+-- for heavy-utilization reserved nodes.+reservedNodeOffering_recurringCharges :: Lens.Lens' ReservedNodeOffering (Prelude.Maybe [RecurringCharge])+reservedNodeOffering_recurringCharges = Lens.lens (\ReservedNodeOffering' {recurringCharges} -> recurringCharges) (\s@ReservedNodeOffering' {} a -> s {recurringCharges = a} :: ReservedNodeOffering) Prelude.. Lens.mapping Lens.coerced++-- | The offering identifier.+reservedNodeOffering_reservedNodeOfferingId :: Lens.Lens' ReservedNodeOffering (Prelude.Maybe Prelude.Text)+reservedNodeOffering_reservedNodeOfferingId = Lens.lens (\ReservedNodeOffering' {reservedNodeOfferingId} -> reservedNodeOfferingId) (\s@ReservedNodeOffering' {} a -> s {reservedNodeOfferingId = a} :: ReservedNodeOffering)++reservedNodeOffering_reservedNodeOfferingType :: Lens.Lens' ReservedNodeOffering (Prelude.Maybe ReservedNodeOfferingType)+reservedNodeOffering_reservedNodeOfferingType = Lens.lens (\ReservedNodeOffering' {reservedNodeOfferingType} -> reservedNodeOfferingType) (\s@ReservedNodeOffering' {} a -> s {reservedNodeOfferingType = a} :: ReservedNodeOffering)++-- | The rate you are charged for each hour the cluster that is using the+-- offering is running.+reservedNodeOffering_usagePrice :: Lens.Lens' ReservedNodeOffering (Prelude.Maybe Prelude.Double)+reservedNodeOffering_usagePrice = Lens.lens (\ReservedNodeOffering' {usagePrice} -> usagePrice) (\s@ReservedNodeOffering' {} a -> s {usagePrice = a} :: ReservedNodeOffering)++instance Data.FromXML ReservedNodeOffering where+ parseXML x =+ ReservedNodeOffering'+ Prelude.<$> (x Data..@? "CurrencyCode")+ Prelude.<*> (x Data..@? "Duration")+ Prelude.<*> (x Data..@? "FixedPrice")+ Prelude.<*> (x Data..@? "NodeType")+ Prelude.<*> (x Data..@? "OfferingType")+ Prelude.<*> ( x+ Data..@? "RecurringCharges"+ Core..!@ Prelude.mempty+ Prelude.>>= Core.may (Data.parseXMLList "RecurringCharge")+ )+ Prelude.<*> (x Data..@? "ReservedNodeOfferingId")+ Prelude.<*> (x Data..@? "ReservedNodeOfferingType")+ Prelude.<*> (x Data..@? "UsagePrice")++instance Prelude.Hashable ReservedNodeOffering where+ hashWithSalt _salt ReservedNodeOffering' {..} =+ _salt+ `Prelude.hashWithSalt` currencyCode+ `Prelude.hashWithSalt` duration+ `Prelude.hashWithSalt` fixedPrice+ `Prelude.hashWithSalt` nodeType+ `Prelude.hashWithSalt` offeringType+ `Prelude.hashWithSalt` recurringCharges+ `Prelude.hashWithSalt` reservedNodeOfferingId+ `Prelude.hashWithSalt` reservedNodeOfferingType+ `Prelude.hashWithSalt` usagePrice++instance Prelude.NFData ReservedNodeOffering where+ rnf ReservedNodeOffering' {..} =+ Prelude.rnf currencyCode+ `Prelude.seq` Prelude.rnf duration+ `Prelude.seq` Prelude.rnf fixedPrice+ `Prelude.seq` Prelude.rnf nodeType+ `Prelude.seq` Prelude.rnf offeringType+ `Prelude.seq` Prelude.rnf recurringCharges+ `Prelude.seq` Prelude.rnf reservedNodeOfferingId+ `Prelude.seq` Prelude.rnf reservedNodeOfferingType+ `Prelude.seq` Prelude.rnf usagePrice
+ gen/Amazonka/Redshift/Types/ReservedNodeOfferingType.hs view
@@ -0,0 +1,72 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE GeneralizedNewtypeDeriving #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module : Amazonka.Redshift.Types.ReservedNodeOfferingType+-- Copyright : (c) 2013-2023 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.Redshift.Types.ReservedNodeOfferingType+ ( ReservedNodeOfferingType+ ( ..,+ ReservedNodeOfferingType_Regular,+ ReservedNodeOfferingType_Upgradable+ ),+ )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Redshift.Internal++newtype ReservedNodeOfferingType = ReservedNodeOfferingType'+ { fromReservedNodeOfferingType ::+ Data.Text+ }+ deriving stock+ ( Prelude.Show,+ Prelude.Read,+ Prelude.Eq,+ Prelude.Ord,+ Prelude.Generic+ )+ deriving newtype+ ( Prelude.Hashable,+ Prelude.NFData,+ Data.FromText,+ Data.ToText,+ Data.ToByteString,+ Data.ToLog,+ Data.ToHeader,+ Data.ToQuery,+ Data.FromJSON,+ Data.FromJSONKey,+ Data.ToJSON,+ Data.ToJSONKey,+ Data.FromXML,+ Data.ToXML+ )++pattern ReservedNodeOfferingType_Regular :: ReservedNodeOfferingType+pattern ReservedNodeOfferingType_Regular = ReservedNodeOfferingType' "Regular"++pattern ReservedNodeOfferingType_Upgradable :: ReservedNodeOfferingType+pattern ReservedNodeOfferingType_Upgradable = ReservedNodeOfferingType' "Upgradable"++{-# COMPLETE+ ReservedNodeOfferingType_Regular,+ ReservedNodeOfferingType_Upgradable,+ ReservedNodeOfferingType'+ #-}
+ gen/Amazonka/Redshift/Types/ResizeClusterMessage.hs view
@@ -0,0 +1,169 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module : Amazonka.Redshift.Types.ResizeClusterMessage+-- Copyright : (c) 2013-2023 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.Redshift.Types.ResizeClusterMessage where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Redshift.Internal++-- | Describes a resize cluster operation. For example, a scheduled action to+-- run the @ResizeCluster@ API operation.+--+-- /See:/ 'newResizeClusterMessage' smart constructor.+data ResizeClusterMessage = ResizeClusterMessage'+ { -- | A boolean value indicating whether the resize operation is using the+ -- classic resize process. If you don\'t provide this parameter or set the+ -- value to @false@, the resize type is elastic.+ classic :: Prelude.Maybe Prelude.Bool,+ -- | The new cluster type for the specified cluster.+ clusterType :: Prelude.Maybe Prelude.Text,+ -- | The new node type for the nodes you are adding. If not specified, the+ -- cluster\'s current node type is used.+ nodeType :: Prelude.Maybe Prelude.Text,+ -- | The new number of nodes for the cluster. If not specified, the+ -- cluster\'s current number of nodes is used.+ numberOfNodes :: Prelude.Maybe Prelude.Int,+ -- | The identifier of the reserved node.+ reservedNodeId :: Prelude.Maybe Prelude.Text,+ -- | The identifier of the target reserved node offering.+ targetReservedNodeOfferingId :: Prelude.Maybe Prelude.Text,+ -- | The unique identifier for the cluster to resize.+ clusterIdentifier :: Prelude.Text+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ResizeClusterMessage' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'classic', 'resizeClusterMessage_classic' - A boolean value indicating whether the resize operation is using the+-- classic resize process. If you don\'t provide this parameter or set the+-- value to @false@, the resize type is elastic.+--+-- 'clusterType', 'resizeClusterMessage_clusterType' - The new cluster type for the specified cluster.+--+-- 'nodeType', 'resizeClusterMessage_nodeType' - The new node type for the nodes you are adding. If not specified, the+-- cluster\'s current node type is used.+--+-- 'numberOfNodes', 'resizeClusterMessage_numberOfNodes' - The new number of nodes for the cluster. If not specified, the+-- cluster\'s current number of nodes is used.+--+-- 'reservedNodeId', 'resizeClusterMessage_reservedNodeId' - The identifier of the reserved node.+--+-- 'targetReservedNodeOfferingId', 'resizeClusterMessage_targetReservedNodeOfferingId' - The identifier of the target reserved node offering.+--+-- 'clusterIdentifier', 'resizeClusterMessage_clusterIdentifier' - The unique identifier for the cluster to resize.+newResizeClusterMessage ::+ -- | 'clusterIdentifier'+ Prelude.Text ->+ ResizeClusterMessage+newResizeClusterMessage pClusterIdentifier_ =+ ResizeClusterMessage'+ { classic = Prelude.Nothing,+ clusterType = Prelude.Nothing,+ nodeType = Prelude.Nothing,+ numberOfNodes = Prelude.Nothing,+ reservedNodeId = Prelude.Nothing,+ targetReservedNodeOfferingId = Prelude.Nothing,+ clusterIdentifier = pClusterIdentifier_+ }++-- | A boolean value indicating whether the resize operation is using the+-- classic resize process. If you don\'t provide this parameter or set the+-- value to @false@, the resize type is elastic.+resizeClusterMessage_classic :: Lens.Lens' ResizeClusterMessage (Prelude.Maybe Prelude.Bool)+resizeClusterMessage_classic = Lens.lens (\ResizeClusterMessage' {classic} -> classic) (\s@ResizeClusterMessage' {} a -> s {classic = a} :: ResizeClusterMessage)++-- | The new cluster type for the specified cluster.+resizeClusterMessage_clusterType :: Lens.Lens' ResizeClusterMessage (Prelude.Maybe Prelude.Text)+resizeClusterMessage_clusterType = Lens.lens (\ResizeClusterMessage' {clusterType} -> clusterType) (\s@ResizeClusterMessage' {} a -> s {clusterType = a} :: ResizeClusterMessage)++-- | The new node type for the nodes you are adding. If not specified, the+-- cluster\'s current node type is used.+resizeClusterMessage_nodeType :: Lens.Lens' ResizeClusterMessage (Prelude.Maybe Prelude.Text)+resizeClusterMessage_nodeType = Lens.lens (\ResizeClusterMessage' {nodeType} -> nodeType) (\s@ResizeClusterMessage' {} a -> s {nodeType = a} :: ResizeClusterMessage)++-- | The new number of nodes for the cluster. If not specified, the+-- cluster\'s current number of nodes is used.+resizeClusterMessage_numberOfNodes :: Lens.Lens' ResizeClusterMessage (Prelude.Maybe Prelude.Int)+resizeClusterMessage_numberOfNodes = Lens.lens (\ResizeClusterMessage' {numberOfNodes} -> numberOfNodes) (\s@ResizeClusterMessage' {} a -> s {numberOfNodes = a} :: ResizeClusterMessage)++-- | The identifier of the reserved node.+resizeClusterMessage_reservedNodeId :: Lens.Lens' ResizeClusterMessage (Prelude.Maybe Prelude.Text)+resizeClusterMessage_reservedNodeId = Lens.lens (\ResizeClusterMessage' {reservedNodeId} -> reservedNodeId) (\s@ResizeClusterMessage' {} a -> s {reservedNodeId = a} :: ResizeClusterMessage)++-- | The identifier of the target reserved node offering.+resizeClusterMessage_targetReservedNodeOfferingId :: Lens.Lens' ResizeClusterMessage (Prelude.Maybe Prelude.Text)+resizeClusterMessage_targetReservedNodeOfferingId = Lens.lens (\ResizeClusterMessage' {targetReservedNodeOfferingId} -> targetReservedNodeOfferingId) (\s@ResizeClusterMessage' {} a -> s {targetReservedNodeOfferingId = a} :: ResizeClusterMessage)++-- | The unique identifier for the cluster to resize.+resizeClusterMessage_clusterIdentifier :: Lens.Lens' ResizeClusterMessage Prelude.Text+resizeClusterMessage_clusterIdentifier = Lens.lens (\ResizeClusterMessage' {clusterIdentifier} -> clusterIdentifier) (\s@ResizeClusterMessage' {} a -> s {clusterIdentifier = a} :: ResizeClusterMessage)++instance Data.FromXML ResizeClusterMessage where+ parseXML x =+ ResizeClusterMessage'+ Prelude.<$> (x Data..@? "Classic")+ Prelude.<*> (x Data..@? "ClusterType")+ Prelude.<*> (x Data..@? "NodeType")+ Prelude.<*> (x Data..@? "NumberOfNodes")+ Prelude.<*> (x Data..@? "ReservedNodeId")+ Prelude.<*> (x Data..@? "TargetReservedNodeOfferingId")+ Prelude.<*> (x Data..@ "ClusterIdentifier")++instance Prelude.Hashable ResizeClusterMessage where+ hashWithSalt _salt ResizeClusterMessage' {..} =+ _salt+ `Prelude.hashWithSalt` classic+ `Prelude.hashWithSalt` clusterType+ `Prelude.hashWithSalt` nodeType+ `Prelude.hashWithSalt` numberOfNodes+ `Prelude.hashWithSalt` reservedNodeId+ `Prelude.hashWithSalt` targetReservedNodeOfferingId+ `Prelude.hashWithSalt` clusterIdentifier++instance Prelude.NFData ResizeClusterMessage where+ rnf ResizeClusterMessage' {..} =+ Prelude.rnf classic+ `Prelude.seq` Prelude.rnf clusterType+ `Prelude.seq` Prelude.rnf nodeType+ `Prelude.seq` Prelude.rnf numberOfNodes+ `Prelude.seq` Prelude.rnf reservedNodeId+ `Prelude.seq` Prelude.rnf targetReservedNodeOfferingId+ `Prelude.seq` Prelude.rnf clusterIdentifier++instance Data.ToQuery ResizeClusterMessage where+ toQuery ResizeClusterMessage' {..} =+ Prelude.mconcat+ [ "Classic" Data.=: classic,+ "ClusterType" Data.=: clusterType,+ "NodeType" Data.=: nodeType,+ "NumberOfNodes" Data.=: numberOfNodes,+ "ReservedNodeId" Data.=: reservedNodeId,+ "TargetReservedNodeOfferingId"+ Data.=: targetReservedNodeOfferingId,+ "ClusterIdentifier" Data.=: clusterIdentifier+ ]
+ gen/Amazonka/Redshift/Types/ResizeInfo.hs view
@@ -0,0 +1,81 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module : Amazonka.Redshift.Types.ResizeInfo+-- Copyright : (c) 2013-2023 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.Redshift.Types.ResizeInfo where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Redshift.Internal++-- | Describes a resize operation.+--+-- /See:/ 'newResizeInfo' smart constructor.+data ResizeInfo = ResizeInfo'+ { -- | A boolean value indicating if the resize operation can be cancelled.+ allowCancelResize :: Prelude.Maybe Prelude.Bool,+ -- | Returns the value @ClassicResize@.+ resizeType :: Prelude.Maybe Prelude.Text+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ResizeInfo' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'allowCancelResize', 'resizeInfo_allowCancelResize' - A boolean value indicating if the resize operation can be cancelled.+--+-- 'resizeType', 'resizeInfo_resizeType' - Returns the value @ClassicResize@.+newResizeInfo ::+ ResizeInfo+newResizeInfo =+ ResizeInfo'+ { allowCancelResize = Prelude.Nothing,+ resizeType = Prelude.Nothing+ }++-- | A boolean value indicating if the resize operation can be cancelled.+resizeInfo_allowCancelResize :: Lens.Lens' ResizeInfo (Prelude.Maybe Prelude.Bool)+resizeInfo_allowCancelResize = Lens.lens (\ResizeInfo' {allowCancelResize} -> allowCancelResize) (\s@ResizeInfo' {} a -> s {allowCancelResize = a} :: ResizeInfo)++-- | Returns the value @ClassicResize@.+resizeInfo_resizeType :: Lens.Lens' ResizeInfo (Prelude.Maybe Prelude.Text)+resizeInfo_resizeType = Lens.lens (\ResizeInfo' {resizeType} -> resizeType) (\s@ResizeInfo' {} a -> s {resizeType = a} :: ResizeInfo)++instance Data.FromXML ResizeInfo where+ parseXML x =+ ResizeInfo'+ Prelude.<$> (x Data..@? "AllowCancelResize")+ Prelude.<*> (x Data..@? "ResizeType")++instance Prelude.Hashable ResizeInfo where+ hashWithSalt _salt ResizeInfo' {..} =+ _salt+ `Prelude.hashWithSalt` allowCancelResize+ `Prelude.hashWithSalt` resizeType++instance Prelude.NFData ResizeInfo where+ rnf ResizeInfo' {..} =+ Prelude.rnf allowCancelResize+ `Prelude.seq` Prelude.rnf resizeType
+ gen/Amazonka/Redshift/Types/ResizeProgressMessage.hs view
@@ -0,0 +1,352 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module : Amazonka.Redshift.Types.ResizeProgressMessage+-- Copyright : (c) 2013-2023 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.Redshift.Types.ResizeProgressMessage where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Redshift.Internal++-- | Describes the result of a cluster resize operation.+--+-- /See:/ 'newResizeProgressMessage' smart constructor.+data ResizeProgressMessage = ResizeProgressMessage'+ { -- | The average rate of the resize operation over the last few minutes,+ -- measured in megabytes per second. After the resize operation completes,+ -- this value shows the average rate of the entire resize operation.+ avgResizeRateInMegaBytesPerSecond :: Prelude.Maybe Prelude.Double,+ -- | The percent of data transferred from source cluster to target cluster.+ dataTransferProgressPercent :: Prelude.Maybe Prelude.Double,+ -- | The amount of seconds that have elapsed since the resize operation+ -- began. After the resize operation completes, this value shows the total+ -- actual time, in seconds, for the resize operation.+ elapsedTimeInSeconds :: Prelude.Maybe Prelude.Integer,+ -- | The estimated time remaining, in seconds, until the resize operation is+ -- complete. This value is calculated based on the average resize rate and+ -- the estimated amount of data remaining to be processed. Once the resize+ -- operation is complete, this value will be 0.+ estimatedTimeToCompletionInSeconds :: Prelude.Maybe Prelude.Integer,+ -- | The names of tables that have been completely imported .+ --+ -- Valid Values: List of table names.+ importTablesCompleted :: Prelude.Maybe [Prelude.Text],+ -- | The names of tables that are being currently imported.+ --+ -- Valid Values: List of table names.+ importTablesInProgress :: Prelude.Maybe [Prelude.Text],+ -- | The names of tables that have not been yet imported.+ --+ -- Valid Values: List of table names+ importTablesNotStarted :: Prelude.Maybe [Prelude.Text],+ -- | An optional string to provide additional details about the resize+ -- action.+ message :: Prelude.Maybe Prelude.Text,+ -- | While the resize operation is in progress, this value shows the current+ -- amount of data, in megabytes, that has been processed so far. When the+ -- resize operation is complete, this value shows the total amount of data,+ -- in megabytes, on the cluster, which may be more or less than+ -- TotalResizeDataInMegaBytes (the estimated total amount of data before+ -- resize).+ progressInMegaBytes :: Prelude.Maybe Prelude.Integer,+ -- | An enum with possible values of @ClassicResize@ and @ElasticResize@.+ -- These values describe the type of resize operation being performed.+ resizeType :: Prelude.Maybe Prelude.Text,+ -- | The status of the resize operation.+ --+ -- Valid Values: @NONE@ | @IN_PROGRESS@ | @FAILED@ | @SUCCEEDED@ |+ -- @CANCELLING@+ status :: Prelude.Maybe Prelude.Text,+ -- | The cluster type after the resize operation is complete.+ --+ -- Valid Values: @multi-node@ | @single-node@+ targetClusterType :: Prelude.Maybe Prelude.Text,+ -- | The type of encryption for the cluster after the resize is complete.+ --+ -- Possible values are @KMS@ and @None@.+ targetEncryptionType :: Prelude.Maybe Prelude.Text,+ -- | The node type that the cluster will have after the resize operation is+ -- complete.+ targetNodeType :: Prelude.Maybe Prelude.Text,+ -- | The number of nodes that the cluster will have after the resize+ -- operation is complete.+ targetNumberOfNodes :: Prelude.Maybe Prelude.Int,+ -- | The estimated total amount of data, in megabytes, on the cluster before+ -- the resize operation began.+ totalResizeDataInMegaBytes :: Prelude.Maybe Prelude.Integer+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ResizeProgressMessage' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'avgResizeRateInMegaBytesPerSecond', 'resizeProgressMessage_avgResizeRateInMegaBytesPerSecond' - The average rate of the resize operation over the last few minutes,+-- measured in megabytes per second. After the resize operation completes,+-- this value shows the average rate of the entire resize operation.+--+-- 'dataTransferProgressPercent', 'resizeProgressMessage_dataTransferProgressPercent' - The percent of data transferred from source cluster to target cluster.+--+-- 'elapsedTimeInSeconds', 'resizeProgressMessage_elapsedTimeInSeconds' - The amount of seconds that have elapsed since the resize operation+-- began. After the resize operation completes, this value shows the total+-- actual time, in seconds, for the resize operation.+--+-- 'estimatedTimeToCompletionInSeconds', 'resizeProgressMessage_estimatedTimeToCompletionInSeconds' - The estimated time remaining, in seconds, until the resize operation is+-- complete. This value is calculated based on the average resize rate and+-- the estimated amount of data remaining to be processed. Once the resize+-- operation is complete, this value will be 0.+--+-- 'importTablesCompleted', 'resizeProgressMessage_importTablesCompleted' - The names of tables that have been completely imported .+--+-- Valid Values: List of table names.+--+-- 'importTablesInProgress', 'resizeProgressMessage_importTablesInProgress' - The names of tables that are being currently imported.+--+-- Valid Values: List of table names.+--+-- 'importTablesNotStarted', 'resizeProgressMessage_importTablesNotStarted' - The names of tables that have not been yet imported.+--+-- Valid Values: List of table names+--+-- 'message', 'resizeProgressMessage_message' - An optional string to provide additional details about the resize+-- action.+--+-- 'progressInMegaBytes', 'resizeProgressMessage_progressInMegaBytes' - While the resize operation is in progress, this value shows the current+-- amount of data, in megabytes, that has been processed so far. When the+-- resize operation is complete, this value shows the total amount of data,+-- in megabytes, on the cluster, which may be more or less than+-- TotalResizeDataInMegaBytes (the estimated total amount of data before+-- resize).+--+-- 'resizeType', 'resizeProgressMessage_resizeType' - An enum with possible values of @ClassicResize@ and @ElasticResize@.+-- These values describe the type of resize operation being performed.+--+-- 'status', 'resizeProgressMessage_status' - The status of the resize operation.+--+-- Valid Values: @NONE@ | @IN_PROGRESS@ | @FAILED@ | @SUCCEEDED@ |+-- @CANCELLING@+--+-- 'targetClusterType', 'resizeProgressMessage_targetClusterType' - The cluster type after the resize operation is complete.+--+-- Valid Values: @multi-node@ | @single-node@+--+-- 'targetEncryptionType', 'resizeProgressMessage_targetEncryptionType' - The type of encryption for the cluster after the resize is complete.+--+-- Possible values are @KMS@ and @None@.+--+-- 'targetNodeType', 'resizeProgressMessage_targetNodeType' - The node type that the cluster will have after the resize operation is+-- complete.+--+-- 'targetNumberOfNodes', 'resizeProgressMessage_targetNumberOfNodes' - The number of nodes that the cluster will have after the resize+-- operation is complete.+--+-- 'totalResizeDataInMegaBytes', 'resizeProgressMessage_totalResizeDataInMegaBytes' - The estimated total amount of data, in megabytes, on the cluster before+-- the resize operation began.+newResizeProgressMessage ::+ ResizeProgressMessage+newResizeProgressMessage =+ ResizeProgressMessage'+ { avgResizeRateInMegaBytesPerSecond =+ Prelude.Nothing,+ dataTransferProgressPercent = Prelude.Nothing,+ elapsedTimeInSeconds = Prelude.Nothing,+ estimatedTimeToCompletionInSeconds = Prelude.Nothing,+ importTablesCompleted = Prelude.Nothing,+ importTablesInProgress = Prelude.Nothing,+ importTablesNotStarted = Prelude.Nothing,+ message = Prelude.Nothing,+ progressInMegaBytes = Prelude.Nothing,+ resizeType = Prelude.Nothing,+ status = Prelude.Nothing,+ targetClusterType = Prelude.Nothing,+ targetEncryptionType = Prelude.Nothing,+ targetNodeType = Prelude.Nothing,+ targetNumberOfNodes = Prelude.Nothing,+ totalResizeDataInMegaBytes = Prelude.Nothing+ }++-- | The average rate of the resize operation over the last few minutes,+-- measured in megabytes per second. After the resize operation completes,+-- this value shows the average rate of the entire resize operation.+resizeProgressMessage_avgResizeRateInMegaBytesPerSecond :: Lens.Lens' ResizeProgressMessage (Prelude.Maybe Prelude.Double)+resizeProgressMessage_avgResizeRateInMegaBytesPerSecond = Lens.lens (\ResizeProgressMessage' {avgResizeRateInMegaBytesPerSecond} -> avgResizeRateInMegaBytesPerSecond) (\s@ResizeProgressMessage' {} a -> s {avgResizeRateInMegaBytesPerSecond = a} :: ResizeProgressMessage)++-- | The percent of data transferred from source cluster to target cluster.+resizeProgressMessage_dataTransferProgressPercent :: Lens.Lens' ResizeProgressMessage (Prelude.Maybe Prelude.Double)+resizeProgressMessage_dataTransferProgressPercent = Lens.lens (\ResizeProgressMessage' {dataTransferProgressPercent} -> dataTransferProgressPercent) (\s@ResizeProgressMessage' {} a -> s {dataTransferProgressPercent = a} :: ResizeProgressMessage)++-- | The amount of seconds that have elapsed since the resize operation+-- began. After the resize operation completes, this value shows the total+-- actual time, in seconds, for the resize operation.+resizeProgressMessage_elapsedTimeInSeconds :: Lens.Lens' ResizeProgressMessage (Prelude.Maybe Prelude.Integer)+resizeProgressMessage_elapsedTimeInSeconds = Lens.lens (\ResizeProgressMessage' {elapsedTimeInSeconds} -> elapsedTimeInSeconds) (\s@ResizeProgressMessage' {} a -> s {elapsedTimeInSeconds = a} :: ResizeProgressMessage)++-- | The estimated time remaining, in seconds, until the resize operation is+-- complete. This value is calculated based on the average resize rate and+-- the estimated amount of data remaining to be processed. Once the resize+-- operation is complete, this value will be 0.+resizeProgressMessage_estimatedTimeToCompletionInSeconds :: Lens.Lens' ResizeProgressMessage (Prelude.Maybe Prelude.Integer)+resizeProgressMessage_estimatedTimeToCompletionInSeconds = Lens.lens (\ResizeProgressMessage' {estimatedTimeToCompletionInSeconds} -> estimatedTimeToCompletionInSeconds) (\s@ResizeProgressMessage' {} a -> s {estimatedTimeToCompletionInSeconds = a} :: ResizeProgressMessage)++-- | The names of tables that have been completely imported .+--+-- Valid Values: List of table names.+resizeProgressMessage_importTablesCompleted :: Lens.Lens' ResizeProgressMessage (Prelude.Maybe [Prelude.Text])+resizeProgressMessage_importTablesCompleted = Lens.lens (\ResizeProgressMessage' {importTablesCompleted} -> importTablesCompleted) (\s@ResizeProgressMessage' {} a -> s {importTablesCompleted = a} :: ResizeProgressMessage) Prelude.. Lens.mapping Lens.coerced++-- | The names of tables that are being currently imported.+--+-- Valid Values: List of table names.+resizeProgressMessage_importTablesInProgress :: Lens.Lens' ResizeProgressMessage (Prelude.Maybe [Prelude.Text])+resizeProgressMessage_importTablesInProgress = Lens.lens (\ResizeProgressMessage' {importTablesInProgress} -> importTablesInProgress) (\s@ResizeProgressMessage' {} a -> s {importTablesInProgress = a} :: ResizeProgressMessage) Prelude.. Lens.mapping Lens.coerced++-- | The names of tables that have not been yet imported.+--+-- Valid Values: List of table names+resizeProgressMessage_importTablesNotStarted :: Lens.Lens' ResizeProgressMessage (Prelude.Maybe [Prelude.Text])+resizeProgressMessage_importTablesNotStarted = Lens.lens (\ResizeProgressMessage' {importTablesNotStarted} -> importTablesNotStarted) (\s@ResizeProgressMessage' {} a -> s {importTablesNotStarted = a} :: ResizeProgressMessage) Prelude.. Lens.mapping Lens.coerced++-- | An optional string to provide additional details about the resize+-- action.+resizeProgressMessage_message :: Lens.Lens' ResizeProgressMessage (Prelude.Maybe Prelude.Text)+resizeProgressMessage_message = Lens.lens (\ResizeProgressMessage' {message} -> message) (\s@ResizeProgressMessage' {} a -> s {message = a} :: ResizeProgressMessage)++-- | While the resize operation is in progress, this value shows the current+-- amount of data, in megabytes, that has been processed so far. When the+-- resize operation is complete, this value shows the total amount of data,+-- in megabytes, on the cluster, which may be more or less than+-- TotalResizeDataInMegaBytes (the estimated total amount of data before+-- resize).+resizeProgressMessage_progressInMegaBytes :: Lens.Lens' ResizeProgressMessage (Prelude.Maybe Prelude.Integer)+resizeProgressMessage_progressInMegaBytes = Lens.lens (\ResizeProgressMessage' {progressInMegaBytes} -> progressInMegaBytes) (\s@ResizeProgressMessage' {} a -> s {progressInMegaBytes = a} :: ResizeProgressMessage)++-- | An enum with possible values of @ClassicResize@ and @ElasticResize@.+-- These values describe the type of resize operation being performed.+resizeProgressMessage_resizeType :: Lens.Lens' ResizeProgressMessage (Prelude.Maybe Prelude.Text)+resizeProgressMessage_resizeType = Lens.lens (\ResizeProgressMessage' {resizeType} -> resizeType) (\s@ResizeProgressMessage' {} a -> s {resizeType = a} :: ResizeProgressMessage)++-- | The status of the resize operation.+--+-- Valid Values: @NONE@ | @IN_PROGRESS@ | @FAILED@ | @SUCCEEDED@ |+-- @CANCELLING@+resizeProgressMessage_status :: Lens.Lens' ResizeProgressMessage (Prelude.Maybe Prelude.Text)+resizeProgressMessage_status = Lens.lens (\ResizeProgressMessage' {status} -> status) (\s@ResizeProgressMessage' {} a -> s {status = a} :: ResizeProgressMessage)++-- | The cluster type after the resize operation is complete.+--+-- Valid Values: @multi-node@ | @single-node@+resizeProgressMessage_targetClusterType :: Lens.Lens' ResizeProgressMessage (Prelude.Maybe Prelude.Text)+resizeProgressMessage_targetClusterType = Lens.lens (\ResizeProgressMessage' {targetClusterType} -> targetClusterType) (\s@ResizeProgressMessage' {} a -> s {targetClusterType = a} :: ResizeProgressMessage)++-- | The type of encryption for the cluster after the resize is complete.+--+-- Possible values are @KMS@ and @None@.+resizeProgressMessage_targetEncryptionType :: Lens.Lens' ResizeProgressMessage (Prelude.Maybe Prelude.Text)+resizeProgressMessage_targetEncryptionType = Lens.lens (\ResizeProgressMessage' {targetEncryptionType} -> targetEncryptionType) (\s@ResizeProgressMessage' {} a -> s {targetEncryptionType = a} :: ResizeProgressMessage)++-- | The node type that the cluster will have after the resize operation is+-- complete.+resizeProgressMessage_targetNodeType :: Lens.Lens' ResizeProgressMessage (Prelude.Maybe Prelude.Text)+resizeProgressMessage_targetNodeType = Lens.lens (\ResizeProgressMessage' {targetNodeType} -> targetNodeType) (\s@ResizeProgressMessage' {} a -> s {targetNodeType = a} :: ResizeProgressMessage)++-- | The number of nodes that the cluster will have after the resize+-- operation is complete.+resizeProgressMessage_targetNumberOfNodes :: Lens.Lens' ResizeProgressMessage (Prelude.Maybe Prelude.Int)+resizeProgressMessage_targetNumberOfNodes = Lens.lens (\ResizeProgressMessage' {targetNumberOfNodes} -> targetNumberOfNodes) (\s@ResizeProgressMessage' {} a -> s {targetNumberOfNodes = a} :: ResizeProgressMessage)++-- | The estimated total amount of data, in megabytes, on the cluster before+-- the resize operation began.+resizeProgressMessage_totalResizeDataInMegaBytes :: Lens.Lens' ResizeProgressMessage (Prelude.Maybe Prelude.Integer)+resizeProgressMessage_totalResizeDataInMegaBytes = Lens.lens (\ResizeProgressMessage' {totalResizeDataInMegaBytes} -> totalResizeDataInMegaBytes) (\s@ResizeProgressMessage' {} a -> s {totalResizeDataInMegaBytes = a} :: ResizeProgressMessage)++instance Data.FromXML ResizeProgressMessage where+ parseXML x =+ ResizeProgressMessage'+ Prelude.<$> (x Data..@? "AvgResizeRateInMegaBytesPerSecond")+ Prelude.<*> (x Data..@? "DataTransferProgressPercent")+ Prelude.<*> (x Data..@? "ElapsedTimeInSeconds")+ Prelude.<*> (x Data..@? "EstimatedTimeToCompletionInSeconds")+ Prelude.<*> ( x+ Data..@? "ImportTablesCompleted"+ Core..!@ Prelude.mempty+ Prelude.>>= Core.may (Data.parseXMLList "member")+ )+ Prelude.<*> ( x+ Data..@? "ImportTablesInProgress"+ Core..!@ Prelude.mempty+ Prelude.>>= Core.may (Data.parseXMLList "member")+ )+ Prelude.<*> ( x+ Data..@? "ImportTablesNotStarted"+ Core..!@ Prelude.mempty+ Prelude.>>= Core.may (Data.parseXMLList "member")+ )+ Prelude.<*> (x Data..@? "Message")+ Prelude.<*> (x Data..@? "ProgressInMegaBytes")+ Prelude.<*> (x Data..@? "ResizeType")+ Prelude.<*> (x Data..@? "Status")+ Prelude.<*> (x Data..@? "TargetClusterType")+ Prelude.<*> (x Data..@? "TargetEncryptionType")+ Prelude.<*> (x Data..@? "TargetNodeType")+ Prelude.<*> (x Data..@? "TargetNumberOfNodes")+ Prelude.<*> (x Data..@? "TotalResizeDataInMegaBytes")++instance Prelude.Hashable ResizeProgressMessage where+ hashWithSalt _salt ResizeProgressMessage' {..} =+ _salt+ `Prelude.hashWithSalt` avgResizeRateInMegaBytesPerSecond+ `Prelude.hashWithSalt` dataTransferProgressPercent+ `Prelude.hashWithSalt` elapsedTimeInSeconds+ `Prelude.hashWithSalt` estimatedTimeToCompletionInSeconds+ `Prelude.hashWithSalt` importTablesCompleted+ `Prelude.hashWithSalt` importTablesInProgress+ `Prelude.hashWithSalt` importTablesNotStarted+ `Prelude.hashWithSalt` message+ `Prelude.hashWithSalt` progressInMegaBytes+ `Prelude.hashWithSalt` resizeType+ `Prelude.hashWithSalt` status+ `Prelude.hashWithSalt` targetClusterType+ `Prelude.hashWithSalt` targetEncryptionType+ `Prelude.hashWithSalt` targetNodeType+ `Prelude.hashWithSalt` targetNumberOfNodes+ `Prelude.hashWithSalt` totalResizeDataInMegaBytes++instance Prelude.NFData ResizeProgressMessage where+ rnf ResizeProgressMessage' {..} =+ Prelude.rnf avgResizeRateInMegaBytesPerSecond+ `Prelude.seq` Prelude.rnf dataTransferProgressPercent+ `Prelude.seq` Prelude.rnf elapsedTimeInSeconds+ `Prelude.seq` Prelude.rnf estimatedTimeToCompletionInSeconds+ `Prelude.seq` Prelude.rnf importTablesCompleted+ `Prelude.seq` Prelude.rnf importTablesInProgress+ `Prelude.seq` Prelude.rnf importTablesNotStarted+ `Prelude.seq` Prelude.rnf message+ `Prelude.seq` Prelude.rnf progressInMegaBytes+ `Prelude.seq` Prelude.rnf resizeType+ `Prelude.seq` Prelude.rnf status+ `Prelude.seq` Prelude.rnf targetClusterType+ `Prelude.seq` Prelude.rnf targetEncryptionType+ `Prelude.seq` Prelude.rnf targetNodeType+ `Prelude.seq` Prelude.rnf targetNumberOfNodes+ `Prelude.seq` Prelude.rnf totalResizeDataInMegaBytes
+ gen/Amazonka/Redshift/Types/RestoreStatus.hs view
@@ -0,0 +1,161 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module : Amazonka.Redshift.Types.RestoreStatus+-- Copyright : (c) 2013-2023 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.Redshift.Types.RestoreStatus where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Redshift.Internal++-- | Describes the status of a cluster restore action. Returns null if the+-- cluster was not created by restoring a snapshot.+--+-- /See:/ 'newRestoreStatus' smart constructor.+data RestoreStatus = RestoreStatus'+ { -- | The number of megabytes per second being transferred from the backup+ -- storage. Returns the average rate for a completed backup. This field is+ -- only updated when you restore to DC2 and DS2 node types.+ currentRestoreRateInMegaBytesPerSecond :: Prelude.Maybe Prelude.Double,+ -- | The amount of time an in-progress restore has been running, or the+ -- amount of time it took a completed restore to finish. This field is only+ -- updated when you restore to DC2 and DS2 node types.+ elapsedTimeInSeconds :: Prelude.Maybe Prelude.Integer,+ -- | The estimate of the time remaining before the restore will complete.+ -- Returns 0 for a completed restore. This field is only updated when you+ -- restore to DC2 and DS2 node types.+ estimatedTimeToCompletionInSeconds :: Prelude.Maybe Prelude.Integer,+ -- | The number of megabytes that have been transferred from snapshot+ -- storage. This field is only updated when you restore to DC2 and DS2 node+ -- types.+ progressInMegaBytes :: Prelude.Maybe Prelude.Integer,+ -- | The size of the set of snapshot data used to restore the cluster. This+ -- field is only updated when you restore to DC2 and DS2 node types.+ snapshotSizeInMegaBytes :: Prelude.Maybe Prelude.Integer,+ -- | The status of the restore action. Returns starting, restoring,+ -- completed, or failed.+ status :: Prelude.Maybe Prelude.Text+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'RestoreStatus' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'currentRestoreRateInMegaBytesPerSecond', 'restoreStatus_currentRestoreRateInMegaBytesPerSecond' - The number of megabytes per second being transferred from the backup+-- storage. Returns the average rate for a completed backup. This field is+-- only updated when you restore to DC2 and DS2 node types.+--+-- 'elapsedTimeInSeconds', 'restoreStatus_elapsedTimeInSeconds' - The amount of time an in-progress restore has been running, or the+-- amount of time it took a completed restore to finish. This field is only+-- updated when you restore to DC2 and DS2 node types.+--+-- 'estimatedTimeToCompletionInSeconds', 'restoreStatus_estimatedTimeToCompletionInSeconds' - The estimate of the time remaining before the restore will complete.+-- Returns 0 for a completed restore. This field is only updated when you+-- restore to DC2 and DS2 node types.+--+-- 'progressInMegaBytes', 'restoreStatus_progressInMegaBytes' - The number of megabytes that have been transferred from snapshot+-- storage. This field is only updated when you restore to DC2 and DS2 node+-- types.+--+-- 'snapshotSizeInMegaBytes', 'restoreStatus_snapshotSizeInMegaBytes' - The size of the set of snapshot data used to restore the cluster. This+-- field is only updated when you restore to DC2 and DS2 node types.+--+-- 'status', 'restoreStatus_status' - The status of the restore action. Returns starting, restoring,+-- completed, or failed.+newRestoreStatus ::+ RestoreStatus+newRestoreStatus =+ RestoreStatus'+ { currentRestoreRateInMegaBytesPerSecond =+ Prelude.Nothing,+ elapsedTimeInSeconds = Prelude.Nothing,+ estimatedTimeToCompletionInSeconds = Prelude.Nothing,+ progressInMegaBytes = Prelude.Nothing,+ snapshotSizeInMegaBytes = Prelude.Nothing,+ status = Prelude.Nothing+ }++-- | The number of megabytes per second being transferred from the backup+-- storage. Returns the average rate for a completed backup. This field is+-- only updated when you restore to DC2 and DS2 node types.+restoreStatus_currentRestoreRateInMegaBytesPerSecond :: Lens.Lens' RestoreStatus (Prelude.Maybe Prelude.Double)+restoreStatus_currentRestoreRateInMegaBytesPerSecond = Lens.lens (\RestoreStatus' {currentRestoreRateInMegaBytesPerSecond} -> currentRestoreRateInMegaBytesPerSecond) (\s@RestoreStatus' {} a -> s {currentRestoreRateInMegaBytesPerSecond = a} :: RestoreStatus)++-- | The amount of time an in-progress restore has been running, or the+-- amount of time it took a completed restore to finish. This field is only+-- updated when you restore to DC2 and DS2 node types.+restoreStatus_elapsedTimeInSeconds :: Lens.Lens' RestoreStatus (Prelude.Maybe Prelude.Integer)+restoreStatus_elapsedTimeInSeconds = Lens.lens (\RestoreStatus' {elapsedTimeInSeconds} -> elapsedTimeInSeconds) (\s@RestoreStatus' {} a -> s {elapsedTimeInSeconds = a} :: RestoreStatus)++-- | The estimate of the time remaining before the restore will complete.+-- Returns 0 for a completed restore. This field is only updated when you+-- restore to DC2 and DS2 node types.+restoreStatus_estimatedTimeToCompletionInSeconds :: Lens.Lens' RestoreStatus (Prelude.Maybe Prelude.Integer)+restoreStatus_estimatedTimeToCompletionInSeconds = Lens.lens (\RestoreStatus' {estimatedTimeToCompletionInSeconds} -> estimatedTimeToCompletionInSeconds) (\s@RestoreStatus' {} a -> s {estimatedTimeToCompletionInSeconds = a} :: RestoreStatus)++-- | The number of megabytes that have been transferred from snapshot+-- storage. This field is only updated when you restore to DC2 and DS2 node+-- types.+restoreStatus_progressInMegaBytes :: Lens.Lens' RestoreStatus (Prelude.Maybe Prelude.Integer)+restoreStatus_progressInMegaBytes = Lens.lens (\RestoreStatus' {progressInMegaBytes} -> progressInMegaBytes) (\s@RestoreStatus' {} a -> s {progressInMegaBytes = a} :: RestoreStatus)++-- | The size of the set of snapshot data used to restore the cluster. This+-- field is only updated when you restore to DC2 and DS2 node types.+restoreStatus_snapshotSizeInMegaBytes :: Lens.Lens' RestoreStatus (Prelude.Maybe Prelude.Integer)+restoreStatus_snapshotSizeInMegaBytes = Lens.lens (\RestoreStatus' {snapshotSizeInMegaBytes} -> snapshotSizeInMegaBytes) (\s@RestoreStatus' {} a -> s {snapshotSizeInMegaBytes = a} :: RestoreStatus)++-- | The status of the restore action. Returns starting, restoring,+-- completed, or failed.+restoreStatus_status :: Lens.Lens' RestoreStatus (Prelude.Maybe Prelude.Text)+restoreStatus_status = Lens.lens (\RestoreStatus' {status} -> status) (\s@RestoreStatus' {} a -> s {status = a} :: RestoreStatus)++instance Data.FromXML RestoreStatus where+ parseXML x =+ RestoreStatus'+ Prelude.<$> (x Data..@? "CurrentRestoreRateInMegaBytesPerSecond")+ Prelude.<*> (x Data..@? "ElapsedTimeInSeconds")+ Prelude.<*> (x Data..@? "EstimatedTimeToCompletionInSeconds")+ Prelude.<*> (x Data..@? "ProgressInMegaBytes")+ Prelude.<*> (x Data..@? "SnapshotSizeInMegaBytes")+ Prelude.<*> (x Data..@? "Status")++instance Prelude.Hashable RestoreStatus where+ hashWithSalt _salt RestoreStatus' {..} =+ _salt+ `Prelude.hashWithSalt` currentRestoreRateInMegaBytesPerSecond+ `Prelude.hashWithSalt` elapsedTimeInSeconds+ `Prelude.hashWithSalt` estimatedTimeToCompletionInSeconds+ `Prelude.hashWithSalt` progressInMegaBytes+ `Prelude.hashWithSalt` snapshotSizeInMegaBytes+ `Prelude.hashWithSalt` status++instance Prelude.NFData RestoreStatus where+ rnf RestoreStatus' {..} =+ Prelude.rnf currentRestoreRateInMegaBytesPerSecond+ `Prelude.seq` Prelude.rnf elapsedTimeInSeconds+ `Prelude.seq` Prelude.rnf estimatedTimeToCompletionInSeconds+ `Prelude.seq` Prelude.rnf progressInMegaBytes+ `Prelude.seq` Prelude.rnf snapshotSizeInMegaBytes+ `Prelude.seq` Prelude.rnf status
+ gen/Amazonka/Redshift/Types/ResumeClusterMessage.hs view
@@ -0,0 +1,77 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module : Amazonka.Redshift.Types.ResumeClusterMessage+-- Copyright : (c) 2013-2023 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.Redshift.Types.ResumeClusterMessage where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Redshift.Internal++-- | Describes a resume cluster operation. For example, a scheduled action to+-- run the @ResumeCluster@ API operation.+--+-- /See:/ 'newResumeClusterMessage' smart constructor.+data ResumeClusterMessage = ResumeClusterMessage'+ { -- | The identifier of the cluster to be resumed.+ clusterIdentifier :: Prelude.Text+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ResumeClusterMessage' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'clusterIdentifier', 'resumeClusterMessage_clusterIdentifier' - The identifier of the cluster to be resumed.+newResumeClusterMessage ::+ -- | 'clusterIdentifier'+ Prelude.Text ->+ ResumeClusterMessage+newResumeClusterMessage pClusterIdentifier_ =+ ResumeClusterMessage'+ { clusterIdentifier =+ pClusterIdentifier_+ }++-- | The identifier of the cluster to be resumed.+resumeClusterMessage_clusterIdentifier :: Lens.Lens' ResumeClusterMessage Prelude.Text+resumeClusterMessage_clusterIdentifier = Lens.lens (\ResumeClusterMessage' {clusterIdentifier} -> clusterIdentifier) (\s@ResumeClusterMessage' {} a -> s {clusterIdentifier = a} :: ResumeClusterMessage)++instance Data.FromXML ResumeClusterMessage where+ parseXML x =+ ResumeClusterMessage'+ Prelude.<$> (x Data..@ "ClusterIdentifier")++instance Prelude.Hashable ResumeClusterMessage where+ hashWithSalt _salt ResumeClusterMessage' {..} =+ _salt `Prelude.hashWithSalt` clusterIdentifier++instance Prelude.NFData ResumeClusterMessage where+ rnf ResumeClusterMessage' {..} =+ Prelude.rnf clusterIdentifier++instance Data.ToQuery ResumeClusterMessage where+ toQuery ResumeClusterMessage' {..} =+ Prelude.mconcat+ ["ClusterIdentifier" Data.=: clusterIdentifier]
+ gen/Amazonka/Redshift/Types/RevisionTarget.hs view
@@ -0,0 +1,99 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module : Amazonka.Redshift.Types.RevisionTarget+-- Copyright : (c) 2013-2023 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.Redshift.Types.RevisionTarget where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Redshift.Internal++-- | Describes a @RevisionTarget@.+--+-- /See:/ 'newRevisionTarget' smart constructor.+data RevisionTarget = RevisionTarget'+ { -- | A unique string that identifies the version to update the cluster to.+ -- You can use this value in ModifyClusterDbRevision.+ databaseRevision :: Prelude.Maybe Prelude.Text,+ -- | The date on which the database revision was released.+ databaseRevisionReleaseDate :: Prelude.Maybe Data.ISO8601,+ -- | A string that describes the changes and features that will be applied to+ -- the cluster when it is updated to the corresponding ClusterDbRevision.+ description :: Prelude.Maybe Prelude.Text+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'RevisionTarget' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'databaseRevision', 'revisionTarget_databaseRevision' - A unique string that identifies the version to update the cluster to.+-- You can use this value in ModifyClusterDbRevision.+--+-- 'databaseRevisionReleaseDate', 'revisionTarget_databaseRevisionReleaseDate' - The date on which the database revision was released.+--+-- 'description', 'revisionTarget_description' - A string that describes the changes and features that will be applied to+-- the cluster when it is updated to the corresponding ClusterDbRevision.+newRevisionTarget ::+ RevisionTarget+newRevisionTarget =+ RevisionTarget'+ { databaseRevision = Prelude.Nothing,+ databaseRevisionReleaseDate = Prelude.Nothing,+ description = Prelude.Nothing+ }++-- | A unique string that identifies the version to update the cluster to.+-- You can use this value in ModifyClusterDbRevision.+revisionTarget_databaseRevision :: Lens.Lens' RevisionTarget (Prelude.Maybe Prelude.Text)+revisionTarget_databaseRevision = Lens.lens (\RevisionTarget' {databaseRevision} -> databaseRevision) (\s@RevisionTarget' {} a -> s {databaseRevision = a} :: RevisionTarget)++-- | The date on which the database revision was released.+revisionTarget_databaseRevisionReleaseDate :: Lens.Lens' RevisionTarget (Prelude.Maybe Prelude.UTCTime)+revisionTarget_databaseRevisionReleaseDate = Lens.lens (\RevisionTarget' {databaseRevisionReleaseDate} -> databaseRevisionReleaseDate) (\s@RevisionTarget' {} a -> s {databaseRevisionReleaseDate = a} :: RevisionTarget) Prelude.. Lens.mapping Data._Time++-- | A string that describes the changes and features that will be applied to+-- the cluster when it is updated to the corresponding ClusterDbRevision.+revisionTarget_description :: Lens.Lens' RevisionTarget (Prelude.Maybe Prelude.Text)+revisionTarget_description = Lens.lens (\RevisionTarget' {description} -> description) (\s@RevisionTarget' {} a -> s {description = a} :: RevisionTarget)++instance Data.FromXML RevisionTarget where+ parseXML x =+ RevisionTarget'+ Prelude.<$> (x Data..@? "DatabaseRevision")+ Prelude.<*> (x Data..@? "DatabaseRevisionReleaseDate")+ Prelude.<*> (x Data..@? "Description")++instance Prelude.Hashable RevisionTarget where+ hashWithSalt _salt RevisionTarget' {..} =+ _salt+ `Prelude.hashWithSalt` databaseRevision+ `Prelude.hashWithSalt` databaseRevisionReleaseDate+ `Prelude.hashWithSalt` description++instance Prelude.NFData RevisionTarget where+ rnf RevisionTarget' {..} =+ Prelude.rnf databaseRevision+ `Prelude.seq` Prelude.rnf databaseRevisionReleaseDate+ `Prelude.seq` Prelude.rnf description
+ gen/Amazonka/Redshift/Types/ScheduleState.hs view
@@ -0,0 +1,77 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE GeneralizedNewtypeDeriving #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module : Amazonka.Redshift.Types.ScheduleState+-- Copyright : (c) 2013-2023 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.Redshift.Types.ScheduleState+ ( ScheduleState+ ( ..,+ ScheduleState_ACTIVE,+ ScheduleState_FAILED,+ ScheduleState_MODIFYING+ ),+ )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Redshift.Internal++newtype ScheduleState = ScheduleState'+ { fromScheduleState ::+ Data.Text+ }+ deriving stock+ ( Prelude.Show,+ Prelude.Read,+ Prelude.Eq,+ Prelude.Ord,+ Prelude.Generic+ )+ deriving newtype+ ( Prelude.Hashable,+ Prelude.NFData,+ Data.FromText,+ Data.ToText,+ Data.ToByteString,+ Data.ToLog,+ Data.ToHeader,+ Data.ToQuery,+ Data.FromJSON,+ Data.FromJSONKey,+ Data.ToJSON,+ Data.ToJSONKey,+ Data.FromXML,+ Data.ToXML+ )++pattern ScheduleState_ACTIVE :: ScheduleState+pattern ScheduleState_ACTIVE = ScheduleState' "ACTIVE"++pattern ScheduleState_FAILED :: ScheduleState+pattern ScheduleState_FAILED = ScheduleState' "FAILED"++pattern ScheduleState_MODIFYING :: ScheduleState+pattern ScheduleState_MODIFYING = ScheduleState' "MODIFYING"++{-# COMPLETE+ ScheduleState_ACTIVE,+ ScheduleState_FAILED,+ ScheduleState_MODIFYING,+ ScheduleState'+ #-}
+ gen/Amazonka/Redshift/Types/ScheduledAction.hs view
@@ -0,0 +1,242 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module : Amazonka.Redshift.Types.ScheduledAction+-- Copyright : (c) 2013-2023 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.Redshift.Types.ScheduledAction where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Redshift.Internal+import Amazonka.Redshift.Types.ScheduledActionState+import Amazonka.Redshift.Types.ScheduledActionType++-- | Describes a scheduled action. You can use a scheduled action to trigger+-- some Amazon Redshift API operations on a schedule. For information about+-- which API operations can be scheduled, see ScheduledActionType.+--+-- /See:/ 'newScheduledAction' smart constructor.+data ScheduledAction = ScheduledAction'+ { -- | The end time in UTC when the schedule is no longer active. After this+ -- time, the scheduled action does not trigger.+ endTime :: Prelude.Maybe Data.ISO8601,+ -- | The IAM role to assume to run the scheduled action. This IAM role must+ -- have permission to run the Amazon Redshift API operation in the+ -- scheduled action. This IAM role must allow the Amazon Redshift scheduler+ -- (Principal scheduler.redshift.amazonaws.com) to assume permissions on+ -- your behalf. For more information about the IAM role to use with the+ -- Amazon Redshift scheduler, see+ -- <https://docs.aws.amazon.com/redshift/latest/mgmt/redshift-iam-access-control-identity-based.html Using Identity-Based Policies for Amazon Redshift>+ -- in the /Amazon Redshift Cluster Management Guide/.+ iamRole :: Prelude.Maybe Prelude.Text,+ -- | List of times when the scheduled action will run.+ nextInvocations :: Prelude.Maybe [Data.ISO8601],+ -- | The schedule for a one-time (at format) or recurring (cron format)+ -- scheduled action. Schedule invocations must be separated by at least one+ -- hour.+ --+ -- Format of at expressions is \"@at(yyyy-mm-ddThh:mm:ss)@\". For example,+ -- \"@at(2016-03-04T17:27:00)@\".+ --+ -- Format of cron expressions is+ -- \"@cron(Minutes Hours Day-of-month Month Day-of-week Year)@\". For+ -- example, \"@cron(0 10 ? * MON *)@\". For more information, see+ -- <https://docs.aws.amazon.com/AmazonCloudWatch/latest/events/ScheduledEvents.html#CronExpressions Cron Expressions>+ -- in the /Amazon CloudWatch Events User Guide/.+ schedule :: Prelude.Maybe Prelude.Text,+ -- | The description of the scheduled action.+ scheduledActionDescription :: Prelude.Maybe Prelude.Text,+ -- | The name of the scheduled action.+ scheduledActionName :: Prelude.Maybe Prelude.Text,+ -- | The start time in UTC when the schedule is active. Before this time, the+ -- scheduled action does not trigger.+ startTime :: Prelude.Maybe Data.ISO8601,+ -- | The state of the scheduled action. For example, @DISABLED@.+ state :: Prelude.Maybe ScheduledActionState,+ -- | A JSON format string of the Amazon Redshift API operation with input+ -- parameters.+ --+ -- \"@{\\\"ResizeCluster\\\":{\\\"NodeType\\\":\\\"ds2.8xlarge\\\",\\\"ClusterIdentifier\\\":\\\"my-test-cluster\\\",\\\"NumberOfNodes\\\":3}}@\".+ targetAction :: Prelude.Maybe ScheduledActionType+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ScheduledAction' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'endTime', 'scheduledAction_endTime' - The end time in UTC when the schedule is no longer active. After this+-- time, the scheduled action does not trigger.+--+-- 'iamRole', 'scheduledAction_iamRole' - The IAM role to assume to run the scheduled action. This IAM role must+-- have permission to run the Amazon Redshift API operation in the+-- scheduled action. This IAM role must allow the Amazon Redshift scheduler+-- (Principal scheduler.redshift.amazonaws.com) to assume permissions on+-- your behalf. For more information about the IAM role to use with the+-- Amazon Redshift scheduler, see+-- <https://docs.aws.amazon.com/redshift/latest/mgmt/redshift-iam-access-control-identity-based.html Using Identity-Based Policies for Amazon Redshift>+-- in the /Amazon Redshift Cluster Management Guide/.+--+-- 'nextInvocations', 'scheduledAction_nextInvocations' - List of times when the scheduled action will run.+--+-- 'schedule', 'scheduledAction_schedule' - The schedule for a one-time (at format) or recurring (cron format)+-- scheduled action. Schedule invocations must be separated by at least one+-- hour.+--+-- Format of at expressions is \"@at(yyyy-mm-ddThh:mm:ss)@\". For example,+-- \"@at(2016-03-04T17:27:00)@\".+--+-- Format of cron expressions is+-- \"@cron(Minutes Hours Day-of-month Month Day-of-week Year)@\". For+-- example, \"@cron(0 10 ? * MON *)@\". For more information, see+-- <https://docs.aws.amazon.com/AmazonCloudWatch/latest/events/ScheduledEvents.html#CronExpressions Cron Expressions>+-- in the /Amazon CloudWatch Events User Guide/.+--+-- 'scheduledActionDescription', 'scheduledAction_scheduledActionDescription' - The description of the scheduled action.+--+-- 'scheduledActionName', 'scheduledAction_scheduledActionName' - The name of the scheduled action.+--+-- 'startTime', 'scheduledAction_startTime' - The start time in UTC when the schedule is active. Before this time, the+-- scheduled action does not trigger.+--+-- 'state', 'scheduledAction_state' - The state of the scheduled action. For example, @DISABLED@.+--+-- 'targetAction', 'scheduledAction_targetAction' - A JSON format string of the Amazon Redshift API operation with input+-- parameters.+--+-- \"@{\\\"ResizeCluster\\\":{\\\"NodeType\\\":\\\"ds2.8xlarge\\\",\\\"ClusterIdentifier\\\":\\\"my-test-cluster\\\",\\\"NumberOfNodes\\\":3}}@\".+newScheduledAction ::+ ScheduledAction+newScheduledAction =+ ScheduledAction'+ { endTime = Prelude.Nothing,+ iamRole = Prelude.Nothing,+ nextInvocations = Prelude.Nothing,+ schedule = Prelude.Nothing,+ scheduledActionDescription = Prelude.Nothing,+ scheduledActionName = Prelude.Nothing,+ startTime = Prelude.Nothing,+ state = Prelude.Nothing,+ targetAction = Prelude.Nothing+ }++-- | The end time in UTC when the schedule is no longer active. After this+-- time, the scheduled action does not trigger.+scheduledAction_endTime :: Lens.Lens' ScheduledAction (Prelude.Maybe Prelude.UTCTime)+scheduledAction_endTime = Lens.lens (\ScheduledAction' {endTime} -> endTime) (\s@ScheduledAction' {} a -> s {endTime = a} :: ScheduledAction) Prelude.. Lens.mapping Data._Time++-- | The IAM role to assume to run the scheduled action. This IAM role must+-- have permission to run the Amazon Redshift API operation in the+-- scheduled action. This IAM role must allow the Amazon Redshift scheduler+-- (Principal scheduler.redshift.amazonaws.com) to assume permissions on+-- your behalf. For more information about the IAM role to use with the+-- Amazon Redshift scheduler, see+-- <https://docs.aws.amazon.com/redshift/latest/mgmt/redshift-iam-access-control-identity-based.html Using Identity-Based Policies for Amazon Redshift>+-- in the /Amazon Redshift Cluster Management Guide/.+scheduledAction_iamRole :: Lens.Lens' ScheduledAction (Prelude.Maybe Prelude.Text)+scheduledAction_iamRole = Lens.lens (\ScheduledAction' {iamRole} -> iamRole) (\s@ScheduledAction' {} a -> s {iamRole = a} :: ScheduledAction)++-- | List of times when the scheduled action will run.+scheduledAction_nextInvocations :: Lens.Lens' ScheduledAction (Prelude.Maybe [Prelude.UTCTime])+scheduledAction_nextInvocations = Lens.lens (\ScheduledAction' {nextInvocations} -> nextInvocations) (\s@ScheduledAction' {} a -> s {nextInvocations = a} :: ScheduledAction) Prelude.. Lens.mapping Lens.coerced++-- | The schedule for a one-time (at format) or recurring (cron format)+-- scheduled action. Schedule invocations must be separated by at least one+-- hour.+--+-- Format of at expressions is \"@at(yyyy-mm-ddThh:mm:ss)@\". For example,+-- \"@at(2016-03-04T17:27:00)@\".+--+-- Format of cron expressions is+-- \"@cron(Minutes Hours Day-of-month Month Day-of-week Year)@\". For+-- example, \"@cron(0 10 ? * MON *)@\". For more information, see+-- <https://docs.aws.amazon.com/AmazonCloudWatch/latest/events/ScheduledEvents.html#CronExpressions Cron Expressions>+-- in the /Amazon CloudWatch Events User Guide/.+scheduledAction_schedule :: Lens.Lens' ScheduledAction (Prelude.Maybe Prelude.Text)+scheduledAction_schedule = Lens.lens (\ScheduledAction' {schedule} -> schedule) (\s@ScheduledAction' {} a -> s {schedule = a} :: ScheduledAction)++-- | The description of the scheduled action.+scheduledAction_scheduledActionDescription :: Lens.Lens' ScheduledAction (Prelude.Maybe Prelude.Text)+scheduledAction_scheduledActionDescription = Lens.lens (\ScheduledAction' {scheduledActionDescription} -> scheduledActionDescription) (\s@ScheduledAction' {} a -> s {scheduledActionDescription = a} :: ScheduledAction)++-- | The name of the scheduled action.+scheduledAction_scheduledActionName :: Lens.Lens' ScheduledAction (Prelude.Maybe Prelude.Text)+scheduledAction_scheduledActionName = Lens.lens (\ScheduledAction' {scheduledActionName} -> scheduledActionName) (\s@ScheduledAction' {} a -> s {scheduledActionName = a} :: ScheduledAction)++-- | The start time in UTC when the schedule is active. Before this time, the+-- scheduled action does not trigger.+scheduledAction_startTime :: Lens.Lens' ScheduledAction (Prelude.Maybe Prelude.UTCTime)+scheduledAction_startTime = Lens.lens (\ScheduledAction' {startTime} -> startTime) (\s@ScheduledAction' {} a -> s {startTime = a} :: ScheduledAction) Prelude.. Lens.mapping Data._Time++-- | The state of the scheduled action. For example, @DISABLED@.+scheduledAction_state :: Lens.Lens' ScheduledAction (Prelude.Maybe ScheduledActionState)+scheduledAction_state = Lens.lens (\ScheduledAction' {state} -> state) (\s@ScheduledAction' {} a -> s {state = a} :: ScheduledAction)++-- | A JSON format string of the Amazon Redshift API operation with input+-- parameters.+--+-- \"@{\\\"ResizeCluster\\\":{\\\"NodeType\\\":\\\"ds2.8xlarge\\\",\\\"ClusterIdentifier\\\":\\\"my-test-cluster\\\",\\\"NumberOfNodes\\\":3}}@\".+scheduledAction_targetAction :: Lens.Lens' ScheduledAction (Prelude.Maybe ScheduledActionType)+scheduledAction_targetAction = Lens.lens (\ScheduledAction' {targetAction} -> targetAction) (\s@ScheduledAction' {} a -> s {targetAction = a} :: ScheduledAction)++instance Data.FromXML ScheduledAction where+ parseXML x =+ ScheduledAction'+ Prelude.<$> (x Data..@? "EndTime")+ Prelude.<*> (x Data..@? "IamRole")+ Prelude.<*> ( x+ Data..@? "NextInvocations"+ Core..!@ Prelude.mempty+ Prelude.>>= Core.may (Data.parseXMLList "ScheduledActionTime")+ )+ Prelude.<*> (x Data..@? "Schedule")+ Prelude.<*> (x Data..@? "ScheduledActionDescription")+ Prelude.<*> (x Data..@? "ScheduledActionName")+ Prelude.<*> (x Data..@? "StartTime")+ Prelude.<*> (x Data..@? "State")+ Prelude.<*> (x Data..@? "TargetAction")++instance Prelude.Hashable ScheduledAction where+ hashWithSalt _salt ScheduledAction' {..} =+ _salt+ `Prelude.hashWithSalt` endTime+ `Prelude.hashWithSalt` iamRole+ `Prelude.hashWithSalt` nextInvocations+ `Prelude.hashWithSalt` schedule+ `Prelude.hashWithSalt` scheduledActionDescription+ `Prelude.hashWithSalt` scheduledActionName+ `Prelude.hashWithSalt` startTime+ `Prelude.hashWithSalt` state+ `Prelude.hashWithSalt` targetAction++instance Prelude.NFData ScheduledAction where+ rnf ScheduledAction' {..} =+ Prelude.rnf endTime+ `Prelude.seq` Prelude.rnf iamRole+ `Prelude.seq` Prelude.rnf nextInvocations+ `Prelude.seq` Prelude.rnf schedule+ `Prelude.seq` Prelude.rnf scheduledActionDescription+ `Prelude.seq` Prelude.rnf scheduledActionName+ `Prelude.seq` Prelude.rnf startTime+ `Prelude.seq` Prelude.rnf state+ `Prelude.seq` Prelude.rnf targetAction
+ gen/Amazonka/Redshift/Types/ScheduledActionFilter.hs view
@@ -0,0 +1,87 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module : Amazonka.Redshift.Types.ScheduledActionFilter+-- Copyright : (c) 2013-2023 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.Redshift.Types.ScheduledActionFilter where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Redshift.Internal+import Amazonka.Redshift.Types.ScheduledActionFilterName++-- | A set of elements to filter the returned scheduled actions.+--+-- /See:/ 'newScheduledActionFilter' smart constructor.+data ScheduledActionFilter = ScheduledActionFilter'+ { -- | The type of element to filter.+ name :: ScheduledActionFilterName,+ -- | List of values. Compare if the value (of type defined by @Name@) equals+ -- an item in the list of scheduled actions.+ values :: [Prelude.Text]+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ScheduledActionFilter' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'name', 'scheduledActionFilter_name' - The type of element to filter.+--+-- 'values', 'scheduledActionFilter_values' - List of values. Compare if the value (of type defined by @Name@) equals+-- an item in the list of scheduled actions.+newScheduledActionFilter ::+ -- | 'name'+ ScheduledActionFilterName ->+ ScheduledActionFilter+newScheduledActionFilter pName_ =+ ScheduledActionFilter'+ { name = pName_,+ values = Prelude.mempty+ }++-- | The type of element to filter.+scheduledActionFilter_name :: Lens.Lens' ScheduledActionFilter ScheduledActionFilterName+scheduledActionFilter_name = Lens.lens (\ScheduledActionFilter' {name} -> name) (\s@ScheduledActionFilter' {} a -> s {name = a} :: ScheduledActionFilter)++-- | List of values. Compare if the value (of type defined by @Name@) equals+-- an item in the list of scheduled actions.+scheduledActionFilter_values :: Lens.Lens' ScheduledActionFilter [Prelude.Text]+scheduledActionFilter_values = Lens.lens (\ScheduledActionFilter' {values} -> values) (\s@ScheduledActionFilter' {} a -> s {values = a} :: ScheduledActionFilter) Prelude.. Lens.coerced++instance Prelude.Hashable ScheduledActionFilter where+ hashWithSalt _salt ScheduledActionFilter' {..} =+ _salt+ `Prelude.hashWithSalt` name+ `Prelude.hashWithSalt` values++instance Prelude.NFData ScheduledActionFilter where+ rnf ScheduledActionFilter' {..} =+ Prelude.rnf name `Prelude.seq` Prelude.rnf values++instance Data.ToQuery ScheduledActionFilter where+ toQuery ScheduledActionFilter' {..} =+ Prelude.mconcat+ [ "Name" Data.=: name,+ "Values" Data.=: Data.toQueryList "item" values+ ]
+ gen/Amazonka/Redshift/Types/ScheduledActionFilterName.hs view
@@ -0,0 +1,72 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE GeneralizedNewtypeDeriving #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module : Amazonka.Redshift.Types.ScheduledActionFilterName+-- Copyright : (c) 2013-2023 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.Redshift.Types.ScheduledActionFilterName+ ( ScheduledActionFilterName+ ( ..,+ ScheduledActionFilterName_Cluster_identifier,+ ScheduledActionFilterName_Iam_role+ ),+ )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Redshift.Internal++newtype ScheduledActionFilterName = ScheduledActionFilterName'+ { fromScheduledActionFilterName ::+ Data.Text+ }+ deriving stock+ ( Prelude.Show,+ Prelude.Read,+ Prelude.Eq,+ Prelude.Ord,+ Prelude.Generic+ )+ deriving newtype+ ( Prelude.Hashable,+ Prelude.NFData,+ Data.FromText,+ Data.ToText,+ Data.ToByteString,+ Data.ToLog,+ Data.ToHeader,+ Data.ToQuery,+ Data.FromJSON,+ Data.FromJSONKey,+ Data.ToJSON,+ Data.ToJSONKey,+ Data.FromXML,+ Data.ToXML+ )++pattern ScheduledActionFilterName_Cluster_identifier :: ScheduledActionFilterName+pattern ScheduledActionFilterName_Cluster_identifier = ScheduledActionFilterName' "cluster-identifier"++pattern ScheduledActionFilterName_Iam_role :: ScheduledActionFilterName+pattern ScheduledActionFilterName_Iam_role = ScheduledActionFilterName' "iam-role"++{-# COMPLETE+ ScheduledActionFilterName_Cluster_identifier,+ ScheduledActionFilterName_Iam_role,+ ScheduledActionFilterName'+ #-}
+ gen/Amazonka/Redshift/Types/ScheduledActionState.hs view
@@ -0,0 +1,72 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE GeneralizedNewtypeDeriving #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module : Amazonka.Redshift.Types.ScheduledActionState+-- Copyright : (c) 2013-2023 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.Redshift.Types.ScheduledActionState+ ( ScheduledActionState+ ( ..,+ ScheduledActionState_ACTIVE,+ ScheduledActionState_DISABLED+ ),+ )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Redshift.Internal++newtype ScheduledActionState = ScheduledActionState'+ { fromScheduledActionState ::+ Data.Text+ }+ deriving stock+ ( Prelude.Show,+ Prelude.Read,+ Prelude.Eq,+ Prelude.Ord,+ Prelude.Generic+ )+ deriving newtype+ ( Prelude.Hashable,+ Prelude.NFData,+ Data.FromText,+ Data.ToText,+ Data.ToByteString,+ Data.ToLog,+ Data.ToHeader,+ Data.ToQuery,+ Data.FromJSON,+ Data.FromJSONKey,+ Data.ToJSON,+ Data.ToJSONKey,+ Data.FromXML,+ Data.ToXML+ )++pattern ScheduledActionState_ACTIVE :: ScheduledActionState+pattern ScheduledActionState_ACTIVE = ScheduledActionState' "ACTIVE"++pattern ScheduledActionState_DISABLED :: ScheduledActionState+pattern ScheduledActionState_DISABLED = ScheduledActionState' "DISABLED"++{-# COMPLETE+ ScheduledActionState_ACTIVE,+ ScheduledActionState_DISABLED,+ ScheduledActionState'+ #-}
+ gen/Amazonka/Redshift/Types/ScheduledActionType.hs view
@@ -0,0 +1,106 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module : Amazonka.Redshift.Types.ScheduledActionType+-- Copyright : (c) 2013-2023 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.Redshift.Types.ScheduledActionType where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Redshift.Internal+import Amazonka.Redshift.Types.PauseClusterMessage+import Amazonka.Redshift.Types.ResizeClusterMessage+import Amazonka.Redshift.Types.ResumeClusterMessage++-- | The action type that specifies an Amazon Redshift API operation that is+-- supported by the Amazon Redshift scheduler.+--+-- /See:/ 'newScheduledActionType' smart constructor.+data ScheduledActionType = ScheduledActionType'+ { -- | An action that runs a @PauseCluster@ API operation.+ pauseCluster :: Prelude.Maybe PauseClusterMessage,+ -- | An action that runs a @ResizeCluster@ API operation.+ resizeCluster :: Prelude.Maybe ResizeClusterMessage,+ -- | An action that runs a @ResumeCluster@ API operation.+ resumeCluster :: Prelude.Maybe ResumeClusterMessage+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ScheduledActionType' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'pauseCluster', 'scheduledActionType_pauseCluster' - An action that runs a @PauseCluster@ API operation.+--+-- 'resizeCluster', 'scheduledActionType_resizeCluster' - An action that runs a @ResizeCluster@ API operation.+--+-- 'resumeCluster', 'scheduledActionType_resumeCluster' - An action that runs a @ResumeCluster@ API operation.+newScheduledActionType ::+ ScheduledActionType+newScheduledActionType =+ ScheduledActionType'+ { pauseCluster =+ Prelude.Nothing,+ resizeCluster = Prelude.Nothing,+ resumeCluster = Prelude.Nothing+ }++-- | An action that runs a @PauseCluster@ API operation.+scheduledActionType_pauseCluster :: Lens.Lens' ScheduledActionType (Prelude.Maybe PauseClusterMessage)+scheduledActionType_pauseCluster = Lens.lens (\ScheduledActionType' {pauseCluster} -> pauseCluster) (\s@ScheduledActionType' {} a -> s {pauseCluster = a} :: ScheduledActionType)++-- | An action that runs a @ResizeCluster@ API operation.+scheduledActionType_resizeCluster :: Lens.Lens' ScheduledActionType (Prelude.Maybe ResizeClusterMessage)+scheduledActionType_resizeCluster = Lens.lens (\ScheduledActionType' {resizeCluster} -> resizeCluster) (\s@ScheduledActionType' {} a -> s {resizeCluster = a} :: ScheduledActionType)++-- | An action that runs a @ResumeCluster@ API operation.+scheduledActionType_resumeCluster :: Lens.Lens' ScheduledActionType (Prelude.Maybe ResumeClusterMessage)+scheduledActionType_resumeCluster = Lens.lens (\ScheduledActionType' {resumeCluster} -> resumeCluster) (\s@ScheduledActionType' {} a -> s {resumeCluster = a} :: ScheduledActionType)++instance Data.FromXML ScheduledActionType where+ parseXML x =+ ScheduledActionType'+ Prelude.<$> (x Data..@? "PauseCluster")+ Prelude.<*> (x Data..@? "ResizeCluster")+ Prelude.<*> (x Data..@? "ResumeCluster")++instance Prelude.Hashable ScheduledActionType where+ hashWithSalt _salt ScheduledActionType' {..} =+ _salt+ `Prelude.hashWithSalt` pauseCluster+ `Prelude.hashWithSalt` resizeCluster+ `Prelude.hashWithSalt` resumeCluster++instance Prelude.NFData ScheduledActionType where+ rnf ScheduledActionType' {..} =+ Prelude.rnf pauseCluster+ `Prelude.seq` Prelude.rnf resizeCluster+ `Prelude.seq` Prelude.rnf resumeCluster++instance Data.ToQuery ScheduledActionType where+ toQuery ScheduledActionType' {..} =+ Prelude.mconcat+ [ "PauseCluster" Data.=: pauseCluster,+ "ResizeCluster" Data.=: resizeCluster,+ "ResumeCluster" Data.=: resumeCluster+ ]
+ gen/Amazonka/Redshift/Types/ScheduledActionTypeValues.hs view
@@ -0,0 +1,77 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE GeneralizedNewtypeDeriving #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module : Amazonka.Redshift.Types.ScheduledActionTypeValues+-- Copyright : (c) 2013-2023 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.Redshift.Types.ScheduledActionTypeValues+ ( ScheduledActionTypeValues+ ( ..,+ ScheduledActionTypeValues_PauseCluster,+ ScheduledActionTypeValues_ResizeCluster,+ ScheduledActionTypeValues_ResumeCluster+ ),+ )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Redshift.Internal++newtype ScheduledActionTypeValues = ScheduledActionTypeValues'+ { fromScheduledActionTypeValues ::+ Data.Text+ }+ deriving stock+ ( Prelude.Show,+ Prelude.Read,+ Prelude.Eq,+ Prelude.Ord,+ Prelude.Generic+ )+ deriving newtype+ ( Prelude.Hashable,+ Prelude.NFData,+ Data.FromText,+ Data.ToText,+ Data.ToByteString,+ Data.ToLog,+ Data.ToHeader,+ Data.ToQuery,+ Data.FromJSON,+ Data.FromJSONKey,+ Data.ToJSON,+ Data.ToJSONKey,+ Data.FromXML,+ Data.ToXML+ )++pattern ScheduledActionTypeValues_PauseCluster :: ScheduledActionTypeValues+pattern ScheduledActionTypeValues_PauseCluster = ScheduledActionTypeValues' "PauseCluster"++pattern ScheduledActionTypeValues_ResizeCluster :: ScheduledActionTypeValues+pattern ScheduledActionTypeValues_ResizeCluster = ScheduledActionTypeValues' "ResizeCluster"++pattern ScheduledActionTypeValues_ResumeCluster :: ScheduledActionTypeValues+pattern ScheduledActionTypeValues_ResumeCluster = ScheduledActionTypeValues' "ResumeCluster"++{-# COMPLETE+ ScheduledActionTypeValues_PauseCluster,+ ScheduledActionTypeValues_ResizeCluster,+ ScheduledActionTypeValues_ResumeCluster,+ ScheduledActionTypeValues'+ #-}
+ gen/Amazonka/Redshift/Types/Snapshot.hs view
@@ -0,0 +1,618 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module : Amazonka.Redshift.Types.Snapshot+-- Copyright : (c) 2013-2023 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.Redshift.Types.Snapshot where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Redshift.Internal+import Amazonka.Redshift.Types.AccountWithRestoreAccess+import Amazonka.Redshift.Types.Tag++-- | Describes a snapshot.+--+-- /See:/ 'newSnapshot' smart constructor.+data Snapshot = Snapshot'+ { -- | A list of the Amazon Web Services accounts authorized to restore the+ -- snapshot. Returns @null@ if no accounts are authorized. Visible only to+ -- the snapshot owner.+ accountsWithRestoreAccess :: Prelude.Maybe [AccountWithRestoreAccess],+ -- | The size of the incremental backup.+ actualIncrementalBackupSizeInMegaBytes :: Prelude.Maybe Prelude.Double,+ -- | The Availability Zone in which the cluster was created.+ availabilityZone :: Prelude.Maybe Prelude.Text,+ -- | The number of megabytes that have been transferred to the snapshot+ -- backup.+ backupProgressInMegaBytes :: Prelude.Maybe Prelude.Double,+ -- | The time (UTC) when the cluster was originally created.+ clusterCreateTime :: Prelude.Maybe Data.ISO8601,+ -- | The identifier of the cluster for which the snapshot was taken.+ clusterIdentifier :: Prelude.Maybe Prelude.Text,+ -- | The version ID of the Amazon Redshift engine that is running on the+ -- cluster.+ clusterVersion :: Prelude.Maybe Prelude.Text,+ -- | The number of megabytes per second being transferred to the snapshot+ -- backup. Returns @0@ for a completed backup.+ currentBackupRateInMegaBytesPerSecond :: Prelude.Maybe Prelude.Double,+ -- | The name of the database that was created when the cluster was created.+ dbName :: Prelude.Maybe Prelude.Text,+ -- | The amount of time an in-progress snapshot backup has been running, or+ -- the amount of time it took a completed backup to finish.+ elapsedTimeInSeconds :: Prelude.Maybe Prelude.Integer,+ -- | If @true@, the data in the snapshot is encrypted at rest.+ encrypted :: Prelude.Maybe Prelude.Bool,+ -- | A boolean that indicates whether the snapshot data is encrypted using+ -- the HSM keys of the source cluster. @true@ indicates that the data is+ -- encrypted using HSM keys.+ encryptedWithHSM :: Prelude.Maybe Prelude.Bool,+ -- | The cluster version of the cluster used to create the snapshot. For+ -- example, 1.0.15503.+ engineFullVersion :: Prelude.Maybe Prelude.Text,+ -- | An option that specifies whether to create the cluster with enhanced VPC+ -- routing enabled. To create a cluster that uses enhanced VPC routing, the+ -- cluster must be in a VPC. For more information, see+ -- <https://docs.aws.amazon.com/redshift/latest/mgmt/enhanced-vpc-routing.html Enhanced VPC Routing>+ -- in the Amazon Redshift Cluster Management Guide.+ --+ -- If this option is @true@, enhanced VPC routing is enabled.+ --+ -- Default: false+ enhancedVpcRouting :: Prelude.Maybe Prelude.Bool,+ -- | The estimate of the time remaining before the snapshot backup will+ -- complete. Returns @0@ for a completed backup.+ estimatedSecondsToCompletion :: Prelude.Maybe Prelude.Integer,+ -- | The Key Management Service (KMS) key ID of the encryption key that was+ -- used to encrypt data in the cluster from which the snapshot was taken.+ kmsKeyId :: Prelude.Maybe Prelude.Text,+ -- | The name of the maintenance track for the snapshot.+ maintenanceTrackName :: Prelude.Maybe Prelude.Text,+ -- | The number of days until a manual snapshot will pass its retention+ -- period.+ manualSnapshotRemainingDays :: Prelude.Maybe Prelude.Int,+ -- | The number of days that a manual snapshot is retained. If the value is+ -- -1, the manual snapshot is retained indefinitely.+ --+ -- The value must be either -1 or an integer between 1 and 3,653.+ manualSnapshotRetentionPeriod :: Prelude.Maybe Prelude.Int,+ -- | The admin user name for the cluster.+ masterUsername :: Prelude.Maybe Prelude.Text,+ -- | The node type of the nodes in the cluster.+ nodeType :: Prelude.Maybe Prelude.Text,+ -- | The number of nodes in the cluster.+ numberOfNodes :: Prelude.Maybe Prelude.Int,+ -- | For manual snapshots, the Amazon Web Services account used to create or+ -- copy the snapshot. For automatic snapshots, the owner of the cluster.+ -- The owner can perform all snapshot actions, such as sharing a manual+ -- snapshot.+ ownerAccount :: Prelude.Maybe Prelude.Text,+ -- | The port that the cluster is listening on.+ port :: Prelude.Maybe Prelude.Int,+ -- | The list of node types that this cluster snapshot is able to restore+ -- into.+ restorableNodeTypes :: Prelude.Maybe [Prelude.Text],+ -- | The time (in UTC format) when Amazon Redshift began the snapshot. A+ -- snapshot contains a copy of the cluster data as of this exact time.+ snapshotCreateTime :: Prelude.Maybe Data.ISO8601,+ -- | The snapshot identifier that is provided in the request.+ snapshotIdentifier :: Prelude.Maybe Prelude.Text,+ -- | A timestamp representing the start of the retention period for the+ -- snapshot.+ snapshotRetentionStartTime :: Prelude.Maybe Data.ISO8601,+ -- | The snapshot type. Snapshots created using CreateClusterSnapshot and+ -- CopyClusterSnapshot are of type \"manual\".+ snapshotType :: Prelude.Maybe Prelude.Text,+ -- | The source region from which the snapshot was copied.+ sourceRegion :: Prelude.Maybe Prelude.Text,+ -- | The snapshot status. The value of the status depends on the API+ -- operation used:+ --+ -- - CreateClusterSnapshot and CopyClusterSnapshot returns status as+ -- \"creating\".+ --+ -- - DescribeClusterSnapshots returns status as \"creating\",+ -- \"available\", \"final snapshot\", or \"failed\".+ --+ -- - DeleteClusterSnapshot returns status as \"deleted\".+ status :: Prelude.Maybe Prelude.Text,+ -- | The list of tags for the cluster snapshot.+ tags :: Prelude.Maybe [Tag],+ -- | The size of the complete set of backup data that would be used to+ -- restore the cluster.+ totalBackupSizeInMegaBytes :: Prelude.Maybe Prelude.Double,+ -- | The VPC identifier of the cluster if the snapshot is from a cluster in a+ -- VPC. Otherwise, this field is not in the output.+ vpcId :: Prelude.Maybe Prelude.Text+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'Snapshot' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'accountsWithRestoreAccess', 'snapshot_accountsWithRestoreAccess' - A list of the Amazon Web Services accounts authorized to restore the+-- snapshot. Returns @null@ if no accounts are authorized. Visible only to+-- the snapshot owner.+--+-- 'actualIncrementalBackupSizeInMegaBytes', 'snapshot_actualIncrementalBackupSizeInMegaBytes' - The size of the incremental backup.+--+-- 'availabilityZone', 'snapshot_availabilityZone' - The Availability Zone in which the cluster was created.+--+-- 'backupProgressInMegaBytes', 'snapshot_backupProgressInMegaBytes' - The number of megabytes that have been transferred to the snapshot+-- backup.+--+-- 'clusterCreateTime', 'snapshot_clusterCreateTime' - The time (UTC) when the cluster was originally created.+--+-- 'clusterIdentifier', 'snapshot_clusterIdentifier' - The identifier of the cluster for which the snapshot was taken.+--+-- 'clusterVersion', 'snapshot_clusterVersion' - The version ID of the Amazon Redshift engine that is running on the+-- cluster.+--+-- 'currentBackupRateInMegaBytesPerSecond', 'snapshot_currentBackupRateInMegaBytesPerSecond' - The number of megabytes per second being transferred to the snapshot+-- backup. Returns @0@ for a completed backup.+--+-- 'dbName', 'snapshot_dbName' - The name of the database that was created when the cluster was created.+--+-- 'elapsedTimeInSeconds', 'snapshot_elapsedTimeInSeconds' - The amount of time an in-progress snapshot backup has been running, or+-- the amount of time it took a completed backup to finish.+--+-- 'encrypted', 'snapshot_encrypted' - If @true@, the data in the snapshot is encrypted at rest.+--+-- 'encryptedWithHSM', 'snapshot_encryptedWithHSM' - A boolean that indicates whether the snapshot data is encrypted using+-- the HSM keys of the source cluster. @true@ indicates that the data is+-- encrypted using HSM keys.+--+-- 'engineFullVersion', 'snapshot_engineFullVersion' - The cluster version of the cluster used to create the snapshot. For+-- example, 1.0.15503.+--+-- 'enhancedVpcRouting', 'snapshot_enhancedVpcRouting' - An option that specifies whether to create the cluster with enhanced VPC+-- routing enabled. To create a cluster that uses enhanced VPC routing, the+-- cluster must be in a VPC. For more information, see+-- <https://docs.aws.amazon.com/redshift/latest/mgmt/enhanced-vpc-routing.html Enhanced VPC Routing>+-- in the Amazon Redshift Cluster Management Guide.+--+-- If this option is @true@, enhanced VPC routing is enabled.+--+-- Default: false+--+-- 'estimatedSecondsToCompletion', 'snapshot_estimatedSecondsToCompletion' - The estimate of the time remaining before the snapshot backup will+-- complete. Returns @0@ for a completed backup.+--+-- 'kmsKeyId', 'snapshot_kmsKeyId' - The Key Management Service (KMS) key ID of the encryption key that was+-- used to encrypt data in the cluster from which the snapshot was taken.+--+-- 'maintenanceTrackName', 'snapshot_maintenanceTrackName' - The name of the maintenance track for the snapshot.+--+-- 'manualSnapshotRemainingDays', 'snapshot_manualSnapshotRemainingDays' - The number of days until a manual snapshot will pass its retention+-- period.+--+-- 'manualSnapshotRetentionPeriod', 'snapshot_manualSnapshotRetentionPeriod' - The number of days that a manual snapshot is retained. If the value is+-- -1, the manual snapshot is retained indefinitely.+--+-- The value must be either -1 or an integer between 1 and 3,653.+--+-- 'masterUsername', 'snapshot_masterUsername' - The admin user name for the cluster.+--+-- 'nodeType', 'snapshot_nodeType' - The node type of the nodes in the cluster.+--+-- 'numberOfNodes', 'snapshot_numberOfNodes' - The number of nodes in the cluster.+--+-- 'ownerAccount', 'snapshot_ownerAccount' - For manual snapshots, the Amazon Web Services account used to create or+-- copy the snapshot. For automatic snapshots, the owner of the cluster.+-- The owner can perform all snapshot actions, such as sharing a manual+-- snapshot.+--+-- 'port', 'snapshot_port' - The port that the cluster is listening on.+--+-- 'restorableNodeTypes', 'snapshot_restorableNodeTypes' - The list of node types that this cluster snapshot is able to restore+-- into.+--+-- 'snapshotCreateTime', 'snapshot_snapshotCreateTime' - The time (in UTC format) when Amazon Redshift began the snapshot. A+-- snapshot contains a copy of the cluster data as of this exact time.+--+-- 'snapshotIdentifier', 'snapshot_snapshotIdentifier' - The snapshot identifier that is provided in the request.+--+-- 'snapshotRetentionStartTime', 'snapshot_snapshotRetentionStartTime' - A timestamp representing the start of the retention period for the+-- snapshot.+--+-- 'snapshotType', 'snapshot_snapshotType' - The snapshot type. Snapshots created using CreateClusterSnapshot and+-- CopyClusterSnapshot are of type \"manual\".+--+-- 'sourceRegion', 'snapshot_sourceRegion' - The source region from which the snapshot was copied.+--+-- 'status', 'snapshot_status' - The snapshot status. The value of the status depends on the API+-- operation used:+--+-- - CreateClusterSnapshot and CopyClusterSnapshot returns status as+-- \"creating\".+--+-- - DescribeClusterSnapshots returns status as \"creating\",+-- \"available\", \"final snapshot\", or \"failed\".+--+-- - DeleteClusterSnapshot returns status as \"deleted\".+--+-- 'tags', 'snapshot_tags' - The list of tags for the cluster snapshot.+--+-- 'totalBackupSizeInMegaBytes', 'snapshot_totalBackupSizeInMegaBytes' - The size of the complete set of backup data that would be used to+-- restore the cluster.+--+-- 'vpcId', 'snapshot_vpcId' - The VPC identifier of the cluster if the snapshot is from a cluster in a+-- VPC. Otherwise, this field is not in the output.+newSnapshot ::+ Snapshot+newSnapshot =+ Snapshot'+ { accountsWithRestoreAccess =+ Prelude.Nothing,+ actualIncrementalBackupSizeInMegaBytes =+ Prelude.Nothing,+ availabilityZone = Prelude.Nothing,+ backupProgressInMegaBytes = Prelude.Nothing,+ clusterCreateTime = Prelude.Nothing,+ clusterIdentifier = Prelude.Nothing,+ clusterVersion = Prelude.Nothing,+ currentBackupRateInMegaBytesPerSecond =+ Prelude.Nothing,+ dbName = Prelude.Nothing,+ elapsedTimeInSeconds = Prelude.Nothing,+ encrypted = Prelude.Nothing,+ encryptedWithHSM = Prelude.Nothing,+ engineFullVersion = Prelude.Nothing,+ enhancedVpcRouting = Prelude.Nothing,+ estimatedSecondsToCompletion = Prelude.Nothing,+ kmsKeyId = Prelude.Nothing,+ maintenanceTrackName = Prelude.Nothing,+ manualSnapshotRemainingDays = Prelude.Nothing,+ manualSnapshotRetentionPeriod = Prelude.Nothing,+ masterUsername = Prelude.Nothing,+ nodeType = Prelude.Nothing,+ numberOfNodes = Prelude.Nothing,+ ownerAccount = Prelude.Nothing,+ port = Prelude.Nothing,+ restorableNodeTypes = Prelude.Nothing,+ snapshotCreateTime = Prelude.Nothing,+ snapshotIdentifier = Prelude.Nothing,+ snapshotRetentionStartTime = Prelude.Nothing,+ snapshotType = Prelude.Nothing,+ sourceRegion = Prelude.Nothing,+ status = Prelude.Nothing,+ tags = Prelude.Nothing,+ totalBackupSizeInMegaBytes = Prelude.Nothing,+ vpcId = Prelude.Nothing+ }++-- | A list of the Amazon Web Services accounts authorized to restore the+-- snapshot. Returns @null@ if no accounts are authorized. Visible only to+-- the snapshot owner.+snapshot_accountsWithRestoreAccess :: Lens.Lens' Snapshot (Prelude.Maybe [AccountWithRestoreAccess])+snapshot_accountsWithRestoreAccess = Lens.lens (\Snapshot' {accountsWithRestoreAccess} -> accountsWithRestoreAccess) (\s@Snapshot' {} a -> s {accountsWithRestoreAccess = a} :: Snapshot) Prelude.. Lens.mapping Lens.coerced++-- | The size of the incremental backup.+snapshot_actualIncrementalBackupSizeInMegaBytes :: Lens.Lens' Snapshot (Prelude.Maybe Prelude.Double)+snapshot_actualIncrementalBackupSizeInMegaBytes = Lens.lens (\Snapshot' {actualIncrementalBackupSizeInMegaBytes} -> actualIncrementalBackupSizeInMegaBytes) (\s@Snapshot' {} a -> s {actualIncrementalBackupSizeInMegaBytes = a} :: Snapshot)++-- | The Availability Zone in which the cluster was created.+snapshot_availabilityZone :: Lens.Lens' Snapshot (Prelude.Maybe Prelude.Text)+snapshot_availabilityZone = Lens.lens (\Snapshot' {availabilityZone} -> availabilityZone) (\s@Snapshot' {} a -> s {availabilityZone = a} :: Snapshot)++-- | The number of megabytes that have been transferred to the snapshot+-- backup.+snapshot_backupProgressInMegaBytes :: Lens.Lens' Snapshot (Prelude.Maybe Prelude.Double)+snapshot_backupProgressInMegaBytes = Lens.lens (\Snapshot' {backupProgressInMegaBytes} -> backupProgressInMegaBytes) (\s@Snapshot' {} a -> s {backupProgressInMegaBytes = a} :: Snapshot)++-- | The time (UTC) when the cluster was originally created.+snapshot_clusterCreateTime :: Lens.Lens' Snapshot (Prelude.Maybe Prelude.UTCTime)+snapshot_clusterCreateTime = Lens.lens (\Snapshot' {clusterCreateTime} -> clusterCreateTime) (\s@Snapshot' {} a -> s {clusterCreateTime = a} :: Snapshot) Prelude.. Lens.mapping Data._Time++-- | The identifier of the cluster for which the snapshot was taken.+snapshot_clusterIdentifier :: Lens.Lens' Snapshot (Prelude.Maybe Prelude.Text)+snapshot_clusterIdentifier = Lens.lens (\Snapshot' {clusterIdentifier} -> clusterIdentifier) (\s@Snapshot' {} a -> s {clusterIdentifier = a} :: Snapshot)++-- | The version ID of the Amazon Redshift engine that is running on the+-- cluster.+snapshot_clusterVersion :: Lens.Lens' Snapshot (Prelude.Maybe Prelude.Text)+snapshot_clusterVersion = Lens.lens (\Snapshot' {clusterVersion} -> clusterVersion) (\s@Snapshot' {} a -> s {clusterVersion = a} :: Snapshot)++-- | The number of megabytes per second being transferred to the snapshot+-- backup. Returns @0@ for a completed backup.+snapshot_currentBackupRateInMegaBytesPerSecond :: Lens.Lens' Snapshot (Prelude.Maybe Prelude.Double)+snapshot_currentBackupRateInMegaBytesPerSecond = Lens.lens (\Snapshot' {currentBackupRateInMegaBytesPerSecond} -> currentBackupRateInMegaBytesPerSecond) (\s@Snapshot' {} a -> s {currentBackupRateInMegaBytesPerSecond = a} :: Snapshot)++-- | The name of the database that was created when the cluster was created.+snapshot_dbName :: Lens.Lens' Snapshot (Prelude.Maybe Prelude.Text)+snapshot_dbName = Lens.lens (\Snapshot' {dbName} -> dbName) (\s@Snapshot' {} a -> s {dbName = a} :: Snapshot)++-- | The amount of time an in-progress snapshot backup has been running, or+-- the amount of time it took a completed backup to finish.+snapshot_elapsedTimeInSeconds :: Lens.Lens' Snapshot (Prelude.Maybe Prelude.Integer)+snapshot_elapsedTimeInSeconds = Lens.lens (\Snapshot' {elapsedTimeInSeconds} -> elapsedTimeInSeconds) (\s@Snapshot' {} a -> s {elapsedTimeInSeconds = a} :: Snapshot)++-- | If @true@, the data in the snapshot is encrypted at rest.+snapshot_encrypted :: Lens.Lens' Snapshot (Prelude.Maybe Prelude.Bool)+snapshot_encrypted = Lens.lens (\Snapshot' {encrypted} -> encrypted) (\s@Snapshot' {} a -> s {encrypted = a} :: Snapshot)++-- | A boolean that indicates whether the snapshot data is encrypted using+-- the HSM keys of the source cluster. @true@ indicates that the data is+-- encrypted using HSM keys.+snapshot_encryptedWithHSM :: Lens.Lens' Snapshot (Prelude.Maybe Prelude.Bool)+snapshot_encryptedWithHSM = Lens.lens (\Snapshot' {encryptedWithHSM} -> encryptedWithHSM) (\s@Snapshot' {} a -> s {encryptedWithHSM = a} :: Snapshot)++-- | The cluster version of the cluster used to create the snapshot. For+-- example, 1.0.15503.+snapshot_engineFullVersion :: Lens.Lens' Snapshot (Prelude.Maybe Prelude.Text)+snapshot_engineFullVersion = Lens.lens (\Snapshot' {engineFullVersion} -> engineFullVersion) (\s@Snapshot' {} a -> s {engineFullVersion = a} :: Snapshot)++-- | An option that specifies whether to create the cluster with enhanced VPC+-- routing enabled. To create a cluster that uses enhanced VPC routing, the+-- cluster must be in a VPC. For more information, see+-- <https://docs.aws.amazon.com/redshift/latest/mgmt/enhanced-vpc-routing.html Enhanced VPC Routing>+-- in the Amazon Redshift Cluster Management Guide.+--+-- If this option is @true@, enhanced VPC routing is enabled.+--+-- Default: false+snapshot_enhancedVpcRouting :: Lens.Lens' Snapshot (Prelude.Maybe Prelude.Bool)+snapshot_enhancedVpcRouting = Lens.lens (\Snapshot' {enhancedVpcRouting} -> enhancedVpcRouting) (\s@Snapshot' {} a -> s {enhancedVpcRouting = a} :: Snapshot)++-- | The estimate of the time remaining before the snapshot backup will+-- complete. Returns @0@ for a completed backup.+snapshot_estimatedSecondsToCompletion :: Lens.Lens' Snapshot (Prelude.Maybe Prelude.Integer)+snapshot_estimatedSecondsToCompletion = Lens.lens (\Snapshot' {estimatedSecondsToCompletion} -> estimatedSecondsToCompletion) (\s@Snapshot' {} a -> s {estimatedSecondsToCompletion = a} :: Snapshot)++-- | The Key Management Service (KMS) key ID of the encryption key that was+-- used to encrypt data in the cluster from which the snapshot was taken.+snapshot_kmsKeyId :: Lens.Lens' Snapshot (Prelude.Maybe Prelude.Text)+snapshot_kmsKeyId = Lens.lens (\Snapshot' {kmsKeyId} -> kmsKeyId) (\s@Snapshot' {} a -> s {kmsKeyId = a} :: Snapshot)++-- | The name of the maintenance track for the snapshot.+snapshot_maintenanceTrackName :: Lens.Lens' Snapshot (Prelude.Maybe Prelude.Text)+snapshot_maintenanceTrackName = Lens.lens (\Snapshot' {maintenanceTrackName} -> maintenanceTrackName) (\s@Snapshot' {} a -> s {maintenanceTrackName = a} :: Snapshot)++-- | The number of days until a manual snapshot will pass its retention+-- period.+snapshot_manualSnapshotRemainingDays :: Lens.Lens' Snapshot (Prelude.Maybe Prelude.Int)+snapshot_manualSnapshotRemainingDays = Lens.lens (\Snapshot' {manualSnapshotRemainingDays} -> manualSnapshotRemainingDays) (\s@Snapshot' {} a -> s {manualSnapshotRemainingDays = a} :: Snapshot)++-- | The number of days that a manual snapshot is retained. If the value is+-- -1, the manual snapshot is retained indefinitely.+--+-- The value must be either -1 or an integer between 1 and 3,653.+snapshot_manualSnapshotRetentionPeriod :: Lens.Lens' Snapshot (Prelude.Maybe Prelude.Int)+snapshot_manualSnapshotRetentionPeriod = Lens.lens (\Snapshot' {manualSnapshotRetentionPeriod} -> manualSnapshotRetentionPeriod) (\s@Snapshot' {} a -> s {manualSnapshotRetentionPeriod = a} :: Snapshot)++-- | The admin user name for the cluster.+snapshot_masterUsername :: Lens.Lens' Snapshot (Prelude.Maybe Prelude.Text)+snapshot_masterUsername = Lens.lens (\Snapshot' {masterUsername} -> masterUsername) (\s@Snapshot' {} a -> s {masterUsername = a} :: Snapshot)++-- | The node type of the nodes in the cluster.+snapshot_nodeType :: Lens.Lens' Snapshot (Prelude.Maybe Prelude.Text)+snapshot_nodeType = Lens.lens (\Snapshot' {nodeType} -> nodeType) (\s@Snapshot' {} a -> s {nodeType = a} :: Snapshot)++-- | The number of nodes in the cluster.+snapshot_numberOfNodes :: Lens.Lens' Snapshot (Prelude.Maybe Prelude.Int)+snapshot_numberOfNodes = Lens.lens (\Snapshot' {numberOfNodes} -> numberOfNodes) (\s@Snapshot' {} a -> s {numberOfNodes = a} :: Snapshot)++-- | For manual snapshots, the Amazon Web Services account used to create or+-- copy the snapshot. For automatic snapshots, the owner of the cluster.+-- The owner can perform all snapshot actions, such as sharing a manual+-- snapshot.+snapshot_ownerAccount :: Lens.Lens' Snapshot (Prelude.Maybe Prelude.Text)+snapshot_ownerAccount = Lens.lens (\Snapshot' {ownerAccount} -> ownerAccount) (\s@Snapshot' {} a -> s {ownerAccount = a} :: Snapshot)++-- | The port that the cluster is listening on.+snapshot_port :: Lens.Lens' Snapshot (Prelude.Maybe Prelude.Int)+snapshot_port = Lens.lens (\Snapshot' {port} -> port) (\s@Snapshot' {} a -> s {port = a} :: Snapshot)++-- | The list of node types that this cluster snapshot is able to restore+-- into.+snapshot_restorableNodeTypes :: Lens.Lens' Snapshot (Prelude.Maybe [Prelude.Text])+snapshot_restorableNodeTypes = Lens.lens (\Snapshot' {restorableNodeTypes} -> restorableNodeTypes) (\s@Snapshot' {} a -> s {restorableNodeTypes = a} :: Snapshot) Prelude.. Lens.mapping Lens.coerced++-- | The time (in UTC format) when Amazon Redshift began the snapshot. A+-- snapshot contains a copy of the cluster data as of this exact time.+snapshot_snapshotCreateTime :: Lens.Lens' Snapshot (Prelude.Maybe Prelude.UTCTime)+snapshot_snapshotCreateTime = Lens.lens (\Snapshot' {snapshotCreateTime} -> snapshotCreateTime) (\s@Snapshot' {} a -> s {snapshotCreateTime = a} :: Snapshot) Prelude.. Lens.mapping Data._Time++-- | The snapshot identifier that is provided in the request.+snapshot_snapshotIdentifier :: Lens.Lens' Snapshot (Prelude.Maybe Prelude.Text)+snapshot_snapshotIdentifier = Lens.lens (\Snapshot' {snapshotIdentifier} -> snapshotIdentifier) (\s@Snapshot' {} a -> s {snapshotIdentifier = a} :: Snapshot)++-- | A timestamp representing the start of the retention period for the+-- snapshot.+snapshot_snapshotRetentionStartTime :: Lens.Lens' Snapshot (Prelude.Maybe Prelude.UTCTime)+snapshot_snapshotRetentionStartTime = Lens.lens (\Snapshot' {snapshotRetentionStartTime} -> snapshotRetentionStartTime) (\s@Snapshot' {} a -> s {snapshotRetentionStartTime = a} :: Snapshot) Prelude.. Lens.mapping Data._Time++-- | The snapshot type. Snapshots created using CreateClusterSnapshot and+-- CopyClusterSnapshot are of type \"manual\".+snapshot_snapshotType :: Lens.Lens' Snapshot (Prelude.Maybe Prelude.Text)+snapshot_snapshotType = Lens.lens (\Snapshot' {snapshotType} -> snapshotType) (\s@Snapshot' {} a -> s {snapshotType = a} :: Snapshot)++-- | The source region from which the snapshot was copied.+snapshot_sourceRegion :: Lens.Lens' Snapshot (Prelude.Maybe Prelude.Text)+snapshot_sourceRegion = Lens.lens (\Snapshot' {sourceRegion} -> sourceRegion) (\s@Snapshot' {} a -> s {sourceRegion = a} :: Snapshot)++-- | The snapshot status. The value of the status depends on the API+-- operation used:+--+-- - CreateClusterSnapshot and CopyClusterSnapshot returns status as+-- \"creating\".+--+-- - DescribeClusterSnapshots returns status as \"creating\",+-- \"available\", \"final snapshot\", or \"failed\".+--+-- - DeleteClusterSnapshot returns status as \"deleted\".+snapshot_status :: Lens.Lens' Snapshot (Prelude.Maybe Prelude.Text)+snapshot_status = Lens.lens (\Snapshot' {status} -> status) (\s@Snapshot' {} a -> s {status = a} :: Snapshot)++-- | The list of tags for the cluster snapshot.+snapshot_tags :: Lens.Lens' Snapshot (Prelude.Maybe [Tag])+snapshot_tags = Lens.lens (\Snapshot' {tags} -> tags) (\s@Snapshot' {} a -> s {tags = a} :: Snapshot) Prelude.. Lens.mapping Lens.coerced++-- | The size of the complete set of backup data that would be used to+-- restore the cluster.+snapshot_totalBackupSizeInMegaBytes :: Lens.Lens' Snapshot (Prelude.Maybe Prelude.Double)+snapshot_totalBackupSizeInMegaBytes = Lens.lens (\Snapshot' {totalBackupSizeInMegaBytes} -> totalBackupSizeInMegaBytes) (\s@Snapshot' {} a -> s {totalBackupSizeInMegaBytes = a} :: Snapshot)++-- | The VPC identifier of the cluster if the snapshot is from a cluster in a+-- VPC. Otherwise, this field is not in the output.+snapshot_vpcId :: Lens.Lens' Snapshot (Prelude.Maybe Prelude.Text)+snapshot_vpcId = Lens.lens (\Snapshot' {vpcId} -> vpcId) (\s@Snapshot' {} a -> s {vpcId = a} :: Snapshot)++instance Data.FromXML Snapshot where+ parseXML x =+ Snapshot'+ Prelude.<$> ( x+ Data..@? "AccountsWithRestoreAccess"+ Core..!@ Prelude.mempty+ Prelude.>>= Core.may+ (Data.parseXMLList "AccountWithRestoreAccess")+ )+ Prelude.<*> (x Data..@? "ActualIncrementalBackupSizeInMegaBytes")+ Prelude.<*> (x Data..@? "AvailabilityZone")+ Prelude.<*> (x Data..@? "BackupProgressInMegaBytes")+ Prelude.<*> (x Data..@? "ClusterCreateTime")+ Prelude.<*> (x Data..@? "ClusterIdentifier")+ Prelude.<*> (x Data..@? "ClusterVersion")+ Prelude.<*> (x Data..@? "CurrentBackupRateInMegaBytesPerSecond")+ Prelude.<*> (x Data..@? "DBName")+ Prelude.<*> (x Data..@? "ElapsedTimeInSeconds")+ Prelude.<*> (x Data..@? "Encrypted")+ Prelude.<*> (x Data..@? "EncryptedWithHSM")+ Prelude.<*> (x Data..@? "EngineFullVersion")+ Prelude.<*> (x Data..@? "EnhancedVpcRouting")+ Prelude.<*> (x Data..@? "EstimatedSecondsToCompletion")+ Prelude.<*> (x Data..@? "KmsKeyId")+ Prelude.<*> (x Data..@? "MaintenanceTrackName")+ Prelude.<*> (x Data..@? "ManualSnapshotRemainingDays")+ Prelude.<*> (x Data..@? "ManualSnapshotRetentionPeriod")+ Prelude.<*> (x Data..@? "MasterUsername")+ Prelude.<*> (x Data..@? "NodeType")+ Prelude.<*> (x Data..@? "NumberOfNodes")+ Prelude.<*> (x Data..@? "OwnerAccount")+ Prelude.<*> (x Data..@? "Port")+ Prelude.<*> ( x+ Data..@? "RestorableNodeTypes"+ Core..!@ Prelude.mempty+ Prelude.>>= Core.may (Data.parseXMLList "NodeType")+ )+ Prelude.<*> (x Data..@? "SnapshotCreateTime")+ Prelude.<*> (x Data..@? "SnapshotIdentifier")+ Prelude.<*> (x Data..@? "SnapshotRetentionStartTime")+ Prelude.<*> (x Data..@? "SnapshotType")+ Prelude.<*> (x Data..@? "SourceRegion")+ Prelude.<*> (x Data..@? "Status")+ Prelude.<*> ( x+ Data..@? "Tags"+ Core..!@ Prelude.mempty+ Prelude.>>= Core.may (Data.parseXMLList "Tag")+ )+ Prelude.<*> (x Data..@? "TotalBackupSizeInMegaBytes")+ Prelude.<*> (x Data..@? "VpcId")++instance Prelude.Hashable Snapshot where+ hashWithSalt _salt Snapshot' {..} =+ _salt+ `Prelude.hashWithSalt` accountsWithRestoreAccess+ `Prelude.hashWithSalt` actualIncrementalBackupSizeInMegaBytes+ `Prelude.hashWithSalt` availabilityZone+ `Prelude.hashWithSalt` backupProgressInMegaBytes+ `Prelude.hashWithSalt` clusterCreateTime+ `Prelude.hashWithSalt` clusterIdentifier+ `Prelude.hashWithSalt` clusterVersion+ `Prelude.hashWithSalt` currentBackupRateInMegaBytesPerSecond+ `Prelude.hashWithSalt` dbName+ `Prelude.hashWithSalt` elapsedTimeInSeconds+ `Prelude.hashWithSalt` encrypted+ `Prelude.hashWithSalt` encryptedWithHSM+ `Prelude.hashWithSalt` engineFullVersion+ `Prelude.hashWithSalt` enhancedVpcRouting+ `Prelude.hashWithSalt` estimatedSecondsToCompletion+ `Prelude.hashWithSalt` kmsKeyId+ `Prelude.hashWithSalt` maintenanceTrackName+ `Prelude.hashWithSalt` manualSnapshotRemainingDays+ `Prelude.hashWithSalt` manualSnapshotRetentionPeriod+ `Prelude.hashWithSalt` masterUsername+ `Prelude.hashWithSalt` nodeType+ `Prelude.hashWithSalt` numberOfNodes+ `Prelude.hashWithSalt` ownerAccount+ `Prelude.hashWithSalt` port+ `Prelude.hashWithSalt` restorableNodeTypes+ `Prelude.hashWithSalt` snapshotCreateTime+ `Prelude.hashWithSalt` snapshotIdentifier+ `Prelude.hashWithSalt` snapshotRetentionStartTime+ `Prelude.hashWithSalt` snapshotType+ `Prelude.hashWithSalt` sourceRegion+ `Prelude.hashWithSalt` status+ `Prelude.hashWithSalt` tags+ `Prelude.hashWithSalt` totalBackupSizeInMegaBytes+ `Prelude.hashWithSalt` vpcId++instance Prelude.NFData Snapshot where+ rnf Snapshot' {..} =+ Prelude.rnf accountsWithRestoreAccess+ `Prelude.seq` Prelude.rnf actualIncrementalBackupSizeInMegaBytes+ `Prelude.seq` Prelude.rnf availabilityZone+ `Prelude.seq` Prelude.rnf backupProgressInMegaBytes+ `Prelude.seq` Prelude.rnf clusterCreateTime+ `Prelude.seq` Prelude.rnf clusterIdentifier+ `Prelude.seq` Prelude.rnf clusterVersion+ `Prelude.seq` Prelude.rnf currentBackupRateInMegaBytesPerSecond+ `Prelude.seq` Prelude.rnf dbName+ `Prelude.seq` Prelude.rnf elapsedTimeInSeconds+ `Prelude.seq` Prelude.rnf encrypted+ `Prelude.seq` Prelude.rnf encryptedWithHSM+ `Prelude.seq` Prelude.rnf engineFullVersion+ `Prelude.seq` Prelude.rnf enhancedVpcRouting+ `Prelude.seq` Prelude.rnf estimatedSecondsToCompletion+ `Prelude.seq` Prelude.rnf kmsKeyId+ `Prelude.seq` Prelude.rnf maintenanceTrackName+ `Prelude.seq` Prelude.rnf+ manualSnapshotRemainingDays+ `Prelude.seq` Prelude.rnf+ manualSnapshotRetentionPeriod+ `Prelude.seq` Prelude.rnf masterUsername+ `Prelude.seq` Prelude.rnf nodeType+ `Prelude.seq` Prelude.rnf numberOfNodes+ `Prelude.seq` Prelude.rnf ownerAccount+ `Prelude.seq` Prelude.rnf port+ `Prelude.seq` Prelude.rnf+ restorableNodeTypes+ `Prelude.seq` Prelude.rnf+ snapshotCreateTime+ `Prelude.seq` Prelude.rnf+ snapshotIdentifier+ `Prelude.seq` Prelude.rnf+ snapshotRetentionStartTime+ `Prelude.seq` Prelude.rnf+ snapshotType+ `Prelude.seq` Prelude.rnf+ sourceRegion+ `Prelude.seq` Prelude.rnf+ status+ `Prelude.seq` Prelude.rnf+ tags+ `Prelude.seq` Prelude.rnf+ totalBackupSizeInMegaBytes+ `Prelude.seq` Prelude.rnf+ vpcId
+ gen/Amazonka/Redshift/Types/SnapshotAttributeToSortBy.hs view
@@ -0,0 +1,77 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE GeneralizedNewtypeDeriving #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module : Amazonka.Redshift.Types.SnapshotAttributeToSortBy+-- Copyright : (c) 2013-2023 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.Redshift.Types.SnapshotAttributeToSortBy+ ( SnapshotAttributeToSortBy+ ( ..,+ SnapshotAttributeToSortBy_CREATE_TIME,+ SnapshotAttributeToSortBy_SOURCE_TYPE,+ SnapshotAttributeToSortBy_TOTAL_SIZE+ ),+ )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Redshift.Internal++newtype SnapshotAttributeToSortBy = SnapshotAttributeToSortBy'+ { fromSnapshotAttributeToSortBy ::+ Data.Text+ }+ deriving stock+ ( Prelude.Show,+ Prelude.Read,+ Prelude.Eq,+ Prelude.Ord,+ Prelude.Generic+ )+ deriving newtype+ ( Prelude.Hashable,+ Prelude.NFData,+ Data.FromText,+ Data.ToText,+ Data.ToByteString,+ Data.ToLog,+ Data.ToHeader,+ Data.ToQuery,+ Data.FromJSON,+ Data.FromJSONKey,+ Data.ToJSON,+ Data.ToJSONKey,+ Data.FromXML,+ Data.ToXML+ )++pattern SnapshotAttributeToSortBy_CREATE_TIME :: SnapshotAttributeToSortBy+pattern SnapshotAttributeToSortBy_CREATE_TIME = SnapshotAttributeToSortBy' "CREATE_TIME"++pattern SnapshotAttributeToSortBy_SOURCE_TYPE :: SnapshotAttributeToSortBy+pattern SnapshotAttributeToSortBy_SOURCE_TYPE = SnapshotAttributeToSortBy' "SOURCE_TYPE"++pattern SnapshotAttributeToSortBy_TOTAL_SIZE :: SnapshotAttributeToSortBy+pattern SnapshotAttributeToSortBy_TOTAL_SIZE = SnapshotAttributeToSortBy' "TOTAL_SIZE"++{-# COMPLETE+ SnapshotAttributeToSortBy_CREATE_TIME,+ SnapshotAttributeToSortBy_SOURCE_TYPE,+ SnapshotAttributeToSortBy_TOTAL_SIZE,+ SnapshotAttributeToSortBy'+ #-}
+ gen/Amazonka/Redshift/Types/SnapshotCopyGrant.hs view
@@ -0,0 +1,107 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module : Amazonka.Redshift.Types.SnapshotCopyGrant+-- Copyright : (c) 2013-2023 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.Redshift.Types.SnapshotCopyGrant where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Redshift.Internal+import Amazonka.Redshift.Types.Tag++-- | The snapshot copy grant that grants Amazon Redshift permission to+-- encrypt copied snapshots with the specified encrypted symmetric key from+-- Amazon Web Services KMS in the destination region.+--+-- For more information about managing snapshot copy grants, go to+-- <https://docs.aws.amazon.com/redshift/latest/mgmt/working-with-db-encryption.html Amazon Redshift Database Encryption>+-- in the /Amazon Redshift Cluster Management Guide/.+--+-- /See:/ 'newSnapshotCopyGrant' smart constructor.+data SnapshotCopyGrant = SnapshotCopyGrant'+ { -- | The unique identifier of the encrypted symmetric key in Amazon Web+ -- Services KMS to which Amazon Redshift is granted permission.+ kmsKeyId :: Prelude.Maybe Prelude.Text,+ -- | The name of the snapshot copy grant.+ snapshotCopyGrantName :: Prelude.Maybe Prelude.Text,+ -- | A list of tag instances.+ tags :: Prelude.Maybe [Tag]+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'SnapshotCopyGrant' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'kmsKeyId', 'snapshotCopyGrant_kmsKeyId' - The unique identifier of the encrypted symmetric key in Amazon Web+-- Services KMS to which Amazon Redshift is granted permission.+--+-- 'snapshotCopyGrantName', 'snapshotCopyGrant_snapshotCopyGrantName' - The name of the snapshot copy grant.+--+-- 'tags', 'snapshotCopyGrant_tags' - A list of tag instances.+newSnapshotCopyGrant ::+ SnapshotCopyGrant+newSnapshotCopyGrant =+ SnapshotCopyGrant'+ { kmsKeyId = Prelude.Nothing,+ snapshotCopyGrantName = Prelude.Nothing,+ tags = Prelude.Nothing+ }++-- | The unique identifier of the encrypted symmetric key in Amazon Web+-- Services KMS to which Amazon Redshift is granted permission.+snapshotCopyGrant_kmsKeyId :: Lens.Lens' SnapshotCopyGrant (Prelude.Maybe Prelude.Text)+snapshotCopyGrant_kmsKeyId = Lens.lens (\SnapshotCopyGrant' {kmsKeyId} -> kmsKeyId) (\s@SnapshotCopyGrant' {} a -> s {kmsKeyId = a} :: SnapshotCopyGrant)++-- | The name of the snapshot copy grant.+snapshotCopyGrant_snapshotCopyGrantName :: Lens.Lens' SnapshotCopyGrant (Prelude.Maybe Prelude.Text)+snapshotCopyGrant_snapshotCopyGrantName = Lens.lens (\SnapshotCopyGrant' {snapshotCopyGrantName} -> snapshotCopyGrantName) (\s@SnapshotCopyGrant' {} a -> s {snapshotCopyGrantName = a} :: SnapshotCopyGrant)++-- | A list of tag instances.+snapshotCopyGrant_tags :: Lens.Lens' SnapshotCopyGrant (Prelude.Maybe [Tag])+snapshotCopyGrant_tags = Lens.lens (\SnapshotCopyGrant' {tags} -> tags) (\s@SnapshotCopyGrant' {} a -> s {tags = a} :: SnapshotCopyGrant) Prelude.. Lens.mapping Lens.coerced++instance Data.FromXML SnapshotCopyGrant where+ parseXML x =+ SnapshotCopyGrant'+ Prelude.<$> (x Data..@? "KmsKeyId")+ Prelude.<*> (x Data..@? "SnapshotCopyGrantName")+ Prelude.<*> ( x+ Data..@? "Tags"+ Core..!@ Prelude.mempty+ Prelude.>>= Core.may (Data.parseXMLList "Tag")+ )++instance Prelude.Hashable SnapshotCopyGrant where+ hashWithSalt _salt SnapshotCopyGrant' {..} =+ _salt+ `Prelude.hashWithSalt` kmsKeyId+ `Prelude.hashWithSalt` snapshotCopyGrantName+ `Prelude.hashWithSalt` tags++instance Prelude.NFData SnapshotCopyGrant where+ rnf SnapshotCopyGrant' {..} =+ Prelude.rnf kmsKeyId+ `Prelude.seq` Prelude.rnf snapshotCopyGrantName+ `Prelude.seq` Prelude.rnf tags
+ gen/Amazonka/Redshift/Types/SnapshotErrorMessage.hs view
@@ -0,0 +1,106 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module : Amazonka.Redshift.Types.SnapshotErrorMessage+-- Copyright : (c) 2013-2023 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.Redshift.Types.SnapshotErrorMessage where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Redshift.Internal++-- | Describes the errors returned by a snapshot.+--+-- /See:/ 'newSnapshotErrorMessage' smart constructor.+data SnapshotErrorMessage = SnapshotErrorMessage'+ { -- | The failure code for the error.+ failureCode :: Prelude.Maybe Prelude.Text,+ -- | The text message describing the error.+ failureReason :: Prelude.Maybe Prelude.Text,+ -- | A unique identifier for the cluster.+ snapshotClusterIdentifier :: Prelude.Maybe Prelude.Text,+ -- | A unique identifier for the snapshot returning the error.+ snapshotIdentifier :: Prelude.Maybe Prelude.Text+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'SnapshotErrorMessage' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'failureCode', 'snapshotErrorMessage_failureCode' - The failure code for the error.+--+-- 'failureReason', 'snapshotErrorMessage_failureReason' - The text message describing the error.+--+-- 'snapshotClusterIdentifier', 'snapshotErrorMessage_snapshotClusterIdentifier' - A unique identifier for the cluster.+--+-- 'snapshotIdentifier', 'snapshotErrorMessage_snapshotIdentifier' - A unique identifier for the snapshot returning the error.+newSnapshotErrorMessage ::+ SnapshotErrorMessage+newSnapshotErrorMessage =+ SnapshotErrorMessage'+ { failureCode =+ Prelude.Nothing,+ failureReason = Prelude.Nothing,+ snapshotClusterIdentifier = Prelude.Nothing,+ snapshotIdentifier = Prelude.Nothing+ }++-- | The failure code for the error.+snapshotErrorMessage_failureCode :: Lens.Lens' SnapshotErrorMessage (Prelude.Maybe Prelude.Text)+snapshotErrorMessage_failureCode = Lens.lens (\SnapshotErrorMessage' {failureCode} -> failureCode) (\s@SnapshotErrorMessage' {} a -> s {failureCode = a} :: SnapshotErrorMessage)++-- | The text message describing the error.+snapshotErrorMessage_failureReason :: Lens.Lens' SnapshotErrorMessage (Prelude.Maybe Prelude.Text)+snapshotErrorMessage_failureReason = Lens.lens (\SnapshotErrorMessage' {failureReason} -> failureReason) (\s@SnapshotErrorMessage' {} a -> s {failureReason = a} :: SnapshotErrorMessage)++-- | A unique identifier for the cluster.+snapshotErrorMessage_snapshotClusterIdentifier :: Lens.Lens' SnapshotErrorMessage (Prelude.Maybe Prelude.Text)+snapshotErrorMessage_snapshotClusterIdentifier = Lens.lens (\SnapshotErrorMessage' {snapshotClusterIdentifier} -> snapshotClusterIdentifier) (\s@SnapshotErrorMessage' {} a -> s {snapshotClusterIdentifier = a} :: SnapshotErrorMessage)++-- | A unique identifier for the snapshot returning the error.+snapshotErrorMessage_snapshotIdentifier :: Lens.Lens' SnapshotErrorMessage (Prelude.Maybe Prelude.Text)+snapshotErrorMessage_snapshotIdentifier = Lens.lens (\SnapshotErrorMessage' {snapshotIdentifier} -> snapshotIdentifier) (\s@SnapshotErrorMessage' {} a -> s {snapshotIdentifier = a} :: SnapshotErrorMessage)++instance Data.FromXML SnapshotErrorMessage where+ parseXML x =+ SnapshotErrorMessage'+ Prelude.<$> (x Data..@? "FailureCode")+ Prelude.<*> (x Data..@? "FailureReason")+ Prelude.<*> (x Data..@? "SnapshotClusterIdentifier")+ Prelude.<*> (x Data..@? "SnapshotIdentifier")++instance Prelude.Hashable SnapshotErrorMessage where+ hashWithSalt _salt SnapshotErrorMessage' {..} =+ _salt+ `Prelude.hashWithSalt` failureCode+ `Prelude.hashWithSalt` failureReason+ `Prelude.hashWithSalt` snapshotClusterIdentifier+ `Prelude.hashWithSalt` snapshotIdentifier++instance Prelude.NFData SnapshotErrorMessage where+ rnf SnapshotErrorMessage' {..} =+ Prelude.rnf failureCode+ `Prelude.seq` Prelude.rnf failureReason+ `Prelude.seq` Prelude.rnf snapshotClusterIdentifier+ `Prelude.seq` Prelude.rnf snapshotIdentifier
+ gen/Amazonka/Redshift/Types/SnapshotSchedule.hs view
@@ -0,0 +1,164 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module : Amazonka.Redshift.Types.SnapshotSchedule+-- Copyright : (c) 2013-2023 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.Redshift.Types.SnapshotSchedule where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Redshift.Internal+import Amazonka.Redshift.Types.ClusterAssociatedToSchedule+import Amazonka.Redshift.Types.Tag++-- | Describes a snapshot schedule. You can set a regular interval for+-- creating snapshots of a cluster. You can also schedule snapshots for+-- specific dates.+--+-- /See:/ 'newSnapshotSchedule' smart constructor.+data SnapshotSchedule = SnapshotSchedule'+ { -- | The number of clusters associated with the schedule.+ associatedClusterCount :: Prelude.Maybe Prelude.Int,+ -- | A list of clusters associated with the schedule. A maximum of 100+ -- clusters is returned.+ associatedClusters :: Prelude.Maybe [ClusterAssociatedToSchedule],+ nextInvocations :: Prelude.Maybe [Data.ISO8601],+ -- | A list of ScheduleDefinitions.+ scheduleDefinitions :: Prelude.Maybe [Prelude.Text],+ -- | The description of the schedule.+ scheduleDescription :: Prelude.Maybe Prelude.Text,+ -- | A unique identifier for the schedule.+ scheduleIdentifier :: Prelude.Maybe Prelude.Text,+ -- | An optional set of tags describing the schedule.+ tags :: Prelude.Maybe [Tag]+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'SnapshotSchedule' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'associatedClusterCount', 'snapshotSchedule_associatedClusterCount' - The number of clusters associated with the schedule.+--+-- 'associatedClusters', 'snapshotSchedule_associatedClusters' - A list of clusters associated with the schedule. A maximum of 100+-- clusters is returned.+--+-- 'nextInvocations', 'snapshotSchedule_nextInvocations' -+--+-- 'scheduleDefinitions', 'snapshotSchedule_scheduleDefinitions' - A list of ScheduleDefinitions.+--+-- 'scheduleDescription', 'snapshotSchedule_scheduleDescription' - The description of the schedule.+--+-- 'scheduleIdentifier', 'snapshotSchedule_scheduleIdentifier' - A unique identifier for the schedule.+--+-- 'tags', 'snapshotSchedule_tags' - An optional set of tags describing the schedule.+newSnapshotSchedule ::+ SnapshotSchedule+newSnapshotSchedule =+ SnapshotSchedule'+ { associatedClusterCount =+ Prelude.Nothing,+ associatedClusters = Prelude.Nothing,+ nextInvocations = Prelude.Nothing,+ scheduleDefinitions = Prelude.Nothing,+ scheduleDescription = Prelude.Nothing,+ scheduleIdentifier = Prelude.Nothing,+ tags = Prelude.Nothing+ }++-- | The number of clusters associated with the schedule.+snapshotSchedule_associatedClusterCount :: Lens.Lens' SnapshotSchedule (Prelude.Maybe Prelude.Int)+snapshotSchedule_associatedClusterCount = Lens.lens (\SnapshotSchedule' {associatedClusterCount} -> associatedClusterCount) (\s@SnapshotSchedule' {} a -> s {associatedClusterCount = a} :: SnapshotSchedule)++-- | A list of clusters associated with the schedule. A maximum of 100+-- clusters is returned.+snapshotSchedule_associatedClusters :: Lens.Lens' SnapshotSchedule (Prelude.Maybe [ClusterAssociatedToSchedule])+snapshotSchedule_associatedClusters = Lens.lens (\SnapshotSchedule' {associatedClusters} -> associatedClusters) (\s@SnapshotSchedule' {} a -> s {associatedClusters = a} :: SnapshotSchedule) Prelude.. Lens.mapping Lens.coerced++snapshotSchedule_nextInvocations :: Lens.Lens' SnapshotSchedule (Prelude.Maybe [Prelude.UTCTime])+snapshotSchedule_nextInvocations = Lens.lens (\SnapshotSchedule' {nextInvocations} -> nextInvocations) (\s@SnapshotSchedule' {} a -> s {nextInvocations = a} :: SnapshotSchedule) Prelude.. Lens.mapping Lens.coerced++-- | A list of ScheduleDefinitions.+snapshotSchedule_scheduleDefinitions :: Lens.Lens' SnapshotSchedule (Prelude.Maybe [Prelude.Text])+snapshotSchedule_scheduleDefinitions = Lens.lens (\SnapshotSchedule' {scheduleDefinitions} -> scheduleDefinitions) (\s@SnapshotSchedule' {} a -> s {scheduleDefinitions = a} :: SnapshotSchedule) Prelude.. Lens.mapping Lens.coerced++-- | The description of the schedule.+snapshotSchedule_scheduleDescription :: Lens.Lens' SnapshotSchedule (Prelude.Maybe Prelude.Text)+snapshotSchedule_scheduleDescription = Lens.lens (\SnapshotSchedule' {scheduleDescription} -> scheduleDescription) (\s@SnapshotSchedule' {} a -> s {scheduleDescription = a} :: SnapshotSchedule)++-- | A unique identifier for the schedule.+snapshotSchedule_scheduleIdentifier :: Lens.Lens' SnapshotSchedule (Prelude.Maybe Prelude.Text)+snapshotSchedule_scheduleIdentifier = Lens.lens (\SnapshotSchedule' {scheduleIdentifier} -> scheduleIdentifier) (\s@SnapshotSchedule' {} a -> s {scheduleIdentifier = a} :: SnapshotSchedule)++-- | An optional set of tags describing the schedule.+snapshotSchedule_tags :: Lens.Lens' SnapshotSchedule (Prelude.Maybe [Tag])+snapshotSchedule_tags = Lens.lens (\SnapshotSchedule' {tags} -> tags) (\s@SnapshotSchedule' {} a -> s {tags = a} :: SnapshotSchedule) Prelude.. Lens.mapping Lens.coerced++instance Data.FromXML SnapshotSchedule where+ parseXML x =+ SnapshotSchedule'+ Prelude.<$> (x Data..@? "AssociatedClusterCount")+ Prelude.<*> ( x+ Data..@? "AssociatedClusters"+ Core..!@ Prelude.mempty+ Prelude.>>= Core.may+ (Data.parseXMLList "ClusterAssociatedToSchedule")+ )+ Prelude.<*> ( x+ Data..@? "NextInvocations"+ Core..!@ Prelude.mempty+ Prelude.>>= Core.may (Data.parseXMLList "SnapshotTime")+ )+ Prelude.<*> ( x+ Data..@? "ScheduleDefinitions"+ Core..!@ Prelude.mempty+ Prelude.>>= Core.may (Data.parseXMLList "ScheduleDefinition")+ )+ Prelude.<*> (x Data..@? "ScheduleDescription")+ Prelude.<*> (x Data..@? "ScheduleIdentifier")+ Prelude.<*> ( x+ Data..@? "Tags"+ Core..!@ Prelude.mempty+ Prelude.>>= Core.may (Data.parseXMLList "Tag")+ )++instance Prelude.Hashable SnapshotSchedule where+ hashWithSalt _salt SnapshotSchedule' {..} =+ _salt+ `Prelude.hashWithSalt` associatedClusterCount+ `Prelude.hashWithSalt` associatedClusters+ `Prelude.hashWithSalt` nextInvocations+ `Prelude.hashWithSalt` scheduleDefinitions+ `Prelude.hashWithSalt` scheduleDescription+ `Prelude.hashWithSalt` scheduleIdentifier+ `Prelude.hashWithSalt` tags++instance Prelude.NFData SnapshotSchedule where+ rnf SnapshotSchedule' {..} =+ Prelude.rnf associatedClusterCount+ `Prelude.seq` Prelude.rnf associatedClusters+ `Prelude.seq` Prelude.rnf nextInvocations+ `Prelude.seq` Prelude.rnf scheduleDefinitions+ `Prelude.seq` Prelude.rnf scheduleDescription+ `Prelude.seq` Prelude.rnf scheduleIdentifier+ `Prelude.seq` Prelude.rnf tags
+ gen/Amazonka/Redshift/Types/SnapshotSortingEntity.hs view
@@ -0,0 +1,86 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module : Amazonka.Redshift.Types.SnapshotSortingEntity+-- Copyright : (c) 2013-2023 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.Redshift.Types.SnapshotSortingEntity where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Redshift.Internal+import Amazonka.Redshift.Types.SnapshotAttributeToSortBy+import Amazonka.Redshift.Types.SortByOrder++-- | Describes a sorting entity+--+-- /See:/ 'newSnapshotSortingEntity' smart constructor.+data SnapshotSortingEntity = SnapshotSortingEntity'+ { -- | The order for listing the attributes.+ sortOrder :: Prelude.Maybe SortByOrder,+ -- | The category for sorting the snapshots.+ attribute :: SnapshotAttributeToSortBy+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'SnapshotSortingEntity' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'sortOrder', 'snapshotSortingEntity_sortOrder' - The order for listing the attributes.+--+-- 'attribute', 'snapshotSortingEntity_attribute' - The category for sorting the snapshots.+newSnapshotSortingEntity ::+ -- | 'attribute'+ SnapshotAttributeToSortBy ->+ SnapshotSortingEntity+newSnapshotSortingEntity pAttribute_ =+ SnapshotSortingEntity'+ { sortOrder = Prelude.Nothing,+ attribute = pAttribute_+ }++-- | The order for listing the attributes.+snapshotSortingEntity_sortOrder :: Lens.Lens' SnapshotSortingEntity (Prelude.Maybe SortByOrder)+snapshotSortingEntity_sortOrder = Lens.lens (\SnapshotSortingEntity' {sortOrder} -> sortOrder) (\s@SnapshotSortingEntity' {} a -> s {sortOrder = a} :: SnapshotSortingEntity)++-- | The category for sorting the snapshots.+snapshotSortingEntity_attribute :: Lens.Lens' SnapshotSortingEntity SnapshotAttributeToSortBy+snapshotSortingEntity_attribute = Lens.lens (\SnapshotSortingEntity' {attribute} -> attribute) (\s@SnapshotSortingEntity' {} a -> s {attribute = a} :: SnapshotSortingEntity)++instance Prelude.Hashable SnapshotSortingEntity where+ hashWithSalt _salt SnapshotSortingEntity' {..} =+ _salt+ `Prelude.hashWithSalt` sortOrder+ `Prelude.hashWithSalt` attribute++instance Prelude.NFData SnapshotSortingEntity where+ rnf SnapshotSortingEntity' {..} =+ Prelude.rnf sortOrder+ `Prelude.seq` Prelude.rnf attribute++instance Data.ToQuery SnapshotSortingEntity where+ toQuery SnapshotSortingEntity' {..} =+ Prelude.mconcat+ [ "SortOrder" Data.=: sortOrder,+ "Attribute" Data.=: attribute+ ]
+ gen/Amazonka/Redshift/Types/SortByOrder.hs view
@@ -0,0 +1,72 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE GeneralizedNewtypeDeriving #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module : Amazonka.Redshift.Types.SortByOrder+-- Copyright : (c) 2013-2023 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.Redshift.Types.SortByOrder+ ( SortByOrder+ ( ..,+ SortByOrder_ASC,+ SortByOrder_DESC+ ),+ )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Redshift.Internal++newtype SortByOrder = SortByOrder'+ { fromSortByOrder ::+ Data.Text+ }+ deriving stock+ ( Prelude.Show,+ Prelude.Read,+ Prelude.Eq,+ Prelude.Ord,+ Prelude.Generic+ )+ deriving newtype+ ( Prelude.Hashable,+ Prelude.NFData,+ Data.FromText,+ Data.ToText,+ Data.ToByteString,+ Data.ToLog,+ Data.ToHeader,+ Data.ToQuery,+ Data.FromJSON,+ Data.FromJSONKey,+ Data.ToJSON,+ Data.ToJSONKey,+ Data.FromXML,+ Data.ToXML+ )++pattern SortByOrder_ASC :: SortByOrder+pattern SortByOrder_ASC = SortByOrder' "ASC"++pattern SortByOrder_DESC :: SortByOrder+pattern SortByOrder_DESC = SortByOrder' "DESC"++{-# COMPLETE+ SortByOrder_ASC,+ SortByOrder_DESC,+ SortByOrder'+ #-}
+ gen/Amazonka/Redshift/Types/SourceType.hs view
@@ -0,0 +1,87 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE GeneralizedNewtypeDeriving #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module : Amazonka.Redshift.Types.SourceType+-- Copyright : (c) 2013-2023 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.Redshift.Types.SourceType+ ( SourceType+ ( ..,+ SourceType_Cluster,+ SourceType_Cluster_parameter_group,+ SourceType_Cluster_security_group,+ SourceType_Cluster_snapshot,+ SourceType_Scheduled_action+ ),+ )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Redshift.Internal++newtype SourceType = SourceType'+ { fromSourceType ::+ Data.Text+ }+ deriving stock+ ( Prelude.Show,+ Prelude.Read,+ Prelude.Eq,+ Prelude.Ord,+ Prelude.Generic+ )+ deriving newtype+ ( Prelude.Hashable,+ Prelude.NFData,+ Data.FromText,+ Data.ToText,+ Data.ToByteString,+ Data.ToLog,+ Data.ToHeader,+ Data.ToQuery,+ Data.FromJSON,+ Data.FromJSONKey,+ Data.ToJSON,+ Data.ToJSONKey,+ Data.FromXML,+ Data.ToXML+ )++pattern SourceType_Cluster :: SourceType+pattern SourceType_Cluster = SourceType' "cluster"++pattern SourceType_Cluster_parameter_group :: SourceType+pattern SourceType_Cluster_parameter_group = SourceType' "cluster-parameter-group"++pattern SourceType_Cluster_security_group :: SourceType+pattern SourceType_Cluster_security_group = SourceType' "cluster-security-group"++pattern SourceType_Cluster_snapshot :: SourceType+pattern SourceType_Cluster_snapshot = SourceType' "cluster-snapshot"++pattern SourceType_Scheduled_action :: SourceType+pattern SourceType_Scheduled_action = SourceType' "scheduled-action"++{-# COMPLETE+ SourceType_Cluster,+ SourceType_Cluster_parameter_group,+ SourceType_Cluster_security_group,+ SourceType_Cluster_snapshot,+ SourceType_Scheduled_action,+ SourceType'+ #-}
+ gen/Amazonka/Redshift/Types/Subnet.hs view
@@ -0,0 +1,92 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module : Amazonka.Redshift.Types.Subnet+-- Copyright : (c) 2013-2023 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.Redshift.Types.Subnet where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Redshift.Internal+import Amazonka.Redshift.Types.AvailabilityZone++-- | Describes a subnet.+--+-- /See:/ 'newSubnet' smart constructor.+data Subnet = Subnet'+ { subnetAvailabilityZone :: Prelude.Maybe AvailabilityZone,+ -- | The identifier of the subnet.+ subnetIdentifier :: Prelude.Maybe Prelude.Text,+ -- | The status of the subnet.+ subnetStatus :: Prelude.Maybe Prelude.Text+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'Subnet' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'subnetAvailabilityZone', 'subnet_subnetAvailabilityZone' -+--+-- 'subnetIdentifier', 'subnet_subnetIdentifier' - The identifier of the subnet.+--+-- 'subnetStatus', 'subnet_subnetStatus' - The status of the subnet.+newSubnet ::+ Subnet+newSubnet =+ Subnet'+ { subnetAvailabilityZone = Prelude.Nothing,+ subnetIdentifier = Prelude.Nothing,+ subnetStatus = Prelude.Nothing+ }++subnet_subnetAvailabilityZone :: Lens.Lens' Subnet (Prelude.Maybe AvailabilityZone)+subnet_subnetAvailabilityZone = Lens.lens (\Subnet' {subnetAvailabilityZone} -> subnetAvailabilityZone) (\s@Subnet' {} a -> s {subnetAvailabilityZone = a} :: Subnet)++-- | The identifier of the subnet.+subnet_subnetIdentifier :: Lens.Lens' Subnet (Prelude.Maybe Prelude.Text)+subnet_subnetIdentifier = Lens.lens (\Subnet' {subnetIdentifier} -> subnetIdentifier) (\s@Subnet' {} a -> s {subnetIdentifier = a} :: Subnet)++-- | The status of the subnet.+subnet_subnetStatus :: Lens.Lens' Subnet (Prelude.Maybe Prelude.Text)+subnet_subnetStatus = Lens.lens (\Subnet' {subnetStatus} -> subnetStatus) (\s@Subnet' {} a -> s {subnetStatus = a} :: Subnet)++instance Data.FromXML Subnet where+ parseXML x =+ Subnet'+ Prelude.<$> (x Data..@? "SubnetAvailabilityZone")+ Prelude.<*> (x Data..@? "SubnetIdentifier")+ Prelude.<*> (x Data..@? "SubnetStatus")++instance Prelude.Hashable Subnet where+ hashWithSalt _salt Subnet' {..} =+ _salt+ `Prelude.hashWithSalt` subnetAvailabilityZone+ `Prelude.hashWithSalt` subnetIdentifier+ `Prelude.hashWithSalt` subnetStatus++instance Prelude.NFData Subnet where+ rnf Subnet' {..} =+ Prelude.rnf subnetAvailabilityZone+ `Prelude.seq` Prelude.rnf subnetIdentifier+ `Prelude.seq` Prelude.rnf subnetStatus
+ gen/Amazonka/Redshift/Types/SupportedOperation.hs view
@@ -0,0 +1,69 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module : Amazonka.Redshift.Types.SupportedOperation+-- Copyright : (c) 2013-2023 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.Redshift.Types.SupportedOperation where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Redshift.Internal++-- | Describes the operations that are allowed on a maintenance track.+--+-- /See:/ 'newSupportedOperation' smart constructor.+data SupportedOperation = SupportedOperation'+ { -- | A list of the supported operations.+ operationName :: Prelude.Maybe Prelude.Text+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'SupportedOperation' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'operationName', 'supportedOperation_operationName' - A list of the supported operations.+newSupportedOperation ::+ SupportedOperation+newSupportedOperation =+ SupportedOperation'+ { operationName =+ Prelude.Nothing+ }++-- | A list of the supported operations.+supportedOperation_operationName :: Lens.Lens' SupportedOperation (Prelude.Maybe Prelude.Text)+supportedOperation_operationName = Lens.lens (\SupportedOperation' {operationName} -> operationName) (\s@SupportedOperation' {} a -> s {operationName = a} :: SupportedOperation)++instance Data.FromXML SupportedOperation where+ parseXML x =+ SupportedOperation'+ Prelude.<$> (x Data..@? "OperationName")++instance Prelude.Hashable SupportedOperation where+ hashWithSalt _salt SupportedOperation' {..} =+ _salt `Prelude.hashWithSalt` operationName++instance Prelude.NFData SupportedOperation where+ rnf SupportedOperation' {..} =+ Prelude.rnf operationName
+ gen/Amazonka/Redshift/Types/SupportedPlatform.hs view
@@ -0,0 +1,62 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module : Amazonka.Redshift.Types.SupportedPlatform+-- Copyright : (c) 2013-2023 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.Redshift.Types.SupportedPlatform where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Redshift.Internal++-- | A list of supported platforms for orderable clusters.+--+-- /See:/ 'newSupportedPlatform' smart constructor.+data SupportedPlatform = SupportedPlatform'+ { name :: Prelude.Maybe Prelude.Text+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'SupportedPlatform' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'name', 'supportedPlatform_name' -+newSupportedPlatform ::+ SupportedPlatform+newSupportedPlatform =+ SupportedPlatform' {name = Prelude.Nothing}++supportedPlatform_name :: Lens.Lens' SupportedPlatform (Prelude.Maybe Prelude.Text)+supportedPlatform_name = Lens.lens (\SupportedPlatform' {name} -> name) (\s@SupportedPlatform' {} a -> s {name = a} :: SupportedPlatform)++instance Data.FromXML SupportedPlatform where+ parseXML x =+ SupportedPlatform' Prelude.<$> (x Data..@? "Name")++instance Prelude.Hashable SupportedPlatform where+ hashWithSalt _salt SupportedPlatform' {..} =+ _salt `Prelude.hashWithSalt` name++instance Prelude.NFData SupportedPlatform where+ rnf SupportedPlatform' {..} = Prelude.rnf name
+ gen/Amazonka/Redshift/Types/TableRestoreStatus.hs view
@@ -0,0 +1,248 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module : Amazonka.Redshift.Types.TableRestoreStatus+-- Copyright : (c) 2013-2023 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.Redshift.Types.TableRestoreStatus where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Redshift.Internal+import Amazonka.Redshift.Types.TableRestoreStatusType++-- | Describes the status of a RestoreTableFromClusterSnapshot operation.+--+-- /See:/ 'newTableRestoreStatus' smart constructor.+data TableRestoreStatus = TableRestoreStatus'+ { -- | The identifier of the Amazon Redshift cluster that the table is being+ -- restored to.+ clusterIdentifier :: Prelude.Maybe Prelude.Text,+ -- | A description of the status of the table restore request. Status values+ -- include @SUCCEEDED@, @FAILED@, @CANCELED@, @PENDING@, @IN_PROGRESS@.+ message :: Prelude.Maybe Prelude.Text,+ -- | The name of the table to create as a result of the table restore+ -- request.+ newTableName' :: Prelude.Maybe Prelude.Text,+ -- | The amount of data restored to the new table so far, in megabytes (MB).+ progressInMegaBytes :: Prelude.Maybe Prelude.Integer,+ -- | The time that the table restore request was made, in Universal+ -- Coordinated Time (UTC).+ requestTime :: Prelude.Maybe Data.ISO8601,+ -- | The identifier of the snapshot that the table is being restored from.+ snapshotIdentifier :: Prelude.Maybe Prelude.Text,+ -- | The name of the source database that contains the table being restored.+ sourceDatabaseName :: Prelude.Maybe Prelude.Text,+ -- | The name of the source schema that contains the table being restored.+ sourceSchemaName :: Prelude.Maybe Prelude.Text,+ -- | The name of the source table being restored.+ sourceTableName :: Prelude.Maybe Prelude.Text,+ -- | A value that describes the current state of the table restore request.+ --+ -- Valid Values: @SUCCEEDED@, @FAILED@, @CANCELED@, @PENDING@,+ -- @IN_PROGRESS@+ status :: Prelude.Maybe TableRestoreStatusType,+ -- | The unique identifier for the table restore request.+ tableRestoreRequestId :: Prelude.Maybe Prelude.Text,+ -- | The name of the database to restore the table to.+ targetDatabaseName :: Prelude.Maybe Prelude.Text,+ -- | The name of the schema to restore the table to.+ targetSchemaName :: Prelude.Maybe Prelude.Text,+ -- | The total amount of data to restore to the new table, in megabytes (MB).+ totalDataInMegaBytes :: Prelude.Maybe Prelude.Integer+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'TableRestoreStatus' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'clusterIdentifier', 'tableRestoreStatus_clusterIdentifier' - The identifier of the Amazon Redshift cluster that the table is being+-- restored to.+--+-- 'message', 'tableRestoreStatus_message' - A description of the status of the table restore request. Status values+-- include @SUCCEEDED@, @FAILED@, @CANCELED@, @PENDING@, @IN_PROGRESS@.+--+-- 'newTableName'', 'tableRestoreStatus_newTableName' - The name of the table to create as a result of the table restore+-- request.+--+-- 'progressInMegaBytes', 'tableRestoreStatus_progressInMegaBytes' - The amount of data restored to the new table so far, in megabytes (MB).+--+-- 'requestTime', 'tableRestoreStatus_requestTime' - The time that the table restore request was made, in Universal+-- Coordinated Time (UTC).+--+-- 'snapshotIdentifier', 'tableRestoreStatus_snapshotIdentifier' - The identifier of the snapshot that the table is being restored from.+--+-- 'sourceDatabaseName', 'tableRestoreStatus_sourceDatabaseName' - The name of the source database that contains the table being restored.+--+-- 'sourceSchemaName', 'tableRestoreStatus_sourceSchemaName' - The name of the source schema that contains the table being restored.+--+-- 'sourceTableName', 'tableRestoreStatus_sourceTableName' - The name of the source table being restored.+--+-- 'status', 'tableRestoreStatus_status' - A value that describes the current state of the table restore request.+--+-- Valid Values: @SUCCEEDED@, @FAILED@, @CANCELED@, @PENDING@,+-- @IN_PROGRESS@+--+-- 'tableRestoreRequestId', 'tableRestoreStatus_tableRestoreRequestId' - The unique identifier for the table restore request.+--+-- 'targetDatabaseName', 'tableRestoreStatus_targetDatabaseName' - The name of the database to restore the table to.+--+-- 'targetSchemaName', 'tableRestoreStatus_targetSchemaName' - The name of the schema to restore the table to.+--+-- 'totalDataInMegaBytes', 'tableRestoreStatus_totalDataInMegaBytes' - The total amount of data to restore to the new table, in megabytes (MB).+newTableRestoreStatus ::+ TableRestoreStatus+newTableRestoreStatus =+ TableRestoreStatus'+ { clusterIdentifier =+ Prelude.Nothing,+ message = Prelude.Nothing,+ newTableName' = Prelude.Nothing,+ progressInMegaBytes = Prelude.Nothing,+ requestTime = Prelude.Nothing,+ snapshotIdentifier = Prelude.Nothing,+ sourceDatabaseName = Prelude.Nothing,+ sourceSchemaName = Prelude.Nothing,+ sourceTableName = Prelude.Nothing,+ status = Prelude.Nothing,+ tableRestoreRequestId = Prelude.Nothing,+ targetDatabaseName = Prelude.Nothing,+ targetSchemaName = Prelude.Nothing,+ totalDataInMegaBytes = Prelude.Nothing+ }++-- | The identifier of the Amazon Redshift cluster that the table is being+-- restored to.+tableRestoreStatus_clusterIdentifier :: Lens.Lens' TableRestoreStatus (Prelude.Maybe Prelude.Text)+tableRestoreStatus_clusterIdentifier = Lens.lens (\TableRestoreStatus' {clusterIdentifier} -> clusterIdentifier) (\s@TableRestoreStatus' {} a -> s {clusterIdentifier = a} :: TableRestoreStatus)++-- | A description of the status of the table restore request. Status values+-- include @SUCCEEDED@, @FAILED@, @CANCELED@, @PENDING@, @IN_PROGRESS@.+tableRestoreStatus_message :: Lens.Lens' TableRestoreStatus (Prelude.Maybe Prelude.Text)+tableRestoreStatus_message = Lens.lens (\TableRestoreStatus' {message} -> message) (\s@TableRestoreStatus' {} a -> s {message = a} :: TableRestoreStatus)++-- | The name of the table to create as a result of the table restore+-- request.+tableRestoreStatus_newTableName :: Lens.Lens' TableRestoreStatus (Prelude.Maybe Prelude.Text)+tableRestoreStatus_newTableName = Lens.lens (\TableRestoreStatus' {newTableName'} -> newTableName') (\s@TableRestoreStatus' {} a -> s {newTableName' = a} :: TableRestoreStatus)++-- | The amount of data restored to the new table so far, in megabytes (MB).+tableRestoreStatus_progressInMegaBytes :: Lens.Lens' TableRestoreStatus (Prelude.Maybe Prelude.Integer)+tableRestoreStatus_progressInMegaBytes = Lens.lens (\TableRestoreStatus' {progressInMegaBytes} -> progressInMegaBytes) (\s@TableRestoreStatus' {} a -> s {progressInMegaBytes = a} :: TableRestoreStatus)++-- | The time that the table restore request was made, in Universal+-- Coordinated Time (UTC).+tableRestoreStatus_requestTime :: Lens.Lens' TableRestoreStatus (Prelude.Maybe Prelude.UTCTime)+tableRestoreStatus_requestTime = Lens.lens (\TableRestoreStatus' {requestTime} -> requestTime) (\s@TableRestoreStatus' {} a -> s {requestTime = a} :: TableRestoreStatus) Prelude.. Lens.mapping Data._Time++-- | The identifier of the snapshot that the table is being restored from.+tableRestoreStatus_snapshotIdentifier :: Lens.Lens' TableRestoreStatus (Prelude.Maybe Prelude.Text)+tableRestoreStatus_snapshotIdentifier = Lens.lens (\TableRestoreStatus' {snapshotIdentifier} -> snapshotIdentifier) (\s@TableRestoreStatus' {} a -> s {snapshotIdentifier = a} :: TableRestoreStatus)++-- | The name of the source database that contains the table being restored.+tableRestoreStatus_sourceDatabaseName :: Lens.Lens' TableRestoreStatus (Prelude.Maybe Prelude.Text)+tableRestoreStatus_sourceDatabaseName = Lens.lens (\TableRestoreStatus' {sourceDatabaseName} -> sourceDatabaseName) (\s@TableRestoreStatus' {} a -> s {sourceDatabaseName = a} :: TableRestoreStatus)++-- | The name of the source schema that contains the table being restored.+tableRestoreStatus_sourceSchemaName :: Lens.Lens' TableRestoreStatus (Prelude.Maybe Prelude.Text)+tableRestoreStatus_sourceSchemaName = Lens.lens (\TableRestoreStatus' {sourceSchemaName} -> sourceSchemaName) (\s@TableRestoreStatus' {} a -> s {sourceSchemaName = a} :: TableRestoreStatus)++-- | The name of the source table being restored.+tableRestoreStatus_sourceTableName :: Lens.Lens' TableRestoreStatus (Prelude.Maybe Prelude.Text)+tableRestoreStatus_sourceTableName = Lens.lens (\TableRestoreStatus' {sourceTableName} -> sourceTableName) (\s@TableRestoreStatus' {} a -> s {sourceTableName = a} :: TableRestoreStatus)++-- | A value that describes the current state of the table restore request.+--+-- Valid Values: @SUCCEEDED@, @FAILED@, @CANCELED@, @PENDING@,+-- @IN_PROGRESS@+tableRestoreStatus_status :: Lens.Lens' TableRestoreStatus (Prelude.Maybe TableRestoreStatusType)+tableRestoreStatus_status = Lens.lens (\TableRestoreStatus' {status} -> status) (\s@TableRestoreStatus' {} a -> s {status = a} :: TableRestoreStatus)++-- | The unique identifier for the table restore request.+tableRestoreStatus_tableRestoreRequestId :: Lens.Lens' TableRestoreStatus (Prelude.Maybe Prelude.Text)+tableRestoreStatus_tableRestoreRequestId = Lens.lens (\TableRestoreStatus' {tableRestoreRequestId} -> tableRestoreRequestId) (\s@TableRestoreStatus' {} a -> s {tableRestoreRequestId = a} :: TableRestoreStatus)++-- | The name of the database to restore the table to.+tableRestoreStatus_targetDatabaseName :: Lens.Lens' TableRestoreStatus (Prelude.Maybe Prelude.Text)+tableRestoreStatus_targetDatabaseName = Lens.lens (\TableRestoreStatus' {targetDatabaseName} -> targetDatabaseName) (\s@TableRestoreStatus' {} a -> s {targetDatabaseName = a} :: TableRestoreStatus)++-- | The name of the schema to restore the table to.+tableRestoreStatus_targetSchemaName :: Lens.Lens' TableRestoreStatus (Prelude.Maybe Prelude.Text)+tableRestoreStatus_targetSchemaName = Lens.lens (\TableRestoreStatus' {targetSchemaName} -> targetSchemaName) (\s@TableRestoreStatus' {} a -> s {targetSchemaName = a} :: TableRestoreStatus)++-- | The total amount of data to restore to the new table, in megabytes (MB).+tableRestoreStatus_totalDataInMegaBytes :: Lens.Lens' TableRestoreStatus (Prelude.Maybe Prelude.Integer)+tableRestoreStatus_totalDataInMegaBytes = Lens.lens (\TableRestoreStatus' {totalDataInMegaBytes} -> totalDataInMegaBytes) (\s@TableRestoreStatus' {} a -> s {totalDataInMegaBytes = a} :: TableRestoreStatus)++instance Data.FromXML TableRestoreStatus where+ parseXML x =+ TableRestoreStatus'+ Prelude.<$> (x Data..@? "ClusterIdentifier")+ Prelude.<*> (x Data..@? "Message")+ Prelude.<*> (x Data..@? "NewTableName")+ Prelude.<*> (x Data..@? "ProgressInMegaBytes")+ Prelude.<*> (x Data..@? "RequestTime")+ Prelude.<*> (x Data..@? "SnapshotIdentifier")+ Prelude.<*> (x Data..@? "SourceDatabaseName")+ Prelude.<*> (x Data..@? "SourceSchemaName")+ Prelude.<*> (x Data..@? "SourceTableName")+ Prelude.<*> (x Data..@? "Status")+ Prelude.<*> (x Data..@? "TableRestoreRequestId")+ Prelude.<*> (x Data..@? "TargetDatabaseName")+ Prelude.<*> (x Data..@? "TargetSchemaName")+ Prelude.<*> (x Data..@? "TotalDataInMegaBytes")++instance Prelude.Hashable TableRestoreStatus where+ hashWithSalt _salt TableRestoreStatus' {..} =+ _salt+ `Prelude.hashWithSalt` clusterIdentifier+ `Prelude.hashWithSalt` message+ `Prelude.hashWithSalt` newTableName'+ `Prelude.hashWithSalt` progressInMegaBytes+ `Prelude.hashWithSalt` requestTime+ `Prelude.hashWithSalt` snapshotIdentifier+ `Prelude.hashWithSalt` sourceDatabaseName+ `Prelude.hashWithSalt` sourceSchemaName+ `Prelude.hashWithSalt` sourceTableName+ `Prelude.hashWithSalt` status+ `Prelude.hashWithSalt` tableRestoreRequestId+ `Prelude.hashWithSalt` targetDatabaseName+ `Prelude.hashWithSalt` targetSchemaName+ `Prelude.hashWithSalt` totalDataInMegaBytes++instance Prelude.NFData TableRestoreStatus where+ rnf TableRestoreStatus' {..} =+ Prelude.rnf clusterIdentifier+ `Prelude.seq` Prelude.rnf message+ `Prelude.seq` Prelude.rnf newTableName'+ `Prelude.seq` Prelude.rnf progressInMegaBytes+ `Prelude.seq` Prelude.rnf requestTime+ `Prelude.seq` Prelude.rnf snapshotIdentifier+ `Prelude.seq` Prelude.rnf sourceDatabaseName+ `Prelude.seq` Prelude.rnf sourceSchemaName+ `Prelude.seq` Prelude.rnf sourceTableName+ `Prelude.seq` Prelude.rnf status+ `Prelude.seq` Prelude.rnf tableRestoreRequestId+ `Prelude.seq` Prelude.rnf targetDatabaseName+ `Prelude.seq` Prelude.rnf targetSchemaName+ `Prelude.seq` Prelude.rnf totalDataInMegaBytes
+ gen/Amazonka/Redshift/Types/TableRestoreStatusType.hs view
@@ -0,0 +1,87 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE GeneralizedNewtypeDeriving #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module : Amazonka.Redshift.Types.TableRestoreStatusType+-- Copyright : (c) 2013-2023 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.Redshift.Types.TableRestoreStatusType+ ( TableRestoreStatusType+ ( ..,+ TableRestoreStatusType_CANCELED,+ TableRestoreStatusType_FAILED,+ TableRestoreStatusType_IN_PROGRESS,+ TableRestoreStatusType_PENDING,+ TableRestoreStatusType_SUCCEEDED+ ),+ )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Redshift.Internal++newtype TableRestoreStatusType = TableRestoreStatusType'+ { fromTableRestoreStatusType ::+ Data.Text+ }+ deriving stock+ ( Prelude.Show,+ Prelude.Read,+ Prelude.Eq,+ Prelude.Ord,+ Prelude.Generic+ )+ deriving newtype+ ( Prelude.Hashable,+ Prelude.NFData,+ Data.FromText,+ Data.ToText,+ Data.ToByteString,+ Data.ToLog,+ Data.ToHeader,+ Data.ToQuery,+ Data.FromJSON,+ Data.FromJSONKey,+ Data.ToJSON,+ Data.ToJSONKey,+ Data.FromXML,+ Data.ToXML+ )++pattern TableRestoreStatusType_CANCELED :: TableRestoreStatusType+pattern TableRestoreStatusType_CANCELED = TableRestoreStatusType' "CANCELED"++pattern TableRestoreStatusType_FAILED :: TableRestoreStatusType+pattern TableRestoreStatusType_FAILED = TableRestoreStatusType' "FAILED"++pattern TableRestoreStatusType_IN_PROGRESS :: TableRestoreStatusType+pattern TableRestoreStatusType_IN_PROGRESS = TableRestoreStatusType' "IN_PROGRESS"++pattern TableRestoreStatusType_PENDING :: TableRestoreStatusType+pattern TableRestoreStatusType_PENDING = TableRestoreStatusType' "PENDING"++pattern TableRestoreStatusType_SUCCEEDED :: TableRestoreStatusType+pattern TableRestoreStatusType_SUCCEEDED = TableRestoreStatusType' "SUCCEEDED"++{-# COMPLETE+ TableRestoreStatusType_CANCELED,+ TableRestoreStatusType_FAILED,+ TableRestoreStatusType_IN_PROGRESS,+ TableRestoreStatusType_PENDING,+ TableRestoreStatusType_SUCCEEDED,+ TableRestoreStatusType'+ #-}
+ gen/Amazonka/Redshift/Types/Tag.hs view
@@ -0,0 +1,85 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module : Amazonka.Redshift.Types.Tag+-- Copyright : (c) 2013-2023 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.Redshift.Types.Tag where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Redshift.Internal++-- | A tag consisting of a name\/value pair for a resource.+--+-- /See:/ 'newTag' smart constructor.+data Tag = Tag'+ { -- | The key, or name, for the resource tag.+ key :: Prelude.Maybe Prelude.Text,+ -- | The value for the resource tag.+ value :: Prelude.Maybe Prelude.Text+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'Tag' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'key', 'tag_key' - The key, or name, for the resource tag.+--+-- 'value', 'tag_value' - The value for the resource tag.+newTag ::+ Tag+newTag =+ Tag'+ { key = Prelude.Nothing,+ value = Prelude.Nothing+ }++-- | The key, or name, for the resource tag.+tag_key :: Lens.Lens' Tag (Prelude.Maybe Prelude.Text)+tag_key = Lens.lens (\Tag' {key} -> key) (\s@Tag' {} a -> s {key = a} :: Tag)++-- | The value for the resource tag.+tag_value :: Lens.Lens' Tag (Prelude.Maybe Prelude.Text)+tag_value = Lens.lens (\Tag' {value} -> value) (\s@Tag' {} a -> s {value = a} :: Tag)++instance Data.FromXML Tag where+ parseXML x =+ Tag'+ Prelude.<$> (x Data..@? "Key")+ Prelude.<*> (x Data..@? "Value")++instance Prelude.Hashable Tag where+ hashWithSalt _salt Tag' {..} =+ _salt+ `Prelude.hashWithSalt` key+ `Prelude.hashWithSalt` value++instance Prelude.NFData Tag where+ rnf Tag' {..} =+ Prelude.rnf key `Prelude.seq` Prelude.rnf value++instance Data.ToQuery Tag where+ toQuery Tag' {..} =+ Prelude.mconcat+ ["Key" Data.=: key, "Value" Data.=: value]
+ gen/Amazonka/Redshift/Types/TaggedResource.hs view
@@ -0,0 +1,169 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module : Amazonka.Redshift.Types.TaggedResource+-- Copyright : (c) 2013-2023 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.Redshift.Types.TaggedResource where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Redshift.Internal+import Amazonka.Redshift.Types.Tag++-- | A tag and its associated resource.+--+-- /See:/ 'newTaggedResource' smart constructor.+data TaggedResource = TaggedResource'+ { -- | The Amazon Resource Name (ARN) with which the tag is associated, for+ -- example: @arn:aws:redshift:us-east-2:123456789:cluster:t1@.+ resourceName :: Prelude.Maybe Prelude.Text,+ -- | The type of resource with which the tag is associated. Valid resource+ -- types are:+ --+ -- - Cluster+ --+ -- - CIDR\/IP+ --+ -- - EC2 security group+ --+ -- - Snapshot+ --+ -- - Cluster security group+ --+ -- - Subnet group+ --+ -- - HSM connection+ --+ -- - HSM certificate+ --+ -- - Parameter group+ --+ -- For more information about Amazon Redshift resource types and+ -- constructing ARNs, go to+ -- <https://docs.aws.amazon.com/redshift/latest/mgmt/redshift-iam-access-control-overview.html#redshift-iam-access-control-specify-actions Constructing an Amazon Redshift Amazon Resource Name (ARN)>+ -- in the Amazon Redshift Cluster Management Guide.+ resourceType :: Prelude.Maybe Prelude.Text,+ -- | The tag for the resource.+ tag :: Prelude.Maybe Tag+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'TaggedResource' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'resourceName', 'taggedResource_resourceName' - The Amazon Resource Name (ARN) with which the tag is associated, for+-- example: @arn:aws:redshift:us-east-2:123456789:cluster:t1@.+--+-- 'resourceType', 'taggedResource_resourceType' - The type of resource with which the tag is associated. Valid resource+-- types are:+--+-- - Cluster+--+-- - CIDR\/IP+--+-- - EC2 security group+--+-- - Snapshot+--+-- - Cluster security group+--+-- - Subnet group+--+-- - HSM connection+--+-- - HSM certificate+--+-- - Parameter group+--+-- For more information about Amazon Redshift resource types and+-- constructing ARNs, go to+-- <https://docs.aws.amazon.com/redshift/latest/mgmt/redshift-iam-access-control-overview.html#redshift-iam-access-control-specify-actions Constructing an Amazon Redshift Amazon Resource Name (ARN)>+-- in the Amazon Redshift Cluster Management Guide.+--+-- 'tag', 'taggedResource_tag' - The tag for the resource.+newTaggedResource ::+ TaggedResource+newTaggedResource =+ TaggedResource'+ { resourceName = Prelude.Nothing,+ resourceType = Prelude.Nothing,+ tag = Prelude.Nothing+ }++-- | The Amazon Resource Name (ARN) with which the tag is associated, for+-- example: @arn:aws:redshift:us-east-2:123456789:cluster:t1@.+taggedResource_resourceName :: Lens.Lens' TaggedResource (Prelude.Maybe Prelude.Text)+taggedResource_resourceName = Lens.lens (\TaggedResource' {resourceName} -> resourceName) (\s@TaggedResource' {} a -> s {resourceName = a} :: TaggedResource)++-- | The type of resource with which the tag is associated. Valid resource+-- types are:+--+-- - Cluster+--+-- - CIDR\/IP+--+-- - EC2 security group+--+-- - Snapshot+--+-- - Cluster security group+--+-- - Subnet group+--+-- - HSM connection+--+-- - HSM certificate+--+-- - Parameter group+--+-- For more information about Amazon Redshift resource types and+-- constructing ARNs, go to+-- <https://docs.aws.amazon.com/redshift/latest/mgmt/redshift-iam-access-control-overview.html#redshift-iam-access-control-specify-actions Constructing an Amazon Redshift Amazon Resource Name (ARN)>+-- in the Amazon Redshift Cluster Management Guide.+taggedResource_resourceType :: Lens.Lens' TaggedResource (Prelude.Maybe Prelude.Text)+taggedResource_resourceType = Lens.lens (\TaggedResource' {resourceType} -> resourceType) (\s@TaggedResource' {} a -> s {resourceType = a} :: TaggedResource)++-- | The tag for the resource.+taggedResource_tag :: Lens.Lens' TaggedResource (Prelude.Maybe Tag)+taggedResource_tag = Lens.lens (\TaggedResource' {tag} -> tag) (\s@TaggedResource' {} a -> s {tag = a} :: TaggedResource)++instance Data.FromXML TaggedResource where+ parseXML x =+ TaggedResource'+ Prelude.<$> (x Data..@? "ResourceName")+ Prelude.<*> (x Data..@? "ResourceType")+ Prelude.<*> (x Data..@? "Tag")++instance Prelude.Hashable TaggedResource where+ hashWithSalt _salt TaggedResource' {..} =+ _salt+ `Prelude.hashWithSalt` resourceName+ `Prelude.hashWithSalt` resourceType+ `Prelude.hashWithSalt` tag++instance Prelude.NFData TaggedResource where+ rnf TaggedResource' {..} =+ Prelude.rnf resourceName+ `Prelude.seq` Prelude.rnf resourceType+ `Prelude.seq` Prelude.rnf tag
+ gen/Amazonka/Redshift/Types/UpdateTarget.hs view
@@ -0,0 +1,98 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module : Amazonka.Redshift.Types.UpdateTarget+-- Copyright : (c) 2013-2023 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.Redshift.Types.UpdateTarget where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Redshift.Internal+import Amazonka.Redshift.Types.SupportedOperation++-- | A maintenance track that you can switch the current track to.+--+-- /See:/ 'newUpdateTarget' smart constructor.+data UpdateTarget = UpdateTarget'+ { -- | The cluster version for the new maintenance track.+ databaseVersion :: Prelude.Maybe Prelude.Text,+ -- | The name of the new maintenance track.+ maintenanceTrackName :: Prelude.Maybe Prelude.Text,+ -- | A list of operations supported by the maintenance track.+ supportedOperations :: Prelude.Maybe [SupportedOperation]+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'UpdateTarget' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'databaseVersion', 'updateTarget_databaseVersion' - The cluster version for the new maintenance track.+--+-- 'maintenanceTrackName', 'updateTarget_maintenanceTrackName' - The name of the new maintenance track.+--+-- 'supportedOperations', 'updateTarget_supportedOperations' - A list of operations supported by the maintenance track.+newUpdateTarget ::+ UpdateTarget+newUpdateTarget =+ UpdateTarget'+ { databaseVersion = Prelude.Nothing,+ maintenanceTrackName = Prelude.Nothing,+ supportedOperations = Prelude.Nothing+ }++-- | The cluster version for the new maintenance track.+updateTarget_databaseVersion :: Lens.Lens' UpdateTarget (Prelude.Maybe Prelude.Text)+updateTarget_databaseVersion = Lens.lens (\UpdateTarget' {databaseVersion} -> databaseVersion) (\s@UpdateTarget' {} a -> s {databaseVersion = a} :: UpdateTarget)++-- | The name of the new maintenance track.+updateTarget_maintenanceTrackName :: Lens.Lens' UpdateTarget (Prelude.Maybe Prelude.Text)+updateTarget_maintenanceTrackName = Lens.lens (\UpdateTarget' {maintenanceTrackName} -> maintenanceTrackName) (\s@UpdateTarget' {} a -> s {maintenanceTrackName = a} :: UpdateTarget)++-- | A list of operations supported by the maintenance track.+updateTarget_supportedOperations :: Lens.Lens' UpdateTarget (Prelude.Maybe [SupportedOperation])+updateTarget_supportedOperations = Lens.lens (\UpdateTarget' {supportedOperations} -> supportedOperations) (\s@UpdateTarget' {} a -> s {supportedOperations = a} :: UpdateTarget) Prelude.. Lens.mapping Lens.coerced++instance Data.FromXML UpdateTarget where+ parseXML x =+ UpdateTarget'+ Prelude.<$> (x Data..@? "DatabaseVersion")+ Prelude.<*> (x Data..@? "MaintenanceTrackName")+ Prelude.<*> ( x+ Data..@? "SupportedOperations"+ Core..!@ Prelude.mempty+ Prelude.>>= Core.may (Data.parseXMLList "SupportedOperation")+ )++instance Prelude.Hashable UpdateTarget where+ hashWithSalt _salt UpdateTarget' {..} =+ _salt+ `Prelude.hashWithSalt` databaseVersion+ `Prelude.hashWithSalt` maintenanceTrackName+ `Prelude.hashWithSalt` supportedOperations++instance Prelude.NFData UpdateTarget where+ rnf UpdateTarget' {..} =+ Prelude.rnf databaseVersion+ `Prelude.seq` Prelude.rnf maintenanceTrackName+ `Prelude.seq` Prelude.rnf supportedOperations
+ gen/Amazonka/Redshift/Types/UsageLimit.hs view
@@ -0,0 +1,195 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module : Amazonka.Redshift.Types.UsageLimit+-- Copyright : (c) 2013-2023 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.Redshift.Types.UsageLimit where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Redshift.Internal+import Amazonka.Redshift.Types.Tag+import Amazonka.Redshift.Types.UsageLimitBreachAction+import Amazonka.Redshift.Types.UsageLimitFeatureType+import Amazonka.Redshift.Types.UsageLimitLimitType+import Amazonka.Redshift.Types.UsageLimitPeriod++-- | Describes a usage limit object for a cluster.+--+-- /See:/ 'newUsageLimit' smart constructor.+data UsageLimit = UsageLimit'+ { -- | The limit amount. If time-based, this amount is in minutes. If+ -- data-based, this amount is in terabytes (TB).+ amount :: Prelude.Maybe Prelude.Integer,+ -- | The action that Amazon Redshift takes when the limit is reached.+ -- Possible values are:+ --+ -- - __log__ - To log an event in a system table. The default is log.+ --+ -- - __emit-metric__ - To emit CloudWatch metrics.+ --+ -- - __disable__ - To disable the feature until the next usage period+ -- begins.+ breachAction :: Prelude.Maybe UsageLimitBreachAction,+ -- | The identifier of the cluster with a usage limit.+ clusterIdentifier :: Prelude.Maybe Prelude.Text,+ -- | The Amazon Redshift feature to which the limit applies.+ featureType :: Prelude.Maybe UsageLimitFeatureType,+ -- | The type of limit. Depending on the feature type, this can be based on a+ -- time duration or data size.+ limitType :: Prelude.Maybe UsageLimitLimitType,+ -- | The time period that the amount applies to. A @weekly@ period begins on+ -- Sunday. The default is @monthly@.+ period :: Prelude.Maybe UsageLimitPeriod,+ -- | A list of tag instances.+ tags :: Prelude.Maybe [Tag],+ -- | The identifier of the usage limit.+ usageLimitId :: Prelude.Maybe Prelude.Text+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'UsageLimit' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'amount', 'usageLimit_amount' - The limit amount. If time-based, this amount is in minutes. If+-- data-based, this amount is in terabytes (TB).+--+-- 'breachAction', 'usageLimit_breachAction' - The action that Amazon Redshift takes when the limit is reached.+-- Possible values are:+--+-- - __log__ - To log an event in a system table. The default is log.+--+-- - __emit-metric__ - To emit CloudWatch metrics.+--+-- - __disable__ - To disable the feature until the next usage period+-- begins.+--+-- 'clusterIdentifier', 'usageLimit_clusterIdentifier' - The identifier of the cluster with a usage limit.+--+-- 'featureType', 'usageLimit_featureType' - The Amazon Redshift feature to which the limit applies.+--+-- 'limitType', 'usageLimit_limitType' - The type of limit. Depending on the feature type, this can be based on a+-- time duration or data size.+--+-- 'period', 'usageLimit_period' - The time period that the amount applies to. A @weekly@ period begins on+-- Sunday. The default is @monthly@.+--+-- 'tags', 'usageLimit_tags' - A list of tag instances.+--+-- 'usageLimitId', 'usageLimit_usageLimitId' - The identifier of the usage limit.+newUsageLimit ::+ UsageLimit+newUsageLimit =+ UsageLimit'+ { amount = Prelude.Nothing,+ breachAction = Prelude.Nothing,+ clusterIdentifier = Prelude.Nothing,+ featureType = Prelude.Nothing,+ limitType = Prelude.Nothing,+ period = Prelude.Nothing,+ tags = Prelude.Nothing,+ usageLimitId = Prelude.Nothing+ }++-- | The limit amount. If time-based, this amount is in minutes. If+-- data-based, this amount is in terabytes (TB).+usageLimit_amount :: Lens.Lens' UsageLimit (Prelude.Maybe Prelude.Integer)+usageLimit_amount = Lens.lens (\UsageLimit' {amount} -> amount) (\s@UsageLimit' {} a -> s {amount = a} :: UsageLimit)++-- | The action that Amazon Redshift takes when the limit is reached.+-- Possible values are:+--+-- - __log__ - To log an event in a system table. The default is log.+--+-- - __emit-metric__ - To emit CloudWatch metrics.+--+-- - __disable__ - To disable the feature until the next usage period+-- begins.+usageLimit_breachAction :: Lens.Lens' UsageLimit (Prelude.Maybe UsageLimitBreachAction)+usageLimit_breachAction = Lens.lens (\UsageLimit' {breachAction} -> breachAction) (\s@UsageLimit' {} a -> s {breachAction = a} :: UsageLimit)++-- | The identifier of the cluster with a usage limit.+usageLimit_clusterIdentifier :: Lens.Lens' UsageLimit (Prelude.Maybe Prelude.Text)+usageLimit_clusterIdentifier = Lens.lens (\UsageLimit' {clusterIdentifier} -> clusterIdentifier) (\s@UsageLimit' {} a -> s {clusterIdentifier = a} :: UsageLimit)++-- | The Amazon Redshift feature to which the limit applies.+usageLimit_featureType :: Lens.Lens' UsageLimit (Prelude.Maybe UsageLimitFeatureType)+usageLimit_featureType = Lens.lens (\UsageLimit' {featureType} -> featureType) (\s@UsageLimit' {} a -> s {featureType = a} :: UsageLimit)++-- | The type of limit. Depending on the feature type, this can be based on a+-- time duration or data size.+usageLimit_limitType :: Lens.Lens' UsageLimit (Prelude.Maybe UsageLimitLimitType)+usageLimit_limitType = Lens.lens (\UsageLimit' {limitType} -> limitType) (\s@UsageLimit' {} a -> s {limitType = a} :: UsageLimit)++-- | The time period that the amount applies to. A @weekly@ period begins on+-- Sunday. The default is @monthly@.+usageLimit_period :: Lens.Lens' UsageLimit (Prelude.Maybe UsageLimitPeriod)+usageLimit_period = Lens.lens (\UsageLimit' {period} -> period) (\s@UsageLimit' {} a -> s {period = a} :: UsageLimit)++-- | A list of tag instances.+usageLimit_tags :: Lens.Lens' UsageLimit (Prelude.Maybe [Tag])+usageLimit_tags = Lens.lens (\UsageLimit' {tags} -> tags) (\s@UsageLimit' {} a -> s {tags = a} :: UsageLimit) Prelude.. Lens.mapping Lens.coerced++-- | The identifier of the usage limit.+usageLimit_usageLimitId :: Lens.Lens' UsageLimit (Prelude.Maybe Prelude.Text)+usageLimit_usageLimitId = Lens.lens (\UsageLimit' {usageLimitId} -> usageLimitId) (\s@UsageLimit' {} a -> s {usageLimitId = a} :: UsageLimit)++instance Data.FromXML UsageLimit where+ parseXML x =+ UsageLimit'+ Prelude.<$> (x Data..@? "Amount")+ Prelude.<*> (x Data..@? "BreachAction")+ Prelude.<*> (x Data..@? "ClusterIdentifier")+ Prelude.<*> (x Data..@? "FeatureType")+ Prelude.<*> (x Data..@? "LimitType")+ Prelude.<*> (x Data..@? "Period")+ Prelude.<*> ( x+ Data..@? "Tags"+ Core..!@ Prelude.mempty+ Prelude.>>= Core.may (Data.parseXMLList "Tag")+ )+ Prelude.<*> (x Data..@? "UsageLimitId")++instance Prelude.Hashable UsageLimit where+ hashWithSalt _salt UsageLimit' {..} =+ _salt+ `Prelude.hashWithSalt` amount+ `Prelude.hashWithSalt` breachAction+ `Prelude.hashWithSalt` clusterIdentifier+ `Prelude.hashWithSalt` featureType+ `Prelude.hashWithSalt` limitType+ `Prelude.hashWithSalt` period+ `Prelude.hashWithSalt` tags+ `Prelude.hashWithSalt` usageLimitId++instance Prelude.NFData UsageLimit where+ rnf UsageLimit' {..} =+ Prelude.rnf amount+ `Prelude.seq` Prelude.rnf breachAction+ `Prelude.seq` Prelude.rnf clusterIdentifier+ `Prelude.seq` Prelude.rnf featureType+ `Prelude.seq` Prelude.rnf limitType+ `Prelude.seq` Prelude.rnf period+ `Prelude.seq` Prelude.rnf tags+ `Prelude.seq` Prelude.rnf usageLimitId
+ gen/Amazonka/Redshift/Types/UsageLimitBreachAction.hs view
@@ -0,0 +1,77 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE GeneralizedNewtypeDeriving #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module : Amazonka.Redshift.Types.UsageLimitBreachAction+-- Copyright : (c) 2013-2023 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.Redshift.Types.UsageLimitBreachAction+ ( UsageLimitBreachAction+ ( ..,+ UsageLimitBreachAction_Disable,+ UsageLimitBreachAction_Emit_metric,+ UsageLimitBreachAction_Log+ ),+ )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Redshift.Internal++newtype UsageLimitBreachAction = UsageLimitBreachAction'+ { fromUsageLimitBreachAction ::+ Data.Text+ }+ deriving stock+ ( Prelude.Show,+ Prelude.Read,+ Prelude.Eq,+ Prelude.Ord,+ Prelude.Generic+ )+ deriving newtype+ ( Prelude.Hashable,+ Prelude.NFData,+ Data.FromText,+ Data.ToText,+ Data.ToByteString,+ Data.ToLog,+ Data.ToHeader,+ Data.ToQuery,+ Data.FromJSON,+ Data.FromJSONKey,+ Data.ToJSON,+ Data.ToJSONKey,+ Data.FromXML,+ Data.ToXML+ )++pattern UsageLimitBreachAction_Disable :: UsageLimitBreachAction+pattern UsageLimitBreachAction_Disable = UsageLimitBreachAction' "disable"++pattern UsageLimitBreachAction_Emit_metric :: UsageLimitBreachAction+pattern UsageLimitBreachAction_Emit_metric = UsageLimitBreachAction' "emit-metric"++pattern UsageLimitBreachAction_Log :: UsageLimitBreachAction+pattern UsageLimitBreachAction_Log = UsageLimitBreachAction' "log"++{-# COMPLETE+ UsageLimitBreachAction_Disable,+ UsageLimitBreachAction_Emit_metric,+ UsageLimitBreachAction_Log,+ UsageLimitBreachAction'+ #-}
+ gen/Amazonka/Redshift/Types/UsageLimitFeatureType.hs view
@@ -0,0 +1,77 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE GeneralizedNewtypeDeriving #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module : Amazonka.Redshift.Types.UsageLimitFeatureType+-- Copyright : (c) 2013-2023 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.Redshift.Types.UsageLimitFeatureType+ ( UsageLimitFeatureType+ ( ..,+ UsageLimitFeatureType_Concurrency_scaling,+ UsageLimitFeatureType_Cross_region_datasharing,+ UsageLimitFeatureType_Spectrum+ ),+ )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Redshift.Internal++newtype UsageLimitFeatureType = UsageLimitFeatureType'+ { fromUsageLimitFeatureType ::+ Data.Text+ }+ deriving stock+ ( Prelude.Show,+ Prelude.Read,+ Prelude.Eq,+ Prelude.Ord,+ Prelude.Generic+ )+ deriving newtype+ ( Prelude.Hashable,+ Prelude.NFData,+ Data.FromText,+ Data.ToText,+ Data.ToByteString,+ Data.ToLog,+ Data.ToHeader,+ Data.ToQuery,+ Data.FromJSON,+ Data.FromJSONKey,+ Data.ToJSON,+ Data.ToJSONKey,+ Data.FromXML,+ Data.ToXML+ )++pattern UsageLimitFeatureType_Concurrency_scaling :: UsageLimitFeatureType+pattern UsageLimitFeatureType_Concurrency_scaling = UsageLimitFeatureType' "concurrency-scaling"++pattern UsageLimitFeatureType_Cross_region_datasharing :: UsageLimitFeatureType+pattern UsageLimitFeatureType_Cross_region_datasharing = UsageLimitFeatureType' "cross-region-datasharing"++pattern UsageLimitFeatureType_Spectrum :: UsageLimitFeatureType+pattern UsageLimitFeatureType_Spectrum = UsageLimitFeatureType' "spectrum"++{-# COMPLETE+ UsageLimitFeatureType_Concurrency_scaling,+ UsageLimitFeatureType_Cross_region_datasharing,+ UsageLimitFeatureType_Spectrum,+ UsageLimitFeatureType'+ #-}
+ gen/Amazonka/Redshift/Types/UsageLimitLimitType.hs view
@@ -0,0 +1,72 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE GeneralizedNewtypeDeriving #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module : Amazonka.Redshift.Types.UsageLimitLimitType+-- Copyright : (c) 2013-2023 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.Redshift.Types.UsageLimitLimitType+ ( UsageLimitLimitType+ ( ..,+ UsageLimitLimitType_Data_scanned,+ UsageLimitLimitType_Time+ ),+ )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Redshift.Internal++newtype UsageLimitLimitType = UsageLimitLimitType'+ { fromUsageLimitLimitType ::+ Data.Text+ }+ deriving stock+ ( Prelude.Show,+ Prelude.Read,+ Prelude.Eq,+ Prelude.Ord,+ Prelude.Generic+ )+ deriving newtype+ ( Prelude.Hashable,+ Prelude.NFData,+ Data.FromText,+ Data.ToText,+ Data.ToByteString,+ Data.ToLog,+ Data.ToHeader,+ Data.ToQuery,+ Data.FromJSON,+ Data.FromJSONKey,+ Data.ToJSON,+ Data.ToJSONKey,+ Data.FromXML,+ Data.ToXML+ )++pattern UsageLimitLimitType_Data_scanned :: UsageLimitLimitType+pattern UsageLimitLimitType_Data_scanned = UsageLimitLimitType' "data-scanned"++pattern UsageLimitLimitType_Time :: UsageLimitLimitType+pattern UsageLimitLimitType_Time = UsageLimitLimitType' "time"++{-# COMPLETE+ UsageLimitLimitType_Data_scanned,+ UsageLimitLimitType_Time,+ UsageLimitLimitType'+ #-}
+ gen/Amazonka/Redshift/Types/UsageLimitPeriod.hs view
@@ -0,0 +1,77 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE GeneralizedNewtypeDeriving #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module : Amazonka.Redshift.Types.UsageLimitPeriod+-- Copyright : (c) 2013-2023 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.Redshift.Types.UsageLimitPeriod+ ( UsageLimitPeriod+ ( ..,+ UsageLimitPeriod_Daily,+ UsageLimitPeriod_Monthly,+ UsageLimitPeriod_Weekly+ ),+ )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Redshift.Internal++newtype UsageLimitPeriod = UsageLimitPeriod'+ { fromUsageLimitPeriod ::+ Data.Text+ }+ deriving stock+ ( Prelude.Show,+ Prelude.Read,+ Prelude.Eq,+ Prelude.Ord,+ Prelude.Generic+ )+ deriving newtype+ ( Prelude.Hashable,+ Prelude.NFData,+ Data.FromText,+ Data.ToText,+ Data.ToByteString,+ Data.ToLog,+ Data.ToHeader,+ Data.ToQuery,+ Data.FromJSON,+ Data.FromJSONKey,+ Data.ToJSON,+ Data.ToJSONKey,+ Data.FromXML,+ Data.ToXML+ )++pattern UsageLimitPeriod_Daily :: UsageLimitPeriod+pattern UsageLimitPeriod_Daily = UsageLimitPeriod' "daily"++pattern UsageLimitPeriod_Monthly :: UsageLimitPeriod+pattern UsageLimitPeriod_Monthly = UsageLimitPeriod' "monthly"++pattern UsageLimitPeriod_Weekly :: UsageLimitPeriod+pattern UsageLimitPeriod_Weekly = UsageLimitPeriod' "weekly"++{-# COMPLETE+ UsageLimitPeriod_Daily,+ UsageLimitPeriod_Monthly,+ UsageLimitPeriod_Weekly,+ UsageLimitPeriod'+ #-}
+ gen/Amazonka/Redshift/Types/VpcEndpoint.hs view
@@ -0,0 +1,105 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module : Amazonka.Redshift.Types.VpcEndpoint+-- Copyright : (c) 2013-2023 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.Redshift.Types.VpcEndpoint where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Redshift.Internal+import Amazonka.Redshift.Types.NetworkInterface++-- | The connection endpoint for connecting to an Amazon Redshift cluster+-- through the proxy.+--+-- /See:/ 'newVpcEndpoint' smart constructor.+data VpcEndpoint = VpcEndpoint'+ { -- | One or more network interfaces of the endpoint. Also known as an+ -- interface endpoint.+ networkInterfaces :: Prelude.Maybe [NetworkInterface],+ -- | The connection endpoint ID for connecting an Amazon Redshift cluster+ -- through the proxy.+ vpcEndpointId :: Prelude.Maybe Prelude.Text,+ -- | The VPC identifier that the endpoint is associated.+ vpcId :: Prelude.Maybe Prelude.Text+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'VpcEndpoint' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'networkInterfaces', 'vpcEndpoint_networkInterfaces' - One or more network interfaces of the endpoint. Also known as an+-- interface endpoint.+--+-- 'vpcEndpointId', 'vpcEndpoint_vpcEndpointId' - The connection endpoint ID for connecting an Amazon Redshift cluster+-- through the proxy.+--+-- 'vpcId', 'vpcEndpoint_vpcId' - The VPC identifier that the endpoint is associated.+newVpcEndpoint ::+ VpcEndpoint+newVpcEndpoint =+ VpcEndpoint'+ { networkInterfaces = Prelude.Nothing,+ vpcEndpointId = Prelude.Nothing,+ vpcId = Prelude.Nothing+ }++-- | One or more network interfaces of the endpoint. Also known as an+-- interface endpoint.+vpcEndpoint_networkInterfaces :: Lens.Lens' VpcEndpoint (Prelude.Maybe [NetworkInterface])+vpcEndpoint_networkInterfaces = Lens.lens (\VpcEndpoint' {networkInterfaces} -> networkInterfaces) (\s@VpcEndpoint' {} a -> s {networkInterfaces = a} :: VpcEndpoint) Prelude.. Lens.mapping Lens.coerced++-- | The connection endpoint ID for connecting an Amazon Redshift cluster+-- through the proxy.+vpcEndpoint_vpcEndpointId :: Lens.Lens' VpcEndpoint (Prelude.Maybe Prelude.Text)+vpcEndpoint_vpcEndpointId = Lens.lens (\VpcEndpoint' {vpcEndpointId} -> vpcEndpointId) (\s@VpcEndpoint' {} a -> s {vpcEndpointId = a} :: VpcEndpoint)++-- | The VPC identifier that the endpoint is associated.+vpcEndpoint_vpcId :: Lens.Lens' VpcEndpoint (Prelude.Maybe Prelude.Text)+vpcEndpoint_vpcId = Lens.lens (\VpcEndpoint' {vpcId} -> vpcId) (\s@VpcEndpoint' {} a -> s {vpcId = a} :: VpcEndpoint)++instance Data.FromXML VpcEndpoint where+ parseXML x =+ VpcEndpoint'+ Prelude.<$> ( x+ Data..@? "NetworkInterfaces"+ Core..!@ Prelude.mempty+ Prelude.>>= Core.may (Data.parseXMLList "NetworkInterface")+ )+ Prelude.<*> (x Data..@? "VpcEndpointId")+ Prelude.<*> (x Data..@? "VpcId")++instance Prelude.Hashable VpcEndpoint where+ hashWithSalt _salt VpcEndpoint' {..} =+ _salt+ `Prelude.hashWithSalt` networkInterfaces+ `Prelude.hashWithSalt` vpcEndpointId+ `Prelude.hashWithSalt` vpcId++instance Prelude.NFData VpcEndpoint where+ rnf VpcEndpoint' {..} =+ Prelude.rnf networkInterfaces+ `Prelude.seq` Prelude.rnf vpcEndpointId+ `Prelude.seq` Prelude.rnf vpcId
+ gen/Amazonka/Redshift/Types/VpcSecurityGroupMembership.hs view
@@ -0,0 +1,82 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module : Amazonka.Redshift.Types.VpcSecurityGroupMembership+-- Copyright : (c) 2013-2023 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.Redshift.Types.VpcSecurityGroupMembership where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Redshift.Internal++-- | Describes the members of a VPC security group.+--+-- /See:/ 'newVpcSecurityGroupMembership' smart constructor.+data VpcSecurityGroupMembership = VpcSecurityGroupMembership'+ { -- | The status of the VPC security group.+ status :: Prelude.Maybe Prelude.Text,+ -- | The identifier of the VPC security group.+ vpcSecurityGroupId :: Prelude.Maybe Prelude.Text+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'VpcSecurityGroupMembership' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'status', 'vpcSecurityGroupMembership_status' - The status of the VPC security group.+--+-- 'vpcSecurityGroupId', 'vpcSecurityGroupMembership_vpcSecurityGroupId' - The identifier of the VPC security group.+newVpcSecurityGroupMembership ::+ VpcSecurityGroupMembership+newVpcSecurityGroupMembership =+ VpcSecurityGroupMembership'+ { status =+ Prelude.Nothing,+ vpcSecurityGroupId = Prelude.Nothing+ }++-- | The status of the VPC security group.+vpcSecurityGroupMembership_status :: Lens.Lens' VpcSecurityGroupMembership (Prelude.Maybe Prelude.Text)+vpcSecurityGroupMembership_status = Lens.lens (\VpcSecurityGroupMembership' {status} -> status) (\s@VpcSecurityGroupMembership' {} a -> s {status = a} :: VpcSecurityGroupMembership)++-- | The identifier of the VPC security group.+vpcSecurityGroupMembership_vpcSecurityGroupId :: Lens.Lens' VpcSecurityGroupMembership (Prelude.Maybe Prelude.Text)+vpcSecurityGroupMembership_vpcSecurityGroupId = Lens.lens (\VpcSecurityGroupMembership' {vpcSecurityGroupId} -> vpcSecurityGroupId) (\s@VpcSecurityGroupMembership' {} a -> s {vpcSecurityGroupId = a} :: VpcSecurityGroupMembership)++instance Data.FromXML VpcSecurityGroupMembership where+ parseXML x =+ VpcSecurityGroupMembership'+ Prelude.<$> (x Data..@? "Status")+ Prelude.<*> (x Data..@? "VpcSecurityGroupId")++instance Prelude.Hashable VpcSecurityGroupMembership where+ hashWithSalt _salt VpcSecurityGroupMembership' {..} =+ _salt+ `Prelude.hashWithSalt` status+ `Prelude.hashWithSalt` vpcSecurityGroupId++instance Prelude.NFData VpcSecurityGroupMembership where+ rnf VpcSecurityGroupMembership' {..} =+ Prelude.rnf status+ `Prelude.seq` Prelude.rnf vpcSecurityGroupId
+ gen/Amazonka/Redshift/UpdatePartnerStatus.hs view
@@ -0,0 +1,198 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module : Amazonka.Redshift.UpdatePartnerStatus+-- Copyright : (c) 2013-2023 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Updates the status of a partner integration.+module Amazonka.Redshift.UpdatePartnerStatus+ ( -- * Creating a Request+ UpdatePartnerStatus (..),+ newUpdatePartnerStatus,++ -- * Request Lenses+ updatePartnerStatus_statusMessage,+ updatePartnerStatus_accountId,+ updatePartnerStatus_clusterIdentifier,+ updatePartnerStatus_databaseName,+ updatePartnerStatus_partnerName,+ updatePartnerStatus_status,++ -- * Destructuring the Response+ PartnerIntegrationOutputMessage (..),+ newPartnerIntegrationOutputMessage,++ -- * Response Lenses+ partnerIntegrationOutputMessage_databaseName,+ partnerIntegrationOutputMessage_partnerName,+ )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Redshift.Types+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newUpdatePartnerStatus' smart constructor.+data UpdatePartnerStatus = UpdatePartnerStatus'+ { -- | The status message provided by the partner.+ statusMessage :: Prelude.Maybe Prelude.Text,+ -- | The Amazon Web Services account ID that owns the cluster.+ accountId :: Prelude.Text,+ -- | The cluster identifier of the cluster whose partner integration status+ -- is being updated.+ clusterIdentifier :: Prelude.Text,+ -- | The name of the database whose partner integration status is being+ -- updated.+ databaseName :: Prelude.Text,+ -- | The name of the partner whose integration status is being updated.+ partnerName :: Prelude.Text,+ -- | The value of the updated status.+ status :: PartnerIntegrationStatus+ }+ deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'UpdatePartnerStatus' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'statusMessage', 'updatePartnerStatus_statusMessage' - The status message provided by the partner.+--+-- 'accountId', 'updatePartnerStatus_accountId' - The Amazon Web Services account ID that owns the cluster.+--+-- 'clusterIdentifier', 'updatePartnerStatus_clusterIdentifier' - The cluster identifier of the cluster whose partner integration status+-- is being updated.+--+-- 'databaseName', 'updatePartnerStatus_databaseName' - The name of the database whose partner integration status is being+-- updated.+--+-- 'partnerName', 'updatePartnerStatus_partnerName' - The name of the partner whose integration status is being updated.+--+-- 'status', 'updatePartnerStatus_status' - The value of the updated status.+newUpdatePartnerStatus ::+ -- | 'accountId'+ Prelude.Text ->+ -- | 'clusterIdentifier'+ Prelude.Text ->+ -- | 'databaseName'+ Prelude.Text ->+ -- | 'partnerName'+ Prelude.Text ->+ -- | 'status'+ PartnerIntegrationStatus ->+ UpdatePartnerStatus+newUpdatePartnerStatus+ pAccountId_+ pClusterIdentifier_+ pDatabaseName_+ pPartnerName_+ pStatus_ =+ UpdatePartnerStatus'+ { statusMessage =+ Prelude.Nothing,+ accountId = pAccountId_,+ clusterIdentifier = pClusterIdentifier_,+ databaseName = pDatabaseName_,+ partnerName = pPartnerName_,+ status = pStatus_+ }++-- | The status message provided by the partner.+updatePartnerStatus_statusMessage :: Lens.Lens' UpdatePartnerStatus (Prelude.Maybe Prelude.Text)+updatePartnerStatus_statusMessage = Lens.lens (\UpdatePartnerStatus' {statusMessage} -> statusMessage) (\s@UpdatePartnerStatus' {} a -> s {statusMessage = a} :: UpdatePartnerStatus)++-- | The Amazon Web Services account ID that owns the cluster.+updatePartnerStatus_accountId :: Lens.Lens' UpdatePartnerStatus Prelude.Text+updatePartnerStatus_accountId = Lens.lens (\UpdatePartnerStatus' {accountId} -> accountId) (\s@UpdatePartnerStatus' {} a -> s {accountId = a} :: UpdatePartnerStatus)++-- | The cluster identifier of the cluster whose partner integration status+-- is being updated.+updatePartnerStatus_clusterIdentifier :: Lens.Lens' UpdatePartnerStatus Prelude.Text+updatePartnerStatus_clusterIdentifier = Lens.lens (\UpdatePartnerStatus' {clusterIdentifier} -> clusterIdentifier) (\s@UpdatePartnerStatus' {} a -> s {clusterIdentifier = a} :: UpdatePartnerStatus)++-- | The name of the database whose partner integration status is being+-- updated.+updatePartnerStatus_databaseName :: Lens.Lens' UpdatePartnerStatus Prelude.Text+updatePartnerStatus_databaseName = Lens.lens (\UpdatePartnerStatus' {databaseName} -> databaseName) (\s@UpdatePartnerStatus' {} a -> s {databaseName = a} :: UpdatePartnerStatus)++-- | The name of the partner whose integration status is being updated.+updatePartnerStatus_partnerName :: Lens.Lens' UpdatePartnerStatus Prelude.Text+updatePartnerStatus_partnerName = Lens.lens (\UpdatePartnerStatus' {partnerName} -> partnerName) (\s@UpdatePartnerStatus' {} a -> s {partnerName = a} :: UpdatePartnerStatus)++-- | The value of the updated status.+updatePartnerStatus_status :: Lens.Lens' UpdatePartnerStatus PartnerIntegrationStatus+updatePartnerStatus_status = Lens.lens (\UpdatePartnerStatus' {status} -> status) (\s@UpdatePartnerStatus' {} a -> s {status = a} :: UpdatePartnerStatus)++instance Core.AWSRequest UpdatePartnerStatus where+ type+ AWSResponse UpdatePartnerStatus =+ PartnerIntegrationOutputMessage+ request overrides =+ Request.postQuery (overrides defaultService)+ response =+ Response.receiveXMLWrapper+ "UpdatePartnerStatusResult"+ (\s h x -> Data.parseXML x)++instance Prelude.Hashable UpdatePartnerStatus where+ hashWithSalt _salt UpdatePartnerStatus' {..} =+ _salt+ `Prelude.hashWithSalt` statusMessage+ `Prelude.hashWithSalt` accountId+ `Prelude.hashWithSalt` clusterIdentifier+ `Prelude.hashWithSalt` databaseName+ `Prelude.hashWithSalt` partnerName+ `Prelude.hashWithSalt` status++instance Prelude.NFData UpdatePartnerStatus where+ rnf UpdatePartnerStatus' {..} =+ Prelude.rnf statusMessage+ `Prelude.seq` Prelude.rnf accountId+ `Prelude.seq` Prelude.rnf clusterIdentifier+ `Prelude.seq` Prelude.rnf databaseName+ `Prelude.seq` Prelude.rnf partnerName+ `Prelude.seq` Prelude.rnf status++instance Data.ToHeaders UpdatePartnerStatus where+ toHeaders = Prelude.const Prelude.mempty++instance Data.ToPath UpdatePartnerStatus where+ toPath = Prelude.const "/"++instance Data.ToQuery UpdatePartnerStatus where+ toQuery UpdatePartnerStatus' {..} =+ Prelude.mconcat+ [ "Action"+ Data.=: ("UpdatePartnerStatus" :: Prelude.ByteString),+ "Version"+ Data.=: ("2012-12-01" :: Prelude.ByteString),+ "StatusMessage" Data.=: statusMessage,+ "AccountId" Data.=: accountId,+ "ClusterIdentifier" Data.=: clusterIdentifier,+ "DatabaseName" Data.=: databaseName,+ "PartnerName" Data.=: partnerName,+ "Status" Data.=: status+ ]
+ gen/Amazonka/Redshift/Waiters.hs view
@@ -0,0 +1,193 @@+{-# LANGUAGE DisambiguateRecordFields #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module : Amazonka.Redshift.Waiters+-- Copyright : (c) 2013-2023 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.Redshift.Waiters where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Redshift.DescribeClusterSnapshots+import Amazonka.Redshift.DescribeClusters+import Amazonka.Redshift.Lens+import Amazonka.Redshift.Types++-- | Polls 'Amazonka.Redshift.DescribeClusters' every 60 seconds until a successful state is reached. An error is returned after 30 failed checks.+newClusterAvailable :: Core.Wait DescribeClusters+newClusterAvailable =+ Core.Wait+ { Core.name = "ClusterAvailable",+ Core.attempts = 30,+ Core.delay = 60,+ Core.acceptors =+ [ Core.matchAll+ "available"+ Core.AcceptSuccess+ ( Lens.folding+ ( Lens.concatOf+ ( describeClustersResponse_clusters+ Prelude.. Lens._Just+ )+ )+ Prelude.. cluster_clusterStatus+ Prelude.. Lens._Just+ Prelude.. Lens.to Data.toTextCI+ ),+ Core.matchAny+ "deleting"+ Core.AcceptFailure+ ( Lens.folding+ ( Lens.concatOf+ ( describeClustersResponse_clusters+ Prelude.. Lens._Just+ )+ )+ Prelude.. cluster_clusterStatus+ Prelude.. Lens._Just+ Prelude.. Lens.to Data.toTextCI+ ),+ Core.matchError "ClusterNotFound" Core.AcceptRetry+ ]+ }++-- | Polls 'Amazonka.Redshift.DescribeClusters' every 60 seconds until a successful state is reached. An error is returned after 30 failed checks.+newClusterDeleted :: Core.Wait DescribeClusters+newClusterDeleted =+ Core.Wait+ { Core.name = "ClusterDeleted",+ Core.attempts = 30,+ Core.delay = 60,+ Core.acceptors =+ [ Core.matchError+ "ClusterNotFound"+ Core.AcceptSuccess,+ Core.matchAny+ "creating"+ Core.AcceptFailure+ ( Lens.folding+ ( Lens.concatOf+ ( describeClustersResponse_clusters+ Prelude.. Lens._Just+ )+ )+ Prelude.. cluster_clusterStatus+ Prelude.. Lens._Just+ Prelude.. Lens.to Data.toTextCI+ ),+ Core.matchAny+ "modifying"+ Core.AcceptFailure+ ( Lens.folding+ ( Lens.concatOf+ ( describeClustersResponse_clusters+ Prelude.. Lens._Just+ )+ )+ Prelude.. cluster_clusterStatus+ Prelude.. Lens._Just+ Prelude.. Lens.to Data.toTextCI+ )+ ]+ }++-- | Polls 'Amazonka.Redshift.DescribeClusters' every 60 seconds until a successful state is reached. An error is returned after 30 failed checks.+newClusterRestored :: Core.Wait DescribeClusters+newClusterRestored =+ Core.Wait+ { Core.name = "ClusterRestored",+ Core.attempts = 30,+ Core.delay = 60,+ Core.acceptors =+ [ Core.matchAll+ "completed"+ Core.AcceptSuccess+ ( Lens.folding+ ( Lens.concatOf+ ( describeClustersResponse_clusters+ Prelude.. Lens._Just+ )+ )+ Prelude.. cluster_restoreStatus+ Prelude.. Lens._Just+ Prelude.. restoreStatus_status+ Prelude.. Lens._Just+ Prelude.. Lens.to Data.toTextCI+ ),+ Core.matchAny+ "deleting"+ Core.AcceptFailure+ ( Lens.folding+ ( Lens.concatOf+ ( describeClustersResponse_clusters+ Prelude.. Lens._Just+ )+ )+ Prelude.. cluster_clusterStatus+ Prelude.. Lens._Just+ Prelude.. Lens.to Data.toTextCI+ )+ ]+ }++-- | Polls 'Amazonka.Redshift.DescribeClusterSnapshots' every 15 seconds until a successful state is reached. An error is returned after 20 failed checks.+newSnapshotAvailable :: Core.Wait DescribeClusterSnapshots+newSnapshotAvailable =+ Core.Wait+ { Core.name = "SnapshotAvailable",+ Core.attempts = 20,+ Core.delay = 15,+ Core.acceptors =+ [ Core.matchAll+ "available"+ Core.AcceptSuccess+ ( Lens.folding+ ( Lens.concatOf+ ( describeClusterSnapshotsResponse_snapshots+ Prelude.. Lens._Just+ )+ )+ Prelude.. snapshot_status+ Prelude.. Lens._Just+ Prelude.. Lens.to Data.toTextCI+ ),+ Core.matchAny+ "failed"+ Core.AcceptFailure+ ( Lens.folding+ ( Lens.concatOf+ ( describeClusterSnapshotsResponse_snapshots+ Prelude.. Lens._Just+ )+ )+ Prelude.. snapshot_status+ Prelude.. Lens._Just+ Prelude.. Lens.to Data.toTextCI+ ),+ Core.matchAny+ "deleted"+ Core.AcceptFailure+ ( Lens.folding+ ( Lens.concatOf+ ( describeClusterSnapshotsResponse_snapshots+ Prelude.. Lens._Just+ )+ )+ Prelude.. snapshot_status+ Prelude.. Lens._Just+ Prelude.. Lens.to Data.toTextCI+ )+ ]+ }
− gen/Network/AWS/Redshift.hs
@@ -1,1011 +0,0 @@-{-# OPTIONS_GHC -fno-warn-unused-imports #-}-{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}---- Derived from AWS service descriptions, licensed under Apache 2.0.---- |--- Module : Network.AWS.Redshift--- Copyright : (c) 2013-2018 Brendan Hay--- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>--- Stability : auto-generated--- Portability : non-portable (GHC extensions)------ __Amazon Redshift__------ __Overview__------ This is an interface reference for Amazon Redshift. It contains documentation for one of the programming or command line interfaces you can use to manage Amazon Redshift clusters. Note that Amazon Redshift is asynchronous, which means that some interfaces may require techniques, such as polling or asynchronous callback handlers, to determine when a command has been applied. In this reference, the parameter descriptions indicate whether a change is applied immediately, on the next instance reboot, or during the next maintenance window. For a summary of the Amazon Redshift cluster management interfaces, go to <http://docs.aws.amazon.com/redshift/latest/mgmt/using-aws-sdk.html Using the Amazon Redshift Management Interfaces> .------ Amazon Redshift manages all the work of setting up, operating, and scaling a data warehouse: provisioning capacity, monitoring and backing up the cluster, and applying patches and upgrades to the Amazon Redshift engine. You can focus on using your data to acquire new insights for your business and customers.------ If you are a first-time user of Amazon Redshift, we recommend that you begin by reading the <http://docs.aws.amazon.com/redshift/latest/gsg/getting-started.html Amazon Redshift Getting Started Guide> .------ If you are a database developer, the <http://docs.aws.amazon.com/redshift/latest/dg/welcome.html Amazon Redshift Database Developer Guide> explains how to design, build, query, and maintain the databases that make up your data warehouse.----module Network.AWS.Redshift- (- -- * Service Configuration- redshift-- -- * Errors- -- $errors-- -- ** ClusterSecurityGroupQuotaExceededFault- , _ClusterSecurityGroupQuotaExceededFault-- -- ** InvalidS3KeyPrefixFault- , _InvalidS3KeyPrefixFault-- -- ** SourceNotFoundFault- , _SourceNotFoundFault-- -- ** AuthorizationQuotaExceededFault- , _AuthorizationQuotaExceededFault-- -- ** CopyToRegionDisabledFault- , _CopyToRegionDisabledFault-- -- ** LimitExceededFault- , _LimitExceededFault-- -- ** InvalidClusterSecurityGroupStateFault- , _InvalidClusterSecurityGroupStateFault-- -- ** ClusterSecurityGroupAlreadyExistsFault- , _ClusterSecurityGroupAlreadyExistsFault-- -- ** ClusterSnapshotNotFoundFault- , _ClusterSnapshotNotFoundFault-- -- ** InvalidElasticIPFault- , _InvalidElasticIPFault-- -- ** TableRestoreNotFoundFault- , _TableRestoreNotFoundFault-- -- ** HSMConfigurationNotFoundFault- , _HSMConfigurationNotFoundFault-- -- ** AuthorizationAlreadyExistsFault- , _AuthorizationAlreadyExistsFault-- -- ** SubscriptionCategoryNotFoundFault- , _SubscriptionCategoryNotFoundFault-- -- ** HSMConfigurationAlreadyExistsFault- , _HSMConfigurationAlreadyExistsFault-- -- ** SubscriptionNotFoundFault- , _SubscriptionNotFoundFault-- -- ** InvalidS3BucketNameFault- , _InvalidS3BucketNameFault-- -- ** ClusterSnapshotAlreadyExistsFault- , _ClusterSnapshotAlreadyExistsFault-- -- ** InvalidSubnet- , _InvalidSubnet-- -- ** InvalidHSMConfigurationStateFault- , _InvalidHSMConfigurationStateFault-- -- ** SnapshotCopyAlreadyDisabledFault- , _SnapshotCopyAlreadyDisabledFault-- -- ** ClusterQuotaExceededFault- , _ClusterQuotaExceededFault-- -- ** HSMClientCertificateQuotaExceededFault- , _HSMClientCertificateQuotaExceededFault-- -- ** ClusterParameterGroupNotFoundFault- , _ClusterParameterGroupNotFoundFault-- -- ** SnapshotCopyGrantQuotaExceededFault- , _SnapshotCopyGrantQuotaExceededFault-- -- ** NumberOfNodesPerClusterLimitExceededFault- , _NumberOfNodesPerClusterLimitExceededFault-- -- ** SnapshotCopyAlreadyEnabledFault- , _SnapshotCopyAlreadyEnabledFault-- -- ** ClusterParameterGroupAlreadyExistsFault- , _ClusterParameterGroupAlreadyExistsFault-- -- ** SnapshotCopyDisabledFault- , _SnapshotCopyDisabledFault-- -- ** ResizeNotFoundFault- , _ResizeNotFoundFault-- -- ** HSMClientCertificateNotFoundFault- , _HSMClientCertificateNotFoundFault-- -- ** SNSTopicARNNotFoundFault- , _SNSTopicARNNotFoundFault-- -- ** ClusterNotFoundFault- , _ClusterNotFoundFault-- -- ** ClusterParameterGroupQuotaExceededFault- , _ClusterParameterGroupQuotaExceededFault-- -- ** SnapshotCopyGrantAlreadyExistsFault- , _SnapshotCopyGrantAlreadyExistsFault-- -- ** SNSNoAuthorizationFault- , _SNSNoAuthorizationFault-- -- ** InvalidClusterStateFault- , _InvalidClusterStateFault-- -- ** InvalidTableRestoreArgumentFault- , _InvalidTableRestoreArgumentFault-- -- ** SnapshotCopyGrantNotFoundFault- , _SnapshotCopyGrantNotFoundFault-- -- ** HSMConfigurationQuotaExceededFault- , _HSMConfigurationQuotaExceededFault-- -- ** ClusterSnapshotQuotaExceededFault- , _ClusterSnapshotQuotaExceededFault-- -- ** InsufficientClusterCapacityFault- , _InsufficientClusterCapacityFault-- -- ** SNSInvalidTopicFault- , _SNSInvalidTopicFault-- -- ** DependentServiceUnavailableFault- , _DependentServiceUnavailableFault-- -- ** UnsupportedOptionFault- , _UnsupportedOptionFault-- -- ** SubscriptionAlreadyExistFault- , _SubscriptionAlreadyExistFault-- -- ** InvalidVPCNetworkStateFault- , _InvalidVPCNetworkStateFault-- -- ** ClusterSubnetGroupNotFoundFault- , _ClusterSubnetGroupNotFoundFault-- -- ** BucketNotFoundFault- , _BucketNotFoundFault-- -- ** InvalidSubscriptionStateFault- , _InvalidSubscriptionStateFault-- -- ** DependentServiceRequestThrottlingFault- , _DependentServiceRequestThrottlingFault-- -- ** AuthorizationNotFoundFault- , _AuthorizationNotFoundFault-- -- ** InvalidClusterSubnetGroupStateFault- , _InvalidClusterSubnetGroupStateFault-- -- ** UnsupportedOperationFault- , _UnsupportedOperationFault-- -- ** ClusterSubnetGroupAlreadyExistsFault- , _ClusterSubnetGroupAlreadyExistsFault-- -- ** InvalidClusterSnapshotStateFault- , _InvalidClusterSnapshotStateFault-- -- ** ClusterSecurityGroupNotFoundFault- , _ClusterSecurityGroupNotFoundFault-- -- ** ReservedNodeNotFoundFault- , _ReservedNodeNotFoundFault-- -- ** ReservedNodeOfferingNotFoundFault- , _ReservedNodeOfferingNotFoundFault-- -- ** InvalidClusterSubnetStateFault- , _InvalidClusterSubnetStateFault-- -- ** IncompatibleOrderableOptions- , _IncompatibleOrderableOptions-- -- ** EventSubscriptionQuotaExceededFault- , _EventSubscriptionQuotaExceededFault-- -- ** InvalidClusterParameterGroupStateFault- , _InvalidClusterParameterGroupStateFault-- -- ** ReservedNodeAlreadyExistsFault- , _ReservedNodeAlreadyExistsFault-- -- ** InProgressTableRestoreQuotaExceededFault- , _InProgressTableRestoreQuotaExceededFault-- -- ** InvalidRestoreFault- , _InvalidRestoreFault-- -- ** ResourceNotFoundFault- , _ResourceNotFoundFault-- -- ** SubscriptionEventIdNotFoundFault- , _SubscriptionEventIdNotFoundFault-- -- ** InvalidSnapshotCopyGrantStateFault- , _InvalidSnapshotCopyGrantStateFault-- -- ** UnknownSnapshotCopyRegionFault- , _UnknownSnapshotCopyRegionFault-- -- ** ReservedNodeQuotaExceededFault- , _ReservedNodeQuotaExceededFault-- -- ** ClusterSubnetQuotaExceededFault- , _ClusterSubnetQuotaExceededFault-- -- ** ClusterAlreadyExistsFault- , _ClusterAlreadyExistsFault-- -- ** AccessToSnapshotDeniedFault- , _AccessToSnapshotDeniedFault-- -- ** TagLimitExceededFault- , _TagLimitExceededFault-- -- ** NumberOfNodesQuotaExceededFault- , _NumberOfNodesQuotaExceededFault-- -- ** HSMClientCertificateAlreadyExistsFault- , _HSMClientCertificateAlreadyExistsFault-- -- ** InvalidHSMClientCertificateStateFault- , _InvalidHSMClientCertificateStateFault-- -- ** SubnetAlreadyInUse- , _SubnetAlreadyInUse-- -- ** SubscriptionSeverityNotFoundFault- , _SubscriptionSeverityNotFoundFault-- -- ** UnauthorizedOperation- , _UnauthorizedOperation-- -- ** InvalidTagFault- , _InvalidTagFault-- -- ** InsufficientS3BucketPolicyFault- , _InsufficientS3BucketPolicyFault-- -- ** ClusterSubnetGroupQuotaExceededFault- , _ClusterSubnetGroupQuotaExceededFault-- -- * Waiters- -- $waiters-- -- ** ClusterRestored- , clusterRestored-- -- ** ClusterDeleted- , clusterDeleted-- -- ** SnapshotAvailable- , snapshotAvailable-- -- ** ClusterAvailable- , clusterAvailable-- -- * Operations- -- $operations-- -- ** DescribeClusters (Paginated)- , module Network.AWS.Redshift.DescribeClusters-- -- ** DescribeTags- , module Network.AWS.Redshift.DescribeTags-- -- ** DeleteClusterSubnetGroup- , module Network.AWS.Redshift.DeleteClusterSubnetGroup-- -- ** DisableLogging- , module Network.AWS.Redshift.DisableLogging-- -- ** ModifyEventSubscription- , module Network.AWS.Redshift.ModifyEventSubscription-- -- ** DeleteClusterSnapshot- , module Network.AWS.Redshift.DeleteClusterSnapshot-- -- ** PurchaseReservedNodeOffering- , module Network.AWS.Redshift.PurchaseReservedNodeOffering-- -- ** DescribeReservedNodeOfferings (Paginated)- , module Network.AWS.Redshift.DescribeReservedNodeOfferings-- -- ** DescribeEvents (Paginated)- , module Network.AWS.Redshift.DescribeEvents-- -- ** DescribeReservedNodes (Paginated)- , module Network.AWS.Redshift.DescribeReservedNodes-- -- ** DescribeClusterParameterGroups (Paginated)- , module Network.AWS.Redshift.DescribeClusterParameterGroups-- -- ** EnableLogging- , module Network.AWS.Redshift.EnableLogging-- -- ** CreateClusterSubnetGroup- , module Network.AWS.Redshift.CreateClusterSubnetGroup-- -- ** DeleteClusterParameterGroup- , module Network.AWS.Redshift.DeleteClusterParameterGroup-- -- ** DescribeClusterSecurityGroups (Paginated)- , module Network.AWS.Redshift.DescribeClusterSecurityGroups-- -- ** CreateTags- , module Network.AWS.Redshift.CreateTags-- -- ** EnableSnapshotCopy- , module Network.AWS.Redshift.EnableSnapshotCopy-- -- ** DescribeClusterSnapshots (Paginated)- , module Network.AWS.Redshift.DescribeClusterSnapshots-- -- ** DeleteTags- , module Network.AWS.Redshift.DeleteTags-- -- ** DescribeClusterSubnetGroups (Paginated)- , module Network.AWS.Redshift.DescribeClusterSubnetGroups-- -- ** ModifySnapshotCopyRetentionPeriod- , module Network.AWS.Redshift.ModifySnapshotCopyRetentionPeriod-- -- ** ModifyClusterIAMRoles- , module Network.AWS.Redshift.ModifyClusterIAMRoles-- -- ** AuthorizeSnapshotAccess- , module Network.AWS.Redshift.AuthorizeSnapshotAccess-- -- ** RebootCluster- , module Network.AWS.Redshift.RebootCluster-- -- ** DeleteCluster- , module Network.AWS.Redshift.DeleteCluster-- -- ** CreateEventSubscription- , module Network.AWS.Redshift.CreateEventSubscription-- -- ** DescribeOrderableClusterOptions (Paginated)- , module Network.AWS.Redshift.DescribeOrderableClusterOptions-- -- ** CreateCluster- , module Network.AWS.Redshift.CreateCluster-- -- ** CreateHSMClientCertificate- , module Network.AWS.Redshift.CreateHSMClientCertificate-- -- ** RestoreTableFromClusterSnapshot- , module Network.AWS.Redshift.RestoreTableFromClusterSnapshot-- -- ** DescribeDefaultClusterParameters (Paginated)- , module Network.AWS.Redshift.DescribeDefaultClusterParameters-- -- ** DeleteEventSubscription- , module Network.AWS.Redshift.DeleteEventSubscription-- -- ** ResetClusterParameterGroup- , module Network.AWS.Redshift.ResetClusterParameterGroup-- -- ** DescribeEventSubscriptions (Paginated)- , module Network.AWS.Redshift.DescribeEventSubscriptions-- -- ** RevokeClusterSecurityGroupIngress- , module Network.AWS.Redshift.RevokeClusterSecurityGroupIngress-- -- ** DescribeHSMClientCertificates (Paginated)- , module Network.AWS.Redshift.DescribeHSMClientCertificates-- -- ** ModifyClusterParameterGroup- , module Network.AWS.Redshift.ModifyClusterParameterGroup-- -- ** GetClusterCredentials- , module Network.AWS.Redshift.GetClusterCredentials-- -- ** CreateClusterSecurityGroup- , module Network.AWS.Redshift.CreateClusterSecurityGroup-- -- ** DescribeEventCategories- , module Network.AWS.Redshift.DescribeEventCategories-- -- ** DescribeResize- , module Network.AWS.Redshift.DescribeResize-- -- ** DeleteHSMConfiguration- , module Network.AWS.Redshift.DeleteHSMConfiguration-- -- ** AuthorizeClusterSecurityGroupIngress- , module Network.AWS.Redshift.AuthorizeClusterSecurityGroupIngress-- -- ** DescribeTableRestoreStatus- , module Network.AWS.Redshift.DescribeTableRestoreStatus-- -- ** CreateClusterSnapshot- , module Network.AWS.Redshift.CreateClusterSnapshot-- -- ** CreateHSMConfiguration- , module Network.AWS.Redshift.CreateHSMConfiguration-- -- ** DescribeLoggingStatus- , module Network.AWS.Redshift.DescribeLoggingStatus-- -- ** ModifyCluster- , module Network.AWS.Redshift.ModifyCluster-- -- ** DeleteClusterSecurityGroup- , module Network.AWS.Redshift.DeleteClusterSecurityGroup-- -- ** DisableSnapshotCopy- , module Network.AWS.Redshift.DisableSnapshotCopy-- -- ** DescribeClusterParameters (Paginated)- , module Network.AWS.Redshift.DescribeClusterParameters-- -- ** RestoreFromClusterSnapshot- , module Network.AWS.Redshift.RestoreFromClusterSnapshot-- -- ** CreateClusterParameterGroup- , module Network.AWS.Redshift.CreateClusterParameterGroup-- -- ** RevokeSnapshotAccess- , module Network.AWS.Redshift.RevokeSnapshotAccess-- -- ** DescribeHSMConfigurations (Paginated)- , module Network.AWS.Redshift.DescribeHSMConfigurations-- -- ** CreateSnapshotCopyGrant- , module Network.AWS.Redshift.CreateSnapshotCopyGrant-- -- ** CopyClusterSnapshot- , module Network.AWS.Redshift.CopyClusterSnapshot-- -- ** DeleteHSMClientCertificate- , module Network.AWS.Redshift.DeleteHSMClientCertificate-- -- ** DeleteSnapshotCopyGrant- , module Network.AWS.Redshift.DeleteSnapshotCopyGrant-- -- ** DescribeClusterVersions (Paginated)- , module Network.AWS.Redshift.DescribeClusterVersions-- -- ** ModifyClusterSubnetGroup- , module Network.AWS.Redshift.ModifyClusterSubnetGroup-- -- ** RotateEncryptionKey- , module Network.AWS.Redshift.RotateEncryptionKey-- -- ** DescribeSnapshotCopyGrants- , module Network.AWS.Redshift.DescribeSnapshotCopyGrants-- -- * Types-- -- ** Common- , module Network.AWS.Redshift.Internal-- -- ** ParameterApplyType- , ParameterApplyType (..)-- -- ** ReservedNodeOfferingType- , ReservedNodeOfferingType (..)-- -- ** SourceType- , SourceType (..)-- -- ** TableRestoreStatusType- , TableRestoreStatusType (..)-- -- ** AccountWithRestoreAccess- , AccountWithRestoreAccess- , accountWithRestoreAccess- , awraAccountAlias- , awraAccountId-- -- ** AvailabilityZone- , AvailabilityZone- , availabilityZone- , azName- , azSupportedPlatforms-- -- ** Cluster- , Cluster- , cluster- , cRestoreStatus- , cEnhancedVPCRouting- , cClusterSnapshotCopyStatus- , cClusterRevisionNumber- , cPubliclyAccessible- , cMasterUsername- , cVPCId- , cClusterSecurityGroups- , cAutomatedSnapshotRetentionPeriod- , cEncrypted- , cClusterSubnetGroupName- , cClusterIdentifier- , cNumberOfNodes- , cClusterPublicKey- , cPreferredMaintenanceWindow- , cModifyStatus- , cKMSKeyId- , cClusterParameterGroups- , cAvailabilityZone- , cVPCSecurityGroups- , cHSMStatus- , cIAMRoles- , cElasticIPStatus- , cClusterVersion- , cNodeType- , cClusterCreateTime- , cEndpoint- , cAllowVersionUpgrade- , cClusterStatus- , cPendingModifiedValues- , cTags- , cClusterNodes- , cDBName-- -- ** ClusterIAMRole- , ClusterIAMRole- , clusterIAMRole- , cirIAMRoleARN- , cirApplyStatus-- -- ** ClusterNode- , ClusterNode- , clusterNode- , cnNodeRole- , cnPrivateIPAddress- , cnPublicIPAddress-- -- ** ClusterParameterGroup- , ClusterParameterGroup- , clusterParameterGroup- , cpgParameterGroupFamily- , cpgDescription- , cpgTags- , cpgParameterGroupName-- -- ** ClusterParameterGroupNameMessage- , ClusterParameterGroupNameMessage- , clusterParameterGroupNameMessage- , cpgnmParameterGroupStatus- , cpgnmParameterGroupName-- -- ** ClusterParameterGroupStatus- , ClusterParameterGroupStatus- , clusterParameterGroupStatus- , cpgsClusterParameterStatusList- , cpgsParameterApplyStatus- , cpgsParameterGroupName-- -- ** ClusterParameterStatus- , ClusterParameterStatus- , clusterParameterStatus- , cpsParameterApplyErrorDescription- , cpsParameterName- , cpsParameterApplyStatus-- -- ** ClusterSecurityGroup- , ClusterSecurityGroup- , clusterSecurityGroup- , cluClusterSecurityGroupName- , cluIPRanges- , cluEC2SecurityGroups- , cluDescription- , cluTags-- -- ** ClusterSecurityGroupMembership- , ClusterSecurityGroupMembership- , clusterSecurityGroupMembership- , csgmStatus- , csgmClusterSecurityGroupName-- -- ** ClusterSnapshotCopyStatus- , ClusterSnapshotCopyStatus- , clusterSnapshotCopyStatus- , cscsRetentionPeriod- , cscsDestinationRegion- , cscsSnapshotCopyGrantName-- -- ** ClusterSubnetGroup- , ClusterSubnetGroup- , clusterSubnetGroup- , csgVPCId- , csgSubnets- , csgClusterSubnetGroupName- , csgSubnetGroupStatus- , csgDescription- , csgTags-- -- ** ClusterVersion- , ClusterVersion- , clusterVersion- , cvClusterParameterGroupFamily- , cvClusterVersion- , cvDescription-- -- ** DefaultClusterParameters- , DefaultClusterParameters- , defaultClusterParameters- , dcpMarker- , dcpParameters- , dcpParameterGroupFamily-- -- ** EC2SecurityGroup- , EC2SecurityGroup- , ec2SecurityGroup- , esgStatus- , esgEC2SecurityGroupOwnerId- , esgEC2SecurityGroupName- , esgTags-- -- ** ElasticIPStatus- , ElasticIPStatus- , elasticIPStatus- , eisStatus- , eisElasticIP-- -- ** Endpoint- , Endpoint- , endpoint- , eAddress- , ePort-- -- ** Event- , Event- , event- , eSourceType- , eSeverity- , eSourceIdentifier- , eDate- , eEventCategories- , eMessage- , eEventId-- -- ** EventCategoriesMap- , EventCategoriesMap- , eventCategoriesMap- , ecmSourceType- , ecmEvents-- -- ** EventInfoMap- , EventInfoMap- , eventInfoMap- , eimEventDescription- , eimSeverity- , eimEventCategories- , eimEventId-- -- ** EventSubscription- , EventSubscription- , eventSubscription- , esStatus- , esCustomerAWSId- , esCustSubscriptionId- , esSNSTopicARN- , esEnabled- , esSourceType- , esSeverity- , esSubscriptionCreationTime- , esEventCategoriesList- , esTags- , esSourceIdsList-- -- ** HSMClientCertificate- , HSMClientCertificate- , hsmClientCertificate- , hccHSMClientCertificateIdentifier- , hccHSMClientCertificatePublicKey- , hccTags-- -- ** HSMConfiguration- , HSMConfiguration- , hsmConfiguration- , hcHSMConfigurationIdentifier- , hcHSMPartitionName- , hcDescription- , hcTags- , hcHSMIPAddress-- -- ** HSMStatus- , HSMStatus- , hsmStatus- , hsStatus- , hsHSMConfigurationIdentifier- , hsHSMClientCertificateIdentifier-- -- ** IPRange- , IPRange- , ipRange- , irStatus- , irCIdRIP- , irTags-- -- ** LoggingStatus- , LoggingStatus- , loggingStatus- , lsLastFailureTime- , lsLastSuccessfulDeliveryTime- , lsS3KeyPrefix- , lsBucketName- , lsLoggingEnabled- , lsLastFailureMessage-- -- ** OrderableClusterOption- , OrderableClusterOption- , orderableClusterOption- , ocoAvailabilityZones- , ocoClusterType- , ocoClusterVersion- , ocoNodeType-- -- ** Parameter- , Parameter- , parameter- , pApplyType- , pParameterValue- , pMinimumEngineVersion- , pSource- , pIsModifiable- , pDataType- , pAllowedValues- , pParameterName- , pDescription-- -- ** PendingModifiedValues- , PendingModifiedValues- , pendingModifiedValues- , pmvEnhancedVPCRouting- , pmvMasterUserPassword- , pmvPubliclyAccessible- , pmvAutomatedSnapshotRetentionPeriod- , pmvClusterIdentifier- , pmvNumberOfNodes- , pmvClusterType- , pmvClusterVersion- , pmvNodeType-- -- ** RecurringCharge- , RecurringCharge- , recurringCharge- , rcRecurringChargeFrequency- , rcRecurringChargeAmount-- -- ** ReservedNode- , ReservedNode- , reservedNode- , rnReservedNodeOfferingType- , rnState- , rnCurrencyCode- , rnStartTime- , rnNodeCount- , rnReservedNodeId- , rnReservedNodeOfferingId- , rnRecurringCharges- , rnOfferingType- , rnUsagePrice- , rnNodeType- , rnFixedPrice- , rnDuration-- -- ** ReservedNodeOffering- , ReservedNodeOffering- , reservedNodeOffering- , rnoReservedNodeOfferingType- , rnoCurrencyCode- , rnoReservedNodeOfferingId- , rnoRecurringCharges- , rnoOfferingType- , rnoUsagePrice- , rnoNodeType- , rnoFixedPrice- , rnoDuration-- -- ** RestoreStatus- , RestoreStatus- , restoreStatus- , rsStatus- , rsEstimatedTimeToCompletionInSeconds- , rsCurrentRestoreRateInMegaBytesPerSecond- , rsProgressInMegaBytes- , rsElapsedTimeInSeconds- , rsSnapshotSizeInMegaBytes-- -- ** Snapshot- , Snapshot- , snapshot- , sStatus- , sRestorableNodeTypes- , sAccountsWithRestoreAccess- , sEnhancedVPCRouting- , sSnapshotIdentifier- , sEncryptedWithHSM- , sMasterUsername- , sSourceRegion- , sVPCId- , sBackupProgressInMegaBytes- , sEncrypted- , sClusterIdentifier- , sNumberOfNodes- , sSnapshotType- , sKMSKeyId- , sAvailabilityZone- , sCurrentBackupRateInMegaBytesPerSecond- , sSnapshotCreateTime- , sClusterVersion- , sOwnerAccount- , sNodeType- , sElapsedTimeInSeconds- , sClusterCreateTime- , sEstimatedSecondsToCompletion- , sActualIncrementalBackupSizeInMegaBytes- , sTags- , sPort- , sTotalBackupSizeInMegaBytes- , sDBName-- -- ** SnapshotCopyGrant- , SnapshotCopyGrant- , snapshotCopyGrant- , scgKMSKeyId- , scgSnapshotCopyGrantName- , scgTags-- -- ** Subnet- , Subnet- , subnet- , sSubnetStatus- , sSubnetIdentifier- , sSubnetAvailabilityZone-- -- ** SupportedPlatform- , SupportedPlatform- , supportedPlatform- , spName-- -- ** TableRestoreStatus- , TableRestoreStatus- , tableRestoreStatus- , trsStatus- , trsTargetSchemaName- , trsSnapshotIdentifier- , trsSourceDatabaseName- , trsTableRestoreRequestId- , trsNewTableName- , trsTargetDatabaseName- , trsSourceSchemaName- , trsClusterIdentifier- , trsRequestTime- , trsSourceTableName- , trsTotalDataInMegaBytes- , trsProgressInMegaBytes- , trsMessage-- -- ** Tag- , Tag- , tag- , tagValue- , tagKey-- -- ** TaggedResource- , TaggedResource- , taggedResource- , trTag- , trResourceType- , trResourceName-- -- ** VPCSecurityGroupMembership- , VPCSecurityGroupMembership- , vpcSecurityGroupMembership- , vsgmStatus- , vsgmVPCSecurityGroupId- ) where--import Network.AWS.Redshift.AuthorizeClusterSecurityGroupIngress-import Network.AWS.Redshift.AuthorizeSnapshotAccess-import Network.AWS.Redshift.CopyClusterSnapshot-import Network.AWS.Redshift.CreateCluster-import Network.AWS.Redshift.CreateClusterParameterGroup-import Network.AWS.Redshift.CreateClusterSecurityGroup-import Network.AWS.Redshift.CreateClusterSnapshot-import Network.AWS.Redshift.CreateClusterSubnetGroup-import Network.AWS.Redshift.CreateEventSubscription-import Network.AWS.Redshift.CreateHSMClientCertificate-import Network.AWS.Redshift.CreateHSMConfiguration-import Network.AWS.Redshift.CreateSnapshotCopyGrant-import Network.AWS.Redshift.CreateTags-import Network.AWS.Redshift.DeleteCluster-import Network.AWS.Redshift.DeleteClusterParameterGroup-import Network.AWS.Redshift.DeleteClusterSecurityGroup-import Network.AWS.Redshift.DeleteClusterSnapshot-import Network.AWS.Redshift.DeleteClusterSubnetGroup-import Network.AWS.Redshift.DeleteEventSubscription-import Network.AWS.Redshift.DeleteHSMClientCertificate-import Network.AWS.Redshift.DeleteHSMConfiguration-import Network.AWS.Redshift.DeleteSnapshotCopyGrant-import Network.AWS.Redshift.DeleteTags-import Network.AWS.Redshift.DescribeClusterParameterGroups-import Network.AWS.Redshift.DescribeClusterParameters-import Network.AWS.Redshift.DescribeClusters-import Network.AWS.Redshift.DescribeClusterSecurityGroups-import Network.AWS.Redshift.DescribeClusterSnapshots-import Network.AWS.Redshift.DescribeClusterSubnetGroups-import Network.AWS.Redshift.DescribeClusterVersions-import Network.AWS.Redshift.DescribeDefaultClusterParameters-import Network.AWS.Redshift.DescribeEventCategories-import Network.AWS.Redshift.DescribeEvents-import Network.AWS.Redshift.DescribeEventSubscriptions-import Network.AWS.Redshift.DescribeHSMClientCertificates-import Network.AWS.Redshift.DescribeHSMConfigurations-import Network.AWS.Redshift.DescribeLoggingStatus-import Network.AWS.Redshift.DescribeOrderableClusterOptions-import Network.AWS.Redshift.DescribeReservedNodeOfferings-import Network.AWS.Redshift.DescribeReservedNodes-import Network.AWS.Redshift.DescribeResize-import Network.AWS.Redshift.DescribeSnapshotCopyGrants-import Network.AWS.Redshift.DescribeTableRestoreStatus-import Network.AWS.Redshift.DescribeTags-import Network.AWS.Redshift.DisableLogging-import Network.AWS.Redshift.DisableSnapshotCopy-import Network.AWS.Redshift.EnableLogging-import Network.AWS.Redshift.EnableSnapshotCopy-import Network.AWS.Redshift.GetClusterCredentials-import Network.AWS.Redshift.Internal-import Network.AWS.Redshift.ModifyCluster-import Network.AWS.Redshift.ModifyClusterIAMRoles-import Network.AWS.Redshift.ModifyClusterParameterGroup-import Network.AWS.Redshift.ModifyClusterSubnetGroup-import Network.AWS.Redshift.ModifyEventSubscription-import Network.AWS.Redshift.ModifySnapshotCopyRetentionPeriod-import Network.AWS.Redshift.PurchaseReservedNodeOffering-import Network.AWS.Redshift.RebootCluster-import Network.AWS.Redshift.ResetClusterParameterGroup-import Network.AWS.Redshift.RestoreFromClusterSnapshot-import Network.AWS.Redshift.RestoreTableFromClusterSnapshot-import Network.AWS.Redshift.RevokeClusterSecurityGroupIngress-import Network.AWS.Redshift.RevokeSnapshotAccess-import Network.AWS.Redshift.RotateEncryptionKey-import Network.AWS.Redshift.Types-import Network.AWS.Redshift.Waiters--{- $errors-Error matchers are designed for use with the functions provided by-<http://hackage.haskell.org/package/lens/docs/Control-Exception-Lens.html Control.Exception.Lens>.-This allows catching (and rethrowing) service specific errors returned-by 'Redshift'.--}--{- $operations-Some AWS operations return results that are incomplete and require subsequent-requests in order to obtain the entire result set. The process of sending-subsequent requests to continue where a previous request left off is called-pagination. For example, the 'ListObjects' operation of Amazon S3 returns up to-1000 objects at a time, and you must send subsequent requests with the-appropriate Marker in order to retrieve the next page of results.--Operations that have an 'AWSPager' instance can transparently perform subsequent-requests, correctly setting Markers and other request facets to iterate through-the entire result set of a truncated API operation. Operations which support-this have an additional note in the documentation.--Many operations have the ability to filter results on the server side. See the-individual operation parameters for details.--}--{- $waiters-Waiters poll by repeatedly sending a request until some remote success condition-configured by the 'Wait' specification is fulfilled. The 'Wait' specification-determines how many attempts should be made, in addition to delay and retry strategies.--}
− gen/Network/AWS/Redshift/AuthorizeClusterSecurityGroupIngress.hs
@@ -1,187 +0,0 @@-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric #-}-{-# LANGUAGE OverloadedStrings #-}-{-# LANGUAGE RecordWildCards #-}-{-# LANGUAGE TypeFamilies #-}--{-# OPTIONS_GHC -fno-warn-unused-imports #-}-{-# OPTIONS_GHC -fno-warn-unused-binds #-}-{-# OPTIONS_GHC -fno-warn-unused-matches #-}---- Derived from AWS service descriptions, licensed under Apache 2.0.---- |--- Module : Network.AWS.Redshift.AuthorizeClusterSecurityGroupIngress--- Copyright : (c) 2013-2018 Brendan Hay--- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>--- Stability : auto-generated--- Portability : non-portable (GHC extensions)------ Adds an inbound (ingress) rule to an Amazon Redshift security group. Depending on whether the application accessing your cluster is running on the Internet or an Amazon EC2 instance, you can authorize inbound access to either a Classless Interdomain Routing (CIDR)/Internet Protocol (IP) range or to an Amazon EC2 security group. You can add as many as 20 ingress rules to an Amazon Redshift security group.--------- If you authorize access to an Amazon EC2 security group, specify /EC2SecurityGroupName/ and /EC2SecurityGroupOwnerId/ . The Amazon EC2 security group and Amazon Redshift cluster must be in the same AWS region.------ If you authorize access to a CIDR/IP address range, specify /CIDRIP/ . For an overview of CIDR blocks, see the Wikipedia article on <http://en.wikipedia.org/wiki/Classless_Inter-Domain_Routing Classless Inter-Domain Routing> .------ You must also associate the security group with a cluster so that clients running on these IP addresses or the EC2 instance are authorized to connect to the cluster. For information about managing security groups, go to <http://docs.aws.amazon.com/redshift/latest/mgmt/working-with-security-groups.html Working with Security Groups> in the /Amazon Redshift Cluster Management Guide/ .----module Network.AWS.Redshift.AuthorizeClusterSecurityGroupIngress- (- -- * Creating a Request- authorizeClusterSecurityGroupIngress- , AuthorizeClusterSecurityGroupIngress- -- * Request Lenses- , acsgiEC2SecurityGroupOwnerId- , acsgiEC2SecurityGroupName- , acsgiCIdRIP- , acsgiClusterSecurityGroupName-- -- * Destructuring the Response- , authorizeClusterSecurityGroupIngressResponse- , AuthorizeClusterSecurityGroupIngressResponse- -- * Response Lenses- , acsgirsClusterSecurityGroup- , acsgirsResponseStatus- ) where--import Network.AWS.Lens-import Network.AWS.Prelude-import Network.AWS.Redshift.Types-import Network.AWS.Redshift.Types.Product-import Network.AWS.Request-import Network.AWS.Response---- |------------ /See:/ 'authorizeClusterSecurityGroupIngress' smart constructor.-data AuthorizeClusterSecurityGroupIngress = AuthorizeClusterSecurityGroupIngress'- { _acsgiEC2SecurityGroupOwnerId :: !(Maybe Text)- , _acsgiEC2SecurityGroupName :: !(Maybe Text)- , _acsgiCIdRIP :: !(Maybe Text)- , _acsgiClusterSecurityGroupName :: !Text- } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'AuthorizeClusterSecurityGroupIngress' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'acsgiEC2SecurityGroupOwnerId' - The AWS account number of the owner of the security group specified by the /EC2SecurityGroupName/ parameter. The AWS Access Key ID is not an acceptable value. Example: @111122223333@------ * 'acsgiEC2SecurityGroupName' - The EC2 security group to be added the Amazon Redshift security group.------ * 'acsgiCIdRIP' - The IP range to be added the Amazon Redshift security group.------ * 'acsgiClusterSecurityGroupName' - The name of the security group to which the ingress rule is added.-authorizeClusterSecurityGroupIngress- :: Text -- ^ 'acsgiClusterSecurityGroupName'- -> AuthorizeClusterSecurityGroupIngress-authorizeClusterSecurityGroupIngress pClusterSecurityGroupName_ =- AuthorizeClusterSecurityGroupIngress'- { _acsgiEC2SecurityGroupOwnerId = Nothing- , _acsgiEC2SecurityGroupName = Nothing- , _acsgiCIdRIP = Nothing- , _acsgiClusterSecurityGroupName = pClusterSecurityGroupName_- }----- | The AWS account number of the owner of the security group specified by the /EC2SecurityGroupName/ parameter. The AWS Access Key ID is not an acceptable value. Example: @111122223333@-acsgiEC2SecurityGroupOwnerId :: Lens' AuthorizeClusterSecurityGroupIngress (Maybe Text)-acsgiEC2SecurityGroupOwnerId = lens _acsgiEC2SecurityGroupOwnerId (\ s a -> s{_acsgiEC2SecurityGroupOwnerId = a})---- | The EC2 security group to be added the Amazon Redshift security group.-acsgiEC2SecurityGroupName :: Lens' AuthorizeClusterSecurityGroupIngress (Maybe Text)-acsgiEC2SecurityGroupName = lens _acsgiEC2SecurityGroupName (\ s a -> s{_acsgiEC2SecurityGroupName = a})---- | The IP range to be added the Amazon Redshift security group.-acsgiCIdRIP :: Lens' AuthorizeClusterSecurityGroupIngress (Maybe Text)-acsgiCIdRIP = lens _acsgiCIdRIP (\ s a -> s{_acsgiCIdRIP = a})---- | The name of the security group to which the ingress rule is added.-acsgiClusterSecurityGroupName :: Lens' AuthorizeClusterSecurityGroupIngress Text-acsgiClusterSecurityGroupName = lens _acsgiClusterSecurityGroupName (\ s a -> s{_acsgiClusterSecurityGroupName = a})--instance AWSRequest- AuthorizeClusterSecurityGroupIngress- where- type Rs AuthorizeClusterSecurityGroupIngress =- AuthorizeClusterSecurityGroupIngressResponse- request = postQuery redshift- response- = receiveXMLWrapper- "AuthorizeClusterSecurityGroupIngressResult"- (\ s h x ->- AuthorizeClusterSecurityGroupIngressResponse' <$>- (x .@? "ClusterSecurityGroup") <*>- (pure (fromEnum s)))--instance Hashable- AuthorizeClusterSecurityGroupIngress- where--instance NFData AuthorizeClusterSecurityGroupIngress- where--instance ToHeaders- AuthorizeClusterSecurityGroupIngress- where- toHeaders = const mempty--instance ToPath AuthorizeClusterSecurityGroupIngress- where- toPath = const "/"--instance ToQuery AuthorizeClusterSecurityGroupIngress- where- toQuery AuthorizeClusterSecurityGroupIngress'{..}- = mconcat- ["Action" =:- ("AuthorizeClusterSecurityGroupIngress" ::- ByteString),- "Version" =: ("2012-12-01" :: ByteString),- "EC2SecurityGroupOwnerId" =:- _acsgiEC2SecurityGroupOwnerId,- "EC2SecurityGroupName" =: _acsgiEC2SecurityGroupName,- "CIDRIP" =: _acsgiCIdRIP,- "ClusterSecurityGroupName" =:- _acsgiClusterSecurityGroupName]---- | /See:/ 'authorizeClusterSecurityGroupIngressResponse' smart constructor.-data AuthorizeClusterSecurityGroupIngressResponse = AuthorizeClusterSecurityGroupIngressResponse'- { _acsgirsClusterSecurityGroup :: !(Maybe ClusterSecurityGroup)- , _acsgirsResponseStatus :: !Int- } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'AuthorizeClusterSecurityGroupIngressResponse' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'acsgirsClusterSecurityGroup' - Undocumented member.------ * 'acsgirsResponseStatus' - -- | The response status code.-authorizeClusterSecurityGroupIngressResponse- :: Int -- ^ 'acsgirsResponseStatus'- -> AuthorizeClusterSecurityGroupIngressResponse-authorizeClusterSecurityGroupIngressResponse pResponseStatus_ =- AuthorizeClusterSecurityGroupIngressResponse'- { _acsgirsClusterSecurityGroup = Nothing- , _acsgirsResponseStatus = pResponseStatus_- }----- | Undocumented member.-acsgirsClusterSecurityGroup :: Lens' AuthorizeClusterSecurityGroupIngressResponse (Maybe ClusterSecurityGroup)-acsgirsClusterSecurityGroup = lens _acsgirsClusterSecurityGroup (\ s a -> s{_acsgirsClusterSecurityGroup = a})---- | -- | The response status code.-acsgirsResponseStatus :: Lens' AuthorizeClusterSecurityGroupIngressResponse Int-acsgirsResponseStatus = lens _acsgirsResponseStatus (\ s a -> s{_acsgirsResponseStatus = a})--instance NFData- AuthorizeClusterSecurityGroupIngressResponse- where
− gen/Network/AWS/Redshift/AuthorizeSnapshotAccess.hs
@@ -1,158 +0,0 @@-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric #-}-{-# LANGUAGE OverloadedStrings #-}-{-# LANGUAGE RecordWildCards #-}-{-# LANGUAGE TypeFamilies #-}--{-# OPTIONS_GHC -fno-warn-unused-imports #-}-{-# OPTIONS_GHC -fno-warn-unused-binds #-}-{-# OPTIONS_GHC -fno-warn-unused-matches #-}---- Derived from AWS service descriptions, licensed under Apache 2.0.---- |--- Module : Network.AWS.Redshift.AuthorizeSnapshotAccess--- Copyright : (c) 2013-2018 Brendan Hay--- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>--- Stability : auto-generated--- Portability : non-portable (GHC extensions)------ Authorizes the specified AWS customer account to restore the specified snapshot.--------- For more information about working with snapshots, go to <http://docs.aws.amazon.com/redshift/latest/mgmt/working-with-snapshots.html Amazon Redshift Snapshots> in the /Amazon Redshift Cluster Management Guide/ .----module Network.AWS.Redshift.AuthorizeSnapshotAccess- (- -- * Creating a Request- authorizeSnapshotAccess- , AuthorizeSnapshotAccess- -- * Request Lenses- , asaSnapshotClusterIdentifier- , asaSnapshotIdentifier- , asaAccountWithRestoreAccess-- -- * Destructuring the Response- , authorizeSnapshotAccessResponse- , AuthorizeSnapshotAccessResponse- -- * Response Lenses- , asarsSnapshot- , asarsResponseStatus- ) where--import Network.AWS.Lens-import Network.AWS.Prelude-import Network.AWS.Redshift.Types-import Network.AWS.Redshift.Types.Product-import Network.AWS.Request-import Network.AWS.Response---- |------------ /See:/ 'authorizeSnapshotAccess' smart constructor.-data AuthorizeSnapshotAccess = AuthorizeSnapshotAccess'- { _asaSnapshotClusterIdentifier :: !(Maybe Text)- , _asaSnapshotIdentifier :: !Text- , _asaAccountWithRestoreAccess :: !Text- } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'AuthorizeSnapshotAccess' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'asaSnapshotClusterIdentifier' - The identifier of the cluster the snapshot was created from. This parameter is required if your IAM user has a policy containing a snapshot resource element that specifies anything other than * for the cluster name.------ * 'asaSnapshotIdentifier' - The identifier of the snapshot the account is authorized to restore.------ * 'asaAccountWithRestoreAccess' - The identifier of the AWS customer account authorized to restore the specified snapshot. To share a snapshot with AWS support, specify amazon-redshift-support.-authorizeSnapshotAccess- :: Text -- ^ 'asaSnapshotIdentifier'- -> Text -- ^ 'asaAccountWithRestoreAccess'- -> AuthorizeSnapshotAccess-authorizeSnapshotAccess pSnapshotIdentifier_ pAccountWithRestoreAccess_ =- AuthorizeSnapshotAccess'- { _asaSnapshotClusterIdentifier = Nothing- , _asaSnapshotIdentifier = pSnapshotIdentifier_- , _asaAccountWithRestoreAccess = pAccountWithRestoreAccess_- }----- | The identifier of the cluster the snapshot was created from. This parameter is required if your IAM user has a policy containing a snapshot resource element that specifies anything other than * for the cluster name.-asaSnapshotClusterIdentifier :: Lens' AuthorizeSnapshotAccess (Maybe Text)-asaSnapshotClusterIdentifier = lens _asaSnapshotClusterIdentifier (\ s a -> s{_asaSnapshotClusterIdentifier = a})---- | The identifier of the snapshot the account is authorized to restore.-asaSnapshotIdentifier :: Lens' AuthorizeSnapshotAccess Text-asaSnapshotIdentifier = lens _asaSnapshotIdentifier (\ s a -> s{_asaSnapshotIdentifier = a})---- | The identifier of the AWS customer account authorized to restore the specified snapshot. To share a snapshot with AWS support, specify amazon-redshift-support.-asaAccountWithRestoreAccess :: Lens' AuthorizeSnapshotAccess Text-asaAccountWithRestoreAccess = lens _asaAccountWithRestoreAccess (\ s a -> s{_asaAccountWithRestoreAccess = a})--instance AWSRequest AuthorizeSnapshotAccess where- type Rs AuthorizeSnapshotAccess =- AuthorizeSnapshotAccessResponse- request = postQuery redshift- response- = receiveXMLWrapper "AuthorizeSnapshotAccessResult"- (\ s h x ->- AuthorizeSnapshotAccessResponse' <$>- (x .@? "Snapshot") <*> (pure (fromEnum s)))--instance Hashable AuthorizeSnapshotAccess where--instance NFData AuthorizeSnapshotAccess where--instance ToHeaders AuthorizeSnapshotAccess where- toHeaders = const mempty--instance ToPath AuthorizeSnapshotAccess where- toPath = const "/"--instance ToQuery AuthorizeSnapshotAccess where- toQuery AuthorizeSnapshotAccess'{..}- = mconcat- ["Action" =:- ("AuthorizeSnapshotAccess" :: ByteString),- "Version" =: ("2012-12-01" :: ByteString),- "SnapshotClusterIdentifier" =:- _asaSnapshotClusterIdentifier,- "SnapshotIdentifier" =: _asaSnapshotIdentifier,- "AccountWithRestoreAccess" =:- _asaAccountWithRestoreAccess]---- | /See:/ 'authorizeSnapshotAccessResponse' smart constructor.-data AuthorizeSnapshotAccessResponse = AuthorizeSnapshotAccessResponse'- { _asarsSnapshot :: !(Maybe Snapshot)- , _asarsResponseStatus :: !Int- } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'AuthorizeSnapshotAccessResponse' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'asarsSnapshot' - Undocumented member.------ * 'asarsResponseStatus' - -- | The response status code.-authorizeSnapshotAccessResponse- :: Int -- ^ 'asarsResponseStatus'- -> AuthorizeSnapshotAccessResponse-authorizeSnapshotAccessResponse pResponseStatus_ =- AuthorizeSnapshotAccessResponse'- {_asarsSnapshot = Nothing, _asarsResponseStatus = pResponseStatus_}----- | Undocumented member.-asarsSnapshot :: Lens' AuthorizeSnapshotAccessResponse (Maybe Snapshot)-asarsSnapshot = lens _asarsSnapshot (\ s a -> s{_asarsSnapshot = a})---- | -- | The response status code.-asarsResponseStatus :: Lens' AuthorizeSnapshotAccessResponse Int-asarsResponseStatus = lens _asarsResponseStatus (\ s a -> s{_asarsResponseStatus = a})--instance NFData AuthorizeSnapshotAccessResponse where
− gen/Network/AWS/Redshift/CopyClusterSnapshot.hs
@@ -1,160 +0,0 @@-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric #-}-{-# LANGUAGE OverloadedStrings #-}-{-# LANGUAGE RecordWildCards #-}-{-# LANGUAGE TypeFamilies #-}--{-# OPTIONS_GHC -fno-warn-unused-imports #-}-{-# OPTIONS_GHC -fno-warn-unused-binds #-}-{-# OPTIONS_GHC -fno-warn-unused-matches #-}---- Derived from AWS service descriptions, licensed under Apache 2.0.---- |--- Module : Network.AWS.Redshift.CopyClusterSnapshot--- Copyright : (c) 2013-2018 Brendan Hay--- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>--- Stability : auto-generated--- Portability : non-portable (GHC extensions)------ Copies the specified automated cluster snapshot to a new manual cluster snapshot. The source must be an automated snapshot and it must be in the available state.--------- When you delete a cluster, Amazon Redshift deletes any automated snapshots of the cluster. Also, when the retention period of the snapshot expires, Amazon Redshift automatically deletes it. If you want to keep an automated snapshot for a longer period, you can make a manual copy of the snapshot. Manual snapshots are retained until you delete them.------ For more information about working with snapshots, go to <http://docs.aws.amazon.com/redshift/latest/mgmt/working-with-snapshots.html Amazon Redshift Snapshots> in the /Amazon Redshift Cluster Management Guide/ .----module Network.AWS.Redshift.CopyClusterSnapshot- (- -- * Creating a Request- copyClusterSnapshot- , CopyClusterSnapshot- -- * Request Lenses- , ccsSourceSnapshotClusterIdentifier- , ccsSourceSnapshotIdentifier- , ccsTargetSnapshotIdentifier-- -- * Destructuring the Response- , copyClusterSnapshotResponse- , CopyClusterSnapshotResponse- -- * Response Lenses- , ccsrsSnapshot- , ccsrsResponseStatus- ) where--import Network.AWS.Lens-import Network.AWS.Prelude-import Network.AWS.Redshift.Types-import Network.AWS.Redshift.Types.Product-import Network.AWS.Request-import Network.AWS.Response---- |------------ /See:/ 'copyClusterSnapshot' smart constructor.-data CopyClusterSnapshot = CopyClusterSnapshot'- { _ccsSourceSnapshotClusterIdentifier :: !(Maybe Text)- , _ccsSourceSnapshotIdentifier :: !Text- , _ccsTargetSnapshotIdentifier :: !Text- } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'CopyClusterSnapshot' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'ccsSourceSnapshotClusterIdentifier' - The identifier of the cluster the source snapshot was created from. This parameter is required if your IAM user has a policy containing a snapshot resource element that specifies anything other than * for the cluster name. Constraints: * Must be the identifier for a valid cluster.------ * 'ccsSourceSnapshotIdentifier' - The identifier for the source snapshot. Constraints: * Must be the identifier for a valid automated snapshot whose state is @available@ .------ * 'ccsTargetSnapshotIdentifier' - The identifier given to the new manual snapshot. Constraints: * Cannot be null, empty, or blank. * Must contain from 1 to 255 alphanumeric characters or hyphens. * First character must be a letter. * Cannot end with a hyphen or contain two consecutive hyphens. * Must be unique for the AWS account that is making the request.-copyClusterSnapshot- :: Text -- ^ 'ccsSourceSnapshotIdentifier'- -> Text -- ^ 'ccsTargetSnapshotIdentifier'- -> CopyClusterSnapshot-copyClusterSnapshot pSourceSnapshotIdentifier_ pTargetSnapshotIdentifier_ =- CopyClusterSnapshot'- { _ccsSourceSnapshotClusterIdentifier = Nothing- , _ccsSourceSnapshotIdentifier = pSourceSnapshotIdentifier_- , _ccsTargetSnapshotIdentifier = pTargetSnapshotIdentifier_- }----- | The identifier of the cluster the source snapshot was created from. This parameter is required if your IAM user has a policy containing a snapshot resource element that specifies anything other than * for the cluster name. Constraints: * Must be the identifier for a valid cluster.-ccsSourceSnapshotClusterIdentifier :: Lens' CopyClusterSnapshot (Maybe Text)-ccsSourceSnapshotClusterIdentifier = lens _ccsSourceSnapshotClusterIdentifier (\ s a -> s{_ccsSourceSnapshotClusterIdentifier = a})---- | The identifier for the source snapshot. Constraints: * Must be the identifier for a valid automated snapshot whose state is @available@ .-ccsSourceSnapshotIdentifier :: Lens' CopyClusterSnapshot Text-ccsSourceSnapshotIdentifier = lens _ccsSourceSnapshotIdentifier (\ s a -> s{_ccsSourceSnapshotIdentifier = a})---- | The identifier given to the new manual snapshot. Constraints: * Cannot be null, empty, or blank. * Must contain from 1 to 255 alphanumeric characters or hyphens. * First character must be a letter. * Cannot end with a hyphen or contain two consecutive hyphens. * Must be unique for the AWS account that is making the request.-ccsTargetSnapshotIdentifier :: Lens' CopyClusterSnapshot Text-ccsTargetSnapshotIdentifier = lens _ccsTargetSnapshotIdentifier (\ s a -> s{_ccsTargetSnapshotIdentifier = a})--instance AWSRequest CopyClusterSnapshot where- type Rs CopyClusterSnapshot =- CopyClusterSnapshotResponse- request = postQuery redshift- response- = receiveXMLWrapper "CopyClusterSnapshotResult"- (\ s h x ->- CopyClusterSnapshotResponse' <$>- (x .@? "Snapshot") <*> (pure (fromEnum s)))--instance Hashable CopyClusterSnapshot where--instance NFData CopyClusterSnapshot where--instance ToHeaders CopyClusterSnapshot where- toHeaders = const mempty--instance ToPath CopyClusterSnapshot where- toPath = const "/"--instance ToQuery CopyClusterSnapshot where- toQuery CopyClusterSnapshot'{..}- = mconcat- ["Action" =: ("CopyClusterSnapshot" :: ByteString),- "Version" =: ("2012-12-01" :: ByteString),- "SourceSnapshotClusterIdentifier" =:- _ccsSourceSnapshotClusterIdentifier,- "SourceSnapshotIdentifier" =:- _ccsSourceSnapshotIdentifier,- "TargetSnapshotIdentifier" =:- _ccsTargetSnapshotIdentifier]---- | /See:/ 'copyClusterSnapshotResponse' smart constructor.-data CopyClusterSnapshotResponse = CopyClusterSnapshotResponse'- { _ccsrsSnapshot :: !(Maybe Snapshot)- , _ccsrsResponseStatus :: !Int- } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'CopyClusterSnapshotResponse' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'ccsrsSnapshot' - Undocumented member.------ * 'ccsrsResponseStatus' - -- | The response status code.-copyClusterSnapshotResponse- :: Int -- ^ 'ccsrsResponseStatus'- -> CopyClusterSnapshotResponse-copyClusterSnapshotResponse pResponseStatus_ =- CopyClusterSnapshotResponse'- {_ccsrsSnapshot = Nothing, _ccsrsResponseStatus = pResponseStatus_}----- | Undocumented member.-ccsrsSnapshot :: Lens' CopyClusterSnapshotResponse (Maybe Snapshot)-ccsrsSnapshot = lens _ccsrsSnapshot (\ s a -> s{_ccsrsSnapshot = a})---- | -- | The response status code.-ccsrsResponseStatus :: Lens' CopyClusterSnapshotResponse Int-ccsrsResponseStatus = lens _ccsrsResponseStatus (\ s a -> s{_ccsrsResponseStatus = a})--instance NFData CopyClusterSnapshotResponse where
− gen/Network/AWS/Redshift/CreateCluster.hs
@@ -1,408 +0,0 @@-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric #-}-{-# LANGUAGE OverloadedStrings #-}-{-# LANGUAGE RecordWildCards #-}-{-# LANGUAGE TypeFamilies #-}--{-# OPTIONS_GHC -fno-warn-unused-imports #-}-{-# OPTIONS_GHC -fno-warn-unused-binds #-}-{-# OPTIONS_GHC -fno-warn-unused-matches #-}---- Derived from AWS service descriptions, licensed under Apache 2.0.---- |--- Module : Network.AWS.Redshift.CreateCluster--- Copyright : (c) 2013-2018 Brendan Hay--- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>--- Stability : auto-generated--- Portability : non-portable (GHC extensions)------ Creates a new cluster.--------- To create the cluster in Virtual Private Cloud (VPC), you must provide a cluster subnet group name. The cluster subnet group identifies the subnets of your VPC that Amazon Redshift uses when creating the cluster. For more information about managing clusters, go to <http://docs.aws.amazon.com/redshift/latest/mgmt/working-with-clusters.html Amazon Redshift Clusters> in the /Amazon Redshift Cluster Management Guide/ .----module Network.AWS.Redshift.CreateCluster- (- -- * Creating a Request- createCluster- , CreateCluster- -- * Request Lenses- , ccEnhancedVPCRouting- , ccAdditionalInfo- , ccPubliclyAccessible- , ccHSMConfigurationIdentifier- , ccClusterSecurityGroups- , ccAutomatedSnapshotRetentionPeriod- , ccEncrypted- , ccClusterSubnetGroupName- , ccHSMClientCertificateIdentifier- , ccNumberOfNodes- , ccElasticIP- , ccPreferredMaintenanceWindow- , ccKMSKeyId- , ccAvailabilityZone- , ccVPCSecurityGroupIds- , ccIAMRoles- , ccClusterType- , ccClusterVersion- , ccAllowVersionUpgrade- , ccClusterParameterGroupName- , ccTags- , ccPort- , ccDBName- , ccClusterIdentifier- , ccNodeType- , ccMasterUsername- , ccMasterUserPassword-- -- * Destructuring the Response- , createClusterResponse- , CreateClusterResponse- -- * Response Lenses- , ccrsCluster- , ccrsResponseStatus- ) where--import Network.AWS.Lens-import Network.AWS.Prelude-import Network.AWS.Redshift.Types-import Network.AWS.Redshift.Types.Product-import Network.AWS.Request-import Network.AWS.Response---- |------------ /See:/ 'createCluster' smart constructor.-data CreateCluster = CreateCluster'- { _ccEnhancedVPCRouting :: !(Maybe Bool)- , _ccAdditionalInfo :: !(Maybe Text)- , _ccPubliclyAccessible :: !(Maybe Bool)- , _ccHSMConfigurationIdentifier :: !(Maybe Text)- , _ccClusterSecurityGroups :: !(Maybe [Text])- , _ccAutomatedSnapshotRetentionPeriod :: !(Maybe Int)- , _ccEncrypted :: !(Maybe Bool)- , _ccClusterSubnetGroupName :: !(Maybe Text)- , _ccHSMClientCertificateIdentifier :: !(Maybe Text)- , _ccNumberOfNodes :: !(Maybe Int)- , _ccElasticIP :: !(Maybe Text)- , _ccPreferredMaintenanceWindow :: !(Maybe Text)- , _ccKMSKeyId :: !(Maybe Text)- , _ccAvailabilityZone :: !(Maybe Text)- , _ccVPCSecurityGroupIds :: !(Maybe [Text])- , _ccIAMRoles :: !(Maybe [Text])- , _ccClusterType :: !(Maybe Text)- , _ccClusterVersion :: !(Maybe Text)- , _ccAllowVersionUpgrade :: !(Maybe Bool)- , _ccClusterParameterGroupName :: !(Maybe Text)- , _ccTags :: !(Maybe [Tag])- , _ccPort :: !(Maybe Int)- , _ccDBName :: !(Maybe Text)- , _ccClusterIdentifier :: !Text- , _ccNodeType :: !Text- , _ccMasterUsername :: !Text- , _ccMasterUserPassword :: !Text- } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'CreateCluster' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'ccEnhancedVPCRouting' - An option that specifies whether to create the cluster with enhanced VPC routing enabled. To create a cluster that uses enhanced VPC routing, the cluster must be in a VPC. For more information, see <http://docs.aws.amazon.com/redshift/latest/mgmt/enhanced-vpc-routing.html Enhanced VPC Routing> in the Amazon Redshift Cluster Management Guide. If this option is @true@ , enhanced VPC routing is enabled. Default: false------ * 'ccAdditionalInfo' - Reserved.------ * 'ccPubliclyAccessible' - If @true@ , the cluster can be accessed from a public network.------ * 'ccHSMConfigurationIdentifier' - Specifies the name of the HSM configuration that contains the information the Amazon Redshift cluster can use to retrieve and store keys in an HSM.------ * 'ccClusterSecurityGroups' - A list of security groups to be associated with this cluster. Default: The default cluster security group for Amazon Redshift.------ * 'ccAutomatedSnapshotRetentionPeriod' - The number of days that automated snapshots are retained. If the value is 0, automated snapshots are disabled. Even if automated snapshots are disabled, you can still create manual snapshots when you want with 'CreateClusterSnapshot' . Default: @1@ Constraints: Must be a value from 0 to 35.------ * 'ccEncrypted' - If @true@ , the data in the cluster is encrypted at rest. Default: false------ * 'ccClusterSubnetGroupName' - The name of a cluster subnet group to be associated with this cluster. If this parameter is not provided the resulting cluster will be deployed outside virtual private cloud (VPC).------ * 'ccHSMClientCertificateIdentifier' - Specifies the name of the HSM client certificate the Amazon Redshift cluster uses to retrieve the data encryption keys stored in an HSM.------ * 'ccNumberOfNodes' - The number of compute nodes in the cluster. This parameter is required when the __ClusterType__ parameter is specified as @multi-node@ . For information about determining how many nodes you need, go to <http://docs.aws.amazon.com/redshift/latest/mgmt/working-with-clusters.html#how-many-nodes Working with Clusters> in the /Amazon Redshift Cluster Management Guide/ . If you don't specify this parameter, you get a single-node cluster. When requesting a multi-node cluster, you must specify the number of nodes that you want in the cluster. Default: @1@ Constraints: Value must be at least 1 and no more than 100.------ * 'ccElasticIP' - The Elastic IP (EIP) address for the cluster. Constraints: The cluster must be provisioned in EC2-VPC and publicly-accessible through an Internet gateway. For more information about provisioning clusters in EC2-VPC, go to <http://docs.aws.amazon.com/redshift/latest/mgmt/working-with-clusters.html#cluster-platforms Supported Platforms to Launch Your Cluster> in the Amazon Redshift Cluster Management Guide.------ * 'ccPreferredMaintenanceWindow' - The weekly time range (in UTC) during which automated cluster maintenance can occur. Format: @ddd:hh24:mi-ddd:hh24:mi@ Default: A 30-minute window selected at random from an 8-hour block of time per region, occurring on a random day of the week. For more information about the time blocks for each region, see <http://docs.aws.amazon.com/redshift/latest/mgmt/working-with-clusters.html#rs-maintenance-windows Maintenance Windows> in Amazon Redshift Cluster Management Guide. Valid Days: Mon | Tue | Wed | Thu | Fri | Sat | Sun Constraints: Minimum 30-minute window.------ * 'ccKMSKeyId' - The AWS Key Management Service (KMS) key ID of the encryption key that you want to use to encrypt data in the cluster.------ * 'ccAvailabilityZone' - The EC2 Availability Zone (AZ) in which you want Amazon Redshift to provision the cluster. For example, if you have several EC2 instances running in a specific Availability Zone, then you might want the cluster to be provisioned in the same zone in order to decrease network latency. Default: A random, system-chosen Availability Zone in the region that is specified by the endpoint. Example: @us-east-1d@ Constraint: The specified Availability Zone must be in the same region as the current endpoint.------ * 'ccVPCSecurityGroupIds' - A list of Virtual Private Cloud (VPC) security groups to be associated with the cluster. Default: The default VPC security group is associated with the cluster.------ * 'ccIAMRoles' - A list of AWS Identity and Access Management (IAM) roles that can be used by the cluster to access other AWS services. You must supply the IAM roles in their Amazon Resource Name (ARN) format. You can supply up to 10 IAM roles in a single request. A cluster can have up to 10 IAM roles associated with it at any time.------ * 'ccClusterType' - The type of the cluster. When cluster type is specified as * @single-node@ , the __NumberOfNodes__ parameter is not required. * @multi-node@ , the __NumberOfNodes__ parameter is required. Valid Values: @multi-node@ | @single-node@ Default: @multi-node@------ * 'ccClusterVersion' - The version of the Amazon Redshift engine software that you want to deploy on the cluster. The version selected runs on all the nodes in the cluster. Constraints: Only version 1.0 is currently available. Example: @1.0@------ * 'ccAllowVersionUpgrade' - If @true@ , major version upgrades can be applied during the maintenance window to the Amazon Redshift engine that is running on the cluster. When a new major version of the Amazon Redshift engine is released, you can request that the service automatically apply upgrades during the maintenance window to the Amazon Redshift engine that is running on your cluster. Default: @true@------ * 'ccClusterParameterGroupName' - The name of the parameter group to be associated with this cluster. Default: The default Amazon Redshift cluster parameter group. For information about the default parameter group, go to <http://docs.aws.amazon.com/redshift/latest/mgmt/working-with-parameter-groups.html Working with Amazon Redshift Parameter Groups> Constraints: * Must be 1 to 255 alphanumeric characters or hyphens. * First character must be a letter. * Cannot end with a hyphen or contain two consecutive hyphens.------ * 'ccTags' - A list of tag instances.------ * 'ccPort' - The port number on which the cluster accepts incoming connections. The cluster is accessible only via the JDBC and ODBC connection strings. Part of the connection string requires the port on which the cluster will listen for incoming connections. Default: @5439@ Valid Values: @1150-65535@------ * 'ccDBName' - The name of the first database to be created when the cluster is created. To create additional databases after the cluster is created, connect to the cluster with a SQL client and use SQL commands to create a database. For more information, go to <http://docs.aws.amazon.com/redshift/latest/dg/t_creating_database.html Create a Database> in the Amazon Redshift Database Developer Guide. Default: @dev@ Constraints: * Must contain 1 to 64 alphanumeric characters. * Must contain only lowercase letters. * Cannot be a word that is reserved by the service. A list of reserved words can be found in <http://docs.aws.amazon.com/redshift/latest/dg/r_pg_keywords.html Reserved Words> in the Amazon Redshift Database Developer Guide.------ * 'ccClusterIdentifier' - A unique identifier for the cluster. You use this identifier to refer to the cluster for any subsequent cluster operations such as deleting or modifying. The identifier also appears in the Amazon Redshift console. Constraints: * Must contain from 1 to 63 alphanumeric characters or hyphens. * Alphabetic characters must be lowercase. * First character must be a letter. * Cannot end with a hyphen or contain two consecutive hyphens. * Must be unique for all clusters within an AWS account. Example: @myexamplecluster@------ * 'ccNodeType' - The node type to be provisioned for the cluster. For information about node types, go to <http://docs.aws.amazon.com/redshift/latest/mgmt/working-with-clusters.html#how-many-nodes Working with Clusters> in the /Amazon Redshift Cluster Management Guide/ . Valid Values: @ds2.xlarge@ | @ds2.8xlarge@ | @ds2.xlarge@ | @ds2.8xlarge@ | @dc1.large@ | @dc1.8xlarge@ | @dc2.large@ | @dc2.8xlarge@------ * 'ccMasterUsername' - The user name associated with the master user account for the cluster that is being created. Constraints: * Must be 1 - 128 alphanumeric characters. The user name can't be @PUBLIC@ . * First character must be a letter. * Cannot be a reserved word. A list of reserved words can be found in <http://docs.aws.amazon.com/redshift/latest/dg/r_pg_keywords.html Reserved Words> in the Amazon Redshift Database Developer Guide.------ * 'ccMasterUserPassword' - The password associated with the master user account for the cluster that is being created. Constraints: * Must be between 8 and 64 characters in length. * Must contain at least one uppercase letter. * Must contain at least one lowercase letter. * Must contain one number. * Can be any printable ASCII character (ASCII code 33 to 126) except ' (single quote), " (double quote), \, /, @, or space.-createCluster- :: Text -- ^ 'ccClusterIdentifier'- -> Text -- ^ 'ccNodeType'- -> Text -- ^ 'ccMasterUsername'- -> Text -- ^ 'ccMasterUserPassword'- -> CreateCluster-createCluster pClusterIdentifier_ pNodeType_ pMasterUsername_ pMasterUserPassword_ =- CreateCluster'- { _ccEnhancedVPCRouting = Nothing- , _ccAdditionalInfo = Nothing- , _ccPubliclyAccessible = Nothing- , _ccHSMConfigurationIdentifier = Nothing- , _ccClusterSecurityGroups = Nothing- , _ccAutomatedSnapshotRetentionPeriod = Nothing- , _ccEncrypted = Nothing- , _ccClusterSubnetGroupName = Nothing- , _ccHSMClientCertificateIdentifier = Nothing- , _ccNumberOfNodes = Nothing- , _ccElasticIP = Nothing- , _ccPreferredMaintenanceWindow = Nothing- , _ccKMSKeyId = Nothing- , _ccAvailabilityZone = Nothing- , _ccVPCSecurityGroupIds = Nothing- , _ccIAMRoles = Nothing- , _ccClusterType = Nothing- , _ccClusterVersion = Nothing- , _ccAllowVersionUpgrade = Nothing- , _ccClusterParameterGroupName = Nothing- , _ccTags = Nothing- , _ccPort = Nothing- , _ccDBName = Nothing- , _ccClusterIdentifier = pClusterIdentifier_- , _ccNodeType = pNodeType_- , _ccMasterUsername = pMasterUsername_- , _ccMasterUserPassword = pMasterUserPassword_- }----- | An option that specifies whether to create the cluster with enhanced VPC routing enabled. To create a cluster that uses enhanced VPC routing, the cluster must be in a VPC. For more information, see <http://docs.aws.amazon.com/redshift/latest/mgmt/enhanced-vpc-routing.html Enhanced VPC Routing> in the Amazon Redshift Cluster Management Guide. If this option is @true@ , enhanced VPC routing is enabled. Default: false-ccEnhancedVPCRouting :: Lens' CreateCluster (Maybe Bool)-ccEnhancedVPCRouting = lens _ccEnhancedVPCRouting (\ s a -> s{_ccEnhancedVPCRouting = a})---- | Reserved.-ccAdditionalInfo :: Lens' CreateCluster (Maybe Text)-ccAdditionalInfo = lens _ccAdditionalInfo (\ s a -> s{_ccAdditionalInfo = a})---- | If @true@ , the cluster can be accessed from a public network.-ccPubliclyAccessible :: Lens' CreateCluster (Maybe Bool)-ccPubliclyAccessible = lens _ccPubliclyAccessible (\ s a -> s{_ccPubliclyAccessible = a})---- | Specifies the name of the HSM configuration that contains the information the Amazon Redshift cluster can use to retrieve and store keys in an HSM.-ccHSMConfigurationIdentifier :: Lens' CreateCluster (Maybe Text)-ccHSMConfigurationIdentifier = lens _ccHSMConfigurationIdentifier (\ s a -> s{_ccHSMConfigurationIdentifier = a})---- | A list of security groups to be associated with this cluster. Default: The default cluster security group for Amazon Redshift.-ccClusterSecurityGroups :: Lens' CreateCluster [Text]-ccClusterSecurityGroups = lens _ccClusterSecurityGroups (\ s a -> s{_ccClusterSecurityGroups = a}) . _Default . _Coerce---- | The number of days that automated snapshots are retained. If the value is 0, automated snapshots are disabled. Even if automated snapshots are disabled, you can still create manual snapshots when you want with 'CreateClusterSnapshot' . Default: @1@ Constraints: Must be a value from 0 to 35.-ccAutomatedSnapshotRetentionPeriod :: Lens' CreateCluster (Maybe Int)-ccAutomatedSnapshotRetentionPeriod = lens _ccAutomatedSnapshotRetentionPeriod (\ s a -> s{_ccAutomatedSnapshotRetentionPeriod = a})---- | If @true@ , the data in the cluster is encrypted at rest. Default: false-ccEncrypted :: Lens' CreateCluster (Maybe Bool)-ccEncrypted = lens _ccEncrypted (\ s a -> s{_ccEncrypted = a})---- | The name of a cluster subnet group to be associated with this cluster. If this parameter is not provided the resulting cluster will be deployed outside virtual private cloud (VPC).-ccClusterSubnetGroupName :: Lens' CreateCluster (Maybe Text)-ccClusterSubnetGroupName = lens _ccClusterSubnetGroupName (\ s a -> s{_ccClusterSubnetGroupName = a})---- | Specifies the name of the HSM client certificate the Amazon Redshift cluster uses to retrieve the data encryption keys stored in an HSM.-ccHSMClientCertificateIdentifier :: Lens' CreateCluster (Maybe Text)-ccHSMClientCertificateIdentifier = lens _ccHSMClientCertificateIdentifier (\ s a -> s{_ccHSMClientCertificateIdentifier = a})---- | The number of compute nodes in the cluster. This parameter is required when the __ClusterType__ parameter is specified as @multi-node@ . For information about determining how many nodes you need, go to <http://docs.aws.amazon.com/redshift/latest/mgmt/working-with-clusters.html#how-many-nodes Working with Clusters> in the /Amazon Redshift Cluster Management Guide/ . If you don't specify this parameter, you get a single-node cluster. When requesting a multi-node cluster, you must specify the number of nodes that you want in the cluster. Default: @1@ Constraints: Value must be at least 1 and no more than 100.-ccNumberOfNodes :: Lens' CreateCluster (Maybe Int)-ccNumberOfNodes = lens _ccNumberOfNodes (\ s a -> s{_ccNumberOfNodes = a})---- | The Elastic IP (EIP) address for the cluster. Constraints: The cluster must be provisioned in EC2-VPC and publicly-accessible through an Internet gateway. For more information about provisioning clusters in EC2-VPC, go to <http://docs.aws.amazon.com/redshift/latest/mgmt/working-with-clusters.html#cluster-platforms Supported Platforms to Launch Your Cluster> in the Amazon Redshift Cluster Management Guide.-ccElasticIP :: Lens' CreateCluster (Maybe Text)-ccElasticIP = lens _ccElasticIP (\ s a -> s{_ccElasticIP = a})---- | The weekly time range (in UTC) during which automated cluster maintenance can occur. Format: @ddd:hh24:mi-ddd:hh24:mi@ Default: A 30-minute window selected at random from an 8-hour block of time per region, occurring on a random day of the week. For more information about the time blocks for each region, see <http://docs.aws.amazon.com/redshift/latest/mgmt/working-with-clusters.html#rs-maintenance-windows Maintenance Windows> in Amazon Redshift Cluster Management Guide. Valid Days: Mon | Tue | Wed | Thu | Fri | Sat | Sun Constraints: Minimum 30-minute window.-ccPreferredMaintenanceWindow :: Lens' CreateCluster (Maybe Text)-ccPreferredMaintenanceWindow = lens _ccPreferredMaintenanceWindow (\ s a -> s{_ccPreferredMaintenanceWindow = a})---- | The AWS Key Management Service (KMS) key ID of the encryption key that you want to use to encrypt data in the cluster.-ccKMSKeyId :: Lens' CreateCluster (Maybe Text)-ccKMSKeyId = lens _ccKMSKeyId (\ s a -> s{_ccKMSKeyId = a})---- | The EC2 Availability Zone (AZ) in which you want Amazon Redshift to provision the cluster. For example, if you have several EC2 instances running in a specific Availability Zone, then you might want the cluster to be provisioned in the same zone in order to decrease network latency. Default: A random, system-chosen Availability Zone in the region that is specified by the endpoint. Example: @us-east-1d@ Constraint: The specified Availability Zone must be in the same region as the current endpoint.-ccAvailabilityZone :: Lens' CreateCluster (Maybe Text)-ccAvailabilityZone = lens _ccAvailabilityZone (\ s a -> s{_ccAvailabilityZone = a})---- | A list of Virtual Private Cloud (VPC) security groups to be associated with the cluster. Default: The default VPC security group is associated with the cluster.-ccVPCSecurityGroupIds :: Lens' CreateCluster [Text]-ccVPCSecurityGroupIds = lens _ccVPCSecurityGroupIds (\ s a -> s{_ccVPCSecurityGroupIds = a}) . _Default . _Coerce---- | A list of AWS Identity and Access Management (IAM) roles that can be used by the cluster to access other AWS services. You must supply the IAM roles in their Amazon Resource Name (ARN) format. You can supply up to 10 IAM roles in a single request. A cluster can have up to 10 IAM roles associated with it at any time.-ccIAMRoles :: Lens' CreateCluster [Text]-ccIAMRoles = lens _ccIAMRoles (\ s a -> s{_ccIAMRoles = a}) . _Default . _Coerce---- | The type of the cluster. When cluster type is specified as * @single-node@ , the __NumberOfNodes__ parameter is not required. * @multi-node@ , the __NumberOfNodes__ parameter is required. Valid Values: @multi-node@ | @single-node@ Default: @multi-node@-ccClusterType :: Lens' CreateCluster (Maybe Text)-ccClusterType = lens _ccClusterType (\ s a -> s{_ccClusterType = a})---- | The version of the Amazon Redshift engine software that you want to deploy on the cluster. The version selected runs on all the nodes in the cluster. Constraints: Only version 1.0 is currently available. Example: @1.0@-ccClusterVersion :: Lens' CreateCluster (Maybe Text)-ccClusterVersion = lens _ccClusterVersion (\ s a -> s{_ccClusterVersion = a})---- | If @true@ , major version upgrades can be applied during the maintenance window to the Amazon Redshift engine that is running on the cluster. When a new major version of the Amazon Redshift engine is released, you can request that the service automatically apply upgrades during the maintenance window to the Amazon Redshift engine that is running on your cluster. Default: @true@-ccAllowVersionUpgrade :: Lens' CreateCluster (Maybe Bool)-ccAllowVersionUpgrade = lens _ccAllowVersionUpgrade (\ s a -> s{_ccAllowVersionUpgrade = a})---- | The name of the parameter group to be associated with this cluster. Default: The default Amazon Redshift cluster parameter group. For information about the default parameter group, go to <http://docs.aws.amazon.com/redshift/latest/mgmt/working-with-parameter-groups.html Working with Amazon Redshift Parameter Groups> Constraints: * Must be 1 to 255 alphanumeric characters or hyphens. * First character must be a letter. * Cannot end with a hyphen or contain two consecutive hyphens.-ccClusterParameterGroupName :: Lens' CreateCluster (Maybe Text)-ccClusterParameterGroupName = lens _ccClusterParameterGroupName (\ s a -> s{_ccClusterParameterGroupName = a})---- | A list of tag instances.-ccTags :: Lens' CreateCluster [Tag]-ccTags = lens _ccTags (\ s a -> s{_ccTags = a}) . _Default . _Coerce---- | The port number on which the cluster accepts incoming connections. The cluster is accessible only via the JDBC and ODBC connection strings. Part of the connection string requires the port on which the cluster will listen for incoming connections. Default: @5439@ Valid Values: @1150-65535@-ccPort :: Lens' CreateCluster (Maybe Int)-ccPort = lens _ccPort (\ s a -> s{_ccPort = a})---- | The name of the first database to be created when the cluster is created. To create additional databases after the cluster is created, connect to the cluster with a SQL client and use SQL commands to create a database. For more information, go to <http://docs.aws.amazon.com/redshift/latest/dg/t_creating_database.html Create a Database> in the Amazon Redshift Database Developer Guide. Default: @dev@ Constraints: * Must contain 1 to 64 alphanumeric characters. * Must contain only lowercase letters. * Cannot be a word that is reserved by the service. A list of reserved words can be found in <http://docs.aws.amazon.com/redshift/latest/dg/r_pg_keywords.html Reserved Words> in the Amazon Redshift Database Developer Guide.-ccDBName :: Lens' CreateCluster (Maybe Text)-ccDBName = lens _ccDBName (\ s a -> s{_ccDBName = a})---- | A unique identifier for the cluster. You use this identifier to refer to the cluster for any subsequent cluster operations such as deleting or modifying. The identifier also appears in the Amazon Redshift console. Constraints: * Must contain from 1 to 63 alphanumeric characters or hyphens. * Alphabetic characters must be lowercase. * First character must be a letter. * Cannot end with a hyphen or contain two consecutive hyphens. * Must be unique for all clusters within an AWS account. Example: @myexamplecluster@-ccClusterIdentifier :: Lens' CreateCluster Text-ccClusterIdentifier = lens _ccClusterIdentifier (\ s a -> s{_ccClusterIdentifier = a})---- | The node type to be provisioned for the cluster. For information about node types, go to <http://docs.aws.amazon.com/redshift/latest/mgmt/working-with-clusters.html#how-many-nodes Working with Clusters> in the /Amazon Redshift Cluster Management Guide/ . Valid Values: @ds2.xlarge@ | @ds2.8xlarge@ | @ds2.xlarge@ | @ds2.8xlarge@ | @dc1.large@ | @dc1.8xlarge@ | @dc2.large@ | @dc2.8xlarge@-ccNodeType :: Lens' CreateCluster Text-ccNodeType = lens _ccNodeType (\ s a -> s{_ccNodeType = a})---- | The user name associated with the master user account for the cluster that is being created. Constraints: * Must be 1 - 128 alphanumeric characters. The user name can't be @PUBLIC@ . * First character must be a letter. * Cannot be a reserved word. A list of reserved words can be found in <http://docs.aws.amazon.com/redshift/latest/dg/r_pg_keywords.html Reserved Words> in the Amazon Redshift Database Developer Guide.-ccMasterUsername :: Lens' CreateCluster Text-ccMasterUsername = lens _ccMasterUsername (\ s a -> s{_ccMasterUsername = a})---- | The password associated with the master user account for the cluster that is being created. Constraints: * Must be between 8 and 64 characters in length. * Must contain at least one uppercase letter. * Must contain at least one lowercase letter. * Must contain one number. * Can be any printable ASCII character (ASCII code 33 to 126) except ' (single quote), " (double quote), \, /, @, or space.-ccMasterUserPassword :: Lens' CreateCluster Text-ccMasterUserPassword = lens _ccMasterUserPassword (\ s a -> s{_ccMasterUserPassword = a})--instance AWSRequest CreateCluster where- type Rs CreateCluster = CreateClusterResponse- request = postQuery redshift- response- = receiveXMLWrapper "CreateClusterResult"- (\ s h x ->- CreateClusterResponse' <$>- (x .@? "Cluster") <*> (pure (fromEnum s)))--instance Hashable CreateCluster where--instance NFData CreateCluster where--instance ToHeaders CreateCluster where- toHeaders = const mempty--instance ToPath CreateCluster where- toPath = const "/"--instance ToQuery CreateCluster where- toQuery CreateCluster'{..}- = mconcat- ["Action" =: ("CreateCluster" :: ByteString),- "Version" =: ("2012-12-01" :: ByteString),- "EnhancedVpcRouting" =: _ccEnhancedVPCRouting,- "AdditionalInfo" =: _ccAdditionalInfo,- "PubliclyAccessible" =: _ccPubliclyAccessible,- "HsmConfigurationIdentifier" =:- _ccHSMConfigurationIdentifier,- "ClusterSecurityGroups" =:- toQuery- (toQueryList "ClusterSecurityGroupName" <$>- _ccClusterSecurityGroups),- "AutomatedSnapshotRetentionPeriod" =:- _ccAutomatedSnapshotRetentionPeriod,- "Encrypted" =: _ccEncrypted,- "ClusterSubnetGroupName" =:- _ccClusterSubnetGroupName,- "HsmClientCertificateIdentifier" =:- _ccHSMClientCertificateIdentifier,- "NumberOfNodes" =: _ccNumberOfNodes,- "ElasticIp" =: _ccElasticIP,- "PreferredMaintenanceWindow" =:- _ccPreferredMaintenanceWindow,- "KmsKeyId" =: _ccKMSKeyId,- "AvailabilityZone" =: _ccAvailabilityZone,- "VpcSecurityGroupIds" =:- toQuery- (toQueryList "VpcSecurityGroupId" <$>- _ccVPCSecurityGroupIds),- "IamRoles" =:- toQuery (toQueryList "IamRoleArn" <$> _ccIAMRoles),- "ClusterType" =: _ccClusterType,- "ClusterVersion" =: _ccClusterVersion,- "AllowVersionUpgrade" =: _ccAllowVersionUpgrade,- "ClusterParameterGroupName" =:- _ccClusterParameterGroupName,- "Tags" =: toQuery (toQueryList "Tag" <$> _ccTags),- "Port" =: _ccPort, "DBName" =: _ccDBName,- "ClusterIdentifier" =: _ccClusterIdentifier,- "NodeType" =: _ccNodeType,- "MasterUsername" =: _ccMasterUsername,- "MasterUserPassword" =: _ccMasterUserPassword]---- | /See:/ 'createClusterResponse' smart constructor.-data CreateClusterResponse = CreateClusterResponse'- { _ccrsCluster :: !(Maybe Cluster)- , _ccrsResponseStatus :: !Int- } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'CreateClusterResponse' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'ccrsCluster' - Undocumented member.------ * 'ccrsResponseStatus' - -- | The response status code.-createClusterResponse- :: Int -- ^ 'ccrsResponseStatus'- -> CreateClusterResponse-createClusterResponse pResponseStatus_ =- CreateClusterResponse'- {_ccrsCluster = Nothing, _ccrsResponseStatus = pResponseStatus_}----- | Undocumented member.-ccrsCluster :: Lens' CreateClusterResponse (Maybe Cluster)-ccrsCluster = lens _ccrsCluster (\ s a -> s{_ccrsCluster = a})---- | -- | The response status code.-ccrsResponseStatus :: Lens' CreateClusterResponse Int-ccrsResponseStatus = lens _ccrsResponseStatus (\ s a -> s{_ccrsResponseStatus = a})--instance NFData CreateClusterResponse where
− gen/Network/AWS/Redshift/CreateClusterParameterGroup.hs
@@ -1,174 +0,0 @@-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric #-}-{-# LANGUAGE OverloadedStrings #-}-{-# LANGUAGE RecordWildCards #-}-{-# LANGUAGE TypeFamilies #-}--{-# OPTIONS_GHC -fno-warn-unused-imports #-}-{-# OPTIONS_GHC -fno-warn-unused-binds #-}-{-# OPTIONS_GHC -fno-warn-unused-matches #-}---- Derived from AWS service descriptions, licensed under Apache 2.0.---- |--- Module : Network.AWS.Redshift.CreateClusterParameterGroup--- Copyright : (c) 2013-2018 Brendan Hay--- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>--- Stability : auto-generated--- Portability : non-portable (GHC extensions)------ Creates an Amazon Redshift parameter group.--------- Creating parameter groups is independent of creating clusters. You can associate a cluster with a parameter group when you create the cluster. You can also associate an existing cluster with a parameter group after the cluster is created by using 'ModifyCluster' .------ Parameters in the parameter group define specific behavior that applies to the databases you create on the cluster. For more information about parameters and parameter groups, go to <http://docs.aws.amazon.com/redshift/latest/mgmt/working-with-parameter-groups.html Amazon Redshift Parameter Groups> in the /Amazon Redshift Cluster Management Guide/ .----module Network.AWS.Redshift.CreateClusterParameterGroup- (- -- * Creating a Request- createClusterParameterGroup- , CreateClusterParameterGroup- -- * Request Lenses- , ccpgTags- , ccpgParameterGroupName- , ccpgParameterGroupFamily- , ccpgDescription-- -- * Destructuring the Response- , createClusterParameterGroupResponse- , CreateClusterParameterGroupResponse- -- * Response Lenses- , ccpgrsClusterParameterGroup- , ccpgrsResponseStatus- ) where--import Network.AWS.Lens-import Network.AWS.Prelude-import Network.AWS.Redshift.Types-import Network.AWS.Redshift.Types.Product-import Network.AWS.Request-import Network.AWS.Response---- |------------ /See:/ 'createClusterParameterGroup' smart constructor.-data CreateClusterParameterGroup = CreateClusterParameterGroup'- { _ccpgTags :: !(Maybe [Tag])- , _ccpgParameterGroupName :: !Text- , _ccpgParameterGroupFamily :: !Text- , _ccpgDescription :: !Text- } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'CreateClusterParameterGroup' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'ccpgTags' - A list of tag instances.------ * 'ccpgParameterGroupName' - The name of the cluster parameter group. Constraints: * Must be 1 to 255 alphanumeric characters or hyphens * First character must be a letter. * Cannot end with a hyphen or contain two consecutive hyphens. * Must be unique withing your AWS account.------ * 'ccpgParameterGroupFamily' - The Amazon Redshift engine version to which the cluster parameter group applies. The cluster engine version determines the set of parameters. To get a list of valid parameter group family names, you can call 'DescribeClusterParameterGroups' . By default, Amazon Redshift returns a list of all the parameter groups that are owned by your AWS account, including the default parameter groups for each Amazon Redshift engine version. The parameter group family names associated with the default parameter groups provide you the valid values. For example, a valid family name is "redshift-1.0".------ * 'ccpgDescription' - A description of the parameter group.-createClusterParameterGroup- :: Text -- ^ 'ccpgParameterGroupName'- -> Text -- ^ 'ccpgParameterGroupFamily'- -> Text -- ^ 'ccpgDescription'- -> CreateClusterParameterGroup-createClusterParameterGroup pParameterGroupName_ pParameterGroupFamily_ pDescription_ =- CreateClusterParameterGroup'- { _ccpgTags = Nothing- , _ccpgParameterGroupName = pParameterGroupName_- , _ccpgParameterGroupFamily = pParameterGroupFamily_- , _ccpgDescription = pDescription_- }----- | A list of tag instances.-ccpgTags :: Lens' CreateClusterParameterGroup [Tag]-ccpgTags = lens _ccpgTags (\ s a -> s{_ccpgTags = a}) . _Default . _Coerce---- | The name of the cluster parameter group. Constraints: * Must be 1 to 255 alphanumeric characters or hyphens * First character must be a letter. * Cannot end with a hyphen or contain two consecutive hyphens. * Must be unique withing your AWS account.-ccpgParameterGroupName :: Lens' CreateClusterParameterGroup Text-ccpgParameterGroupName = lens _ccpgParameterGroupName (\ s a -> s{_ccpgParameterGroupName = a})---- | The Amazon Redshift engine version to which the cluster parameter group applies. The cluster engine version determines the set of parameters. To get a list of valid parameter group family names, you can call 'DescribeClusterParameterGroups' . By default, Amazon Redshift returns a list of all the parameter groups that are owned by your AWS account, including the default parameter groups for each Amazon Redshift engine version. The parameter group family names associated with the default parameter groups provide you the valid values. For example, a valid family name is "redshift-1.0".-ccpgParameterGroupFamily :: Lens' CreateClusterParameterGroup Text-ccpgParameterGroupFamily = lens _ccpgParameterGroupFamily (\ s a -> s{_ccpgParameterGroupFamily = a})---- | A description of the parameter group.-ccpgDescription :: Lens' CreateClusterParameterGroup Text-ccpgDescription = lens _ccpgDescription (\ s a -> s{_ccpgDescription = a})--instance AWSRequest CreateClusterParameterGroup where- type Rs CreateClusterParameterGroup =- CreateClusterParameterGroupResponse- request = postQuery redshift- response- = receiveXMLWrapper- "CreateClusterParameterGroupResult"- (\ s h x ->- CreateClusterParameterGroupResponse' <$>- (x .@? "ClusterParameterGroup") <*>- (pure (fromEnum s)))--instance Hashable CreateClusterParameterGroup where--instance NFData CreateClusterParameterGroup where--instance ToHeaders CreateClusterParameterGroup where- toHeaders = const mempty--instance ToPath CreateClusterParameterGroup where- toPath = const "/"--instance ToQuery CreateClusterParameterGroup where- toQuery CreateClusterParameterGroup'{..}- = mconcat- ["Action" =:- ("CreateClusterParameterGroup" :: ByteString),- "Version" =: ("2012-12-01" :: ByteString),- "Tags" =: toQuery (toQueryList "Tag" <$> _ccpgTags),- "ParameterGroupName" =: _ccpgParameterGroupName,- "ParameterGroupFamily" =: _ccpgParameterGroupFamily,- "Description" =: _ccpgDescription]---- | /See:/ 'createClusterParameterGroupResponse' smart constructor.-data CreateClusterParameterGroupResponse = CreateClusterParameterGroupResponse'- { _ccpgrsClusterParameterGroup :: !(Maybe ClusterParameterGroup)- , _ccpgrsResponseStatus :: !Int- } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'CreateClusterParameterGroupResponse' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'ccpgrsClusterParameterGroup' - Undocumented member.------ * 'ccpgrsResponseStatus' - -- | The response status code.-createClusterParameterGroupResponse- :: Int -- ^ 'ccpgrsResponseStatus'- -> CreateClusterParameterGroupResponse-createClusterParameterGroupResponse pResponseStatus_ =- CreateClusterParameterGroupResponse'- { _ccpgrsClusterParameterGroup = Nothing- , _ccpgrsResponseStatus = pResponseStatus_- }----- | Undocumented member.-ccpgrsClusterParameterGroup :: Lens' CreateClusterParameterGroupResponse (Maybe ClusterParameterGroup)-ccpgrsClusterParameterGroup = lens _ccpgrsClusterParameterGroup (\ s a -> s{_ccpgrsClusterParameterGroup = a})---- | -- | The response status code.-ccpgrsResponseStatus :: Lens' CreateClusterParameterGroupResponse Int-ccpgrsResponseStatus = lens _ccpgrsResponseStatus (\ s a -> s{_ccpgrsResponseStatus = a})--instance NFData CreateClusterParameterGroupResponse- where
− gen/Network/AWS/Redshift/CreateClusterSecurityGroup.hs
@@ -1,160 +0,0 @@-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric #-}-{-# LANGUAGE OverloadedStrings #-}-{-# LANGUAGE RecordWildCards #-}-{-# LANGUAGE TypeFamilies #-}--{-# OPTIONS_GHC -fno-warn-unused-imports #-}-{-# OPTIONS_GHC -fno-warn-unused-binds #-}-{-# OPTIONS_GHC -fno-warn-unused-matches #-}---- Derived from AWS service descriptions, licensed under Apache 2.0.---- |--- Module : Network.AWS.Redshift.CreateClusterSecurityGroup--- Copyright : (c) 2013-2018 Brendan Hay--- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>--- Stability : auto-generated--- Portability : non-portable (GHC extensions)------ Creates a new Amazon Redshift security group. You use security groups to control access to non-VPC clusters.--------- For information about managing security groups, go to <http://docs.aws.amazon.com/redshift/latest/mgmt/working-with-security-groups.html Amazon Redshift Cluster Security Groups> in the /Amazon Redshift Cluster Management Guide/ .----module Network.AWS.Redshift.CreateClusterSecurityGroup- (- -- * Creating a Request- createClusterSecurityGroup- , CreateClusterSecurityGroup- -- * Request Lenses- , creTags- , creClusterSecurityGroupName- , creDescription-- -- * Destructuring the Response- , createClusterSecurityGroupResponse- , CreateClusterSecurityGroupResponse- -- * Response Lenses- , crsClusterSecurityGroup- , crsResponseStatus- ) where--import Network.AWS.Lens-import Network.AWS.Prelude-import Network.AWS.Redshift.Types-import Network.AWS.Redshift.Types.Product-import Network.AWS.Request-import Network.AWS.Response---- |------------ /See:/ 'createClusterSecurityGroup' smart constructor.-data CreateClusterSecurityGroup = CreateClusterSecurityGroup'- { _creTags :: !(Maybe [Tag])- , _creClusterSecurityGroupName :: !Text- , _creDescription :: !Text- } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'CreateClusterSecurityGroup' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'creTags' - A list of tag instances.------ * 'creClusterSecurityGroupName' - The name for the security group. Amazon Redshift stores the value as a lowercase string. Constraints: * Must contain no more than 255 alphanumeric characters or hyphens. * Must not be "Default". * Must be unique for all security groups that are created by your AWS account. Example: @examplesecuritygroup@------ * 'creDescription' - A description for the security group.-createClusterSecurityGroup- :: Text -- ^ 'creClusterSecurityGroupName'- -> Text -- ^ 'creDescription'- -> CreateClusterSecurityGroup-createClusterSecurityGroup pClusterSecurityGroupName_ pDescription_ =- CreateClusterSecurityGroup'- { _creTags = Nothing- , _creClusterSecurityGroupName = pClusterSecurityGroupName_- , _creDescription = pDescription_- }----- | A list of tag instances.-creTags :: Lens' CreateClusterSecurityGroup [Tag]-creTags = lens _creTags (\ s a -> s{_creTags = a}) . _Default . _Coerce---- | The name for the security group. Amazon Redshift stores the value as a lowercase string. Constraints: * Must contain no more than 255 alphanumeric characters or hyphens. * Must not be "Default". * Must be unique for all security groups that are created by your AWS account. Example: @examplesecuritygroup@-creClusterSecurityGroupName :: Lens' CreateClusterSecurityGroup Text-creClusterSecurityGroupName = lens _creClusterSecurityGroupName (\ s a -> s{_creClusterSecurityGroupName = a})---- | A description for the security group.-creDescription :: Lens' CreateClusterSecurityGroup Text-creDescription = lens _creDescription (\ s a -> s{_creDescription = a})--instance AWSRequest CreateClusterSecurityGroup where- type Rs CreateClusterSecurityGroup =- CreateClusterSecurityGroupResponse- request = postQuery redshift- response- = receiveXMLWrapper- "CreateClusterSecurityGroupResult"- (\ s h x ->- CreateClusterSecurityGroupResponse' <$>- (x .@? "ClusterSecurityGroup") <*>- (pure (fromEnum s)))--instance Hashable CreateClusterSecurityGroup where--instance NFData CreateClusterSecurityGroup where--instance ToHeaders CreateClusterSecurityGroup where- toHeaders = const mempty--instance ToPath CreateClusterSecurityGroup where- toPath = const "/"--instance ToQuery CreateClusterSecurityGroup where- toQuery CreateClusterSecurityGroup'{..}- = mconcat- ["Action" =:- ("CreateClusterSecurityGroup" :: ByteString),- "Version" =: ("2012-12-01" :: ByteString),- "Tags" =: toQuery (toQueryList "Tag" <$> _creTags),- "ClusterSecurityGroupName" =:- _creClusterSecurityGroupName,- "Description" =: _creDescription]---- | /See:/ 'createClusterSecurityGroupResponse' smart constructor.-data CreateClusterSecurityGroupResponse = CreateClusterSecurityGroupResponse'- { _crsClusterSecurityGroup :: !(Maybe ClusterSecurityGroup)- , _crsResponseStatus :: !Int- } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'CreateClusterSecurityGroupResponse' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'crsClusterSecurityGroup' - Undocumented member.------ * 'crsResponseStatus' - -- | The response status code.-createClusterSecurityGroupResponse- :: Int -- ^ 'crsResponseStatus'- -> CreateClusterSecurityGroupResponse-createClusterSecurityGroupResponse pResponseStatus_ =- CreateClusterSecurityGroupResponse'- {_crsClusterSecurityGroup = Nothing, _crsResponseStatus = pResponseStatus_}----- | Undocumented member.-crsClusterSecurityGroup :: Lens' CreateClusterSecurityGroupResponse (Maybe ClusterSecurityGroup)-crsClusterSecurityGroup = lens _crsClusterSecurityGroup (\ s a -> s{_crsClusterSecurityGroup = a})---- | -- | The response status code.-crsResponseStatus :: Lens' CreateClusterSecurityGroupResponse Int-crsResponseStatus = lens _crsResponseStatus (\ s a -> s{_crsResponseStatus = a})--instance NFData CreateClusterSecurityGroupResponse- where
− gen/Network/AWS/Redshift/CreateClusterSnapshot.hs
@@ -1,155 +0,0 @@-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric #-}-{-# LANGUAGE OverloadedStrings #-}-{-# LANGUAGE RecordWildCards #-}-{-# LANGUAGE TypeFamilies #-}--{-# OPTIONS_GHC -fno-warn-unused-imports #-}-{-# OPTIONS_GHC -fno-warn-unused-binds #-}-{-# OPTIONS_GHC -fno-warn-unused-matches #-}---- Derived from AWS service descriptions, licensed under Apache 2.0.---- |--- Module : Network.AWS.Redshift.CreateClusterSnapshot--- Copyright : (c) 2013-2018 Brendan Hay--- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>--- Stability : auto-generated--- Portability : non-portable (GHC extensions)------ Creates a manual snapshot of the specified cluster. The cluster must be in the @available@ state.--------- For more information about working with snapshots, go to <http://docs.aws.amazon.com/redshift/latest/mgmt/working-with-snapshots.html Amazon Redshift Snapshots> in the /Amazon Redshift Cluster Management Guide/ .----module Network.AWS.Redshift.CreateClusterSnapshot- (- -- * Creating a Request- createClusterSnapshot- , CreateClusterSnapshot- -- * Request Lenses- , ccsTags- , ccsSnapshotIdentifier- , ccsClusterIdentifier-- -- * Destructuring the Response- , createClusterSnapshotResponse- , CreateClusterSnapshotResponse- -- * Response Lenses- , crersSnapshot- , crersResponseStatus- ) where--import Network.AWS.Lens-import Network.AWS.Prelude-import Network.AWS.Redshift.Types-import Network.AWS.Redshift.Types.Product-import Network.AWS.Request-import Network.AWS.Response---- |------------ /See:/ 'createClusterSnapshot' smart constructor.-data CreateClusterSnapshot = CreateClusterSnapshot'- { _ccsTags :: !(Maybe [Tag])- , _ccsSnapshotIdentifier :: !Text- , _ccsClusterIdentifier :: !Text- } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'CreateClusterSnapshot' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'ccsTags' - A list of tag instances.------ * 'ccsSnapshotIdentifier' - A unique identifier for the snapshot that you are requesting. This identifier must be unique for all snapshots within the AWS account. Constraints: * Cannot be null, empty, or blank * Must contain from 1 to 255 alphanumeric characters or hyphens * First character must be a letter * Cannot end with a hyphen or contain two consecutive hyphens Example: @my-snapshot-id@------ * 'ccsClusterIdentifier' - The cluster identifier for which you want a snapshot.-createClusterSnapshot- :: Text -- ^ 'ccsSnapshotIdentifier'- -> Text -- ^ 'ccsClusterIdentifier'- -> CreateClusterSnapshot-createClusterSnapshot pSnapshotIdentifier_ pClusterIdentifier_ =- CreateClusterSnapshot'- { _ccsTags = Nothing- , _ccsSnapshotIdentifier = pSnapshotIdentifier_- , _ccsClusterIdentifier = pClusterIdentifier_- }----- | A list of tag instances.-ccsTags :: Lens' CreateClusterSnapshot [Tag]-ccsTags = lens _ccsTags (\ s a -> s{_ccsTags = a}) . _Default . _Coerce---- | A unique identifier for the snapshot that you are requesting. This identifier must be unique for all snapshots within the AWS account. Constraints: * Cannot be null, empty, or blank * Must contain from 1 to 255 alphanumeric characters or hyphens * First character must be a letter * Cannot end with a hyphen or contain two consecutive hyphens Example: @my-snapshot-id@-ccsSnapshotIdentifier :: Lens' CreateClusterSnapshot Text-ccsSnapshotIdentifier = lens _ccsSnapshotIdentifier (\ s a -> s{_ccsSnapshotIdentifier = a})---- | The cluster identifier for which you want a snapshot.-ccsClusterIdentifier :: Lens' CreateClusterSnapshot Text-ccsClusterIdentifier = lens _ccsClusterIdentifier (\ s a -> s{_ccsClusterIdentifier = a})--instance AWSRequest CreateClusterSnapshot where- type Rs CreateClusterSnapshot =- CreateClusterSnapshotResponse- request = postQuery redshift- response- = receiveXMLWrapper "CreateClusterSnapshotResult"- (\ s h x ->- CreateClusterSnapshotResponse' <$>- (x .@? "Snapshot") <*> (pure (fromEnum s)))--instance Hashable CreateClusterSnapshot where--instance NFData CreateClusterSnapshot where--instance ToHeaders CreateClusterSnapshot where- toHeaders = const mempty--instance ToPath CreateClusterSnapshot where- toPath = const "/"--instance ToQuery CreateClusterSnapshot where- toQuery CreateClusterSnapshot'{..}- = mconcat- ["Action" =: ("CreateClusterSnapshot" :: ByteString),- "Version" =: ("2012-12-01" :: ByteString),- "Tags" =: toQuery (toQueryList "Tag" <$> _ccsTags),- "SnapshotIdentifier" =: _ccsSnapshotIdentifier,- "ClusterIdentifier" =: _ccsClusterIdentifier]---- | /See:/ 'createClusterSnapshotResponse' smart constructor.-data CreateClusterSnapshotResponse = CreateClusterSnapshotResponse'- { _crersSnapshot :: !(Maybe Snapshot)- , _crersResponseStatus :: !Int- } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'CreateClusterSnapshotResponse' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'crersSnapshot' - Undocumented member.------ * 'crersResponseStatus' - -- | The response status code.-createClusterSnapshotResponse- :: Int -- ^ 'crersResponseStatus'- -> CreateClusterSnapshotResponse-createClusterSnapshotResponse pResponseStatus_ =- CreateClusterSnapshotResponse'- {_crersSnapshot = Nothing, _crersResponseStatus = pResponseStatus_}----- | Undocumented member.-crersSnapshot :: Lens' CreateClusterSnapshotResponse (Maybe Snapshot)-crersSnapshot = lens _crersSnapshot (\ s a -> s{_crersSnapshot = a})---- | -- | The response status code.-crersResponseStatus :: Lens' CreateClusterSnapshotResponse Int-crersResponseStatus = lens _crersResponseStatus (\ s a -> s{_crersResponseStatus = a})--instance NFData CreateClusterSnapshotResponse where
− gen/Network/AWS/Redshift/CreateClusterSubnetGroup.hs
@@ -1,171 +0,0 @@-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric #-}-{-# LANGUAGE OverloadedStrings #-}-{-# LANGUAGE RecordWildCards #-}-{-# LANGUAGE TypeFamilies #-}--{-# OPTIONS_GHC -fno-warn-unused-imports #-}-{-# OPTIONS_GHC -fno-warn-unused-binds #-}-{-# OPTIONS_GHC -fno-warn-unused-matches #-}---- Derived from AWS service descriptions, licensed under Apache 2.0.---- |--- Module : Network.AWS.Redshift.CreateClusterSubnetGroup--- Copyright : (c) 2013-2018 Brendan Hay--- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>--- Stability : auto-generated--- Portability : non-portable (GHC extensions)------ Creates a new Amazon Redshift subnet group. You must provide a list of one or more subnets in your existing Amazon Virtual Private Cloud (Amazon VPC) when creating Amazon Redshift subnet group.--------- For information about subnet groups, go to <http://docs.aws.amazon.com/redshift/latest/mgmt/working-with-cluster-subnet-groups.html Amazon Redshift Cluster Subnet Groups> in the /Amazon Redshift Cluster Management Guide/ .----module Network.AWS.Redshift.CreateClusterSubnetGroup- (- -- * Creating a Request- createClusterSubnetGroup- , CreateClusterSubnetGroup- -- * Request Lenses- , ccsgTags- , ccsgClusterSubnetGroupName- , ccsgDescription- , ccsgSubnetIds-- -- * Destructuring the Response- , createClusterSubnetGroupResponse- , CreateClusterSubnetGroupResponse- -- * Response Lenses- , ccsgrsClusterSubnetGroup- , ccsgrsResponseStatus- ) where--import Network.AWS.Lens-import Network.AWS.Prelude-import Network.AWS.Redshift.Types-import Network.AWS.Redshift.Types.Product-import Network.AWS.Request-import Network.AWS.Response---- |------------ /See:/ 'createClusterSubnetGroup' smart constructor.-data CreateClusterSubnetGroup = CreateClusterSubnetGroup'- { _ccsgTags :: !(Maybe [Tag])- , _ccsgClusterSubnetGroupName :: !Text- , _ccsgDescription :: !Text- , _ccsgSubnetIds :: ![Text]- } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'CreateClusterSubnetGroup' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'ccsgTags' - A list of tag instances.------ * 'ccsgClusterSubnetGroupName' - The name for the subnet group. Amazon Redshift stores the value as a lowercase string. Constraints: * Must contain no more than 255 alphanumeric characters or hyphens. * Must not be "Default". * Must be unique for all subnet groups that are created by your AWS account. Example: @examplesubnetgroup@------ * 'ccsgDescription' - A description for the subnet group.------ * 'ccsgSubnetIds' - An array of VPC subnet IDs. A maximum of 20 subnets can be modified in a single request.-createClusterSubnetGroup- :: Text -- ^ 'ccsgClusterSubnetGroupName'- -> Text -- ^ 'ccsgDescription'- -> CreateClusterSubnetGroup-createClusterSubnetGroup pClusterSubnetGroupName_ pDescription_ =- CreateClusterSubnetGroup'- { _ccsgTags = Nothing- , _ccsgClusterSubnetGroupName = pClusterSubnetGroupName_- , _ccsgDescription = pDescription_- , _ccsgSubnetIds = mempty- }----- | A list of tag instances.-ccsgTags :: Lens' CreateClusterSubnetGroup [Tag]-ccsgTags = lens _ccsgTags (\ s a -> s{_ccsgTags = a}) . _Default . _Coerce---- | The name for the subnet group. Amazon Redshift stores the value as a lowercase string. Constraints: * Must contain no more than 255 alphanumeric characters or hyphens. * Must not be "Default". * Must be unique for all subnet groups that are created by your AWS account. Example: @examplesubnetgroup@-ccsgClusterSubnetGroupName :: Lens' CreateClusterSubnetGroup Text-ccsgClusterSubnetGroupName = lens _ccsgClusterSubnetGroupName (\ s a -> s{_ccsgClusterSubnetGroupName = a})---- | A description for the subnet group.-ccsgDescription :: Lens' CreateClusterSubnetGroup Text-ccsgDescription = lens _ccsgDescription (\ s a -> s{_ccsgDescription = a})---- | An array of VPC subnet IDs. A maximum of 20 subnets can be modified in a single request.-ccsgSubnetIds :: Lens' CreateClusterSubnetGroup [Text]-ccsgSubnetIds = lens _ccsgSubnetIds (\ s a -> s{_ccsgSubnetIds = a}) . _Coerce--instance AWSRequest CreateClusterSubnetGroup where- type Rs CreateClusterSubnetGroup =- CreateClusterSubnetGroupResponse- request = postQuery redshift- response- = receiveXMLWrapper "CreateClusterSubnetGroupResult"- (\ s h x ->- CreateClusterSubnetGroupResponse' <$>- (x .@? "ClusterSubnetGroup") <*> (pure (fromEnum s)))--instance Hashable CreateClusterSubnetGroup where--instance NFData CreateClusterSubnetGroup where--instance ToHeaders CreateClusterSubnetGroup where- toHeaders = const mempty--instance ToPath CreateClusterSubnetGroup where- toPath = const "/"--instance ToQuery CreateClusterSubnetGroup where- toQuery CreateClusterSubnetGroup'{..}- = mconcat- ["Action" =:- ("CreateClusterSubnetGroup" :: ByteString),- "Version" =: ("2012-12-01" :: ByteString),- "Tags" =: toQuery (toQueryList "Tag" <$> _ccsgTags),- "ClusterSubnetGroupName" =:- _ccsgClusterSubnetGroupName,- "Description" =: _ccsgDescription,- "SubnetIds" =:- toQueryList "SubnetIdentifier" _ccsgSubnetIds]---- | /See:/ 'createClusterSubnetGroupResponse' smart constructor.-data CreateClusterSubnetGroupResponse = CreateClusterSubnetGroupResponse'- { _ccsgrsClusterSubnetGroup :: !(Maybe ClusterSubnetGroup)- , _ccsgrsResponseStatus :: !Int- } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'CreateClusterSubnetGroupResponse' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'ccsgrsClusterSubnetGroup' - Undocumented member.------ * 'ccsgrsResponseStatus' - -- | The response status code.-createClusterSubnetGroupResponse- :: Int -- ^ 'ccsgrsResponseStatus'- -> CreateClusterSubnetGroupResponse-createClusterSubnetGroupResponse pResponseStatus_ =- CreateClusterSubnetGroupResponse'- { _ccsgrsClusterSubnetGroup = Nothing- , _ccsgrsResponseStatus = pResponseStatus_- }----- | Undocumented member.-ccsgrsClusterSubnetGroup :: Lens' CreateClusterSubnetGroupResponse (Maybe ClusterSubnetGroup)-ccsgrsClusterSubnetGroup = lens _ccsgrsClusterSubnetGroup (\ s a -> s{_ccsgrsClusterSubnetGroup = a})---- | -- | The response status code.-ccsgrsResponseStatus :: Lens' CreateClusterSubnetGroupResponse Int-ccsgrsResponseStatus = lens _ccsgrsResponseStatus (\ s a -> s{_ccsgrsResponseStatus = a})--instance NFData CreateClusterSubnetGroupResponse- where
− gen/Network/AWS/Redshift/CreateEventSubscription.hs
@@ -1,212 +0,0 @@-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric #-}-{-# LANGUAGE OverloadedStrings #-}-{-# LANGUAGE RecordWildCards #-}-{-# LANGUAGE TypeFamilies #-}--{-# OPTIONS_GHC -fno-warn-unused-imports #-}-{-# OPTIONS_GHC -fno-warn-unused-binds #-}-{-# OPTIONS_GHC -fno-warn-unused-matches #-}---- Derived from AWS service descriptions, licensed under Apache 2.0.---- |--- Module : Network.AWS.Redshift.CreateEventSubscription--- Copyright : (c) 2013-2018 Brendan Hay--- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>--- Stability : auto-generated--- Portability : non-portable (GHC extensions)------ Creates an Amazon Redshift event notification subscription. This action requires an ARN (Amazon Resource Name) of an Amazon SNS topic created by either the Amazon Redshift console, the Amazon SNS console, or the Amazon SNS API. To obtain an ARN with Amazon SNS, you must create a topic in Amazon SNS and subscribe to the topic. The ARN is displayed in the SNS console.--------- You can specify the source type, and lists of Amazon Redshift source IDs, event categories, and event severities. Notifications will be sent for all events you want that match those criteria. For example, you can specify source type = cluster, source ID = my-cluster-1 and mycluster2, event categories = Availability, Backup, and severity = ERROR. The subscription will only send notifications for those ERROR events in the Availability and Backup categories for the specified clusters.------ If you specify both the source type and source IDs, such as source type = cluster and source identifier = my-cluster-1, notifications will be sent for all the cluster events for my-cluster-1. If you specify a source type but do not specify a source identifier, you will receive notice of the events for the objects of that type in your AWS account. If you do not specify either the SourceType nor the SourceIdentifier, you will be notified of events generated from all Amazon Redshift sources belonging to your AWS account. You must specify a source type if you specify a source ID.----module Network.AWS.Redshift.CreateEventSubscription- (- -- * Creating a Request- createEventSubscription- , CreateEventSubscription- -- * Request Lenses- , cesEnabled- , cesSourceType- , cesSeverity- , cesEventCategories- , cesSourceIds- , cesTags- , cesSubscriptionName- , cesSNSTopicARN-- -- * Destructuring the Response- , createEventSubscriptionResponse- , CreateEventSubscriptionResponse- -- * Response Lenses- , cesrsEventSubscription- , cesrsResponseStatus- ) where--import Network.AWS.Lens-import Network.AWS.Prelude-import Network.AWS.Redshift.Types-import Network.AWS.Redshift.Types.Product-import Network.AWS.Request-import Network.AWS.Response---- |------------ /See:/ 'createEventSubscription' smart constructor.-data CreateEventSubscription = CreateEventSubscription'- { _cesEnabled :: !(Maybe Bool)- , _cesSourceType :: !(Maybe Text)- , _cesSeverity :: !(Maybe Text)- , _cesEventCategories :: !(Maybe [Text])- , _cesSourceIds :: !(Maybe [Text])- , _cesTags :: !(Maybe [Tag])- , _cesSubscriptionName :: !Text- , _cesSNSTopicARN :: !Text- } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'CreateEventSubscription' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'cesEnabled' - A Boolean value; set to @true@ to activate the subscription, set to @false@ to create the subscription but not active it.------ * 'cesSourceType' - The type of source that will be generating the events. For example, if you want to be notified of events generated by a cluster, you would set this parameter to cluster. If this value is not specified, events are returned for all Amazon Redshift objects in your AWS account. You must specify a source type in order to specify source IDs. Valid values: cluster, cluster-parameter-group, cluster-security-group, and cluster-snapshot.------ * 'cesSeverity' - Specifies the Amazon Redshift event severity to be published by the event notification subscription. Values: ERROR, INFO------ * 'cesEventCategories' - Specifies the Amazon Redshift event categories to be published by the event notification subscription. Values: Configuration, Management, Monitoring, Security------ * 'cesSourceIds' - A list of one or more identifiers of Amazon Redshift source objects. All of the objects must be of the same type as was specified in the source type parameter. The event subscription will return only events generated by the specified objects. If not specified, then events are returned for all objects within the source type specified. Example: my-cluster-1, my-cluster-2 Example: my-snapshot-20131010------ * 'cesTags' - A list of tag instances.------ * 'cesSubscriptionName' - The name of the event subscription to be created. Constraints: * Cannot be null, empty, or blank. * Must contain from 1 to 255 alphanumeric characters or hyphens. * First character must be a letter. * Cannot end with a hyphen or contain two consecutive hyphens.------ * 'cesSNSTopicARN' - The Amazon Resource Name (ARN) of the Amazon SNS topic used to transmit the event notifications. The ARN is created by Amazon SNS when you create a topic and subscribe to it.-createEventSubscription- :: Text -- ^ 'cesSubscriptionName'- -> Text -- ^ 'cesSNSTopicARN'- -> CreateEventSubscription-createEventSubscription pSubscriptionName_ pSNSTopicARN_ =- CreateEventSubscription'- { _cesEnabled = Nothing- , _cesSourceType = Nothing- , _cesSeverity = Nothing- , _cesEventCategories = Nothing- , _cesSourceIds = Nothing- , _cesTags = Nothing- , _cesSubscriptionName = pSubscriptionName_- , _cesSNSTopicARN = pSNSTopicARN_- }----- | A Boolean value; set to @true@ to activate the subscription, set to @false@ to create the subscription but not active it.-cesEnabled :: Lens' CreateEventSubscription (Maybe Bool)-cesEnabled = lens _cesEnabled (\ s a -> s{_cesEnabled = a})---- | The type of source that will be generating the events. For example, if you want to be notified of events generated by a cluster, you would set this parameter to cluster. If this value is not specified, events are returned for all Amazon Redshift objects in your AWS account. You must specify a source type in order to specify source IDs. Valid values: cluster, cluster-parameter-group, cluster-security-group, and cluster-snapshot.-cesSourceType :: Lens' CreateEventSubscription (Maybe Text)-cesSourceType = lens _cesSourceType (\ s a -> s{_cesSourceType = a})---- | Specifies the Amazon Redshift event severity to be published by the event notification subscription. Values: ERROR, INFO-cesSeverity :: Lens' CreateEventSubscription (Maybe Text)-cesSeverity = lens _cesSeverity (\ s a -> s{_cesSeverity = a})---- | Specifies the Amazon Redshift event categories to be published by the event notification subscription. Values: Configuration, Management, Monitoring, Security-cesEventCategories :: Lens' CreateEventSubscription [Text]-cesEventCategories = lens _cesEventCategories (\ s a -> s{_cesEventCategories = a}) . _Default . _Coerce---- | A list of one or more identifiers of Amazon Redshift source objects. All of the objects must be of the same type as was specified in the source type parameter. The event subscription will return only events generated by the specified objects. If not specified, then events are returned for all objects within the source type specified. Example: my-cluster-1, my-cluster-2 Example: my-snapshot-20131010-cesSourceIds :: Lens' CreateEventSubscription [Text]-cesSourceIds = lens _cesSourceIds (\ s a -> s{_cesSourceIds = a}) . _Default . _Coerce---- | A list of tag instances.-cesTags :: Lens' CreateEventSubscription [Tag]-cesTags = lens _cesTags (\ s a -> s{_cesTags = a}) . _Default . _Coerce---- | The name of the event subscription to be created. Constraints: * Cannot be null, empty, or blank. * Must contain from 1 to 255 alphanumeric characters or hyphens. * First character must be a letter. * Cannot end with a hyphen or contain two consecutive hyphens.-cesSubscriptionName :: Lens' CreateEventSubscription Text-cesSubscriptionName = lens _cesSubscriptionName (\ s a -> s{_cesSubscriptionName = a})---- | The Amazon Resource Name (ARN) of the Amazon SNS topic used to transmit the event notifications. The ARN is created by Amazon SNS when you create a topic and subscribe to it.-cesSNSTopicARN :: Lens' CreateEventSubscription Text-cesSNSTopicARN = lens _cesSNSTopicARN (\ s a -> s{_cesSNSTopicARN = a})--instance AWSRequest CreateEventSubscription where- type Rs CreateEventSubscription =- CreateEventSubscriptionResponse- request = postQuery redshift- response- = receiveXMLWrapper "CreateEventSubscriptionResult"- (\ s h x ->- CreateEventSubscriptionResponse' <$>- (x .@? "EventSubscription") <*> (pure (fromEnum s)))--instance Hashable CreateEventSubscription where--instance NFData CreateEventSubscription where--instance ToHeaders CreateEventSubscription where- toHeaders = const mempty--instance ToPath CreateEventSubscription where- toPath = const "/"--instance ToQuery CreateEventSubscription where- toQuery CreateEventSubscription'{..}- = mconcat- ["Action" =:- ("CreateEventSubscription" :: ByteString),- "Version" =: ("2012-12-01" :: ByteString),- "Enabled" =: _cesEnabled,- "SourceType" =: _cesSourceType,- "Severity" =: _cesSeverity,- "EventCategories" =:- toQuery- (toQueryList "EventCategory" <$>- _cesEventCategories),- "SourceIds" =:- toQuery (toQueryList "SourceId" <$> _cesSourceIds),- "Tags" =: toQuery (toQueryList "Tag" <$> _cesTags),- "SubscriptionName" =: _cesSubscriptionName,- "SnsTopicArn" =: _cesSNSTopicARN]---- | /See:/ 'createEventSubscriptionResponse' smart constructor.-data CreateEventSubscriptionResponse = CreateEventSubscriptionResponse'- { _cesrsEventSubscription :: !(Maybe EventSubscription)- , _cesrsResponseStatus :: !Int- } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'CreateEventSubscriptionResponse' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'cesrsEventSubscription' - Undocumented member.------ * 'cesrsResponseStatus' - -- | The response status code.-createEventSubscriptionResponse- :: Int -- ^ 'cesrsResponseStatus'- -> CreateEventSubscriptionResponse-createEventSubscriptionResponse pResponseStatus_ =- CreateEventSubscriptionResponse'- {_cesrsEventSubscription = Nothing, _cesrsResponseStatus = pResponseStatus_}----- | Undocumented member.-cesrsEventSubscription :: Lens' CreateEventSubscriptionResponse (Maybe EventSubscription)-cesrsEventSubscription = lens _cesrsEventSubscription (\ s a -> s{_cesrsEventSubscription = a})---- | -- | The response status code.-cesrsResponseStatus :: Lens' CreateEventSubscriptionResponse Int-cesrsResponseStatus = lens _cesrsResponseStatus (\ s a -> s{_cesrsResponseStatus = a})--instance NFData CreateEventSubscriptionResponse where
− gen/Network/AWS/Redshift/CreateHSMClientCertificate.hs
@@ -1,151 +0,0 @@-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric #-}-{-# LANGUAGE OverloadedStrings #-}-{-# LANGUAGE RecordWildCards #-}-{-# LANGUAGE TypeFamilies #-}--{-# OPTIONS_GHC -fno-warn-unused-imports #-}-{-# OPTIONS_GHC -fno-warn-unused-binds #-}-{-# OPTIONS_GHC -fno-warn-unused-matches #-}---- Derived from AWS service descriptions, licensed under Apache 2.0.---- |--- Module : Network.AWS.Redshift.CreateHSMClientCertificate--- Copyright : (c) 2013-2018 Brendan Hay--- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>--- Stability : auto-generated--- Portability : non-portable (GHC extensions)------ Creates an HSM client certificate that an Amazon Redshift cluster will use to connect to the client's HSM in order to store and retrieve the keys used to encrypt the cluster databases.--------- The command returns a public key, which you must store in the HSM. In addition to creating the HSM certificate, you must create an Amazon Redshift HSM configuration that provides a cluster the information needed to store and use encryption keys in the HSM. For more information, go to <http://docs.aws.amazon.com/redshift/latest/mgmt/working-with-HSM.html Hardware Security Modules> in the Amazon Redshift Cluster Management Guide.----module Network.AWS.Redshift.CreateHSMClientCertificate- (- -- * Creating a Request- createHSMClientCertificate- , CreateHSMClientCertificate- -- * Request Lenses- , chccTags- , chccHSMClientCertificateIdentifier-- -- * Destructuring the Response- , createHSMClientCertificateResponse- , CreateHSMClientCertificateResponse- -- * Response Lenses- , chccrsHSMClientCertificate- , chccrsResponseStatus- ) where--import Network.AWS.Lens-import Network.AWS.Prelude-import Network.AWS.Redshift.Types-import Network.AWS.Redshift.Types.Product-import Network.AWS.Request-import Network.AWS.Response---- |------------ /See:/ 'createHSMClientCertificate' smart constructor.-data CreateHSMClientCertificate = CreateHSMClientCertificate'- { _chccTags :: !(Maybe [Tag])- , _chccHSMClientCertificateIdentifier :: !Text- } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'CreateHSMClientCertificate' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'chccTags' - A list of tag instances.------ * 'chccHSMClientCertificateIdentifier' - The identifier to be assigned to the new HSM client certificate that the cluster will use to connect to the HSM to use the database encryption keys.-createHSMClientCertificate- :: Text -- ^ 'chccHSMClientCertificateIdentifier'- -> CreateHSMClientCertificate-createHSMClientCertificate pHSMClientCertificateIdentifier_ =- CreateHSMClientCertificate'- { _chccTags = Nothing- , _chccHSMClientCertificateIdentifier = pHSMClientCertificateIdentifier_- }----- | A list of tag instances.-chccTags :: Lens' CreateHSMClientCertificate [Tag]-chccTags = lens _chccTags (\ s a -> s{_chccTags = a}) . _Default . _Coerce---- | The identifier to be assigned to the new HSM client certificate that the cluster will use to connect to the HSM to use the database encryption keys.-chccHSMClientCertificateIdentifier :: Lens' CreateHSMClientCertificate Text-chccHSMClientCertificateIdentifier = lens _chccHSMClientCertificateIdentifier (\ s a -> s{_chccHSMClientCertificateIdentifier = a})--instance AWSRequest CreateHSMClientCertificate where- type Rs CreateHSMClientCertificate =- CreateHSMClientCertificateResponse- request = postQuery redshift- response- = receiveXMLWrapper- "CreateHsmClientCertificateResult"- (\ s h x ->- CreateHSMClientCertificateResponse' <$>- (x .@? "HsmClientCertificate") <*>- (pure (fromEnum s)))--instance Hashable CreateHSMClientCertificate where--instance NFData CreateHSMClientCertificate where--instance ToHeaders CreateHSMClientCertificate where- toHeaders = const mempty--instance ToPath CreateHSMClientCertificate where- toPath = const "/"--instance ToQuery CreateHSMClientCertificate where- toQuery CreateHSMClientCertificate'{..}- = mconcat- ["Action" =:- ("CreateHsmClientCertificate" :: ByteString),- "Version" =: ("2012-12-01" :: ByteString),- "Tags" =: toQuery (toQueryList "Tag" <$> _chccTags),- "HsmClientCertificateIdentifier" =:- _chccHSMClientCertificateIdentifier]---- | /See:/ 'createHSMClientCertificateResponse' smart constructor.-data CreateHSMClientCertificateResponse = CreateHSMClientCertificateResponse'- { _chccrsHSMClientCertificate :: !(Maybe HSMClientCertificate)- , _chccrsResponseStatus :: !Int- } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'CreateHSMClientCertificateResponse' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'chccrsHSMClientCertificate' - Undocumented member.------ * 'chccrsResponseStatus' - -- | The response status code.-createHSMClientCertificateResponse- :: Int -- ^ 'chccrsResponseStatus'- -> CreateHSMClientCertificateResponse-createHSMClientCertificateResponse pResponseStatus_ =- CreateHSMClientCertificateResponse'- { _chccrsHSMClientCertificate = Nothing- , _chccrsResponseStatus = pResponseStatus_- }----- | Undocumented member.-chccrsHSMClientCertificate :: Lens' CreateHSMClientCertificateResponse (Maybe HSMClientCertificate)-chccrsHSMClientCertificate = lens _chccrsHSMClientCertificate (\ s a -> s{_chccrsHSMClientCertificate = a})---- | -- | The response status code.-chccrsResponseStatus :: Lens' CreateHSMClientCertificateResponse Int-chccrsResponseStatus = lens _chccrsResponseStatus (\ s a -> s{_chccrsResponseStatus = a})--instance NFData CreateHSMClientCertificateResponse- where
− gen/Network/AWS/Redshift/CreateHSMConfiguration.hs
@@ -1,202 +0,0 @@-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric #-}-{-# LANGUAGE OverloadedStrings #-}-{-# LANGUAGE RecordWildCards #-}-{-# LANGUAGE TypeFamilies #-}--{-# OPTIONS_GHC -fno-warn-unused-imports #-}-{-# OPTIONS_GHC -fno-warn-unused-binds #-}-{-# OPTIONS_GHC -fno-warn-unused-matches #-}---- Derived from AWS service descriptions, licensed under Apache 2.0.---- |--- Module : Network.AWS.Redshift.CreateHSMConfiguration--- Copyright : (c) 2013-2018 Brendan Hay--- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>--- Stability : auto-generated--- Portability : non-portable (GHC extensions)------ Creates an HSM configuration that contains the information required by an Amazon Redshift cluster to store and use database encryption keys in a Hardware Security Module (HSM). After creating the HSM configuration, you can specify it as a parameter when creating a cluster. The cluster will then store its encryption keys in the HSM.--------- In addition to creating an HSM configuration, you must also create an HSM client certificate. For more information, go to <http://docs.aws.amazon.com/redshift/latest/mgmt/working-with-HSM.html Hardware Security Modules> in the Amazon Redshift Cluster Management Guide.----module Network.AWS.Redshift.CreateHSMConfiguration- (- -- * Creating a Request- createHSMConfiguration- , CreateHSMConfiguration- -- * Request Lenses- , chcTags- , chcHSMConfigurationIdentifier- , chcDescription- , chcHSMIPAddress- , chcHSMPartitionName- , chcHSMPartitionPassword- , chcHSMServerPublicCertificate-- -- * Destructuring the Response- , createHSMConfigurationResponse- , CreateHSMConfigurationResponse- -- * Response Lenses- , chcrsHSMConfiguration- , chcrsResponseStatus- ) where--import Network.AWS.Lens-import Network.AWS.Prelude-import Network.AWS.Redshift.Types-import Network.AWS.Redshift.Types.Product-import Network.AWS.Request-import Network.AWS.Response---- |------------ /See:/ 'createHSMConfiguration' smart constructor.-data CreateHSMConfiguration = CreateHSMConfiguration'- { _chcTags :: !(Maybe [Tag])- , _chcHSMConfigurationIdentifier :: !Text- , _chcDescription :: !Text- , _chcHSMIPAddress :: !Text- , _chcHSMPartitionName :: !Text- , _chcHSMPartitionPassword :: !Text- , _chcHSMServerPublicCertificate :: !Text- } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'CreateHSMConfiguration' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'chcTags' - A list of tag instances.------ * 'chcHSMConfigurationIdentifier' - The identifier to be assigned to the new Amazon Redshift HSM configuration.------ * 'chcDescription' - A text description of the HSM configuration to be created.------ * 'chcHSMIPAddress' - The IP address that the Amazon Redshift cluster must use to access the HSM.------ * 'chcHSMPartitionName' - The name of the partition in the HSM where the Amazon Redshift clusters will store their database encryption keys.------ * 'chcHSMPartitionPassword' - The password required to access the HSM partition.------ * 'chcHSMServerPublicCertificate' - The HSMs public certificate file. When using Cloud HSM, the file name is server.pem.-createHSMConfiguration- :: Text -- ^ 'chcHSMConfigurationIdentifier'- -> Text -- ^ 'chcDescription'- -> Text -- ^ 'chcHSMIPAddress'- -> Text -- ^ 'chcHSMPartitionName'- -> Text -- ^ 'chcHSMPartitionPassword'- -> Text -- ^ 'chcHSMServerPublicCertificate'- -> CreateHSMConfiguration-createHSMConfiguration pHSMConfigurationIdentifier_ pDescription_ pHSMIPAddress_ pHSMPartitionName_ pHSMPartitionPassword_ pHSMServerPublicCertificate_ =- CreateHSMConfiguration'- { _chcTags = Nothing- , _chcHSMConfigurationIdentifier = pHSMConfigurationIdentifier_- , _chcDescription = pDescription_- , _chcHSMIPAddress = pHSMIPAddress_- , _chcHSMPartitionName = pHSMPartitionName_- , _chcHSMPartitionPassword = pHSMPartitionPassword_- , _chcHSMServerPublicCertificate = pHSMServerPublicCertificate_- }----- | A list of tag instances.-chcTags :: Lens' CreateHSMConfiguration [Tag]-chcTags = lens _chcTags (\ s a -> s{_chcTags = a}) . _Default . _Coerce---- | The identifier to be assigned to the new Amazon Redshift HSM configuration.-chcHSMConfigurationIdentifier :: Lens' CreateHSMConfiguration Text-chcHSMConfigurationIdentifier = lens _chcHSMConfigurationIdentifier (\ s a -> s{_chcHSMConfigurationIdentifier = a})---- | A text description of the HSM configuration to be created.-chcDescription :: Lens' CreateHSMConfiguration Text-chcDescription = lens _chcDescription (\ s a -> s{_chcDescription = a})---- | The IP address that the Amazon Redshift cluster must use to access the HSM.-chcHSMIPAddress :: Lens' CreateHSMConfiguration Text-chcHSMIPAddress = lens _chcHSMIPAddress (\ s a -> s{_chcHSMIPAddress = a})---- | The name of the partition in the HSM where the Amazon Redshift clusters will store their database encryption keys.-chcHSMPartitionName :: Lens' CreateHSMConfiguration Text-chcHSMPartitionName = lens _chcHSMPartitionName (\ s a -> s{_chcHSMPartitionName = a})---- | The password required to access the HSM partition.-chcHSMPartitionPassword :: Lens' CreateHSMConfiguration Text-chcHSMPartitionPassword = lens _chcHSMPartitionPassword (\ s a -> s{_chcHSMPartitionPassword = a})---- | The HSMs public certificate file. When using Cloud HSM, the file name is server.pem.-chcHSMServerPublicCertificate :: Lens' CreateHSMConfiguration Text-chcHSMServerPublicCertificate = lens _chcHSMServerPublicCertificate (\ s a -> s{_chcHSMServerPublicCertificate = a})--instance AWSRequest CreateHSMConfiguration where- type Rs CreateHSMConfiguration =- CreateHSMConfigurationResponse- request = postQuery redshift- response- = receiveXMLWrapper "CreateHsmConfigurationResult"- (\ s h x ->- CreateHSMConfigurationResponse' <$>- (x .@? "HsmConfiguration") <*> (pure (fromEnum s)))--instance Hashable CreateHSMConfiguration where--instance NFData CreateHSMConfiguration where--instance ToHeaders CreateHSMConfiguration where- toHeaders = const mempty--instance ToPath CreateHSMConfiguration where- toPath = const "/"--instance ToQuery CreateHSMConfiguration where- toQuery CreateHSMConfiguration'{..}- = mconcat- ["Action" =:- ("CreateHsmConfiguration" :: ByteString),- "Version" =: ("2012-12-01" :: ByteString),- "Tags" =: toQuery (toQueryList "Tag" <$> _chcTags),- "HsmConfigurationIdentifier" =:- _chcHSMConfigurationIdentifier,- "Description" =: _chcDescription,- "HsmIpAddress" =: _chcHSMIPAddress,- "HsmPartitionName" =: _chcHSMPartitionName,- "HsmPartitionPassword" =: _chcHSMPartitionPassword,- "HsmServerPublicCertificate" =:- _chcHSMServerPublicCertificate]---- | /See:/ 'createHSMConfigurationResponse' smart constructor.-data CreateHSMConfigurationResponse = CreateHSMConfigurationResponse'- { _chcrsHSMConfiguration :: !(Maybe HSMConfiguration)- , _chcrsResponseStatus :: !Int- } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'CreateHSMConfigurationResponse' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'chcrsHSMConfiguration' - Undocumented member.------ * 'chcrsResponseStatus' - -- | The response status code.-createHSMConfigurationResponse- :: Int -- ^ 'chcrsResponseStatus'- -> CreateHSMConfigurationResponse-createHSMConfigurationResponse pResponseStatus_ =- CreateHSMConfigurationResponse'- {_chcrsHSMConfiguration = Nothing, _chcrsResponseStatus = pResponseStatus_}----- | Undocumented member.-chcrsHSMConfiguration :: Lens' CreateHSMConfigurationResponse (Maybe HSMConfiguration)-chcrsHSMConfiguration = lens _chcrsHSMConfiguration (\ s a -> s{_chcrsHSMConfiguration = a})---- | -- | The response status code.-chcrsResponseStatus :: Lens' CreateHSMConfigurationResponse Int-chcrsResponseStatus = lens _chcrsResponseStatus (\ s a -> s{_chcrsResponseStatus = a})--instance NFData CreateHSMConfigurationResponse where
− gen/Network/AWS/Redshift/CreateSnapshotCopyGrant.hs
@@ -1,158 +0,0 @@-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric #-}-{-# LANGUAGE OverloadedStrings #-}-{-# LANGUAGE RecordWildCards #-}-{-# LANGUAGE TypeFamilies #-}--{-# OPTIONS_GHC -fno-warn-unused-imports #-}-{-# OPTIONS_GHC -fno-warn-unused-binds #-}-{-# OPTIONS_GHC -fno-warn-unused-matches #-}---- Derived from AWS service descriptions, licensed under Apache 2.0.---- |--- Module : Network.AWS.Redshift.CreateSnapshotCopyGrant--- Copyright : (c) 2013-2018 Brendan Hay--- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>--- Stability : auto-generated--- Portability : non-portable (GHC extensions)------ Creates a snapshot copy grant that permits Amazon Redshift to use a customer master key (CMK) from AWS Key Management Service (AWS KMS) to encrypt copied snapshots in a destination region.--------- For more information about managing snapshot copy grants, go to <http://docs.aws.amazon.com/redshift/latest/mgmt/working-with-db-encryption.html Amazon Redshift Database Encryption> in the /Amazon Redshift Cluster Management Guide/ .----module Network.AWS.Redshift.CreateSnapshotCopyGrant- (- -- * Creating a Request- createSnapshotCopyGrant- , CreateSnapshotCopyGrant- -- * Request Lenses- , cscgKMSKeyId- , cscgTags- , cscgSnapshotCopyGrantName-- -- * Destructuring the Response- , createSnapshotCopyGrantResponse- , CreateSnapshotCopyGrantResponse- -- * Response Lenses- , cscgrsSnapshotCopyGrant- , cscgrsResponseStatus- ) where--import Network.AWS.Lens-import Network.AWS.Prelude-import Network.AWS.Redshift.Types-import Network.AWS.Redshift.Types.Product-import Network.AWS.Request-import Network.AWS.Response---- | The result of the @CreateSnapshotCopyGrant@ action.------------ /See:/ 'createSnapshotCopyGrant' smart constructor.-data CreateSnapshotCopyGrant = CreateSnapshotCopyGrant'- { _cscgKMSKeyId :: !(Maybe Text)- , _cscgTags :: !(Maybe [Tag])- , _cscgSnapshotCopyGrantName :: !Text- } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'CreateSnapshotCopyGrant' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'cscgKMSKeyId' - The unique identifier of the customer master key (CMK) to which to grant Amazon Redshift permission. If no key is specified, the default key is used.------ * 'cscgTags' - A list of tag instances.------ * 'cscgSnapshotCopyGrantName' - The name of the snapshot copy grant. This name must be unique in the region for the AWS account. Constraints: * Must contain from 1 to 63 alphanumeric characters or hyphens. * Alphabetic characters must be lowercase. * First character must be a letter. * Cannot end with a hyphen or contain two consecutive hyphens. * Must be unique for all clusters within an AWS account.-createSnapshotCopyGrant- :: Text -- ^ 'cscgSnapshotCopyGrantName'- -> CreateSnapshotCopyGrant-createSnapshotCopyGrant pSnapshotCopyGrantName_ =- CreateSnapshotCopyGrant'- { _cscgKMSKeyId = Nothing- , _cscgTags = Nothing- , _cscgSnapshotCopyGrantName = pSnapshotCopyGrantName_- }----- | The unique identifier of the customer master key (CMK) to which to grant Amazon Redshift permission. If no key is specified, the default key is used.-cscgKMSKeyId :: Lens' CreateSnapshotCopyGrant (Maybe Text)-cscgKMSKeyId = lens _cscgKMSKeyId (\ s a -> s{_cscgKMSKeyId = a})---- | A list of tag instances.-cscgTags :: Lens' CreateSnapshotCopyGrant [Tag]-cscgTags = lens _cscgTags (\ s a -> s{_cscgTags = a}) . _Default . _Coerce---- | The name of the snapshot copy grant. This name must be unique in the region for the AWS account. Constraints: * Must contain from 1 to 63 alphanumeric characters or hyphens. * Alphabetic characters must be lowercase. * First character must be a letter. * Cannot end with a hyphen or contain two consecutive hyphens. * Must be unique for all clusters within an AWS account.-cscgSnapshotCopyGrantName :: Lens' CreateSnapshotCopyGrant Text-cscgSnapshotCopyGrantName = lens _cscgSnapshotCopyGrantName (\ s a -> s{_cscgSnapshotCopyGrantName = a})--instance AWSRequest CreateSnapshotCopyGrant where- type Rs CreateSnapshotCopyGrant =- CreateSnapshotCopyGrantResponse- request = postQuery redshift- response- = receiveXMLWrapper "CreateSnapshotCopyGrantResult"- (\ s h x ->- CreateSnapshotCopyGrantResponse' <$>- (x .@? "SnapshotCopyGrant") <*> (pure (fromEnum s)))--instance Hashable CreateSnapshotCopyGrant where--instance NFData CreateSnapshotCopyGrant where--instance ToHeaders CreateSnapshotCopyGrant where- toHeaders = const mempty--instance ToPath CreateSnapshotCopyGrant where- toPath = const "/"--instance ToQuery CreateSnapshotCopyGrant where- toQuery CreateSnapshotCopyGrant'{..}- = mconcat- ["Action" =:- ("CreateSnapshotCopyGrant" :: ByteString),- "Version" =: ("2012-12-01" :: ByteString),- "KmsKeyId" =: _cscgKMSKeyId,- "Tags" =: toQuery (toQueryList "Tag" <$> _cscgTags),- "SnapshotCopyGrantName" =:- _cscgSnapshotCopyGrantName]---- | /See:/ 'createSnapshotCopyGrantResponse' smart constructor.-data CreateSnapshotCopyGrantResponse = CreateSnapshotCopyGrantResponse'- { _cscgrsSnapshotCopyGrant :: !(Maybe SnapshotCopyGrant)- , _cscgrsResponseStatus :: !Int- } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'CreateSnapshotCopyGrantResponse' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'cscgrsSnapshotCopyGrant' - Undocumented member.------ * 'cscgrsResponseStatus' - -- | The response status code.-createSnapshotCopyGrantResponse- :: Int -- ^ 'cscgrsResponseStatus'- -> CreateSnapshotCopyGrantResponse-createSnapshotCopyGrantResponse pResponseStatus_ =- CreateSnapshotCopyGrantResponse'- { _cscgrsSnapshotCopyGrant = Nothing- , _cscgrsResponseStatus = pResponseStatus_- }----- | Undocumented member.-cscgrsSnapshotCopyGrant :: Lens' CreateSnapshotCopyGrantResponse (Maybe SnapshotCopyGrant)-cscgrsSnapshotCopyGrant = lens _cscgrsSnapshotCopyGrant (\ s a -> s{_cscgrsSnapshotCopyGrant = a})---- | -- | The response status code.-cscgrsResponseStatus :: Lens' CreateSnapshotCopyGrantResponse Int-cscgrsResponseStatus = lens _cscgrsResponseStatus (\ s a -> s{_cscgrsResponseStatus = a})--instance NFData CreateSnapshotCopyGrantResponse where
− gen/Network/AWS/Redshift/CreateTags.hs
@@ -1,118 +0,0 @@-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric #-}-{-# LANGUAGE OverloadedStrings #-}-{-# LANGUAGE RecordWildCards #-}-{-# LANGUAGE TypeFamilies #-}--{-# OPTIONS_GHC -fno-warn-unused-imports #-}-{-# OPTIONS_GHC -fno-warn-unused-binds #-}-{-# OPTIONS_GHC -fno-warn-unused-matches #-}---- Derived from AWS service descriptions, licensed under Apache 2.0.---- |--- Module : Network.AWS.Redshift.CreateTags--- Copyright : (c) 2013-2018 Brendan Hay--- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>--- Stability : auto-generated--- Portability : non-portable (GHC extensions)------ Adds one or more tags to a specified resource.--------- A resource can have up to 10 tags. If you try to create more than 10 tags for a resource, you will receive an error and the attempt will fail.------ If you specify a key that already exists for the resource, the value for that key will be updated with the new value.----module Network.AWS.Redshift.CreateTags- (- -- * Creating a Request- createTags- , CreateTags- -- * Request Lenses- , ctResourceName- , ctTags-- -- * Destructuring the Response- , createTagsResponse- , CreateTagsResponse- ) where--import Network.AWS.Lens-import Network.AWS.Prelude-import Network.AWS.Redshift.Types-import Network.AWS.Redshift.Types.Product-import Network.AWS.Request-import Network.AWS.Response---- | Contains the output from the @CreateTags@ action.------------ /See:/ 'createTags' smart constructor.-data CreateTags = CreateTags'- { _ctResourceName :: !Text- , _ctTags :: ![Tag]- } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'CreateTags' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'ctResourceName' - The Amazon Resource Name (ARN) to which you want to add the tag or tags. For example, @arn:aws:redshift:us-east-1:123456789:cluster:t1@ .------ * 'ctTags' - One or more name/value pairs to add as tags to the specified resource. Each tag name is passed in with the parameter @Key@ and the corresponding value is passed in with the parameter @Value@ . The @Key@ and @Value@ parameters are separated by a comma (,). Separate multiple tags with a space. For example, @--tags "Key"="owner","Value"="admin" "Key"="environment","Value"="test" "Key"="version","Value"="1.0"@ .-createTags- :: Text -- ^ 'ctResourceName'- -> CreateTags-createTags pResourceName_ =- CreateTags' {_ctResourceName = pResourceName_, _ctTags = mempty}----- | The Amazon Resource Name (ARN) to which you want to add the tag or tags. For example, @arn:aws:redshift:us-east-1:123456789:cluster:t1@ .-ctResourceName :: Lens' CreateTags Text-ctResourceName = lens _ctResourceName (\ s a -> s{_ctResourceName = a})---- | One or more name/value pairs to add as tags to the specified resource. Each tag name is passed in with the parameter @Key@ and the corresponding value is passed in with the parameter @Value@ . The @Key@ and @Value@ parameters are separated by a comma (,). Separate multiple tags with a space. For example, @--tags "Key"="owner","Value"="admin" "Key"="environment","Value"="test" "Key"="version","Value"="1.0"@ .-ctTags :: Lens' CreateTags [Tag]-ctTags = lens _ctTags (\ s a -> s{_ctTags = a}) . _Coerce--instance AWSRequest CreateTags where- type Rs CreateTags = CreateTagsResponse- request = postQuery redshift- response = receiveNull CreateTagsResponse'--instance Hashable CreateTags where--instance NFData CreateTags where--instance ToHeaders CreateTags where- toHeaders = const mempty--instance ToPath CreateTags where- toPath = const "/"--instance ToQuery CreateTags where- toQuery CreateTags'{..}- = mconcat- ["Action" =: ("CreateTags" :: ByteString),- "Version" =: ("2012-12-01" :: ByteString),- "ResourceName" =: _ctResourceName,- "Tags" =: toQueryList "Tag" _ctTags]---- | /See:/ 'createTagsResponse' smart constructor.-data CreateTagsResponse =- CreateTagsResponse'- deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'CreateTagsResponse' with the minimum fields required to make a request.----createTagsResponse- :: CreateTagsResponse-createTagsResponse = CreateTagsResponse'---instance NFData CreateTagsResponse where
− gen/Network/AWS/Redshift/DeleteCluster.hs
@@ -1,157 +0,0 @@-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric #-}-{-# LANGUAGE OverloadedStrings #-}-{-# LANGUAGE RecordWildCards #-}-{-# LANGUAGE TypeFamilies #-}--{-# OPTIONS_GHC -fno-warn-unused-imports #-}-{-# OPTIONS_GHC -fno-warn-unused-binds #-}-{-# OPTIONS_GHC -fno-warn-unused-matches #-}---- Derived from AWS service descriptions, licensed under Apache 2.0.---- |--- Module : Network.AWS.Redshift.DeleteCluster--- Copyright : (c) 2013-2018 Brendan Hay--- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>--- Stability : auto-generated--- Portability : non-portable (GHC extensions)------ Deletes a previously provisioned cluster. A successful response from the web service indicates that the request was received correctly. Use 'DescribeClusters' to monitor the status of the deletion. The delete operation cannot be canceled or reverted once submitted. For more information about managing clusters, go to <http://docs.aws.amazon.com/redshift/latest/mgmt/working-with-clusters.html Amazon Redshift Clusters> in the /Amazon Redshift Cluster Management Guide/ .--------- If you want to shut down the cluster and retain it for future use, set /SkipFinalClusterSnapshot/ to @false@ and specify a name for /FinalClusterSnapshotIdentifier/ . You can later restore this snapshot to resume using the cluster. If a final cluster snapshot is requested, the status of the cluster will be "final-snapshot" while the snapshot is being taken, then it's "deleting" once Amazon Redshift begins deleting the cluster.------ For more information about managing clusters, go to <http://docs.aws.amazon.com/redshift/latest/mgmt/working-with-clusters.html Amazon Redshift Clusters> in the /Amazon Redshift Cluster Management Guide/ .----module Network.AWS.Redshift.DeleteCluster- (- -- * Creating a Request- deleteCluster- , DeleteCluster- -- * Request Lenses- , delSkipFinalClusterSnapshot- , delFinalClusterSnapshotIdentifier- , delClusterIdentifier-- -- * Destructuring the Response- , deleteClusterResponse- , DeleteClusterResponse- -- * Response Lenses- , drsCluster- , drsResponseStatus- ) where--import Network.AWS.Lens-import Network.AWS.Prelude-import Network.AWS.Redshift.Types-import Network.AWS.Redshift.Types.Product-import Network.AWS.Request-import Network.AWS.Response---- |------------ /See:/ 'deleteCluster' smart constructor.-data DeleteCluster = DeleteCluster'- { _delSkipFinalClusterSnapshot :: !(Maybe Bool)- , _delFinalClusterSnapshotIdentifier :: !(Maybe Text)- , _delClusterIdentifier :: !Text- } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'DeleteCluster' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'delSkipFinalClusterSnapshot' - Determines whether a final snapshot of the cluster is created before Amazon Redshift deletes the cluster. If @true@ , a final cluster snapshot is not created. If @false@ , a final cluster snapshot is created before the cluster is deleted. Default: @false@------ * 'delFinalClusterSnapshotIdentifier' - The identifier of the final snapshot that is to be created immediately before deleting the cluster. If this parameter is provided, /SkipFinalClusterSnapshot/ must be @false@ . Constraints: * Must be 1 to 255 alphanumeric characters. * First character must be a letter. * Cannot end with a hyphen or contain two consecutive hyphens.------ * 'delClusterIdentifier' - The identifier of the cluster to be deleted. Constraints: * Must contain lowercase characters. * Must contain from 1 to 63 alphanumeric characters or hyphens. * First character must be a letter. * Cannot end with a hyphen or contain two consecutive hyphens.-deleteCluster- :: Text -- ^ 'delClusterIdentifier'- -> DeleteCluster-deleteCluster pClusterIdentifier_ =- DeleteCluster'- { _delSkipFinalClusterSnapshot = Nothing- , _delFinalClusterSnapshotIdentifier = Nothing- , _delClusterIdentifier = pClusterIdentifier_- }----- | Determines whether a final snapshot of the cluster is created before Amazon Redshift deletes the cluster. If @true@ , a final cluster snapshot is not created. If @false@ , a final cluster snapshot is created before the cluster is deleted. Default: @false@-delSkipFinalClusterSnapshot :: Lens' DeleteCluster (Maybe Bool)-delSkipFinalClusterSnapshot = lens _delSkipFinalClusterSnapshot (\ s a -> s{_delSkipFinalClusterSnapshot = a})---- | The identifier of the final snapshot that is to be created immediately before deleting the cluster. If this parameter is provided, /SkipFinalClusterSnapshot/ must be @false@ . Constraints: * Must be 1 to 255 alphanumeric characters. * First character must be a letter. * Cannot end with a hyphen or contain two consecutive hyphens.-delFinalClusterSnapshotIdentifier :: Lens' DeleteCluster (Maybe Text)-delFinalClusterSnapshotIdentifier = lens _delFinalClusterSnapshotIdentifier (\ s a -> s{_delFinalClusterSnapshotIdentifier = a})---- | The identifier of the cluster to be deleted. Constraints: * Must contain lowercase characters. * Must contain from 1 to 63 alphanumeric characters or hyphens. * First character must be a letter. * Cannot end with a hyphen or contain two consecutive hyphens.-delClusterIdentifier :: Lens' DeleteCluster Text-delClusterIdentifier = lens _delClusterIdentifier (\ s a -> s{_delClusterIdentifier = a})--instance AWSRequest DeleteCluster where- type Rs DeleteCluster = DeleteClusterResponse- request = postQuery redshift- response- = receiveXMLWrapper "DeleteClusterResult"- (\ s h x ->- DeleteClusterResponse' <$>- (x .@? "Cluster") <*> (pure (fromEnum s)))--instance Hashable DeleteCluster where--instance NFData DeleteCluster where--instance ToHeaders DeleteCluster where- toHeaders = const mempty--instance ToPath DeleteCluster where- toPath = const "/"--instance ToQuery DeleteCluster where- toQuery DeleteCluster'{..}- = mconcat- ["Action" =: ("DeleteCluster" :: ByteString),- "Version" =: ("2012-12-01" :: ByteString),- "SkipFinalClusterSnapshot" =:- _delSkipFinalClusterSnapshot,- "FinalClusterSnapshotIdentifier" =:- _delFinalClusterSnapshotIdentifier,- "ClusterIdentifier" =: _delClusterIdentifier]---- | /See:/ 'deleteClusterResponse' smart constructor.-data DeleteClusterResponse = DeleteClusterResponse'- { _drsCluster :: !(Maybe Cluster)- , _drsResponseStatus :: !Int- } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'DeleteClusterResponse' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'drsCluster' - Undocumented member.------ * 'drsResponseStatus' - -- | The response status code.-deleteClusterResponse- :: Int -- ^ 'drsResponseStatus'- -> DeleteClusterResponse-deleteClusterResponse pResponseStatus_ =- DeleteClusterResponse'- {_drsCluster = Nothing, _drsResponseStatus = pResponseStatus_}----- | Undocumented member.-drsCluster :: Lens' DeleteClusterResponse (Maybe Cluster)-drsCluster = lens _drsCluster (\ s a -> s{_drsCluster = a})---- | -- | The response status code.-drsResponseStatus :: Lens' DeleteClusterResponse Int-drsResponseStatus = lens _drsResponseStatus (\ s a -> s{_drsResponseStatus = a})--instance NFData DeleteClusterResponse where
− gen/Network/AWS/Redshift/DeleteClusterParameterGroup.hs
@@ -1,109 +0,0 @@-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric #-}-{-# LANGUAGE OverloadedStrings #-}-{-# LANGUAGE RecordWildCards #-}-{-# LANGUAGE TypeFamilies #-}--{-# OPTIONS_GHC -fno-warn-unused-imports #-}-{-# OPTIONS_GHC -fno-warn-unused-binds #-}-{-# OPTIONS_GHC -fno-warn-unused-matches #-}---- Derived from AWS service descriptions, licensed under Apache 2.0.---- |--- Module : Network.AWS.Redshift.DeleteClusterParameterGroup--- Copyright : (c) 2013-2018 Brendan Hay--- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>--- Stability : auto-generated--- Portability : non-portable (GHC extensions)------ Deletes a specified Amazon Redshift parameter group.-------module Network.AWS.Redshift.DeleteClusterParameterGroup- (- -- * Creating a Request- deleteClusterParameterGroup- , DeleteClusterParameterGroup- -- * Request Lenses- , dParameterGroupName-- -- * Destructuring the Response- , deleteClusterParameterGroupResponse- , DeleteClusterParameterGroupResponse- ) where--import Network.AWS.Lens-import Network.AWS.Prelude-import Network.AWS.Redshift.Types-import Network.AWS.Redshift.Types.Product-import Network.AWS.Request-import Network.AWS.Response---- |------------ /See:/ 'deleteClusterParameterGroup' smart constructor.-newtype DeleteClusterParameterGroup = DeleteClusterParameterGroup'- { _dParameterGroupName :: Text- } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'DeleteClusterParameterGroup' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'dParameterGroupName' - The name of the parameter group to be deleted. Constraints: * Must be the name of an existing cluster parameter group. * Cannot delete a default cluster parameter group.-deleteClusterParameterGroup- :: Text -- ^ 'dParameterGroupName'- -> DeleteClusterParameterGroup-deleteClusterParameterGroup pParameterGroupName_ =- DeleteClusterParameterGroup' {_dParameterGroupName = pParameterGroupName_}----- | The name of the parameter group to be deleted. Constraints: * Must be the name of an existing cluster parameter group. * Cannot delete a default cluster parameter group.-dParameterGroupName :: Lens' DeleteClusterParameterGroup Text-dParameterGroupName = lens _dParameterGroupName (\ s a -> s{_dParameterGroupName = a})--instance AWSRequest DeleteClusterParameterGroup where- type Rs DeleteClusterParameterGroup =- DeleteClusterParameterGroupResponse- request = postQuery redshift- response- = receiveNull DeleteClusterParameterGroupResponse'--instance Hashable DeleteClusterParameterGroup where--instance NFData DeleteClusterParameterGroup where--instance ToHeaders DeleteClusterParameterGroup where- toHeaders = const mempty--instance ToPath DeleteClusterParameterGroup where- toPath = const "/"--instance ToQuery DeleteClusterParameterGroup where- toQuery DeleteClusterParameterGroup'{..}- = mconcat- ["Action" =:- ("DeleteClusterParameterGroup" :: ByteString),- "Version" =: ("2012-12-01" :: ByteString),- "ParameterGroupName" =: _dParameterGroupName]---- | /See:/ 'deleteClusterParameterGroupResponse' smart constructor.-data DeleteClusterParameterGroupResponse =- DeleteClusterParameterGroupResponse'- deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'DeleteClusterParameterGroupResponse' with the minimum fields required to make a request.----deleteClusterParameterGroupResponse- :: DeleteClusterParameterGroupResponse-deleteClusterParameterGroupResponse = DeleteClusterParameterGroupResponse'---instance NFData DeleteClusterParameterGroupResponse- where
− gen/Network/AWS/Redshift/DeleteClusterSecurityGroup.hs
@@ -1,113 +0,0 @@-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric #-}-{-# LANGUAGE OverloadedStrings #-}-{-# LANGUAGE RecordWildCards #-}-{-# LANGUAGE TypeFamilies #-}--{-# OPTIONS_GHC -fno-warn-unused-imports #-}-{-# OPTIONS_GHC -fno-warn-unused-binds #-}-{-# OPTIONS_GHC -fno-warn-unused-matches #-}---- Derived from AWS service descriptions, licensed under Apache 2.0.---- |--- Module : Network.AWS.Redshift.DeleteClusterSecurityGroup--- Copyright : (c) 2013-2018 Brendan Hay--- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>--- Stability : auto-generated--- Portability : non-portable (GHC extensions)------ Deletes an Amazon Redshift security group.--------- For information about managing security groups, go to <http://docs.aws.amazon.com/redshift/latest/mgmt/working-with-security-groups.html Amazon Redshift Cluster Security Groups> in the /Amazon Redshift Cluster Management Guide/ .----module Network.AWS.Redshift.DeleteClusterSecurityGroup- (- -- * Creating a Request- deleteClusterSecurityGroup- , DeleteClusterSecurityGroup- -- * Request Lenses- , dClusterSecurityGroupName-- -- * Destructuring the Response- , deleteClusterSecurityGroupResponse- , DeleteClusterSecurityGroupResponse- ) where--import Network.AWS.Lens-import Network.AWS.Prelude-import Network.AWS.Redshift.Types-import Network.AWS.Redshift.Types.Product-import Network.AWS.Request-import Network.AWS.Response---- |------------ /See:/ 'deleteClusterSecurityGroup' smart constructor.-newtype DeleteClusterSecurityGroup = DeleteClusterSecurityGroup'- { _dClusterSecurityGroupName :: Text- } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'DeleteClusterSecurityGroup' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'dClusterSecurityGroupName' - The name of the cluster security group to be deleted.-deleteClusterSecurityGroup- :: Text -- ^ 'dClusterSecurityGroupName'- -> DeleteClusterSecurityGroup-deleteClusterSecurityGroup pClusterSecurityGroupName_ =- DeleteClusterSecurityGroup'- {_dClusterSecurityGroupName = pClusterSecurityGroupName_}----- | The name of the cluster security group to be deleted.-dClusterSecurityGroupName :: Lens' DeleteClusterSecurityGroup Text-dClusterSecurityGroupName = lens _dClusterSecurityGroupName (\ s a -> s{_dClusterSecurityGroupName = a})--instance AWSRequest DeleteClusterSecurityGroup where- type Rs DeleteClusterSecurityGroup =- DeleteClusterSecurityGroupResponse- request = postQuery redshift- response- = receiveNull DeleteClusterSecurityGroupResponse'--instance Hashable DeleteClusterSecurityGroup where--instance NFData DeleteClusterSecurityGroup where--instance ToHeaders DeleteClusterSecurityGroup where- toHeaders = const mempty--instance ToPath DeleteClusterSecurityGroup where- toPath = const "/"--instance ToQuery DeleteClusterSecurityGroup where- toQuery DeleteClusterSecurityGroup'{..}- = mconcat- ["Action" =:- ("DeleteClusterSecurityGroup" :: ByteString),- "Version" =: ("2012-12-01" :: ByteString),- "ClusterSecurityGroupName" =:- _dClusterSecurityGroupName]---- | /See:/ 'deleteClusterSecurityGroupResponse' smart constructor.-data DeleteClusterSecurityGroupResponse =- DeleteClusterSecurityGroupResponse'- deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'DeleteClusterSecurityGroupResponse' with the minimum fields required to make a request.----deleteClusterSecurityGroupResponse- :: DeleteClusterSecurityGroupResponse-deleteClusterSecurityGroupResponse = DeleteClusterSecurityGroupResponse'---instance NFData DeleteClusterSecurityGroupResponse- where
− gen/Network/AWS/Redshift/DeleteClusterSnapshot.hs
@@ -1,145 +0,0 @@-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric #-}-{-# LANGUAGE OverloadedStrings #-}-{-# LANGUAGE RecordWildCards #-}-{-# LANGUAGE TypeFamilies #-}--{-# OPTIONS_GHC -fno-warn-unused-imports #-}-{-# OPTIONS_GHC -fno-warn-unused-binds #-}-{-# OPTIONS_GHC -fno-warn-unused-matches #-}---- Derived from AWS service descriptions, licensed under Apache 2.0.---- |--- Module : Network.AWS.Redshift.DeleteClusterSnapshot--- Copyright : (c) 2013-2018 Brendan Hay--- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>--- Stability : auto-generated--- Portability : non-portable (GHC extensions)------ Deletes the specified manual snapshot. The snapshot must be in the @available@ state, with no other users authorized to access the snapshot.--------- Unlike automated snapshots, manual snapshots are retained even after you delete your cluster. Amazon Redshift does not delete your manual snapshots. You must delete manual snapshot explicitly to avoid getting charged. If other accounts are authorized to access the snapshot, you must revoke all of the authorizations before you can delete the snapshot.----module Network.AWS.Redshift.DeleteClusterSnapshot- (- -- * Creating a Request- deleteClusterSnapshot- , DeleteClusterSnapshot- -- * Request Lenses- , dcsSnapshotClusterIdentifier- , dcsSnapshotIdentifier-- -- * Destructuring the Response- , deleteClusterSnapshotResponse- , DeleteClusterSnapshotResponse- -- * Response Lenses- , dcsrsSnapshot- , dcsrsResponseStatus- ) where--import Network.AWS.Lens-import Network.AWS.Prelude-import Network.AWS.Redshift.Types-import Network.AWS.Redshift.Types.Product-import Network.AWS.Request-import Network.AWS.Response---- |------------ /See:/ 'deleteClusterSnapshot' smart constructor.-data DeleteClusterSnapshot = DeleteClusterSnapshot'- { _dcsSnapshotClusterIdentifier :: !(Maybe Text)- , _dcsSnapshotIdentifier :: !Text- } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'DeleteClusterSnapshot' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'dcsSnapshotClusterIdentifier' - The unique identifier of the cluster the snapshot was created from. This parameter is required if your IAM user has a policy containing a snapshot resource element that specifies anything other than * for the cluster name. Constraints: Must be the name of valid cluster.------ * 'dcsSnapshotIdentifier' - The unique identifier of the manual snapshot to be deleted. Constraints: Must be the name of an existing snapshot that is in the @available@ state.-deleteClusterSnapshot- :: Text -- ^ 'dcsSnapshotIdentifier'- -> DeleteClusterSnapshot-deleteClusterSnapshot pSnapshotIdentifier_ =- DeleteClusterSnapshot'- { _dcsSnapshotClusterIdentifier = Nothing- , _dcsSnapshotIdentifier = pSnapshotIdentifier_- }----- | The unique identifier of the cluster the snapshot was created from. This parameter is required if your IAM user has a policy containing a snapshot resource element that specifies anything other than * for the cluster name. Constraints: Must be the name of valid cluster.-dcsSnapshotClusterIdentifier :: Lens' DeleteClusterSnapshot (Maybe Text)-dcsSnapshotClusterIdentifier = lens _dcsSnapshotClusterIdentifier (\ s a -> s{_dcsSnapshotClusterIdentifier = a})---- | The unique identifier of the manual snapshot to be deleted. Constraints: Must be the name of an existing snapshot that is in the @available@ state.-dcsSnapshotIdentifier :: Lens' DeleteClusterSnapshot Text-dcsSnapshotIdentifier = lens _dcsSnapshotIdentifier (\ s a -> s{_dcsSnapshotIdentifier = a})--instance AWSRequest DeleteClusterSnapshot where- type Rs DeleteClusterSnapshot =- DeleteClusterSnapshotResponse- request = postQuery redshift- response- = receiveXMLWrapper "DeleteClusterSnapshotResult"- (\ s h x ->- DeleteClusterSnapshotResponse' <$>- (x .@? "Snapshot") <*> (pure (fromEnum s)))--instance Hashable DeleteClusterSnapshot where--instance NFData DeleteClusterSnapshot where--instance ToHeaders DeleteClusterSnapshot where- toHeaders = const mempty--instance ToPath DeleteClusterSnapshot where- toPath = const "/"--instance ToQuery DeleteClusterSnapshot where- toQuery DeleteClusterSnapshot'{..}- = mconcat- ["Action" =: ("DeleteClusterSnapshot" :: ByteString),- "Version" =: ("2012-12-01" :: ByteString),- "SnapshotClusterIdentifier" =:- _dcsSnapshotClusterIdentifier,- "SnapshotIdentifier" =: _dcsSnapshotIdentifier]---- | /See:/ 'deleteClusterSnapshotResponse' smart constructor.-data DeleteClusterSnapshotResponse = DeleteClusterSnapshotResponse'- { _dcsrsSnapshot :: !(Maybe Snapshot)- , _dcsrsResponseStatus :: !Int- } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'DeleteClusterSnapshotResponse' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'dcsrsSnapshot' - Undocumented member.------ * 'dcsrsResponseStatus' - -- | The response status code.-deleteClusterSnapshotResponse- :: Int -- ^ 'dcsrsResponseStatus'- -> DeleteClusterSnapshotResponse-deleteClusterSnapshotResponse pResponseStatus_ =- DeleteClusterSnapshotResponse'- {_dcsrsSnapshot = Nothing, _dcsrsResponseStatus = pResponseStatus_}----- | Undocumented member.-dcsrsSnapshot :: Lens' DeleteClusterSnapshotResponse (Maybe Snapshot)-dcsrsSnapshot = lens _dcsrsSnapshot (\ s a -> s{_dcsrsSnapshot = a})---- | -- | The response status code.-dcsrsResponseStatus :: Lens' DeleteClusterSnapshotResponse Int-dcsrsResponseStatus = lens _dcsrsResponseStatus (\ s a -> s{_dcsrsResponseStatus = a})--instance NFData DeleteClusterSnapshotResponse where
− gen/Network/AWS/Redshift/DeleteClusterSubnetGroup.hs
@@ -1,111 +0,0 @@-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric #-}-{-# LANGUAGE OverloadedStrings #-}-{-# LANGUAGE RecordWildCards #-}-{-# LANGUAGE TypeFamilies #-}--{-# OPTIONS_GHC -fno-warn-unused-imports #-}-{-# OPTIONS_GHC -fno-warn-unused-binds #-}-{-# OPTIONS_GHC -fno-warn-unused-matches #-}---- Derived from AWS service descriptions, licensed under Apache 2.0.---- |--- Module : Network.AWS.Redshift.DeleteClusterSubnetGroup--- Copyright : (c) 2013-2018 Brendan Hay--- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>--- Stability : auto-generated--- Portability : non-portable (GHC extensions)------ Deletes the specified cluster subnet group.-------module Network.AWS.Redshift.DeleteClusterSubnetGroup- (- -- * Creating a Request- deleteClusterSubnetGroup- , DeleteClusterSubnetGroup- -- * Request Lenses- , dcsgClusterSubnetGroupName-- -- * Destructuring the Response- , deleteClusterSubnetGroupResponse- , DeleteClusterSubnetGroupResponse- ) where--import Network.AWS.Lens-import Network.AWS.Prelude-import Network.AWS.Redshift.Types-import Network.AWS.Redshift.Types.Product-import Network.AWS.Request-import Network.AWS.Response---- |------------ /See:/ 'deleteClusterSubnetGroup' smart constructor.-newtype DeleteClusterSubnetGroup = DeleteClusterSubnetGroup'- { _dcsgClusterSubnetGroupName :: Text- } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'DeleteClusterSubnetGroup' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'dcsgClusterSubnetGroupName' - The name of the cluster subnet group name to be deleted.-deleteClusterSubnetGroup- :: Text -- ^ 'dcsgClusterSubnetGroupName'- -> DeleteClusterSubnetGroup-deleteClusterSubnetGroup pClusterSubnetGroupName_ =- DeleteClusterSubnetGroup'- {_dcsgClusterSubnetGroupName = pClusterSubnetGroupName_}----- | The name of the cluster subnet group name to be deleted.-dcsgClusterSubnetGroupName :: Lens' DeleteClusterSubnetGroup Text-dcsgClusterSubnetGroupName = lens _dcsgClusterSubnetGroupName (\ s a -> s{_dcsgClusterSubnetGroupName = a})--instance AWSRequest DeleteClusterSubnetGroup where- type Rs DeleteClusterSubnetGroup =- DeleteClusterSubnetGroupResponse- request = postQuery redshift- response- = receiveNull DeleteClusterSubnetGroupResponse'--instance Hashable DeleteClusterSubnetGroup where--instance NFData DeleteClusterSubnetGroup where--instance ToHeaders DeleteClusterSubnetGroup where- toHeaders = const mempty--instance ToPath DeleteClusterSubnetGroup where- toPath = const "/"--instance ToQuery DeleteClusterSubnetGroup where- toQuery DeleteClusterSubnetGroup'{..}- = mconcat- ["Action" =:- ("DeleteClusterSubnetGroup" :: ByteString),- "Version" =: ("2012-12-01" :: ByteString),- "ClusterSubnetGroupName" =:- _dcsgClusterSubnetGroupName]---- | /See:/ 'deleteClusterSubnetGroupResponse' smart constructor.-data DeleteClusterSubnetGroupResponse =- DeleteClusterSubnetGroupResponse'- deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'DeleteClusterSubnetGroupResponse' with the minimum fields required to make a request.----deleteClusterSubnetGroupResponse- :: DeleteClusterSubnetGroupResponse-deleteClusterSubnetGroupResponse = DeleteClusterSubnetGroupResponse'---instance NFData DeleteClusterSubnetGroupResponse- where
− gen/Network/AWS/Redshift/DeleteEventSubscription.hs
@@ -1,108 +0,0 @@-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric #-}-{-# LANGUAGE OverloadedStrings #-}-{-# LANGUAGE RecordWildCards #-}-{-# LANGUAGE TypeFamilies #-}--{-# OPTIONS_GHC -fno-warn-unused-imports #-}-{-# OPTIONS_GHC -fno-warn-unused-binds #-}-{-# OPTIONS_GHC -fno-warn-unused-matches #-}---- Derived from AWS service descriptions, licensed under Apache 2.0.---- |--- Module : Network.AWS.Redshift.DeleteEventSubscription--- Copyright : (c) 2013-2018 Brendan Hay--- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>--- Stability : auto-generated--- Portability : non-portable (GHC extensions)------ Deletes an Amazon Redshift event notification subscription.-------module Network.AWS.Redshift.DeleteEventSubscription- (- -- * Creating a Request- deleteEventSubscription- , DeleteEventSubscription- -- * Request Lenses- , desSubscriptionName-- -- * Destructuring the Response- , deleteEventSubscriptionResponse- , DeleteEventSubscriptionResponse- ) where--import Network.AWS.Lens-import Network.AWS.Prelude-import Network.AWS.Redshift.Types-import Network.AWS.Redshift.Types.Product-import Network.AWS.Request-import Network.AWS.Response---- |------------ /See:/ 'deleteEventSubscription' smart constructor.-newtype DeleteEventSubscription = DeleteEventSubscription'- { _desSubscriptionName :: Text- } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'DeleteEventSubscription' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'desSubscriptionName' - The name of the Amazon Redshift event notification subscription to be deleted.-deleteEventSubscription- :: Text -- ^ 'desSubscriptionName'- -> DeleteEventSubscription-deleteEventSubscription pSubscriptionName_ =- DeleteEventSubscription' {_desSubscriptionName = pSubscriptionName_}----- | The name of the Amazon Redshift event notification subscription to be deleted.-desSubscriptionName :: Lens' DeleteEventSubscription Text-desSubscriptionName = lens _desSubscriptionName (\ s a -> s{_desSubscriptionName = a})--instance AWSRequest DeleteEventSubscription where- type Rs DeleteEventSubscription =- DeleteEventSubscriptionResponse- request = postQuery redshift- response- = receiveNull DeleteEventSubscriptionResponse'--instance Hashable DeleteEventSubscription where--instance NFData DeleteEventSubscription where--instance ToHeaders DeleteEventSubscription where- toHeaders = const mempty--instance ToPath DeleteEventSubscription where- toPath = const "/"--instance ToQuery DeleteEventSubscription where- toQuery DeleteEventSubscription'{..}- = mconcat- ["Action" =:- ("DeleteEventSubscription" :: ByteString),- "Version" =: ("2012-12-01" :: ByteString),- "SubscriptionName" =: _desSubscriptionName]---- | /See:/ 'deleteEventSubscriptionResponse' smart constructor.-data DeleteEventSubscriptionResponse =- DeleteEventSubscriptionResponse'- deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'DeleteEventSubscriptionResponse' with the minimum fields required to make a request.----deleteEventSubscriptionResponse- :: DeleteEventSubscriptionResponse-deleteEventSubscriptionResponse = DeleteEventSubscriptionResponse'---instance NFData DeleteEventSubscriptionResponse where
− gen/Network/AWS/Redshift/DeleteHSMClientCertificate.hs
@@ -1,111 +0,0 @@-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric #-}-{-# LANGUAGE OverloadedStrings #-}-{-# LANGUAGE RecordWildCards #-}-{-# LANGUAGE TypeFamilies #-}--{-# OPTIONS_GHC -fno-warn-unused-imports #-}-{-# OPTIONS_GHC -fno-warn-unused-binds #-}-{-# OPTIONS_GHC -fno-warn-unused-matches #-}---- Derived from AWS service descriptions, licensed under Apache 2.0.---- |--- Module : Network.AWS.Redshift.DeleteHSMClientCertificate--- Copyright : (c) 2013-2018 Brendan Hay--- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>--- Stability : auto-generated--- Portability : non-portable (GHC extensions)------ Deletes the specified HSM client certificate.-------module Network.AWS.Redshift.DeleteHSMClientCertificate- (- -- * Creating a Request- deleteHSMClientCertificate- , DeleteHSMClientCertificate- -- * Request Lenses- , dhsmccHSMClientCertificateIdentifier-- -- * Destructuring the Response- , deleteHSMClientCertificateResponse- , DeleteHSMClientCertificateResponse- ) where--import Network.AWS.Lens-import Network.AWS.Prelude-import Network.AWS.Redshift.Types-import Network.AWS.Redshift.Types.Product-import Network.AWS.Request-import Network.AWS.Response---- |------------ /See:/ 'deleteHSMClientCertificate' smart constructor.-newtype DeleteHSMClientCertificate = DeleteHSMClientCertificate'- { _dhsmccHSMClientCertificateIdentifier :: Text- } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'DeleteHSMClientCertificate' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'dhsmccHSMClientCertificateIdentifier' - The identifier of the HSM client certificate to be deleted.-deleteHSMClientCertificate- :: Text -- ^ 'dhsmccHSMClientCertificateIdentifier'- -> DeleteHSMClientCertificate-deleteHSMClientCertificate pHSMClientCertificateIdentifier_ =- DeleteHSMClientCertificate'- {_dhsmccHSMClientCertificateIdentifier = pHSMClientCertificateIdentifier_}----- | The identifier of the HSM client certificate to be deleted.-dhsmccHSMClientCertificateIdentifier :: Lens' DeleteHSMClientCertificate Text-dhsmccHSMClientCertificateIdentifier = lens _dhsmccHSMClientCertificateIdentifier (\ s a -> s{_dhsmccHSMClientCertificateIdentifier = a})--instance AWSRequest DeleteHSMClientCertificate where- type Rs DeleteHSMClientCertificate =- DeleteHSMClientCertificateResponse- request = postQuery redshift- response- = receiveNull DeleteHSMClientCertificateResponse'--instance Hashable DeleteHSMClientCertificate where--instance NFData DeleteHSMClientCertificate where--instance ToHeaders DeleteHSMClientCertificate where- toHeaders = const mempty--instance ToPath DeleteHSMClientCertificate where- toPath = const "/"--instance ToQuery DeleteHSMClientCertificate where- toQuery DeleteHSMClientCertificate'{..}- = mconcat- ["Action" =:- ("DeleteHsmClientCertificate" :: ByteString),- "Version" =: ("2012-12-01" :: ByteString),- "HsmClientCertificateIdentifier" =:- _dhsmccHSMClientCertificateIdentifier]---- | /See:/ 'deleteHSMClientCertificateResponse' smart constructor.-data DeleteHSMClientCertificateResponse =- DeleteHSMClientCertificateResponse'- deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'DeleteHSMClientCertificateResponse' with the minimum fields required to make a request.----deleteHSMClientCertificateResponse- :: DeleteHSMClientCertificateResponse-deleteHSMClientCertificateResponse = DeleteHSMClientCertificateResponse'---instance NFData DeleteHSMClientCertificateResponse- where
− gen/Network/AWS/Redshift/DeleteHSMConfiguration.hs
@@ -1,110 +0,0 @@-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric #-}-{-# LANGUAGE OverloadedStrings #-}-{-# LANGUAGE RecordWildCards #-}-{-# LANGUAGE TypeFamilies #-}--{-# OPTIONS_GHC -fno-warn-unused-imports #-}-{-# OPTIONS_GHC -fno-warn-unused-binds #-}-{-# OPTIONS_GHC -fno-warn-unused-matches #-}---- Derived from AWS service descriptions, licensed under Apache 2.0.---- |--- Module : Network.AWS.Redshift.DeleteHSMConfiguration--- Copyright : (c) 2013-2018 Brendan Hay--- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>--- Stability : auto-generated--- Portability : non-portable (GHC extensions)------ Deletes the specified Amazon Redshift HSM configuration.-------module Network.AWS.Redshift.DeleteHSMConfiguration- (- -- * Creating a Request- deleteHSMConfiguration- , DeleteHSMConfiguration- -- * Request Lenses- , dhcHSMConfigurationIdentifier-- -- * Destructuring the Response- , deleteHSMConfigurationResponse- , DeleteHSMConfigurationResponse- ) where--import Network.AWS.Lens-import Network.AWS.Prelude-import Network.AWS.Redshift.Types-import Network.AWS.Redshift.Types.Product-import Network.AWS.Request-import Network.AWS.Response---- |------------ /See:/ 'deleteHSMConfiguration' smart constructor.-newtype DeleteHSMConfiguration = DeleteHSMConfiguration'- { _dhcHSMConfigurationIdentifier :: Text- } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'DeleteHSMConfiguration' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'dhcHSMConfigurationIdentifier' - The identifier of the Amazon Redshift HSM configuration to be deleted.-deleteHSMConfiguration- :: Text -- ^ 'dhcHSMConfigurationIdentifier'- -> DeleteHSMConfiguration-deleteHSMConfiguration pHSMConfigurationIdentifier_ =- DeleteHSMConfiguration'- {_dhcHSMConfigurationIdentifier = pHSMConfigurationIdentifier_}----- | The identifier of the Amazon Redshift HSM configuration to be deleted.-dhcHSMConfigurationIdentifier :: Lens' DeleteHSMConfiguration Text-dhcHSMConfigurationIdentifier = lens _dhcHSMConfigurationIdentifier (\ s a -> s{_dhcHSMConfigurationIdentifier = a})--instance AWSRequest DeleteHSMConfiguration where- type Rs DeleteHSMConfiguration =- DeleteHSMConfigurationResponse- request = postQuery redshift- response- = receiveNull DeleteHSMConfigurationResponse'--instance Hashable DeleteHSMConfiguration where--instance NFData DeleteHSMConfiguration where--instance ToHeaders DeleteHSMConfiguration where- toHeaders = const mempty--instance ToPath DeleteHSMConfiguration where- toPath = const "/"--instance ToQuery DeleteHSMConfiguration where- toQuery DeleteHSMConfiguration'{..}- = mconcat- ["Action" =:- ("DeleteHsmConfiguration" :: ByteString),- "Version" =: ("2012-12-01" :: ByteString),- "HsmConfigurationIdentifier" =:- _dhcHSMConfigurationIdentifier]---- | /See:/ 'deleteHSMConfigurationResponse' smart constructor.-data DeleteHSMConfigurationResponse =- DeleteHSMConfigurationResponse'- deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'DeleteHSMConfigurationResponse' with the minimum fields required to make a request.----deleteHSMConfigurationResponse- :: DeleteHSMConfigurationResponse-deleteHSMConfigurationResponse = DeleteHSMConfigurationResponse'---instance NFData DeleteHSMConfigurationResponse where
− gen/Network/AWS/Redshift/DeleteSnapshotCopyGrant.hs
@@ -1,110 +0,0 @@-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric #-}-{-# LANGUAGE OverloadedStrings #-}-{-# LANGUAGE RecordWildCards #-}-{-# LANGUAGE TypeFamilies #-}--{-# OPTIONS_GHC -fno-warn-unused-imports #-}-{-# OPTIONS_GHC -fno-warn-unused-binds #-}-{-# OPTIONS_GHC -fno-warn-unused-matches #-}---- Derived from AWS service descriptions, licensed under Apache 2.0.---- |--- Module : Network.AWS.Redshift.DeleteSnapshotCopyGrant--- Copyright : (c) 2013-2018 Brendan Hay--- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>--- Stability : auto-generated--- Portability : non-portable (GHC extensions)------ Deletes the specified snapshot copy grant.-------module Network.AWS.Redshift.DeleteSnapshotCopyGrant- (- -- * Creating a Request- deleteSnapshotCopyGrant- , DeleteSnapshotCopyGrant- -- * Request Lenses- , dscgSnapshotCopyGrantName-- -- * Destructuring the Response- , deleteSnapshotCopyGrantResponse- , DeleteSnapshotCopyGrantResponse- ) where--import Network.AWS.Lens-import Network.AWS.Prelude-import Network.AWS.Redshift.Types-import Network.AWS.Redshift.Types.Product-import Network.AWS.Request-import Network.AWS.Response---- | The result of the @DeleteSnapshotCopyGrant@ action.------------ /See:/ 'deleteSnapshotCopyGrant' smart constructor.-newtype DeleteSnapshotCopyGrant = DeleteSnapshotCopyGrant'- { _dscgSnapshotCopyGrantName :: Text- } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'DeleteSnapshotCopyGrant' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'dscgSnapshotCopyGrantName' - The name of the snapshot copy grant to delete.-deleteSnapshotCopyGrant- :: Text -- ^ 'dscgSnapshotCopyGrantName'- -> DeleteSnapshotCopyGrant-deleteSnapshotCopyGrant pSnapshotCopyGrantName_ =- DeleteSnapshotCopyGrant'- {_dscgSnapshotCopyGrantName = pSnapshotCopyGrantName_}----- | The name of the snapshot copy grant to delete.-dscgSnapshotCopyGrantName :: Lens' DeleteSnapshotCopyGrant Text-dscgSnapshotCopyGrantName = lens _dscgSnapshotCopyGrantName (\ s a -> s{_dscgSnapshotCopyGrantName = a})--instance AWSRequest DeleteSnapshotCopyGrant where- type Rs DeleteSnapshotCopyGrant =- DeleteSnapshotCopyGrantResponse- request = postQuery redshift- response- = receiveNull DeleteSnapshotCopyGrantResponse'--instance Hashable DeleteSnapshotCopyGrant where--instance NFData DeleteSnapshotCopyGrant where--instance ToHeaders DeleteSnapshotCopyGrant where- toHeaders = const mempty--instance ToPath DeleteSnapshotCopyGrant where- toPath = const "/"--instance ToQuery DeleteSnapshotCopyGrant where- toQuery DeleteSnapshotCopyGrant'{..}- = mconcat- ["Action" =:- ("DeleteSnapshotCopyGrant" :: ByteString),- "Version" =: ("2012-12-01" :: ByteString),- "SnapshotCopyGrantName" =:- _dscgSnapshotCopyGrantName]---- | /See:/ 'deleteSnapshotCopyGrantResponse' smart constructor.-data DeleteSnapshotCopyGrantResponse =- DeleteSnapshotCopyGrantResponse'- deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'DeleteSnapshotCopyGrantResponse' with the minimum fields required to make a request.----deleteSnapshotCopyGrantResponse- :: DeleteSnapshotCopyGrantResponse-deleteSnapshotCopyGrantResponse = DeleteSnapshotCopyGrantResponse'---instance NFData DeleteSnapshotCopyGrantResponse where
− gen/Network/AWS/Redshift/DeleteTags.hs
@@ -1,114 +0,0 @@-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric #-}-{-# LANGUAGE OverloadedStrings #-}-{-# LANGUAGE RecordWildCards #-}-{-# LANGUAGE TypeFamilies #-}--{-# OPTIONS_GHC -fno-warn-unused-imports #-}-{-# OPTIONS_GHC -fno-warn-unused-binds #-}-{-# OPTIONS_GHC -fno-warn-unused-matches #-}---- Derived from AWS service descriptions, licensed under Apache 2.0.---- |--- Module : Network.AWS.Redshift.DeleteTags--- Copyright : (c) 2013-2018 Brendan Hay--- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>--- Stability : auto-generated--- Portability : non-portable (GHC extensions)------ Deletes a tag or tags from a resource. You must provide the ARN of the resource from which you want to delete the tag or tags.-------module Network.AWS.Redshift.DeleteTags- (- -- * Creating a Request- deleteTags- , DeleteTags- -- * Request Lenses- , dtsResourceName- , dtsTagKeys-- -- * Destructuring the Response- , deleteTagsResponse- , DeleteTagsResponse- ) where--import Network.AWS.Lens-import Network.AWS.Prelude-import Network.AWS.Redshift.Types-import Network.AWS.Redshift.Types.Product-import Network.AWS.Request-import Network.AWS.Response---- | Contains the output from the @DeleteTags@ action.------------ /See:/ 'deleteTags' smart constructor.-data DeleteTags = DeleteTags'- { _dtsResourceName :: !Text- , _dtsTagKeys :: ![Text]- } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'DeleteTags' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'dtsResourceName' - The Amazon Resource Name (ARN) from which you want to remove the tag or tags. For example, @arn:aws:redshift:us-east-1:123456789:cluster:t1@ .------ * 'dtsTagKeys' - The tag key that you want to delete.-deleteTags- :: Text -- ^ 'dtsResourceName'- -> DeleteTags-deleteTags pResourceName_ =- DeleteTags' {_dtsResourceName = pResourceName_, _dtsTagKeys = mempty}----- | The Amazon Resource Name (ARN) from which you want to remove the tag or tags. For example, @arn:aws:redshift:us-east-1:123456789:cluster:t1@ .-dtsResourceName :: Lens' DeleteTags Text-dtsResourceName = lens _dtsResourceName (\ s a -> s{_dtsResourceName = a})---- | The tag key that you want to delete.-dtsTagKeys :: Lens' DeleteTags [Text]-dtsTagKeys = lens _dtsTagKeys (\ s a -> s{_dtsTagKeys = a}) . _Coerce--instance AWSRequest DeleteTags where- type Rs DeleteTags = DeleteTagsResponse- request = postQuery redshift- response = receiveNull DeleteTagsResponse'--instance Hashable DeleteTags where--instance NFData DeleteTags where--instance ToHeaders DeleteTags where- toHeaders = const mempty--instance ToPath DeleteTags where- toPath = const "/"--instance ToQuery DeleteTags where- toQuery DeleteTags'{..}- = mconcat- ["Action" =: ("DeleteTags" :: ByteString),- "Version" =: ("2012-12-01" :: ByteString),- "ResourceName" =: _dtsResourceName,- "TagKeys" =: toQueryList "TagKey" _dtsTagKeys]---- | /See:/ 'deleteTagsResponse' smart constructor.-data DeleteTagsResponse =- DeleteTagsResponse'- deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'DeleteTagsResponse' with the minimum fields required to make a request.----deleteTagsResponse- :: DeleteTagsResponse-deleteTagsResponse = DeleteTagsResponse'---instance NFData DeleteTagsResponse where
− gen/Network/AWS/Redshift/DescribeClusterParameterGroups.hs
@@ -1,215 +0,0 @@-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric #-}-{-# LANGUAGE OverloadedStrings #-}-{-# LANGUAGE RecordWildCards #-}-{-# LANGUAGE TypeFamilies #-}--{-# OPTIONS_GHC -fno-warn-unused-imports #-}-{-# OPTIONS_GHC -fno-warn-unused-binds #-}-{-# OPTIONS_GHC -fno-warn-unused-matches #-}---- Derived from AWS service descriptions, licensed under Apache 2.0.---- |--- Module : Network.AWS.Redshift.DescribeClusterParameterGroups--- Copyright : (c) 2013-2018 Brendan Hay--- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>--- Stability : auto-generated--- Portability : non-portable (GHC extensions)------ Returns a list of Amazon Redshift parameter groups, including parameter groups you created and the default parameter group. For each parameter group, the response includes the parameter group name, description, and parameter group family name. You can optionally specify a name to retrieve the description of a specific parameter group.--------- For more information about parameters and parameter groups, go to <http://docs.aws.amazon.com/redshift/latest/mgmt/working-with-parameter-groups.html Amazon Redshift Parameter Groups> in the /Amazon Redshift Cluster Management Guide/ .------ If you specify both tag keys and tag values in the same request, Amazon Redshift returns all parameter groups that match any combination of the specified keys and values. For example, if you have @owner@ and @environment@ for tag keys, and @admin@ and @test@ for tag values, all parameter groups that have any combination of those values are returned.------ If both tag keys and values are omitted from the request, parameter groups are returned regardless of whether they have tag keys or values associated with them.--------- This operation returns paginated results.-module Network.AWS.Redshift.DescribeClusterParameterGroups- (- -- * Creating a Request- describeClusterParameterGroups- , DescribeClusterParameterGroups- -- * Request Lenses- , dcpgTagValues- , dcpgTagKeys- , dcpgMarker- , dcpgMaxRecords- , dcpgParameterGroupName-- -- * Destructuring the Response- , describeClusterParameterGroupsResponse- , DescribeClusterParameterGroupsResponse- -- * Response Lenses- , dcpgrsMarker- , dcpgrsParameterGroups- , dcpgrsResponseStatus- ) where--import Network.AWS.Lens-import Network.AWS.Pager-import Network.AWS.Prelude-import Network.AWS.Redshift.Types-import Network.AWS.Redshift.Types.Product-import Network.AWS.Request-import Network.AWS.Response---- |------------ /See:/ 'describeClusterParameterGroups' smart constructor.-data DescribeClusterParameterGroups = DescribeClusterParameterGroups'- { _dcpgTagValues :: !(Maybe [Text])- , _dcpgTagKeys :: !(Maybe [Text])- , _dcpgMarker :: !(Maybe Text)- , _dcpgMaxRecords :: !(Maybe Int)- , _dcpgParameterGroupName :: !(Maybe Text)- } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'DescribeClusterParameterGroups' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'dcpgTagValues' - A tag value or values for which you want to return all matching cluster parameter groups that are associated with the specified tag value or values. For example, suppose that you have parameter groups that are tagged with values called @admin@ and @test@ . If you specify both of these tag values in the request, Amazon Redshift returns a response with the parameter groups that have either or both of these tag values associated with them.------ * 'dcpgTagKeys' - A tag key or keys for which you want to return all matching cluster parameter groups that are associated with the specified key or keys. For example, suppose that you have parameter groups that are tagged with keys called @owner@ and @environment@ . If you specify both of these tag keys in the request, Amazon Redshift returns a response with the parameter groups that have either or both of these tag keys associated with them.------ * 'dcpgMarker' - An optional parameter that specifies the starting point to return a set of response records. When the results of a 'DescribeClusterParameterGroups' request exceed the value specified in @MaxRecords@ , AWS returns a value in the @Marker@ field of the response. You can retrieve the next set of response records by providing the returned marker value in the @Marker@ parameter and retrying the request.------ * 'dcpgMaxRecords' - The maximum number of response records to return in each call. If the number of remaining response records exceeds the specified @MaxRecords@ value, a value is returned in a @marker@ field of the response. You can retrieve the next set of records by retrying the command with the returned marker value. Default: @100@ Constraints: minimum 20, maximum 100.------ * 'dcpgParameterGroupName' - The name of a specific parameter group for which to return details. By default, details about all parameter groups and the default parameter group are returned.-describeClusterParameterGroups- :: DescribeClusterParameterGroups-describeClusterParameterGroups =- DescribeClusterParameterGroups'- { _dcpgTagValues = Nothing- , _dcpgTagKeys = Nothing- , _dcpgMarker = Nothing- , _dcpgMaxRecords = Nothing- , _dcpgParameterGroupName = Nothing- }----- | A tag value or values for which you want to return all matching cluster parameter groups that are associated with the specified tag value or values. For example, suppose that you have parameter groups that are tagged with values called @admin@ and @test@ . If you specify both of these tag values in the request, Amazon Redshift returns a response with the parameter groups that have either or both of these tag values associated with them.-dcpgTagValues :: Lens' DescribeClusterParameterGroups [Text]-dcpgTagValues = lens _dcpgTagValues (\ s a -> s{_dcpgTagValues = a}) . _Default . _Coerce---- | A tag key or keys for which you want to return all matching cluster parameter groups that are associated with the specified key or keys. For example, suppose that you have parameter groups that are tagged with keys called @owner@ and @environment@ . If you specify both of these tag keys in the request, Amazon Redshift returns a response with the parameter groups that have either or both of these tag keys associated with them.-dcpgTagKeys :: Lens' DescribeClusterParameterGroups [Text]-dcpgTagKeys = lens _dcpgTagKeys (\ s a -> s{_dcpgTagKeys = a}) . _Default . _Coerce---- | An optional parameter that specifies the starting point to return a set of response records. When the results of a 'DescribeClusterParameterGroups' request exceed the value specified in @MaxRecords@ , AWS returns a value in the @Marker@ field of the response. You can retrieve the next set of response records by providing the returned marker value in the @Marker@ parameter and retrying the request.-dcpgMarker :: Lens' DescribeClusterParameterGroups (Maybe Text)-dcpgMarker = lens _dcpgMarker (\ s a -> s{_dcpgMarker = a})---- | The maximum number of response records to return in each call. If the number of remaining response records exceeds the specified @MaxRecords@ value, a value is returned in a @marker@ field of the response. You can retrieve the next set of records by retrying the command with the returned marker value. Default: @100@ Constraints: minimum 20, maximum 100.-dcpgMaxRecords :: Lens' DescribeClusterParameterGroups (Maybe Int)-dcpgMaxRecords = lens _dcpgMaxRecords (\ s a -> s{_dcpgMaxRecords = a})---- | The name of a specific parameter group for which to return details. By default, details about all parameter groups and the default parameter group are returned.-dcpgParameterGroupName :: Lens' DescribeClusterParameterGroups (Maybe Text)-dcpgParameterGroupName = lens _dcpgParameterGroupName (\ s a -> s{_dcpgParameterGroupName = a})--instance AWSPager DescribeClusterParameterGroups- where- page rq rs- | stop (rs ^. dcpgrsMarker) = Nothing- | stop (rs ^. dcpgrsParameterGroups) = Nothing- | otherwise =- Just $ rq & dcpgMarker .~ rs ^. dcpgrsMarker--instance AWSRequest DescribeClusterParameterGroups- where- type Rs DescribeClusterParameterGroups =- DescribeClusterParameterGroupsResponse- request = postQuery redshift- response- = receiveXMLWrapper- "DescribeClusterParameterGroupsResult"- (\ s h x ->- DescribeClusterParameterGroupsResponse' <$>- (x .@? "Marker") <*>- (x .@? "ParameterGroups" .!@ mempty >>=- may (parseXMLList "ClusterParameterGroup"))- <*> (pure (fromEnum s)))--instance Hashable DescribeClusterParameterGroups- where--instance NFData DescribeClusterParameterGroups where--instance ToHeaders DescribeClusterParameterGroups- where- toHeaders = const mempty--instance ToPath DescribeClusterParameterGroups where- toPath = const "/"--instance ToQuery DescribeClusterParameterGroups where- toQuery DescribeClusterParameterGroups'{..}- = mconcat- ["Action" =:- ("DescribeClusterParameterGroups" :: ByteString),- "Version" =: ("2012-12-01" :: ByteString),- "TagValues" =:- toQuery (toQueryList "TagValue" <$> _dcpgTagValues),- "TagKeys" =:- toQuery (toQueryList "TagKey" <$> _dcpgTagKeys),- "Marker" =: _dcpgMarker,- "MaxRecords" =: _dcpgMaxRecords,- "ParameterGroupName" =: _dcpgParameterGroupName]---- | Contains the output from the 'DescribeClusterParameterGroups' action.------------ /See:/ 'describeClusterParameterGroupsResponse' smart constructor.-data DescribeClusterParameterGroupsResponse = DescribeClusterParameterGroupsResponse'- { _dcpgrsMarker :: !(Maybe Text)- , _dcpgrsParameterGroups :: !(Maybe [ClusterParameterGroup])- , _dcpgrsResponseStatus :: !Int- } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'DescribeClusterParameterGroupsResponse' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'dcpgrsMarker' - A value that indicates the starting point for the next set of response records in a subsequent request. If a value is returned in a response, you can retrieve the next set of records by providing this returned marker value in the @Marker@ parameter and retrying the command. If the @Marker@ field is empty, all response records have been retrieved for the request.------ * 'dcpgrsParameterGroups' - A list of 'ClusterParameterGroup' instances. Each instance describes one cluster parameter group.------ * 'dcpgrsResponseStatus' - -- | The response status code.-describeClusterParameterGroupsResponse- :: Int -- ^ 'dcpgrsResponseStatus'- -> DescribeClusterParameterGroupsResponse-describeClusterParameterGroupsResponse pResponseStatus_ =- DescribeClusterParameterGroupsResponse'- { _dcpgrsMarker = Nothing- , _dcpgrsParameterGroups = Nothing- , _dcpgrsResponseStatus = pResponseStatus_- }----- | A value that indicates the starting point for the next set of response records in a subsequent request. If a value is returned in a response, you can retrieve the next set of records by providing this returned marker value in the @Marker@ parameter and retrying the command. If the @Marker@ field is empty, all response records have been retrieved for the request.-dcpgrsMarker :: Lens' DescribeClusterParameterGroupsResponse (Maybe Text)-dcpgrsMarker = lens _dcpgrsMarker (\ s a -> s{_dcpgrsMarker = a})---- | A list of 'ClusterParameterGroup' instances. Each instance describes one cluster parameter group.-dcpgrsParameterGroups :: Lens' DescribeClusterParameterGroupsResponse [ClusterParameterGroup]-dcpgrsParameterGroups = lens _dcpgrsParameterGroups (\ s a -> s{_dcpgrsParameterGroups = a}) . _Default . _Coerce---- | -- | The response status code.-dcpgrsResponseStatus :: Lens' DescribeClusterParameterGroupsResponse Int-dcpgrsResponseStatus = lens _dcpgrsResponseStatus (\ s a -> s{_dcpgrsResponseStatus = a})--instance NFData- DescribeClusterParameterGroupsResponse- where
− gen/Network/AWS/Redshift/DescribeClusterParameters.hs
@@ -1,196 +0,0 @@-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric #-}-{-# LANGUAGE OverloadedStrings #-}-{-# LANGUAGE RecordWildCards #-}-{-# LANGUAGE TypeFamilies #-}--{-# OPTIONS_GHC -fno-warn-unused-imports #-}-{-# OPTIONS_GHC -fno-warn-unused-binds #-}-{-# OPTIONS_GHC -fno-warn-unused-matches #-}---- Derived from AWS service descriptions, licensed under Apache 2.0.---- |--- Module : Network.AWS.Redshift.DescribeClusterParameters--- Copyright : (c) 2013-2018 Brendan Hay--- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>--- Stability : auto-generated--- Portability : non-portable (GHC extensions)------ Returns a detailed list of parameters contained within the specified Amazon Redshift parameter group. For each parameter the response includes information such as parameter name, description, data type, value, whether the parameter value is modifiable, and so on.--------- You can specify /source/ filter to retrieve parameters of only specific type. For example, to retrieve parameters that were modified by a user action such as from 'ModifyClusterParameterGroup' , you can specify /source/ equal to /user/ .------ For more information about parameters and parameter groups, go to <http://docs.aws.amazon.com/redshift/latest/mgmt/working-with-parameter-groups.html Amazon Redshift Parameter Groups> in the /Amazon Redshift Cluster Management Guide/ .--------- This operation returns paginated results.-module Network.AWS.Redshift.DescribeClusterParameters- (- -- * Creating a Request- describeClusterParameters- , DescribeClusterParameters- -- * Request Lenses- , dcpsMarker- , dcpsMaxRecords- , dcpsSource- , dcpsParameterGroupName-- -- * Destructuring the Response- , describeClusterParametersResponse- , DescribeClusterParametersResponse- -- * Response Lenses- , dcprsMarker- , dcprsParameters- , dcprsResponseStatus- ) where--import Network.AWS.Lens-import Network.AWS.Pager-import Network.AWS.Prelude-import Network.AWS.Redshift.Types-import Network.AWS.Redshift.Types.Product-import Network.AWS.Request-import Network.AWS.Response---- |------------ /See:/ 'describeClusterParameters' smart constructor.-data DescribeClusterParameters = DescribeClusterParameters'- { _dcpsMarker :: !(Maybe Text)- , _dcpsMaxRecords :: !(Maybe Int)- , _dcpsSource :: !(Maybe Text)- , _dcpsParameterGroupName :: !Text- } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'DescribeClusterParameters' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'dcpsMarker' - An optional parameter that specifies the starting point to return a set of response records. When the results of a 'DescribeClusterParameters' request exceed the value specified in @MaxRecords@ , AWS returns a value in the @Marker@ field of the response. You can retrieve the next set of response records by providing the returned marker value in the @Marker@ parameter and retrying the request.------ * 'dcpsMaxRecords' - The maximum number of response records to return in each call. If the number of remaining response records exceeds the specified @MaxRecords@ value, a value is returned in a @marker@ field of the response. You can retrieve the next set of records by retrying the command with the returned marker value. Default: @100@ Constraints: minimum 20, maximum 100.------ * 'dcpsSource' - The parameter types to return. Specify @user@ to show parameters that are different form the default. Similarly, specify @engine-default@ to show parameters that are the same as the default parameter group. Default: All parameter types returned. Valid Values: @user@ | @engine-default@------ * 'dcpsParameterGroupName' - The name of a cluster parameter group for which to return details.-describeClusterParameters- :: Text -- ^ 'dcpsParameterGroupName'- -> DescribeClusterParameters-describeClusterParameters pParameterGroupName_ =- DescribeClusterParameters'- { _dcpsMarker = Nothing- , _dcpsMaxRecords = Nothing- , _dcpsSource = Nothing- , _dcpsParameterGroupName = pParameterGroupName_- }----- | An optional parameter that specifies the starting point to return a set of response records. When the results of a 'DescribeClusterParameters' request exceed the value specified in @MaxRecords@ , AWS returns a value in the @Marker@ field of the response. You can retrieve the next set of response records by providing the returned marker value in the @Marker@ parameter and retrying the request.-dcpsMarker :: Lens' DescribeClusterParameters (Maybe Text)-dcpsMarker = lens _dcpsMarker (\ s a -> s{_dcpsMarker = a})---- | The maximum number of response records to return in each call. If the number of remaining response records exceeds the specified @MaxRecords@ value, a value is returned in a @marker@ field of the response. You can retrieve the next set of records by retrying the command with the returned marker value. Default: @100@ Constraints: minimum 20, maximum 100.-dcpsMaxRecords :: Lens' DescribeClusterParameters (Maybe Int)-dcpsMaxRecords = lens _dcpsMaxRecords (\ s a -> s{_dcpsMaxRecords = a})---- | The parameter types to return. Specify @user@ to show parameters that are different form the default. Similarly, specify @engine-default@ to show parameters that are the same as the default parameter group. Default: All parameter types returned. Valid Values: @user@ | @engine-default@-dcpsSource :: Lens' DescribeClusterParameters (Maybe Text)-dcpsSource = lens _dcpsSource (\ s a -> s{_dcpsSource = a})---- | The name of a cluster parameter group for which to return details.-dcpsParameterGroupName :: Lens' DescribeClusterParameters Text-dcpsParameterGroupName = lens _dcpsParameterGroupName (\ s a -> s{_dcpsParameterGroupName = a})--instance AWSPager DescribeClusterParameters where- page rq rs- | stop (rs ^. dcprsMarker) = Nothing- | stop (rs ^. dcprsParameters) = Nothing- | otherwise =- Just $ rq & dcpsMarker .~ rs ^. dcprsMarker--instance AWSRequest DescribeClusterParameters where- type Rs DescribeClusterParameters =- DescribeClusterParametersResponse- request = postQuery redshift- response- = receiveXMLWrapper "DescribeClusterParametersResult"- (\ s h x ->- DescribeClusterParametersResponse' <$>- (x .@? "Marker") <*>- (x .@? "Parameters" .!@ mempty >>=- may (parseXMLList "Parameter"))- <*> (pure (fromEnum s)))--instance Hashable DescribeClusterParameters where--instance NFData DescribeClusterParameters where--instance ToHeaders DescribeClusterParameters where- toHeaders = const mempty--instance ToPath DescribeClusterParameters where- toPath = const "/"--instance ToQuery DescribeClusterParameters where- toQuery DescribeClusterParameters'{..}- = mconcat- ["Action" =:- ("DescribeClusterParameters" :: ByteString),- "Version" =: ("2012-12-01" :: ByteString),- "Marker" =: _dcpsMarker,- "MaxRecords" =: _dcpsMaxRecords,- "Source" =: _dcpsSource,- "ParameterGroupName" =: _dcpsParameterGroupName]---- | Contains the output from the 'DescribeClusterParameters' action.------------ /See:/ 'describeClusterParametersResponse' smart constructor.-data DescribeClusterParametersResponse = DescribeClusterParametersResponse'- { _dcprsMarker :: !(Maybe Text)- , _dcprsParameters :: !(Maybe [Parameter])- , _dcprsResponseStatus :: !Int- } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'DescribeClusterParametersResponse' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'dcprsMarker' - A value that indicates the starting point for the next set of response records in a subsequent request. If a value is returned in a response, you can retrieve the next set of records by providing this returned marker value in the @Marker@ parameter and retrying the command. If the @Marker@ field is empty, all response records have been retrieved for the request.------ * 'dcprsParameters' - A list of 'Parameter' instances. Each instance lists the parameters of one cluster parameter group.------ * 'dcprsResponseStatus' - -- | The response status code.-describeClusterParametersResponse- :: Int -- ^ 'dcprsResponseStatus'- -> DescribeClusterParametersResponse-describeClusterParametersResponse pResponseStatus_ =- DescribeClusterParametersResponse'- { _dcprsMarker = Nothing- , _dcprsParameters = Nothing- , _dcprsResponseStatus = pResponseStatus_- }----- | A value that indicates the starting point for the next set of response records in a subsequent request. If a value is returned in a response, you can retrieve the next set of records by providing this returned marker value in the @Marker@ parameter and retrying the command. If the @Marker@ field is empty, all response records have been retrieved for the request.-dcprsMarker :: Lens' DescribeClusterParametersResponse (Maybe Text)-dcprsMarker = lens _dcprsMarker (\ s a -> s{_dcprsMarker = a})---- | A list of 'Parameter' instances. Each instance lists the parameters of one cluster parameter group.-dcprsParameters :: Lens' DescribeClusterParametersResponse [Parameter]-dcprsParameters = lens _dcprsParameters (\ s a -> s{_dcprsParameters = a}) . _Default . _Coerce---- | -- | The response status code.-dcprsResponseStatus :: Lens' DescribeClusterParametersResponse Int-dcprsResponseStatus = lens _dcprsResponseStatus (\ s a -> s{_dcprsResponseStatus = a})--instance NFData DescribeClusterParametersResponse- where
− gen/Network/AWS/Redshift/DescribeClusterSecurityGroups.hs
@@ -1,213 +0,0 @@-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric #-}-{-# LANGUAGE OverloadedStrings #-}-{-# LANGUAGE RecordWildCards #-}-{-# LANGUAGE TypeFamilies #-}--{-# OPTIONS_GHC -fno-warn-unused-imports #-}-{-# OPTIONS_GHC -fno-warn-unused-binds #-}-{-# OPTIONS_GHC -fno-warn-unused-matches #-}---- Derived from AWS service descriptions, licensed under Apache 2.0.---- |--- Module : Network.AWS.Redshift.DescribeClusterSecurityGroups--- Copyright : (c) 2013-2018 Brendan Hay--- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>--- Stability : auto-generated--- Portability : non-portable (GHC extensions)------ Returns information about Amazon Redshift security groups. If the name of a security group is specified, the response will contain only information about only that security group.--------- For information about managing security groups, go to <http://docs.aws.amazon.com/redshift/latest/mgmt/working-with-security-groups.html Amazon Redshift Cluster Security Groups> in the /Amazon Redshift Cluster Management Guide/ .------ If you specify both tag keys and tag values in the same request, Amazon Redshift returns all security groups that match any combination of the specified keys and values. For example, if you have @owner@ and @environment@ for tag keys, and @admin@ and @test@ for tag values, all security groups that have any combination of those values are returned.------ If both tag keys and values are omitted from the request, security groups are returned regardless of whether they have tag keys or values associated with them.--------- This operation returns paginated results.-module Network.AWS.Redshift.DescribeClusterSecurityGroups- (- -- * Creating a Request- describeClusterSecurityGroups- , DescribeClusterSecurityGroups- -- * Request Lenses- , dcsgTagValues- , dcsgTagKeys- , dcsgClusterSecurityGroupName- , dcsgMarker- , dcsgMaxRecords-- -- * Destructuring the Response- , describeClusterSecurityGroupsResponse- , DescribeClusterSecurityGroupsResponse- -- * Response Lenses- , dcsgsrsClusterSecurityGroups- , dcsgsrsMarker- , dcsgsrsResponseStatus- ) where--import Network.AWS.Lens-import Network.AWS.Pager-import Network.AWS.Prelude-import Network.AWS.Redshift.Types-import Network.AWS.Redshift.Types.Product-import Network.AWS.Request-import Network.AWS.Response---- |------------ /See:/ 'describeClusterSecurityGroups' smart constructor.-data DescribeClusterSecurityGroups = DescribeClusterSecurityGroups'- { _dcsgTagValues :: !(Maybe [Text])- , _dcsgTagKeys :: !(Maybe [Text])- , _dcsgClusterSecurityGroupName :: !(Maybe Text)- , _dcsgMarker :: !(Maybe Text)- , _dcsgMaxRecords :: !(Maybe Int)- } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'DescribeClusterSecurityGroups' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'dcsgTagValues' - A tag value or values for which you want to return all matching cluster security groups that are associated with the specified tag value or values. For example, suppose that you have security groups that are tagged with values called @admin@ and @test@ . If you specify both of these tag values in the request, Amazon Redshift returns a response with the security groups that have either or both of these tag values associated with them.------ * 'dcsgTagKeys' - A tag key or keys for which you want to return all matching cluster security groups that are associated with the specified key or keys. For example, suppose that you have security groups that are tagged with keys called @owner@ and @environment@ . If you specify both of these tag keys in the request, Amazon Redshift returns a response with the security groups that have either or both of these tag keys associated with them.------ * 'dcsgClusterSecurityGroupName' - The name of a cluster security group for which you are requesting details. You can specify either the __Marker__ parameter or a __ClusterSecurityGroupName__ parameter, but not both. Example: @securitygroup1@------ * 'dcsgMarker' - An optional parameter that specifies the starting point to return a set of response records. When the results of a 'DescribeClusterSecurityGroups' request exceed the value specified in @MaxRecords@ , AWS returns a value in the @Marker@ field of the response. You can retrieve the next set of response records by providing the returned marker value in the @Marker@ parameter and retrying the request. Constraints: You can specify either the __ClusterSecurityGroupName__ parameter or the __Marker__ parameter, but not both.------ * 'dcsgMaxRecords' - The maximum number of response records to return in each call. If the number of remaining response records exceeds the specified @MaxRecords@ value, a value is returned in a @marker@ field of the response. You can retrieve the next set of records by retrying the command with the returned marker value. Default: @100@ Constraints: minimum 20, maximum 100.-describeClusterSecurityGroups- :: DescribeClusterSecurityGroups-describeClusterSecurityGroups =- DescribeClusterSecurityGroups'- { _dcsgTagValues = Nothing- , _dcsgTagKeys = Nothing- , _dcsgClusterSecurityGroupName = Nothing- , _dcsgMarker = Nothing- , _dcsgMaxRecords = Nothing- }----- | A tag value or values for which you want to return all matching cluster security groups that are associated with the specified tag value or values. For example, suppose that you have security groups that are tagged with values called @admin@ and @test@ . If you specify both of these tag values in the request, Amazon Redshift returns a response with the security groups that have either or both of these tag values associated with them.-dcsgTagValues :: Lens' DescribeClusterSecurityGroups [Text]-dcsgTagValues = lens _dcsgTagValues (\ s a -> s{_dcsgTagValues = a}) . _Default . _Coerce---- | A tag key or keys for which you want to return all matching cluster security groups that are associated with the specified key or keys. For example, suppose that you have security groups that are tagged with keys called @owner@ and @environment@ . If you specify both of these tag keys in the request, Amazon Redshift returns a response with the security groups that have either or both of these tag keys associated with them.-dcsgTagKeys :: Lens' DescribeClusterSecurityGroups [Text]-dcsgTagKeys = lens _dcsgTagKeys (\ s a -> s{_dcsgTagKeys = a}) . _Default . _Coerce---- | The name of a cluster security group for which you are requesting details. You can specify either the __Marker__ parameter or a __ClusterSecurityGroupName__ parameter, but not both. Example: @securitygroup1@-dcsgClusterSecurityGroupName :: Lens' DescribeClusterSecurityGroups (Maybe Text)-dcsgClusterSecurityGroupName = lens _dcsgClusterSecurityGroupName (\ s a -> s{_dcsgClusterSecurityGroupName = a})---- | An optional parameter that specifies the starting point to return a set of response records. When the results of a 'DescribeClusterSecurityGroups' request exceed the value specified in @MaxRecords@ , AWS returns a value in the @Marker@ field of the response. You can retrieve the next set of response records by providing the returned marker value in the @Marker@ parameter and retrying the request. Constraints: You can specify either the __ClusterSecurityGroupName__ parameter or the __Marker__ parameter, but not both.-dcsgMarker :: Lens' DescribeClusterSecurityGroups (Maybe Text)-dcsgMarker = lens _dcsgMarker (\ s a -> s{_dcsgMarker = a})---- | The maximum number of response records to return in each call. If the number of remaining response records exceeds the specified @MaxRecords@ value, a value is returned in a @marker@ field of the response. You can retrieve the next set of records by retrying the command with the returned marker value. Default: @100@ Constraints: minimum 20, maximum 100.-dcsgMaxRecords :: Lens' DescribeClusterSecurityGroups (Maybe Int)-dcsgMaxRecords = lens _dcsgMaxRecords (\ s a -> s{_dcsgMaxRecords = a})--instance AWSPager DescribeClusterSecurityGroups where- page rq rs- | stop (rs ^. dcsgsrsMarker) = Nothing- | stop (rs ^. dcsgsrsClusterSecurityGroups) = Nothing- | otherwise =- Just $ rq & dcsgMarker .~ rs ^. dcsgsrsMarker--instance AWSRequest DescribeClusterSecurityGroups- where- type Rs DescribeClusterSecurityGroups =- DescribeClusterSecurityGroupsResponse- request = postQuery redshift- response- = receiveXMLWrapper- "DescribeClusterSecurityGroupsResult"- (\ s h x ->- DescribeClusterSecurityGroupsResponse' <$>- (x .@? "ClusterSecurityGroups" .!@ mempty >>=- may (parseXMLList "ClusterSecurityGroup"))- <*> (x .@? "Marker")- <*> (pure (fromEnum s)))--instance Hashable DescribeClusterSecurityGroups where--instance NFData DescribeClusterSecurityGroups where--instance ToHeaders DescribeClusterSecurityGroups- where- toHeaders = const mempty--instance ToPath DescribeClusterSecurityGroups where- toPath = const "/"--instance ToQuery DescribeClusterSecurityGroups where- toQuery DescribeClusterSecurityGroups'{..}- = mconcat- ["Action" =:- ("DescribeClusterSecurityGroups" :: ByteString),- "Version" =: ("2012-12-01" :: ByteString),- "TagValues" =:- toQuery (toQueryList "TagValue" <$> _dcsgTagValues),- "TagKeys" =:- toQuery (toQueryList "TagKey" <$> _dcsgTagKeys),- "ClusterSecurityGroupName" =:- _dcsgClusterSecurityGroupName,- "Marker" =: _dcsgMarker,- "MaxRecords" =: _dcsgMaxRecords]---- |------------ /See:/ 'describeClusterSecurityGroupsResponse' smart constructor.-data DescribeClusterSecurityGroupsResponse = DescribeClusterSecurityGroupsResponse'- { _dcsgsrsClusterSecurityGroups :: !(Maybe [ClusterSecurityGroup])- , _dcsgsrsMarker :: !(Maybe Text)- , _dcsgsrsResponseStatus :: !Int- } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'DescribeClusterSecurityGroupsResponse' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'dcsgsrsClusterSecurityGroups' - A list of 'ClusterSecurityGroup' instances.------ * 'dcsgsrsMarker' - A value that indicates the starting point for the next set of response records in a subsequent request. If a value is returned in a response, you can retrieve the next set of records by providing this returned marker value in the @Marker@ parameter and retrying the command. If the @Marker@ field is empty, all response records have been retrieved for the request.------ * 'dcsgsrsResponseStatus' - -- | The response status code.-describeClusterSecurityGroupsResponse- :: Int -- ^ 'dcsgsrsResponseStatus'- -> DescribeClusterSecurityGroupsResponse-describeClusterSecurityGroupsResponse pResponseStatus_ =- DescribeClusterSecurityGroupsResponse'- { _dcsgsrsClusterSecurityGroups = Nothing- , _dcsgsrsMarker = Nothing- , _dcsgsrsResponseStatus = pResponseStatus_- }----- | A list of 'ClusterSecurityGroup' instances.-dcsgsrsClusterSecurityGroups :: Lens' DescribeClusterSecurityGroupsResponse [ClusterSecurityGroup]-dcsgsrsClusterSecurityGroups = lens _dcsgsrsClusterSecurityGroups (\ s a -> s{_dcsgsrsClusterSecurityGroups = a}) . _Default . _Coerce---- | A value that indicates the starting point for the next set of response records in a subsequent request. If a value is returned in a response, you can retrieve the next set of records by providing this returned marker value in the @Marker@ parameter and retrying the command. If the @Marker@ field is empty, all response records have been retrieved for the request.-dcsgsrsMarker :: Lens' DescribeClusterSecurityGroupsResponse (Maybe Text)-dcsgsrsMarker = lens _dcsgsrsMarker (\ s a -> s{_dcsgsrsMarker = a})---- | -- | The response status code.-dcsgsrsResponseStatus :: Lens' DescribeClusterSecurityGroupsResponse Int-dcsgsrsResponseStatus = lens _dcsgsrsResponseStatus (\ s a -> s{_dcsgsrsResponseStatus = a})--instance NFData DescribeClusterSecurityGroupsResponse- where
− gen/Network/AWS/Redshift/DescribeClusterSnapshots.hs
@@ -1,266 +0,0 @@-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric #-}-{-# LANGUAGE OverloadedStrings #-}-{-# LANGUAGE RecordWildCards #-}-{-# LANGUAGE TypeFamilies #-}--{-# OPTIONS_GHC -fno-warn-unused-imports #-}-{-# OPTIONS_GHC -fno-warn-unused-binds #-}-{-# OPTIONS_GHC -fno-warn-unused-matches #-}---- Derived from AWS service descriptions, licensed under Apache 2.0.---- |--- Module : Network.AWS.Redshift.DescribeClusterSnapshots--- Copyright : (c) 2013-2018 Brendan Hay--- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>--- Stability : auto-generated--- Portability : non-portable (GHC extensions)------ Returns one or more snapshot objects, which contain metadata about your cluster snapshots. By default, this operation returns information about all snapshots of all clusters that are owned by you AWS customer account. No information is returned for snapshots owned by inactive AWS customer accounts.--------- If you specify both tag keys and tag values in the same request, Amazon Redshift returns all snapshots that match any combination of the specified keys and values. For example, if you have @owner@ and @environment@ for tag keys, and @admin@ and @test@ for tag values, all snapshots that have any combination of those values are returned. Only snapshots that you own are returned in the response; shared snapshots are not returned with the tag key and tag value request parameters.------ If both tag keys and values are omitted from the request, snapshots are returned regardless of whether they have tag keys or values associated with them.--------- This operation returns paginated results.-module Network.AWS.Redshift.DescribeClusterSnapshots- (- -- * Creating a Request- describeClusterSnapshots- , DescribeClusterSnapshots- -- * Request Lenses- , dSnapshotIdentifier- , dTagValues- , dClusterExists- , dStartTime- , dTagKeys- , dClusterIdentifier- , dSnapshotType- , dMarker- , dMaxRecords- , dEndTime- , dOwnerAccount-- -- * Destructuring the Response- , describeClusterSnapshotsResponse- , DescribeClusterSnapshotsResponse- -- * Response Lenses- , dcssrsSnapshots- , dcssrsMarker- , dcssrsResponseStatus- ) where--import Network.AWS.Lens-import Network.AWS.Pager-import Network.AWS.Prelude-import Network.AWS.Redshift.Types-import Network.AWS.Redshift.Types.Product-import Network.AWS.Request-import Network.AWS.Response---- |------------ /See:/ 'describeClusterSnapshots' smart constructor.-data DescribeClusterSnapshots = DescribeClusterSnapshots'- { _dSnapshotIdentifier :: !(Maybe Text)- , _dTagValues :: !(Maybe [Text])- , _dClusterExists :: !(Maybe Bool)- , _dStartTime :: !(Maybe ISO8601)- , _dTagKeys :: !(Maybe [Text])- , _dClusterIdentifier :: !(Maybe Text)- , _dSnapshotType :: !(Maybe Text)- , _dMarker :: !(Maybe Text)- , _dMaxRecords :: !(Maybe Int)- , _dEndTime :: !(Maybe ISO8601)- , _dOwnerAccount :: !(Maybe Text)- } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'DescribeClusterSnapshots' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'dSnapshotIdentifier' - The snapshot identifier of the snapshot about which to return information.------ * 'dTagValues' - A tag value or values for which you want to return all matching cluster snapshots that are associated with the specified tag value or values. For example, suppose that you have snapshots that are tagged with values called @admin@ and @test@ . If you specify both of these tag values in the request, Amazon Redshift returns a response with the snapshots that have either or both of these tag values associated with them.------ * 'dClusterExists' - A value that indicates whether to return snapshots only for an existing cluster. Table-level restore can be performed only using a snapshot of an existing cluster, that is, a cluster that has not been deleted. If @ClusterExists@ is set to @true@ , @ClusterIdentifier@ is required.------ * 'dStartTime' - A value that requests only snapshots created at or after the specified time. The time value is specified in ISO 8601 format. For more information about ISO 8601, go to the <http://en.wikipedia.org/wiki/ISO_8601 ISO8601 Wikipedia page.> Example: @2012-07-16T18:00:00Z@------ * 'dTagKeys' - A tag key or keys for which you want to return all matching cluster snapshots that are associated with the specified key or keys. For example, suppose that you have snapshots that are tagged with keys called @owner@ and @environment@ . If you specify both of these tag keys in the request, Amazon Redshift returns a response with the snapshots that have either or both of these tag keys associated with them.------ * 'dClusterIdentifier' - The identifier of the cluster for which information about snapshots is requested.------ * 'dSnapshotType' - The type of snapshots for which you are requesting information. By default, snapshots of all types are returned. Valid Values: @automated@ | @manual@------ * 'dMarker' - An optional parameter that specifies the starting point to return a set of response records. When the results of a 'DescribeClusterSnapshots' request exceed the value specified in @MaxRecords@ , AWS returns a value in the @Marker@ field of the response. You can retrieve the next set of response records by providing the returned marker value in the @Marker@ parameter and retrying the request.------ * 'dMaxRecords' - The maximum number of response records to return in each call. If the number of remaining response records exceeds the specified @MaxRecords@ value, a value is returned in a @marker@ field of the response. You can retrieve the next set of records by retrying the command with the returned marker value. Default: @100@ Constraints: minimum 20, maximum 100.------ * 'dEndTime' - A time value that requests only snapshots created at or before the specified time. The time value is specified in ISO 8601 format. For more information about ISO 8601, go to the <http://en.wikipedia.org/wiki/ISO_8601 ISO8601 Wikipedia page.> Example: @2012-07-16T18:00:00Z@------ * 'dOwnerAccount' - The AWS customer account used to create or copy the snapshot. Use this field to filter the results to snapshots owned by a particular account. To describe snapshots you own, either specify your AWS customer account, or do not specify the parameter.-describeClusterSnapshots- :: DescribeClusterSnapshots-describeClusterSnapshots =- DescribeClusterSnapshots'- { _dSnapshotIdentifier = Nothing- , _dTagValues = Nothing- , _dClusterExists = Nothing- , _dStartTime = Nothing- , _dTagKeys = Nothing- , _dClusterIdentifier = Nothing- , _dSnapshotType = Nothing- , _dMarker = Nothing- , _dMaxRecords = Nothing- , _dEndTime = Nothing- , _dOwnerAccount = Nothing- }----- | The snapshot identifier of the snapshot about which to return information.-dSnapshotIdentifier :: Lens' DescribeClusterSnapshots (Maybe Text)-dSnapshotIdentifier = lens _dSnapshotIdentifier (\ s a -> s{_dSnapshotIdentifier = a})---- | A tag value or values for which you want to return all matching cluster snapshots that are associated with the specified tag value or values. For example, suppose that you have snapshots that are tagged with values called @admin@ and @test@ . If you specify both of these tag values in the request, Amazon Redshift returns a response with the snapshots that have either or both of these tag values associated with them.-dTagValues :: Lens' DescribeClusterSnapshots [Text]-dTagValues = lens _dTagValues (\ s a -> s{_dTagValues = a}) . _Default . _Coerce---- | A value that indicates whether to return snapshots only for an existing cluster. Table-level restore can be performed only using a snapshot of an existing cluster, that is, a cluster that has not been deleted. If @ClusterExists@ is set to @true@ , @ClusterIdentifier@ is required.-dClusterExists :: Lens' DescribeClusterSnapshots (Maybe Bool)-dClusterExists = lens _dClusterExists (\ s a -> s{_dClusterExists = a})---- | A value that requests only snapshots created at or after the specified time. The time value is specified in ISO 8601 format. For more information about ISO 8601, go to the <http://en.wikipedia.org/wiki/ISO_8601 ISO8601 Wikipedia page.> Example: @2012-07-16T18:00:00Z@-dStartTime :: Lens' DescribeClusterSnapshots (Maybe UTCTime)-dStartTime = lens _dStartTime (\ s a -> s{_dStartTime = a}) . mapping _Time---- | A tag key or keys for which you want to return all matching cluster snapshots that are associated with the specified key or keys. For example, suppose that you have snapshots that are tagged with keys called @owner@ and @environment@ . If you specify both of these tag keys in the request, Amazon Redshift returns a response with the snapshots that have either or both of these tag keys associated with them.-dTagKeys :: Lens' DescribeClusterSnapshots [Text]-dTagKeys = lens _dTagKeys (\ s a -> s{_dTagKeys = a}) . _Default . _Coerce---- | The identifier of the cluster for which information about snapshots is requested.-dClusterIdentifier :: Lens' DescribeClusterSnapshots (Maybe Text)-dClusterIdentifier = lens _dClusterIdentifier (\ s a -> s{_dClusterIdentifier = a})---- | The type of snapshots for which you are requesting information. By default, snapshots of all types are returned. Valid Values: @automated@ | @manual@-dSnapshotType :: Lens' DescribeClusterSnapshots (Maybe Text)-dSnapshotType = lens _dSnapshotType (\ s a -> s{_dSnapshotType = a})---- | An optional parameter that specifies the starting point to return a set of response records. When the results of a 'DescribeClusterSnapshots' request exceed the value specified in @MaxRecords@ , AWS returns a value in the @Marker@ field of the response. You can retrieve the next set of response records by providing the returned marker value in the @Marker@ parameter and retrying the request.-dMarker :: Lens' DescribeClusterSnapshots (Maybe Text)-dMarker = lens _dMarker (\ s a -> s{_dMarker = a})---- | The maximum number of response records to return in each call. If the number of remaining response records exceeds the specified @MaxRecords@ value, a value is returned in a @marker@ field of the response. You can retrieve the next set of records by retrying the command with the returned marker value. Default: @100@ Constraints: minimum 20, maximum 100.-dMaxRecords :: Lens' DescribeClusterSnapshots (Maybe Int)-dMaxRecords = lens _dMaxRecords (\ s a -> s{_dMaxRecords = a})---- | A time value that requests only snapshots created at or before the specified time. The time value is specified in ISO 8601 format. For more information about ISO 8601, go to the <http://en.wikipedia.org/wiki/ISO_8601 ISO8601 Wikipedia page.> Example: @2012-07-16T18:00:00Z@-dEndTime :: Lens' DescribeClusterSnapshots (Maybe UTCTime)-dEndTime = lens _dEndTime (\ s a -> s{_dEndTime = a}) . mapping _Time---- | The AWS customer account used to create or copy the snapshot. Use this field to filter the results to snapshots owned by a particular account. To describe snapshots you own, either specify your AWS customer account, or do not specify the parameter.-dOwnerAccount :: Lens' DescribeClusterSnapshots (Maybe Text)-dOwnerAccount = lens _dOwnerAccount (\ s a -> s{_dOwnerAccount = a})--instance AWSPager DescribeClusterSnapshots where- page rq rs- | stop (rs ^. dcssrsMarker) = Nothing- | stop (rs ^. dcssrsSnapshots) = Nothing- | otherwise =- Just $ rq & dMarker .~ rs ^. dcssrsMarker--instance AWSRequest DescribeClusterSnapshots where- type Rs DescribeClusterSnapshots =- DescribeClusterSnapshotsResponse- request = postQuery redshift- response- = receiveXMLWrapper "DescribeClusterSnapshotsResult"- (\ s h x ->- DescribeClusterSnapshotsResponse' <$>- (x .@? "Snapshots" .!@ mempty >>=- may (parseXMLList "Snapshot"))- <*> (x .@? "Marker")- <*> (pure (fromEnum s)))--instance Hashable DescribeClusterSnapshots where--instance NFData DescribeClusterSnapshots where--instance ToHeaders DescribeClusterSnapshots where- toHeaders = const mempty--instance ToPath DescribeClusterSnapshots where- toPath = const "/"--instance ToQuery DescribeClusterSnapshots where- toQuery DescribeClusterSnapshots'{..}- = mconcat- ["Action" =:- ("DescribeClusterSnapshots" :: ByteString),- "Version" =: ("2012-12-01" :: ByteString),- "SnapshotIdentifier" =: _dSnapshotIdentifier,- "TagValues" =:- toQuery (toQueryList "TagValue" <$> _dTagValues),- "ClusterExists" =: _dClusterExists,- "StartTime" =: _dStartTime,- "TagKeys" =:- toQuery (toQueryList "TagKey" <$> _dTagKeys),- "ClusterIdentifier" =: _dClusterIdentifier,- "SnapshotType" =: _dSnapshotType,- "Marker" =: _dMarker, "MaxRecords" =: _dMaxRecords,- "EndTime" =: _dEndTime,- "OwnerAccount" =: _dOwnerAccount]---- | Contains the output from the 'DescribeClusterSnapshots' action.------------ /See:/ 'describeClusterSnapshotsResponse' smart constructor.-data DescribeClusterSnapshotsResponse = DescribeClusterSnapshotsResponse'- { _dcssrsSnapshots :: !(Maybe [Snapshot])- , _dcssrsMarker :: !(Maybe Text)- , _dcssrsResponseStatus :: !Int- } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'DescribeClusterSnapshotsResponse' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'dcssrsSnapshots' - A list of 'Snapshot' instances.------ * 'dcssrsMarker' - A value that indicates the starting point for the next set of response records in a subsequent request. If a value is returned in a response, you can retrieve the next set of records by providing this returned marker value in the @Marker@ parameter and retrying the command. If the @Marker@ field is empty, all response records have been retrieved for the request.------ * 'dcssrsResponseStatus' - -- | The response status code.-describeClusterSnapshotsResponse- :: Int -- ^ 'dcssrsResponseStatus'- -> DescribeClusterSnapshotsResponse-describeClusterSnapshotsResponse pResponseStatus_ =- DescribeClusterSnapshotsResponse'- { _dcssrsSnapshots = Nothing- , _dcssrsMarker = Nothing- , _dcssrsResponseStatus = pResponseStatus_- }----- | A list of 'Snapshot' instances.-dcssrsSnapshots :: Lens' DescribeClusterSnapshotsResponse [Snapshot]-dcssrsSnapshots = lens _dcssrsSnapshots (\ s a -> s{_dcssrsSnapshots = a}) . _Default . _Coerce---- | A value that indicates the starting point for the next set of response records in a subsequent request. If a value is returned in a response, you can retrieve the next set of records by providing this returned marker value in the @Marker@ parameter and retrying the command. If the @Marker@ field is empty, all response records have been retrieved for the request.-dcssrsMarker :: Lens' DescribeClusterSnapshotsResponse (Maybe Text)-dcssrsMarker = lens _dcssrsMarker (\ s a -> s{_dcssrsMarker = a})---- | -- | The response status code.-dcssrsResponseStatus :: Lens' DescribeClusterSnapshotsResponse Int-dcssrsResponseStatus = lens _dcssrsResponseStatus (\ s a -> s{_dcssrsResponseStatus = a})--instance NFData DescribeClusterSnapshotsResponse- where
− gen/Network/AWS/Redshift/DescribeClusterSubnetGroups.hs
@@ -1,209 +0,0 @@-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric #-}-{-# LANGUAGE OverloadedStrings #-}-{-# LANGUAGE RecordWildCards #-}-{-# LANGUAGE TypeFamilies #-}--{-# OPTIONS_GHC -fno-warn-unused-imports #-}-{-# OPTIONS_GHC -fno-warn-unused-binds #-}-{-# OPTIONS_GHC -fno-warn-unused-matches #-}---- Derived from AWS service descriptions, licensed under Apache 2.0.---- |--- Module : Network.AWS.Redshift.DescribeClusterSubnetGroups--- Copyright : (c) 2013-2018 Brendan Hay--- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>--- Stability : auto-generated--- Portability : non-portable (GHC extensions)------ Returns one or more cluster subnet group objects, which contain metadata about your cluster subnet groups. By default, this operation returns information about all cluster subnet groups that are defined in you AWS account.--------- If you specify both tag keys and tag values in the same request, Amazon Redshift returns all subnet groups that match any combination of the specified keys and values. For example, if you have @owner@ and @environment@ for tag keys, and @admin@ and @test@ for tag values, all subnet groups that have any combination of those values are returned.------ If both tag keys and values are omitted from the request, subnet groups are returned regardless of whether they have tag keys or values associated with them.--------- This operation returns paginated results.-module Network.AWS.Redshift.DescribeClusterSubnetGroups- (- -- * Creating a Request- describeClusterSubnetGroups- , DescribeClusterSubnetGroups- -- * Request Lenses- , dcsgsTagValues- , dcsgsTagKeys- , dcsgsClusterSubnetGroupName- , dcsgsMarker- , dcsgsMaxRecords-- -- * Destructuring the Response- , describeClusterSubnetGroupsResponse- , DescribeClusterSubnetGroupsResponse- -- * Response Lenses- , dcsgrsClusterSubnetGroups- , dcsgrsMarker- , dcsgrsResponseStatus- ) where--import Network.AWS.Lens-import Network.AWS.Pager-import Network.AWS.Prelude-import Network.AWS.Redshift.Types-import Network.AWS.Redshift.Types.Product-import Network.AWS.Request-import Network.AWS.Response---- |------------ /See:/ 'describeClusterSubnetGroups' smart constructor.-data DescribeClusterSubnetGroups = DescribeClusterSubnetGroups'- { _dcsgsTagValues :: !(Maybe [Text])- , _dcsgsTagKeys :: !(Maybe [Text])- , _dcsgsClusterSubnetGroupName :: !(Maybe Text)- , _dcsgsMarker :: !(Maybe Text)- , _dcsgsMaxRecords :: !(Maybe Int)- } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'DescribeClusterSubnetGroups' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'dcsgsTagValues' - A tag value or values for which you want to return all matching cluster subnet groups that are associated with the specified tag value or values. For example, suppose that you have subnet groups that are tagged with values called @admin@ and @test@ . If you specify both of these tag values in the request, Amazon Redshift returns a response with the subnet groups that have either or both of these tag values associated with them.------ * 'dcsgsTagKeys' - A tag key or keys for which you want to return all matching cluster subnet groups that are associated with the specified key or keys. For example, suppose that you have subnet groups that are tagged with keys called @owner@ and @environment@ . If you specify both of these tag keys in the request, Amazon Redshift returns a response with the subnet groups that have either or both of these tag keys associated with them.------ * 'dcsgsClusterSubnetGroupName' - The name of the cluster subnet group for which information is requested.------ * 'dcsgsMarker' - An optional parameter that specifies the starting point to return a set of response records. When the results of a 'DescribeClusterSubnetGroups' request exceed the value specified in @MaxRecords@ , AWS returns a value in the @Marker@ field of the response. You can retrieve the next set of response records by providing the returned marker value in the @Marker@ parameter and retrying the request.------ * 'dcsgsMaxRecords' - The maximum number of response records to return in each call. If the number of remaining response records exceeds the specified @MaxRecords@ value, a value is returned in a @marker@ field of the response. You can retrieve the next set of records by retrying the command with the returned marker value. Default: @100@ Constraints: minimum 20, maximum 100.-describeClusterSubnetGroups- :: DescribeClusterSubnetGroups-describeClusterSubnetGroups =- DescribeClusterSubnetGroups'- { _dcsgsTagValues = Nothing- , _dcsgsTagKeys = Nothing- , _dcsgsClusterSubnetGroupName = Nothing- , _dcsgsMarker = Nothing- , _dcsgsMaxRecords = Nothing- }----- | A tag value or values for which you want to return all matching cluster subnet groups that are associated with the specified tag value or values. For example, suppose that you have subnet groups that are tagged with values called @admin@ and @test@ . If you specify both of these tag values in the request, Amazon Redshift returns a response with the subnet groups that have either or both of these tag values associated with them.-dcsgsTagValues :: Lens' DescribeClusterSubnetGroups [Text]-dcsgsTagValues = lens _dcsgsTagValues (\ s a -> s{_dcsgsTagValues = a}) . _Default . _Coerce---- | A tag key or keys for which you want to return all matching cluster subnet groups that are associated with the specified key or keys. For example, suppose that you have subnet groups that are tagged with keys called @owner@ and @environment@ . If you specify both of these tag keys in the request, Amazon Redshift returns a response with the subnet groups that have either or both of these tag keys associated with them.-dcsgsTagKeys :: Lens' DescribeClusterSubnetGroups [Text]-dcsgsTagKeys = lens _dcsgsTagKeys (\ s a -> s{_dcsgsTagKeys = a}) . _Default . _Coerce---- | The name of the cluster subnet group for which information is requested.-dcsgsClusterSubnetGroupName :: Lens' DescribeClusterSubnetGroups (Maybe Text)-dcsgsClusterSubnetGroupName = lens _dcsgsClusterSubnetGroupName (\ s a -> s{_dcsgsClusterSubnetGroupName = a})---- | An optional parameter that specifies the starting point to return a set of response records. When the results of a 'DescribeClusterSubnetGroups' request exceed the value specified in @MaxRecords@ , AWS returns a value in the @Marker@ field of the response. You can retrieve the next set of response records by providing the returned marker value in the @Marker@ parameter and retrying the request.-dcsgsMarker :: Lens' DescribeClusterSubnetGroups (Maybe Text)-dcsgsMarker = lens _dcsgsMarker (\ s a -> s{_dcsgsMarker = a})---- | The maximum number of response records to return in each call. If the number of remaining response records exceeds the specified @MaxRecords@ value, a value is returned in a @marker@ field of the response. You can retrieve the next set of records by retrying the command with the returned marker value. Default: @100@ Constraints: minimum 20, maximum 100.-dcsgsMaxRecords :: Lens' DescribeClusterSubnetGroups (Maybe Int)-dcsgsMaxRecords = lens _dcsgsMaxRecords (\ s a -> s{_dcsgsMaxRecords = a})--instance AWSPager DescribeClusterSubnetGroups where- page rq rs- | stop (rs ^. dcsgrsMarker) = Nothing- | stop (rs ^. dcsgrsClusterSubnetGroups) = Nothing- | otherwise =- Just $ rq & dcsgsMarker .~ rs ^. dcsgrsMarker--instance AWSRequest DescribeClusterSubnetGroups where- type Rs DescribeClusterSubnetGroups =- DescribeClusterSubnetGroupsResponse- request = postQuery redshift- response- = receiveXMLWrapper- "DescribeClusterSubnetGroupsResult"- (\ s h x ->- DescribeClusterSubnetGroupsResponse' <$>- (x .@? "ClusterSubnetGroups" .!@ mempty >>=- may (parseXMLList "ClusterSubnetGroup"))- <*> (x .@? "Marker")- <*> (pure (fromEnum s)))--instance Hashable DescribeClusterSubnetGroups where--instance NFData DescribeClusterSubnetGroups where--instance ToHeaders DescribeClusterSubnetGroups where- toHeaders = const mempty--instance ToPath DescribeClusterSubnetGroups where- toPath = const "/"--instance ToQuery DescribeClusterSubnetGroups where- toQuery DescribeClusterSubnetGroups'{..}- = mconcat- ["Action" =:- ("DescribeClusterSubnetGroups" :: ByteString),- "Version" =: ("2012-12-01" :: ByteString),- "TagValues" =:- toQuery (toQueryList "TagValue" <$> _dcsgsTagValues),- "TagKeys" =:- toQuery (toQueryList "TagKey" <$> _dcsgsTagKeys),- "ClusterSubnetGroupName" =:- _dcsgsClusterSubnetGroupName,- "Marker" =: _dcsgsMarker,- "MaxRecords" =: _dcsgsMaxRecords]---- | Contains the output from the 'DescribeClusterSubnetGroups' action.------------ /See:/ 'describeClusterSubnetGroupsResponse' smart constructor.-data DescribeClusterSubnetGroupsResponse = DescribeClusterSubnetGroupsResponse'- { _dcsgrsClusterSubnetGroups :: !(Maybe [ClusterSubnetGroup])- , _dcsgrsMarker :: !(Maybe Text)- , _dcsgrsResponseStatus :: !Int- } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'DescribeClusterSubnetGroupsResponse' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'dcsgrsClusterSubnetGroups' - A list of 'ClusterSubnetGroup' instances.------ * 'dcsgrsMarker' - A value that indicates the starting point for the next set of response records in a subsequent request. If a value is returned in a response, you can retrieve the next set of records by providing this returned marker value in the @Marker@ parameter and retrying the command. If the @Marker@ field is empty, all response records have been retrieved for the request.------ * 'dcsgrsResponseStatus' - -- | The response status code.-describeClusterSubnetGroupsResponse- :: Int -- ^ 'dcsgrsResponseStatus'- -> DescribeClusterSubnetGroupsResponse-describeClusterSubnetGroupsResponse pResponseStatus_ =- DescribeClusterSubnetGroupsResponse'- { _dcsgrsClusterSubnetGroups = Nothing- , _dcsgrsMarker = Nothing- , _dcsgrsResponseStatus = pResponseStatus_- }----- | A list of 'ClusterSubnetGroup' instances.-dcsgrsClusterSubnetGroups :: Lens' DescribeClusterSubnetGroupsResponse [ClusterSubnetGroup]-dcsgrsClusterSubnetGroups = lens _dcsgrsClusterSubnetGroups (\ s a -> s{_dcsgrsClusterSubnetGroups = a}) . _Default . _Coerce---- | A value that indicates the starting point for the next set of response records in a subsequent request. If a value is returned in a response, you can retrieve the next set of records by providing this returned marker value in the @Marker@ parameter and retrying the command. If the @Marker@ field is empty, all response records have been retrieved for the request.-dcsgrsMarker :: Lens' DescribeClusterSubnetGroupsResponse (Maybe Text)-dcsgrsMarker = lens _dcsgrsMarker (\ s a -> s{_dcsgrsMarker = a})---- | -- | The response status code.-dcsgrsResponseStatus :: Lens' DescribeClusterSubnetGroupsResponse Int-dcsgrsResponseStatus = lens _dcsgrsResponseStatus (\ s a -> s{_dcsgrsResponseStatus = a})--instance NFData DescribeClusterSubnetGroupsResponse- where
− gen/Network/AWS/Redshift/DescribeClusterVersions.hs
@@ -1,191 +0,0 @@-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric #-}-{-# LANGUAGE OverloadedStrings #-}-{-# LANGUAGE RecordWildCards #-}-{-# LANGUAGE TypeFamilies #-}--{-# OPTIONS_GHC -fno-warn-unused-imports #-}-{-# OPTIONS_GHC -fno-warn-unused-binds #-}-{-# OPTIONS_GHC -fno-warn-unused-matches #-}---- Derived from AWS service descriptions, licensed under Apache 2.0.---- |--- Module : Network.AWS.Redshift.DescribeClusterVersions--- Copyright : (c) 2013-2018 Brendan Hay--- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>--- Stability : auto-generated--- Portability : non-portable (GHC extensions)------ Returns descriptions of the available Amazon Redshift cluster versions. You can call this operation even before creating any clusters to learn more about the Amazon Redshift versions. For more information about managing clusters, go to <http://docs.aws.amazon.com/redshift/latest/mgmt/working-with-clusters.html Amazon Redshift Clusters> in the /Amazon Redshift Cluster Management Guide/ .------------ This operation returns paginated results.-module Network.AWS.Redshift.DescribeClusterVersions- (- -- * Creating a Request- describeClusterVersions- , DescribeClusterVersions- -- * Request Lenses- , dcvClusterParameterGroupFamily- , dcvMarker- , dcvMaxRecords- , dcvClusterVersion-- -- * Destructuring the Response- , describeClusterVersionsResponse- , DescribeClusterVersionsResponse- -- * Response Lenses- , dcvrsClusterVersions- , dcvrsMarker- , dcvrsResponseStatus- ) where--import Network.AWS.Lens-import Network.AWS.Pager-import Network.AWS.Prelude-import Network.AWS.Redshift.Types-import Network.AWS.Redshift.Types.Product-import Network.AWS.Request-import Network.AWS.Response---- |------------ /See:/ 'describeClusterVersions' smart constructor.-data DescribeClusterVersions = DescribeClusterVersions'- { _dcvClusterParameterGroupFamily :: !(Maybe Text)- , _dcvMarker :: !(Maybe Text)- , _dcvMaxRecords :: !(Maybe Int)- , _dcvClusterVersion :: !(Maybe Text)- } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'DescribeClusterVersions' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'dcvClusterParameterGroupFamily' - The name of a specific cluster parameter group family to return details for. Constraints: * Must be 1 to 255 alphanumeric characters * First character must be a letter * Cannot end with a hyphen or contain two consecutive hyphens------ * 'dcvMarker' - An optional parameter that specifies the starting point to return a set of response records. When the results of a 'DescribeClusterVersions' request exceed the value specified in @MaxRecords@ , AWS returns a value in the @Marker@ field of the response. You can retrieve the next set of response records by providing the returned marker value in the @Marker@ parameter and retrying the request.------ * 'dcvMaxRecords' - The maximum number of response records to return in each call. If the number of remaining response records exceeds the specified @MaxRecords@ value, a value is returned in a @marker@ field of the response. You can retrieve the next set of records by retrying the command with the returned marker value. Default: @100@ Constraints: minimum 20, maximum 100.------ * 'dcvClusterVersion' - The specific cluster version to return. Example: @1.0@-describeClusterVersions- :: DescribeClusterVersions-describeClusterVersions =- DescribeClusterVersions'- { _dcvClusterParameterGroupFamily = Nothing- , _dcvMarker = Nothing- , _dcvMaxRecords = Nothing- , _dcvClusterVersion = Nothing- }----- | The name of a specific cluster parameter group family to return details for. Constraints: * Must be 1 to 255 alphanumeric characters * First character must be a letter * Cannot end with a hyphen or contain two consecutive hyphens-dcvClusterParameterGroupFamily :: Lens' DescribeClusterVersions (Maybe Text)-dcvClusterParameterGroupFamily = lens _dcvClusterParameterGroupFamily (\ s a -> s{_dcvClusterParameterGroupFamily = a})---- | An optional parameter that specifies the starting point to return a set of response records. When the results of a 'DescribeClusterVersions' request exceed the value specified in @MaxRecords@ , AWS returns a value in the @Marker@ field of the response. You can retrieve the next set of response records by providing the returned marker value in the @Marker@ parameter and retrying the request.-dcvMarker :: Lens' DescribeClusterVersions (Maybe Text)-dcvMarker = lens _dcvMarker (\ s a -> s{_dcvMarker = a})---- | The maximum number of response records to return in each call. If the number of remaining response records exceeds the specified @MaxRecords@ value, a value is returned in a @marker@ field of the response. You can retrieve the next set of records by retrying the command with the returned marker value. Default: @100@ Constraints: minimum 20, maximum 100.-dcvMaxRecords :: Lens' DescribeClusterVersions (Maybe Int)-dcvMaxRecords = lens _dcvMaxRecords (\ s a -> s{_dcvMaxRecords = a})---- | The specific cluster version to return. Example: @1.0@-dcvClusterVersion :: Lens' DescribeClusterVersions (Maybe Text)-dcvClusterVersion = lens _dcvClusterVersion (\ s a -> s{_dcvClusterVersion = a})--instance AWSPager DescribeClusterVersions where- page rq rs- | stop (rs ^. dcvrsMarker) = Nothing- | stop (rs ^. dcvrsClusterVersions) = Nothing- | otherwise =- Just $ rq & dcvMarker .~ rs ^. dcvrsMarker--instance AWSRequest DescribeClusterVersions where- type Rs DescribeClusterVersions =- DescribeClusterVersionsResponse- request = postQuery redshift- response- = receiveXMLWrapper "DescribeClusterVersionsResult"- (\ s h x ->- DescribeClusterVersionsResponse' <$>- (x .@? "ClusterVersions" .!@ mempty >>=- may (parseXMLList "ClusterVersion"))- <*> (x .@? "Marker")- <*> (pure (fromEnum s)))--instance Hashable DescribeClusterVersions where--instance NFData DescribeClusterVersions where--instance ToHeaders DescribeClusterVersions where- toHeaders = const mempty--instance ToPath DescribeClusterVersions where- toPath = const "/"--instance ToQuery DescribeClusterVersions where- toQuery DescribeClusterVersions'{..}- = mconcat- ["Action" =:- ("DescribeClusterVersions" :: ByteString),- "Version" =: ("2012-12-01" :: ByteString),- "ClusterParameterGroupFamily" =:- _dcvClusterParameterGroupFamily,- "Marker" =: _dcvMarker,- "MaxRecords" =: _dcvMaxRecords,- "ClusterVersion" =: _dcvClusterVersion]---- | Contains the output from the 'DescribeClusterVersions' action.------------ /See:/ 'describeClusterVersionsResponse' smart constructor.-data DescribeClusterVersionsResponse = DescribeClusterVersionsResponse'- { _dcvrsClusterVersions :: !(Maybe [ClusterVersion])- , _dcvrsMarker :: !(Maybe Text)- , _dcvrsResponseStatus :: !Int- } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'DescribeClusterVersionsResponse' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'dcvrsClusterVersions' - A list of @Version@ elements.------ * 'dcvrsMarker' - A value that indicates the starting point for the next set of response records in a subsequent request. If a value is returned in a response, you can retrieve the next set of records by providing this returned marker value in the @Marker@ parameter and retrying the command. If the @Marker@ field is empty, all response records have been retrieved for the request.------ * 'dcvrsResponseStatus' - -- | The response status code.-describeClusterVersionsResponse- :: Int -- ^ 'dcvrsResponseStatus'- -> DescribeClusterVersionsResponse-describeClusterVersionsResponse pResponseStatus_ =- DescribeClusterVersionsResponse'- { _dcvrsClusterVersions = Nothing- , _dcvrsMarker = Nothing- , _dcvrsResponseStatus = pResponseStatus_- }----- | A list of @Version@ elements.-dcvrsClusterVersions :: Lens' DescribeClusterVersionsResponse [ClusterVersion]-dcvrsClusterVersions = lens _dcvrsClusterVersions (\ s a -> s{_dcvrsClusterVersions = a}) . _Default . _Coerce---- | A value that indicates the starting point for the next set of response records in a subsequent request. If a value is returned in a response, you can retrieve the next set of records by providing this returned marker value in the @Marker@ parameter and retrying the command. If the @Marker@ field is empty, all response records have been retrieved for the request.-dcvrsMarker :: Lens' DescribeClusterVersionsResponse (Maybe Text)-dcvrsMarker = lens _dcvrsMarker (\ s a -> s{_dcvrsMarker = a})---- | -- | The response status code.-dcvrsResponseStatus :: Lens' DescribeClusterVersionsResponse Int-dcvrsResponseStatus = lens _dcvrsResponseStatus (\ s a -> s{_dcvrsResponseStatus = a})--instance NFData DescribeClusterVersionsResponse where
− gen/Network/AWS/Redshift/DescribeClusters.hs
@@ -1,203 +0,0 @@-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric #-}-{-# LANGUAGE OverloadedStrings #-}-{-# LANGUAGE RecordWildCards #-}-{-# LANGUAGE TypeFamilies #-}--{-# OPTIONS_GHC -fno-warn-unused-imports #-}-{-# OPTIONS_GHC -fno-warn-unused-binds #-}-{-# OPTIONS_GHC -fno-warn-unused-matches #-}---- Derived from AWS service descriptions, licensed under Apache 2.0.---- |--- Module : Network.AWS.Redshift.DescribeClusters--- Copyright : (c) 2013-2018 Brendan Hay--- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>--- Stability : auto-generated--- Portability : non-portable (GHC extensions)------ Returns properties of provisioned clusters including general cluster properties, cluster database properties, maintenance and backup properties, and security and access properties. This operation supports pagination. For more information about managing clusters, go to <http://docs.aws.amazon.com/redshift/latest/mgmt/working-with-clusters.html Amazon Redshift Clusters> in the /Amazon Redshift Cluster Management Guide/ .--------- If you specify both tag keys and tag values in the same request, Amazon Redshift returns all clusters that match any combination of the specified keys and values. For example, if you have @owner@ and @environment@ for tag keys, and @admin@ and @test@ for tag values, all clusters that have any combination of those values are returned.------ If both tag keys and values are omitted from the request, clusters are returned regardless of whether they have tag keys or values associated with them.--------- This operation returns paginated results.-module Network.AWS.Redshift.DescribeClusters- (- -- * Creating a Request- describeClusters- , DescribeClusters- -- * Request Lenses- , dcTagValues- , dcTagKeys- , dcClusterIdentifier- , dcMarker- , dcMaxRecords-- -- * Destructuring the Response- , describeClustersResponse- , DescribeClustersResponse- -- * Response Lenses- , dcrsMarker- , dcrsClusters- , dcrsResponseStatus- ) where--import Network.AWS.Lens-import Network.AWS.Pager-import Network.AWS.Prelude-import Network.AWS.Redshift.Types-import Network.AWS.Redshift.Types.Product-import Network.AWS.Request-import Network.AWS.Response---- |------------ /See:/ 'describeClusters' smart constructor.-data DescribeClusters = DescribeClusters'- { _dcTagValues :: !(Maybe [Text])- , _dcTagKeys :: !(Maybe [Text])- , _dcClusterIdentifier :: !(Maybe Text)- , _dcMarker :: !(Maybe Text)- , _dcMaxRecords :: !(Maybe Int)- } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'DescribeClusters' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'dcTagValues' - A tag value or values for which you want to return all matching clusters that are associated with the specified tag value or values. For example, suppose that you have clusters that are tagged with values called @admin@ and @test@ . If you specify both of these tag values in the request, Amazon Redshift returns a response with the clusters that have either or both of these tag values associated with them.------ * 'dcTagKeys' - A tag key or keys for which you want to return all matching clusters that are associated with the specified key or keys. For example, suppose that you have clusters that are tagged with keys called @owner@ and @environment@ . If you specify both of these tag keys in the request, Amazon Redshift returns a response with the clusters that have either or both of these tag keys associated with them.------ * 'dcClusterIdentifier' - The unique identifier of a cluster whose properties you are requesting. This parameter is case sensitive. The default is that all clusters defined for an account are returned.------ * 'dcMarker' - An optional parameter that specifies the starting point to return a set of response records. When the results of a 'DescribeClusters' request exceed the value specified in @MaxRecords@ , AWS returns a value in the @Marker@ field of the response. You can retrieve the next set of response records by providing the returned marker value in the @Marker@ parameter and retrying the request. Constraints: You can specify either the __ClusterIdentifier__ parameter or the __Marker__ parameter, but not both.------ * 'dcMaxRecords' - The maximum number of response records to return in each call. If the number of remaining response records exceeds the specified @MaxRecords@ value, a value is returned in a @marker@ field of the response. You can retrieve the next set of records by retrying the command with the returned marker value. Default: @100@ Constraints: minimum 20, maximum 100.-describeClusters- :: DescribeClusters-describeClusters =- DescribeClusters'- { _dcTagValues = Nothing- , _dcTagKeys = Nothing- , _dcClusterIdentifier = Nothing- , _dcMarker = Nothing- , _dcMaxRecords = Nothing- }----- | A tag value or values for which you want to return all matching clusters that are associated with the specified tag value or values. For example, suppose that you have clusters that are tagged with values called @admin@ and @test@ . If you specify both of these tag values in the request, Amazon Redshift returns a response with the clusters that have either or both of these tag values associated with them.-dcTagValues :: Lens' DescribeClusters [Text]-dcTagValues = lens _dcTagValues (\ s a -> s{_dcTagValues = a}) . _Default . _Coerce---- | A tag key or keys for which you want to return all matching clusters that are associated with the specified key or keys. For example, suppose that you have clusters that are tagged with keys called @owner@ and @environment@ . If you specify both of these tag keys in the request, Amazon Redshift returns a response with the clusters that have either or both of these tag keys associated with them.-dcTagKeys :: Lens' DescribeClusters [Text]-dcTagKeys = lens _dcTagKeys (\ s a -> s{_dcTagKeys = a}) . _Default . _Coerce---- | The unique identifier of a cluster whose properties you are requesting. This parameter is case sensitive. The default is that all clusters defined for an account are returned.-dcClusterIdentifier :: Lens' DescribeClusters (Maybe Text)-dcClusterIdentifier = lens _dcClusterIdentifier (\ s a -> s{_dcClusterIdentifier = a})---- | An optional parameter that specifies the starting point to return a set of response records. When the results of a 'DescribeClusters' request exceed the value specified in @MaxRecords@ , AWS returns a value in the @Marker@ field of the response. You can retrieve the next set of response records by providing the returned marker value in the @Marker@ parameter and retrying the request. Constraints: You can specify either the __ClusterIdentifier__ parameter or the __Marker__ parameter, but not both.-dcMarker :: Lens' DescribeClusters (Maybe Text)-dcMarker = lens _dcMarker (\ s a -> s{_dcMarker = a})---- | The maximum number of response records to return in each call. If the number of remaining response records exceeds the specified @MaxRecords@ value, a value is returned in a @marker@ field of the response. You can retrieve the next set of records by retrying the command with the returned marker value. Default: @100@ Constraints: minimum 20, maximum 100.-dcMaxRecords :: Lens' DescribeClusters (Maybe Int)-dcMaxRecords = lens _dcMaxRecords (\ s a -> s{_dcMaxRecords = a})--instance AWSPager DescribeClusters where- page rq rs- | stop (rs ^. dcrsMarker) = Nothing- | stop (rs ^. dcrsClusters) = Nothing- | otherwise =- Just $ rq & dcMarker .~ rs ^. dcrsMarker--instance AWSRequest DescribeClusters where- type Rs DescribeClusters = DescribeClustersResponse- request = postQuery redshift- response- = receiveXMLWrapper "DescribeClustersResult"- (\ s h x ->- DescribeClustersResponse' <$>- (x .@? "Marker") <*>- (x .@? "Clusters" .!@ mempty >>=- may (parseXMLList "Cluster"))- <*> (pure (fromEnum s)))--instance Hashable DescribeClusters where--instance NFData DescribeClusters where--instance ToHeaders DescribeClusters where- toHeaders = const mempty--instance ToPath DescribeClusters where- toPath = const "/"--instance ToQuery DescribeClusters where- toQuery DescribeClusters'{..}- = mconcat- ["Action" =: ("DescribeClusters" :: ByteString),- "Version" =: ("2012-12-01" :: ByteString),- "TagValues" =:- toQuery (toQueryList "TagValue" <$> _dcTagValues),- "TagKeys" =:- toQuery (toQueryList "TagKey" <$> _dcTagKeys),- "ClusterIdentifier" =: _dcClusterIdentifier,- "Marker" =: _dcMarker, "MaxRecords" =: _dcMaxRecords]---- | Contains the output from the 'DescribeClusters' action.------------ /See:/ 'describeClustersResponse' smart constructor.-data DescribeClustersResponse = DescribeClustersResponse'- { _dcrsMarker :: !(Maybe Text)- , _dcrsClusters :: !(Maybe [Cluster])- , _dcrsResponseStatus :: !Int- } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'DescribeClustersResponse' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'dcrsMarker' - A value that indicates the starting point for the next set of response records in a subsequent request. If a value is returned in a response, you can retrieve the next set of records by providing this returned marker value in the @Marker@ parameter and retrying the command. If the @Marker@ field is empty, all response records have been retrieved for the request.------ * 'dcrsClusters' - A list of @Cluster@ objects, where each object describes one cluster.------ * 'dcrsResponseStatus' - -- | The response status code.-describeClustersResponse- :: Int -- ^ 'dcrsResponseStatus'- -> DescribeClustersResponse-describeClustersResponse pResponseStatus_ =- DescribeClustersResponse'- { _dcrsMarker = Nothing- , _dcrsClusters = Nothing- , _dcrsResponseStatus = pResponseStatus_- }----- | A value that indicates the starting point for the next set of response records in a subsequent request. If a value is returned in a response, you can retrieve the next set of records by providing this returned marker value in the @Marker@ parameter and retrying the command. If the @Marker@ field is empty, all response records have been retrieved for the request.-dcrsMarker :: Lens' DescribeClustersResponse (Maybe Text)-dcrsMarker = lens _dcrsMarker (\ s a -> s{_dcrsMarker = a})---- | A list of @Cluster@ objects, where each object describes one cluster.-dcrsClusters :: Lens' DescribeClustersResponse [Cluster]-dcrsClusters = lens _dcrsClusters (\ s a -> s{_dcrsClusters = a}) . _Default . _Coerce---- | -- | The response status code.-dcrsResponseStatus :: Lens' DescribeClustersResponse Int-dcrsResponseStatus = lens _dcrsResponseStatus (\ s a -> s{_dcrsResponseStatus = a})--instance NFData DescribeClustersResponse where
− gen/Network/AWS/Redshift/DescribeDefaultClusterParameters.hs
@@ -1,188 +0,0 @@-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric #-}-{-# LANGUAGE OverloadedStrings #-}-{-# LANGUAGE RecordWildCards #-}-{-# LANGUAGE TypeFamilies #-}--{-# OPTIONS_GHC -fno-warn-unused-imports #-}-{-# OPTIONS_GHC -fno-warn-unused-binds #-}-{-# OPTIONS_GHC -fno-warn-unused-matches #-}---- Derived from AWS service descriptions, licensed under Apache 2.0.---- |--- Module : Network.AWS.Redshift.DescribeDefaultClusterParameters--- Copyright : (c) 2013-2018 Brendan Hay--- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>--- Stability : auto-generated--- Portability : non-portable (GHC extensions)------ Returns a list of parameter settings for the specified parameter group family.--------- For more information about parameters and parameter groups, go to <http://docs.aws.amazon.com/redshift/latest/mgmt/working-with-parameter-groups.html Amazon Redshift Parameter Groups> in the /Amazon Redshift Cluster Management Guide/ .--------- This operation returns paginated results.-module Network.AWS.Redshift.DescribeDefaultClusterParameters- (- -- * Creating a Request- describeDefaultClusterParameters- , DescribeDefaultClusterParameters- -- * Request Lenses- , ddcpMarker- , ddcpMaxRecords- , ddcpParameterGroupFamily-- -- * Destructuring the Response- , describeDefaultClusterParametersResponse- , DescribeDefaultClusterParametersResponse- -- * Response Lenses- , ddcprsResponseStatus- , ddcprsDefaultClusterParameters- ) where--import Network.AWS.Lens-import Network.AWS.Pager-import Network.AWS.Prelude-import Network.AWS.Redshift.Types-import Network.AWS.Redshift.Types.Product-import Network.AWS.Request-import Network.AWS.Response---- |------------ /See:/ 'describeDefaultClusterParameters' smart constructor.-data DescribeDefaultClusterParameters = DescribeDefaultClusterParameters'- { _ddcpMarker :: !(Maybe Text)- , _ddcpMaxRecords :: !(Maybe Int)- , _ddcpParameterGroupFamily :: !Text- } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'DescribeDefaultClusterParameters' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'ddcpMarker' - An optional parameter that specifies the starting point to return a set of response records. When the results of a 'DescribeDefaultClusterParameters' request exceed the value specified in @MaxRecords@ , AWS returns a value in the @Marker@ field of the response. You can retrieve the next set of response records by providing the returned marker value in the @Marker@ parameter and retrying the request.------ * 'ddcpMaxRecords' - The maximum number of response records to return in each call. If the number of remaining response records exceeds the specified @MaxRecords@ value, a value is returned in a @marker@ field of the response. You can retrieve the next set of records by retrying the command with the returned marker value. Default: @100@ Constraints: minimum 20, maximum 100.------ * 'ddcpParameterGroupFamily' - The name of the cluster parameter group family.-describeDefaultClusterParameters- :: Text -- ^ 'ddcpParameterGroupFamily'- -> DescribeDefaultClusterParameters-describeDefaultClusterParameters pParameterGroupFamily_ =- DescribeDefaultClusterParameters'- { _ddcpMarker = Nothing- , _ddcpMaxRecords = Nothing- , _ddcpParameterGroupFamily = pParameterGroupFamily_- }----- | An optional parameter that specifies the starting point to return a set of response records. When the results of a 'DescribeDefaultClusterParameters' request exceed the value specified in @MaxRecords@ , AWS returns a value in the @Marker@ field of the response. You can retrieve the next set of response records by providing the returned marker value in the @Marker@ parameter and retrying the request.-ddcpMarker :: Lens' DescribeDefaultClusterParameters (Maybe Text)-ddcpMarker = lens _ddcpMarker (\ s a -> s{_ddcpMarker = a})---- | The maximum number of response records to return in each call. If the number of remaining response records exceeds the specified @MaxRecords@ value, a value is returned in a @marker@ field of the response. You can retrieve the next set of records by retrying the command with the returned marker value. Default: @100@ Constraints: minimum 20, maximum 100.-ddcpMaxRecords :: Lens' DescribeDefaultClusterParameters (Maybe Int)-ddcpMaxRecords = lens _ddcpMaxRecords (\ s a -> s{_ddcpMaxRecords = a})---- | The name of the cluster parameter group family.-ddcpParameterGroupFamily :: Lens' DescribeDefaultClusterParameters Text-ddcpParameterGroupFamily = lens _ddcpParameterGroupFamily (\ s a -> s{_ddcpParameterGroupFamily = a})--instance AWSPager DescribeDefaultClusterParameters- where- page rq rs- | stop- (rs ^?- ddcprsDefaultClusterParameters . dcpMarker . _Just)- = Nothing- | stop- (rs ^.- ddcprsDefaultClusterParameters . dcpParameters)- = Nothing- | otherwise =- Just $ rq &- ddcpMarker .~- rs ^?- ddcprsDefaultClusterParameters . dcpMarker . _Just--instance AWSRequest DescribeDefaultClusterParameters- where- type Rs DescribeDefaultClusterParameters =- DescribeDefaultClusterParametersResponse- request = postQuery redshift- response- = receiveXMLWrapper- "DescribeDefaultClusterParametersResult"- (\ s h x ->- DescribeDefaultClusterParametersResponse' <$>- (pure (fromEnum s)) <*>- (x .@ "DefaultClusterParameters"))--instance Hashable DescribeDefaultClusterParameters- where--instance NFData DescribeDefaultClusterParameters- where--instance ToHeaders DescribeDefaultClusterParameters- where- toHeaders = const mempty--instance ToPath DescribeDefaultClusterParameters- where- toPath = const "/"--instance ToQuery DescribeDefaultClusterParameters- where- toQuery DescribeDefaultClusterParameters'{..}- = mconcat- ["Action" =:- ("DescribeDefaultClusterParameters" :: ByteString),- "Version" =: ("2012-12-01" :: ByteString),- "Marker" =: _ddcpMarker,- "MaxRecords" =: _ddcpMaxRecords,- "ParameterGroupFamily" =: _ddcpParameterGroupFamily]---- | /See:/ 'describeDefaultClusterParametersResponse' smart constructor.-data DescribeDefaultClusterParametersResponse = DescribeDefaultClusterParametersResponse'- { _ddcprsResponseStatus :: !Int- , _ddcprsDefaultClusterParameters :: !DefaultClusterParameters- } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'DescribeDefaultClusterParametersResponse' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'ddcprsResponseStatus' - -- | The response status code.------ * 'ddcprsDefaultClusterParameters' - Undocumented member.-describeDefaultClusterParametersResponse- :: Int -- ^ 'ddcprsResponseStatus'- -> DefaultClusterParameters -- ^ 'ddcprsDefaultClusterParameters'- -> DescribeDefaultClusterParametersResponse-describeDefaultClusterParametersResponse pResponseStatus_ pDefaultClusterParameters_ =- DescribeDefaultClusterParametersResponse'- { _ddcprsResponseStatus = pResponseStatus_- , _ddcprsDefaultClusterParameters = pDefaultClusterParameters_- }----- | -- | The response status code.-ddcprsResponseStatus :: Lens' DescribeDefaultClusterParametersResponse Int-ddcprsResponseStatus = lens _ddcprsResponseStatus (\ s a -> s{_ddcprsResponseStatus = a})---- | Undocumented member.-ddcprsDefaultClusterParameters :: Lens' DescribeDefaultClusterParametersResponse DefaultClusterParameters-ddcprsDefaultClusterParameters = lens _ddcprsDefaultClusterParameters (\ s a -> s{_ddcprsDefaultClusterParameters = a})--instance NFData- DescribeDefaultClusterParametersResponse- where
− gen/Network/AWS/Redshift/DescribeEventCategories.hs
@@ -1,137 +0,0 @@-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric #-}-{-# LANGUAGE OverloadedStrings #-}-{-# LANGUAGE RecordWildCards #-}-{-# LANGUAGE TypeFamilies #-}--{-# OPTIONS_GHC -fno-warn-unused-imports #-}-{-# OPTIONS_GHC -fno-warn-unused-binds #-}-{-# OPTIONS_GHC -fno-warn-unused-matches #-}---- Derived from AWS service descriptions, licensed under Apache 2.0.---- |--- Module : Network.AWS.Redshift.DescribeEventCategories--- Copyright : (c) 2013-2018 Brendan Hay--- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>--- Stability : auto-generated--- Portability : non-portable (GHC extensions)------ Displays a list of event categories for all event source types, or for a specified source type. For a list of the event categories and source types, go to <http://docs.aws.amazon.com/redshift/latest/mgmt/working-with-event-notifications.html Amazon Redshift Event Notifications> .-------module Network.AWS.Redshift.DescribeEventCategories- (- -- * Creating a Request- describeEventCategories- , DescribeEventCategories- -- * Request Lenses- , decSourceType-- -- * Destructuring the Response- , describeEventCategoriesResponse- , DescribeEventCategoriesResponse- -- * Response Lenses- , decrsEventCategoriesMapList- , decrsResponseStatus- ) where--import Network.AWS.Lens-import Network.AWS.Prelude-import Network.AWS.Redshift.Types-import Network.AWS.Redshift.Types.Product-import Network.AWS.Request-import Network.AWS.Response---- |------------ /See:/ 'describeEventCategories' smart constructor.-newtype DescribeEventCategories = DescribeEventCategories'- { _decSourceType :: Maybe Text- } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'DescribeEventCategories' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'decSourceType' - The source type, such as cluster or parameter group, to which the described event categories apply. Valid values: cluster, cluster-snapshot, cluster-parameter-group, and cluster-security-group.-describeEventCategories- :: DescribeEventCategories-describeEventCategories = DescribeEventCategories' {_decSourceType = Nothing}----- | The source type, such as cluster or parameter group, to which the described event categories apply. Valid values: cluster, cluster-snapshot, cluster-parameter-group, and cluster-security-group.-decSourceType :: Lens' DescribeEventCategories (Maybe Text)-decSourceType = lens _decSourceType (\ s a -> s{_decSourceType = a})--instance AWSRequest DescribeEventCategories where- type Rs DescribeEventCategories =- DescribeEventCategoriesResponse- request = postQuery redshift- response- = receiveXMLWrapper "DescribeEventCategoriesResult"- (\ s h x ->- DescribeEventCategoriesResponse' <$>- (x .@? "EventCategoriesMapList" .!@ mempty >>=- may (parseXMLList "EventCategoriesMap"))- <*> (pure (fromEnum s)))--instance Hashable DescribeEventCategories where--instance NFData DescribeEventCategories where--instance ToHeaders DescribeEventCategories where- toHeaders = const mempty--instance ToPath DescribeEventCategories where- toPath = const "/"--instance ToQuery DescribeEventCategories where- toQuery DescribeEventCategories'{..}- = mconcat- ["Action" =:- ("DescribeEventCategories" :: ByteString),- "Version" =: ("2012-12-01" :: ByteString),- "SourceType" =: _decSourceType]---- |------------ /See:/ 'describeEventCategoriesResponse' smart constructor.-data DescribeEventCategoriesResponse = DescribeEventCategoriesResponse'- { _decrsEventCategoriesMapList :: !(Maybe [EventCategoriesMap])- , _decrsResponseStatus :: !Int- } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'DescribeEventCategoriesResponse' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'decrsEventCategoriesMapList' - A list of event categories descriptions.------ * 'decrsResponseStatus' - -- | The response status code.-describeEventCategoriesResponse- :: Int -- ^ 'decrsResponseStatus'- -> DescribeEventCategoriesResponse-describeEventCategoriesResponse pResponseStatus_ =- DescribeEventCategoriesResponse'- { _decrsEventCategoriesMapList = Nothing- , _decrsResponseStatus = pResponseStatus_- }----- | A list of event categories descriptions.-decrsEventCategoriesMapList :: Lens' DescribeEventCategoriesResponse [EventCategoriesMap]-decrsEventCategoriesMapList = lens _decrsEventCategoriesMapList (\ s a -> s{_decrsEventCategoriesMapList = a}) . _Default . _Coerce---- | -- | The response status code.-decrsResponseStatus :: Lens' DescribeEventCategoriesResponse Int-decrsResponseStatus = lens _decrsResponseStatus (\ s a -> s{_decrsResponseStatus = a})--instance NFData DescribeEventCategoriesResponse where
− gen/Network/AWS/Redshift/DescribeEventSubscriptions.hs
@@ -1,208 +0,0 @@-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric #-}-{-# LANGUAGE OverloadedStrings #-}-{-# LANGUAGE RecordWildCards #-}-{-# LANGUAGE TypeFamilies #-}--{-# OPTIONS_GHC -fno-warn-unused-imports #-}-{-# OPTIONS_GHC -fno-warn-unused-binds #-}-{-# OPTIONS_GHC -fno-warn-unused-matches #-}---- Derived from AWS service descriptions, licensed under Apache 2.0.---- |--- Module : Network.AWS.Redshift.DescribeEventSubscriptions--- Copyright : (c) 2013-2018 Brendan Hay--- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>--- Stability : auto-generated--- Portability : non-portable (GHC extensions)------ Lists descriptions of all the Amazon Redshift event notification subscriptions for a customer account. If you specify a subscription name, lists the description for that subscription.--------- If you specify both tag keys and tag values in the same request, Amazon Redshift returns all event notification subscriptions that match any combination of the specified keys and values. For example, if you have @owner@ and @environment@ for tag keys, and @admin@ and @test@ for tag values, all subscriptions that have any combination of those values are returned.------ If both tag keys and values are omitted from the request, subscriptions are returned regardless of whether they have tag keys or values associated with them.--------- This operation returns paginated results.-module Network.AWS.Redshift.DescribeEventSubscriptions- (- -- * Creating a Request- describeEventSubscriptions- , DescribeEventSubscriptions- -- * Request Lenses- , dessSubscriptionName- , dessTagValues- , dessTagKeys- , dessMarker- , dessMaxRecords-- -- * Destructuring the Response- , describeEventSubscriptionsResponse- , DescribeEventSubscriptionsResponse- -- * Response Lenses- , desrsEventSubscriptionsList- , desrsMarker- , desrsResponseStatus- ) where--import Network.AWS.Lens-import Network.AWS.Pager-import Network.AWS.Prelude-import Network.AWS.Redshift.Types-import Network.AWS.Redshift.Types.Product-import Network.AWS.Request-import Network.AWS.Response---- |------------ /See:/ 'describeEventSubscriptions' smart constructor.-data DescribeEventSubscriptions = DescribeEventSubscriptions'- { _dessSubscriptionName :: !(Maybe Text)- , _dessTagValues :: !(Maybe [Text])- , _dessTagKeys :: !(Maybe [Text])- , _dessMarker :: !(Maybe Text)- , _dessMaxRecords :: !(Maybe Int)- } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'DescribeEventSubscriptions' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'dessSubscriptionName' - The name of the Amazon Redshift event notification subscription to be described.------ * 'dessTagValues' - A tag value or values for which you want to return all matching event notification subscriptions that are associated with the specified tag value or values. For example, suppose that you have subscriptions that are tagged with values called @admin@ and @test@ . If you specify both of these tag values in the request, Amazon Redshift returns a response with the subscriptions that have either or both of these tag values associated with them.------ * 'dessTagKeys' - A tag key or keys for which you want to return all matching event notification subscriptions that are associated with the specified key or keys. For example, suppose that you have subscriptions that are tagged with keys called @owner@ and @environment@ . If you specify both of these tag keys in the request, Amazon Redshift returns a response with the subscriptions that have either or both of these tag keys associated with them.------ * 'dessMarker' - An optional parameter that specifies the starting point to return a set of response records. When the results of a DescribeEventSubscriptions request exceed the value specified in @MaxRecords@ , AWS returns a value in the @Marker@ field of the response. You can retrieve the next set of response records by providing the returned marker value in the @Marker@ parameter and retrying the request.------ * 'dessMaxRecords' - The maximum number of response records to return in each call. If the number of remaining response records exceeds the specified @MaxRecords@ value, a value is returned in a @marker@ field of the response. You can retrieve the next set of records by retrying the command with the returned marker value. Default: @100@ Constraints: minimum 20, maximum 100.-describeEventSubscriptions- :: DescribeEventSubscriptions-describeEventSubscriptions =- DescribeEventSubscriptions'- { _dessSubscriptionName = Nothing- , _dessTagValues = Nothing- , _dessTagKeys = Nothing- , _dessMarker = Nothing- , _dessMaxRecords = Nothing- }----- | The name of the Amazon Redshift event notification subscription to be described.-dessSubscriptionName :: Lens' DescribeEventSubscriptions (Maybe Text)-dessSubscriptionName = lens _dessSubscriptionName (\ s a -> s{_dessSubscriptionName = a})---- | A tag value or values for which you want to return all matching event notification subscriptions that are associated with the specified tag value or values. For example, suppose that you have subscriptions that are tagged with values called @admin@ and @test@ . If you specify both of these tag values in the request, Amazon Redshift returns a response with the subscriptions that have either or both of these tag values associated with them.-dessTagValues :: Lens' DescribeEventSubscriptions [Text]-dessTagValues = lens _dessTagValues (\ s a -> s{_dessTagValues = a}) . _Default . _Coerce---- | A tag key or keys for which you want to return all matching event notification subscriptions that are associated with the specified key or keys. For example, suppose that you have subscriptions that are tagged with keys called @owner@ and @environment@ . If you specify both of these tag keys in the request, Amazon Redshift returns a response with the subscriptions that have either or both of these tag keys associated with them.-dessTagKeys :: Lens' DescribeEventSubscriptions [Text]-dessTagKeys = lens _dessTagKeys (\ s a -> s{_dessTagKeys = a}) . _Default . _Coerce---- | An optional parameter that specifies the starting point to return a set of response records. When the results of a DescribeEventSubscriptions request exceed the value specified in @MaxRecords@ , AWS returns a value in the @Marker@ field of the response. You can retrieve the next set of response records by providing the returned marker value in the @Marker@ parameter and retrying the request.-dessMarker :: Lens' DescribeEventSubscriptions (Maybe Text)-dessMarker = lens _dessMarker (\ s a -> s{_dessMarker = a})---- | The maximum number of response records to return in each call. If the number of remaining response records exceeds the specified @MaxRecords@ value, a value is returned in a @marker@ field of the response. You can retrieve the next set of records by retrying the command with the returned marker value. Default: @100@ Constraints: minimum 20, maximum 100.-dessMaxRecords :: Lens' DescribeEventSubscriptions (Maybe Int)-dessMaxRecords = lens _dessMaxRecords (\ s a -> s{_dessMaxRecords = a})--instance AWSPager DescribeEventSubscriptions where- page rq rs- | stop (rs ^. desrsMarker) = Nothing- | stop (rs ^. desrsEventSubscriptionsList) = Nothing- | otherwise =- Just $ rq & dessMarker .~ rs ^. desrsMarker--instance AWSRequest DescribeEventSubscriptions where- type Rs DescribeEventSubscriptions =- DescribeEventSubscriptionsResponse- request = postQuery redshift- response- = receiveXMLWrapper- "DescribeEventSubscriptionsResult"- (\ s h x ->- DescribeEventSubscriptionsResponse' <$>- (x .@? "EventSubscriptionsList" .!@ mempty >>=- may (parseXMLList "EventSubscription"))- <*> (x .@? "Marker")- <*> (pure (fromEnum s)))--instance Hashable DescribeEventSubscriptions where--instance NFData DescribeEventSubscriptions where--instance ToHeaders DescribeEventSubscriptions where- toHeaders = const mempty--instance ToPath DescribeEventSubscriptions where- toPath = const "/"--instance ToQuery DescribeEventSubscriptions where- toQuery DescribeEventSubscriptions'{..}- = mconcat- ["Action" =:- ("DescribeEventSubscriptions" :: ByteString),- "Version" =: ("2012-12-01" :: ByteString),- "SubscriptionName" =: _dessSubscriptionName,- "TagValues" =:- toQuery (toQueryList "TagValue" <$> _dessTagValues),- "TagKeys" =:- toQuery (toQueryList "TagKey" <$> _dessTagKeys),- "Marker" =: _dessMarker,- "MaxRecords" =: _dessMaxRecords]---- |------------ /See:/ 'describeEventSubscriptionsResponse' smart constructor.-data DescribeEventSubscriptionsResponse = DescribeEventSubscriptionsResponse'- { _desrsEventSubscriptionsList :: !(Maybe [EventSubscription])- , _desrsMarker :: !(Maybe Text)- , _desrsResponseStatus :: !Int- } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'DescribeEventSubscriptionsResponse' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'desrsEventSubscriptionsList' - A list of event subscriptions.------ * 'desrsMarker' - A value that indicates the starting point for the next set of response records in a subsequent request. If a value is returned in a response, you can retrieve the next set of records by providing this returned marker value in the @Marker@ parameter and retrying the command. If the @Marker@ field is empty, all response records have been retrieved for the request.------ * 'desrsResponseStatus' - -- | The response status code.-describeEventSubscriptionsResponse- :: Int -- ^ 'desrsResponseStatus'- -> DescribeEventSubscriptionsResponse-describeEventSubscriptionsResponse pResponseStatus_ =- DescribeEventSubscriptionsResponse'- { _desrsEventSubscriptionsList = Nothing- , _desrsMarker = Nothing- , _desrsResponseStatus = pResponseStatus_- }----- | A list of event subscriptions.-desrsEventSubscriptionsList :: Lens' DescribeEventSubscriptionsResponse [EventSubscription]-desrsEventSubscriptionsList = lens _desrsEventSubscriptionsList (\ s a -> s{_desrsEventSubscriptionsList = a}) . _Default . _Coerce---- | A value that indicates the starting point for the next set of response records in a subsequent request. If a value is returned in a response, you can retrieve the next set of records by providing this returned marker value in the @Marker@ parameter and retrying the command. If the @Marker@ field is empty, all response records have been retrieved for the request.-desrsMarker :: Lens' DescribeEventSubscriptionsResponse (Maybe Text)-desrsMarker = lens _desrsMarker (\ s a -> s{_desrsMarker = a})---- | -- | The response status code.-desrsResponseStatus :: Lens' DescribeEventSubscriptionsResponse Int-desrsResponseStatus = lens _desrsResponseStatus (\ s a -> s{_desrsResponseStatus = a})--instance NFData DescribeEventSubscriptionsResponse- where
− gen/Network/AWS/Redshift/DescribeEvents.hs
@@ -1,216 +0,0 @@-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric #-}-{-# LANGUAGE OverloadedStrings #-}-{-# LANGUAGE RecordWildCards #-}-{-# LANGUAGE TypeFamilies #-}--{-# OPTIONS_GHC -fno-warn-unused-imports #-}-{-# OPTIONS_GHC -fno-warn-unused-binds #-}-{-# OPTIONS_GHC -fno-warn-unused-matches #-}---- Derived from AWS service descriptions, licensed under Apache 2.0.---- |--- Module : Network.AWS.Redshift.DescribeEvents--- Copyright : (c) 2013-2018 Brendan Hay--- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>--- Stability : auto-generated--- Portability : non-portable (GHC extensions)------ Returns events related to clusters, security groups, snapshots, and parameter groups for the past 14 days. Events specific to a particular cluster, security group, snapshot or parameter group can be obtained by providing the name as a parameter. By default, the past hour of events are returned.------------ This operation returns paginated results.-module Network.AWS.Redshift.DescribeEvents- (- -- * Creating a Request- describeEvents- , DescribeEvents- -- * Request Lenses- , deStartTime- , deSourceType- , deSourceIdentifier- , deMarker- , deMaxRecords- , deEndTime- , deDuration-- -- * Destructuring the Response- , describeEventsResponse- , DescribeEventsResponse- -- * Response Lenses- , dersEvents- , dersMarker- , dersResponseStatus- ) where--import Network.AWS.Lens-import Network.AWS.Pager-import Network.AWS.Prelude-import Network.AWS.Redshift.Types-import Network.AWS.Redshift.Types.Product-import Network.AWS.Request-import Network.AWS.Response---- |------------ /See:/ 'describeEvents' smart constructor.-data DescribeEvents = DescribeEvents'- { _deStartTime :: !(Maybe ISO8601)- , _deSourceType :: !(Maybe SourceType)- , _deSourceIdentifier :: !(Maybe Text)- , _deMarker :: !(Maybe Text)- , _deMaxRecords :: !(Maybe Int)- , _deEndTime :: !(Maybe ISO8601)- , _deDuration :: !(Maybe Int)- } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'DescribeEvents' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'deStartTime' - The beginning of the time interval to retrieve events for, specified in ISO 8601 format. For more information about ISO 8601, go to the <http://en.wikipedia.org/wiki/ISO_8601 ISO8601 Wikipedia page.> Example: @2009-07-08T18:00Z@------ * 'deSourceType' - The event source to retrieve events for. If no value is specified, all events are returned. Constraints: If /SourceType/ is supplied, /SourceIdentifier/ must also be provided. * Specify @cluster@ when /SourceIdentifier/ is a cluster identifier. * Specify @cluster-security-group@ when /SourceIdentifier/ is a cluster security group name. * Specify @cluster-parameter-group@ when /SourceIdentifier/ is a cluster parameter group name. * Specify @cluster-snapshot@ when /SourceIdentifier/ is a cluster snapshot identifier.------ * 'deSourceIdentifier' - The identifier of the event source for which events will be returned. If this parameter is not specified, then all sources are included in the response. Constraints: If /SourceIdentifier/ is supplied, /SourceType/ must also be provided. * Specify a cluster identifier when /SourceType/ is @cluster@ . * Specify a cluster security group name when /SourceType/ is @cluster-security-group@ . * Specify a cluster parameter group name when /SourceType/ is @cluster-parameter-group@ . * Specify a cluster snapshot identifier when /SourceType/ is @cluster-snapshot@ .------ * 'deMarker' - An optional parameter that specifies the starting point to return a set of response records. When the results of a 'DescribeEvents' request exceed the value specified in @MaxRecords@ , AWS returns a value in the @Marker@ field of the response. You can retrieve the next set of response records by providing the returned marker value in the @Marker@ parameter and retrying the request.------ * 'deMaxRecords' - The maximum number of response records to return in each call. If the number of remaining response records exceeds the specified @MaxRecords@ value, a value is returned in a @marker@ field of the response. You can retrieve the next set of records by retrying the command with the returned marker value. Default: @100@ Constraints: minimum 20, maximum 100.------ * 'deEndTime' - The end of the time interval for which to retrieve events, specified in ISO 8601 format. For more information about ISO 8601, go to the <http://en.wikipedia.org/wiki/ISO_8601 ISO8601 Wikipedia page.> Example: @2009-07-08T18:00Z@------ * 'deDuration' - The number of minutes prior to the time of the request for which to retrieve events. For example, if the request is sent at 18:00 and you specify a duration of 60, then only events which have occurred after 17:00 will be returned. Default: @60@-describeEvents- :: DescribeEvents-describeEvents =- DescribeEvents'- { _deStartTime = Nothing- , _deSourceType = Nothing- , _deSourceIdentifier = Nothing- , _deMarker = Nothing- , _deMaxRecords = Nothing- , _deEndTime = Nothing- , _deDuration = Nothing- }----- | The beginning of the time interval to retrieve events for, specified in ISO 8601 format. For more information about ISO 8601, go to the <http://en.wikipedia.org/wiki/ISO_8601 ISO8601 Wikipedia page.> Example: @2009-07-08T18:00Z@-deStartTime :: Lens' DescribeEvents (Maybe UTCTime)-deStartTime = lens _deStartTime (\ s a -> s{_deStartTime = a}) . mapping _Time---- | The event source to retrieve events for. If no value is specified, all events are returned. Constraints: If /SourceType/ is supplied, /SourceIdentifier/ must also be provided. * Specify @cluster@ when /SourceIdentifier/ is a cluster identifier. * Specify @cluster-security-group@ when /SourceIdentifier/ is a cluster security group name. * Specify @cluster-parameter-group@ when /SourceIdentifier/ is a cluster parameter group name. * Specify @cluster-snapshot@ when /SourceIdentifier/ is a cluster snapshot identifier.-deSourceType :: Lens' DescribeEvents (Maybe SourceType)-deSourceType = lens _deSourceType (\ s a -> s{_deSourceType = a})---- | The identifier of the event source for which events will be returned. If this parameter is not specified, then all sources are included in the response. Constraints: If /SourceIdentifier/ is supplied, /SourceType/ must also be provided. * Specify a cluster identifier when /SourceType/ is @cluster@ . * Specify a cluster security group name when /SourceType/ is @cluster-security-group@ . * Specify a cluster parameter group name when /SourceType/ is @cluster-parameter-group@ . * Specify a cluster snapshot identifier when /SourceType/ is @cluster-snapshot@ .-deSourceIdentifier :: Lens' DescribeEvents (Maybe Text)-deSourceIdentifier = lens _deSourceIdentifier (\ s a -> s{_deSourceIdentifier = a})---- | An optional parameter that specifies the starting point to return a set of response records. When the results of a 'DescribeEvents' request exceed the value specified in @MaxRecords@ , AWS returns a value in the @Marker@ field of the response. You can retrieve the next set of response records by providing the returned marker value in the @Marker@ parameter and retrying the request.-deMarker :: Lens' DescribeEvents (Maybe Text)-deMarker = lens _deMarker (\ s a -> s{_deMarker = a})---- | The maximum number of response records to return in each call. If the number of remaining response records exceeds the specified @MaxRecords@ value, a value is returned in a @marker@ field of the response. You can retrieve the next set of records by retrying the command with the returned marker value. Default: @100@ Constraints: minimum 20, maximum 100.-deMaxRecords :: Lens' DescribeEvents (Maybe Int)-deMaxRecords = lens _deMaxRecords (\ s a -> s{_deMaxRecords = a})---- | The end of the time interval for which to retrieve events, specified in ISO 8601 format. For more information about ISO 8601, go to the <http://en.wikipedia.org/wiki/ISO_8601 ISO8601 Wikipedia page.> Example: @2009-07-08T18:00Z@-deEndTime :: Lens' DescribeEvents (Maybe UTCTime)-deEndTime = lens _deEndTime (\ s a -> s{_deEndTime = a}) . mapping _Time---- | The number of minutes prior to the time of the request for which to retrieve events. For example, if the request is sent at 18:00 and you specify a duration of 60, then only events which have occurred after 17:00 will be returned. Default: @60@-deDuration :: Lens' DescribeEvents (Maybe Int)-deDuration = lens _deDuration (\ s a -> s{_deDuration = a})--instance AWSPager DescribeEvents where- page rq rs- | stop (rs ^. dersMarker) = Nothing- | stop (rs ^. dersEvents) = Nothing- | otherwise =- Just $ rq & deMarker .~ rs ^. dersMarker--instance AWSRequest DescribeEvents where- type Rs DescribeEvents = DescribeEventsResponse- request = postQuery redshift- response- = receiveXMLWrapper "DescribeEventsResult"- (\ s h x ->- DescribeEventsResponse' <$>- (x .@? "Events" .!@ mempty >>=- may (parseXMLList "Event"))- <*> (x .@? "Marker")- <*> (pure (fromEnum s)))--instance Hashable DescribeEvents where--instance NFData DescribeEvents where--instance ToHeaders DescribeEvents where- toHeaders = const mempty--instance ToPath DescribeEvents where- toPath = const "/"--instance ToQuery DescribeEvents where- toQuery DescribeEvents'{..}- = mconcat- ["Action" =: ("DescribeEvents" :: ByteString),- "Version" =: ("2012-12-01" :: ByteString),- "StartTime" =: _deStartTime,- "SourceType" =: _deSourceType,- "SourceIdentifier" =: _deSourceIdentifier,- "Marker" =: _deMarker, "MaxRecords" =: _deMaxRecords,- "EndTime" =: _deEndTime, "Duration" =: _deDuration]---- |------------ /See:/ 'describeEventsResponse' smart constructor.-data DescribeEventsResponse = DescribeEventsResponse'- { _dersEvents :: !(Maybe [Event])- , _dersMarker :: !(Maybe Text)- , _dersResponseStatus :: !Int- } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'DescribeEventsResponse' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'dersEvents' - A list of @Event@ instances.------ * 'dersMarker' - A value that indicates the starting point for the next set of response records in a subsequent request. If a value is returned in a response, you can retrieve the next set of records by providing this returned marker value in the @Marker@ parameter and retrying the command. If the @Marker@ field is empty, all response records have been retrieved for the request.------ * 'dersResponseStatus' - -- | The response status code.-describeEventsResponse- :: Int -- ^ 'dersResponseStatus'- -> DescribeEventsResponse-describeEventsResponse pResponseStatus_ =- DescribeEventsResponse'- { _dersEvents = Nothing- , _dersMarker = Nothing- , _dersResponseStatus = pResponseStatus_- }----- | A list of @Event@ instances.-dersEvents :: Lens' DescribeEventsResponse [Event]-dersEvents = lens _dersEvents (\ s a -> s{_dersEvents = a}) . _Default . _Coerce---- | A value that indicates the starting point for the next set of response records in a subsequent request. If a value is returned in a response, you can retrieve the next set of records by providing this returned marker value in the @Marker@ parameter and retrying the command. If the @Marker@ field is empty, all response records have been retrieved for the request.-dersMarker :: Lens' DescribeEventsResponse (Maybe Text)-dersMarker = lens _dersMarker (\ s a -> s{_dersMarker = a})---- | -- | The response status code.-dersResponseStatus :: Lens' DescribeEventsResponse Int-dersResponseStatus = lens _dersResponseStatus (\ s a -> s{_dersResponseStatus = a})--instance NFData DescribeEventsResponse where
− gen/Network/AWS/Redshift/DescribeHSMClientCertificates.hs
@@ -1,211 +0,0 @@-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric #-}-{-# LANGUAGE OverloadedStrings #-}-{-# LANGUAGE RecordWildCards #-}-{-# LANGUAGE TypeFamilies #-}--{-# OPTIONS_GHC -fno-warn-unused-imports #-}-{-# OPTIONS_GHC -fno-warn-unused-binds #-}-{-# OPTIONS_GHC -fno-warn-unused-matches #-}---- Derived from AWS service descriptions, licensed under Apache 2.0.---- |--- Module : Network.AWS.Redshift.DescribeHSMClientCertificates--- Copyright : (c) 2013-2018 Brendan Hay--- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>--- Stability : auto-generated--- Portability : non-portable (GHC extensions)------ Returns information about the specified HSM client certificate. If no certificate ID is specified, returns information about all the HSM certificates owned by your AWS customer account.--------- If you specify both tag keys and tag values in the same request, Amazon Redshift returns all HSM client certificates that match any combination of the specified keys and values. For example, if you have @owner@ and @environment@ for tag keys, and @admin@ and @test@ for tag values, all HSM client certificates that have any combination of those values are returned.------ If both tag keys and values are omitted from the request, HSM client certificates are returned regardless of whether they have tag keys or values associated with them.--------- This operation returns paginated results.-module Network.AWS.Redshift.DescribeHSMClientCertificates- (- -- * Creating a Request- describeHSMClientCertificates- , DescribeHSMClientCertificates- -- * Request Lenses- , dhccTagValues- , dhccTagKeys- , dhccHSMClientCertificateIdentifier- , dhccMarker- , dhccMaxRecords-- -- * Destructuring the Response- , describeHSMClientCertificatesResponse- , DescribeHSMClientCertificatesResponse- -- * Response Lenses- , dhccrsMarker- , dhccrsHSMClientCertificates- , dhccrsResponseStatus- ) where--import Network.AWS.Lens-import Network.AWS.Pager-import Network.AWS.Prelude-import Network.AWS.Redshift.Types-import Network.AWS.Redshift.Types.Product-import Network.AWS.Request-import Network.AWS.Response---- |------------ /See:/ 'describeHSMClientCertificates' smart constructor.-data DescribeHSMClientCertificates = DescribeHSMClientCertificates'- { _dhccTagValues :: !(Maybe [Text])- , _dhccTagKeys :: !(Maybe [Text])- , _dhccHSMClientCertificateIdentifier :: !(Maybe Text)- , _dhccMarker :: !(Maybe Text)- , _dhccMaxRecords :: !(Maybe Int)- } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'DescribeHSMClientCertificates' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'dhccTagValues' - A tag value or values for which you want to return all matching HSM client certificates that are associated with the specified tag value or values. For example, suppose that you have HSM client certificates that are tagged with values called @admin@ and @test@ . If you specify both of these tag values in the request, Amazon Redshift returns a response with the HSM client certificates that have either or both of these tag values associated with them.------ * 'dhccTagKeys' - A tag key or keys for which you want to return all matching HSM client certificates that are associated with the specified key or keys. For example, suppose that you have HSM client certificates that are tagged with keys called @owner@ and @environment@ . If you specify both of these tag keys in the request, Amazon Redshift returns a response with the HSM client certificates that have either or both of these tag keys associated with them.------ * 'dhccHSMClientCertificateIdentifier' - The identifier of a specific HSM client certificate for which you want information. If no identifier is specified, information is returned for all HSM client certificates owned by your AWS customer account.------ * 'dhccMarker' - An optional parameter that specifies the starting point to return a set of response records. When the results of a 'DescribeHsmClientCertificates' request exceed the value specified in @MaxRecords@ , AWS returns a value in the @Marker@ field of the response. You can retrieve the next set of response records by providing the returned marker value in the @Marker@ parameter and retrying the request.------ * 'dhccMaxRecords' - The maximum number of response records to return in each call. If the number of remaining response records exceeds the specified @MaxRecords@ value, a value is returned in a @marker@ field of the response. You can retrieve the next set of records by retrying the command with the returned marker value. Default: @100@ Constraints: minimum 20, maximum 100.-describeHSMClientCertificates- :: DescribeHSMClientCertificates-describeHSMClientCertificates =- DescribeHSMClientCertificates'- { _dhccTagValues = Nothing- , _dhccTagKeys = Nothing- , _dhccHSMClientCertificateIdentifier = Nothing- , _dhccMarker = Nothing- , _dhccMaxRecords = Nothing- }----- | A tag value or values for which you want to return all matching HSM client certificates that are associated with the specified tag value or values. For example, suppose that you have HSM client certificates that are tagged with values called @admin@ and @test@ . If you specify both of these tag values in the request, Amazon Redshift returns a response with the HSM client certificates that have either or both of these tag values associated with them.-dhccTagValues :: Lens' DescribeHSMClientCertificates [Text]-dhccTagValues = lens _dhccTagValues (\ s a -> s{_dhccTagValues = a}) . _Default . _Coerce---- | A tag key or keys for which you want to return all matching HSM client certificates that are associated with the specified key or keys. For example, suppose that you have HSM client certificates that are tagged with keys called @owner@ and @environment@ . If you specify both of these tag keys in the request, Amazon Redshift returns a response with the HSM client certificates that have either or both of these tag keys associated with them.-dhccTagKeys :: Lens' DescribeHSMClientCertificates [Text]-dhccTagKeys = lens _dhccTagKeys (\ s a -> s{_dhccTagKeys = a}) . _Default . _Coerce---- | The identifier of a specific HSM client certificate for which you want information. If no identifier is specified, information is returned for all HSM client certificates owned by your AWS customer account.-dhccHSMClientCertificateIdentifier :: Lens' DescribeHSMClientCertificates (Maybe Text)-dhccHSMClientCertificateIdentifier = lens _dhccHSMClientCertificateIdentifier (\ s a -> s{_dhccHSMClientCertificateIdentifier = a})---- | An optional parameter that specifies the starting point to return a set of response records. When the results of a 'DescribeHsmClientCertificates' request exceed the value specified in @MaxRecords@ , AWS returns a value in the @Marker@ field of the response. You can retrieve the next set of response records by providing the returned marker value in the @Marker@ parameter and retrying the request.-dhccMarker :: Lens' DescribeHSMClientCertificates (Maybe Text)-dhccMarker = lens _dhccMarker (\ s a -> s{_dhccMarker = a})---- | The maximum number of response records to return in each call. If the number of remaining response records exceeds the specified @MaxRecords@ value, a value is returned in a @marker@ field of the response. You can retrieve the next set of records by retrying the command with the returned marker value. Default: @100@ Constraints: minimum 20, maximum 100.-dhccMaxRecords :: Lens' DescribeHSMClientCertificates (Maybe Int)-dhccMaxRecords = lens _dhccMaxRecords (\ s a -> s{_dhccMaxRecords = a})--instance AWSPager DescribeHSMClientCertificates where- page rq rs- | stop (rs ^. dhccrsMarker) = Nothing- | stop (rs ^. dhccrsHSMClientCertificates) = Nothing- | otherwise =- Just $ rq & dhccMarker .~ rs ^. dhccrsMarker--instance AWSRequest DescribeHSMClientCertificates- where- type Rs DescribeHSMClientCertificates =- DescribeHSMClientCertificatesResponse- request = postQuery redshift- response- = receiveXMLWrapper- "DescribeHsmClientCertificatesResult"- (\ s h x ->- DescribeHSMClientCertificatesResponse' <$>- (x .@? "Marker") <*>- (x .@? "HsmClientCertificates" .!@ mempty >>=- may (parseXMLList "HsmClientCertificate"))- <*> (pure (fromEnum s)))--instance Hashable DescribeHSMClientCertificates where--instance NFData DescribeHSMClientCertificates where--instance ToHeaders DescribeHSMClientCertificates- where- toHeaders = const mempty--instance ToPath DescribeHSMClientCertificates where- toPath = const "/"--instance ToQuery DescribeHSMClientCertificates where- toQuery DescribeHSMClientCertificates'{..}- = mconcat- ["Action" =:- ("DescribeHsmClientCertificates" :: ByteString),- "Version" =: ("2012-12-01" :: ByteString),- "TagValues" =:- toQuery (toQueryList "TagValue" <$> _dhccTagValues),- "TagKeys" =:- toQuery (toQueryList "TagKey" <$> _dhccTagKeys),- "HsmClientCertificateIdentifier" =:- _dhccHSMClientCertificateIdentifier,- "Marker" =: _dhccMarker,- "MaxRecords" =: _dhccMaxRecords]---- |------------ /See:/ 'describeHSMClientCertificatesResponse' smart constructor.-data DescribeHSMClientCertificatesResponse = DescribeHSMClientCertificatesResponse'- { _dhccrsMarker :: !(Maybe Text)- , _dhccrsHSMClientCertificates :: !(Maybe [HSMClientCertificate])- , _dhccrsResponseStatus :: !Int- } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'DescribeHSMClientCertificatesResponse' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'dhccrsMarker' - A value that indicates the starting point for the next set of response records in a subsequent request. If a value is returned in a response, you can retrieve the next set of records by providing this returned marker value in the @Marker@ parameter and retrying the command. If the @Marker@ field is empty, all response records have been retrieved for the request.------ * 'dhccrsHSMClientCertificates' - A list of the identifiers for one or more HSM client certificates used by Amazon Redshift clusters to store and retrieve database encryption keys in an HSM.------ * 'dhccrsResponseStatus' - -- | The response status code.-describeHSMClientCertificatesResponse- :: Int -- ^ 'dhccrsResponseStatus'- -> DescribeHSMClientCertificatesResponse-describeHSMClientCertificatesResponse pResponseStatus_ =- DescribeHSMClientCertificatesResponse'- { _dhccrsMarker = Nothing- , _dhccrsHSMClientCertificates = Nothing- , _dhccrsResponseStatus = pResponseStatus_- }----- | A value that indicates the starting point for the next set of response records in a subsequent request. If a value is returned in a response, you can retrieve the next set of records by providing this returned marker value in the @Marker@ parameter and retrying the command. If the @Marker@ field is empty, all response records have been retrieved for the request.-dhccrsMarker :: Lens' DescribeHSMClientCertificatesResponse (Maybe Text)-dhccrsMarker = lens _dhccrsMarker (\ s a -> s{_dhccrsMarker = a})---- | A list of the identifiers for one or more HSM client certificates used by Amazon Redshift clusters to store and retrieve database encryption keys in an HSM.-dhccrsHSMClientCertificates :: Lens' DescribeHSMClientCertificatesResponse [HSMClientCertificate]-dhccrsHSMClientCertificates = lens _dhccrsHSMClientCertificates (\ s a -> s{_dhccrsHSMClientCertificates = a}) . _Default . _Coerce---- | -- | The response status code.-dhccrsResponseStatus :: Lens' DescribeHSMClientCertificatesResponse Int-dhccrsResponseStatus = lens _dhccrsResponseStatus (\ s a -> s{_dhccrsResponseStatus = a})--instance NFData DescribeHSMClientCertificatesResponse- where
− gen/Network/AWS/Redshift/DescribeHSMConfigurations.hs
@@ -1,208 +0,0 @@-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric #-}-{-# LANGUAGE OverloadedStrings #-}-{-# LANGUAGE RecordWildCards #-}-{-# LANGUAGE TypeFamilies #-}--{-# OPTIONS_GHC -fno-warn-unused-imports #-}-{-# OPTIONS_GHC -fno-warn-unused-binds #-}-{-# OPTIONS_GHC -fno-warn-unused-matches #-}---- Derived from AWS service descriptions, licensed under Apache 2.0.---- |--- Module : Network.AWS.Redshift.DescribeHSMConfigurations--- Copyright : (c) 2013-2018 Brendan Hay--- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>--- Stability : auto-generated--- Portability : non-portable (GHC extensions)------ Returns information about the specified Amazon Redshift HSM configuration. If no configuration ID is specified, returns information about all the HSM configurations owned by your AWS customer account.--------- If you specify both tag keys and tag values in the same request, Amazon Redshift returns all HSM connections that match any combination of the specified keys and values. For example, if you have @owner@ and @environment@ for tag keys, and @admin@ and @test@ for tag values, all HSM connections that have any combination of those values are returned.------ If both tag keys and values are omitted from the request, HSM connections are returned regardless of whether they have tag keys or values associated with them.--------- This operation returns paginated results.-module Network.AWS.Redshift.DescribeHSMConfigurations- (- -- * Creating a Request- describeHSMConfigurations- , DescribeHSMConfigurations- -- * Request Lenses- , dhsmcTagValues- , dhsmcHSMConfigurationIdentifier- , dhsmcTagKeys- , dhsmcMarker- , dhsmcMaxRecords-- -- * Destructuring the Response- , describeHSMConfigurationsResponse- , DescribeHSMConfigurationsResponse- -- * Response Lenses- , dhcrsMarker- , dhcrsHSMConfigurations- , dhcrsResponseStatus- ) where--import Network.AWS.Lens-import Network.AWS.Pager-import Network.AWS.Prelude-import Network.AWS.Redshift.Types-import Network.AWS.Redshift.Types.Product-import Network.AWS.Request-import Network.AWS.Response---- |------------ /See:/ 'describeHSMConfigurations' smart constructor.-data DescribeHSMConfigurations = DescribeHSMConfigurations'- { _dhsmcTagValues :: !(Maybe [Text])- , _dhsmcHSMConfigurationIdentifier :: !(Maybe Text)- , _dhsmcTagKeys :: !(Maybe [Text])- , _dhsmcMarker :: !(Maybe Text)- , _dhsmcMaxRecords :: !(Maybe Int)- } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'DescribeHSMConfigurations' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'dhsmcTagValues' - A tag value or values for which you want to return all matching HSM configurations that are associated with the specified tag value or values. For example, suppose that you have HSM configurations that are tagged with values called @admin@ and @test@ . If you specify both of these tag values in the request, Amazon Redshift returns a response with the HSM configurations that have either or both of these tag values associated with them.------ * 'dhsmcHSMConfigurationIdentifier' - The identifier of a specific Amazon Redshift HSM configuration to be described. If no identifier is specified, information is returned for all HSM configurations owned by your AWS customer account.------ * 'dhsmcTagKeys' - A tag key or keys for which you want to return all matching HSM configurations that are associated with the specified key or keys. For example, suppose that you have HSM configurations that are tagged with keys called @owner@ and @environment@ . If you specify both of these tag keys in the request, Amazon Redshift returns a response with the HSM configurations that have either or both of these tag keys associated with them.------ * 'dhsmcMarker' - An optional parameter that specifies the starting point to return a set of response records. When the results of a 'DescribeHsmConfigurations' request exceed the value specified in @MaxRecords@ , AWS returns a value in the @Marker@ field of the response. You can retrieve the next set of response records by providing the returned marker value in the @Marker@ parameter and retrying the request.------ * 'dhsmcMaxRecords' - The maximum number of response records to return in each call. If the number of remaining response records exceeds the specified @MaxRecords@ value, a value is returned in a @marker@ field of the response. You can retrieve the next set of records by retrying the command with the returned marker value. Default: @100@ Constraints: minimum 20, maximum 100.-describeHSMConfigurations- :: DescribeHSMConfigurations-describeHSMConfigurations =- DescribeHSMConfigurations'- { _dhsmcTagValues = Nothing- , _dhsmcHSMConfigurationIdentifier = Nothing- , _dhsmcTagKeys = Nothing- , _dhsmcMarker = Nothing- , _dhsmcMaxRecords = Nothing- }----- | A tag value or values for which you want to return all matching HSM configurations that are associated with the specified tag value or values. For example, suppose that you have HSM configurations that are tagged with values called @admin@ and @test@ . If you specify both of these tag values in the request, Amazon Redshift returns a response with the HSM configurations that have either or both of these tag values associated with them.-dhsmcTagValues :: Lens' DescribeHSMConfigurations [Text]-dhsmcTagValues = lens _dhsmcTagValues (\ s a -> s{_dhsmcTagValues = a}) . _Default . _Coerce---- | The identifier of a specific Amazon Redshift HSM configuration to be described. If no identifier is specified, information is returned for all HSM configurations owned by your AWS customer account.-dhsmcHSMConfigurationIdentifier :: Lens' DescribeHSMConfigurations (Maybe Text)-dhsmcHSMConfigurationIdentifier = lens _dhsmcHSMConfigurationIdentifier (\ s a -> s{_dhsmcHSMConfigurationIdentifier = a})---- | A tag key or keys for which you want to return all matching HSM configurations that are associated with the specified key or keys. For example, suppose that you have HSM configurations that are tagged with keys called @owner@ and @environment@ . If you specify both of these tag keys in the request, Amazon Redshift returns a response with the HSM configurations that have either or both of these tag keys associated with them.-dhsmcTagKeys :: Lens' DescribeHSMConfigurations [Text]-dhsmcTagKeys = lens _dhsmcTagKeys (\ s a -> s{_dhsmcTagKeys = a}) . _Default . _Coerce---- | An optional parameter that specifies the starting point to return a set of response records. When the results of a 'DescribeHsmConfigurations' request exceed the value specified in @MaxRecords@ , AWS returns a value in the @Marker@ field of the response. You can retrieve the next set of response records by providing the returned marker value in the @Marker@ parameter and retrying the request.-dhsmcMarker :: Lens' DescribeHSMConfigurations (Maybe Text)-dhsmcMarker = lens _dhsmcMarker (\ s a -> s{_dhsmcMarker = a})---- | The maximum number of response records to return in each call. If the number of remaining response records exceeds the specified @MaxRecords@ value, a value is returned in a @marker@ field of the response. You can retrieve the next set of records by retrying the command with the returned marker value. Default: @100@ Constraints: minimum 20, maximum 100.-dhsmcMaxRecords :: Lens' DescribeHSMConfigurations (Maybe Int)-dhsmcMaxRecords = lens _dhsmcMaxRecords (\ s a -> s{_dhsmcMaxRecords = a})--instance AWSPager DescribeHSMConfigurations where- page rq rs- | stop (rs ^. dhcrsMarker) = Nothing- | stop (rs ^. dhcrsHSMConfigurations) = Nothing- | otherwise =- Just $ rq & dhsmcMarker .~ rs ^. dhcrsMarker--instance AWSRequest DescribeHSMConfigurations where- type Rs DescribeHSMConfigurations =- DescribeHSMConfigurationsResponse- request = postQuery redshift- response- = receiveXMLWrapper "DescribeHsmConfigurationsResult"- (\ s h x ->- DescribeHSMConfigurationsResponse' <$>- (x .@? "Marker") <*>- (x .@? "HsmConfigurations" .!@ mempty >>=- may (parseXMLList "HsmConfiguration"))- <*> (pure (fromEnum s)))--instance Hashable DescribeHSMConfigurations where--instance NFData DescribeHSMConfigurations where--instance ToHeaders DescribeHSMConfigurations where- toHeaders = const mempty--instance ToPath DescribeHSMConfigurations where- toPath = const "/"--instance ToQuery DescribeHSMConfigurations where- toQuery DescribeHSMConfigurations'{..}- = mconcat- ["Action" =:- ("DescribeHsmConfigurations" :: ByteString),- "Version" =: ("2012-12-01" :: ByteString),- "TagValues" =:- toQuery (toQueryList "TagValue" <$> _dhsmcTagValues),- "HsmConfigurationIdentifier" =:- _dhsmcHSMConfigurationIdentifier,- "TagKeys" =:- toQuery (toQueryList "TagKey" <$> _dhsmcTagKeys),- "Marker" =: _dhsmcMarker,- "MaxRecords" =: _dhsmcMaxRecords]---- |------------ /See:/ 'describeHSMConfigurationsResponse' smart constructor.-data DescribeHSMConfigurationsResponse = DescribeHSMConfigurationsResponse'- { _dhcrsMarker :: !(Maybe Text)- , _dhcrsHSMConfigurations :: !(Maybe [HSMConfiguration])- , _dhcrsResponseStatus :: !Int- } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'DescribeHSMConfigurationsResponse' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'dhcrsMarker' - A value that indicates the starting point for the next set of response records in a subsequent request. If a value is returned in a response, you can retrieve the next set of records by providing this returned marker value in the @Marker@ parameter and retrying the command. If the @Marker@ field is empty, all response records have been retrieved for the request.------ * 'dhcrsHSMConfigurations' - A list of @HsmConfiguration@ objects.------ * 'dhcrsResponseStatus' - -- | The response status code.-describeHSMConfigurationsResponse- :: Int -- ^ 'dhcrsResponseStatus'- -> DescribeHSMConfigurationsResponse-describeHSMConfigurationsResponse pResponseStatus_ =- DescribeHSMConfigurationsResponse'- { _dhcrsMarker = Nothing- , _dhcrsHSMConfigurations = Nothing- , _dhcrsResponseStatus = pResponseStatus_- }----- | A value that indicates the starting point for the next set of response records in a subsequent request. If a value is returned in a response, you can retrieve the next set of records by providing this returned marker value in the @Marker@ parameter and retrying the command. If the @Marker@ field is empty, all response records have been retrieved for the request.-dhcrsMarker :: Lens' DescribeHSMConfigurationsResponse (Maybe Text)-dhcrsMarker = lens _dhcrsMarker (\ s a -> s{_dhcrsMarker = a})---- | A list of @HsmConfiguration@ objects.-dhcrsHSMConfigurations :: Lens' DescribeHSMConfigurationsResponse [HSMConfiguration]-dhcrsHSMConfigurations = lens _dhcrsHSMConfigurations (\ s a -> s{_dhcrsHSMConfigurations = a}) . _Default . _Coerce---- | -- | The response status code.-dhcrsResponseStatus :: Lens' DescribeHSMConfigurationsResponse Int-dhcrsResponseStatus = lens _dhcrsResponseStatus (\ s a -> s{_dhcrsResponseStatus = a})--instance NFData DescribeHSMConfigurationsResponse- where
− gen/Network/AWS/Redshift/DescribeLoggingStatus.hs
@@ -1,99 +0,0 @@-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric #-}-{-# LANGUAGE OverloadedStrings #-}-{-# LANGUAGE RecordWildCards #-}-{-# LANGUAGE TypeFamilies #-}--{-# OPTIONS_GHC -fno-warn-unused-imports #-}-{-# OPTIONS_GHC -fno-warn-unused-binds #-}-{-# OPTIONS_GHC -fno-warn-unused-matches #-}---- Derived from AWS service descriptions, licensed under Apache 2.0.---- |--- Module : Network.AWS.Redshift.DescribeLoggingStatus--- Copyright : (c) 2013-2018 Brendan Hay--- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>--- Stability : auto-generated--- Portability : non-portable (GHC extensions)------ Describes whether information, such as queries and connection attempts, is being logged for the specified Amazon Redshift cluster.-------module Network.AWS.Redshift.DescribeLoggingStatus- (- -- * Creating a Request- describeLoggingStatus- , DescribeLoggingStatus- -- * Request Lenses- , dlsClusterIdentifier-- -- * Destructuring the Response- , loggingStatus- , LoggingStatus- -- * Response Lenses- , lsLastFailureTime- , lsLastSuccessfulDeliveryTime- , lsS3KeyPrefix- , lsBucketName- , lsLoggingEnabled- , lsLastFailureMessage- ) where--import Network.AWS.Lens-import Network.AWS.Prelude-import Network.AWS.Redshift.Types-import Network.AWS.Redshift.Types.Product-import Network.AWS.Request-import Network.AWS.Response---- |------------ /See:/ 'describeLoggingStatus' smart constructor.-newtype DescribeLoggingStatus = DescribeLoggingStatus'- { _dlsClusterIdentifier :: Text- } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'DescribeLoggingStatus' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'dlsClusterIdentifier' - The identifier of the cluster from which to get the logging status. Example: @examplecluster@-describeLoggingStatus- :: Text -- ^ 'dlsClusterIdentifier'- -> DescribeLoggingStatus-describeLoggingStatus pClusterIdentifier_ =- DescribeLoggingStatus' {_dlsClusterIdentifier = pClusterIdentifier_}----- | The identifier of the cluster from which to get the logging status. Example: @examplecluster@-dlsClusterIdentifier :: Lens' DescribeLoggingStatus Text-dlsClusterIdentifier = lens _dlsClusterIdentifier (\ s a -> s{_dlsClusterIdentifier = a})--instance AWSRequest DescribeLoggingStatus where- type Rs DescribeLoggingStatus = LoggingStatus- request = postQuery redshift- response- = receiveXMLWrapper "DescribeLoggingStatusResult"- (\ s h x -> parseXML x)--instance Hashable DescribeLoggingStatus where--instance NFData DescribeLoggingStatus where--instance ToHeaders DescribeLoggingStatus where- toHeaders = const mempty--instance ToPath DescribeLoggingStatus where- toPath = const "/"--instance ToQuery DescribeLoggingStatus where- toQuery DescribeLoggingStatus'{..}- = mconcat- ["Action" =: ("DescribeLoggingStatus" :: ByteString),- "Version" =: ("2012-12-01" :: ByteString),- "ClusterIdentifier" =: _dlsClusterIdentifier]
− gen/Network/AWS/Redshift/DescribeOrderableClusterOptions.hs
@@ -1,199 +0,0 @@-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric #-}-{-# LANGUAGE OverloadedStrings #-}-{-# LANGUAGE RecordWildCards #-}-{-# LANGUAGE TypeFamilies #-}--{-# OPTIONS_GHC -fno-warn-unused-imports #-}-{-# OPTIONS_GHC -fno-warn-unused-binds #-}-{-# OPTIONS_GHC -fno-warn-unused-matches #-}---- Derived from AWS service descriptions, licensed under Apache 2.0.---- |--- Module : Network.AWS.Redshift.DescribeOrderableClusterOptions--- Copyright : (c) 2013-2018 Brendan Hay--- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>--- Stability : auto-generated--- Portability : non-portable (GHC extensions)------ Returns a list of orderable cluster options. Before you create a new cluster you can use this operation to find what options are available, such as the EC2 Availability Zones (AZ) in the specific AWS region that you can specify, and the node types you can request. The node types differ by available storage, memory, CPU and price. With the cost involved you might want to obtain a list of cluster options in the specific region and specify values when creating a cluster. For more information about managing clusters, go to <http://docs.aws.amazon.com/redshift/latest/mgmt/working-with-clusters.html Amazon Redshift Clusters> in the /Amazon Redshift Cluster Management Guide/ .------------ This operation returns paginated results.-module Network.AWS.Redshift.DescribeOrderableClusterOptions- (- -- * Creating a Request- describeOrderableClusterOptions- , DescribeOrderableClusterOptions- -- * Request Lenses- , docoMarker- , docoMaxRecords- , docoClusterVersion- , docoNodeType-- -- * Destructuring the Response- , describeOrderableClusterOptionsResponse- , DescribeOrderableClusterOptionsResponse- -- * Response Lenses- , docorsMarker- , docorsOrderableClusterOptions- , docorsResponseStatus- ) where--import Network.AWS.Lens-import Network.AWS.Pager-import Network.AWS.Prelude-import Network.AWS.Redshift.Types-import Network.AWS.Redshift.Types.Product-import Network.AWS.Request-import Network.AWS.Response---- |------------ /See:/ 'describeOrderableClusterOptions' smart constructor.-data DescribeOrderableClusterOptions = DescribeOrderableClusterOptions'- { _docoMarker :: !(Maybe Text)- , _docoMaxRecords :: !(Maybe Int)- , _docoClusterVersion :: !(Maybe Text)- , _docoNodeType :: !(Maybe Text)- } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'DescribeOrderableClusterOptions' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'docoMarker' - An optional parameter that specifies the starting point to return a set of response records. When the results of a 'DescribeOrderableClusterOptions' request exceed the value specified in @MaxRecords@ , AWS returns a value in the @Marker@ field of the response. You can retrieve the next set of response records by providing the returned marker value in the @Marker@ parameter and retrying the request.------ * 'docoMaxRecords' - The maximum number of response records to return in each call. If the number of remaining response records exceeds the specified @MaxRecords@ value, a value is returned in a @marker@ field of the response. You can retrieve the next set of records by retrying the command with the returned marker value. Default: @100@ Constraints: minimum 20, maximum 100.------ * 'docoClusterVersion' - The version filter value. Specify this parameter to show only the available offerings matching the specified version. Default: All versions. Constraints: Must be one of the version returned from 'DescribeClusterVersions' .------ * 'docoNodeType' - The node type filter value. Specify this parameter to show only the available offerings matching the specified node type.-describeOrderableClusterOptions- :: DescribeOrderableClusterOptions-describeOrderableClusterOptions =- DescribeOrderableClusterOptions'- { _docoMarker = Nothing- , _docoMaxRecords = Nothing- , _docoClusterVersion = Nothing- , _docoNodeType = Nothing- }----- | An optional parameter that specifies the starting point to return a set of response records. When the results of a 'DescribeOrderableClusterOptions' request exceed the value specified in @MaxRecords@ , AWS returns a value in the @Marker@ field of the response. You can retrieve the next set of response records by providing the returned marker value in the @Marker@ parameter and retrying the request.-docoMarker :: Lens' DescribeOrderableClusterOptions (Maybe Text)-docoMarker = lens _docoMarker (\ s a -> s{_docoMarker = a})---- | The maximum number of response records to return in each call. If the number of remaining response records exceeds the specified @MaxRecords@ value, a value is returned in a @marker@ field of the response. You can retrieve the next set of records by retrying the command with the returned marker value. Default: @100@ Constraints: minimum 20, maximum 100.-docoMaxRecords :: Lens' DescribeOrderableClusterOptions (Maybe Int)-docoMaxRecords = lens _docoMaxRecords (\ s a -> s{_docoMaxRecords = a})---- | The version filter value. Specify this parameter to show only the available offerings matching the specified version. Default: All versions. Constraints: Must be one of the version returned from 'DescribeClusterVersions' .-docoClusterVersion :: Lens' DescribeOrderableClusterOptions (Maybe Text)-docoClusterVersion = lens _docoClusterVersion (\ s a -> s{_docoClusterVersion = a})---- | The node type filter value. Specify this parameter to show only the available offerings matching the specified node type.-docoNodeType :: Lens' DescribeOrderableClusterOptions (Maybe Text)-docoNodeType = lens _docoNodeType (\ s a -> s{_docoNodeType = a})--instance AWSPager DescribeOrderableClusterOptions- where- page rq rs- | stop (rs ^. docorsMarker) = Nothing- | stop (rs ^. docorsOrderableClusterOptions) =- Nothing- | otherwise =- Just $ rq & docoMarker .~ rs ^. docorsMarker--instance AWSRequest DescribeOrderableClusterOptions- where- type Rs DescribeOrderableClusterOptions =- DescribeOrderableClusterOptionsResponse- request = postQuery redshift- response- = receiveXMLWrapper- "DescribeOrderableClusterOptionsResult"- (\ s h x ->- DescribeOrderableClusterOptionsResponse' <$>- (x .@? "Marker") <*>- (x .@? "OrderableClusterOptions" .!@ mempty >>=- may (parseXMLList "OrderableClusterOption"))- <*> (pure (fromEnum s)))--instance Hashable DescribeOrderableClusterOptions- where--instance NFData DescribeOrderableClusterOptions where--instance ToHeaders DescribeOrderableClusterOptions- where- toHeaders = const mempty--instance ToPath DescribeOrderableClusterOptions where- toPath = const "/"--instance ToQuery DescribeOrderableClusterOptions- where- toQuery DescribeOrderableClusterOptions'{..}- = mconcat- ["Action" =:- ("DescribeOrderableClusterOptions" :: ByteString),- "Version" =: ("2012-12-01" :: ByteString),- "Marker" =: _docoMarker,- "MaxRecords" =: _docoMaxRecords,- "ClusterVersion" =: _docoClusterVersion,- "NodeType" =: _docoNodeType]---- | Contains the output from the 'DescribeOrderableClusterOptions' action.------------ /See:/ 'describeOrderableClusterOptionsResponse' smart constructor.-data DescribeOrderableClusterOptionsResponse = DescribeOrderableClusterOptionsResponse'- { _docorsMarker :: !(Maybe Text)- , _docorsOrderableClusterOptions :: !(Maybe [OrderableClusterOption])- , _docorsResponseStatus :: !Int- } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'DescribeOrderableClusterOptionsResponse' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'docorsMarker' - A value that indicates the starting point for the next set of response records in a subsequent request. If a value is returned in a response, you can retrieve the next set of records by providing this returned marker value in the @Marker@ parameter and retrying the command. If the @Marker@ field is empty, all response records have been retrieved for the request.------ * 'docorsOrderableClusterOptions' - An @OrderableClusterOption@ structure containing information about orderable options for the cluster.------ * 'docorsResponseStatus' - -- | The response status code.-describeOrderableClusterOptionsResponse- :: Int -- ^ 'docorsResponseStatus'- -> DescribeOrderableClusterOptionsResponse-describeOrderableClusterOptionsResponse pResponseStatus_ =- DescribeOrderableClusterOptionsResponse'- { _docorsMarker = Nothing- , _docorsOrderableClusterOptions = Nothing- , _docorsResponseStatus = pResponseStatus_- }----- | A value that indicates the starting point for the next set of response records in a subsequent request. If a value is returned in a response, you can retrieve the next set of records by providing this returned marker value in the @Marker@ parameter and retrying the command. If the @Marker@ field is empty, all response records have been retrieved for the request.-docorsMarker :: Lens' DescribeOrderableClusterOptionsResponse (Maybe Text)-docorsMarker = lens _docorsMarker (\ s a -> s{_docorsMarker = a})---- | An @OrderableClusterOption@ structure containing information about orderable options for the cluster.-docorsOrderableClusterOptions :: Lens' DescribeOrderableClusterOptionsResponse [OrderableClusterOption]-docorsOrderableClusterOptions = lens _docorsOrderableClusterOptions (\ s a -> s{_docorsOrderableClusterOptions = a}) . _Default . _Coerce---- | -- | The response status code.-docorsResponseStatus :: Lens' DescribeOrderableClusterOptionsResponse Int-docorsResponseStatus = lens _docorsResponseStatus (\ s a -> s{_docorsResponseStatus = a})--instance NFData- DescribeOrderableClusterOptionsResponse- where
− gen/Network/AWS/Redshift/DescribeReservedNodeOfferings.hs
@@ -1,187 +0,0 @@-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric #-}-{-# LANGUAGE OverloadedStrings #-}-{-# LANGUAGE RecordWildCards #-}-{-# LANGUAGE TypeFamilies #-}--{-# OPTIONS_GHC -fno-warn-unused-imports #-}-{-# OPTIONS_GHC -fno-warn-unused-binds #-}-{-# OPTIONS_GHC -fno-warn-unused-matches #-}---- Derived from AWS service descriptions, licensed under Apache 2.0.---- |--- Module : Network.AWS.Redshift.DescribeReservedNodeOfferings--- Copyright : (c) 2013-2018 Brendan Hay--- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>--- Stability : auto-generated--- Portability : non-portable (GHC extensions)------ Returns a list of the available reserved node offerings by Amazon Redshift with their descriptions including the node type, the fixed and recurring costs of reserving the node and duration the node will be reserved for you. These descriptions help you determine which reserve node offering you want to purchase. You then use the unique offering ID in you call to 'PurchaseReservedNodeOffering' to reserve one or more nodes for your Amazon Redshift cluster.--------- For more information about reserved node offerings, go to <http://docs.aws.amazon.com/redshift/latest/mgmt/purchase-reserved-node-instance.html Purchasing Reserved Nodes> in the /Amazon Redshift Cluster Management Guide/ .--------- This operation returns paginated results.-module Network.AWS.Redshift.DescribeReservedNodeOfferings- (- -- * Creating a Request- describeReservedNodeOfferings- , DescribeReservedNodeOfferings- -- * Request Lenses- , drnoReservedNodeOfferingId- , drnoMarker- , drnoMaxRecords-- -- * Destructuring the Response- , describeReservedNodeOfferingsResponse- , DescribeReservedNodeOfferingsResponse- -- * Response Lenses- , drnorsReservedNodeOfferings- , drnorsMarker- , drnorsResponseStatus- ) where--import Network.AWS.Lens-import Network.AWS.Pager-import Network.AWS.Prelude-import Network.AWS.Redshift.Types-import Network.AWS.Redshift.Types.Product-import Network.AWS.Request-import Network.AWS.Response---- |------------ /See:/ 'describeReservedNodeOfferings' smart constructor.-data DescribeReservedNodeOfferings = DescribeReservedNodeOfferings'- { _drnoReservedNodeOfferingId :: !(Maybe Text)- , _drnoMarker :: !(Maybe Text)- , _drnoMaxRecords :: !(Maybe Int)- } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'DescribeReservedNodeOfferings' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'drnoReservedNodeOfferingId' - The unique identifier for the offering.------ * 'drnoMarker' - An optional parameter that specifies the starting point to return a set of response records. When the results of a 'DescribeReservedNodeOfferings' request exceed the value specified in @MaxRecords@ , AWS returns a value in the @Marker@ field of the response. You can retrieve the next set of response records by providing the returned marker value in the @Marker@ parameter and retrying the request.------ * 'drnoMaxRecords' - The maximum number of response records to return in each call. If the number of remaining response records exceeds the specified @MaxRecords@ value, a value is returned in a @marker@ field of the response. You can retrieve the next set of records by retrying the command with the returned marker value. Default: @100@ Constraints: minimum 20, maximum 100.-describeReservedNodeOfferings- :: DescribeReservedNodeOfferings-describeReservedNodeOfferings =- DescribeReservedNodeOfferings'- { _drnoReservedNodeOfferingId = Nothing- , _drnoMarker = Nothing- , _drnoMaxRecords = Nothing- }----- | The unique identifier for the offering.-drnoReservedNodeOfferingId :: Lens' DescribeReservedNodeOfferings (Maybe Text)-drnoReservedNodeOfferingId = lens _drnoReservedNodeOfferingId (\ s a -> s{_drnoReservedNodeOfferingId = a})---- | An optional parameter that specifies the starting point to return a set of response records. When the results of a 'DescribeReservedNodeOfferings' request exceed the value specified in @MaxRecords@ , AWS returns a value in the @Marker@ field of the response. You can retrieve the next set of response records by providing the returned marker value in the @Marker@ parameter and retrying the request.-drnoMarker :: Lens' DescribeReservedNodeOfferings (Maybe Text)-drnoMarker = lens _drnoMarker (\ s a -> s{_drnoMarker = a})---- | The maximum number of response records to return in each call. If the number of remaining response records exceeds the specified @MaxRecords@ value, a value is returned in a @marker@ field of the response. You can retrieve the next set of records by retrying the command with the returned marker value. Default: @100@ Constraints: minimum 20, maximum 100.-drnoMaxRecords :: Lens' DescribeReservedNodeOfferings (Maybe Int)-drnoMaxRecords = lens _drnoMaxRecords (\ s a -> s{_drnoMaxRecords = a})--instance AWSPager DescribeReservedNodeOfferings where- page rq rs- | stop (rs ^. drnorsMarker) = Nothing- | stop (rs ^. drnorsReservedNodeOfferings) = Nothing- | otherwise =- Just $ rq & drnoMarker .~ rs ^. drnorsMarker--instance AWSRequest DescribeReservedNodeOfferings- where- type Rs DescribeReservedNodeOfferings =- DescribeReservedNodeOfferingsResponse- request = postQuery redshift- response- = receiveXMLWrapper- "DescribeReservedNodeOfferingsResult"- (\ s h x ->- DescribeReservedNodeOfferingsResponse' <$>- (x .@? "ReservedNodeOfferings" .!@ mempty >>=- may (parseXMLList "ReservedNodeOffering"))- <*> (x .@? "Marker")- <*> (pure (fromEnum s)))--instance Hashable DescribeReservedNodeOfferings where--instance NFData DescribeReservedNodeOfferings where--instance ToHeaders DescribeReservedNodeOfferings- where- toHeaders = const mempty--instance ToPath DescribeReservedNodeOfferings where- toPath = const "/"--instance ToQuery DescribeReservedNodeOfferings where- toQuery DescribeReservedNodeOfferings'{..}- = mconcat- ["Action" =:- ("DescribeReservedNodeOfferings" :: ByteString),- "Version" =: ("2012-12-01" :: ByteString),- "ReservedNodeOfferingId" =:- _drnoReservedNodeOfferingId,- "Marker" =: _drnoMarker,- "MaxRecords" =: _drnoMaxRecords]---- |------------ /See:/ 'describeReservedNodeOfferingsResponse' smart constructor.-data DescribeReservedNodeOfferingsResponse = DescribeReservedNodeOfferingsResponse'- { _drnorsReservedNodeOfferings :: !(Maybe [ReservedNodeOffering])- , _drnorsMarker :: !(Maybe Text)- , _drnorsResponseStatus :: !Int- } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'DescribeReservedNodeOfferingsResponse' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'drnorsReservedNodeOfferings' - A list of @ReservedNodeOffering@ objects.------ * 'drnorsMarker' - A value that indicates the starting point for the next set of response records in a subsequent request. If a value is returned in a response, you can retrieve the next set of records by providing this returned marker value in the @Marker@ parameter and retrying the command. If the @Marker@ field is empty, all response records have been retrieved for the request.------ * 'drnorsResponseStatus' - -- | The response status code.-describeReservedNodeOfferingsResponse- :: Int -- ^ 'drnorsResponseStatus'- -> DescribeReservedNodeOfferingsResponse-describeReservedNodeOfferingsResponse pResponseStatus_ =- DescribeReservedNodeOfferingsResponse'- { _drnorsReservedNodeOfferings = Nothing- , _drnorsMarker = Nothing- , _drnorsResponseStatus = pResponseStatus_- }----- | A list of @ReservedNodeOffering@ objects.-drnorsReservedNodeOfferings :: Lens' DescribeReservedNodeOfferingsResponse [ReservedNodeOffering]-drnorsReservedNodeOfferings = lens _drnorsReservedNodeOfferings (\ s a -> s{_drnorsReservedNodeOfferings = a}) . _Default . _Coerce---- | A value that indicates the starting point for the next set of response records in a subsequent request. If a value is returned in a response, you can retrieve the next set of records by providing this returned marker value in the @Marker@ parameter and retrying the command. If the @Marker@ field is empty, all response records have been retrieved for the request.-drnorsMarker :: Lens' DescribeReservedNodeOfferingsResponse (Maybe Text)-drnorsMarker = lens _drnorsMarker (\ s a -> s{_drnorsMarker = a})---- | -- | The response status code.-drnorsResponseStatus :: Lens' DescribeReservedNodeOfferingsResponse Int-drnorsResponseStatus = lens _drnorsResponseStatus (\ s a -> s{_drnorsResponseStatus = a})--instance NFData DescribeReservedNodeOfferingsResponse- where
− gen/Network/AWS/Redshift/DescribeReservedNodes.hs
@@ -1,179 +0,0 @@-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric #-}-{-# LANGUAGE OverloadedStrings #-}-{-# LANGUAGE RecordWildCards #-}-{-# LANGUAGE TypeFamilies #-}--{-# OPTIONS_GHC -fno-warn-unused-imports #-}-{-# OPTIONS_GHC -fno-warn-unused-binds #-}-{-# OPTIONS_GHC -fno-warn-unused-matches #-}---- Derived from AWS service descriptions, licensed under Apache 2.0.---- |--- Module : Network.AWS.Redshift.DescribeReservedNodes--- Copyright : (c) 2013-2018 Brendan Hay--- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>--- Stability : auto-generated--- Portability : non-portable (GHC extensions)------ Returns the descriptions of the reserved nodes.------------ This operation returns paginated results.-module Network.AWS.Redshift.DescribeReservedNodes- (- -- * Creating a Request- describeReservedNodes- , DescribeReservedNodes- -- * Request Lenses- , drnReservedNodeId- , drnMarker- , drnMaxRecords-- -- * Destructuring the Response- , describeReservedNodesResponse- , DescribeReservedNodesResponse- -- * Response Lenses- , drnrsReservedNodes- , drnrsMarker- , drnrsResponseStatus- ) where--import Network.AWS.Lens-import Network.AWS.Pager-import Network.AWS.Prelude-import Network.AWS.Redshift.Types-import Network.AWS.Redshift.Types.Product-import Network.AWS.Request-import Network.AWS.Response---- |------------ /See:/ 'describeReservedNodes' smart constructor.-data DescribeReservedNodes = DescribeReservedNodes'- { _drnReservedNodeId :: !(Maybe Text)- , _drnMarker :: !(Maybe Text)- , _drnMaxRecords :: !(Maybe Int)- } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'DescribeReservedNodes' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'drnReservedNodeId' - Identifier for the node reservation.------ * 'drnMarker' - An optional parameter that specifies the starting point to return a set of response records. When the results of a 'DescribeReservedNodes' request exceed the value specified in @MaxRecords@ , AWS returns a value in the @Marker@ field of the response. You can retrieve the next set of response records by providing the returned marker value in the @Marker@ parameter and retrying the request.------ * 'drnMaxRecords' - The maximum number of response records to return in each call. If the number of remaining response records exceeds the specified @MaxRecords@ value, a value is returned in a @marker@ field of the response. You can retrieve the next set of records by retrying the command with the returned marker value. Default: @100@ Constraints: minimum 20, maximum 100.-describeReservedNodes- :: DescribeReservedNodes-describeReservedNodes =- DescribeReservedNodes'- { _drnReservedNodeId = Nothing- , _drnMarker = Nothing- , _drnMaxRecords = Nothing- }----- | Identifier for the node reservation.-drnReservedNodeId :: Lens' DescribeReservedNodes (Maybe Text)-drnReservedNodeId = lens _drnReservedNodeId (\ s a -> s{_drnReservedNodeId = a})---- | An optional parameter that specifies the starting point to return a set of response records. When the results of a 'DescribeReservedNodes' request exceed the value specified in @MaxRecords@ , AWS returns a value in the @Marker@ field of the response. You can retrieve the next set of response records by providing the returned marker value in the @Marker@ parameter and retrying the request.-drnMarker :: Lens' DescribeReservedNodes (Maybe Text)-drnMarker = lens _drnMarker (\ s a -> s{_drnMarker = a})---- | The maximum number of response records to return in each call. If the number of remaining response records exceeds the specified @MaxRecords@ value, a value is returned in a @marker@ field of the response. You can retrieve the next set of records by retrying the command with the returned marker value. Default: @100@ Constraints: minimum 20, maximum 100.-drnMaxRecords :: Lens' DescribeReservedNodes (Maybe Int)-drnMaxRecords = lens _drnMaxRecords (\ s a -> s{_drnMaxRecords = a})--instance AWSPager DescribeReservedNodes where- page rq rs- | stop (rs ^. drnrsMarker) = Nothing- | stop (rs ^. drnrsReservedNodes) = Nothing- | otherwise =- Just $ rq & drnMarker .~ rs ^. drnrsMarker--instance AWSRequest DescribeReservedNodes where- type Rs DescribeReservedNodes =- DescribeReservedNodesResponse- request = postQuery redshift- response- = receiveXMLWrapper "DescribeReservedNodesResult"- (\ s h x ->- DescribeReservedNodesResponse' <$>- (x .@? "ReservedNodes" .!@ mempty >>=- may (parseXMLList "ReservedNode"))- <*> (x .@? "Marker")- <*> (pure (fromEnum s)))--instance Hashable DescribeReservedNodes where--instance NFData DescribeReservedNodes where--instance ToHeaders DescribeReservedNodes where- toHeaders = const mempty--instance ToPath DescribeReservedNodes where- toPath = const "/"--instance ToQuery DescribeReservedNodes where- toQuery DescribeReservedNodes'{..}- = mconcat- ["Action" =: ("DescribeReservedNodes" :: ByteString),- "Version" =: ("2012-12-01" :: ByteString),- "ReservedNodeId" =: _drnReservedNodeId,- "Marker" =: _drnMarker,- "MaxRecords" =: _drnMaxRecords]---- |------------ /See:/ 'describeReservedNodesResponse' smart constructor.-data DescribeReservedNodesResponse = DescribeReservedNodesResponse'- { _drnrsReservedNodes :: !(Maybe [ReservedNode])- , _drnrsMarker :: !(Maybe Text)- , _drnrsResponseStatus :: !Int- } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'DescribeReservedNodesResponse' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'drnrsReservedNodes' - The list of @ReservedNode@ objects.------ * 'drnrsMarker' - A value that indicates the starting point for the next set of response records in a subsequent request. If a value is returned in a response, you can retrieve the next set of records by providing this returned marker value in the @Marker@ parameter and retrying the command. If the @Marker@ field is empty, all response records have been retrieved for the request.------ * 'drnrsResponseStatus' - -- | The response status code.-describeReservedNodesResponse- :: Int -- ^ 'drnrsResponseStatus'- -> DescribeReservedNodesResponse-describeReservedNodesResponse pResponseStatus_ =- DescribeReservedNodesResponse'- { _drnrsReservedNodes = Nothing- , _drnrsMarker = Nothing- , _drnrsResponseStatus = pResponseStatus_- }----- | The list of @ReservedNode@ objects.-drnrsReservedNodes :: Lens' DescribeReservedNodesResponse [ReservedNode]-drnrsReservedNodes = lens _drnrsReservedNodes (\ s a -> s{_drnrsReservedNodes = a}) . _Default . _Coerce---- | A value that indicates the starting point for the next set of response records in a subsequent request. If a value is returned in a response, you can retrieve the next set of records by providing this returned marker value in the @Marker@ parameter and retrying the command. If the @Marker@ field is empty, all response records have been retrieved for the request.-drnrsMarker :: Lens' DescribeReservedNodesResponse (Maybe Text)-drnrsMarker = lens _drnrsMarker (\ s a -> s{_drnrsMarker = a})---- | -- | The response status code.-drnrsResponseStatus :: Lens' DescribeReservedNodesResponse Int-drnrsResponseStatus = lens _drnrsResponseStatus (\ s a -> s{_drnrsResponseStatus = a})--instance NFData DescribeReservedNodesResponse where
− gen/Network/AWS/Redshift/DescribeResize.hs
@@ -1,253 +0,0 @@-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric #-}-{-# LANGUAGE OverloadedStrings #-}-{-# LANGUAGE RecordWildCards #-}-{-# LANGUAGE TypeFamilies #-}--{-# OPTIONS_GHC -fno-warn-unused-imports #-}-{-# OPTIONS_GHC -fno-warn-unused-binds #-}-{-# OPTIONS_GHC -fno-warn-unused-matches #-}---- Derived from AWS service descriptions, licensed under Apache 2.0.---- |--- Module : Network.AWS.Redshift.DescribeResize--- Copyright : (c) 2013-2018 Brendan Hay--- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>--- Stability : auto-generated--- Portability : non-portable (GHC extensions)------ Returns information about the last resize operation for the specified cluster. If no resize operation has ever been initiated for the specified cluster, a @HTTP 404@ error is returned. If a resize operation was initiated and completed, the status of the resize remains as @SUCCEEDED@ until the next resize.--------- A resize operation can be requested using 'ModifyCluster' and specifying a different number or type of nodes for the cluster.----module Network.AWS.Redshift.DescribeResize- (- -- * Creating a Request- describeResize- , DescribeResize- -- * Request Lenses- , drClusterIdentifier-- -- * Destructuring the Response- , describeResizeResponse- , DescribeResizeResponse- -- * Response Lenses- , drrsImportTablesNotStarted- , drrsStatus- , drrsEstimatedTimeToCompletionInSeconds- , drrsAvgResizeRateInMegaBytesPerSecond- , drrsTargetNumberOfNodes- , drrsTargetNodeType- , drrsImportTablesInProgress- , drrsImportTablesCompleted- , drrsProgressInMegaBytes- , drrsTotalResizeDataInMegaBytes- , drrsTargetClusterType- , drrsElapsedTimeInSeconds- , drrsResponseStatus- ) where--import Network.AWS.Lens-import Network.AWS.Prelude-import Network.AWS.Redshift.Types-import Network.AWS.Redshift.Types.Product-import Network.AWS.Request-import Network.AWS.Response---- |------------ /See:/ 'describeResize' smart constructor.-newtype DescribeResize = DescribeResize'- { _drClusterIdentifier :: Text- } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'DescribeResize' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'drClusterIdentifier' - The unique identifier of a cluster whose resize progress you are requesting. This parameter is case-sensitive. By default, resize operations for all clusters defined for an AWS account are returned.-describeResize- :: Text -- ^ 'drClusterIdentifier'- -> DescribeResize-describeResize pClusterIdentifier_ =- DescribeResize' {_drClusterIdentifier = pClusterIdentifier_}----- | The unique identifier of a cluster whose resize progress you are requesting. This parameter is case-sensitive. By default, resize operations for all clusters defined for an AWS account are returned.-drClusterIdentifier :: Lens' DescribeResize Text-drClusterIdentifier = lens _drClusterIdentifier (\ s a -> s{_drClusterIdentifier = a})--instance AWSRequest DescribeResize where- type Rs DescribeResize = DescribeResizeResponse- request = postQuery redshift- response- = receiveXMLWrapper "DescribeResizeResult"- (\ s h x ->- DescribeResizeResponse' <$>- (x .@? "ImportTablesNotStarted" .!@ mempty >>=- may (parseXMLList "member"))- <*> (x .@? "Status")- <*> (x .@? "EstimatedTimeToCompletionInSeconds")- <*> (x .@? "AvgResizeRateInMegaBytesPerSecond")- <*> (x .@? "TargetNumberOfNodes")- <*> (x .@? "TargetNodeType")- <*>- (x .@? "ImportTablesInProgress" .!@ mempty >>=- may (parseXMLList "member"))- <*>- (x .@? "ImportTablesCompleted" .!@ mempty >>=- may (parseXMLList "member"))- <*> (x .@? "ProgressInMegaBytes")- <*> (x .@? "TotalResizeDataInMegaBytes")- <*> (x .@? "TargetClusterType")- <*> (x .@? "ElapsedTimeInSeconds")- <*> (pure (fromEnum s)))--instance Hashable DescribeResize where--instance NFData DescribeResize where--instance ToHeaders DescribeResize where- toHeaders = const mempty--instance ToPath DescribeResize where- toPath = const "/"--instance ToQuery DescribeResize where- toQuery DescribeResize'{..}- = mconcat- ["Action" =: ("DescribeResize" :: ByteString),- "Version" =: ("2012-12-01" :: ByteString),- "ClusterIdentifier" =: _drClusterIdentifier]---- | Describes the result of a cluster resize operation.------------ /See:/ 'describeResizeResponse' smart constructor.-data DescribeResizeResponse = DescribeResizeResponse'- { _drrsImportTablesNotStarted :: !(Maybe [Text])- , _drrsStatus :: !(Maybe Text)- , _drrsEstimatedTimeToCompletionInSeconds :: !(Maybe Integer)- , _drrsAvgResizeRateInMegaBytesPerSecond :: !(Maybe Double)- , _drrsTargetNumberOfNodes :: !(Maybe Int)- , _drrsTargetNodeType :: !(Maybe Text)- , _drrsImportTablesInProgress :: !(Maybe [Text])- , _drrsImportTablesCompleted :: !(Maybe [Text])- , _drrsProgressInMegaBytes :: !(Maybe Integer)- , _drrsTotalResizeDataInMegaBytes :: !(Maybe Integer)- , _drrsTargetClusterType :: !(Maybe Text)- , _drrsElapsedTimeInSeconds :: !(Maybe Integer)- , _drrsResponseStatus :: !Int- } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'DescribeResizeResponse' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'drrsImportTablesNotStarted' - The names of tables that have not been yet imported. Valid Values: List of table names------ * 'drrsStatus' - The status of the resize operation. Valid Values: @NONE@ | @IN_PROGRESS@ | @FAILED@ | @SUCCEEDED@------ * 'drrsEstimatedTimeToCompletionInSeconds' - The estimated time remaining, in seconds, until the resize operation is complete. This value is calculated based on the average resize rate and the estimated amount of data remaining to be processed. Once the resize operation is complete, this value will be 0.------ * 'drrsAvgResizeRateInMegaBytesPerSecond' - The average rate of the resize operation over the last few minutes, measured in megabytes per second. After the resize operation completes, this value shows the average rate of the entire resize operation.------ * 'drrsTargetNumberOfNodes' - The number of nodes that the cluster will have after the resize operation is complete.------ * 'drrsTargetNodeType' - The node type that the cluster will have after the resize operation is complete.------ * 'drrsImportTablesInProgress' - The names of tables that are being currently imported. Valid Values: List of table names.------ * 'drrsImportTablesCompleted' - The names of tables that have been completely imported . Valid Values: List of table names.------ * 'drrsProgressInMegaBytes' - While the resize operation is in progress, this value shows the current amount of data, in megabytes, that has been processed so far. When the resize operation is complete, this value shows the total amount of data, in megabytes, on the cluster, which may be more or less than TotalResizeDataInMegaBytes (the estimated total amount of data before resize).------ * 'drrsTotalResizeDataInMegaBytes' - The estimated total amount of data, in megabytes, on the cluster before the resize operation began.------ * 'drrsTargetClusterType' - The cluster type after the resize operation is complete. Valid Values: @multi-node@ | @single-node@------ * 'drrsElapsedTimeInSeconds' - The amount of seconds that have elapsed since the resize operation began. After the resize operation completes, this value shows the total actual time, in seconds, for the resize operation.------ * 'drrsResponseStatus' - -- | The response status code.-describeResizeResponse- :: Int -- ^ 'drrsResponseStatus'- -> DescribeResizeResponse-describeResizeResponse pResponseStatus_ =- DescribeResizeResponse'- { _drrsImportTablesNotStarted = Nothing- , _drrsStatus = Nothing- , _drrsEstimatedTimeToCompletionInSeconds = Nothing- , _drrsAvgResizeRateInMegaBytesPerSecond = Nothing- , _drrsTargetNumberOfNodes = Nothing- , _drrsTargetNodeType = Nothing- , _drrsImportTablesInProgress = Nothing- , _drrsImportTablesCompleted = Nothing- , _drrsProgressInMegaBytes = Nothing- , _drrsTotalResizeDataInMegaBytes = Nothing- , _drrsTargetClusterType = Nothing- , _drrsElapsedTimeInSeconds = Nothing- , _drrsResponseStatus = pResponseStatus_- }----- | The names of tables that have not been yet imported. Valid Values: List of table names-drrsImportTablesNotStarted :: Lens' DescribeResizeResponse [Text]-drrsImportTablesNotStarted = lens _drrsImportTablesNotStarted (\ s a -> s{_drrsImportTablesNotStarted = a}) . _Default . _Coerce---- | The status of the resize operation. Valid Values: @NONE@ | @IN_PROGRESS@ | @FAILED@ | @SUCCEEDED@-drrsStatus :: Lens' DescribeResizeResponse (Maybe Text)-drrsStatus = lens _drrsStatus (\ s a -> s{_drrsStatus = a})---- | The estimated time remaining, in seconds, until the resize operation is complete. This value is calculated based on the average resize rate and the estimated amount of data remaining to be processed. Once the resize operation is complete, this value will be 0.-drrsEstimatedTimeToCompletionInSeconds :: Lens' DescribeResizeResponse (Maybe Integer)-drrsEstimatedTimeToCompletionInSeconds = lens _drrsEstimatedTimeToCompletionInSeconds (\ s a -> s{_drrsEstimatedTimeToCompletionInSeconds = a})---- | The average rate of the resize operation over the last few minutes, measured in megabytes per second. After the resize operation completes, this value shows the average rate of the entire resize operation.-drrsAvgResizeRateInMegaBytesPerSecond :: Lens' DescribeResizeResponse (Maybe Double)-drrsAvgResizeRateInMegaBytesPerSecond = lens _drrsAvgResizeRateInMegaBytesPerSecond (\ s a -> s{_drrsAvgResizeRateInMegaBytesPerSecond = a})---- | The number of nodes that the cluster will have after the resize operation is complete.-drrsTargetNumberOfNodes :: Lens' DescribeResizeResponse (Maybe Int)-drrsTargetNumberOfNodes = lens _drrsTargetNumberOfNodes (\ s a -> s{_drrsTargetNumberOfNodes = a})---- | The node type that the cluster will have after the resize operation is complete.-drrsTargetNodeType :: Lens' DescribeResizeResponse (Maybe Text)-drrsTargetNodeType = lens _drrsTargetNodeType (\ s a -> s{_drrsTargetNodeType = a})---- | The names of tables that are being currently imported. Valid Values: List of table names.-drrsImportTablesInProgress :: Lens' DescribeResizeResponse [Text]-drrsImportTablesInProgress = lens _drrsImportTablesInProgress (\ s a -> s{_drrsImportTablesInProgress = a}) . _Default . _Coerce---- | The names of tables that have been completely imported . Valid Values: List of table names.-drrsImportTablesCompleted :: Lens' DescribeResizeResponse [Text]-drrsImportTablesCompleted = lens _drrsImportTablesCompleted (\ s a -> s{_drrsImportTablesCompleted = a}) . _Default . _Coerce---- | While the resize operation is in progress, this value shows the current amount of data, in megabytes, that has been processed so far. When the resize operation is complete, this value shows the total amount of data, in megabytes, on the cluster, which may be more or less than TotalResizeDataInMegaBytes (the estimated total amount of data before resize).-drrsProgressInMegaBytes :: Lens' DescribeResizeResponse (Maybe Integer)-drrsProgressInMegaBytes = lens _drrsProgressInMegaBytes (\ s a -> s{_drrsProgressInMegaBytes = a})---- | The estimated total amount of data, in megabytes, on the cluster before the resize operation began.-drrsTotalResizeDataInMegaBytes :: Lens' DescribeResizeResponse (Maybe Integer)-drrsTotalResizeDataInMegaBytes = lens _drrsTotalResizeDataInMegaBytes (\ s a -> s{_drrsTotalResizeDataInMegaBytes = a})---- | The cluster type after the resize operation is complete. Valid Values: @multi-node@ | @single-node@-drrsTargetClusterType :: Lens' DescribeResizeResponse (Maybe Text)-drrsTargetClusterType = lens _drrsTargetClusterType (\ s a -> s{_drrsTargetClusterType = a})---- | The amount of seconds that have elapsed since the resize operation began. After the resize operation completes, this value shows the total actual time, in seconds, for the resize operation.-drrsElapsedTimeInSeconds :: Lens' DescribeResizeResponse (Maybe Integer)-drrsElapsedTimeInSeconds = lens _drrsElapsedTimeInSeconds (\ s a -> s{_drrsElapsedTimeInSeconds = a})---- | -- | The response status code.-drrsResponseStatus :: Lens' DescribeResizeResponse Int-drrsResponseStatus = lens _drrsResponseStatus (\ s a -> s{_drrsResponseStatus = a})--instance NFData DescribeResizeResponse where
− gen/Network/AWS/Redshift/DescribeSnapshotCopyGrants.hs
@@ -1,197 +0,0 @@-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric #-}-{-# LANGUAGE OverloadedStrings #-}-{-# LANGUAGE RecordWildCards #-}-{-# LANGUAGE TypeFamilies #-}--{-# OPTIONS_GHC -fno-warn-unused-imports #-}-{-# OPTIONS_GHC -fno-warn-unused-binds #-}-{-# OPTIONS_GHC -fno-warn-unused-matches #-}---- Derived from AWS service descriptions, licensed under Apache 2.0.---- |--- Module : Network.AWS.Redshift.DescribeSnapshotCopyGrants--- Copyright : (c) 2013-2018 Brendan Hay--- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>--- Stability : auto-generated--- Portability : non-portable (GHC extensions)------ Returns a list of snapshot copy grants owned by the AWS account in the destination region.--------- For more information about managing snapshot copy grants, go to <http://docs.aws.amazon.com/redshift/latest/mgmt/working-with-db-encryption.html Amazon Redshift Database Encryption> in the /Amazon Redshift Cluster Management Guide/ .----module Network.AWS.Redshift.DescribeSnapshotCopyGrants- (- -- * Creating a Request- describeSnapshotCopyGrants- , DescribeSnapshotCopyGrants- -- * Request Lenses- , dscgsTagValues- , dscgsTagKeys- , dscgsMarker- , dscgsMaxRecords- , dscgsSnapshotCopyGrantName-- -- * Destructuring the Response- , describeSnapshotCopyGrantsResponse- , DescribeSnapshotCopyGrantsResponse- -- * Response Lenses- , dscgrsSnapshotCopyGrants- , dscgrsMarker- , dscgrsResponseStatus- ) where--import Network.AWS.Lens-import Network.AWS.Prelude-import Network.AWS.Redshift.Types-import Network.AWS.Redshift.Types.Product-import Network.AWS.Request-import Network.AWS.Response---- | The result of the @DescribeSnapshotCopyGrants@ action.------------ /See:/ 'describeSnapshotCopyGrants' smart constructor.-data DescribeSnapshotCopyGrants = DescribeSnapshotCopyGrants'- { _dscgsTagValues :: !(Maybe [Text])- , _dscgsTagKeys :: !(Maybe [Text])- , _dscgsMarker :: !(Maybe Text)- , _dscgsMaxRecords :: !(Maybe Int)- , _dscgsSnapshotCopyGrantName :: !(Maybe Text)- } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'DescribeSnapshotCopyGrants' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'dscgsTagValues' - A tag value or values for which you want to return all matching resources that are associated with the specified value or values. For example, suppose that you have resources tagged with values called @admin@ and @test@ . If you specify both of these tag values in the request, Amazon Redshift returns a response with all resources that have either or both of these tag values associated with them.------ * 'dscgsTagKeys' - A tag key or keys for which you want to return all matching resources that are associated with the specified key or keys. For example, suppose that you have resources tagged with keys called @owner@ and @environment@ . If you specify both of these tag keys in the request, Amazon Redshift returns a response with all resources that have either or both of these tag keys associated with them.------ * 'dscgsMarker' - An optional parameter that specifies the starting point to return a set of response records. When the results of a @DescribeSnapshotCopyGrant@ request exceed the value specified in @MaxRecords@ , AWS returns a value in the @Marker@ field of the response. You can retrieve the next set of response records by providing the returned marker value in the @Marker@ parameter and retrying the request. Constraints: You can specify either the __SnapshotCopyGrantName__ parameter or the __Marker__ parameter, but not both.------ * 'dscgsMaxRecords' - The maximum number of response records to return in each call. If the number of remaining response records exceeds the specified @MaxRecords@ value, a value is returned in a @marker@ field of the response. You can retrieve the next set of records by retrying the command with the returned marker value. Default: @100@ Constraints: minimum 20, maximum 100.------ * 'dscgsSnapshotCopyGrantName' - The name of the snapshot copy grant.-describeSnapshotCopyGrants- :: DescribeSnapshotCopyGrants-describeSnapshotCopyGrants =- DescribeSnapshotCopyGrants'- { _dscgsTagValues = Nothing- , _dscgsTagKeys = Nothing- , _dscgsMarker = Nothing- , _dscgsMaxRecords = Nothing- , _dscgsSnapshotCopyGrantName = Nothing- }----- | A tag value or values for which you want to return all matching resources that are associated with the specified value or values. For example, suppose that you have resources tagged with values called @admin@ and @test@ . If you specify both of these tag values in the request, Amazon Redshift returns a response with all resources that have either or both of these tag values associated with them.-dscgsTagValues :: Lens' DescribeSnapshotCopyGrants [Text]-dscgsTagValues = lens _dscgsTagValues (\ s a -> s{_dscgsTagValues = a}) . _Default . _Coerce---- | A tag key or keys for which you want to return all matching resources that are associated with the specified key or keys. For example, suppose that you have resources tagged with keys called @owner@ and @environment@ . If you specify both of these tag keys in the request, Amazon Redshift returns a response with all resources that have either or both of these tag keys associated with them.-dscgsTagKeys :: Lens' DescribeSnapshotCopyGrants [Text]-dscgsTagKeys = lens _dscgsTagKeys (\ s a -> s{_dscgsTagKeys = a}) . _Default . _Coerce---- | An optional parameter that specifies the starting point to return a set of response records. When the results of a @DescribeSnapshotCopyGrant@ request exceed the value specified in @MaxRecords@ , AWS returns a value in the @Marker@ field of the response. You can retrieve the next set of response records by providing the returned marker value in the @Marker@ parameter and retrying the request. Constraints: You can specify either the __SnapshotCopyGrantName__ parameter or the __Marker__ parameter, but not both.-dscgsMarker :: Lens' DescribeSnapshotCopyGrants (Maybe Text)-dscgsMarker = lens _dscgsMarker (\ s a -> s{_dscgsMarker = a})---- | The maximum number of response records to return in each call. If the number of remaining response records exceeds the specified @MaxRecords@ value, a value is returned in a @marker@ field of the response. You can retrieve the next set of records by retrying the command with the returned marker value. Default: @100@ Constraints: minimum 20, maximum 100.-dscgsMaxRecords :: Lens' DescribeSnapshotCopyGrants (Maybe Int)-dscgsMaxRecords = lens _dscgsMaxRecords (\ s a -> s{_dscgsMaxRecords = a})---- | The name of the snapshot copy grant.-dscgsSnapshotCopyGrantName :: Lens' DescribeSnapshotCopyGrants (Maybe Text)-dscgsSnapshotCopyGrantName = lens _dscgsSnapshotCopyGrantName (\ s a -> s{_dscgsSnapshotCopyGrantName = a})--instance AWSRequest DescribeSnapshotCopyGrants where- type Rs DescribeSnapshotCopyGrants =- DescribeSnapshotCopyGrantsResponse- request = postQuery redshift- response- = receiveXMLWrapper- "DescribeSnapshotCopyGrantsResult"- (\ s h x ->- DescribeSnapshotCopyGrantsResponse' <$>- (x .@? "SnapshotCopyGrants" .!@ mempty >>=- may (parseXMLList "SnapshotCopyGrant"))- <*> (x .@? "Marker")- <*> (pure (fromEnum s)))--instance Hashable DescribeSnapshotCopyGrants where--instance NFData DescribeSnapshotCopyGrants where--instance ToHeaders DescribeSnapshotCopyGrants where- toHeaders = const mempty--instance ToPath DescribeSnapshotCopyGrants where- toPath = const "/"--instance ToQuery DescribeSnapshotCopyGrants where- toQuery DescribeSnapshotCopyGrants'{..}- = mconcat- ["Action" =:- ("DescribeSnapshotCopyGrants" :: ByteString),- "Version" =: ("2012-12-01" :: ByteString),- "TagValues" =:- toQuery (toQueryList "TagValue" <$> _dscgsTagValues),- "TagKeys" =:- toQuery (toQueryList "TagKey" <$> _dscgsTagKeys),- "Marker" =: _dscgsMarker,- "MaxRecords" =: _dscgsMaxRecords,- "SnapshotCopyGrantName" =:- _dscgsSnapshotCopyGrantName]---- |------------ /See:/ 'describeSnapshotCopyGrantsResponse' smart constructor.-data DescribeSnapshotCopyGrantsResponse = DescribeSnapshotCopyGrantsResponse'- { _dscgrsSnapshotCopyGrants :: !(Maybe [SnapshotCopyGrant])- , _dscgrsMarker :: !(Maybe Text)- , _dscgrsResponseStatus :: !Int- } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'DescribeSnapshotCopyGrantsResponse' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'dscgrsSnapshotCopyGrants' - The list of @SnapshotCopyGrant@ objects.------ * 'dscgrsMarker' - An optional parameter that specifies the starting point to return a set of response records. When the results of a @DescribeSnapshotCopyGrant@ request exceed the value specified in @MaxRecords@ , AWS returns a value in the @Marker@ field of the response. You can retrieve the next set of response records by providing the returned marker value in the @Marker@ parameter and retrying the request. Constraints: You can specify either the __SnapshotCopyGrantName__ parameter or the __Marker__ parameter, but not both.------ * 'dscgrsResponseStatus' - -- | The response status code.-describeSnapshotCopyGrantsResponse- :: Int -- ^ 'dscgrsResponseStatus'- -> DescribeSnapshotCopyGrantsResponse-describeSnapshotCopyGrantsResponse pResponseStatus_ =- DescribeSnapshotCopyGrantsResponse'- { _dscgrsSnapshotCopyGrants = Nothing- , _dscgrsMarker = Nothing- , _dscgrsResponseStatus = pResponseStatus_- }----- | The list of @SnapshotCopyGrant@ objects.-dscgrsSnapshotCopyGrants :: Lens' DescribeSnapshotCopyGrantsResponse [SnapshotCopyGrant]-dscgrsSnapshotCopyGrants = lens _dscgrsSnapshotCopyGrants (\ s a -> s{_dscgrsSnapshotCopyGrants = a}) . _Default . _Coerce---- | An optional parameter that specifies the starting point to return a set of response records. When the results of a @DescribeSnapshotCopyGrant@ request exceed the value specified in @MaxRecords@ , AWS returns a value in the @Marker@ field of the response. You can retrieve the next set of response records by providing the returned marker value in the @Marker@ parameter and retrying the request. Constraints: You can specify either the __SnapshotCopyGrantName__ parameter or the __Marker__ parameter, but not both.-dscgrsMarker :: Lens' DescribeSnapshotCopyGrantsResponse (Maybe Text)-dscgrsMarker = lens _dscgrsMarker (\ s a -> s{_dscgrsMarker = a})---- | -- | The response status code.-dscgrsResponseStatus :: Lens' DescribeSnapshotCopyGrantsResponse Int-dscgrsResponseStatus = lens _dscgrsResponseStatus (\ s a -> s{_dscgrsResponseStatus = a})--instance NFData DescribeSnapshotCopyGrantsResponse- where
− gen/Network/AWS/Redshift/DescribeTableRestoreStatus.hs
@@ -1,183 +0,0 @@-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric #-}-{-# LANGUAGE OverloadedStrings #-}-{-# LANGUAGE RecordWildCards #-}-{-# LANGUAGE TypeFamilies #-}--{-# OPTIONS_GHC -fno-warn-unused-imports #-}-{-# OPTIONS_GHC -fno-warn-unused-binds #-}-{-# OPTIONS_GHC -fno-warn-unused-matches #-}---- Derived from AWS service descriptions, licensed under Apache 2.0.---- |--- Module : Network.AWS.Redshift.DescribeTableRestoreStatus--- Copyright : (c) 2013-2018 Brendan Hay--- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>--- Stability : auto-generated--- Portability : non-portable (GHC extensions)------ Lists the status of one or more table restore requests made using the 'RestoreTableFromClusterSnapshot' API action. If you don't specify a value for the @TableRestoreRequestId@ parameter, then @DescribeTableRestoreStatus@ returns the status of all table restore requests ordered by the date and time of the request in ascending order. Otherwise @DescribeTableRestoreStatus@ returns the status of the table specified by @TableRestoreRequestId@ .-------module Network.AWS.Redshift.DescribeTableRestoreStatus- (- -- * Creating a Request- describeTableRestoreStatus- , DescribeTableRestoreStatus- -- * Request Lenses- , dtrssTableRestoreRequestId- , dtrssClusterIdentifier- , dtrssMarker- , dtrssMaxRecords-- -- * Destructuring the Response- , describeTableRestoreStatusResponse- , DescribeTableRestoreStatusResponse- -- * Response Lenses- , dtrsrsMarker- , dtrsrsTableRestoreStatusDetails- , dtrsrsResponseStatus- ) where--import Network.AWS.Lens-import Network.AWS.Prelude-import Network.AWS.Redshift.Types-import Network.AWS.Redshift.Types.Product-import Network.AWS.Request-import Network.AWS.Response---- |------------ /See:/ 'describeTableRestoreStatus' smart constructor.-data DescribeTableRestoreStatus = DescribeTableRestoreStatus'- { _dtrssTableRestoreRequestId :: !(Maybe Text)- , _dtrssClusterIdentifier :: !(Maybe Text)- , _dtrssMarker :: !(Maybe Text)- , _dtrssMaxRecords :: !(Maybe Int)- } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'DescribeTableRestoreStatus' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'dtrssTableRestoreRequestId' - The identifier of the table restore request to return status for. If you don't specify a @TableRestoreRequestId@ value, then @DescribeTableRestoreStatus@ returns the status of all in-progress table restore requests.------ * 'dtrssClusterIdentifier' - The Amazon Redshift cluster that the table is being restored to.------ * 'dtrssMarker' - An optional pagination token provided by a previous @DescribeTableRestoreStatus@ request. If this parameter is specified, the response includes only records beyond the marker, up to the value specified by the @MaxRecords@ parameter.------ * 'dtrssMaxRecords' - The maximum number of records to include in the response. If more records exist than the specified @MaxRecords@ value, a pagination token called a marker is included in the response so that the remaining results can be retrieved.-describeTableRestoreStatus- :: DescribeTableRestoreStatus-describeTableRestoreStatus =- DescribeTableRestoreStatus'- { _dtrssTableRestoreRequestId = Nothing- , _dtrssClusterIdentifier = Nothing- , _dtrssMarker = Nothing- , _dtrssMaxRecords = Nothing- }----- | The identifier of the table restore request to return status for. If you don't specify a @TableRestoreRequestId@ value, then @DescribeTableRestoreStatus@ returns the status of all in-progress table restore requests.-dtrssTableRestoreRequestId :: Lens' DescribeTableRestoreStatus (Maybe Text)-dtrssTableRestoreRequestId = lens _dtrssTableRestoreRequestId (\ s a -> s{_dtrssTableRestoreRequestId = a})---- | The Amazon Redshift cluster that the table is being restored to.-dtrssClusterIdentifier :: Lens' DescribeTableRestoreStatus (Maybe Text)-dtrssClusterIdentifier = lens _dtrssClusterIdentifier (\ s a -> s{_dtrssClusterIdentifier = a})---- | An optional pagination token provided by a previous @DescribeTableRestoreStatus@ request. If this parameter is specified, the response includes only records beyond the marker, up to the value specified by the @MaxRecords@ parameter.-dtrssMarker :: Lens' DescribeTableRestoreStatus (Maybe Text)-dtrssMarker = lens _dtrssMarker (\ s a -> s{_dtrssMarker = a})---- | The maximum number of records to include in the response. If more records exist than the specified @MaxRecords@ value, a pagination token called a marker is included in the response so that the remaining results can be retrieved.-dtrssMaxRecords :: Lens' DescribeTableRestoreStatus (Maybe Int)-dtrssMaxRecords = lens _dtrssMaxRecords (\ s a -> s{_dtrssMaxRecords = a})--instance AWSRequest DescribeTableRestoreStatus where- type Rs DescribeTableRestoreStatus =- DescribeTableRestoreStatusResponse- request = postQuery redshift- response- = receiveXMLWrapper- "DescribeTableRestoreStatusResult"- (\ s h x ->- DescribeTableRestoreStatusResponse' <$>- (x .@? "Marker") <*>- (x .@? "TableRestoreStatusDetails" .!@ mempty >>=- may (parseXMLList "TableRestoreStatus"))- <*> (pure (fromEnum s)))--instance Hashable DescribeTableRestoreStatus where--instance NFData DescribeTableRestoreStatus where--instance ToHeaders DescribeTableRestoreStatus where- toHeaders = const mempty--instance ToPath DescribeTableRestoreStatus where- toPath = const "/"--instance ToQuery DescribeTableRestoreStatus where- toQuery DescribeTableRestoreStatus'{..}- = mconcat- ["Action" =:- ("DescribeTableRestoreStatus" :: ByteString),- "Version" =: ("2012-12-01" :: ByteString),- "TableRestoreRequestId" =:- _dtrssTableRestoreRequestId,- "ClusterIdentifier" =: _dtrssClusterIdentifier,- "Marker" =: _dtrssMarker,- "MaxRecords" =: _dtrssMaxRecords]---- |------------ /See:/ 'describeTableRestoreStatusResponse' smart constructor.-data DescribeTableRestoreStatusResponse = DescribeTableRestoreStatusResponse'- { _dtrsrsMarker :: !(Maybe Text)- , _dtrsrsTableRestoreStatusDetails :: !(Maybe [TableRestoreStatus])- , _dtrsrsResponseStatus :: !Int- } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'DescribeTableRestoreStatusResponse' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'dtrsrsMarker' - A pagination token that can be used in a subsequent 'DescribeTableRestoreStatus' request.------ * 'dtrsrsTableRestoreStatusDetails' - A list of status details for one or more table restore requests.------ * 'dtrsrsResponseStatus' - -- | The response status code.-describeTableRestoreStatusResponse- :: Int -- ^ 'dtrsrsResponseStatus'- -> DescribeTableRestoreStatusResponse-describeTableRestoreStatusResponse pResponseStatus_ =- DescribeTableRestoreStatusResponse'- { _dtrsrsMarker = Nothing- , _dtrsrsTableRestoreStatusDetails = Nothing- , _dtrsrsResponseStatus = pResponseStatus_- }----- | A pagination token that can be used in a subsequent 'DescribeTableRestoreStatus' request.-dtrsrsMarker :: Lens' DescribeTableRestoreStatusResponse (Maybe Text)-dtrsrsMarker = lens _dtrsrsMarker (\ s a -> s{_dtrsrsMarker = a})---- | A list of status details for one or more table restore requests.-dtrsrsTableRestoreStatusDetails :: Lens' DescribeTableRestoreStatusResponse [TableRestoreStatus]-dtrsrsTableRestoreStatusDetails = lens _dtrsrsTableRestoreStatusDetails (\ s a -> s{_dtrsrsTableRestoreStatusDetails = a}) . _Default . _Coerce---- | -- | The response status code.-dtrsrsResponseStatus :: Lens' DescribeTableRestoreStatusResponse Int-dtrsrsResponseStatus = lens _dtrsrsResponseStatus (\ s a -> s{_dtrsrsResponseStatus = a})--instance NFData DescribeTableRestoreStatusResponse- where
− gen/Network/AWS/Redshift/DescribeTags.hs
@@ -1,213 +0,0 @@-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric #-}-{-# LANGUAGE OverloadedStrings #-}-{-# LANGUAGE RecordWildCards #-}-{-# LANGUAGE TypeFamilies #-}--{-# OPTIONS_GHC -fno-warn-unused-imports #-}-{-# OPTIONS_GHC -fno-warn-unused-binds #-}-{-# OPTIONS_GHC -fno-warn-unused-matches #-}---- Derived from AWS service descriptions, licensed under Apache 2.0.---- |--- Module : Network.AWS.Redshift.DescribeTags--- Copyright : (c) 2013-2018 Brendan Hay--- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>--- Stability : auto-generated--- Portability : non-portable (GHC extensions)------ Returns a list of tags. You can return tags from a specific resource by specifying an ARN, or you can return all tags for a given type of resource, such as clusters, snapshots, and so on.--------- The following are limitations for @DescribeTags@ :------ * You cannot specify an ARN and a resource-type value together in the same request.------ * You cannot use the @MaxRecords@ and @Marker@ parameters together with the ARN parameter.------ * The @MaxRecords@ parameter can be a range from 10 to 50 results to return in a request.------------ If you specify both tag keys and tag values in the same request, Amazon Redshift returns all resources that match any combination of the specified keys and values. For example, if you have @owner@ and @environment@ for tag keys, and @admin@ and @test@ for tag values, all resources that have any combination of those values are returned.------ If both tag keys and values are omitted from the request, resources are returned regardless of whether they have tag keys or values associated with them.----module Network.AWS.Redshift.DescribeTags- (- -- * Creating a Request- describeTags- , DescribeTags- -- * Request Lenses- , dtTagValues- , dtResourceType- , dtResourceName- , dtTagKeys- , dtMarker- , dtMaxRecords-- -- * Destructuring the Response- , describeTagsResponse- , DescribeTagsResponse- -- * Response Lenses- , dtrsMarker- , dtrsTaggedResources- , dtrsResponseStatus- ) where--import Network.AWS.Lens-import Network.AWS.Prelude-import Network.AWS.Redshift.Types-import Network.AWS.Redshift.Types.Product-import Network.AWS.Request-import Network.AWS.Response---- |------------ /See:/ 'describeTags' smart constructor.-data DescribeTags = DescribeTags'- { _dtTagValues :: !(Maybe [Text])- , _dtResourceType :: !(Maybe Text)- , _dtResourceName :: !(Maybe Text)- , _dtTagKeys :: !(Maybe [Text])- , _dtMarker :: !(Maybe Text)- , _dtMaxRecords :: !(Maybe Int)- } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'DescribeTags' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'dtTagValues' - A tag value or values for which you want to return all matching resources that are associated with the specified value or values. For example, suppose that you have resources tagged with values called @admin@ and @test@ . If you specify both of these tag values in the request, Amazon Redshift returns a response with all resources that have either or both of these tag values associated with them.------ * 'dtResourceType' - The type of resource with which you want to view tags. Valid resource types are: * Cluster * CIDR/IP * EC2 security group * Snapshot * Cluster security group * Subnet group * HSM connection * HSM certificate * Parameter group * Snapshot copy grant For more information about Amazon Redshift resource types and constructing ARNs, go to <http://docs.aws.amazon.com/redshift/latest/mgmt/redshift-iam-access-control-overview.html#redshift-iam-access-control-specify-actions Specifying Policy Elements: Actions, Effects, Resources, and Principals> in the Amazon Redshift Cluster Management Guide.------ * 'dtResourceName' - The Amazon Resource Name (ARN) for which you want to describe the tag or tags. For example, @arn:aws:redshift:us-east-1:123456789:cluster:t1@ .------ * 'dtTagKeys' - A tag key or keys for which you want to return all matching resources that are associated with the specified key or keys. For example, suppose that you have resources tagged with keys called @owner@ and @environment@ . If you specify both of these tag keys in the request, Amazon Redshift returns a response with all resources that have either or both of these tag keys associated with them.------ * 'dtMarker' - A value that indicates the starting point for the next set of response records in a subsequent request. If a value is returned in a response, you can retrieve the next set of records by providing this returned marker value in the @marker@ parameter and retrying the command. If the @marker@ field is empty, all response records have been retrieved for the request.------ * 'dtMaxRecords' - The maximum number or response records to return in each call. If the number of remaining response records exceeds the specified @MaxRecords@ value, a value is returned in a @marker@ field of the response. You can retrieve the next set of records by retrying the command with the returned @marker@ value.-describeTags- :: DescribeTags-describeTags =- DescribeTags'- { _dtTagValues = Nothing- , _dtResourceType = Nothing- , _dtResourceName = Nothing- , _dtTagKeys = Nothing- , _dtMarker = Nothing- , _dtMaxRecords = Nothing- }----- | A tag value or values for which you want to return all matching resources that are associated with the specified value or values. For example, suppose that you have resources tagged with values called @admin@ and @test@ . If you specify both of these tag values in the request, Amazon Redshift returns a response with all resources that have either or both of these tag values associated with them.-dtTagValues :: Lens' DescribeTags [Text]-dtTagValues = lens _dtTagValues (\ s a -> s{_dtTagValues = a}) . _Default . _Coerce---- | The type of resource with which you want to view tags. Valid resource types are: * Cluster * CIDR/IP * EC2 security group * Snapshot * Cluster security group * Subnet group * HSM connection * HSM certificate * Parameter group * Snapshot copy grant For more information about Amazon Redshift resource types and constructing ARNs, go to <http://docs.aws.amazon.com/redshift/latest/mgmt/redshift-iam-access-control-overview.html#redshift-iam-access-control-specify-actions Specifying Policy Elements: Actions, Effects, Resources, and Principals> in the Amazon Redshift Cluster Management Guide.-dtResourceType :: Lens' DescribeTags (Maybe Text)-dtResourceType = lens _dtResourceType (\ s a -> s{_dtResourceType = a})---- | The Amazon Resource Name (ARN) for which you want to describe the tag or tags. For example, @arn:aws:redshift:us-east-1:123456789:cluster:t1@ .-dtResourceName :: Lens' DescribeTags (Maybe Text)-dtResourceName = lens _dtResourceName (\ s a -> s{_dtResourceName = a})---- | A tag key or keys for which you want to return all matching resources that are associated with the specified key or keys. For example, suppose that you have resources tagged with keys called @owner@ and @environment@ . If you specify both of these tag keys in the request, Amazon Redshift returns a response with all resources that have either or both of these tag keys associated with them.-dtTagKeys :: Lens' DescribeTags [Text]-dtTagKeys = lens _dtTagKeys (\ s a -> s{_dtTagKeys = a}) . _Default . _Coerce---- | A value that indicates the starting point for the next set of response records in a subsequent request. If a value is returned in a response, you can retrieve the next set of records by providing this returned marker value in the @marker@ parameter and retrying the command. If the @marker@ field is empty, all response records have been retrieved for the request.-dtMarker :: Lens' DescribeTags (Maybe Text)-dtMarker = lens _dtMarker (\ s a -> s{_dtMarker = a})---- | The maximum number or response records to return in each call. If the number of remaining response records exceeds the specified @MaxRecords@ value, a value is returned in a @marker@ field of the response. You can retrieve the next set of records by retrying the command with the returned @marker@ value.-dtMaxRecords :: Lens' DescribeTags (Maybe Int)-dtMaxRecords = lens _dtMaxRecords (\ s a -> s{_dtMaxRecords = a})--instance AWSRequest DescribeTags where- type Rs DescribeTags = DescribeTagsResponse- request = postQuery redshift- response- = receiveXMLWrapper "DescribeTagsResult"- (\ s h x ->- DescribeTagsResponse' <$>- (x .@? "Marker") <*>- (x .@? "TaggedResources" .!@ mempty >>=- may (parseXMLList "TaggedResource"))- <*> (pure (fromEnum s)))--instance Hashable DescribeTags where--instance NFData DescribeTags where--instance ToHeaders DescribeTags where- toHeaders = const mempty--instance ToPath DescribeTags where- toPath = const "/"--instance ToQuery DescribeTags where- toQuery DescribeTags'{..}- = mconcat- ["Action" =: ("DescribeTags" :: ByteString),- "Version" =: ("2012-12-01" :: ByteString),- "TagValues" =:- toQuery (toQueryList "TagValue" <$> _dtTagValues),- "ResourceType" =: _dtResourceType,- "ResourceName" =: _dtResourceName,- "TagKeys" =:- toQuery (toQueryList "TagKey" <$> _dtTagKeys),- "Marker" =: _dtMarker, "MaxRecords" =: _dtMaxRecords]---- |------------ /See:/ 'describeTagsResponse' smart constructor.-data DescribeTagsResponse = DescribeTagsResponse'- { _dtrsMarker :: !(Maybe Text)- , _dtrsTaggedResources :: !(Maybe [TaggedResource])- , _dtrsResponseStatus :: !Int- } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'DescribeTagsResponse' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'dtrsMarker' - A value that indicates the starting point for the next set of response records in a subsequent request. If a value is returned in a response, you can retrieve the next set of records by providing this returned marker value in the @Marker@ parameter and retrying the command. If the @Marker@ field is empty, all response records have been retrieved for the request.------ * 'dtrsTaggedResources' - A list of tags with their associated resources.------ * 'dtrsResponseStatus' - -- | The response status code.-describeTagsResponse- :: Int -- ^ 'dtrsResponseStatus'- -> DescribeTagsResponse-describeTagsResponse pResponseStatus_ =- DescribeTagsResponse'- { _dtrsMarker = Nothing- , _dtrsTaggedResources = Nothing- , _dtrsResponseStatus = pResponseStatus_- }----- | A value that indicates the starting point for the next set of response records in a subsequent request. If a value is returned in a response, you can retrieve the next set of records by providing this returned marker value in the @Marker@ parameter and retrying the command. If the @Marker@ field is empty, all response records have been retrieved for the request.-dtrsMarker :: Lens' DescribeTagsResponse (Maybe Text)-dtrsMarker = lens _dtrsMarker (\ s a -> s{_dtrsMarker = a})---- | A list of tags with their associated resources.-dtrsTaggedResources :: Lens' DescribeTagsResponse [TaggedResource]-dtrsTaggedResources = lens _dtrsTaggedResources (\ s a -> s{_dtrsTaggedResources = a}) . _Default . _Coerce---- | -- | The response status code.-dtrsResponseStatus :: Lens' DescribeTagsResponse Int-dtrsResponseStatus = lens _dtrsResponseStatus (\ s a -> s{_dtrsResponseStatus = a})--instance NFData DescribeTagsResponse where
− gen/Network/AWS/Redshift/DisableLogging.hs
@@ -1,99 +0,0 @@-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric #-}-{-# LANGUAGE OverloadedStrings #-}-{-# LANGUAGE RecordWildCards #-}-{-# LANGUAGE TypeFamilies #-}--{-# OPTIONS_GHC -fno-warn-unused-imports #-}-{-# OPTIONS_GHC -fno-warn-unused-binds #-}-{-# OPTIONS_GHC -fno-warn-unused-matches #-}---- Derived from AWS service descriptions, licensed under Apache 2.0.---- |--- Module : Network.AWS.Redshift.DisableLogging--- Copyright : (c) 2013-2018 Brendan Hay--- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>--- Stability : auto-generated--- Portability : non-portable (GHC extensions)------ Stops logging information, such as queries and connection attempts, for the specified Amazon Redshift cluster.-------module Network.AWS.Redshift.DisableLogging- (- -- * Creating a Request- disableLogging- , DisableLogging- -- * Request Lenses- , dlClusterIdentifier-- -- * Destructuring the Response- , loggingStatus- , LoggingStatus- -- * Response Lenses- , lsLastFailureTime- , lsLastSuccessfulDeliveryTime- , lsS3KeyPrefix- , lsBucketName- , lsLoggingEnabled- , lsLastFailureMessage- ) where--import Network.AWS.Lens-import Network.AWS.Prelude-import Network.AWS.Redshift.Types-import Network.AWS.Redshift.Types.Product-import Network.AWS.Request-import Network.AWS.Response---- |------------ /See:/ 'disableLogging' smart constructor.-newtype DisableLogging = DisableLogging'- { _dlClusterIdentifier :: Text- } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'DisableLogging' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'dlClusterIdentifier' - The identifier of the cluster on which logging is to be stopped. Example: @examplecluster@-disableLogging- :: Text -- ^ 'dlClusterIdentifier'- -> DisableLogging-disableLogging pClusterIdentifier_ =- DisableLogging' {_dlClusterIdentifier = pClusterIdentifier_}----- | The identifier of the cluster on which logging is to be stopped. Example: @examplecluster@-dlClusterIdentifier :: Lens' DisableLogging Text-dlClusterIdentifier = lens _dlClusterIdentifier (\ s a -> s{_dlClusterIdentifier = a})--instance AWSRequest DisableLogging where- type Rs DisableLogging = LoggingStatus- request = postQuery redshift- response- = receiveXMLWrapper "DisableLoggingResult"- (\ s h x -> parseXML x)--instance Hashable DisableLogging where--instance NFData DisableLogging where--instance ToHeaders DisableLogging where- toHeaders = const mempty--instance ToPath DisableLogging where- toPath = const "/"--instance ToQuery DisableLogging where- toQuery DisableLogging'{..}- = mconcat- ["Action" =: ("DisableLogging" :: ByteString),- "Version" =: ("2012-12-01" :: ByteString),- "ClusterIdentifier" =: _dlClusterIdentifier]
− gen/Network/AWS/Redshift/DisableSnapshotCopy.hs
@@ -1,132 +0,0 @@-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric #-}-{-# LANGUAGE OverloadedStrings #-}-{-# LANGUAGE RecordWildCards #-}-{-# LANGUAGE TypeFamilies #-}--{-# OPTIONS_GHC -fno-warn-unused-imports #-}-{-# OPTIONS_GHC -fno-warn-unused-binds #-}-{-# OPTIONS_GHC -fno-warn-unused-matches #-}---- Derived from AWS service descriptions, licensed under Apache 2.0.---- |--- Module : Network.AWS.Redshift.DisableSnapshotCopy--- Copyright : (c) 2013-2018 Brendan Hay--- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>--- Stability : auto-generated--- Portability : non-portable (GHC extensions)------ Disables the automatic copying of snapshots from one region to another region for a specified cluster.--------- If your cluster and its snapshots are encrypted using a customer master key (CMK) from AWS KMS, use 'DeleteSnapshotCopyGrant' to delete the grant that grants Amazon Redshift permission to the CMK in the destination region.----module Network.AWS.Redshift.DisableSnapshotCopy- (- -- * Creating a Request- disableSnapshotCopy- , DisableSnapshotCopy- -- * Request Lenses- , dscClusterIdentifier-- -- * Destructuring the Response- , disableSnapshotCopyResponse- , DisableSnapshotCopyResponse- -- * Response Lenses- , dscrsCluster- , dscrsResponseStatus- ) where--import Network.AWS.Lens-import Network.AWS.Prelude-import Network.AWS.Redshift.Types-import Network.AWS.Redshift.Types.Product-import Network.AWS.Request-import Network.AWS.Response---- |------------ /See:/ 'disableSnapshotCopy' smart constructor.-newtype DisableSnapshotCopy = DisableSnapshotCopy'- { _dscClusterIdentifier :: Text- } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'DisableSnapshotCopy' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'dscClusterIdentifier' - The unique identifier of the source cluster that you want to disable copying of snapshots to a destination region. Constraints: Must be the valid name of an existing cluster that has cross-region snapshot copy enabled.-disableSnapshotCopy- :: Text -- ^ 'dscClusterIdentifier'- -> DisableSnapshotCopy-disableSnapshotCopy pClusterIdentifier_ =- DisableSnapshotCopy' {_dscClusterIdentifier = pClusterIdentifier_}----- | The unique identifier of the source cluster that you want to disable copying of snapshots to a destination region. Constraints: Must be the valid name of an existing cluster that has cross-region snapshot copy enabled.-dscClusterIdentifier :: Lens' DisableSnapshotCopy Text-dscClusterIdentifier = lens _dscClusterIdentifier (\ s a -> s{_dscClusterIdentifier = a})--instance AWSRequest DisableSnapshotCopy where- type Rs DisableSnapshotCopy =- DisableSnapshotCopyResponse- request = postQuery redshift- response- = receiveXMLWrapper "DisableSnapshotCopyResult"- (\ s h x ->- DisableSnapshotCopyResponse' <$>- (x .@? "Cluster") <*> (pure (fromEnum s)))--instance Hashable DisableSnapshotCopy where--instance NFData DisableSnapshotCopy where--instance ToHeaders DisableSnapshotCopy where- toHeaders = const mempty--instance ToPath DisableSnapshotCopy where- toPath = const "/"--instance ToQuery DisableSnapshotCopy where- toQuery DisableSnapshotCopy'{..}- = mconcat- ["Action" =: ("DisableSnapshotCopy" :: ByteString),- "Version" =: ("2012-12-01" :: ByteString),- "ClusterIdentifier" =: _dscClusterIdentifier]---- | /See:/ 'disableSnapshotCopyResponse' smart constructor.-data DisableSnapshotCopyResponse = DisableSnapshotCopyResponse'- { _dscrsCluster :: !(Maybe Cluster)- , _dscrsResponseStatus :: !Int- } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'DisableSnapshotCopyResponse' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'dscrsCluster' - Undocumented member.------ * 'dscrsResponseStatus' - -- | The response status code.-disableSnapshotCopyResponse- :: Int -- ^ 'dscrsResponseStatus'- -> DisableSnapshotCopyResponse-disableSnapshotCopyResponse pResponseStatus_ =- DisableSnapshotCopyResponse'- {_dscrsCluster = Nothing, _dscrsResponseStatus = pResponseStatus_}----- | Undocumented member.-dscrsCluster :: Lens' DisableSnapshotCopyResponse (Maybe Cluster)-dscrsCluster = lens _dscrsCluster (\ s a -> s{_dscrsCluster = a})---- | -- | The response status code.-dscrsResponseStatus :: Lens' DisableSnapshotCopyResponse Int-dscrsResponseStatus = lens _dscrsResponseStatus (\ s a -> s{_dscrsResponseStatus = a})--instance NFData DisableSnapshotCopyResponse where
− gen/Network/AWS/Redshift/EnableLogging.hs
@@ -1,122 +0,0 @@-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric #-}-{-# LANGUAGE OverloadedStrings #-}-{-# LANGUAGE RecordWildCards #-}-{-# LANGUAGE TypeFamilies #-}--{-# OPTIONS_GHC -fno-warn-unused-imports #-}-{-# OPTIONS_GHC -fno-warn-unused-binds #-}-{-# OPTIONS_GHC -fno-warn-unused-matches #-}---- Derived from AWS service descriptions, licensed under Apache 2.0.---- |--- Module : Network.AWS.Redshift.EnableLogging--- Copyright : (c) 2013-2018 Brendan Hay--- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>--- Stability : auto-generated--- Portability : non-portable (GHC extensions)------ Starts logging information, such as queries and connection attempts, for the specified Amazon Redshift cluster.-------module Network.AWS.Redshift.EnableLogging- (- -- * Creating a Request- enableLogging- , EnableLogging- -- * Request Lenses- , elS3KeyPrefix- , elClusterIdentifier- , elBucketName-- -- * Destructuring the Response- , loggingStatus- , LoggingStatus- -- * Response Lenses- , lsLastFailureTime- , lsLastSuccessfulDeliveryTime- , lsS3KeyPrefix- , lsBucketName- , lsLoggingEnabled- , lsLastFailureMessage- ) where--import Network.AWS.Lens-import Network.AWS.Prelude-import Network.AWS.Redshift.Types-import Network.AWS.Redshift.Types.Product-import Network.AWS.Request-import Network.AWS.Response---- |------------ /See:/ 'enableLogging' smart constructor.-data EnableLogging = EnableLogging'- { _elS3KeyPrefix :: !(Maybe Text)- , _elClusterIdentifier :: !Text- , _elBucketName :: !Text- } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'EnableLogging' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'elS3KeyPrefix' - The prefix applied to the log file names. Constraints: * Cannot exceed 512 characters * Cannot contain spaces( ), double quotes ("), single quotes ('), a backslash (\), or control characters. The hexadecimal codes for invalid characters are: * x00 to x20 * x22 * x27 * x5c * x7f or larger------ * 'elClusterIdentifier' - The identifier of the cluster on which logging is to be started. Example: @examplecluster@------ * 'elBucketName' - The name of an existing S3 bucket where the log files are to be stored. Constraints: * Must be in the same region as the cluster * The cluster must have read bucket and put object permissions-enableLogging- :: Text -- ^ 'elClusterIdentifier'- -> Text -- ^ 'elBucketName'- -> EnableLogging-enableLogging pClusterIdentifier_ pBucketName_ =- EnableLogging'- { _elS3KeyPrefix = Nothing- , _elClusterIdentifier = pClusterIdentifier_- , _elBucketName = pBucketName_- }----- | The prefix applied to the log file names. Constraints: * Cannot exceed 512 characters * Cannot contain spaces( ), double quotes ("), single quotes ('), a backslash (\), or control characters. The hexadecimal codes for invalid characters are: * x00 to x20 * x22 * x27 * x5c * x7f or larger-elS3KeyPrefix :: Lens' EnableLogging (Maybe Text)-elS3KeyPrefix = lens _elS3KeyPrefix (\ s a -> s{_elS3KeyPrefix = a})---- | The identifier of the cluster on which logging is to be started. Example: @examplecluster@-elClusterIdentifier :: Lens' EnableLogging Text-elClusterIdentifier = lens _elClusterIdentifier (\ s a -> s{_elClusterIdentifier = a})---- | The name of an existing S3 bucket where the log files are to be stored. Constraints: * Must be in the same region as the cluster * The cluster must have read bucket and put object permissions-elBucketName :: Lens' EnableLogging Text-elBucketName = lens _elBucketName (\ s a -> s{_elBucketName = a})--instance AWSRequest EnableLogging where- type Rs EnableLogging = LoggingStatus- request = postQuery redshift- response- = receiveXMLWrapper "EnableLoggingResult"- (\ s h x -> parseXML x)--instance Hashable EnableLogging where--instance NFData EnableLogging where--instance ToHeaders EnableLogging where- toHeaders = const mempty--instance ToPath EnableLogging where- toPath = const "/"--instance ToQuery EnableLogging where- toQuery EnableLogging'{..}- = mconcat- ["Action" =: ("EnableLogging" :: ByteString),- "Version" =: ("2012-12-01" :: ByteString),- "S3KeyPrefix" =: _elS3KeyPrefix,- "ClusterIdentifier" =: _elClusterIdentifier,- "BucketName" =: _elBucketName]
− gen/Network/AWS/Redshift/EnableSnapshotCopy.hs
@@ -1,163 +0,0 @@-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric #-}-{-# LANGUAGE OverloadedStrings #-}-{-# LANGUAGE RecordWildCards #-}-{-# LANGUAGE TypeFamilies #-}--{-# OPTIONS_GHC -fno-warn-unused-imports #-}-{-# OPTIONS_GHC -fno-warn-unused-binds #-}-{-# OPTIONS_GHC -fno-warn-unused-matches #-}---- Derived from AWS service descriptions, licensed under Apache 2.0.---- |--- Module : Network.AWS.Redshift.EnableSnapshotCopy--- Copyright : (c) 2013-2018 Brendan Hay--- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>--- Stability : auto-generated--- Portability : non-portable (GHC extensions)------ Enables the automatic copy of snapshots from one region to another region for a specified cluster.-------module Network.AWS.Redshift.EnableSnapshotCopy- (- -- * Creating a Request- enableSnapshotCopy- , EnableSnapshotCopy- -- * Request Lenses- , escRetentionPeriod- , escSnapshotCopyGrantName- , escClusterIdentifier- , escDestinationRegion-- -- * Destructuring the Response- , enableSnapshotCopyResponse- , EnableSnapshotCopyResponse- -- * Response Lenses- , escrsCluster- , escrsResponseStatus- ) where--import Network.AWS.Lens-import Network.AWS.Prelude-import Network.AWS.Redshift.Types-import Network.AWS.Redshift.Types.Product-import Network.AWS.Request-import Network.AWS.Response---- |------------ /See:/ 'enableSnapshotCopy' smart constructor.-data EnableSnapshotCopy = EnableSnapshotCopy'- { _escRetentionPeriod :: !(Maybe Int)- , _escSnapshotCopyGrantName :: !(Maybe Text)- , _escClusterIdentifier :: !Text- , _escDestinationRegion :: !Text- } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'EnableSnapshotCopy' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'escRetentionPeriod' - The number of days to retain automated snapshots in the destination region after they are copied from the source region. Default: 7. Constraints: Must be at least 1 and no more than 35.------ * 'escSnapshotCopyGrantName' - The name of the snapshot copy grant to use when snapshots of an AWS KMS-encrypted cluster are copied to the destination region.------ * 'escClusterIdentifier' - The unique identifier of the source cluster to copy snapshots from. Constraints: Must be the valid name of an existing cluster that does not already have cross-region snapshot copy enabled.------ * 'escDestinationRegion' - The destination region that you want to copy snapshots to. Constraints: Must be the name of a valid region. For more information, see <http://docs.aws.amazon.com/general/latest/gr/rande.html#redshift_region Regions and Endpoints> in the Amazon Web Services General Reference.-enableSnapshotCopy- :: Text -- ^ 'escClusterIdentifier'- -> Text -- ^ 'escDestinationRegion'- -> EnableSnapshotCopy-enableSnapshotCopy pClusterIdentifier_ pDestinationRegion_ =- EnableSnapshotCopy'- { _escRetentionPeriod = Nothing- , _escSnapshotCopyGrantName = Nothing- , _escClusterIdentifier = pClusterIdentifier_- , _escDestinationRegion = pDestinationRegion_- }----- | The number of days to retain automated snapshots in the destination region after they are copied from the source region. Default: 7. Constraints: Must be at least 1 and no more than 35.-escRetentionPeriod :: Lens' EnableSnapshotCopy (Maybe Int)-escRetentionPeriod = lens _escRetentionPeriod (\ s a -> s{_escRetentionPeriod = a})---- | The name of the snapshot copy grant to use when snapshots of an AWS KMS-encrypted cluster are copied to the destination region.-escSnapshotCopyGrantName :: Lens' EnableSnapshotCopy (Maybe Text)-escSnapshotCopyGrantName = lens _escSnapshotCopyGrantName (\ s a -> s{_escSnapshotCopyGrantName = a})---- | The unique identifier of the source cluster to copy snapshots from. Constraints: Must be the valid name of an existing cluster that does not already have cross-region snapshot copy enabled.-escClusterIdentifier :: Lens' EnableSnapshotCopy Text-escClusterIdentifier = lens _escClusterIdentifier (\ s a -> s{_escClusterIdentifier = a})---- | The destination region that you want to copy snapshots to. Constraints: Must be the name of a valid region. For more information, see <http://docs.aws.amazon.com/general/latest/gr/rande.html#redshift_region Regions and Endpoints> in the Amazon Web Services General Reference.-escDestinationRegion :: Lens' EnableSnapshotCopy Text-escDestinationRegion = lens _escDestinationRegion (\ s a -> s{_escDestinationRegion = a})--instance AWSRequest EnableSnapshotCopy where- type Rs EnableSnapshotCopy =- EnableSnapshotCopyResponse- request = postQuery redshift- response- = receiveXMLWrapper "EnableSnapshotCopyResult"- (\ s h x ->- EnableSnapshotCopyResponse' <$>- (x .@? "Cluster") <*> (pure (fromEnum s)))--instance Hashable EnableSnapshotCopy where--instance NFData EnableSnapshotCopy where--instance ToHeaders EnableSnapshotCopy where- toHeaders = const mempty--instance ToPath EnableSnapshotCopy where- toPath = const "/"--instance ToQuery EnableSnapshotCopy where- toQuery EnableSnapshotCopy'{..}- = mconcat- ["Action" =: ("EnableSnapshotCopy" :: ByteString),- "Version" =: ("2012-12-01" :: ByteString),- "RetentionPeriod" =: _escRetentionPeriod,- "SnapshotCopyGrantName" =: _escSnapshotCopyGrantName,- "ClusterIdentifier" =: _escClusterIdentifier,- "DestinationRegion" =: _escDestinationRegion]---- | /See:/ 'enableSnapshotCopyResponse' smart constructor.-data EnableSnapshotCopyResponse = EnableSnapshotCopyResponse'- { _escrsCluster :: !(Maybe Cluster)- , _escrsResponseStatus :: !Int- } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'EnableSnapshotCopyResponse' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'escrsCluster' - Undocumented member.------ * 'escrsResponseStatus' - -- | The response status code.-enableSnapshotCopyResponse- :: Int -- ^ 'escrsResponseStatus'- -> EnableSnapshotCopyResponse-enableSnapshotCopyResponse pResponseStatus_ =- EnableSnapshotCopyResponse'- {_escrsCluster = Nothing, _escrsResponseStatus = pResponseStatus_}----- | Undocumented member.-escrsCluster :: Lens' EnableSnapshotCopyResponse (Maybe Cluster)-escrsCluster = lens _escrsCluster (\ s a -> s{_escrsCluster = a})---- | -- | The response status code.-escrsResponseStatus :: Lens' EnableSnapshotCopyResponse Int-escrsResponseStatus = lens _escrsResponseStatus (\ s a -> s{_escrsResponseStatus = a})--instance NFData EnableSnapshotCopyResponse where
− gen/Network/AWS/Redshift/GetClusterCredentials.hs
@@ -1,217 +0,0 @@-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric #-}-{-# LANGUAGE OverloadedStrings #-}-{-# LANGUAGE RecordWildCards #-}-{-# LANGUAGE TypeFamilies #-}--{-# OPTIONS_GHC -fno-warn-unused-imports #-}-{-# OPTIONS_GHC -fno-warn-unused-binds #-}-{-# OPTIONS_GHC -fno-warn-unused-matches #-}---- Derived from AWS service descriptions, licensed under Apache 2.0.---- |--- Module : Network.AWS.Redshift.GetClusterCredentials--- Copyright : (c) 2013-2018 Brendan Hay--- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>--- Stability : auto-generated--- Portability : non-portable (GHC extensions)------ Returns a database user name and temporary password with temporary authorization to log on to an Amazon Redshift database. The action returns the database user name prefixed with @IAM:@ if @AutoCreate@ is @False@ or @IAMA:@ if @AutoCreate@ is @True@ . You can optionally specify one or more database user groups that the user will join at log on. By default, the temporary credentials expire in 900 seconds. You can optionally specify a duration between 900 seconds (15 minutes) and 3600 seconds (60 minutes). For more information, see <http://docs.aws.amazon.com/redshift/latest/mgmt/generating-user-credentials.html Using IAM Authentication to Generate Database User Credentials> in the Amazon Redshift Cluster Management Guide.--------- The AWS Identity and Access Management (IAM)user or role that executes GetClusterCredentials must have an IAM policy attached that allows access to all necessary actions and resources. For more information about permissions, see <http://docs.aws.amazon.com/redshift/latest/mgmt/redshift-iam-access-control-identity-based.html#redshift-policy-resources.getclustercredentials-resources Resource Policies for GetClusterCredentials> in the Amazon Redshift Cluster Management Guide.------ If the @DbGroups@ parameter is specified, the IAM policy must allow the @redshift:JoinGroup@ action with access to the listed @dbgroups@ .------ In addition, if the @AutoCreate@ parameter is set to @True@ , then the policy must include the @redshift:CreateClusterUser@ privilege.------ If the @DbName@ parameter is specified, the IAM policy must allow access to the resource @dbname@ for the specified database name.----module Network.AWS.Redshift.GetClusterCredentials- (- -- * Creating a Request- getClusterCredentials- , GetClusterCredentials- -- * Request Lenses- , gccDBGroups- , gccDurationSeconds- , gccAutoCreate- , gccDBName- , gccDBUser- , gccClusterIdentifier-- -- * Destructuring the Response- , getClusterCredentialsResponse- , GetClusterCredentialsResponse- -- * Response Lenses- , gccrsDBUser- , gccrsExpiration- , gccrsDBPassword- , gccrsResponseStatus- ) where--import Network.AWS.Lens-import Network.AWS.Prelude-import Network.AWS.Redshift.Types-import Network.AWS.Redshift.Types.Product-import Network.AWS.Request-import Network.AWS.Response---- | The request parameters to get cluster credentials.------------ /See:/ 'getClusterCredentials' smart constructor.-data GetClusterCredentials = GetClusterCredentials'- { _gccDBGroups :: !(Maybe [Text])- , _gccDurationSeconds :: !(Maybe Int)- , _gccAutoCreate :: !(Maybe Bool)- , _gccDBName :: !(Maybe Text)- , _gccDBUser :: !Text- , _gccClusterIdentifier :: !Text- } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'GetClusterCredentials' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'gccDBGroups' - A list of the names of existing database groups that the user named in @DbUser@ will join for the current session, in addition to any group memberships for an existing user. If not specified, a new user is added only to PUBLIC. Database group name constraints * Must be 1 to 64 alphanumeric characters or hyphens * Must contain only lowercase letters, numbers, underscore, plus sign, period (dot), at symbol (@), or hyphen. * First character must be a letter. * Must not contain a colon ( : ) or slash ( / ). * Cannot be a reserved word. A list of reserved words can be found in <http://docs.aws.amazon.com/redshift/latest/dg/r_pg_keywords.html Reserved Words> in the Amazon Redshift Database Developer Guide.------ * 'gccDurationSeconds' - The number of seconds until the returned temporary password expires. Constraint: minimum 900, maximum 3600. Default: 900------ * 'gccAutoCreate' - Create a database user with the name specified for the user named in @DbUser@ if one does not exist.------ * 'gccDBName' - The name of a database that @DbUser@ is authorized to log on to. If @DbName@ is not specified, @DbUser@ can log on to any existing database. Constraints: * Must be 1 to 64 alphanumeric characters or hyphens * Must contain only lowercase letters, numbers, underscore, plus sign, period (dot), at symbol (@), or hyphen. * First character must be a letter. * Must not contain a colon ( : ) or slash ( / ). * Cannot be a reserved word. A list of reserved words can be found in <http://docs.aws.amazon.com/redshift/latest/dg/r_pg_keywords.html Reserved Words> in the Amazon Redshift Database Developer Guide.------ * 'gccDBUser' - The name of a database user. If a user name matching @DbUser@ exists in the database, the temporary user credentials have the same permissions as the existing user. If @DbUser@ doesn't exist in the database and @Autocreate@ is @True@ , a new user is created using the value for @DbUser@ with PUBLIC permissions. If a database user matching the value for @DbUser@ doesn't exist and @Autocreate@ is @False@ , then the command succeeds but the connection attempt will fail because the user doesn't exist in the database. For more information, see <http://docs.aws.amazon.com/redshift/latest/dg/r_CREATE_USER.html CREATE USER> in the Amazon Redshift Database Developer Guide. Constraints: * Must be 1 to 64 alphanumeric characters or hyphens. The user name can't be @PUBLIC@ . * Must contain only lowercase letters, numbers, underscore, plus sign, period (dot), at symbol (@), or hyphen. * First character must be a letter. * Must not contain a colon ( : ) or slash ( / ). * Cannot be a reserved word. A list of reserved words can be found in <http://docs.aws.amazon.com/redshift/latest/dg/r_pg_keywords.html Reserved Words> in the Amazon Redshift Database Developer Guide.------ * 'gccClusterIdentifier' - The unique identifier of the cluster that contains the database for which your are requesting credentials. This parameter is case sensitive.-getClusterCredentials- :: Text -- ^ 'gccDBUser'- -> Text -- ^ 'gccClusterIdentifier'- -> GetClusterCredentials-getClusterCredentials pDBUser_ pClusterIdentifier_ =- GetClusterCredentials'- { _gccDBGroups = Nothing- , _gccDurationSeconds = Nothing- , _gccAutoCreate = Nothing- , _gccDBName = Nothing- , _gccDBUser = pDBUser_- , _gccClusterIdentifier = pClusterIdentifier_- }----- | A list of the names of existing database groups that the user named in @DbUser@ will join for the current session, in addition to any group memberships for an existing user. If not specified, a new user is added only to PUBLIC. Database group name constraints * Must be 1 to 64 alphanumeric characters or hyphens * Must contain only lowercase letters, numbers, underscore, plus sign, period (dot), at symbol (@), or hyphen. * First character must be a letter. * Must not contain a colon ( : ) or slash ( / ). * Cannot be a reserved word. A list of reserved words can be found in <http://docs.aws.amazon.com/redshift/latest/dg/r_pg_keywords.html Reserved Words> in the Amazon Redshift Database Developer Guide.-gccDBGroups :: Lens' GetClusterCredentials [Text]-gccDBGroups = lens _gccDBGroups (\ s a -> s{_gccDBGroups = a}) . _Default . _Coerce---- | The number of seconds until the returned temporary password expires. Constraint: minimum 900, maximum 3600. Default: 900-gccDurationSeconds :: Lens' GetClusterCredentials (Maybe Int)-gccDurationSeconds = lens _gccDurationSeconds (\ s a -> s{_gccDurationSeconds = a})---- | Create a database user with the name specified for the user named in @DbUser@ if one does not exist.-gccAutoCreate :: Lens' GetClusterCredentials (Maybe Bool)-gccAutoCreate = lens _gccAutoCreate (\ s a -> s{_gccAutoCreate = a})---- | The name of a database that @DbUser@ is authorized to log on to. If @DbName@ is not specified, @DbUser@ can log on to any existing database. Constraints: * Must be 1 to 64 alphanumeric characters or hyphens * Must contain only lowercase letters, numbers, underscore, plus sign, period (dot), at symbol (@), or hyphen. * First character must be a letter. * Must not contain a colon ( : ) or slash ( / ). * Cannot be a reserved word. A list of reserved words can be found in <http://docs.aws.amazon.com/redshift/latest/dg/r_pg_keywords.html Reserved Words> in the Amazon Redshift Database Developer Guide.-gccDBName :: Lens' GetClusterCredentials (Maybe Text)-gccDBName = lens _gccDBName (\ s a -> s{_gccDBName = a})---- | The name of a database user. If a user name matching @DbUser@ exists in the database, the temporary user credentials have the same permissions as the existing user. If @DbUser@ doesn't exist in the database and @Autocreate@ is @True@ , a new user is created using the value for @DbUser@ with PUBLIC permissions. If a database user matching the value for @DbUser@ doesn't exist and @Autocreate@ is @False@ , then the command succeeds but the connection attempt will fail because the user doesn't exist in the database. For more information, see <http://docs.aws.amazon.com/redshift/latest/dg/r_CREATE_USER.html CREATE USER> in the Amazon Redshift Database Developer Guide. Constraints: * Must be 1 to 64 alphanumeric characters or hyphens. The user name can't be @PUBLIC@ . * Must contain only lowercase letters, numbers, underscore, plus sign, period (dot), at symbol (@), or hyphen. * First character must be a letter. * Must not contain a colon ( : ) or slash ( / ). * Cannot be a reserved word. A list of reserved words can be found in <http://docs.aws.amazon.com/redshift/latest/dg/r_pg_keywords.html Reserved Words> in the Amazon Redshift Database Developer Guide.-gccDBUser :: Lens' GetClusterCredentials Text-gccDBUser = lens _gccDBUser (\ s a -> s{_gccDBUser = a})---- | The unique identifier of the cluster that contains the database for which your are requesting credentials. This parameter is case sensitive.-gccClusterIdentifier :: Lens' GetClusterCredentials Text-gccClusterIdentifier = lens _gccClusterIdentifier (\ s a -> s{_gccClusterIdentifier = a})--instance AWSRequest GetClusterCredentials where- type Rs GetClusterCredentials =- GetClusterCredentialsResponse- request = postQuery redshift- response- = receiveXMLWrapper "GetClusterCredentialsResult"- (\ s h x ->- GetClusterCredentialsResponse' <$>- (x .@? "DbUser") <*> (x .@? "Expiration") <*>- (x .@? "DbPassword")- <*> (pure (fromEnum s)))--instance Hashable GetClusterCredentials where--instance NFData GetClusterCredentials where--instance ToHeaders GetClusterCredentials where- toHeaders = const mempty--instance ToPath GetClusterCredentials where- toPath = const "/"--instance ToQuery GetClusterCredentials where- toQuery GetClusterCredentials'{..}- = mconcat- ["Action" =: ("GetClusterCredentials" :: ByteString),- "Version" =: ("2012-12-01" :: ByteString),- "DbGroups" =:- toQuery (toQueryList "DbGroup" <$> _gccDBGroups),- "DurationSeconds" =: _gccDurationSeconds,- "AutoCreate" =: _gccAutoCreate,- "DbName" =: _gccDBName, "DbUser" =: _gccDBUser,- "ClusterIdentifier" =: _gccClusterIdentifier]---- | Temporary credentials with authorization to log on to an Amazon Redshift database.------------ /See:/ 'getClusterCredentialsResponse' smart constructor.-data GetClusterCredentialsResponse = GetClusterCredentialsResponse'- { _gccrsDBUser :: !(Maybe Text)- , _gccrsExpiration :: !(Maybe ISO8601)- , _gccrsDBPassword :: !(Maybe (Sensitive Text))- , _gccrsResponseStatus :: !Int- } deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'GetClusterCredentialsResponse' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'gccrsDBUser' - A database user name that is authorized to log on to the database @DbName@ using the password @DbPassword@ . If the specified DbUser exists in the database, the new user name has the same database privileges as the the user named in DbUser. By default, the user is added to PUBLIC. If the @DbGroups@ parameter is specifed, @DbUser@ is added to the listed groups for any sessions created using these credentials.------ * 'gccrsExpiration' - The date and time the password in @DbPassword@ expires.------ * 'gccrsDBPassword' - A temporary password that authorizes the user name returned by @DbUser@ to log on to the database @DbName@ .------ * 'gccrsResponseStatus' - -- | The response status code.-getClusterCredentialsResponse- :: Int -- ^ 'gccrsResponseStatus'- -> GetClusterCredentialsResponse-getClusterCredentialsResponse pResponseStatus_ =- GetClusterCredentialsResponse'- { _gccrsDBUser = Nothing- , _gccrsExpiration = Nothing- , _gccrsDBPassword = Nothing- , _gccrsResponseStatus = pResponseStatus_- }----- | A database user name that is authorized to log on to the database @DbName@ using the password @DbPassword@ . If the specified DbUser exists in the database, the new user name has the same database privileges as the the user named in DbUser. By default, the user is added to PUBLIC. If the @DbGroups@ parameter is specifed, @DbUser@ is added to the listed groups for any sessions created using these credentials.-gccrsDBUser :: Lens' GetClusterCredentialsResponse (Maybe Text)-gccrsDBUser = lens _gccrsDBUser (\ s a -> s{_gccrsDBUser = a})---- | The date and time the password in @DbPassword@ expires.-gccrsExpiration :: Lens' GetClusterCredentialsResponse (Maybe UTCTime)-gccrsExpiration = lens _gccrsExpiration (\ s a -> s{_gccrsExpiration = a}) . mapping _Time---- | A temporary password that authorizes the user name returned by @DbUser@ to log on to the database @DbName@ .-gccrsDBPassword :: Lens' GetClusterCredentialsResponse (Maybe Text)-gccrsDBPassword = lens _gccrsDBPassword (\ s a -> s{_gccrsDBPassword = a}) . mapping _Sensitive---- | -- | The response status code.-gccrsResponseStatus :: Lens' GetClusterCredentialsResponse Int-gccrsResponseStatus = lens _gccrsResponseStatus (\ s a -> s{_gccrsResponseStatus = a})--instance NFData GetClusterCredentialsResponse where
− gen/Network/AWS/Redshift/ModifyCluster.hs
@@ -1,314 +0,0 @@-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric #-}-{-# LANGUAGE OverloadedStrings #-}-{-# LANGUAGE RecordWildCards #-}-{-# LANGUAGE TypeFamilies #-}--{-# OPTIONS_GHC -fno-warn-unused-imports #-}-{-# OPTIONS_GHC -fno-warn-unused-binds #-}-{-# OPTIONS_GHC -fno-warn-unused-matches #-}---- Derived from AWS service descriptions, licensed under Apache 2.0.---- |--- Module : Network.AWS.Redshift.ModifyCluster--- Copyright : (c) 2013-2018 Brendan Hay--- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>--- Stability : auto-generated--- Portability : non-portable (GHC extensions)------ Modifies the settings for a cluster. For example, you can add another security or parameter group, update the preferred maintenance window, or change the master user password. Resetting a cluster password or modifying the security groups associated with a cluster do not need a reboot. However, modifying a parameter group requires a reboot for parameters to take effect. For more information about managing clusters, go to <http://docs.aws.amazon.com/redshift/latest/mgmt/working-with-clusters.html Amazon Redshift Clusters> in the /Amazon Redshift Cluster Management Guide/ .--------- You can also change node type and the number of nodes to scale up or down the cluster. When resizing a cluster, you must specify both the number of nodes and the node type even if one of the parameters does not change.----module Network.AWS.Redshift.ModifyCluster- (- -- * Creating a Request- modifyCluster- , ModifyCluster- -- * Request Lenses- , mcEnhancedVPCRouting- , mcMasterUserPassword- , mcPubliclyAccessible- , mcHSMConfigurationIdentifier- , mcClusterSecurityGroups- , mcAutomatedSnapshotRetentionPeriod- , mcHSMClientCertificateIdentifier- , mcNumberOfNodes- , mcElasticIP- , mcPreferredMaintenanceWindow- , mcVPCSecurityGroupIds- , mcClusterType- , mcNewClusterIdentifier- , mcClusterVersion- , mcNodeType- , mcAllowVersionUpgrade- , mcClusterParameterGroupName- , mcClusterIdentifier-- -- * Destructuring the Response- , modifyClusterResponse- , ModifyClusterResponse- -- * Response Lenses- , mcrsCluster- , mcrsResponseStatus- ) where--import Network.AWS.Lens-import Network.AWS.Prelude-import Network.AWS.Redshift.Types-import Network.AWS.Redshift.Types.Product-import Network.AWS.Request-import Network.AWS.Response---- |------------ /See:/ 'modifyCluster' smart constructor.-data ModifyCluster = ModifyCluster'- { _mcEnhancedVPCRouting :: !(Maybe Bool)- , _mcMasterUserPassword :: !(Maybe Text)- , _mcPubliclyAccessible :: !(Maybe Bool)- , _mcHSMConfigurationIdentifier :: !(Maybe Text)- , _mcClusterSecurityGroups :: !(Maybe [Text])- , _mcAutomatedSnapshotRetentionPeriod :: !(Maybe Int)- , _mcHSMClientCertificateIdentifier :: !(Maybe Text)- , _mcNumberOfNodes :: !(Maybe Int)- , _mcElasticIP :: !(Maybe Text)- , _mcPreferredMaintenanceWindow :: !(Maybe Text)- , _mcVPCSecurityGroupIds :: !(Maybe [Text])- , _mcClusterType :: !(Maybe Text)- , _mcNewClusterIdentifier :: !(Maybe Text)- , _mcClusterVersion :: !(Maybe Text)- , _mcNodeType :: !(Maybe Text)- , _mcAllowVersionUpgrade :: !(Maybe Bool)- , _mcClusterParameterGroupName :: !(Maybe Text)- , _mcClusterIdentifier :: !Text- } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'ModifyCluster' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'mcEnhancedVPCRouting' - An option that specifies whether to create the cluster with enhanced VPC routing enabled. To create a cluster that uses enhanced VPC routing, the cluster must be in a VPC. For more information, see <http://docs.aws.amazon.com/redshift/latest/mgmt/enhanced-vpc-routing.html Enhanced VPC Routing> in the Amazon Redshift Cluster Management Guide. If this option is @true@ , enhanced VPC routing is enabled. Default: false------ * 'mcMasterUserPassword' - The new password for the cluster master user. This change is asynchronously applied as soon as possible. Between the time of the request and the completion of the request, the @MasterUserPassword@ element exists in the @PendingModifiedValues@ element of the operation response. Default: Uses existing setting. Constraints: * Must be between 8 and 64 characters in length. * Must contain at least one uppercase letter. * Must contain at least one lowercase letter. * Must contain one number. * Can be any printable ASCII character (ASCII code 33 to 126) except ' (single quote), " (double quote), \, /, @, or space.------ * 'mcPubliclyAccessible' - If @true@ , the cluster can be accessed from a public network. Only clusters in VPCs can be set to be publicly available.------ * 'mcHSMConfigurationIdentifier' - Specifies the name of the HSM configuration that contains the information the Amazon Redshift cluster can use to retrieve and store keys in an HSM.------ * 'mcClusterSecurityGroups' - A list of cluster security groups to be authorized on this cluster. This change is asynchronously applied as soon as possible. Security groups currently associated with the cluster, and not in the list of groups to apply, will be revoked from the cluster. Constraints: * Must be 1 to 255 alphanumeric characters or hyphens * First character must be a letter * Cannot end with a hyphen or contain two consecutive hyphens------ * 'mcAutomatedSnapshotRetentionPeriod' - The number of days that automated snapshots are retained. If the value is 0, automated snapshots are disabled. Even if automated snapshots are disabled, you can still create manual snapshots when you want with 'CreateClusterSnapshot' . If you decrease the automated snapshot retention period from its current value, existing automated snapshots that fall outside of the new retention period will be immediately deleted. Default: Uses existing setting. Constraints: Must be a value from 0 to 35.------ * 'mcHSMClientCertificateIdentifier' - Specifies the name of the HSM client certificate the Amazon Redshift cluster uses to retrieve the data encryption keys stored in an HSM.------ * 'mcNumberOfNodes' - The new number of nodes of the cluster. If you specify a new number of nodes, you must also specify the node type parameter. When you submit your request to resize a cluster, Amazon Redshift sets access permissions for the cluster to read-only. After Amazon Redshift provisions a new cluster according to your resize requirements, there will be a temporary outage while the old cluster is deleted and your connection is switched to the new cluster. When the new connection is complete, the original access permissions for the cluster are restored. You can use 'DescribeResize' to track the progress of the resize request. Valid Values: Integer greater than @0@ .------ * 'mcElasticIP' - The Elastic IP (EIP) address for the cluster. Constraints: The cluster must be provisioned in EC2-VPC and publicly-accessible through an Internet gateway. For more information about provisioning clusters in EC2-VPC, go to <http://docs.aws.amazon.com/redshift/latest/mgmt/working-with-clusters.html#cluster-platforms Supported Platforms to Launch Your Cluster> in the Amazon Redshift Cluster Management Guide.------ * 'mcPreferredMaintenanceWindow' - The weekly time range (in UTC) during which system maintenance can occur, if necessary. If system maintenance is necessary during the window, it may result in an outage. This maintenance window change is made immediately. If the new maintenance window indicates the current time, there must be at least 120 minutes between the current time and end of the window in order to ensure that pending changes are applied. Default: Uses existing setting. Format: ddd:hh24:mi-ddd:hh24:mi, for example @wed:07:30-wed:08:00@ . Valid Days: Mon | Tue | Wed | Thu | Fri | Sat | Sun Constraints: Must be at least 30 minutes.------ * 'mcVPCSecurityGroupIds' - A list of virtual private cloud (VPC) security groups to be associated with the cluster.------ * 'mcClusterType' - The new cluster type. When you submit your cluster resize request, your existing cluster goes into a read-only mode. After Amazon Redshift provisions a new cluster based on your resize requirements, there will be outage for a period while the old cluster is deleted and your connection is switched to the new cluster. You can use 'DescribeResize' to track the progress of the resize request. Valid Values: @multi-node | single-node @------ * 'mcNewClusterIdentifier' - The new identifier for the cluster. Constraints: * Must contain from 1 to 63 alphanumeric characters or hyphens. * Alphabetic characters must be lowercase. * First character must be a letter. * Cannot end with a hyphen or contain two consecutive hyphens. * Must be unique for all clusters within an AWS account. Example: @examplecluster@------ * 'mcClusterVersion' - The new version number of the Amazon Redshift engine to upgrade to. For major version upgrades, if a non-default cluster parameter group is currently in use, a new cluster parameter group in the cluster parameter group family for the new version must be specified. The new cluster parameter group can be the default for that cluster parameter group family. For more information about parameters and parameter groups, go to <http://docs.aws.amazon.com/redshift/latest/mgmt/working-with-parameter-groups.html Amazon Redshift Parameter Groups> in the /Amazon Redshift Cluster Management Guide/ . Example: @1.0@------ * 'mcNodeType' - The new node type of the cluster. If you specify a new node type, you must also specify the number of nodes parameter. When you submit your request to resize a cluster, Amazon Redshift sets access permissions for the cluster to read-only. After Amazon Redshift provisions a new cluster according to your resize requirements, there will be a temporary outage while the old cluster is deleted and your connection is switched to the new cluster. When the new connection is complete, the original access permissions for the cluster are restored. You can use 'DescribeResize' to track the progress of the resize request. Valid Values: @ds2.xlarge@ | @ds2.8xlarge@ | @dc1.large@ | @dc1.8xlarge@ | @dc2.large@ | @dc2.8xlarge@------ * 'mcAllowVersionUpgrade' - If @true@ , major version upgrades will be applied automatically to the cluster during the maintenance window. Default: @false@------ * 'mcClusterParameterGroupName' - The name of the cluster parameter group to apply to this cluster. This change is applied only after the cluster is rebooted. To reboot a cluster use 'RebootCluster' . Default: Uses existing setting. Constraints: The cluster parameter group must be in the same parameter group family that matches the cluster version.------ * 'mcClusterIdentifier' - The unique identifier of the cluster to be modified. Example: @examplecluster@-modifyCluster- :: Text -- ^ 'mcClusterIdentifier'- -> ModifyCluster-modifyCluster pClusterIdentifier_ =- ModifyCluster'- { _mcEnhancedVPCRouting = Nothing- , _mcMasterUserPassword = Nothing- , _mcPubliclyAccessible = Nothing- , _mcHSMConfigurationIdentifier = Nothing- , _mcClusterSecurityGroups = Nothing- , _mcAutomatedSnapshotRetentionPeriod = Nothing- , _mcHSMClientCertificateIdentifier = Nothing- , _mcNumberOfNodes = Nothing- , _mcElasticIP = Nothing- , _mcPreferredMaintenanceWindow = Nothing- , _mcVPCSecurityGroupIds = Nothing- , _mcClusterType = Nothing- , _mcNewClusterIdentifier = Nothing- , _mcClusterVersion = Nothing- , _mcNodeType = Nothing- , _mcAllowVersionUpgrade = Nothing- , _mcClusterParameterGroupName = Nothing- , _mcClusterIdentifier = pClusterIdentifier_- }----- | An option that specifies whether to create the cluster with enhanced VPC routing enabled. To create a cluster that uses enhanced VPC routing, the cluster must be in a VPC. For more information, see <http://docs.aws.amazon.com/redshift/latest/mgmt/enhanced-vpc-routing.html Enhanced VPC Routing> in the Amazon Redshift Cluster Management Guide. If this option is @true@ , enhanced VPC routing is enabled. Default: false-mcEnhancedVPCRouting :: Lens' ModifyCluster (Maybe Bool)-mcEnhancedVPCRouting = lens _mcEnhancedVPCRouting (\ s a -> s{_mcEnhancedVPCRouting = a})---- | The new password for the cluster master user. This change is asynchronously applied as soon as possible. Between the time of the request and the completion of the request, the @MasterUserPassword@ element exists in the @PendingModifiedValues@ element of the operation response. Default: Uses existing setting. Constraints: * Must be between 8 and 64 characters in length. * Must contain at least one uppercase letter. * Must contain at least one lowercase letter. * Must contain one number. * Can be any printable ASCII character (ASCII code 33 to 126) except ' (single quote), " (double quote), \, /, @, or space.-mcMasterUserPassword :: Lens' ModifyCluster (Maybe Text)-mcMasterUserPassword = lens _mcMasterUserPassword (\ s a -> s{_mcMasterUserPassword = a})---- | If @true@ , the cluster can be accessed from a public network. Only clusters in VPCs can be set to be publicly available.-mcPubliclyAccessible :: Lens' ModifyCluster (Maybe Bool)-mcPubliclyAccessible = lens _mcPubliclyAccessible (\ s a -> s{_mcPubliclyAccessible = a})---- | Specifies the name of the HSM configuration that contains the information the Amazon Redshift cluster can use to retrieve and store keys in an HSM.-mcHSMConfigurationIdentifier :: Lens' ModifyCluster (Maybe Text)-mcHSMConfigurationIdentifier = lens _mcHSMConfigurationIdentifier (\ s a -> s{_mcHSMConfigurationIdentifier = a})---- | A list of cluster security groups to be authorized on this cluster. This change is asynchronously applied as soon as possible. Security groups currently associated with the cluster, and not in the list of groups to apply, will be revoked from the cluster. Constraints: * Must be 1 to 255 alphanumeric characters or hyphens * First character must be a letter * Cannot end with a hyphen or contain two consecutive hyphens-mcClusterSecurityGroups :: Lens' ModifyCluster [Text]-mcClusterSecurityGroups = lens _mcClusterSecurityGroups (\ s a -> s{_mcClusterSecurityGroups = a}) . _Default . _Coerce---- | The number of days that automated snapshots are retained. If the value is 0, automated snapshots are disabled. Even if automated snapshots are disabled, you can still create manual snapshots when you want with 'CreateClusterSnapshot' . If you decrease the automated snapshot retention period from its current value, existing automated snapshots that fall outside of the new retention period will be immediately deleted. Default: Uses existing setting. Constraints: Must be a value from 0 to 35.-mcAutomatedSnapshotRetentionPeriod :: Lens' ModifyCluster (Maybe Int)-mcAutomatedSnapshotRetentionPeriod = lens _mcAutomatedSnapshotRetentionPeriod (\ s a -> s{_mcAutomatedSnapshotRetentionPeriod = a})---- | Specifies the name of the HSM client certificate the Amazon Redshift cluster uses to retrieve the data encryption keys stored in an HSM.-mcHSMClientCertificateIdentifier :: Lens' ModifyCluster (Maybe Text)-mcHSMClientCertificateIdentifier = lens _mcHSMClientCertificateIdentifier (\ s a -> s{_mcHSMClientCertificateIdentifier = a})---- | The new number of nodes of the cluster. If you specify a new number of nodes, you must also specify the node type parameter. When you submit your request to resize a cluster, Amazon Redshift sets access permissions for the cluster to read-only. After Amazon Redshift provisions a new cluster according to your resize requirements, there will be a temporary outage while the old cluster is deleted and your connection is switched to the new cluster. When the new connection is complete, the original access permissions for the cluster are restored. You can use 'DescribeResize' to track the progress of the resize request. Valid Values: Integer greater than @0@ .-mcNumberOfNodes :: Lens' ModifyCluster (Maybe Int)-mcNumberOfNodes = lens _mcNumberOfNodes (\ s a -> s{_mcNumberOfNodes = a})---- | The Elastic IP (EIP) address for the cluster. Constraints: The cluster must be provisioned in EC2-VPC and publicly-accessible through an Internet gateway. For more information about provisioning clusters in EC2-VPC, go to <http://docs.aws.amazon.com/redshift/latest/mgmt/working-with-clusters.html#cluster-platforms Supported Platforms to Launch Your Cluster> in the Amazon Redshift Cluster Management Guide.-mcElasticIP :: Lens' ModifyCluster (Maybe Text)-mcElasticIP = lens _mcElasticIP (\ s a -> s{_mcElasticIP = a})---- | The weekly time range (in UTC) during which system maintenance can occur, if necessary. If system maintenance is necessary during the window, it may result in an outage. This maintenance window change is made immediately. If the new maintenance window indicates the current time, there must be at least 120 minutes between the current time and end of the window in order to ensure that pending changes are applied. Default: Uses existing setting. Format: ddd:hh24:mi-ddd:hh24:mi, for example @wed:07:30-wed:08:00@ . Valid Days: Mon | Tue | Wed | Thu | Fri | Sat | Sun Constraints: Must be at least 30 minutes.-mcPreferredMaintenanceWindow :: Lens' ModifyCluster (Maybe Text)-mcPreferredMaintenanceWindow = lens _mcPreferredMaintenanceWindow (\ s a -> s{_mcPreferredMaintenanceWindow = a})---- | A list of virtual private cloud (VPC) security groups to be associated with the cluster.-mcVPCSecurityGroupIds :: Lens' ModifyCluster [Text]-mcVPCSecurityGroupIds = lens _mcVPCSecurityGroupIds (\ s a -> s{_mcVPCSecurityGroupIds = a}) . _Default . _Coerce---- | The new cluster type. When you submit your cluster resize request, your existing cluster goes into a read-only mode. After Amazon Redshift provisions a new cluster based on your resize requirements, there will be outage for a period while the old cluster is deleted and your connection is switched to the new cluster. You can use 'DescribeResize' to track the progress of the resize request. Valid Values: @multi-node | single-node @-mcClusterType :: Lens' ModifyCluster (Maybe Text)-mcClusterType = lens _mcClusterType (\ s a -> s{_mcClusterType = a})---- | The new identifier for the cluster. Constraints: * Must contain from 1 to 63 alphanumeric characters or hyphens. * Alphabetic characters must be lowercase. * First character must be a letter. * Cannot end with a hyphen or contain two consecutive hyphens. * Must be unique for all clusters within an AWS account. Example: @examplecluster@-mcNewClusterIdentifier :: Lens' ModifyCluster (Maybe Text)-mcNewClusterIdentifier = lens _mcNewClusterIdentifier (\ s a -> s{_mcNewClusterIdentifier = a})---- | The new version number of the Amazon Redshift engine to upgrade to. For major version upgrades, if a non-default cluster parameter group is currently in use, a new cluster parameter group in the cluster parameter group family for the new version must be specified. The new cluster parameter group can be the default for that cluster parameter group family. For more information about parameters and parameter groups, go to <http://docs.aws.amazon.com/redshift/latest/mgmt/working-with-parameter-groups.html Amazon Redshift Parameter Groups> in the /Amazon Redshift Cluster Management Guide/ . Example: @1.0@-mcClusterVersion :: Lens' ModifyCluster (Maybe Text)-mcClusterVersion = lens _mcClusterVersion (\ s a -> s{_mcClusterVersion = a})---- | The new node type of the cluster. If you specify a new node type, you must also specify the number of nodes parameter. When you submit your request to resize a cluster, Amazon Redshift sets access permissions for the cluster to read-only. After Amazon Redshift provisions a new cluster according to your resize requirements, there will be a temporary outage while the old cluster is deleted and your connection is switched to the new cluster. When the new connection is complete, the original access permissions for the cluster are restored. You can use 'DescribeResize' to track the progress of the resize request. Valid Values: @ds2.xlarge@ | @ds2.8xlarge@ | @dc1.large@ | @dc1.8xlarge@ | @dc2.large@ | @dc2.8xlarge@-mcNodeType :: Lens' ModifyCluster (Maybe Text)-mcNodeType = lens _mcNodeType (\ s a -> s{_mcNodeType = a})---- | If @true@ , major version upgrades will be applied automatically to the cluster during the maintenance window. Default: @false@-mcAllowVersionUpgrade :: Lens' ModifyCluster (Maybe Bool)-mcAllowVersionUpgrade = lens _mcAllowVersionUpgrade (\ s a -> s{_mcAllowVersionUpgrade = a})---- | The name of the cluster parameter group to apply to this cluster. This change is applied only after the cluster is rebooted. To reboot a cluster use 'RebootCluster' . Default: Uses existing setting. Constraints: The cluster parameter group must be in the same parameter group family that matches the cluster version.-mcClusterParameterGroupName :: Lens' ModifyCluster (Maybe Text)-mcClusterParameterGroupName = lens _mcClusterParameterGroupName (\ s a -> s{_mcClusterParameterGroupName = a})---- | The unique identifier of the cluster to be modified. Example: @examplecluster@-mcClusterIdentifier :: Lens' ModifyCluster Text-mcClusterIdentifier = lens _mcClusterIdentifier (\ s a -> s{_mcClusterIdentifier = a})--instance AWSRequest ModifyCluster where- type Rs ModifyCluster = ModifyClusterResponse- request = postQuery redshift- response- = receiveXMLWrapper "ModifyClusterResult"- (\ s h x ->- ModifyClusterResponse' <$>- (x .@? "Cluster") <*> (pure (fromEnum s)))--instance Hashable ModifyCluster where--instance NFData ModifyCluster where--instance ToHeaders ModifyCluster where- toHeaders = const mempty--instance ToPath ModifyCluster where- toPath = const "/"--instance ToQuery ModifyCluster where- toQuery ModifyCluster'{..}- = mconcat- ["Action" =: ("ModifyCluster" :: ByteString),- "Version" =: ("2012-12-01" :: ByteString),- "EnhancedVpcRouting" =: _mcEnhancedVPCRouting,- "MasterUserPassword" =: _mcMasterUserPassword,- "PubliclyAccessible" =: _mcPubliclyAccessible,- "HsmConfigurationIdentifier" =:- _mcHSMConfigurationIdentifier,- "ClusterSecurityGroups" =:- toQuery- (toQueryList "ClusterSecurityGroupName" <$>- _mcClusterSecurityGroups),- "AutomatedSnapshotRetentionPeriod" =:- _mcAutomatedSnapshotRetentionPeriod,- "HsmClientCertificateIdentifier" =:- _mcHSMClientCertificateIdentifier,- "NumberOfNodes" =: _mcNumberOfNodes,- "ElasticIp" =: _mcElasticIP,- "PreferredMaintenanceWindow" =:- _mcPreferredMaintenanceWindow,- "VpcSecurityGroupIds" =:- toQuery- (toQueryList "VpcSecurityGroupId" <$>- _mcVPCSecurityGroupIds),- "ClusterType" =: _mcClusterType,- "NewClusterIdentifier" =: _mcNewClusterIdentifier,- "ClusterVersion" =: _mcClusterVersion,- "NodeType" =: _mcNodeType,- "AllowVersionUpgrade" =: _mcAllowVersionUpgrade,- "ClusterParameterGroupName" =:- _mcClusterParameterGroupName,- "ClusterIdentifier" =: _mcClusterIdentifier]---- | /See:/ 'modifyClusterResponse' smart constructor.-data ModifyClusterResponse = ModifyClusterResponse'- { _mcrsCluster :: !(Maybe Cluster)- , _mcrsResponseStatus :: !Int- } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'ModifyClusterResponse' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'mcrsCluster' - Undocumented member.------ * 'mcrsResponseStatus' - -- | The response status code.-modifyClusterResponse- :: Int -- ^ 'mcrsResponseStatus'- -> ModifyClusterResponse-modifyClusterResponse pResponseStatus_ =- ModifyClusterResponse'- {_mcrsCluster = Nothing, _mcrsResponseStatus = pResponseStatus_}----- | Undocumented member.-mcrsCluster :: Lens' ModifyClusterResponse (Maybe Cluster)-mcrsCluster = lens _mcrsCluster (\ s a -> s{_mcrsCluster = a})---- | -- | The response status code.-mcrsResponseStatus :: Lens' ModifyClusterResponse Int-mcrsResponseStatus = lens _mcrsResponseStatus (\ s a -> s{_mcrsResponseStatus = a})--instance NFData ModifyClusterResponse where
− gen/Network/AWS/Redshift/ModifyClusterIAMRoles.hs
@@ -1,158 +0,0 @@-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric #-}-{-# LANGUAGE OverloadedStrings #-}-{-# LANGUAGE RecordWildCards #-}-{-# LANGUAGE TypeFamilies #-}--{-# OPTIONS_GHC -fno-warn-unused-imports #-}-{-# OPTIONS_GHC -fno-warn-unused-binds #-}-{-# OPTIONS_GHC -fno-warn-unused-matches #-}---- Derived from AWS service descriptions, licensed under Apache 2.0.---- |--- Module : Network.AWS.Redshift.ModifyClusterIAMRoles--- Copyright : (c) 2013-2018 Brendan Hay--- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>--- Stability : auto-generated--- Portability : non-portable (GHC extensions)------ Modifies the list of AWS Identity and Access Management (IAM) roles that can be used by the cluster to access other AWS services.--------- A cluster can have up to 10 IAM roles associated at any time.----module Network.AWS.Redshift.ModifyClusterIAMRoles- (- -- * Creating a Request- modifyClusterIAMRoles- , ModifyClusterIAMRoles- -- * Request Lenses- , mcirRemoveIAMRoles- , mcirAddIAMRoles- , mcirClusterIdentifier-- -- * Destructuring the Response- , modifyClusterIAMRolesResponse- , ModifyClusterIAMRolesResponse- -- * Response Lenses- , mcirrsCluster- , mcirrsResponseStatus- ) where--import Network.AWS.Lens-import Network.AWS.Prelude-import Network.AWS.Redshift.Types-import Network.AWS.Redshift.Types.Product-import Network.AWS.Request-import Network.AWS.Response---- |------------ /See:/ 'modifyClusterIAMRoles' smart constructor.-data ModifyClusterIAMRoles = ModifyClusterIAMRoles'- { _mcirRemoveIAMRoles :: !(Maybe [Text])- , _mcirAddIAMRoles :: !(Maybe [Text])- , _mcirClusterIdentifier :: !Text- } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'ModifyClusterIAMRoles' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'mcirRemoveIAMRoles' - Zero or more IAM roles in ARN format to disassociate from the cluster. You can disassociate up to 10 IAM roles from a single cluster in a single request.------ * 'mcirAddIAMRoles' - Zero or more IAM roles to associate with the cluster. The roles must be in their Amazon Resource Name (ARN) format. You can associate up to 10 IAM roles with a single cluster in a single request.------ * 'mcirClusterIdentifier' - The unique identifier of the cluster for which you want to associate or disassociate IAM roles.-modifyClusterIAMRoles- :: Text -- ^ 'mcirClusterIdentifier'- -> ModifyClusterIAMRoles-modifyClusterIAMRoles pClusterIdentifier_ =- ModifyClusterIAMRoles'- { _mcirRemoveIAMRoles = Nothing- , _mcirAddIAMRoles = Nothing- , _mcirClusterIdentifier = pClusterIdentifier_- }----- | Zero or more IAM roles in ARN format to disassociate from the cluster. You can disassociate up to 10 IAM roles from a single cluster in a single request.-mcirRemoveIAMRoles :: Lens' ModifyClusterIAMRoles [Text]-mcirRemoveIAMRoles = lens _mcirRemoveIAMRoles (\ s a -> s{_mcirRemoveIAMRoles = a}) . _Default . _Coerce---- | Zero or more IAM roles to associate with the cluster. The roles must be in their Amazon Resource Name (ARN) format. You can associate up to 10 IAM roles with a single cluster in a single request.-mcirAddIAMRoles :: Lens' ModifyClusterIAMRoles [Text]-mcirAddIAMRoles = lens _mcirAddIAMRoles (\ s a -> s{_mcirAddIAMRoles = a}) . _Default . _Coerce---- | The unique identifier of the cluster for which you want to associate or disassociate IAM roles.-mcirClusterIdentifier :: Lens' ModifyClusterIAMRoles Text-mcirClusterIdentifier = lens _mcirClusterIdentifier (\ s a -> s{_mcirClusterIdentifier = a})--instance AWSRequest ModifyClusterIAMRoles where- type Rs ModifyClusterIAMRoles =- ModifyClusterIAMRolesResponse- request = postQuery redshift- response- = receiveXMLWrapper "ModifyClusterIamRolesResult"- (\ s h x ->- ModifyClusterIAMRolesResponse' <$>- (x .@? "Cluster") <*> (pure (fromEnum s)))--instance Hashable ModifyClusterIAMRoles where--instance NFData ModifyClusterIAMRoles where--instance ToHeaders ModifyClusterIAMRoles where- toHeaders = const mempty--instance ToPath ModifyClusterIAMRoles where- toPath = const "/"--instance ToQuery ModifyClusterIAMRoles where- toQuery ModifyClusterIAMRoles'{..}- = mconcat- ["Action" =: ("ModifyClusterIamRoles" :: ByteString),- "Version" =: ("2012-12-01" :: ByteString),- "RemoveIamRoles" =:- toQuery- (toQueryList "IamRoleArn" <$> _mcirRemoveIAMRoles),- "AddIamRoles" =:- toQuery- (toQueryList "IamRoleArn" <$> _mcirAddIAMRoles),- "ClusterIdentifier" =: _mcirClusterIdentifier]---- | /See:/ 'modifyClusterIAMRolesResponse' smart constructor.-data ModifyClusterIAMRolesResponse = ModifyClusterIAMRolesResponse'- { _mcirrsCluster :: !(Maybe Cluster)- , _mcirrsResponseStatus :: !Int- } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'ModifyClusterIAMRolesResponse' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'mcirrsCluster' - Undocumented member.------ * 'mcirrsResponseStatus' - -- | The response status code.-modifyClusterIAMRolesResponse- :: Int -- ^ 'mcirrsResponseStatus'- -> ModifyClusterIAMRolesResponse-modifyClusterIAMRolesResponse pResponseStatus_ =- ModifyClusterIAMRolesResponse'- {_mcirrsCluster = Nothing, _mcirrsResponseStatus = pResponseStatus_}----- | Undocumented member.-mcirrsCluster :: Lens' ModifyClusterIAMRolesResponse (Maybe Cluster)-mcirrsCluster = lens _mcirrsCluster (\ s a -> s{_mcirrsCluster = a})---- | -- | The response status code.-mcirrsResponseStatus :: Lens' ModifyClusterIAMRolesResponse Int-mcirrsResponseStatus = lens _mcirrsResponseStatus (\ s a -> s{_mcirrsResponseStatus = a})--instance NFData ModifyClusterIAMRolesResponse where
− gen/Network/AWS/Redshift/ModifyClusterParameterGroup.hs
@@ -1,111 +0,0 @@-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric #-}-{-# LANGUAGE OverloadedStrings #-}-{-# LANGUAGE RecordWildCards #-}-{-# LANGUAGE TypeFamilies #-}--{-# OPTIONS_GHC -fno-warn-unused-imports #-}-{-# OPTIONS_GHC -fno-warn-unused-binds #-}-{-# OPTIONS_GHC -fno-warn-unused-matches #-}---- Derived from AWS service descriptions, licensed under Apache 2.0.---- |--- Module : Network.AWS.Redshift.ModifyClusterParameterGroup--- Copyright : (c) 2013-2018 Brendan Hay--- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>--- Stability : auto-generated--- Portability : non-portable (GHC extensions)------ Modifies the parameters of a parameter group.--------- For more information about parameters and parameter groups, go to <http://docs.aws.amazon.com/redshift/latest/mgmt/working-with-parameter-groups.html Amazon Redshift Parameter Groups> in the /Amazon Redshift Cluster Management Guide/ .----module Network.AWS.Redshift.ModifyClusterParameterGroup- (- -- * Creating a Request- modifyClusterParameterGroup- , ModifyClusterParameterGroup- -- * Request Lenses- , mcpgParameterGroupName- , mcpgParameters-- -- * Destructuring the Response- , clusterParameterGroupNameMessage- , ClusterParameterGroupNameMessage- -- * Response Lenses- , cpgnmParameterGroupStatus- , cpgnmParameterGroupName- ) where--import Network.AWS.Lens-import Network.AWS.Prelude-import Network.AWS.Redshift.Types-import Network.AWS.Redshift.Types.Product-import Network.AWS.Request-import Network.AWS.Response---- |------------ /See:/ 'modifyClusterParameterGroup' smart constructor.-data ModifyClusterParameterGroup = ModifyClusterParameterGroup'- { _mcpgParameterGroupName :: !Text- , _mcpgParameters :: ![Parameter]- } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'ModifyClusterParameterGroup' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'mcpgParameterGroupName' - The name of the parameter group to be modified.------ * 'mcpgParameters' - An array of parameters to be modified. A maximum of 20 parameters can be modified in a single request. For each parameter to be modified, you must supply at least the parameter name and parameter value; other name-value pairs of the parameter are optional. For the workload management (WLM) configuration, you must supply all the name-value pairs in the wlm_json_configuration parameter.-modifyClusterParameterGroup- :: Text -- ^ 'mcpgParameterGroupName'- -> ModifyClusterParameterGroup-modifyClusterParameterGroup pParameterGroupName_ =- ModifyClusterParameterGroup'- {_mcpgParameterGroupName = pParameterGroupName_, _mcpgParameters = mempty}----- | The name of the parameter group to be modified.-mcpgParameterGroupName :: Lens' ModifyClusterParameterGroup Text-mcpgParameterGroupName = lens _mcpgParameterGroupName (\ s a -> s{_mcpgParameterGroupName = a})---- | An array of parameters to be modified. A maximum of 20 parameters can be modified in a single request. For each parameter to be modified, you must supply at least the parameter name and parameter value; other name-value pairs of the parameter are optional. For the workload management (WLM) configuration, you must supply all the name-value pairs in the wlm_json_configuration parameter.-mcpgParameters :: Lens' ModifyClusterParameterGroup [Parameter]-mcpgParameters = lens _mcpgParameters (\ s a -> s{_mcpgParameters = a}) . _Coerce--instance AWSRequest ModifyClusterParameterGroup where- type Rs ModifyClusterParameterGroup =- ClusterParameterGroupNameMessage- request = postQuery redshift- response- = receiveXMLWrapper- "ModifyClusterParameterGroupResult"- (\ s h x -> parseXML x)--instance Hashable ModifyClusterParameterGroup where--instance NFData ModifyClusterParameterGroup where--instance ToHeaders ModifyClusterParameterGroup where- toHeaders = const mempty--instance ToPath ModifyClusterParameterGroup where- toPath = const "/"--instance ToQuery ModifyClusterParameterGroup where- toQuery ModifyClusterParameterGroup'{..}- = mconcat- ["Action" =:- ("ModifyClusterParameterGroup" :: ByteString),- "Version" =: ("2012-12-01" :: ByteString),- "ParameterGroupName" =: _mcpgParameterGroupName,- "Parameters" =:- toQueryList "Parameter" _mcpgParameters]
− gen/Network/AWS/Redshift/ModifyClusterSubnetGroup.hs
@@ -1,158 +0,0 @@-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric #-}-{-# LANGUAGE OverloadedStrings #-}-{-# LANGUAGE RecordWildCards #-}-{-# LANGUAGE TypeFamilies #-}--{-# OPTIONS_GHC -fno-warn-unused-imports #-}-{-# OPTIONS_GHC -fno-warn-unused-binds #-}-{-# OPTIONS_GHC -fno-warn-unused-matches #-}---- Derived from AWS service descriptions, licensed under Apache 2.0.---- |--- Module : Network.AWS.Redshift.ModifyClusterSubnetGroup--- Copyright : (c) 2013-2018 Brendan Hay--- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>--- Stability : auto-generated--- Portability : non-portable (GHC extensions)------ Modifies a cluster subnet group to include the specified list of VPC subnets. The operation replaces the existing list of subnets with the new list of subnets.-------module Network.AWS.Redshift.ModifyClusterSubnetGroup- (- -- * Creating a Request- modifyClusterSubnetGroup- , ModifyClusterSubnetGroup- -- * Request Lenses- , mcsgDescription- , mcsgClusterSubnetGroupName- , mcsgSubnetIds-- -- * Destructuring the Response- , modifyClusterSubnetGroupResponse- , ModifyClusterSubnetGroupResponse- -- * Response Lenses- , mcsgrsClusterSubnetGroup- , mcsgrsResponseStatus- ) where--import Network.AWS.Lens-import Network.AWS.Prelude-import Network.AWS.Redshift.Types-import Network.AWS.Redshift.Types.Product-import Network.AWS.Request-import Network.AWS.Response---- |------------ /See:/ 'modifyClusterSubnetGroup' smart constructor.-data ModifyClusterSubnetGroup = ModifyClusterSubnetGroup'- { _mcsgDescription :: !(Maybe Text)- , _mcsgClusterSubnetGroupName :: !Text- , _mcsgSubnetIds :: ![Text]- } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'ModifyClusterSubnetGroup' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'mcsgDescription' - A text description of the subnet group to be modified.------ * 'mcsgClusterSubnetGroupName' - The name of the subnet group to be modified.------ * 'mcsgSubnetIds' - An array of VPC subnet IDs. A maximum of 20 subnets can be modified in a single request.-modifyClusterSubnetGroup- :: Text -- ^ 'mcsgClusterSubnetGroupName'- -> ModifyClusterSubnetGroup-modifyClusterSubnetGroup pClusterSubnetGroupName_ =- ModifyClusterSubnetGroup'- { _mcsgDescription = Nothing- , _mcsgClusterSubnetGroupName = pClusterSubnetGroupName_- , _mcsgSubnetIds = mempty- }----- | A text description of the subnet group to be modified.-mcsgDescription :: Lens' ModifyClusterSubnetGroup (Maybe Text)-mcsgDescription = lens _mcsgDescription (\ s a -> s{_mcsgDescription = a})---- | The name of the subnet group to be modified.-mcsgClusterSubnetGroupName :: Lens' ModifyClusterSubnetGroup Text-mcsgClusterSubnetGroupName = lens _mcsgClusterSubnetGroupName (\ s a -> s{_mcsgClusterSubnetGroupName = a})---- | An array of VPC subnet IDs. A maximum of 20 subnets can be modified in a single request.-mcsgSubnetIds :: Lens' ModifyClusterSubnetGroup [Text]-mcsgSubnetIds = lens _mcsgSubnetIds (\ s a -> s{_mcsgSubnetIds = a}) . _Coerce--instance AWSRequest ModifyClusterSubnetGroup where- type Rs ModifyClusterSubnetGroup =- ModifyClusterSubnetGroupResponse- request = postQuery redshift- response- = receiveXMLWrapper "ModifyClusterSubnetGroupResult"- (\ s h x ->- ModifyClusterSubnetGroupResponse' <$>- (x .@? "ClusterSubnetGroup") <*> (pure (fromEnum s)))--instance Hashable ModifyClusterSubnetGroup where--instance NFData ModifyClusterSubnetGroup where--instance ToHeaders ModifyClusterSubnetGroup where- toHeaders = const mempty--instance ToPath ModifyClusterSubnetGroup where- toPath = const "/"--instance ToQuery ModifyClusterSubnetGroup where- toQuery ModifyClusterSubnetGroup'{..}- = mconcat- ["Action" =:- ("ModifyClusterSubnetGroup" :: ByteString),- "Version" =: ("2012-12-01" :: ByteString),- "Description" =: _mcsgDescription,- "ClusterSubnetGroupName" =:- _mcsgClusterSubnetGroupName,- "SubnetIds" =:- toQueryList "SubnetIdentifier" _mcsgSubnetIds]---- | /See:/ 'modifyClusterSubnetGroupResponse' smart constructor.-data ModifyClusterSubnetGroupResponse = ModifyClusterSubnetGroupResponse'- { _mcsgrsClusterSubnetGroup :: !(Maybe ClusterSubnetGroup)- , _mcsgrsResponseStatus :: !Int- } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'ModifyClusterSubnetGroupResponse' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'mcsgrsClusterSubnetGroup' - Undocumented member.------ * 'mcsgrsResponseStatus' - -- | The response status code.-modifyClusterSubnetGroupResponse- :: Int -- ^ 'mcsgrsResponseStatus'- -> ModifyClusterSubnetGroupResponse-modifyClusterSubnetGroupResponse pResponseStatus_ =- ModifyClusterSubnetGroupResponse'- { _mcsgrsClusterSubnetGroup = Nothing- , _mcsgrsResponseStatus = pResponseStatus_- }----- | Undocumented member.-mcsgrsClusterSubnetGroup :: Lens' ModifyClusterSubnetGroupResponse (Maybe ClusterSubnetGroup)-mcsgrsClusterSubnetGroup = lens _mcsgrsClusterSubnetGroup (\ s a -> s{_mcsgrsClusterSubnetGroup = a})---- | -- | The response status code.-mcsgrsResponseStatus :: Lens' ModifyClusterSubnetGroupResponse Int-mcsgrsResponseStatus = lens _mcsgrsResponseStatus (\ s a -> s{_mcsgrsResponseStatus = a})--instance NFData ModifyClusterSubnetGroupResponse- where
− gen/Network/AWS/Redshift/ModifyEventSubscription.hs
@@ -1,197 +0,0 @@-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric #-}-{-# LANGUAGE OverloadedStrings #-}-{-# LANGUAGE RecordWildCards #-}-{-# LANGUAGE TypeFamilies #-}--{-# OPTIONS_GHC -fno-warn-unused-imports #-}-{-# OPTIONS_GHC -fno-warn-unused-binds #-}-{-# OPTIONS_GHC -fno-warn-unused-matches #-}---- Derived from AWS service descriptions, licensed under Apache 2.0.---- |--- Module : Network.AWS.Redshift.ModifyEventSubscription--- Copyright : (c) 2013-2018 Brendan Hay--- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>--- Stability : auto-generated--- Portability : non-portable (GHC extensions)------ Modifies an existing Amazon Redshift event notification subscription.-------module Network.AWS.Redshift.ModifyEventSubscription- (- -- * Creating a Request- modifyEventSubscription- , ModifyEventSubscription- -- * Request Lenses- , mesSNSTopicARN- , mesEnabled- , mesSourceType- , mesSeverity- , mesEventCategories- , mesSourceIds- , mesSubscriptionName-- -- * Destructuring the Response- , modifyEventSubscriptionResponse- , ModifyEventSubscriptionResponse- -- * Response Lenses- , mesrsEventSubscription- , mesrsResponseStatus- ) where--import Network.AWS.Lens-import Network.AWS.Prelude-import Network.AWS.Redshift.Types-import Network.AWS.Redshift.Types.Product-import Network.AWS.Request-import Network.AWS.Response---- |------------ /See:/ 'modifyEventSubscription' smart constructor.-data ModifyEventSubscription = ModifyEventSubscription'- { _mesSNSTopicARN :: !(Maybe Text)- , _mesEnabled :: !(Maybe Bool)- , _mesSourceType :: !(Maybe Text)- , _mesSeverity :: !(Maybe Text)- , _mesEventCategories :: !(Maybe [Text])- , _mesSourceIds :: !(Maybe [Text])- , _mesSubscriptionName :: !Text- } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'ModifyEventSubscription' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'mesSNSTopicARN' - The Amazon Resource Name (ARN) of the SNS topic to be used by the event notification subscription.------ * 'mesEnabled' - A Boolean value indicating if the subscription is enabled. @true@ indicates the subscription is enabled------ * 'mesSourceType' - The type of source that will be generating the events. For example, if you want to be notified of events generated by a cluster, you would set this parameter to cluster. If this value is not specified, events are returned for all Amazon Redshift objects in your AWS account. You must specify a source type in order to specify source IDs. Valid values: cluster, cluster-parameter-group, cluster-security-group, and cluster-snapshot.------ * 'mesSeverity' - Specifies the Amazon Redshift event severity to be published by the event notification subscription. Values: ERROR, INFO------ * 'mesEventCategories' - Specifies the Amazon Redshift event categories to be published by the event notification subscription. Values: Configuration, Management, Monitoring, Security------ * 'mesSourceIds' - A list of one or more identifiers of Amazon Redshift source objects. All of the objects must be of the same type as was specified in the source type parameter. The event subscription will return only events generated by the specified objects. If not specified, then events are returned for all objects within the source type specified. Example: my-cluster-1, my-cluster-2 Example: my-snapshot-20131010------ * 'mesSubscriptionName' - The name of the modified Amazon Redshift event notification subscription.-modifyEventSubscription- :: Text -- ^ 'mesSubscriptionName'- -> ModifyEventSubscription-modifyEventSubscription pSubscriptionName_ =- ModifyEventSubscription'- { _mesSNSTopicARN = Nothing- , _mesEnabled = Nothing- , _mesSourceType = Nothing- , _mesSeverity = Nothing- , _mesEventCategories = Nothing- , _mesSourceIds = Nothing- , _mesSubscriptionName = pSubscriptionName_- }----- | The Amazon Resource Name (ARN) of the SNS topic to be used by the event notification subscription.-mesSNSTopicARN :: Lens' ModifyEventSubscription (Maybe Text)-mesSNSTopicARN = lens _mesSNSTopicARN (\ s a -> s{_mesSNSTopicARN = a})---- | A Boolean value indicating if the subscription is enabled. @true@ indicates the subscription is enabled-mesEnabled :: Lens' ModifyEventSubscription (Maybe Bool)-mesEnabled = lens _mesEnabled (\ s a -> s{_mesEnabled = a})---- | The type of source that will be generating the events. For example, if you want to be notified of events generated by a cluster, you would set this parameter to cluster. If this value is not specified, events are returned for all Amazon Redshift objects in your AWS account. You must specify a source type in order to specify source IDs. Valid values: cluster, cluster-parameter-group, cluster-security-group, and cluster-snapshot.-mesSourceType :: Lens' ModifyEventSubscription (Maybe Text)-mesSourceType = lens _mesSourceType (\ s a -> s{_mesSourceType = a})---- | Specifies the Amazon Redshift event severity to be published by the event notification subscription. Values: ERROR, INFO-mesSeverity :: Lens' ModifyEventSubscription (Maybe Text)-mesSeverity = lens _mesSeverity (\ s a -> s{_mesSeverity = a})---- | Specifies the Amazon Redshift event categories to be published by the event notification subscription. Values: Configuration, Management, Monitoring, Security-mesEventCategories :: Lens' ModifyEventSubscription [Text]-mesEventCategories = lens _mesEventCategories (\ s a -> s{_mesEventCategories = a}) . _Default . _Coerce---- | A list of one or more identifiers of Amazon Redshift source objects. All of the objects must be of the same type as was specified in the source type parameter. The event subscription will return only events generated by the specified objects. If not specified, then events are returned for all objects within the source type specified. Example: my-cluster-1, my-cluster-2 Example: my-snapshot-20131010-mesSourceIds :: Lens' ModifyEventSubscription [Text]-mesSourceIds = lens _mesSourceIds (\ s a -> s{_mesSourceIds = a}) . _Default . _Coerce---- | The name of the modified Amazon Redshift event notification subscription.-mesSubscriptionName :: Lens' ModifyEventSubscription Text-mesSubscriptionName = lens _mesSubscriptionName (\ s a -> s{_mesSubscriptionName = a})--instance AWSRequest ModifyEventSubscription where- type Rs ModifyEventSubscription =- ModifyEventSubscriptionResponse- request = postQuery redshift- response- = receiveXMLWrapper "ModifyEventSubscriptionResult"- (\ s h x ->- ModifyEventSubscriptionResponse' <$>- (x .@? "EventSubscription") <*> (pure (fromEnum s)))--instance Hashable ModifyEventSubscription where--instance NFData ModifyEventSubscription where--instance ToHeaders ModifyEventSubscription where- toHeaders = const mempty--instance ToPath ModifyEventSubscription where- toPath = const "/"--instance ToQuery ModifyEventSubscription where- toQuery ModifyEventSubscription'{..}- = mconcat- ["Action" =:- ("ModifyEventSubscription" :: ByteString),- "Version" =: ("2012-12-01" :: ByteString),- "SnsTopicArn" =: _mesSNSTopicARN,- "Enabled" =: _mesEnabled,- "SourceType" =: _mesSourceType,- "Severity" =: _mesSeverity,- "EventCategories" =:- toQuery- (toQueryList "EventCategory" <$>- _mesEventCategories),- "SourceIds" =:- toQuery (toQueryList "SourceId" <$> _mesSourceIds),- "SubscriptionName" =: _mesSubscriptionName]---- | /See:/ 'modifyEventSubscriptionResponse' smart constructor.-data ModifyEventSubscriptionResponse = ModifyEventSubscriptionResponse'- { _mesrsEventSubscription :: !(Maybe EventSubscription)- , _mesrsResponseStatus :: !Int- } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'ModifyEventSubscriptionResponse' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'mesrsEventSubscription' - Undocumented member.------ * 'mesrsResponseStatus' - -- | The response status code.-modifyEventSubscriptionResponse- :: Int -- ^ 'mesrsResponseStatus'- -> ModifyEventSubscriptionResponse-modifyEventSubscriptionResponse pResponseStatus_ =- ModifyEventSubscriptionResponse'- {_mesrsEventSubscription = Nothing, _mesrsResponseStatus = pResponseStatus_}----- | Undocumented member.-mesrsEventSubscription :: Lens' ModifyEventSubscriptionResponse (Maybe EventSubscription)-mesrsEventSubscription = lens _mesrsEventSubscription (\ s a -> s{_mesrsEventSubscription = a})---- | -- | The response status code.-mesrsResponseStatus :: Lens' ModifyEventSubscriptionResponse Int-mesrsResponseStatus = lens _mesrsResponseStatus (\ s a -> s{_mesrsResponseStatus = a})--instance NFData ModifyEventSubscriptionResponse where
− gen/Network/AWS/Redshift/ModifySnapshotCopyRetentionPeriod.hs
@@ -1,153 +0,0 @@-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric #-}-{-# LANGUAGE OverloadedStrings #-}-{-# LANGUAGE RecordWildCards #-}-{-# LANGUAGE TypeFamilies #-}--{-# OPTIONS_GHC -fno-warn-unused-imports #-}-{-# OPTIONS_GHC -fno-warn-unused-binds #-}-{-# OPTIONS_GHC -fno-warn-unused-matches #-}---- Derived from AWS service descriptions, licensed under Apache 2.0.---- |--- Module : Network.AWS.Redshift.ModifySnapshotCopyRetentionPeriod--- Copyright : (c) 2013-2018 Brendan Hay--- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>--- Stability : auto-generated--- Portability : non-portable (GHC extensions)------ Modifies the number of days to retain automated snapshots in the destination region after they are copied from the source region.-------module Network.AWS.Redshift.ModifySnapshotCopyRetentionPeriod- (- -- * Creating a Request- modifySnapshotCopyRetentionPeriod- , ModifySnapshotCopyRetentionPeriod- -- * Request Lenses- , mscrpClusterIdentifier- , mscrpRetentionPeriod-- -- * Destructuring the Response- , modifySnapshotCopyRetentionPeriodResponse- , ModifySnapshotCopyRetentionPeriodResponse- -- * Response Lenses- , mscrprsCluster- , mscrprsResponseStatus- ) where--import Network.AWS.Lens-import Network.AWS.Prelude-import Network.AWS.Redshift.Types-import Network.AWS.Redshift.Types.Product-import Network.AWS.Request-import Network.AWS.Response---- |------------ /See:/ 'modifySnapshotCopyRetentionPeriod' smart constructor.-data ModifySnapshotCopyRetentionPeriod = ModifySnapshotCopyRetentionPeriod'- { _mscrpClusterIdentifier :: !Text- , _mscrpRetentionPeriod :: !Int- } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'ModifySnapshotCopyRetentionPeriod' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'mscrpClusterIdentifier' - The unique identifier of the cluster for which you want to change the retention period for automated snapshots that are copied to a destination region. Constraints: Must be the valid name of an existing cluster that has cross-region snapshot copy enabled.------ * 'mscrpRetentionPeriod' - The number of days to retain automated snapshots in the destination region after they are copied from the source region. If you decrease the retention period for automated snapshots that are copied to a destination region, Amazon Redshift will delete any existing automated snapshots that were copied to the destination region and that fall outside of the new retention period. Constraints: Must be at least 1 and no more than 35.-modifySnapshotCopyRetentionPeriod- :: Text -- ^ 'mscrpClusterIdentifier'- -> Int -- ^ 'mscrpRetentionPeriod'- -> ModifySnapshotCopyRetentionPeriod-modifySnapshotCopyRetentionPeriod pClusterIdentifier_ pRetentionPeriod_ =- ModifySnapshotCopyRetentionPeriod'- { _mscrpClusterIdentifier = pClusterIdentifier_- , _mscrpRetentionPeriod = pRetentionPeriod_- }----- | The unique identifier of the cluster for which you want to change the retention period for automated snapshots that are copied to a destination region. Constraints: Must be the valid name of an existing cluster that has cross-region snapshot copy enabled.-mscrpClusterIdentifier :: Lens' ModifySnapshotCopyRetentionPeriod Text-mscrpClusterIdentifier = lens _mscrpClusterIdentifier (\ s a -> s{_mscrpClusterIdentifier = a})---- | The number of days to retain automated snapshots in the destination region after they are copied from the source region. If you decrease the retention period for automated snapshots that are copied to a destination region, Amazon Redshift will delete any existing automated snapshots that were copied to the destination region and that fall outside of the new retention period. Constraints: Must be at least 1 and no more than 35.-mscrpRetentionPeriod :: Lens' ModifySnapshotCopyRetentionPeriod Int-mscrpRetentionPeriod = lens _mscrpRetentionPeriod (\ s a -> s{_mscrpRetentionPeriod = a})--instance AWSRequest ModifySnapshotCopyRetentionPeriod- where- type Rs ModifySnapshotCopyRetentionPeriod =- ModifySnapshotCopyRetentionPeriodResponse- request = postQuery redshift- response- = receiveXMLWrapper- "ModifySnapshotCopyRetentionPeriodResult"- (\ s h x ->- ModifySnapshotCopyRetentionPeriodResponse' <$>- (x .@? "Cluster") <*> (pure (fromEnum s)))--instance Hashable ModifySnapshotCopyRetentionPeriod- where--instance NFData ModifySnapshotCopyRetentionPeriod- where--instance ToHeaders ModifySnapshotCopyRetentionPeriod- where- toHeaders = const mempty--instance ToPath ModifySnapshotCopyRetentionPeriod- where- toPath = const "/"--instance ToQuery ModifySnapshotCopyRetentionPeriod- where- toQuery ModifySnapshotCopyRetentionPeriod'{..}- = mconcat- ["Action" =:- ("ModifySnapshotCopyRetentionPeriod" :: ByteString),- "Version" =: ("2012-12-01" :: ByteString),- "ClusterIdentifier" =: _mscrpClusterIdentifier,- "RetentionPeriod" =: _mscrpRetentionPeriod]---- | /See:/ 'modifySnapshotCopyRetentionPeriodResponse' smart constructor.-data ModifySnapshotCopyRetentionPeriodResponse = ModifySnapshotCopyRetentionPeriodResponse'- { _mscrprsCluster :: !(Maybe Cluster)- , _mscrprsResponseStatus :: !Int- } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'ModifySnapshotCopyRetentionPeriodResponse' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'mscrprsCluster' - Undocumented member.------ * 'mscrprsResponseStatus' - -- | The response status code.-modifySnapshotCopyRetentionPeriodResponse- :: Int -- ^ 'mscrprsResponseStatus'- -> ModifySnapshotCopyRetentionPeriodResponse-modifySnapshotCopyRetentionPeriodResponse pResponseStatus_ =- ModifySnapshotCopyRetentionPeriodResponse'- {_mscrprsCluster = Nothing, _mscrprsResponseStatus = pResponseStatus_}----- | Undocumented member.-mscrprsCluster :: Lens' ModifySnapshotCopyRetentionPeriodResponse (Maybe Cluster)-mscrprsCluster = lens _mscrprsCluster (\ s a -> s{_mscrprsCluster = a})---- | -- | The response status code.-mscrprsResponseStatus :: Lens' ModifySnapshotCopyRetentionPeriodResponse Int-mscrprsResponseStatus = lens _mscrprsResponseStatus (\ s a -> s{_mscrprsResponseStatus = a})--instance NFData- ModifySnapshotCopyRetentionPeriodResponse- where
− gen/Network/AWS/Redshift/PurchaseReservedNodeOffering.hs
@@ -1,149 +0,0 @@-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric #-}-{-# LANGUAGE OverloadedStrings #-}-{-# LANGUAGE RecordWildCards #-}-{-# LANGUAGE TypeFamilies #-}--{-# OPTIONS_GHC -fno-warn-unused-imports #-}-{-# OPTIONS_GHC -fno-warn-unused-binds #-}-{-# OPTIONS_GHC -fno-warn-unused-matches #-}---- Derived from AWS service descriptions, licensed under Apache 2.0.---- |--- Module : Network.AWS.Redshift.PurchaseReservedNodeOffering--- Copyright : (c) 2013-2018 Brendan Hay--- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>--- Stability : auto-generated--- Portability : non-portable (GHC extensions)------ Allows you to purchase reserved nodes. Amazon Redshift offers a predefined set of reserved node offerings. You can purchase one or more of the offerings. You can call the 'DescribeReservedNodeOfferings' API to obtain the available reserved node offerings. You can call this API by providing a specific reserved node offering and the number of nodes you want to reserve.--------- For more information about reserved node offerings, go to <http://docs.aws.amazon.com/redshift/latest/mgmt/purchase-reserved-node-instance.html Purchasing Reserved Nodes> in the /Amazon Redshift Cluster Management Guide/ .----module Network.AWS.Redshift.PurchaseReservedNodeOffering- (- -- * Creating a Request- purchaseReservedNodeOffering- , PurchaseReservedNodeOffering- -- * Request Lenses- , prnoNodeCount- , prnoReservedNodeOfferingId-- -- * Destructuring the Response- , purchaseReservedNodeOfferingResponse- , PurchaseReservedNodeOfferingResponse- -- * Response Lenses- , prnorsReservedNode- , prnorsResponseStatus- ) where--import Network.AWS.Lens-import Network.AWS.Prelude-import Network.AWS.Redshift.Types-import Network.AWS.Redshift.Types.Product-import Network.AWS.Request-import Network.AWS.Response---- |------------ /See:/ 'purchaseReservedNodeOffering' smart constructor.-data PurchaseReservedNodeOffering = PurchaseReservedNodeOffering'- { _prnoNodeCount :: !(Maybe Int)- , _prnoReservedNodeOfferingId :: !Text- } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'PurchaseReservedNodeOffering' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'prnoNodeCount' - The number of reserved nodes that you want to purchase. Default: @1@------ * 'prnoReservedNodeOfferingId' - The unique identifier of the reserved node offering you want to purchase.-purchaseReservedNodeOffering- :: Text -- ^ 'prnoReservedNodeOfferingId'- -> PurchaseReservedNodeOffering-purchaseReservedNodeOffering pReservedNodeOfferingId_ =- PurchaseReservedNodeOffering'- { _prnoNodeCount = Nothing- , _prnoReservedNodeOfferingId = pReservedNodeOfferingId_- }----- | The number of reserved nodes that you want to purchase. Default: @1@-prnoNodeCount :: Lens' PurchaseReservedNodeOffering (Maybe Int)-prnoNodeCount = lens _prnoNodeCount (\ s a -> s{_prnoNodeCount = a})---- | The unique identifier of the reserved node offering you want to purchase.-prnoReservedNodeOfferingId :: Lens' PurchaseReservedNodeOffering Text-prnoReservedNodeOfferingId = lens _prnoReservedNodeOfferingId (\ s a -> s{_prnoReservedNodeOfferingId = a})--instance AWSRequest PurchaseReservedNodeOffering- where- type Rs PurchaseReservedNodeOffering =- PurchaseReservedNodeOfferingResponse- request = postQuery redshift- response- = receiveXMLWrapper- "PurchaseReservedNodeOfferingResult"- (\ s h x ->- PurchaseReservedNodeOfferingResponse' <$>- (x .@? "ReservedNode") <*> (pure (fromEnum s)))--instance Hashable PurchaseReservedNodeOffering where--instance NFData PurchaseReservedNodeOffering where--instance ToHeaders PurchaseReservedNodeOffering where- toHeaders = const mempty--instance ToPath PurchaseReservedNodeOffering where- toPath = const "/"--instance ToQuery PurchaseReservedNodeOffering where- toQuery PurchaseReservedNodeOffering'{..}- = mconcat- ["Action" =:- ("PurchaseReservedNodeOffering" :: ByteString),- "Version" =: ("2012-12-01" :: ByteString),- "NodeCount" =: _prnoNodeCount,- "ReservedNodeOfferingId" =:- _prnoReservedNodeOfferingId]---- | /See:/ 'purchaseReservedNodeOfferingResponse' smart constructor.-data PurchaseReservedNodeOfferingResponse = PurchaseReservedNodeOfferingResponse'- { _prnorsReservedNode :: !(Maybe ReservedNode)- , _prnorsResponseStatus :: !Int- } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'PurchaseReservedNodeOfferingResponse' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'prnorsReservedNode' - Undocumented member.------ * 'prnorsResponseStatus' - -- | The response status code.-purchaseReservedNodeOfferingResponse- :: Int -- ^ 'prnorsResponseStatus'- -> PurchaseReservedNodeOfferingResponse-purchaseReservedNodeOfferingResponse pResponseStatus_ =- PurchaseReservedNodeOfferingResponse'- {_prnorsReservedNode = Nothing, _prnorsResponseStatus = pResponseStatus_}----- | Undocumented member.-prnorsReservedNode :: Lens' PurchaseReservedNodeOfferingResponse (Maybe ReservedNode)-prnorsReservedNode = lens _prnorsReservedNode (\ s a -> s{_prnorsReservedNode = a})---- | -- | The response status code.-prnorsResponseStatus :: Lens' PurchaseReservedNodeOfferingResponse Int-prnorsResponseStatus = lens _prnorsResponseStatus (\ s a -> s{_prnorsResponseStatus = a})--instance NFData PurchaseReservedNodeOfferingResponse- where
− gen/Network/AWS/Redshift/RebootCluster.hs
@@ -1,129 +0,0 @@-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric #-}-{-# LANGUAGE OverloadedStrings #-}-{-# LANGUAGE RecordWildCards #-}-{-# LANGUAGE TypeFamilies #-}--{-# OPTIONS_GHC -fno-warn-unused-imports #-}-{-# OPTIONS_GHC -fno-warn-unused-binds #-}-{-# OPTIONS_GHC -fno-warn-unused-matches #-}---- Derived from AWS service descriptions, licensed under Apache 2.0.---- |--- Module : Network.AWS.Redshift.RebootCluster--- Copyright : (c) 2013-2018 Brendan Hay--- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>--- Stability : auto-generated--- Portability : non-portable (GHC extensions)------ Reboots a cluster. This action is taken as soon as possible. It results in a momentary outage to the cluster, during which the cluster status is set to @rebooting@ . A cluster event is created when the reboot is completed. Any pending cluster modifications (see 'ModifyCluster' ) are applied at this reboot. For more information about managing clusters, go to <http://docs.aws.amazon.com/redshift/latest/mgmt/working-with-clusters.html Amazon Redshift Clusters> in the /Amazon Redshift Cluster Management Guide/ .-------module Network.AWS.Redshift.RebootCluster- (- -- * Creating a Request- rebootCluster- , RebootCluster- -- * Request Lenses- , rcClusterIdentifier-- -- * Destructuring the Response- , rebootClusterResponse- , RebootClusterResponse- -- * Response Lenses- , rcrsCluster- , rcrsResponseStatus- ) where--import Network.AWS.Lens-import Network.AWS.Prelude-import Network.AWS.Redshift.Types-import Network.AWS.Redshift.Types.Product-import Network.AWS.Request-import Network.AWS.Response---- |------------ /See:/ 'rebootCluster' smart constructor.-newtype RebootCluster = RebootCluster'- { _rcClusterIdentifier :: Text- } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'RebootCluster' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'rcClusterIdentifier' - The cluster identifier.-rebootCluster- :: Text -- ^ 'rcClusterIdentifier'- -> RebootCluster-rebootCluster pClusterIdentifier_ =- RebootCluster' {_rcClusterIdentifier = pClusterIdentifier_}----- | The cluster identifier.-rcClusterIdentifier :: Lens' RebootCluster Text-rcClusterIdentifier = lens _rcClusterIdentifier (\ s a -> s{_rcClusterIdentifier = a})--instance AWSRequest RebootCluster where- type Rs RebootCluster = RebootClusterResponse- request = postQuery redshift- response- = receiveXMLWrapper "RebootClusterResult"- (\ s h x ->- RebootClusterResponse' <$>- (x .@? "Cluster") <*> (pure (fromEnum s)))--instance Hashable RebootCluster where--instance NFData RebootCluster where--instance ToHeaders RebootCluster where- toHeaders = const mempty--instance ToPath RebootCluster where- toPath = const "/"--instance ToQuery RebootCluster where- toQuery RebootCluster'{..}- = mconcat- ["Action" =: ("RebootCluster" :: ByteString),- "Version" =: ("2012-12-01" :: ByteString),- "ClusterIdentifier" =: _rcClusterIdentifier]---- | /See:/ 'rebootClusterResponse' smart constructor.-data RebootClusterResponse = RebootClusterResponse'- { _rcrsCluster :: !(Maybe Cluster)- , _rcrsResponseStatus :: !Int- } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'RebootClusterResponse' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'rcrsCluster' - Undocumented member.------ * 'rcrsResponseStatus' - -- | The response status code.-rebootClusterResponse- :: Int -- ^ 'rcrsResponseStatus'- -> RebootClusterResponse-rebootClusterResponse pResponseStatus_ =- RebootClusterResponse'- {_rcrsCluster = Nothing, _rcrsResponseStatus = pResponseStatus_}----- | Undocumented member.-rcrsCluster :: Lens' RebootClusterResponse (Maybe Cluster)-rcrsCluster = lens _rcrsCluster (\ s a -> s{_rcrsCluster = a})---- | -- | The response status code.-rcrsResponseStatus :: Lens' RebootClusterResponse Int-rcrsResponseStatus = lens _rcrsResponseStatus (\ s a -> s{_rcrsResponseStatus = a})--instance NFData RebootClusterResponse where
− gen/Network/AWS/Redshift/ResetClusterParameterGroup.hs
@@ -1,122 +0,0 @@-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric #-}-{-# LANGUAGE OverloadedStrings #-}-{-# LANGUAGE RecordWildCards #-}-{-# LANGUAGE TypeFamilies #-}--{-# OPTIONS_GHC -fno-warn-unused-imports #-}-{-# OPTIONS_GHC -fno-warn-unused-binds #-}-{-# OPTIONS_GHC -fno-warn-unused-matches #-}---- Derived from AWS service descriptions, licensed under Apache 2.0.---- |--- Module : Network.AWS.Redshift.ResetClusterParameterGroup--- Copyright : (c) 2013-2018 Brendan Hay--- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>--- Stability : auto-generated--- Portability : non-portable (GHC extensions)------ Sets one or more parameters of the specified parameter group to their default values and sets the source values of the parameters to "engine-default". To reset the entire parameter group specify the /ResetAllParameters/ parameter. For parameter changes to take effect you must reboot any associated clusters.-------module Network.AWS.Redshift.ResetClusterParameterGroup- (- -- * Creating a Request- resetClusterParameterGroup- , ResetClusterParameterGroup- -- * Request Lenses- , rcpgResetAllParameters- , rcpgParameters- , rcpgParameterGroupName-- -- * Destructuring the Response- , clusterParameterGroupNameMessage- , ClusterParameterGroupNameMessage- -- * Response Lenses- , cpgnmParameterGroupStatus- , cpgnmParameterGroupName- ) where--import Network.AWS.Lens-import Network.AWS.Prelude-import Network.AWS.Redshift.Types-import Network.AWS.Redshift.Types.Product-import Network.AWS.Request-import Network.AWS.Response---- |------------ /See:/ 'resetClusterParameterGroup' smart constructor.-data ResetClusterParameterGroup = ResetClusterParameterGroup'- { _rcpgResetAllParameters :: !(Maybe Bool)- , _rcpgParameters :: !(Maybe [Parameter])- , _rcpgParameterGroupName :: !Text- } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'ResetClusterParameterGroup' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'rcpgResetAllParameters' - If @true@ , all parameters in the specified parameter group will be reset to their default values. Default: @true@------ * 'rcpgParameters' - An array of names of parameters to be reset. If /ResetAllParameters/ option is not used, then at least one parameter name must be supplied. Constraints: A maximum of 20 parameters can be reset in a single request.------ * 'rcpgParameterGroupName' - The name of the cluster parameter group to be reset.-resetClusterParameterGroup- :: Text -- ^ 'rcpgParameterGroupName'- -> ResetClusterParameterGroup-resetClusterParameterGroup pParameterGroupName_ =- ResetClusterParameterGroup'- { _rcpgResetAllParameters = Nothing- , _rcpgParameters = Nothing- , _rcpgParameterGroupName = pParameterGroupName_- }----- | If @true@ , all parameters in the specified parameter group will be reset to their default values. Default: @true@-rcpgResetAllParameters :: Lens' ResetClusterParameterGroup (Maybe Bool)-rcpgResetAllParameters = lens _rcpgResetAllParameters (\ s a -> s{_rcpgResetAllParameters = a})---- | An array of names of parameters to be reset. If /ResetAllParameters/ option is not used, then at least one parameter name must be supplied. Constraints: A maximum of 20 parameters can be reset in a single request.-rcpgParameters :: Lens' ResetClusterParameterGroup [Parameter]-rcpgParameters = lens _rcpgParameters (\ s a -> s{_rcpgParameters = a}) . _Default . _Coerce---- | The name of the cluster parameter group to be reset.-rcpgParameterGroupName :: Lens' ResetClusterParameterGroup Text-rcpgParameterGroupName = lens _rcpgParameterGroupName (\ s a -> s{_rcpgParameterGroupName = a})--instance AWSRequest ResetClusterParameterGroup where- type Rs ResetClusterParameterGroup =- ClusterParameterGroupNameMessage- request = postQuery redshift- response- = receiveXMLWrapper- "ResetClusterParameterGroupResult"- (\ s h x -> parseXML x)--instance Hashable ResetClusterParameterGroup where--instance NFData ResetClusterParameterGroup where--instance ToHeaders ResetClusterParameterGroup where- toHeaders = const mempty--instance ToPath ResetClusterParameterGroup where- toPath = const "/"--instance ToQuery ResetClusterParameterGroup where- toQuery ResetClusterParameterGroup'{..}- = mconcat- ["Action" =:- ("ResetClusterParameterGroup" :: ByteString),- "Version" =: ("2012-12-01" :: ByteString),- "ResetAllParameters" =: _rcpgResetAllParameters,- "Parameters" =:- toQuery- (toQueryList "Parameter" <$> _rcpgParameters),- "ParameterGroupName" =: _rcpgParameterGroupName]
− gen/Network/AWS/Redshift/RestoreFromClusterSnapshot.hs
@@ -1,364 +0,0 @@-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric #-}-{-# LANGUAGE OverloadedStrings #-}-{-# LANGUAGE RecordWildCards #-}-{-# LANGUAGE TypeFamilies #-}--{-# OPTIONS_GHC -fno-warn-unused-imports #-}-{-# OPTIONS_GHC -fno-warn-unused-binds #-}-{-# OPTIONS_GHC -fno-warn-unused-matches #-}---- Derived from AWS service descriptions, licensed under Apache 2.0.---- |--- Module : Network.AWS.Redshift.RestoreFromClusterSnapshot--- Copyright : (c) 2013-2018 Brendan Hay--- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>--- Stability : auto-generated--- Portability : non-portable (GHC extensions)------ Creates a new cluster from a snapshot. By default, Amazon Redshift creates the resulting cluster with the same configuration as the original cluster from which the snapshot was created, except that the new cluster is created with the default cluster security and parameter groups. After Amazon Redshift creates the cluster, you can use the 'ModifyCluster' API to associate a different security group and different parameter group with the restored cluster. If you are using a DS node type, you can also choose to change to another DS node type of the same size during restore.--------- If you restore a cluster into a VPC, you must provide a cluster subnet group where you want the cluster restored.------ For more information about working with snapshots, go to <http://docs.aws.amazon.com/redshift/latest/mgmt/working-with-snapshots.html Amazon Redshift Snapshots> in the /Amazon Redshift Cluster Management Guide/ .----module Network.AWS.Redshift.RestoreFromClusterSnapshot- (- -- * Creating a Request- restoreFromClusterSnapshot- , RestoreFromClusterSnapshot- -- * Request Lenses- , rfcsEnhancedVPCRouting- , rfcsAdditionalInfo- , rfcsPubliclyAccessible- , rfcsSnapshotClusterIdentifier- , rfcsHSMConfigurationIdentifier- , rfcsClusterSecurityGroups- , rfcsAutomatedSnapshotRetentionPeriod- , rfcsClusterSubnetGroupName- , rfcsHSMClientCertificateIdentifier- , rfcsElasticIP- , rfcsPreferredMaintenanceWindow- , rfcsKMSKeyId- , rfcsAvailabilityZone- , rfcsVPCSecurityGroupIds- , rfcsIAMRoles- , rfcsOwnerAccount- , rfcsNodeType- , rfcsAllowVersionUpgrade- , rfcsClusterParameterGroupName- , rfcsPort- , rfcsClusterIdentifier- , rfcsSnapshotIdentifier-- -- * Destructuring the Response- , restoreFromClusterSnapshotResponse- , RestoreFromClusterSnapshotResponse- -- * Response Lenses- , rfcsrsCluster- , rfcsrsResponseStatus- ) where--import Network.AWS.Lens-import Network.AWS.Prelude-import Network.AWS.Redshift.Types-import Network.AWS.Redshift.Types.Product-import Network.AWS.Request-import Network.AWS.Response---- |------------ /See:/ 'restoreFromClusterSnapshot' smart constructor.-data RestoreFromClusterSnapshot = RestoreFromClusterSnapshot'- { _rfcsEnhancedVPCRouting :: !(Maybe Bool)- , _rfcsAdditionalInfo :: !(Maybe Text)- , _rfcsPubliclyAccessible :: !(Maybe Bool)- , _rfcsSnapshotClusterIdentifier :: !(Maybe Text)- , _rfcsHSMConfigurationIdentifier :: !(Maybe Text)- , _rfcsClusterSecurityGroups :: !(Maybe [Text])- , _rfcsAutomatedSnapshotRetentionPeriod :: !(Maybe Int)- , _rfcsClusterSubnetGroupName :: !(Maybe Text)- , _rfcsHSMClientCertificateIdentifier :: !(Maybe Text)- , _rfcsElasticIP :: !(Maybe Text)- , _rfcsPreferredMaintenanceWindow :: !(Maybe Text)- , _rfcsKMSKeyId :: !(Maybe Text)- , _rfcsAvailabilityZone :: !(Maybe Text)- , _rfcsVPCSecurityGroupIds :: !(Maybe [Text])- , _rfcsIAMRoles :: !(Maybe [Text])- , _rfcsOwnerAccount :: !(Maybe Text)- , _rfcsNodeType :: !(Maybe Text)- , _rfcsAllowVersionUpgrade :: !(Maybe Bool)- , _rfcsClusterParameterGroupName :: !(Maybe Text)- , _rfcsPort :: !(Maybe Int)- , _rfcsClusterIdentifier :: !Text- , _rfcsSnapshotIdentifier :: !Text- } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'RestoreFromClusterSnapshot' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'rfcsEnhancedVPCRouting' - An option that specifies whether to create the cluster with enhanced VPC routing enabled. To create a cluster that uses enhanced VPC routing, the cluster must be in a VPC. For more information, see <http://docs.aws.amazon.com/redshift/latest/mgmt/enhanced-vpc-routing.html Enhanced VPC Routing> in the Amazon Redshift Cluster Management Guide. If this option is @true@ , enhanced VPC routing is enabled. Default: false------ * 'rfcsAdditionalInfo' - Reserved.------ * 'rfcsPubliclyAccessible' - If @true@ , the cluster can be accessed from a public network.------ * 'rfcsSnapshotClusterIdentifier' - The name of the cluster the source snapshot was created from. This parameter is required if your IAM user has a policy containing a snapshot resource element that specifies anything other than * for the cluster name.------ * 'rfcsHSMConfigurationIdentifier' - Specifies the name of the HSM configuration that contains the information the Amazon Redshift cluster can use to retrieve and store keys in an HSM.------ * 'rfcsClusterSecurityGroups' - A list of security groups to be associated with this cluster. Default: The default cluster security group for Amazon Redshift. Cluster security groups only apply to clusters outside of VPCs.------ * 'rfcsAutomatedSnapshotRetentionPeriod' - The number of days that automated snapshots are retained. If the value is 0, automated snapshots are disabled. Even if automated snapshots are disabled, you can still create manual snapshots when you want with 'CreateClusterSnapshot' . Default: The value selected for the cluster from which the snapshot was taken. Constraints: Must be a value from 0 to 35.------ * 'rfcsClusterSubnetGroupName' - The name of the subnet group where you want to cluster restored. A snapshot of cluster in VPC can be restored only in VPC. Therefore, you must provide subnet group name where you want the cluster restored.------ * 'rfcsHSMClientCertificateIdentifier' - Specifies the name of the HSM client certificate the Amazon Redshift cluster uses to retrieve the data encryption keys stored in an HSM.------ * 'rfcsElasticIP' - The elastic IP (EIP) address for the cluster.------ * 'rfcsPreferredMaintenanceWindow' - The weekly time range (in UTC) during which automated cluster maintenance can occur. Format: @ddd:hh24:mi-ddd:hh24:mi@ Default: The value selected for the cluster from which the snapshot was taken. For more information about the time blocks for each region, see <http://docs.aws.amazon.com/redshift/latest/mgmt/working-with-clusters.html#rs-maintenance-windows Maintenance Windows> in Amazon Redshift Cluster Management Guide. Valid Days: Mon | Tue | Wed | Thu | Fri | Sat | Sun Constraints: Minimum 30-minute window.------ * 'rfcsKMSKeyId' - The AWS Key Management Service (KMS) key ID of the encryption key that you want to use to encrypt data in the cluster that you restore from a shared snapshot.------ * 'rfcsAvailabilityZone' - The Amazon EC2 Availability Zone in which to restore the cluster. Default: A random, system-chosen Availability Zone. Example: @us-east-1a@------ * 'rfcsVPCSecurityGroupIds' - A list of Virtual Private Cloud (VPC) security groups to be associated with the cluster. Default: The default VPC security group is associated with the cluster. VPC security groups only apply to clusters in VPCs.------ * 'rfcsIAMRoles' - A list of AWS Identity and Access Management (IAM) roles that can be used by the cluster to access other AWS services. You must supply the IAM roles in their Amazon Resource Name (ARN) format. You can supply up to 10 IAM roles in a single request. A cluster can have up to 10 IAM roles associated at any time.------ * 'rfcsOwnerAccount' - The AWS customer account used to create or copy the snapshot. Required if you are restoring a snapshot you do not own, optional if you own the snapshot.------ * 'rfcsNodeType' - The node type that the restored cluster will be provisioned with. Default: The node type of the cluster from which the snapshot was taken. You can modify this if you are using any DS node type. In that case, you can choose to restore into another DS node type of the same size. For example, you can restore ds1.8xlarge into ds2.8xlarge, or ds1.xlarge into ds2.xlarge. If you have a DC instance type, you must restore into that same instance type and size. In other words, you can only restore a dc1.large instance type into another dc1.large instance type or dc2.large instance type. You can't restore dc1.8xlarge to dc2.8xlarge. First restore to a dc1.8xlareg cluster, then resize to a dc2.8large cluster. For more information about node types, see <http://docs.aws.amazon.com/redshift/latest/mgmt/working-with-clusters.html#rs-about-clusters-and-nodes About Clusters and Nodes> in the /Amazon Redshift Cluster Management Guide/ .------ * 'rfcsAllowVersionUpgrade' - If @true@ , major version upgrades can be applied during the maintenance window to the Amazon Redshift engine that is running on the cluster. Default: @true@------ * 'rfcsClusterParameterGroupName' - The name of the parameter group to be associated with this cluster. Default: The default Amazon Redshift cluster parameter group. For information about the default parameter group, go to <http://docs.aws.amazon.com/redshift/latest/mgmt/working-with-parameter-groups.html Working with Amazon Redshift Parameter Groups> . Constraints: * Must be 1 to 255 alphanumeric characters or hyphens. * First character must be a letter. * Cannot end with a hyphen or contain two consecutive hyphens.------ * 'rfcsPort' - The port number on which the cluster accepts connections. Default: The same port as the original cluster. Constraints: Must be between @1115@ and @65535@ .------ * 'rfcsClusterIdentifier' - The identifier of the cluster that will be created from restoring the snapshot. Constraints: * Must contain from 1 to 63 alphanumeric characters or hyphens. * Alphabetic characters must be lowercase. * First character must be a letter. * Cannot end with a hyphen or contain two consecutive hyphens. * Must be unique for all clusters within an AWS account.------ * 'rfcsSnapshotIdentifier' - The name of the snapshot from which to create the new cluster. This parameter isn't case sensitive. Example: @my-snapshot-id@-restoreFromClusterSnapshot- :: Text -- ^ 'rfcsClusterIdentifier'- -> Text -- ^ 'rfcsSnapshotIdentifier'- -> RestoreFromClusterSnapshot-restoreFromClusterSnapshot pClusterIdentifier_ pSnapshotIdentifier_ =- RestoreFromClusterSnapshot'- { _rfcsEnhancedVPCRouting = Nothing- , _rfcsAdditionalInfo = Nothing- , _rfcsPubliclyAccessible = Nothing- , _rfcsSnapshotClusterIdentifier = Nothing- , _rfcsHSMConfigurationIdentifier = Nothing- , _rfcsClusterSecurityGroups = Nothing- , _rfcsAutomatedSnapshotRetentionPeriod = Nothing- , _rfcsClusterSubnetGroupName = Nothing- , _rfcsHSMClientCertificateIdentifier = Nothing- , _rfcsElasticIP = Nothing- , _rfcsPreferredMaintenanceWindow = Nothing- , _rfcsKMSKeyId = Nothing- , _rfcsAvailabilityZone = Nothing- , _rfcsVPCSecurityGroupIds = Nothing- , _rfcsIAMRoles = Nothing- , _rfcsOwnerAccount = Nothing- , _rfcsNodeType = Nothing- , _rfcsAllowVersionUpgrade = Nothing- , _rfcsClusterParameterGroupName = Nothing- , _rfcsPort = Nothing- , _rfcsClusterIdentifier = pClusterIdentifier_- , _rfcsSnapshotIdentifier = pSnapshotIdentifier_- }----- | An option that specifies whether to create the cluster with enhanced VPC routing enabled. To create a cluster that uses enhanced VPC routing, the cluster must be in a VPC. For more information, see <http://docs.aws.amazon.com/redshift/latest/mgmt/enhanced-vpc-routing.html Enhanced VPC Routing> in the Amazon Redshift Cluster Management Guide. If this option is @true@ , enhanced VPC routing is enabled. Default: false-rfcsEnhancedVPCRouting :: Lens' RestoreFromClusterSnapshot (Maybe Bool)-rfcsEnhancedVPCRouting = lens _rfcsEnhancedVPCRouting (\ s a -> s{_rfcsEnhancedVPCRouting = a})---- | Reserved.-rfcsAdditionalInfo :: Lens' RestoreFromClusterSnapshot (Maybe Text)-rfcsAdditionalInfo = lens _rfcsAdditionalInfo (\ s a -> s{_rfcsAdditionalInfo = a})---- | If @true@ , the cluster can be accessed from a public network.-rfcsPubliclyAccessible :: Lens' RestoreFromClusterSnapshot (Maybe Bool)-rfcsPubliclyAccessible = lens _rfcsPubliclyAccessible (\ s a -> s{_rfcsPubliclyAccessible = a})---- | The name of the cluster the source snapshot was created from. This parameter is required if your IAM user has a policy containing a snapshot resource element that specifies anything other than * for the cluster name.-rfcsSnapshotClusterIdentifier :: Lens' RestoreFromClusterSnapshot (Maybe Text)-rfcsSnapshotClusterIdentifier = lens _rfcsSnapshotClusterIdentifier (\ s a -> s{_rfcsSnapshotClusterIdentifier = a})---- | Specifies the name of the HSM configuration that contains the information the Amazon Redshift cluster can use to retrieve and store keys in an HSM.-rfcsHSMConfigurationIdentifier :: Lens' RestoreFromClusterSnapshot (Maybe Text)-rfcsHSMConfigurationIdentifier = lens _rfcsHSMConfigurationIdentifier (\ s a -> s{_rfcsHSMConfigurationIdentifier = a})---- | A list of security groups to be associated with this cluster. Default: The default cluster security group for Amazon Redshift. Cluster security groups only apply to clusters outside of VPCs.-rfcsClusterSecurityGroups :: Lens' RestoreFromClusterSnapshot [Text]-rfcsClusterSecurityGroups = lens _rfcsClusterSecurityGroups (\ s a -> s{_rfcsClusterSecurityGroups = a}) . _Default . _Coerce---- | The number of days that automated snapshots are retained. If the value is 0, automated snapshots are disabled. Even if automated snapshots are disabled, you can still create manual snapshots when you want with 'CreateClusterSnapshot' . Default: The value selected for the cluster from which the snapshot was taken. Constraints: Must be a value from 0 to 35.-rfcsAutomatedSnapshotRetentionPeriod :: Lens' RestoreFromClusterSnapshot (Maybe Int)-rfcsAutomatedSnapshotRetentionPeriod = lens _rfcsAutomatedSnapshotRetentionPeriod (\ s a -> s{_rfcsAutomatedSnapshotRetentionPeriod = a})---- | The name of the subnet group where you want to cluster restored. A snapshot of cluster in VPC can be restored only in VPC. Therefore, you must provide subnet group name where you want the cluster restored.-rfcsClusterSubnetGroupName :: Lens' RestoreFromClusterSnapshot (Maybe Text)-rfcsClusterSubnetGroupName = lens _rfcsClusterSubnetGroupName (\ s a -> s{_rfcsClusterSubnetGroupName = a})---- | Specifies the name of the HSM client certificate the Amazon Redshift cluster uses to retrieve the data encryption keys stored in an HSM.-rfcsHSMClientCertificateIdentifier :: Lens' RestoreFromClusterSnapshot (Maybe Text)-rfcsHSMClientCertificateIdentifier = lens _rfcsHSMClientCertificateIdentifier (\ s a -> s{_rfcsHSMClientCertificateIdentifier = a})---- | The elastic IP (EIP) address for the cluster.-rfcsElasticIP :: Lens' RestoreFromClusterSnapshot (Maybe Text)-rfcsElasticIP = lens _rfcsElasticIP (\ s a -> s{_rfcsElasticIP = a})---- | The weekly time range (in UTC) during which automated cluster maintenance can occur. Format: @ddd:hh24:mi-ddd:hh24:mi@ Default: The value selected for the cluster from which the snapshot was taken. For more information about the time blocks for each region, see <http://docs.aws.amazon.com/redshift/latest/mgmt/working-with-clusters.html#rs-maintenance-windows Maintenance Windows> in Amazon Redshift Cluster Management Guide. Valid Days: Mon | Tue | Wed | Thu | Fri | Sat | Sun Constraints: Minimum 30-minute window.-rfcsPreferredMaintenanceWindow :: Lens' RestoreFromClusterSnapshot (Maybe Text)-rfcsPreferredMaintenanceWindow = lens _rfcsPreferredMaintenanceWindow (\ s a -> s{_rfcsPreferredMaintenanceWindow = a})---- | The AWS Key Management Service (KMS) key ID of the encryption key that you want to use to encrypt data in the cluster that you restore from a shared snapshot.-rfcsKMSKeyId :: Lens' RestoreFromClusterSnapshot (Maybe Text)-rfcsKMSKeyId = lens _rfcsKMSKeyId (\ s a -> s{_rfcsKMSKeyId = a})---- | The Amazon EC2 Availability Zone in which to restore the cluster. Default: A random, system-chosen Availability Zone. Example: @us-east-1a@-rfcsAvailabilityZone :: Lens' RestoreFromClusterSnapshot (Maybe Text)-rfcsAvailabilityZone = lens _rfcsAvailabilityZone (\ s a -> s{_rfcsAvailabilityZone = a})---- | A list of Virtual Private Cloud (VPC) security groups to be associated with the cluster. Default: The default VPC security group is associated with the cluster. VPC security groups only apply to clusters in VPCs.-rfcsVPCSecurityGroupIds :: Lens' RestoreFromClusterSnapshot [Text]-rfcsVPCSecurityGroupIds = lens _rfcsVPCSecurityGroupIds (\ s a -> s{_rfcsVPCSecurityGroupIds = a}) . _Default . _Coerce---- | A list of AWS Identity and Access Management (IAM) roles that can be used by the cluster to access other AWS services. You must supply the IAM roles in their Amazon Resource Name (ARN) format. You can supply up to 10 IAM roles in a single request. A cluster can have up to 10 IAM roles associated at any time.-rfcsIAMRoles :: Lens' RestoreFromClusterSnapshot [Text]-rfcsIAMRoles = lens _rfcsIAMRoles (\ s a -> s{_rfcsIAMRoles = a}) . _Default . _Coerce---- | The AWS customer account used to create or copy the snapshot. Required if you are restoring a snapshot you do not own, optional if you own the snapshot.-rfcsOwnerAccount :: Lens' RestoreFromClusterSnapshot (Maybe Text)-rfcsOwnerAccount = lens _rfcsOwnerAccount (\ s a -> s{_rfcsOwnerAccount = a})---- | The node type that the restored cluster will be provisioned with. Default: The node type of the cluster from which the snapshot was taken. You can modify this if you are using any DS node type. In that case, you can choose to restore into another DS node type of the same size. For example, you can restore ds1.8xlarge into ds2.8xlarge, or ds1.xlarge into ds2.xlarge. If you have a DC instance type, you must restore into that same instance type and size. In other words, you can only restore a dc1.large instance type into another dc1.large instance type or dc2.large instance type. You can't restore dc1.8xlarge to dc2.8xlarge. First restore to a dc1.8xlareg cluster, then resize to a dc2.8large cluster. For more information about node types, see <http://docs.aws.amazon.com/redshift/latest/mgmt/working-with-clusters.html#rs-about-clusters-and-nodes About Clusters and Nodes> in the /Amazon Redshift Cluster Management Guide/ .-rfcsNodeType :: Lens' RestoreFromClusterSnapshot (Maybe Text)-rfcsNodeType = lens _rfcsNodeType (\ s a -> s{_rfcsNodeType = a})---- | If @true@ , major version upgrades can be applied during the maintenance window to the Amazon Redshift engine that is running on the cluster. Default: @true@-rfcsAllowVersionUpgrade :: Lens' RestoreFromClusterSnapshot (Maybe Bool)-rfcsAllowVersionUpgrade = lens _rfcsAllowVersionUpgrade (\ s a -> s{_rfcsAllowVersionUpgrade = a})---- | The name of the parameter group to be associated with this cluster. Default: The default Amazon Redshift cluster parameter group. For information about the default parameter group, go to <http://docs.aws.amazon.com/redshift/latest/mgmt/working-with-parameter-groups.html Working with Amazon Redshift Parameter Groups> . Constraints: * Must be 1 to 255 alphanumeric characters or hyphens. * First character must be a letter. * Cannot end with a hyphen or contain two consecutive hyphens.-rfcsClusterParameterGroupName :: Lens' RestoreFromClusterSnapshot (Maybe Text)-rfcsClusterParameterGroupName = lens _rfcsClusterParameterGroupName (\ s a -> s{_rfcsClusterParameterGroupName = a})---- | The port number on which the cluster accepts connections. Default: The same port as the original cluster. Constraints: Must be between @1115@ and @65535@ .-rfcsPort :: Lens' RestoreFromClusterSnapshot (Maybe Int)-rfcsPort = lens _rfcsPort (\ s a -> s{_rfcsPort = a})---- | The identifier of the cluster that will be created from restoring the snapshot. Constraints: * Must contain from 1 to 63 alphanumeric characters or hyphens. * Alphabetic characters must be lowercase. * First character must be a letter. * Cannot end with a hyphen or contain two consecutive hyphens. * Must be unique for all clusters within an AWS account.-rfcsClusterIdentifier :: Lens' RestoreFromClusterSnapshot Text-rfcsClusterIdentifier = lens _rfcsClusterIdentifier (\ s a -> s{_rfcsClusterIdentifier = a})---- | The name of the snapshot from which to create the new cluster. This parameter isn't case sensitive. Example: @my-snapshot-id@-rfcsSnapshotIdentifier :: Lens' RestoreFromClusterSnapshot Text-rfcsSnapshotIdentifier = lens _rfcsSnapshotIdentifier (\ s a -> s{_rfcsSnapshotIdentifier = a})--instance AWSRequest RestoreFromClusterSnapshot where- type Rs RestoreFromClusterSnapshot =- RestoreFromClusterSnapshotResponse- request = postQuery redshift- response- = receiveXMLWrapper- "RestoreFromClusterSnapshotResult"- (\ s h x ->- RestoreFromClusterSnapshotResponse' <$>- (x .@? "Cluster") <*> (pure (fromEnum s)))--instance Hashable RestoreFromClusterSnapshot where--instance NFData RestoreFromClusterSnapshot where--instance ToHeaders RestoreFromClusterSnapshot where- toHeaders = const mempty--instance ToPath RestoreFromClusterSnapshot where- toPath = const "/"--instance ToQuery RestoreFromClusterSnapshot where- toQuery RestoreFromClusterSnapshot'{..}- = mconcat- ["Action" =:- ("RestoreFromClusterSnapshot" :: ByteString),- "Version" =: ("2012-12-01" :: ByteString),- "EnhancedVpcRouting" =: _rfcsEnhancedVPCRouting,- "AdditionalInfo" =: _rfcsAdditionalInfo,- "PubliclyAccessible" =: _rfcsPubliclyAccessible,- "SnapshotClusterIdentifier" =:- _rfcsSnapshotClusterIdentifier,- "HsmConfigurationIdentifier" =:- _rfcsHSMConfigurationIdentifier,- "ClusterSecurityGroups" =:- toQuery- (toQueryList "ClusterSecurityGroupName" <$>- _rfcsClusterSecurityGroups),- "AutomatedSnapshotRetentionPeriod" =:- _rfcsAutomatedSnapshotRetentionPeriod,- "ClusterSubnetGroupName" =:- _rfcsClusterSubnetGroupName,- "HsmClientCertificateIdentifier" =:- _rfcsHSMClientCertificateIdentifier,- "ElasticIp" =: _rfcsElasticIP,- "PreferredMaintenanceWindow" =:- _rfcsPreferredMaintenanceWindow,- "KmsKeyId" =: _rfcsKMSKeyId,- "AvailabilityZone" =: _rfcsAvailabilityZone,- "VpcSecurityGroupIds" =:- toQuery- (toQueryList "VpcSecurityGroupId" <$>- _rfcsVPCSecurityGroupIds),- "IamRoles" =:- toQuery (toQueryList "IamRoleArn" <$> _rfcsIAMRoles),- "OwnerAccount" =: _rfcsOwnerAccount,- "NodeType" =: _rfcsNodeType,- "AllowVersionUpgrade" =: _rfcsAllowVersionUpgrade,- "ClusterParameterGroupName" =:- _rfcsClusterParameterGroupName,- "Port" =: _rfcsPort,- "ClusterIdentifier" =: _rfcsClusterIdentifier,- "SnapshotIdentifier" =: _rfcsSnapshotIdentifier]---- | /See:/ 'restoreFromClusterSnapshotResponse' smart constructor.-data RestoreFromClusterSnapshotResponse = RestoreFromClusterSnapshotResponse'- { _rfcsrsCluster :: !(Maybe Cluster)- , _rfcsrsResponseStatus :: !Int- } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'RestoreFromClusterSnapshotResponse' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'rfcsrsCluster' - Undocumented member.------ * 'rfcsrsResponseStatus' - -- | The response status code.-restoreFromClusterSnapshotResponse- :: Int -- ^ 'rfcsrsResponseStatus'- -> RestoreFromClusterSnapshotResponse-restoreFromClusterSnapshotResponse pResponseStatus_ =- RestoreFromClusterSnapshotResponse'- {_rfcsrsCluster = Nothing, _rfcsrsResponseStatus = pResponseStatus_}----- | Undocumented member.-rfcsrsCluster :: Lens' RestoreFromClusterSnapshotResponse (Maybe Cluster)-rfcsrsCluster = lens _rfcsrsCluster (\ s a -> s{_rfcsrsCluster = a})---- | -- | The response status code.-rfcsrsResponseStatus :: Lens' RestoreFromClusterSnapshotResponse Int-rfcsrsResponseStatus = lens _rfcsrsResponseStatus (\ s a -> s{_rfcsrsResponseStatus = a})--instance NFData RestoreFromClusterSnapshotResponse- where
− gen/Network/AWS/Redshift/RestoreTableFromClusterSnapshot.hs
@@ -1,218 +0,0 @@-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric #-}-{-# LANGUAGE OverloadedStrings #-}-{-# LANGUAGE RecordWildCards #-}-{-# LANGUAGE TypeFamilies #-}--{-# OPTIONS_GHC -fno-warn-unused-imports #-}-{-# OPTIONS_GHC -fno-warn-unused-binds #-}-{-# OPTIONS_GHC -fno-warn-unused-matches #-}---- Derived from AWS service descriptions, licensed under Apache 2.0.---- |--- Module : Network.AWS.Redshift.RestoreTableFromClusterSnapshot--- Copyright : (c) 2013-2018 Brendan Hay--- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>--- Stability : auto-generated--- Portability : non-portable (GHC extensions)------ Creates a new table from a table in an Amazon Redshift cluster snapshot. You must create the new table within the Amazon Redshift cluster that the snapshot was taken from.--------- You cannot use @RestoreTableFromClusterSnapshot@ to restore a table with the same name as an existing table in an Amazon Redshift cluster. That is, you cannot overwrite an existing table in a cluster with a restored table. If you want to replace your original table with a new, restored table, then rename or drop your original table before you call @RestoreTableFromClusterSnapshot@ . When you have renamed your original table, then you can pass the original name of the table as the @NewTableName@ parameter value in the call to @RestoreTableFromClusterSnapshot@ . This way, you can replace the original table with the table created from the snapshot.----module Network.AWS.Redshift.RestoreTableFromClusterSnapshot- (- -- * Creating a Request- restoreTableFromClusterSnapshot- , RestoreTableFromClusterSnapshot- -- * Request Lenses- , rtfcsTargetSchemaName- , rtfcsTargetDatabaseName- , rtfcsSourceSchemaName- , rtfcsClusterIdentifier- , rtfcsSnapshotIdentifier- , rtfcsSourceDatabaseName- , rtfcsSourceTableName- , rtfcsNewTableName-- -- * Destructuring the Response- , restoreTableFromClusterSnapshotResponse- , RestoreTableFromClusterSnapshotResponse- -- * Response Lenses- , rtfcsrsTableRestoreStatus- , rtfcsrsResponseStatus- ) where--import Network.AWS.Lens-import Network.AWS.Prelude-import Network.AWS.Redshift.Types-import Network.AWS.Redshift.Types.Product-import Network.AWS.Request-import Network.AWS.Response---- |------------ /See:/ 'restoreTableFromClusterSnapshot' smart constructor.-data RestoreTableFromClusterSnapshot = RestoreTableFromClusterSnapshot'- { _rtfcsTargetSchemaName :: !(Maybe Text)- , _rtfcsTargetDatabaseName :: !(Maybe Text)- , _rtfcsSourceSchemaName :: !(Maybe Text)- , _rtfcsClusterIdentifier :: !Text- , _rtfcsSnapshotIdentifier :: !Text- , _rtfcsSourceDatabaseName :: !Text- , _rtfcsSourceTableName :: !Text- , _rtfcsNewTableName :: !Text- } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'RestoreTableFromClusterSnapshot' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'rtfcsTargetSchemaName' - The name of the schema to restore the table to.------ * 'rtfcsTargetDatabaseName' - The name of the database to restore the table to.------ * 'rtfcsSourceSchemaName' - The name of the source schema that contains the table to restore from. If you do not specify a @SourceSchemaName@ value, the default is @public@ .------ * 'rtfcsClusterIdentifier' - The identifier of the Amazon Redshift cluster to restore the table to.------ * 'rtfcsSnapshotIdentifier' - The identifier of the snapshot to restore the table from. This snapshot must have been created from the Amazon Redshift cluster specified by the @ClusterIdentifier@ parameter.------ * 'rtfcsSourceDatabaseName' - The name of the source database that contains the table to restore from.------ * 'rtfcsSourceTableName' - The name of the source table to restore from.------ * 'rtfcsNewTableName' - The name of the table to create as a result of the current request.-restoreTableFromClusterSnapshot- :: Text -- ^ 'rtfcsClusterIdentifier'- -> Text -- ^ 'rtfcsSnapshotIdentifier'- -> Text -- ^ 'rtfcsSourceDatabaseName'- -> Text -- ^ 'rtfcsSourceTableName'- -> Text -- ^ 'rtfcsNewTableName'- -> RestoreTableFromClusterSnapshot-restoreTableFromClusterSnapshot pClusterIdentifier_ pSnapshotIdentifier_ pSourceDatabaseName_ pSourceTableName_ pNewTableName_ =- RestoreTableFromClusterSnapshot'- { _rtfcsTargetSchemaName = Nothing- , _rtfcsTargetDatabaseName = Nothing- , _rtfcsSourceSchemaName = Nothing- , _rtfcsClusterIdentifier = pClusterIdentifier_- , _rtfcsSnapshotIdentifier = pSnapshotIdentifier_- , _rtfcsSourceDatabaseName = pSourceDatabaseName_- , _rtfcsSourceTableName = pSourceTableName_- , _rtfcsNewTableName = pNewTableName_- }----- | The name of the schema to restore the table to.-rtfcsTargetSchemaName :: Lens' RestoreTableFromClusterSnapshot (Maybe Text)-rtfcsTargetSchemaName = lens _rtfcsTargetSchemaName (\ s a -> s{_rtfcsTargetSchemaName = a})---- | The name of the database to restore the table to.-rtfcsTargetDatabaseName :: Lens' RestoreTableFromClusterSnapshot (Maybe Text)-rtfcsTargetDatabaseName = lens _rtfcsTargetDatabaseName (\ s a -> s{_rtfcsTargetDatabaseName = a})---- | The name of the source schema that contains the table to restore from. If you do not specify a @SourceSchemaName@ value, the default is @public@ .-rtfcsSourceSchemaName :: Lens' RestoreTableFromClusterSnapshot (Maybe Text)-rtfcsSourceSchemaName = lens _rtfcsSourceSchemaName (\ s a -> s{_rtfcsSourceSchemaName = a})---- | The identifier of the Amazon Redshift cluster to restore the table to.-rtfcsClusterIdentifier :: Lens' RestoreTableFromClusterSnapshot Text-rtfcsClusterIdentifier = lens _rtfcsClusterIdentifier (\ s a -> s{_rtfcsClusterIdentifier = a})---- | The identifier of the snapshot to restore the table from. This snapshot must have been created from the Amazon Redshift cluster specified by the @ClusterIdentifier@ parameter.-rtfcsSnapshotIdentifier :: Lens' RestoreTableFromClusterSnapshot Text-rtfcsSnapshotIdentifier = lens _rtfcsSnapshotIdentifier (\ s a -> s{_rtfcsSnapshotIdentifier = a})---- | The name of the source database that contains the table to restore from.-rtfcsSourceDatabaseName :: Lens' RestoreTableFromClusterSnapshot Text-rtfcsSourceDatabaseName = lens _rtfcsSourceDatabaseName (\ s a -> s{_rtfcsSourceDatabaseName = a})---- | The name of the source table to restore from.-rtfcsSourceTableName :: Lens' RestoreTableFromClusterSnapshot Text-rtfcsSourceTableName = lens _rtfcsSourceTableName (\ s a -> s{_rtfcsSourceTableName = a})---- | The name of the table to create as a result of the current request.-rtfcsNewTableName :: Lens' RestoreTableFromClusterSnapshot Text-rtfcsNewTableName = lens _rtfcsNewTableName (\ s a -> s{_rtfcsNewTableName = a})--instance AWSRequest RestoreTableFromClusterSnapshot- where- type Rs RestoreTableFromClusterSnapshot =- RestoreTableFromClusterSnapshotResponse- request = postQuery redshift- response- = receiveXMLWrapper- "RestoreTableFromClusterSnapshotResult"- (\ s h x ->- RestoreTableFromClusterSnapshotResponse' <$>- (x .@? "TableRestoreStatus") <*> (pure (fromEnum s)))--instance Hashable RestoreTableFromClusterSnapshot- where--instance NFData RestoreTableFromClusterSnapshot where--instance ToHeaders RestoreTableFromClusterSnapshot- where- toHeaders = const mempty--instance ToPath RestoreTableFromClusterSnapshot where- toPath = const "/"--instance ToQuery RestoreTableFromClusterSnapshot- where- toQuery RestoreTableFromClusterSnapshot'{..}- = mconcat- ["Action" =:- ("RestoreTableFromClusterSnapshot" :: ByteString),- "Version" =: ("2012-12-01" :: ByteString),- "TargetSchemaName" =: _rtfcsTargetSchemaName,- "TargetDatabaseName" =: _rtfcsTargetDatabaseName,- "SourceSchemaName" =: _rtfcsSourceSchemaName,- "ClusterIdentifier" =: _rtfcsClusterIdentifier,- "SnapshotIdentifier" =: _rtfcsSnapshotIdentifier,- "SourceDatabaseName" =: _rtfcsSourceDatabaseName,- "SourceTableName" =: _rtfcsSourceTableName,- "NewTableName" =: _rtfcsNewTableName]---- | /See:/ 'restoreTableFromClusterSnapshotResponse' smart constructor.-data RestoreTableFromClusterSnapshotResponse = RestoreTableFromClusterSnapshotResponse'- { _rtfcsrsTableRestoreStatus :: !(Maybe TableRestoreStatus)- , _rtfcsrsResponseStatus :: !Int- } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'RestoreTableFromClusterSnapshotResponse' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'rtfcsrsTableRestoreStatus' - Undocumented member.------ * 'rtfcsrsResponseStatus' - -- | The response status code.-restoreTableFromClusterSnapshotResponse- :: Int -- ^ 'rtfcsrsResponseStatus'- -> RestoreTableFromClusterSnapshotResponse-restoreTableFromClusterSnapshotResponse pResponseStatus_ =- RestoreTableFromClusterSnapshotResponse'- { _rtfcsrsTableRestoreStatus = Nothing- , _rtfcsrsResponseStatus = pResponseStatus_- }----- | Undocumented member.-rtfcsrsTableRestoreStatus :: Lens' RestoreTableFromClusterSnapshotResponse (Maybe TableRestoreStatus)-rtfcsrsTableRestoreStatus = lens _rtfcsrsTableRestoreStatus (\ s a -> s{_rtfcsrsTableRestoreStatus = a})---- | -- | The response status code.-rtfcsrsResponseStatus :: Lens' RestoreTableFromClusterSnapshotResponse Int-rtfcsrsResponseStatus = lens _rtfcsrsResponseStatus (\ s a -> s{_rtfcsrsResponseStatus = a})--instance NFData- RestoreTableFromClusterSnapshotResponse- where
− gen/Network/AWS/Redshift/RevokeClusterSecurityGroupIngress.hs
@@ -1,177 +0,0 @@-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric #-}-{-# LANGUAGE OverloadedStrings #-}-{-# LANGUAGE RecordWildCards #-}-{-# LANGUAGE TypeFamilies #-}--{-# OPTIONS_GHC -fno-warn-unused-imports #-}-{-# OPTIONS_GHC -fno-warn-unused-binds #-}-{-# OPTIONS_GHC -fno-warn-unused-matches #-}---- Derived from AWS service descriptions, licensed under Apache 2.0.---- |--- Module : Network.AWS.Redshift.RevokeClusterSecurityGroupIngress--- Copyright : (c) 2013-2018 Brendan Hay--- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>--- Stability : auto-generated--- Portability : non-portable (GHC extensions)------ Revokes an ingress rule in an Amazon Redshift security group for a previously authorized IP range or Amazon EC2 security group. To add an ingress rule, see 'AuthorizeClusterSecurityGroupIngress' . For information about managing security groups, go to <http://docs.aws.amazon.com/redshift/latest/mgmt/working-with-security-groups.html Amazon Redshift Cluster Security Groups> in the /Amazon Redshift Cluster Management Guide/ .-------module Network.AWS.Redshift.RevokeClusterSecurityGroupIngress- (- -- * Creating a Request- revokeClusterSecurityGroupIngress- , RevokeClusterSecurityGroupIngress- -- * Request Lenses- , rcsgiEC2SecurityGroupOwnerId- , rcsgiEC2SecurityGroupName- , rcsgiCIdRIP- , rcsgiClusterSecurityGroupName-- -- * Destructuring the Response- , revokeClusterSecurityGroupIngressResponse- , RevokeClusterSecurityGroupIngressResponse- -- * Response Lenses- , rcsgirsClusterSecurityGroup- , rcsgirsResponseStatus- ) where--import Network.AWS.Lens-import Network.AWS.Prelude-import Network.AWS.Redshift.Types-import Network.AWS.Redshift.Types.Product-import Network.AWS.Request-import Network.AWS.Response---- |------------ /See:/ 'revokeClusterSecurityGroupIngress' smart constructor.-data RevokeClusterSecurityGroupIngress = RevokeClusterSecurityGroupIngress'- { _rcsgiEC2SecurityGroupOwnerId :: !(Maybe Text)- , _rcsgiEC2SecurityGroupName :: !(Maybe Text)- , _rcsgiCIdRIP :: !(Maybe Text)- , _rcsgiClusterSecurityGroupName :: !Text- } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'RevokeClusterSecurityGroupIngress' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'rcsgiEC2SecurityGroupOwnerId' - The AWS account number of the owner of the security group specified in the @EC2SecurityGroupName@ parameter. The AWS access key ID is not an acceptable value. If @EC2SecurityGroupOwnerId@ is specified, @EC2SecurityGroupName@ must also be provided. and @CIDRIP@ cannot be provided. Example: @111122223333@------ * 'rcsgiEC2SecurityGroupName' - The name of the EC2 Security Group whose access is to be revoked. If @EC2SecurityGroupName@ is specified, @EC2SecurityGroupOwnerId@ must also be provided and @CIDRIP@ cannot be provided.------ * 'rcsgiCIdRIP' - The IP range for which to revoke access. This range must be a valid Classless Inter-Domain Routing (CIDR) block of IP addresses. If @CIDRIP@ is specified, @EC2SecurityGroupName@ and @EC2SecurityGroupOwnerId@ cannot be provided.------ * 'rcsgiClusterSecurityGroupName' - The name of the security Group from which to revoke the ingress rule.-revokeClusterSecurityGroupIngress- :: Text -- ^ 'rcsgiClusterSecurityGroupName'- -> RevokeClusterSecurityGroupIngress-revokeClusterSecurityGroupIngress pClusterSecurityGroupName_ =- RevokeClusterSecurityGroupIngress'- { _rcsgiEC2SecurityGroupOwnerId = Nothing- , _rcsgiEC2SecurityGroupName = Nothing- , _rcsgiCIdRIP = Nothing- , _rcsgiClusterSecurityGroupName = pClusterSecurityGroupName_- }----- | The AWS account number of the owner of the security group specified in the @EC2SecurityGroupName@ parameter. The AWS access key ID is not an acceptable value. If @EC2SecurityGroupOwnerId@ is specified, @EC2SecurityGroupName@ must also be provided. and @CIDRIP@ cannot be provided. Example: @111122223333@-rcsgiEC2SecurityGroupOwnerId :: Lens' RevokeClusterSecurityGroupIngress (Maybe Text)-rcsgiEC2SecurityGroupOwnerId = lens _rcsgiEC2SecurityGroupOwnerId (\ s a -> s{_rcsgiEC2SecurityGroupOwnerId = a})---- | The name of the EC2 Security Group whose access is to be revoked. If @EC2SecurityGroupName@ is specified, @EC2SecurityGroupOwnerId@ must also be provided and @CIDRIP@ cannot be provided.-rcsgiEC2SecurityGroupName :: Lens' RevokeClusterSecurityGroupIngress (Maybe Text)-rcsgiEC2SecurityGroupName = lens _rcsgiEC2SecurityGroupName (\ s a -> s{_rcsgiEC2SecurityGroupName = a})---- | The IP range for which to revoke access. This range must be a valid Classless Inter-Domain Routing (CIDR) block of IP addresses. If @CIDRIP@ is specified, @EC2SecurityGroupName@ and @EC2SecurityGroupOwnerId@ cannot be provided.-rcsgiCIdRIP :: Lens' RevokeClusterSecurityGroupIngress (Maybe Text)-rcsgiCIdRIP = lens _rcsgiCIdRIP (\ s a -> s{_rcsgiCIdRIP = a})---- | The name of the security Group from which to revoke the ingress rule.-rcsgiClusterSecurityGroupName :: Lens' RevokeClusterSecurityGroupIngress Text-rcsgiClusterSecurityGroupName = lens _rcsgiClusterSecurityGroupName (\ s a -> s{_rcsgiClusterSecurityGroupName = a})--instance AWSRequest RevokeClusterSecurityGroupIngress- where- type Rs RevokeClusterSecurityGroupIngress =- RevokeClusterSecurityGroupIngressResponse- request = postQuery redshift- response- = receiveXMLWrapper- "RevokeClusterSecurityGroupIngressResult"- (\ s h x ->- RevokeClusterSecurityGroupIngressResponse' <$>- (x .@? "ClusterSecurityGroup") <*>- (pure (fromEnum s)))--instance Hashable RevokeClusterSecurityGroupIngress- where--instance NFData RevokeClusterSecurityGroupIngress- where--instance ToHeaders RevokeClusterSecurityGroupIngress- where- toHeaders = const mempty--instance ToPath RevokeClusterSecurityGroupIngress- where- toPath = const "/"--instance ToQuery RevokeClusterSecurityGroupIngress- where- toQuery RevokeClusterSecurityGroupIngress'{..}- = mconcat- ["Action" =:- ("RevokeClusterSecurityGroupIngress" :: ByteString),- "Version" =: ("2012-12-01" :: ByteString),- "EC2SecurityGroupOwnerId" =:- _rcsgiEC2SecurityGroupOwnerId,- "EC2SecurityGroupName" =: _rcsgiEC2SecurityGroupName,- "CIDRIP" =: _rcsgiCIdRIP,- "ClusterSecurityGroupName" =:- _rcsgiClusterSecurityGroupName]---- | /See:/ 'revokeClusterSecurityGroupIngressResponse' smart constructor.-data RevokeClusterSecurityGroupIngressResponse = RevokeClusterSecurityGroupIngressResponse'- { _rcsgirsClusterSecurityGroup :: !(Maybe ClusterSecurityGroup)- , _rcsgirsResponseStatus :: !Int- } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'RevokeClusterSecurityGroupIngressResponse' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'rcsgirsClusterSecurityGroup' - Undocumented member.------ * 'rcsgirsResponseStatus' - -- | The response status code.-revokeClusterSecurityGroupIngressResponse- :: Int -- ^ 'rcsgirsResponseStatus'- -> RevokeClusterSecurityGroupIngressResponse-revokeClusterSecurityGroupIngressResponse pResponseStatus_ =- RevokeClusterSecurityGroupIngressResponse'- { _rcsgirsClusterSecurityGroup = Nothing- , _rcsgirsResponseStatus = pResponseStatus_- }----- | Undocumented member.-rcsgirsClusterSecurityGroup :: Lens' RevokeClusterSecurityGroupIngressResponse (Maybe ClusterSecurityGroup)-rcsgirsClusterSecurityGroup = lens _rcsgirsClusterSecurityGroup (\ s a -> s{_rcsgirsClusterSecurityGroup = a})---- | -- | The response status code.-rcsgirsResponseStatus :: Lens' RevokeClusterSecurityGroupIngressResponse Int-rcsgirsResponseStatus = lens _rcsgirsResponseStatus (\ s a -> s{_rcsgirsResponseStatus = a})--instance NFData- RevokeClusterSecurityGroupIngressResponse- where
− gen/Network/AWS/Redshift/RevokeSnapshotAccess.hs
@@ -1,157 +0,0 @@-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric #-}-{-# LANGUAGE OverloadedStrings #-}-{-# LANGUAGE RecordWildCards #-}-{-# LANGUAGE TypeFamilies #-}--{-# OPTIONS_GHC -fno-warn-unused-imports #-}-{-# OPTIONS_GHC -fno-warn-unused-binds #-}-{-# OPTIONS_GHC -fno-warn-unused-matches #-}---- Derived from AWS service descriptions, licensed under Apache 2.0.---- |--- Module : Network.AWS.Redshift.RevokeSnapshotAccess--- Copyright : (c) 2013-2018 Brendan Hay--- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>--- Stability : auto-generated--- Portability : non-portable (GHC extensions)------ Removes the ability of the specified AWS customer account to restore the specified snapshot. If the account is currently restoring the snapshot, the restore will run to completion.--------- For more information about working with snapshots, go to <http://docs.aws.amazon.com/redshift/latest/mgmt/working-with-snapshots.html Amazon Redshift Snapshots> in the /Amazon Redshift Cluster Management Guide/ .----module Network.AWS.Redshift.RevokeSnapshotAccess- (- -- * Creating a Request- revokeSnapshotAccess- , RevokeSnapshotAccess- -- * Request Lenses- , rsaSnapshotClusterIdentifier- , rsaSnapshotIdentifier- , rsaAccountWithRestoreAccess-- -- * Destructuring the Response- , revokeSnapshotAccessResponse- , RevokeSnapshotAccessResponse- -- * Response Lenses- , rsarsSnapshot- , rsarsResponseStatus- ) where--import Network.AWS.Lens-import Network.AWS.Prelude-import Network.AWS.Redshift.Types-import Network.AWS.Redshift.Types.Product-import Network.AWS.Request-import Network.AWS.Response---- |------------ /See:/ 'revokeSnapshotAccess' smart constructor.-data RevokeSnapshotAccess = RevokeSnapshotAccess'- { _rsaSnapshotClusterIdentifier :: !(Maybe Text)- , _rsaSnapshotIdentifier :: !Text- , _rsaAccountWithRestoreAccess :: !Text- } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'RevokeSnapshotAccess' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'rsaSnapshotClusterIdentifier' - The identifier of the cluster the snapshot was created from. This parameter is required if your IAM user has a policy containing a snapshot resource element that specifies anything other than * for the cluster name.------ * 'rsaSnapshotIdentifier' - The identifier of the snapshot that the account can no longer access.------ * 'rsaAccountWithRestoreAccess' - The identifier of the AWS customer account that can no longer restore the specified snapshot.-revokeSnapshotAccess- :: Text -- ^ 'rsaSnapshotIdentifier'- -> Text -- ^ 'rsaAccountWithRestoreAccess'- -> RevokeSnapshotAccess-revokeSnapshotAccess pSnapshotIdentifier_ pAccountWithRestoreAccess_ =- RevokeSnapshotAccess'- { _rsaSnapshotClusterIdentifier = Nothing- , _rsaSnapshotIdentifier = pSnapshotIdentifier_- , _rsaAccountWithRestoreAccess = pAccountWithRestoreAccess_- }----- | The identifier of the cluster the snapshot was created from. This parameter is required if your IAM user has a policy containing a snapshot resource element that specifies anything other than * for the cluster name.-rsaSnapshotClusterIdentifier :: Lens' RevokeSnapshotAccess (Maybe Text)-rsaSnapshotClusterIdentifier = lens _rsaSnapshotClusterIdentifier (\ s a -> s{_rsaSnapshotClusterIdentifier = a})---- | The identifier of the snapshot that the account can no longer access.-rsaSnapshotIdentifier :: Lens' RevokeSnapshotAccess Text-rsaSnapshotIdentifier = lens _rsaSnapshotIdentifier (\ s a -> s{_rsaSnapshotIdentifier = a})---- | The identifier of the AWS customer account that can no longer restore the specified snapshot.-rsaAccountWithRestoreAccess :: Lens' RevokeSnapshotAccess Text-rsaAccountWithRestoreAccess = lens _rsaAccountWithRestoreAccess (\ s a -> s{_rsaAccountWithRestoreAccess = a})--instance AWSRequest RevokeSnapshotAccess where- type Rs RevokeSnapshotAccess =- RevokeSnapshotAccessResponse- request = postQuery redshift- response- = receiveXMLWrapper "RevokeSnapshotAccessResult"- (\ s h x ->- RevokeSnapshotAccessResponse' <$>- (x .@? "Snapshot") <*> (pure (fromEnum s)))--instance Hashable RevokeSnapshotAccess where--instance NFData RevokeSnapshotAccess where--instance ToHeaders RevokeSnapshotAccess where- toHeaders = const mempty--instance ToPath RevokeSnapshotAccess where- toPath = const "/"--instance ToQuery RevokeSnapshotAccess where- toQuery RevokeSnapshotAccess'{..}- = mconcat- ["Action" =: ("RevokeSnapshotAccess" :: ByteString),- "Version" =: ("2012-12-01" :: ByteString),- "SnapshotClusterIdentifier" =:- _rsaSnapshotClusterIdentifier,- "SnapshotIdentifier" =: _rsaSnapshotIdentifier,- "AccountWithRestoreAccess" =:- _rsaAccountWithRestoreAccess]---- | /See:/ 'revokeSnapshotAccessResponse' smart constructor.-data RevokeSnapshotAccessResponse = RevokeSnapshotAccessResponse'- { _rsarsSnapshot :: !(Maybe Snapshot)- , _rsarsResponseStatus :: !Int- } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'RevokeSnapshotAccessResponse' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'rsarsSnapshot' - Undocumented member.------ * 'rsarsResponseStatus' - -- | The response status code.-revokeSnapshotAccessResponse- :: Int -- ^ 'rsarsResponseStatus'- -> RevokeSnapshotAccessResponse-revokeSnapshotAccessResponse pResponseStatus_ =- RevokeSnapshotAccessResponse'- {_rsarsSnapshot = Nothing, _rsarsResponseStatus = pResponseStatus_}----- | Undocumented member.-rsarsSnapshot :: Lens' RevokeSnapshotAccessResponse (Maybe Snapshot)-rsarsSnapshot = lens _rsarsSnapshot (\ s a -> s{_rsarsSnapshot = a})---- | -- | The response status code.-rsarsResponseStatus :: Lens' RevokeSnapshotAccessResponse Int-rsarsResponseStatus = lens _rsarsResponseStatus (\ s a -> s{_rsarsResponseStatus = a})--instance NFData RevokeSnapshotAccessResponse where
− gen/Network/AWS/Redshift/RotateEncryptionKey.hs
@@ -1,130 +0,0 @@-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric #-}-{-# LANGUAGE OverloadedStrings #-}-{-# LANGUAGE RecordWildCards #-}-{-# LANGUAGE TypeFamilies #-}--{-# OPTIONS_GHC -fno-warn-unused-imports #-}-{-# OPTIONS_GHC -fno-warn-unused-binds #-}-{-# OPTIONS_GHC -fno-warn-unused-matches #-}---- Derived from AWS service descriptions, licensed under Apache 2.0.---- |--- Module : Network.AWS.Redshift.RotateEncryptionKey--- Copyright : (c) 2013-2018 Brendan Hay--- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>--- Stability : auto-generated--- Portability : non-portable (GHC extensions)------ Rotates the encryption keys for a cluster.-------module Network.AWS.Redshift.RotateEncryptionKey- (- -- * Creating a Request- rotateEncryptionKey- , RotateEncryptionKey- -- * Request Lenses- , rekClusterIdentifier-- -- * Destructuring the Response- , rotateEncryptionKeyResponse- , RotateEncryptionKeyResponse- -- * Response Lenses- , rekrsCluster- , rekrsResponseStatus- ) where--import Network.AWS.Lens-import Network.AWS.Prelude-import Network.AWS.Redshift.Types-import Network.AWS.Redshift.Types.Product-import Network.AWS.Request-import Network.AWS.Response---- |------------ /See:/ 'rotateEncryptionKey' smart constructor.-newtype RotateEncryptionKey = RotateEncryptionKey'- { _rekClusterIdentifier :: Text- } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'RotateEncryptionKey' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'rekClusterIdentifier' - The unique identifier of the cluster that you want to rotate the encryption keys for. Constraints: Must be the name of valid cluster that has encryption enabled.-rotateEncryptionKey- :: Text -- ^ 'rekClusterIdentifier'- -> RotateEncryptionKey-rotateEncryptionKey pClusterIdentifier_ =- RotateEncryptionKey' {_rekClusterIdentifier = pClusterIdentifier_}----- | The unique identifier of the cluster that you want to rotate the encryption keys for. Constraints: Must be the name of valid cluster that has encryption enabled.-rekClusterIdentifier :: Lens' RotateEncryptionKey Text-rekClusterIdentifier = lens _rekClusterIdentifier (\ s a -> s{_rekClusterIdentifier = a})--instance AWSRequest RotateEncryptionKey where- type Rs RotateEncryptionKey =- RotateEncryptionKeyResponse- request = postQuery redshift- response- = receiveXMLWrapper "RotateEncryptionKeyResult"- (\ s h x ->- RotateEncryptionKeyResponse' <$>- (x .@? "Cluster") <*> (pure (fromEnum s)))--instance Hashable RotateEncryptionKey where--instance NFData RotateEncryptionKey where--instance ToHeaders RotateEncryptionKey where- toHeaders = const mempty--instance ToPath RotateEncryptionKey where- toPath = const "/"--instance ToQuery RotateEncryptionKey where- toQuery RotateEncryptionKey'{..}- = mconcat- ["Action" =: ("RotateEncryptionKey" :: ByteString),- "Version" =: ("2012-12-01" :: ByteString),- "ClusterIdentifier" =: _rekClusterIdentifier]---- | /See:/ 'rotateEncryptionKeyResponse' smart constructor.-data RotateEncryptionKeyResponse = RotateEncryptionKeyResponse'- { _rekrsCluster :: !(Maybe Cluster)- , _rekrsResponseStatus :: !Int- } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'RotateEncryptionKeyResponse' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'rekrsCluster' - Undocumented member.------ * 'rekrsResponseStatus' - -- | The response status code.-rotateEncryptionKeyResponse- :: Int -- ^ 'rekrsResponseStatus'- -> RotateEncryptionKeyResponse-rotateEncryptionKeyResponse pResponseStatus_ =- RotateEncryptionKeyResponse'- {_rekrsCluster = Nothing, _rekrsResponseStatus = pResponseStatus_}----- | Undocumented member.-rekrsCluster :: Lens' RotateEncryptionKeyResponse (Maybe Cluster)-rekrsCluster = lens _rekrsCluster (\ s a -> s{_rekrsCluster = a})---- | -- | The response status code.-rekrsResponseStatus :: Lens' RotateEncryptionKeyResponse Int-rekrsResponseStatus = lens _rekrsResponseStatus (\ s a -> s{_rekrsResponseStatus = a})--instance NFData RotateEncryptionKeyResponse where
− gen/Network/AWS/Redshift/Types.hs
@@ -1,1258 +0,0 @@-{-# LANGUAGE OverloadedStrings #-}---- Derived from AWS service descriptions, licensed under Apache 2.0.---- |--- Module : Network.AWS.Redshift.Types--- Copyright : (c) 2013-2018 Brendan Hay--- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>--- Stability : auto-generated--- Portability : non-portable (GHC extensions)----module Network.AWS.Redshift.Types- (- -- * Service Configuration- redshift-- -- * Errors- , _ClusterSecurityGroupQuotaExceededFault- , _InvalidS3KeyPrefixFault- , _SourceNotFoundFault- , _AuthorizationQuotaExceededFault- , _CopyToRegionDisabledFault- , _LimitExceededFault- , _InvalidClusterSecurityGroupStateFault- , _ClusterSecurityGroupAlreadyExistsFault- , _ClusterSnapshotNotFoundFault- , _InvalidElasticIPFault- , _TableRestoreNotFoundFault- , _HSMConfigurationNotFoundFault- , _AuthorizationAlreadyExistsFault- , _SubscriptionCategoryNotFoundFault- , _HSMConfigurationAlreadyExistsFault- , _SubscriptionNotFoundFault- , _InvalidS3BucketNameFault- , _ClusterSnapshotAlreadyExistsFault- , _InvalidSubnet- , _InvalidHSMConfigurationStateFault- , _SnapshotCopyAlreadyDisabledFault- , _ClusterQuotaExceededFault- , _HSMClientCertificateQuotaExceededFault- , _ClusterParameterGroupNotFoundFault- , _SnapshotCopyGrantQuotaExceededFault- , _NumberOfNodesPerClusterLimitExceededFault- , _SnapshotCopyAlreadyEnabledFault- , _ClusterParameterGroupAlreadyExistsFault- , _SnapshotCopyDisabledFault- , _ResizeNotFoundFault- , _HSMClientCertificateNotFoundFault- , _SNSTopicARNNotFoundFault- , _ClusterNotFoundFault- , _ClusterParameterGroupQuotaExceededFault- , _SnapshotCopyGrantAlreadyExistsFault- , _SNSNoAuthorizationFault- , _InvalidClusterStateFault- , _InvalidTableRestoreArgumentFault- , _SnapshotCopyGrantNotFoundFault- , _HSMConfigurationQuotaExceededFault- , _ClusterSnapshotQuotaExceededFault- , _InsufficientClusterCapacityFault- , _SNSInvalidTopicFault- , _DependentServiceUnavailableFault- , _UnsupportedOptionFault- , _SubscriptionAlreadyExistFault- , _InvalidVPCNetworkStateFault- , _ClusterSubnetGroupNotFoundFault- , _BucketNotFoundFault- , _InvalidSubscriptionStateFault- , _DependentServiceRequestThrottlingFault- , _AuthorizationNotFoundFault- , _InvalidClusterSubnetGroupStateFault- , _UnsupportedOperationFault- , _ClusterSubnetGroupAlreadyExistsFault- , _InvalidClusterSnapshotStateFault- , _ClusterSecurityGroupNotFoundFault- , _ReservedNodeNotFoundFault- , _ReservedNodeOfferingNotFoundFault- , _InvalidClusterSubnetStateFault- , _IncompatibleOrderableOptions- , _EventSubscriptionQuotaExceededFault- , _InvalidClusterParameterGroupStateFault- , _ReservedNodeAlreadyExistsFault- , _InProgressTableRestoreQuotaExceededFault- , _InvalidRestoreFault- , _ResourceNotFoundFault- , _SubscriptionEventIdNotFoundFault- , _InvalidSnapshotCopyGrantStateFault- , _UnknownSnapshotCopyRegionFault- , _ReservedNodeQuotaExceededFault- , _ClusterSubnetQuotaExceededFault- , _ClusterAlreadyExistsFault- , _AccessToSnapshotDeniedFault- , _TagLimitExceededFault- , _NumberOfNodesQuotaExceededFault- , _HSMClientCertificateAlreadyExistsFault- , _InvalidHSMClientCertificateStateFault- , _SubnetAlreadyInUse- , _SubscriptionSeverityNotFoundFault- , _UnauthorizedOperation- , _InvalidTagFault- , _InsufficientS3BucketPolicyFault- , _ClusterSubnetGroupQuotaExceededFault-- -- * Re-exported Types- , module Network.AWS.Redshift.Internal-- -- * ParameterApplyType- , ParameterApplyType (..)-- -- * ReservedNodeOfferingType- , ReservedNodeOfferingType (..)-- -- * SourceType- , SourceType (..)-- -- * TableRestoreStatusType- , TableRestoreStatusType (..)-- -- * AccountWithRestoreAccess- , AccountWithRestoreAccess- , accountWithRestoreAccess- , awraAccountAlias- , awraAccountId-- -- * AvailabilityZone- , AvailabilityZone- , availabilityZone- , azName- , azSupportedPlatforms-- -- * Cluster- , Cluster- , cluster- , cRestoreStatus- , cEnhancedVPCRouting- , cClusterSnapshotCopyStatus- , cClusterRevisionNumber- , cPubliclyAccessible- , cMasterUsername- , cVPCId- , cClusterSecurityGroups- , cAutomatedSnapshotRetentionPeriod- , cEncrypted- , cClusterSubnetGroupName- , cClusterIdentifier- , cNumberOfNodes- , cClusterPublicKey- , cPreferredMaintenanceWindow- , cModifyStatus- , cKMSKeyId- , cClusterParameterGroups- , cAvailabilityZone- , cVPCSecurityGroups- , cHSMStatus- , cIAMRoles- , cElasticIPStatus- , cClusterVersion- , cNodeType- , cClusterCreateTime- , cEndpoint- , cAllowVersionUpgrade- , cClusterStatus- , cPendingModifiedValues- , cTags- , cClusterNodes- , cDBName-- -- * ClusterIAMRole- , ClusterIAMRole- , clusterIAMRole- , cirIAMRoleARN- , cirApplyStatus-- -- * ClusterNode- , ClusterNode- , clusterNode- , cnNodeRole- , cnPrivateIPAddress- , cnPublicIPAddress-- -- * ClusterParameterGroup- , ClusterParameterGroup- , clusterParameterGroup- , cpgParameterGroupFamily- , cpgDescription- , cpgTags- , cpgParameterGroupName-- -- * ClusterParameterGroupNameMessage- , ClusterParameterGroupNameMessage- , clusterParameterGroupNameMessage- , cpgnmParameterGroupStatus- , cpgnmParameterGroupName-- -- * ClusterParameterGroupStatus- , ClusterParameterGroupStatus- , clusterParameterGroupStatus- , cpgsClusterParameterStatusList- , cpgsParameterApplyStatus- , cpgsParameterGroupName-- -- * ClusterParameterStatus- , ClusterParameterStatus- , clusterParameterStatus- , cpsParameterApplyErrorDescription- , cpsParameterName- , cpsParameterApplyStatus-- -- * ClusterSecurityGroup- , ClusterSecurityGroup- , clusterSecurityGroup- , cluClusterSecurityGroupName- , cluIPRanges- , cluEC2SecurityGroups- , cluDescription- , cluTags-- -- * ClusterSecurityGroupMembership- , ClusterSecurityGroupMembership- , clusterSecurityGroupMembership- , csgmStatus- , csgmClusterSecurityGroupName-- -- * ClusterSnapshotCopyStatus- , ClusterSnapshotCopyStatus- , clusterSnapshotCopyStatus- , cscsRetentionPeriod- , cscsDestinationRegion- , cscsSnapshotCopyGrantName-- -- * ClusterSubnetGroup- , ClusterSubnetGroup- , clusterSubnetGroup- , csgVPCId- , csgSubnets- , csgClusterSubnetGroupName- , csgSubnetGroupStatus- , csgDescription- , csgTags-- -- * ClusterVersion- , ClusterVersion- , clusterVersion- , cvClusterParameterGroupFamily- , cvClusterVersion- , cvDescription-- -- * DefaultClusterParameters- , DefaultClusterParameters- , defaultClusterParameters- , dcpMarker- , dcpParameters- , dcpParameterGroupFamily-- -- * EC2SecurityGroup- , EC2SecurityGroup- , ec2SecurityGroup- , esgStatus- , esgEC2SecurityGroupOwnerId- , esgEC2SecurityGroupName- , esgTags-- -- * ElasticIPStatus- , ElasticIPStatus- , elasticIPStatus- , eisStatus- , eisElasticIP-- -- * Endpoint- , Endpoint- , endpoint- , eAddress- , ePort-- -- * Event- , Event- , event- , eSourceType- , eSeverity- , eSourceIdentifier- , eDate- , eEventCategories- , eMessage- , eEventId-- -- * EventCategoriesMap- , EventCategoriesMap- , eventCategoriesMap- , ecmSourceType- , ecmEvents-- -- * EventInfoMap- , EventInfoMap- , eventInfoMap- , eimEventDescription- , eimSeverity- , eimEventCategories- , eimEventId-- -- * EventSubscription- , EventSubscription- , eventSubscription- , esStatus- , esCustomerAWSId- , esCustSubscriptionId- , esSNSTopicARN- , esEnabled- , esSourceType- , esSeverity- , esSubscriptionCreationTime- , esEventCategoriesList- , esTags- , esSourceIdsList-- -- * HSMClientCertificate- , HSMClientCertificate- , hsmClientCertificate- , hccHSMClientCertificateIdentifier- , hccHSMClientCertificatePublicKey- , hccTags-- -- * HSMConfiguration- , HSMConfiguration- , hsmConfiguration- , hcHSMConfigurationIdentifier- , hcHSMPartitionName- , hcDescription- , hcTags- , hcHSMIPAddress-- -- * HSMStatus- , HSMStatus- , hsmStatus- , hsStatus- , hsHSMConfigurationIdentifier- , hsHSMClientCertificateIdentifier-- -- * IPRange- , IPRange- , ipRange- , irStatus- , irCIdRIP- , irTags-- -- * LoggingStatus- , LoggingStatus- , loggingStatus- , lsLastFailureTime- , lsLastSuccessfulDeliveryTime- , lsS3KeyPrefix- , lsBucketName- , lsLoggingEnabled- , lsLastFailureMessage-- -- * OrderableClusterOption- , OrderableClusterOption- , orderableClusterOption- , ocoAvailabilityZones- , ocoClusterType- , ocoClusterVersion- , ocoNodeType-- -- * Parameter- , Parameter- , parameter- , pApplyType- , pParameterValue- , pMinimumEngineVersion- , pSource- , pIsModifiable- , pDataType- , pAllowedValues- , pParameterName- , pDescription-- -- * PendingModifiedValues- , PendingModifiedValues- , pendingModifiedValues- , pmvEnhancedVPCRouting- , pmvMasterUserPassword- , pmvPubliclyAccessible- , pmvAutomatedSnapshotRetentionPeriod- , pmvClusterIdentifier- , pmvNumberOfNodes- , pmvClusterType- , pmvClusterVersion- , pmvNodeType-- -- * RecurringCharge- , RecurringCharge- , recurringCharge- , rcRecurringChargeFrequency- , rcRecurringChargeAmount-- -- * ReservedNode- , ReservedNode- , reservedNode- , rnReservedNodeOfferingType- , rnState- , rnCurrencyCode- , rnStartTime- , rnNodeCount- , rnReservedNodeId- , rnReservedNodeOfferingId- , rnRecurringCharges- , rnOfferingType- , rnUsagePrice- , rnNodeType- , rnFixedPrice- , rnDuration-- -- * ReservedNodeOffering- , ReservedNodeOffering- , reservedNodeOffering- , rnoReservedNodeOfferingType- , rnoCurrencyCode- , rnoReservedNodeOfferingId- , rnoRecurringCharges- , rnoOfferingType- , rnoUsagePrice- , rnoNodeType- , rnoFixedPrice- , rnoDuration-- -- * RestoreStatus- , RestoreStatus- , restoreStatus- , rsStatus- , rsEstimatedTimeToCompletionInSeconds- , rsCurrentRestoreRateInMegaBytesPerSecond- , rsProgressInMegaBytes- , rsElapsedTimeInSeconds- , rsSnapshotSizeInMegaBytes-- -- * Snapshot- , Snapshot- , snapshot- , sStatus- , sRestorableNodeTypes- , sAccountsWithRestoreAccess- , sEnhancedVPCRouting- , sSnapshotIdentifier- , sEncryptedWithHSM- , sMasterUsername- , sSourceRegion- , sVPCId- , sBackupProgressInMegaBytes- , sEncrypted- , sClusterIdentifier- , sNumberOfNodes- , sSnapshotType- , sKMSKeyId- , sAvailabilityZone- , sCurrentBackupRateInMegaBytesPerSecond- , sSnapshotCreateTime- , sClusterVersion- , sOwnerAccount- , sNodeType- , sElapsedTimeInSeconds- , sClusterCreateTime- , sEstimatedSecondsToCompletion- , sActualIncrementalBackupSizeInMegaBytes- , sTags- , sPort- , sTotalBackupSizeInMegaBytes- , sDBName-- -- * SnapshotCopyGrant- , SnapshotCopyGrant- , snapshotCopyGrant- , scgKMSKeyId- , scgSnapshotCopyGrantName- , scgTags-- -- * Subnet- , Subnet- , subnet- , sSubnetStatus- , sSubnetIdentifier- , sSubnetAvailabilityZone-- -- * SupportedPlatform- , SupportedPlatform- , supportedPlatform- , spName-- -- * TableRestoreStatus- , TableRestoreStatus- , tableRestoreStatus- , trsStatus- , trsTargetSchemaName- , trsSnapshotIdentifier- , trsSourceDatabaseName- , trsTableRestoreRequestId- , trsNewTableName- , trsTargetDatabaseName- , trsSourceSchemaName- , trsClusterIdentifier- , trsRequestTime- , trsSourceTableName- , trsTotalDataInMegaBytes- , trsProgressInMegaBytes- , trsMessage-- -- * Tag- , Tag- , tag- , tagValue- , tagKey-- -- * TaggedResource- , TaggedResource- , taggedResource- , trTag- , trResourceType- , trResourceName-- -- * VPCSecurityGroupMembership- , VPCSecurityGroupMembership- , vpcSecurityGroupMembership- , vsgmStatus- , vsgmVPCSecurityGroupId- ) where--import Network.AWS.Lens-import Network.AWS.Prelude-import Network.AWS.Redshift.Internal-import Network.AWS.Redshift.Types.Product-import Network.AWS.Redshift.Types.Sum-import Network.AWS.Sign.V4---- | API version @2012-12-01@ of the Amazon Redshift SDK configuration.-redshift :: Service-redshift =- Service- { _svcAbbrev = "Redshift"- , _svcSigner = v4- , _svcPrefix = "redshift"- , _svcVersion = "2012-12-01"- , _svcEndpoint = defaultEndpoint redshift- , _svcTimeout = Just 70- , _svcCheck = statusSuccess- , _svcError = parseXMLError "Redshift"- , _svcRetry = retry- }- where- retry =- Exponential- { _retryBase = 5.0e-2- , _retryGrowth = 2- , _retryAttempts = 5- , _retryCheck = check- }- check e- | has (hasCode "ThrottledException" . hasStatus 400) e =- Just "throttled_exception"- | has (hasStatus 429) e = Just "too_many_requests"- | has (hasCode "ThrottlingException" . hasStatus 400) e =- Just "throttling_exception"- | has (hasCode "Throttling" . hasStatus 400) e = Just "throttling"- | has (hasStatus 504) e = Just "gateway_timeout"- | has (hasCode "RequestThrottledException" . hasStatus 400) e =- Just "request_throttled_exception"- | has (hasStatus 502) e = Just "bad_gateway"- | has (hasStatus 503) e = Just "service_unavailable"- | has (hasStatus 500) e = Just "general_server_error"- | has (hasStatus 509) e = Just "limit_exceeded"- | otherwise = Nothing----- | The request would result in the user exceeding the allowed number of cluster security groups. For information about increasing your quota, go to <http://docs.aws.amazon.com/redshift/latest/mgmt/amazon-redshift-limits.html Limits in Amazon Redshift> in the /Amazon Redshift Cluster Management Guide/ .-------_ClusterSecurityGroupQuotaExceededFault :: AsError a => Getting (First ServiceError) a ServiceError-_ClusterSecurityGroupQuotaExceededFault =- _MatchServiceError redshift "QuotaExceeded.ClusterSecurityGroup" .- hasStatus 400----- | The string specified for the logging S3 key prefix does not comply with the documented constraints.-------_InvalidS3KeyPrefixFault :: AsError a => Getting (First ServiceError) a ServiceError-_InvalidS3KeyPrefixFault =- _MatchServiceError redshift "InvalidS3KeyPrefixFault" . hasStatus 400----- | The specified Amazon Redshift event source could not be found.-------_SourceNotFoundFault :: AsError a => Getting (First ServiceError) a ServiceError-_SourceNotFoundFault =- _MatchServiceError redshift "SourceNotFound" . hasStatus 404----- | The authorization quota for the cluster security group has been reached.-------_AuthorizationQuotaExceededFault :: AsError a => Getting (First ServiceError) a ServiceError-_AuthorizationQuotaExceededFault =- _MatchServiceError redshift "AuthorizationQuotaExceeded" . hasStatus 400----- | Cross-region snapshot copy was temporarily disabled. Try your request again.-------_CopyToRegionDisabledFault :: AsError a => Getting (First ServiceError) a ServiceError-_CopyToRegionDisabledFault =- _MatchServiceError redshift "CopyToRegionDisabledFault" . hasStatus 400----- | The encryption key has exceeded its grant limit in AWS KMS.-------_LimitExceededFault :: AsError a => Getting (First ServiceError) a ServiceError-_LimitExceededFault =- _MatchServiceError redshift "LimitExceededFault" . hasStatus 400----- | The state of the cluster security group is not @available@ .-------_InvalidClusterSecurityGroupStateFault :: AsError a => Getting (First ServiceError) a ServiceError-_InvalidClusterSecurityGroupStateFault =- _MatchServiceError redshift "InvalidClusterSecurityGroupState" . hasStatus 400----- | A cluster security group with the same name already exists.-------_ClusterSecurityGroupAlreadyExistsFault :: AsError a => Getting (First ServiceError) a ServiceError-_ClusterSecurityGroupAlreadyExistsFault =- _MatchServiceError redshift "ClusterSecurityGroupAlreadyExists" .- hasStatus 400----- | The snapshot identifier does not refer to an existing cluster snapshot.-------_ClusterSnapshotNotFoundFault :: AsError a => Getting (First ServiceError) a ServiceError-_ClusterSnapshotNotFoundFault =- _MatchServiceError redshift "ClusterSnapshotNotFound" . hasStatus 404----- | The Elastic IP (EIP) is invalid or cannot be found.-------_InvalidElasticIPFault :: AsError a => Getting (First ServiceError) a ServiceError-_InvalidElasticIPFault =- _MatchServiceError redshift "InvalidElasticIpFault" . hasStatus 400----- | The specified @TableRestoreRequestId@ value was not found.-------_TableRestoreNotFoundFault :: AsError a => Getting (First ServiceError) a ServiceError-_TableRestoreNotFoundFault =- _MatchServiceError redshift "TableRestoreNotFoundFault" . hasStatus 400----- | There is no Amazon Redshift HSM configuration with the specified identifier.-------_HSMConfigurationNotFoundFault :: AsError a => Getting (First ServiceError) a ServiceError-_HSMConfigurationNotFoundFault =- _MatchServiceError redshift "HsmConfigurationNotFoundFault" . hasStatus 400----- | The specified CIDR block or EC2 security group is already authorized for the specified cluster security group.-------_AuthorizationAlreadyExistsFault :: AsError a => Getting (First ServiceError) a ServiceError-_AuthorizationAlreadyExistsFault =- _MatchServiceError redshift "AuthorizationAlreadyExists" . hasStatus 400----- | The value specified for the event category was not one of the allowed values, or it specified a category that does not apply to the specified source type. The allowed values are Configuration, Management, Monitoring, and Security.-------_SubscriptionCategoryNotFoundFault :: AsError a => Getting (First ServiceError) a ServiceError-_SubscriptionCategoryNotFoundFault =- _MatchServiceError redshift "SubscriptionCategoryNotFound" . hasStatus 404----- | There is already an existing Amazon Redshift HSM configuration with the specified identifier.-------_HSMConfigurationAlreadyExistsFault :: AsError a => Getting (First ServiceError) a ServiceError-_HSMConfigurationAlreadyExistsFault =- _MatchServiceError redshift "HsmConfigurationAlreadyExistsFault" .- hasStatus 400----- | An Amazon Redshift event notification subscription with the specified name does not exist.-------_SubscriptionNotFoundFault :: AsError a => Getting (First ServiceError) a ServiceError-_SubscriptionNotFoundFault =- _MatchServiceError redshift "SubscriptionNotFound" . hasStatus 404----- | The S3 bucket name is invalid. For more information about naming rules, go to <http://docs.aws.amazon.com/AmazonS3/latest/dev/BucketRestrictions.html Bucket Restrictions and Limitations> in the Amazon Simple Storage Service (S3) Developer Guide.-------_InvalidS3BucketNameFault :: AsError a => Getting (First ServiceError) a ServiceError-_InvalidS3BucketNameFault =- _MatchServiceError redshift "InvalidS3BucketNameFault" . hasStatus 400----- | The value specified as a snapshot identifier is already used by an existing snapshot.-------_ClusterSnapshotAlreadyExistsFault :: AsError a => Getting (First ServiceError) a ServiceError-_ClusterSnapshotAlreadyExistsFault =- _MatchServiceError redshift "ClusterSnapshotAlreadyExists" . hasStatus 400----- | The requested subnet is not valid, or not all of the subnets are in the same VPC.-------_InvalidSubnet :: AsError a => Getting (First ServiceError) a ServiceError-_InvalidSubnet = _MatchServiceError redshift "InvalidSubnet" . hasStatus 400----- | The specified HSM configuration is not in the @available@ state, or it is still in use by one or more Amazon Redshift clusters.-------_InvalidHSMConfigurationStateFault :: AsError a => Getting (First ServiceError) a ServiceError-_InvalidHSMConfigurationStateFault =- _MatchServiceError redshift "InvalidHsmConfigurationStateFault" .- hasStatus 400----- | The cluster already has cross-region snapshot copy disabled.-------_SnapshotCopyAlreadyDisabledFault :: AsError a => Getting (First ServiceError) a ServiceError-_SnapshotCopyAlreadyDisabledFault =- _MatchServiceError redshift "SnapshotCopyAlreadyDisabledFault" . hasStatus 400----- | The request would exceed the allowed number of cluster instances for this account. For information about increasing your quota, go to <http://docs.aws.amazon.com/redshift/latest/mgmt/amazon-redshift-limits.html Limits in Amazon Redshift> in the /Amazon Redshift Cluster Management Guide/ .-------_ClusterQuotaExceededFault :: AsError a => Getting (First ServiceError) a ServiceError-_ClusterQuotaExceededFault =- _MatchServiceError redshift "ClusterQuotaExceeded" . hasStatus 400----- | The quota for HSM client certificates has been reached. For information about increasing your quota, go to <http://docs.aws.amazon.com/redshift/latest/mgmt/amazon-redshift-limits.html Limits in Amazon Redshift> in the /Amazon Redshift Cluster Management Guide/ .-------_HSMClientCertificateQuotaExceededFault :: AsError a => Getting (First ServiceError) a ServiceError-_HSMClientCertificateQuotaExceededFault =- _MatchServiceError redshift "HsmClientCertificateQuotaExceededFault" .- hasStatus 400----- | The parameter group name does not refer to an existing parameter group.-------_ClusterParameterGroupNotFoundFault :: AsError a => Getting (First ServiceError) a ServiceError-_ClusterParameterGroupNotFoundFault =- _MatchServiceError redshift "ClusterParameterGroupNotFound" . hasStatus 404----- | The AWS account has exceeded the maximum number of snapshot copy grants in this region.-------_SnapshotCopyGrantQuotaExceededFault :: AsError a => Getting (First ServiceError) a ServiceError-_SnapshotCopyGrantQuotaExceededFault =- _MatchServiceError redshift "SnapshotCopyGrantQuotaExceededFault" .- hasStatus 400----- | The operation would exceed the number of nodes allowed for a cluster.-------_NumberOfNodesPerClusterLimitExceededFault :: AsError a => Getting (First ServiceError) a ServiceError-_NumberOfNodesPerClusterLimitExceededFault =- _MatchServiceError redshift "NumberOfNodesPerClusterLimitExceeded" .- hasStatus 400----- | The cluster already has cross-region snapshot copy enabled.-------_SnapshotCopyAlreadyEnabledFault :: AsError a => Getting (First ServiceError) a ServiceError-_SnapshotCopyAlreadyEnabledFault =- _MatchServiceError redshift "SnapshotCopyAlreadyEnabledFault" . hasStatus 400----- | A cluster parameter group with the same name already exists.-------_ClusterParameterGroupAlreadyExistsFault :: AsError a => Getting (First ServiceError) a ServiceError-_ClusterParameterGroupAlreadyExistsFault =- _MatchServiceError redshift "ClusterParameterGroupAlreadyExists" .- hasStatus 400----- | Cross-region snapshot copy was temporarily disabled. Try your request again.-------_SnapshotCopyDisabledFault :: AsError a => Getting (First ServiceError) a ServiceError-_SnapshotCopyDisabledFault =- _MatchServiceError redshift "SnapshotCopyDisabledFault" . hasStatus 400----- | A resize operation for the specified cluster is not found.-------_ResizeNotFoundFault :: AsError a => Getting (First ServiceError) a ServiceError-_ResizeNotFoundFault =- _MatchServiceError redshift "ResizeNotFound" . hasStatus 404----- | There is no Amazon Redshift HSM client certificate with the specified identifier.-------_HSMClientCertificateNotFoundFault :: AsError a => Getting (First ServiceError) a ServiceError-_HSMClientCertificateNotFoundFault =- _MatchServiceError redshift "HsmClientCertificateNotFoundFault" .- hasStatus 400----- | An Amazon SNS topic with the specified Amazon Resource Name (ARN) does not exist.-------_SNSTopicARNNotFoundFault :: AsError a => Getting (First ServiceError) a ServiceError-_SNSTopicARNNotFoundFault =- _MatchServiceError redshift "SNSTopicArnNotFound" . hasStatus 404----- | The @ClusterIdentifier@ parameter does not refer to an existing cluster.-------_ClusterNotFoundFault :: AsError a => Getting (First ServiceError) a ServiceError-_ClusterNotFoundFault =- _MatchServiceError redshift "ClusterNotFound" . hasStatus 404----- | The request would result in the user exceeding the allowed number of cluster parameter groups. For information about increasing your quota, go to <http://docs.aws.amazon.com/redshift/latest/mgmt/amazon-redshift-limits.html Limits in Amazon Redshift> in the /Amazon Redshift Cluster Management Guide/ .-------_ClusterParameterGroupQuotaExceededFault :: AsError a => Getting (First ServiceError) a ServiceError-_ClusterParameterGroupQuotaExceededFault =- _MatchServiceError redshift "ClusterParameterGroupQuotaExceeded" .- hasStatus 400----- | The snapshot copy grant can't be created because a grant with the same name already exists.-------_SnapshotCopyGrantAlreadyExistsFault :: AsError a => Getting (First ServiceError) a ServiceError-_SnapshotCopyGrantAlreadyExistsFault =- _MatchServiceError redshift "SnapshotCopyGrantAlreadyExistsFault" .- hasStatus 400----- | You do not have permission to publish to the specified Amazon SNS topic.-------_SNSNoAuthorizationFault :: AsError a => Getting (First ServiceError) a ServiceError-_SNSNoAuthorizationFault =- _MatchServiceError redshift "SNSNoAuthorization" . hasStatus 400----- | The specified cluster is not in the @available@ state.-------_InvalidClusterStateFault :: AsError a => Getting (First ServiceError) a ServiceError-_InvalidClusterStateFault =- _MatchServiceError redshift "InvalidClusterState" . hasStatus 400----- | The value specified for the @sourceDatabaseName@ , @sourceSchemaName@ , or @sourceTableName@ parameter, or a combination of these, doesn't exist in the snapshot.-------_InvalidTableRestoreArgumentFault :: AsError a => Getting (First ServiceError) a ServiceError-_InvalidTableRestoreArgumentFault =- _MatchServiceError redshift "InvalidTableRestoreArgument" . hasStatus 400----- | The specified snapshot copy grant can't be found. Make sure that the name is typed correctly and that the grant exists in the destination region.-------_SnapshotCopyGrantNotFoundFault :: AsError a => Getting (First ServiceError) a ServiceError-_SnapshotCopyGrantNotFoundFault =- _MatchServiceError redshift "SnapshotCopyGrantNotFoundFault" . hasStatus 400----- | The quota for HSM configurations has been reached. For information about increasing your quota, go to <http://docs.aws.amazon.com/redshift/latest/mgmt/amazon-redshift-limits.html Limits in Amazon Redshift> in the /Amazon Redshift Cluster Management Guide/ .-------_HSMConfigurationQuotaExceededFault :: AsError a => Getting (First ServiceError) a ServiceError-_HSMConfigurationQuotaExceededFault =- _MatchServiceError redshift "HsmConfigurationQuotaExceededFault" .- hasStatus 400----- | The request would result in the user exceeding the allowed number of cluster snapshots.-------_ClusterSnapshotQuotaExceededFault :: AsError a => Getting (First ServiceError) a ServiceError-_ClusterSnapshotQuotaExceededFault =- _MatchServiceError redshift "ClusterSnapshotQuotaExceeded" . hasStatus 400----- | The number of nodes specified exceeds the allotted capacity of the cluster.-------_InsufficientClusterCapacityFault :: AsError a => Getting (First ServiceError) a ServiceError-_InsufficientClusterCapacityFault =- _MatchServiceError redshift "InsufficientClusterCapacity" . hasStatus 400----- | Amazon SNS has responded that there is a problem with the specified Amazon SNS topic.-------_SNSInvalidTopicFault :: AsError a => Getting (First ServiceError) a ServiceError-_SNSInvalidTopicFault =- _MatchServiceError redshift "SNSInvalidTopic" . hasStatus 400----- | Your request cannot be completed because a dependent internal service is temporarily unavailable. Wait 30 to 60 seconds and try again.-------_DependentServiceUnavailableFault :: AsError a => Getting (First ServiceError) a ServiceError-_DependentServiceUnavailableFault =- _MatchServiceError redshift "DependentServiceUnavailableFault" . hasStatus 400----- | A request option was specified that is not supported.-------_UnsupportedOptionFault :: AsError a => Getting (First ServiceError) a ServiceError-_UnsupportedOptionFault =- _MatchServiceError redshift "UnsupportedOptionFault" . hasStatus 400----- | There is already an existing event notification subscription with the specified name.-------_SubscriptionAlreadyExistFault :: AsError a => Getting (First ServiceError) a ServiceError-_SubscriptionAlreadyExistFault =- _MatchServiceError redshift "SubscriptionAlreadyExist" . hasStatus 400----- | The cluster subnet group does not cover all Availability Zones.-------_InvalidVPCNetworkStateFault :: AsError a => Getting (First ServiceError) a ServiceError-_InvalidVPCNetworkStateFault =- _MatchServiceError redshift "InvalidVPCNetworkStateFault" . hasStatus 400----- | The cluster subnet group name does not refer to an existing cluster subnet group.-------_ClusterSubnetGroupNotFoundFault :: AsError a => Getting (First ServiceError) a ServiceError-_ClusterSubnetGroupNotFoundFault =- _MatchServiceError redshift "ClusterSubnetGroupNotFoundFault" . hasStatus 400----- | Could not find the specified S3 bucket.-------_BucketNotFoundFault :: AsError a => Getting (First ServiceError) a ServiceError-_BucketNotFoundFault =- _MatchServiceError redshift "BucketNotFoundFault" . hasStatus 400----- | The subscription request is invalid because it is a duplicate request. This subscription request is already in progress.-------_InvalidSubscriptionStateFault :: AsError a => Getting (First ServiceError) a ServiceError-_InvalidSubscriptionStateFault =- _MatchServiceError redshift "InvalidSubscriptionStateFault" . hasStatus 400----- | The request cannot be completed because a dependent service is throttling requests made by Amazon Redshift on your behalf. Wait and retry the request.-------_DependentServiceRequestThrottlingFault :: AsError a => Getting (First ServiceError) a ServiceError-_DependentServiceRequestThrottlingFault =- _MatchServiceError redshift "DependentServiceRequestThrottlingFault" .- hasStatus 400----- | The specified CIDR IP range or EC2 security group is not authorized for the specified cluster security group.-------_AuthorizationNotFoundFault :: AsError a => Getting (First ServiceError) a ServiceError-_AuthorizationNotFoundFault =- _MatchServiceError redshift "AuthorizationNotFound" . hasStatus 404----- | The cluster subnet group cannot be deleted because it is in use.-------_InvalidClusterSubnetGroupStateFault :: AsError a => Getting (First ServiceError) a ServiceError-_InvalidClusterSubnetGroupStateFault =- _MatchServiceError redshift "InvalidClusterSubnetGroupStateFault" .- hasStatus 400----- | The requested operation isn't supported.-------_UnsupportedOperationFault :: AsError a => Getting (First ServiceError) a ServiceError-_UnsupportedOperationFault =- _MatchServiceError redshift "UnsupportedOperation" . hasStatus 400----- | A /ClusterSubnetGroupName/ is already used by an existing cluster subnet group.-------_ClusterSubnetGroupAlreadyExistsFault :: AsError a => Getting (First ServiceError) a ServiceError-_ClusterSubnetGroupAlreadyExistsFault =- _MatchServiceError redshift "ClusterSubnetGroupAlreadyExists" . hasStatus 400----- | The specified cluster snapshot is not in the @available@ state, or other accounts are authorized to access the snapshot.-------_InvalidClusterSnapshotStateFault :: AsError a => Getting (First ServiceError) a ServiceError-_InvalidClusterSnapshotStateFault =- _MatchServiceError redshift "InvalidClusterSnapshotState" . hasStatus 400----- | The cluster security group name does not refer to an existing cluster security group.-------_ClusterSecurityGroupNotFoundFault :: AsError a => Getting (First ServiceError) a ServiceError-_ClusterSecurityGroupNotFoundFault =- _MatchServiceError redshift "ClusterSecurityGroupNotFound" . hasStatus 404----- | The specified reserved compute node not found.-------_ReservedNodeNotFoundFault :: AsError a => Getting (First ServiceError) a ServiceError-_ReservedNodeNotFoundFault =- _MatchServiceError redshift "ReservedNodeNotFound" . hasStatus 404----- | Specified offering does not exist.-------_ReservedNodeOfferingNotFoundFault :: AsError a => Getting (First ServiceError) a ServiceError-_ReservedNodeOfferingNotFoundFault =- _MatchServiceError redshift "ReservedNodeOfferingNotFound" . hasStatus 404----- | The state of the subnet is invalid.-------_InvalidClusterSubnetStateFault :: AsError a => Getting (First ServiceError) a ServiceError-_InvalidClusterSubnetStateFault =- _MatchServiceError redshift "InvalidClusterSubnetStateFault" . hasStatus 400----- | The specified options are incompatible.-------_IncompatibleOrderableOptions :: AsError a => Getting (First ServiceError) a ServiceError-_IncompatibleOrderableOptions =- _MatchServiceError redshift "IncompatibleOrderableOptions" . hasStatus 400----- | The request would exceed the allowed number of event subscriptions for this account. For information about increasing your quota, go to <http://docs.aws.amazon.com/redshift/latest/mgmt/amazon-redshift-limits.html Limits in Amazon Redshift> in the /Amazon Redshift Cluster Management Guide/ .-------_EventSubscriptionQuotaExceededFault :: AsError a => Getting (First ServiceError) a ServiceError-_EventSubscriptionQuotaExceededFault =- _MatchServiceError redshift "EventSubscriptionQuotaExceeded" . hasStatus 400----- | The cluster parameter group action can not be completed because another task is in progress that involves the parameter group. Wait a few moments and try the operation again.-------_InvalidClusterParameterGroupStateFault :: AsError a => Getting (First ServiceError) a ServiceError-_InvalidClusterParameterGroupStateFault =- _MatchServiceError redshift "InvalidClusterParameterGroupState" .- hasStatus 400----- | User already has a reservation with the given identifier.-------_ReservedNodeAlreadyExistsFault :: AsError a => Getting (First ServiceError) a ServiceError-_ReservedNodeAlreadyExistsFault =- _MatchServiceError redshift "ReservedNodeAlreadyExists" . hasStatus 404----- | You have exceeded the allowed number of table restore requests. Wait for your current table restore requests to complete before making a new request.-------_InProgressTableRestoreQuotaExceededFault :: AsError a => Getting (First ServiceError) a ServiceError-_InProgressTableRestoreQuotaExceededFault =- _MatchServiceError redshift "InProgressTableRestoreQuotaExceededFault" .- hasStatus 400----- | The restore is invalid.-------_InvalidRestoreFault :: AsError a => Getting (First ServiceError) a ServiceError-_InvalidRestoreFault =- _MatchServiceError redshift "InvalidRestore" . hasStatus 406----- | The resource could not be found.-------_ResourceNotFoundFault :: AsError a => Getting (First ServiceError) a ServiceError-_ResourceNotFoundFault =- _MatchServiceError redshift "ResourceNotFoundFault" . hasStatus 404----- | An Amazon Redshift event with the specified event ID does not exist.-------_SubscriptionEventIdNotFoundFault :: AsError a => Getting (First ServiceError) a ServiceError-_SubscriptionEventIdNotFoundFault =- _MatchServiceError redshift "SubscriptionEventIdNotFound" . hasStatus 404----- | The snapshot copy grant can't be deleted because it is used by one or more clusters.-------_InvalidSnapshotCopyGrantStateFault :: AsError a => Getting (First ServiceError) a ServiceError-_InvalidSnapshotCopyGrantStateFault =- _MatchServiceError redshift "InvalidSnapshotCopyGrantStateFault" .- hasStatus 400----- | The specified region is incorrect or does not exist.-------_UnknownSnapshotCopyRegionFault :: AsError a => Getting (First ServiceError) a ServiceError-_UnknownSnapshotCopyRegionFault =- _MatchServiceError redshift "UnknownSnapshotCopyRegionFault" . hasStatus 404----- | Request would exceed the user's compute node quota. For information about increasing your quota, go to <http://docs.aws.amazon.com/redshift/latest/mgmt/amazon-redshift-limits.html Limits in Amazon Redshift> in the /Amazon Redshift Cluster Management Guide/ .-------_ReservedNodeQuotaExceededFault :: AsError a => Getting (First ServiceError) a ServiceError-_ReservedNodeQuotaExceededFault =- _MatchServiceError redshift "ReservedNodeQuotaExceeded" . hasStatus 400----- | The request would result in user exceeding the allowed number of subnets in a cluster subnet groups. For information about increasing your quota, go to <http://docs.aws.amazon.com/redshift/latest/mgmt/amazon-redshift-limits.html Limits in Amazon Redshift> in the /Amazon Redshift Cluster Management Guide/ .-------_ClusterSubnetQuotaExceededFault :: AsError a => Getting (First ServiceError) a ServiceError-_ClusterSubnetQuotaExceededFault =- _MatchServiceError redshift "ClusterSubnetQuotaExceededFault" . hasStatus 400----- | The account already has a cluster with the given identifier.-------_ClusterAlreadyExistsFault :: AsError a => Getting (First ServiceError) a ServiceError-_ClusterAlreadyExistsFault =- _MatchServiceError redshift "ClusterAlreadyExists" . hasStatus 400----- | The owner of the specified snapshot has not authorized your account to access the snapshot.-------_AccessToSnapshotDeniedFault :: AsError a => Getting (First ServiceError) a ServiceError-_AccessToSnapshotDeniedFault =- _MatchServiceError redshift "AccessToSnapshotDenied" . hasStatus 400----- | The request exceeds the limit of 10 tags for the resource.-------_TagLimitExceededFault :: AsError a => Getting (First ServiceError) a ServiceError-_TagLimitExceededFault =- _MatchServiceError redshift "TagLimitExceededFault" . hasStatus 400----- | The operation would exceed the number of nodes allotted to the account. For information about increasing your quota, go to <http://docs.aws.amazon.com/redshift/latest/mgmt/amazon-redshift-limits.html Limits in Amazon Redshift> in the /Amazon Redshift Cluster Management Guide/ .-------_NumberOfNodesQuotaExceededFault :: AsError a => Getting (First ServiceError) a ServiceError-_NumberOfNodesQuotaExceededFault =- _MatchServiceError redshift "NumberOfNodesQuotaExceeded" . hasStatus 400----- | There is already an existing Amazon Redshift HSM client certificate with the specified identifier.-------_HSMClientCertificateAlreadyExistsFault :: AsError a => Getting (First ServiceError) a ServiceError-_HSMClientCertificateAlreadyExistsFault =- _MatchServiceError redshift "HsmClientCertificateAlreadyExistsFault" .- hasStatus 400----- | The specified HSM client certificate is not in the @available@ state, or it is still in use by one or more Amazon Redshift clusters.-------_InvalidHSMClientCertificateStateFault :: AsError a => Getting (First ServiceError) a ServiceError-_InvalidHSMClientCertificateStateFault =- _MatchServiceError redshift "InvalidHsmClientCertificateStateFault" .- hasStatus 400----- | A specified subnet is already in use by another cluster.-------_SubnetAlreadyInUse :: AsError a => Getting (First ServiceError) a ServiceError-_SubnetAlreadyInUse =- _MatchServiceError redshift "SubnetAlreadyInUse" . hasStatus 400----- | The value specified for the event severity was not one of the allowed values, or it specified a severity that does not apply to the specified source type. The allowed values are ERROR and INFO.-------_SubscriptionSeverityNotFoundFault :: AsError a => Getting (First ServiceError) a ServiceError-_SubscriptionSeverityNotFoundFault =- _MatchServiceError redshift "SubscriptionSeverityNotFound" . hasStatus 404----- | Your account is not authorized to perform the requested operation.-------_UnauthorizedOperation :: AsError a => Getting (First ServiceError) a ServiceError-_UnauthorizedOperation =- _MatchServiceError redshift "UnauthorizedOperation" . hasStatus 400----- | The tag is invalid.-------_InvalidTagFault :: AsError a => Getting (First ServiceError) a ServiceError-_InvalidTagFault = _MatchServiceError redshift "InvalidTagFault" . hasStatus 400----- | The cluster does not have read bucket or put object permissions on the S3 bucket specified when enabling logging.-------_InsufficientS3BucketPolicyFault :: AsError a => Getting (First ServiceError) a ServiceError-_InsufficientS3BucketPolicyFault =- _MatchServiceError redshift "InsufficientS3BucketPolicyFault" . hasStatus 400----- | The request would result in user exceeding the allowed number of cluster subnet groups. For information about increasing your quota, go to <http://docs.aws.amazon.com/redshift/latest/mgmt/amazon-redshift-limits.html Limits in Amazon Redshift> in the /Amazon Redshift Cluster Management Guide/ .-------_ClusterSubnetGroupQuotaExceededFault :: AsError a => Getting (First ServiceError) a ServiceError-_ClusterSubnetGroupQuotaExceededFault =- _MatchServiceError redshift "ClusterSubnetGroupQuotaExceeded" . hasStatus 400-
− gen/Network/AWS/Redshift/Types/Product.hs
@@ -1,3307 +0,0 @@-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric #-}-{-# LANGUAGE OverloadedStrings #-}-{-# LANGUAGE RecordWildCards #-}--{-# OPTIONS_GHC -fno-warn-unused-imports #-}---- Derived from AWS service descriptions, licensed under Apache 2.0.---- |--- Module : Network.AWS.Redshift.Types.Product--- Copyright : (c) 2013-2018 Brendan Hay--- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>--- Stability : auto-generated--- Portability : non-portable (GHC extensions)----module Network.AWS.Redshift.Types.Product where--import Network.AWS.Lens-import Network.AWS.Prelude-import Network.AWS.Redshift.Internal-import Network.AWS.Redshift.Types.Sum---- | Describes an AWS customer account authorized to restore a snapshot.------------ /See:/ 'accountWithRestoreAccess' smart constructor.-data AccountWithRestoreAccess = AccountWithRestoreAccess'- { _awraAccountAlias :: !(Maybe Text)- , _awraAccountId :: !(Maybe Text)- } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'AccountWithRestoreAccess' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'awraAccountAlias' - The identifier of an AWS support account authorized to restore a snapshot. For AWS support, the identifier is @amazon-redshift-support@ .------ * 'awraAccountId' - The identifier of an AWS customer account authorized to restore a snapshot.-accountWithRestoreAccess- :: AccountWithRestoreAccess-accountWithRestoreAccess =- AccountWithRestoreAccess'- {_awraAccountAlias = Nothing, _awraAccountId = Nothing}----- | The identifier of an AWS support account authorized to restore a snapshot. For AWS support, the identifier is @amazon-redshift-support@ .-awraAccountAlias :: Lens' AccountWithRestoreAccess (Maybe Text)-awraAccountAlias = lens _awraAccountAlias (\ s a -> s{_awraAccountAlias = a})---- | The identifier of an AWS customer account authorized to restore a snapshot.-awraAccountId :: Lens' AccountWithRestoreAccess (Maybe Text)-awraAccountId = lens _awraAccountId (\ s a -> s{_awraAccountId = a})--instance FromXML AccountWithRestoreAccess where- parseXML x- = AccountWithRestoreAccess' <$>- (x .@? "AccountAlias") <*> (x .@? "AccountId")--instance Hashable AccountWithRestoreAccess where--instance NFData AccountWithRestoreAccess where---- | Describes an availability zone.------------ /See:/ 'availabilityZone' smart constructor.-data AvailabilityZone = AvailabilityZone'- { _azName :: !(Maybe Text)- , _azSupportedPlatforms :: !(Maybe [SupportedPlatform])- } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'AvailabilityZone' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'azName' - The name of the availability zone.------ * 'azSupportedPlatforms' - Undocumented member.-availabilityZone- :: AvailabilityZone-availabilityZone =- AvailabilityZone' {_azName = Nothing, _azSupportedPlatforms = Nothing}----- | The name of the availability zone.-azName :: Lens' AvailabilityZone (Maybe Text)-azName = lens _azName (\ s a -> s{_azName = a})---- | Undocumented member.-azSupportedPlatforms :: Lens' AvailabilityZone [SupportedPlatform]-azSupportedPlatforms = lens _azSupportedPlatforms (\ s a -> s{_azSupportedPlatforms = a}) . _Default . _Coerce--instance FromXML AvailabilityZone where- parseXML x- = AvailabilityZone' <$>- (x .@? "Name") <*>- (x .@? "SupportedPlatforms" .!@ mempty >>=- may (parseXMLList "SupportedPlatform"))--instance Hashable AvailabilityZone where--instance NFData AvailabilityZone where---- | Describes a cluster.------------ /See:/ 'cluster' smart constructor.-data Cluster = Cluster'- { _cRestoreStatus :: !(Maybe RestoreStatus)- , _cEnhancedVPCRouting :: !(Maybe Bool)- , _cClusterSnapshotCopyStatus :: !(Maybe ClusterSnapshotCopyStatus)- , _cClusterRevisionNumber :: !(Maybe Text)- , _cPubliclyAccessible :: !(Maybe Bool)- , _cMasterUsername :: !(Maybe Text)- , _cVPCId :: !(Maybe Text)- , _cClusterSecurityGroups :: !(Maybe [ClusterSecurityGroupMembership])- , _cAutomatedSnapshotRetentionPeriod :: !(Maybe Int)- , _cEncrypted :: !(Maybe Bool)- , _cClusterSubnetGroupName :: !(Maybe Text)- , _cClusterIdentifier :: !(Maybe Text)- , _cNumberOfNodes :: !(Maybe Int)- , _cClusterPublicKey :: !(Maybe Text)- , _cPreferredMaintenanceWindow :: !(Maybe Text)- , _cModifyStatus :: !(Maybe Text)- , _cKMSKeyId :: !(Maybe Text)- , _cClusterParameterGroups :: !(Maybe [ClusterParameterGroupStatus])- , _cAvailabilityZone :: !(Maybe Text)- , _cVPCSecurityGroups :: !(Maybe [VPCSecurityGroupMembership])- , _cHSMStatus :: !(Maybe HSMStatus)- , _cIAMRoles :: !(Maybe [ClusterIAMRole])- , _cElasticIPStatus :: !(Maybe ElasticIPStatus)- , _cClusterVersion :: !(Maybe Text)- , _cNodeType :: !(Maybe Text)- , _cClusterCreateTime :: !(Maybe ISO8601)- , _cEndpoint :: !(Maybe Endpoint)- , _cAllowVersionUpgrade :: !(Maybe Bool)- , _cClusterStatus :: !(Maybe Text)- , _cPendingModifiedValues :: !(Maybe PendingModifiedValues)- , _cTags :: !(Maybe [Tag])- , _cClusterNodes :: !(Maybe [ClusterNode])- , _cDBName :: !(Maybe Text)- } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'Cluster' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'cRestoreStatus' - A value that describes the status of a cluster restore action. This parameter returns null if the cluster was not created by restoring a snapshot.------ * 'cEnhancedVPCRouting' - An option that specifies whether to create the cluster with enhanced VPC routing enabled. To create a cluster that uses enhanced VPC routing, the cluster must be in a VPC. For more information, see <http://docs.aws.amazon.com/redshift/latest/mgmt/enhanced-vpc-routing.html Enhanced VPC Routing> in the Amazon Redshift Cluster Management Guide. If this option is @true@ , enhanced VPC routing is enabled. Default: false------ * 'cClusterSnapshotCopyStatus' - A value that returns the destination region and retention period that are configured for cross-region snapshot copy.------ * 'cClusterRevisionNumber' - The specific revision number of the database in the cluster.------ * 'cPubliclyAccessible' - A Boolean value that, if @true@ , indicates that the cluster can be accessed from a public network.------ * 'cMasterUsername' - The master user name for the cluster. This name is used to connect to the database that is specified in the __DBName__ parameter.------ * 'cVPCId' - The identifier of the VPC the cluster is in, if the cluster is in a VPC.------ * 'cClusterSecurityGroups' - A list of cluster security group that are associated with the cluster. Each security group is represented by an element that contains @ClusterSecurityGroup.Name@ and @ClusterSecurityGroup.Status@ subelements. Cluster security groups are used when the cluster is not created in an Amazon Virtual Private Cloud (VPC). Clusters that are created in a VPC use VPC security groups, which are listed by the __VpcSecurityGroups__ parameter.------ * 'cAutomatedSnapshotRetentionPeriod' - The number of days that automatic cluster snapshots are retained.------ * 'cEncrypted' - A Boolean value that, if @true@ , indicates that data in the cluster is encrypted at rest.------ * 'cClusterSubnetGroupName' - The name of the subnet group that is associated with the cluster. This parameter is valid only when the cluster is in a VPC.------ * 'cClusterIdentifier' - The unique identifier of the cluster.------ * 'cNumberOfNodes' - The number of compute nodes in the cluster.------ * 'cClusterPublicKey' - The public key for the cluster.------ * 'cPreferredMaintenanceWindow' - The weekly time range, in Universal Coordinated Time (UTC), during which system maintenance can occur.------ * 'cModifyStatus' - The status of a modify operation, if any, initiated for the cluster.------ * 'cKMSKeyId' - The AWS Key Management Service (AWS KMS) key ID of the encryption key used to encrypt data in the cluster.------ * 'cClusterParameterGroups' - The list of cluster parameter groups that are associated with this cluster. Each parameter group in the list is returned with its status.------ * 'cAvailabilityZone' - The name of the Availability Zone in which the cluster is located.------ * 'cVPCSecurityGroups' - A list of Amazon Virtual Private Cloud (Amazon VPC) security groups that are associated with the cluster. This parameter is returned only if the cluster is in a VPC.------ * 'cHSMStatus' - A value that reports whether the Amazon Redshift cluster has finished applying any hardware security module (HSM) settings changes specified in a modify cluster command. Values: active, applying------ * 'cIAMRoles' - A list of AWS Identity and Access Management (IAM) roles that can be used by the cluster to access other AWS services.------ * 'cElasticIPStatus' - The status of the elastic IP (EIP) address.------ * 'cClusterVersion' - The version ID of the Amazon Redshift engine that is running on the cluster.------ * 'cNodeType' - The node type for the nodes in the cluster.------ * 'cClusterCreateTime' - The date and time that the cluster was created.------ * 'cEndpoint' - The connection endpoint.------ * 'cAllowVersionUpgrade' - A Boolean value that, if @true@ , indicates that major version upgrades will be applied automatically to the cluster during the maintenance window.------ * 'cClusterStatus' - The current state of the cluster. Possible values are the following: * @available@ * @creating@ * @deleting@ * @final-snapshot@ * @hardware-failure@ * @incompatible-hsm@ * @incompatible-network@ * @incompatible-parameters@ * @incompatible-restore@ * @modifying@ * @rebooting@ * @renaming@ * @resizing@ * @rotating-keys@ * @storage-full@ * @updating-hsm@------ * 'cPendingModifiedValues' - A value that, if present, indicates that changes to the cluster are pending. Specific pending changes are identified by subelements.------ * 'cTags' - The list of tags for the cluster.------ * 'cClusterNodes' - The nodes in the cluster.------ * 'cDBName' - The name of the initial database that was created when the cluster was created. This same name is returned for the life of the cluster. If an initial database was not specified, a database named @dev@ dev was created by default.-cluster- :: Cluster-cluster =- Cluster'- { _cRestoreStatus = Nothing- , _cEnhancedVPCRouting = Nothing- , _cClusterSnapshotCopyStatus = Nothing- , _cClusterRevisionNumber = Nothing- , _cPubliclyAccessible = Nothing- , _cMasterUsername = Nothing- , _cVPCId = Nothing- , _cClusterSecurityGroups = Nothing- , _cAutomatedSnapshotRetentionPeriod = Nothing- , _cEncrypted = Nothing- , _cClusterSubnetGroupName = Nothing- , _cClusterIdentifier = Nothing- , _cNumberOfNodes = Nothing- , _cClusterPublicKey = Nothing- , _cPreferredMaintenanceWindow = Nothing- , _cModifyStatus = Nothing- , _cKMSKeyId = Nothing- , _cClusterParameterGroups = Nothing- , _cAvailabilityZone = Nothing- , _cVPCSecurityGroups = Nothing- , _cHSMStatus = Nothing- , _cIAMRoles = Nothing- , _cElasticIPStatus = Nothing- , _cClusterVersion = Nothing- , _cNodeType = Nothing- , _cClusterCreateTime = Nothing- , _cEndpoint = Nothing- , _cAllowVersionUpgrade = Nothing- , _cClusterStatus = Nothing- , _cPendingModifiedValues = Nothing- , _cTags = Nothing- , _cClusterNodes = Nothing- , _cDBName = Nothing- }----- | A value that describes the status of a cluster restore action. This parameter returns null if the cluster was not created by restoring a snapshot.-cRestoreStatus :: Lens' Cluster (Maybe RestoreStatus)-cRestoreStatus = lens _cRestoreStatus (\ s a -> s{_cRestoreStatus = a})---- | An option that specifies whether to create the cluster with enhanced VPC routing enabled. To create a cluster that uses enhanced VPC routing, the cluster must be in a VPC. For more information, see <http://docs.aws.amazon.com/redshift/latest/mgmt/enhanced-vpc-routing.html Enhanced VPC Routing> in the Amazon Redshift Cluster Management Guide. If this option is @true@ , enhanced VPC routing is enabled. Default: false-cEnhancedVPCRouting :: Lens' Cluster (Maybe Bool)-cEnhancedVPCRouting = lens _cEnhancedVPCRouting (\ s a -> s{_cEnhancedVPCRouting = a})---- | A value that returns the destination region and retention period that are configured for cross-region snapshot copy.-cClusterSnapshotCopyStatus :: Lens' Cluster (Maybe ClusterSnapshotCopyStatus)-cClusterSnapshotCopyStatus = lens _cClusterSnapshotCopyStatus (\ s a -> s{_cClusterSnapshotCopyStatus = a})---- | The specific revision number of the database in the cluster.-cClusterRevisionNumber :: Lens' Cluster (Maybe Text)-cClusterRevisionNumber = lens _cClusterRevisionNumber (\ s a -> s{_cClusterRevisionNumber = a})---- | A Boolean value that, if @true@ , indicates that the cluster can be accessed from a public network.-cPubliclyAccessible :: Lens' Cluster (Maybe Bool)-cPubliclyAccessible = lens _cPubliclyAccessible (\ s a -> s{_cPubliclyAccessible = a})---- | The master user name for the cluster. This name is used to connect to the database that is specified in the __DBName__ parameter.-cMasterUsername :: Lens' Cluster (Maybe Text)-cMasterUsername = lens _cMasterUsername (\ s a -> s{_cMasterUsername = a})---- | The identifier of the VPC the cluster is in, if the cluster is in a VPC.-cVPCId :: Lens' Cluster (Maybe Text)-cVPCId = lens _cVPCId (\ s a -> s{_cVPCId = a})---- | A list of cluster security group that are associated with the cluster. Each security group is represented by an element that contains @ClusterSecurityGroup.Name@ and @ClusterSecurityGroup.Status@ subelements. Cluster security groups are used when the cluster is not created in an Amazon Virtual Private Cloud (VPC). Clusters that are created in a VPC use VPC security groups, which are listed by the __VpcSecurityGroups__ parameter.-cClusterSecurityGroups :: Lens' Cluster [ClusterSecurityGroupMembership]-cClusterSecurityGroups = lens _cClusterSecurityGroups (\ s a -> s{_cClusterSecurityGroups = a}) . _Default . _Coerce---- | The number of days that automatic cluster snapshots are retained.-cAutomatedSnapshotRetentionPeriod :: Lens' Cluster (Maybe Int)-cAutomatedSnapshotRetentionPeriod = lens _cAutomatedSnapshotRetentionPeriod (\ s a -> s{_cAutomatedSnapshotRetentionPeriod = a})---- | A Boolean value that, if @true@ , indicates that data in the cluster is encrypted at rest.-cEncrypted :: Lens' Cluster (Maybe Bool)-cEncrypted = lens _cEncrypted (\ s a -> s{_cEncrypted = a})---- | The name of the subnet group that is associated with the cluster. This parameter is valid only when the cluster is in a VPC.-cClusterSubnetGroupName :: Lens' Cluster (Maybe Text)-cClusterSubnetGroupName = lens _cClusterSubnetGroupName (\ s a -> s{_cClusterSubnetGroupName = a})---- | The unique identifier of the cluster.-cClusterIdentifier :: Lens' Cluster (Maybe Text)-cClusterIdentifier = lens _cClusterIdentifier (\ s a -> s{_cClusterIdentifier = a})---- | The number of compute nodes in the cluster.-cNumberOfNodes :: Lens' Cluster (Maybe Int)-cNumberOfNodes = lens _cNumberOfNodes (\ s a -> s{_cNumberOfNodes = a})---- | The public key for the cluster.-cClusterPublicKey :: Lens' Cluster (Maybe Text)-cClusterPublicKey = lens _cClusterPublicKey (\ s a -> s{_cClusterPublicKey = a})---- | The weekly time range, in Universal Coordinated Time (UTC), during which system maintenance can occur.-cPreferredMaintenanceWindow :: Lens' Cluster (Maybe Text)-cPreferredMaintenanceWindow = lens _cPreferredMaintenanceWindow (\ s a -> s{_cPreferredMaintenanceWindow = a})---- | The status of a modify operation, if any, initiated for the cluster.-cModifyStatus :: Lens' Cluster (Maybe Text)-cModifyStatus = lens _cModifyStatus (\ s a -> s{_cModifyStatus = a})---- | The AWS Key Management Service (AWS KMS) key ID of the encryption key used to encrypt data in the cluster.-cKMSKeyId :: Lens' Cluster (Maybe Text)-cKMSKeyId = lens _cKMSKeyId (\ s a -> s{_cKMSKeyId = a})---- | The list of cluster parameter groups that are associated with this cluster. Each parameter group in the list is returned with its status.-cClusterParameterGroups :: Lens' Cluster [ClusterParameterGroupStatus]-cClusterParameterGroups = lens _cClusterParameterGroups (\ s a -> s{_cClusterParameterGroups = a}) . _Default . _Coerce---- | The name of the Availability Zone in which the cluster is located.-cAvailabilityZone :: Lens' Cluster (Maybe Text)-cAvailabilityZone = lens _cAvailabilityZone (\ s a -> s{_cAvailabilityZone = a})---- | A list of Amazon Virtual Private Cloud (Amazon VPC) security groups that are associated with the cluster. This parameter is returned only if the cluster is in a VPC.-cVPCSecurityGroups :: Lens' Cluster [VPCSecurityGroupMembership]-cVPCSecurityGroups = lens _cVPCSecurityGroups (\ s a -> s{_cVPCSecurityGroups = a}) . _Default . _Coerce---- | A value that reports whether the Amazon Redshift cluster has finished applying any hardware security module (HSM) settings changes specified in a modify cluster command. Values: active, applying-cHSMStatus :: Lens' Cluster (Maybe HSMStatus)-cHSMStatus = lens _cHSMStatus (\ s a -> s{_cHSMStatus = a})---- | A list of AWS Identity and Access Management (IAM) roles that can be used by the cluster to access other AWS services.-cIAMRoles :: Lens' Cluster [ClusterIAMRole]-cIAMRoles = lens _cIAMRoles (\ s a -> s{_cIAMRoles = a}) . _Default . _Coerce---- | The status of the elastic IP (EIP) address.-cElasticIPStatus :: Lens' Cluster (Maybe ElasticIPStatus)-cElasticIPStatus = lens _cElasticIPStatus (\ s a -> s{_cElasticIPStatus = a})---- | The version ID of the Amazon Redshift engine that is running on the cluster.-cClusterVersion :: Lens' Cluster (Maybe Text)-cClusterVersion = lens _cClusterVersion (\ s a -> s{_cClusterVersion = a})---- | The node type for the nodes in the cluster.-cNodeType :: Lens' Cluster (Maybe Text)-cNodeType = lens _cNodeType (\ s a -> s{_cNodeType = a})---- | The date and time that the cluster was created.-cClusterCreateTime :: Lens' Cluster (Maybe UTCTime)-cClusterCreateTime = lens _cClusterCreateTime (\ s a -> s{_cClusterCreateTime = a}) . mapping _Time---- | The connection endpoint.-cEndpoint :: Lens' Cluster (Maybe Endpoint)-cEndpoint = lens _cEndpoint (\ s a -> s{_cEndpoint = a})---- | A Boolean value that, if @true@ , indicates that major version upgrades will be applied automatically to the cluster during the maintenance window.-cAllowVersionUpgrade :: Lens' Cluster (Maybe Bool)-cAllowVersionUpgrade = lens _cAllowVersionUpgrade (\ s a -> s{_cAllowVersionUpgrade = a})---- | The current state of the cluster. Possible values are the following: * @available@ * @creating@ * @deleting@ * @final-snapshot@ * @hardware-failure@ * @incompatible-hsm@ * @incompatible-network@ * @incompatible-parameters@ * @incompatible-restore@ * @modifying@ * @rebooting@ * @renaming@ * @resizing@ * @rotating-keys@ * @storage-full@ * @updating-hsm@-cClusterStatus :: Lens' Cluster (Maybe Text)-cClusterStatus = lens _cClusterStatus (\ s a -> s{_cClusterStatus = a})---- | A value that, if present, indicates that changes to the cluster are pending. Specific pending changes are identified by subelements.-cPendingModifiedValues :: Lens' Cluster (Maybe PendingModifiedValues)-cPendingModifiedValues = lens _cPendingModifiedValues (\ s a -> s{_cPendingModifiedValues = a})---- | The list of tags for the cluster.-cTags :: Lens' Cluster [Tag]-cTags = lens _cTags (\ s a -> s{_cTags = a}) . _Default . _Coerce---- | The nodes in the cluster.-cClusterNodes :: Lens' Cluster [ClusterNode]-cClusterNodes = lens _cClusterNodes (\ s a -> s{_cClusterNodes = a}) . _Default . _Coerce---- | The name of the initial database that was created when the cluster was created. This same name is returned for the life of the cluster. If an initial database was not specified, a database named @dev@ dev was created by default.-cDBName :: Lens' Cluster (Maybe Text)-cDBName = lens _cDBName (\ s a -> s{_cDBName = a})--instance FromXML Cluster where- parseXML x- = Cluster' <$>- (x .@? "RestoreStatus") <*>- (x .@? "EnhancedVpcRouting")- <*> (x .@? "ClusterSnapshotCopyStatus")- <*> (x .@? "ClusterRevisionNumber")- <*> (x .@? "PubliclyAccessible")- <*> (x .@? "MasterUsername")- <*> (x .@? "VpcId")- <*>- (x .@? "ClusterSecurityGroups" .!@ mempty >>=- may (parseXMLList "ClusterSecurityGroup"))- <*> (x .@? "AutomatedSnapshotRetentionPeriod")- <*> (x .@? "Encrypted")- <*> (x .@? "ClusterSubnetGroupName")- <*> (x .@? "ClusterIdentifier")- <*> (x .@? "NumberOfNodes")- <*> (x .@? "ClusterPublicKey")- <*> (x .@? "PreferredMaintenanceWindow")- <*> (x .@? "ModifyStatus")- <*> (x .@? "KmsKeyId")- <*>- (x .@? "ClusterParameterGroups" .!@ mempty >>=- may (parseXMLList "ClusterParameterGroup"))- <*> (x .@? "AvailabilityZone")- <*>- (x .@? "VpcSecurityGroups" .!@ mempty >>=- may (parseXMLList "VpcSecurityGroup"))- <*> (x .@? "HsmStatus")- <*>- (x .@? "IamRoles" .!@ mempty >>=- may (parseXMLList "ClusterIamRole"))- <*> (x .@? "ElasticIpStatus")- <*> (x .@? "ClusterVersion")- <*> (x .@? "NodeType")- <*> (x .@? "ClusterCreateTime")- <*> (x .@? "Endpoint")- <*> (x .@? "AllowVersionUpgrade")- <*> (x .@? "ClusterStatus")- <*> (x .@? "PendingModifiedValues")- <*>- (x .@? "Tags" .!@ mempty >>=- may (parseXMLList "Tag"))- <*>- (x .@? "ClusterNodes" .!@ mempty >>=- may (parseXMLList "member"))- <*> (x .@? "DBName")--instance Hashable Cluster where--instance NFData Cluster where---- | An AWS Identity and Access Management (IAM) role that can be used by the associated Amazon Redshift cluster to access other AWS services.------------ /See:/ 'clusterIAMRole' smart constructor.-data ClusterIAMRole = ClusterIAMRole'- { _cirIAMRoleARN :: !(Maybe Text)- , _cirApplyStatus :: !(Maybe Text)- } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'ClusterIAMRole' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'cirIAMRoleARN' - The Amazon Resource Name (ARN) of the IAM role, for example, @arn:aws:iam::123456789012:role/RedshiftCopyUnload@ .------ * 'cirApplyStatus' - A value that describes the status of the IAM role's association with an Amazon Redshift cluster. The following are possible statuses and descriptions. * @in-sync@ : The role is available for use by the cluster. * @adding@ : The role is in the process of being associated with the cluster. * @removing@ : The role is in the process of being disassociated with the cluster.-clusterIAMRole- :: ClusterIAMRole-clusterIAMRole =- ClusterIAMRole' {_cirIAMRoleARN = Nothing, _cirApplyStatus = Nothing}----- | The Amazon Resource Name (ARN) of the IAM role, for example, @arn:aws:iam::123456789012:role/RedshiftCopyUnload@ .-cirIAMRoleARN :: Lens' ClusterIAMRole (Maybe Text)-cirIAMRoleARN = lens _cirIAMRoleARN (\ s a -> s{_cirIAMRoleARN = a})---- | A value that describes the status of the IAM role's association with an Amazon Redshift cluster. The following are possible statuses and descriptions. * @in-sync@ : The role is available for use by the cluster. * @adding@ : The role is in the process of being associated with the cluster. * @removing@ : The role is in the process of being disassociated with the cluster.-cirApplyStatus :: Lens' ClusterIAMRole (Maybe Text)-cirApplyStatus = lens _cirApplyStatus (\ s a -> s{_cirApplyStatus = a})--instance FromXML ClusterIAMRole where- parseXML x- = ClusterIAMRole' <$>- (x .@? "IamRoleArn") <*> (x .@? "ApplyStatus")--instance Hashable ClusterIAMRole where--instance NFData ClusterIAMRole where---- | The identifier of a node in a cluster.------------ /See:/ 'clusterNode' smart constructor.-data ClusterNode = ClusterNode'- { _cnNodeRole :: !(Maybe Text)- , _cnPrivateIPAddress :: !(Maybe Text)- , _cnPublicIPAddress :: !(Maybe Text)- } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'ClusterNode' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'cnNodeRole' - Whether the node is a leader node or a compute node.------ * 'cnPrivateIPAddress' - The private IP address of a node within a cluster.------ * 'cnPublicIPAddress' - The public IP address of a node within a cluster.-clusterNode- :: ClusterNode-clusterNode =- ClusterNode'- { _cnNodeRole = Nothing- , _cnPrivateIPAddress = Nothing- , _cnPublicIPAddress = Nothing- }----- | Whether the node is a leader node or a compute node.-cnNodeRole :: Lens' ClusterNode (Maybe Text)-cnNodeRole = lens _cnNodeRole (\ s a -> s{_cnNodeRole = a})---- | The private IP address of a node within a cluster.-cnPrivateIPAddress :: Lens' ClusterNode (Maybe Text)-cnPrivateIPAddress = lens _cnPrivateIPAddress (\ s a -> s{_cnPrivateIPAddress = a})---- | The public IP address of a node within a cluster.-cnPublicIPAddress :: Lens' ClusterNode (Maybe Text)-cnPublicIPAddress = lens _cnPublicIPAddress (\ s a -> s{_cnPublicIPAddress = a})--instance FromXML ClusterNode where- parseXML x- = ClusterNode' <$>- (x .@? "NodeRole") <*> (x .@? "PrivateIPAddress") <*>- (x .@? "PublicIPAddress")--instance Hashable ClusterNode where--instance NFData ClusterNode where---- | Describes a parameter group.------------ /See:/ 'clusterParameterGroup' smart constructor.-data ClusterParameterGroup = ClusterParameterGroup'- { _cpgParameterGroupFamily :: !(Maybe Text)- , _cpgDescription :: !(Maybe Text)- , _cpgTags :: !(Maybe [Tag])- , _cpgParameterGroupName :: !(Maybe Text)- } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'ClusterParameterGroup' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'cpgParameterGroupFamily' - The name of the cluster parameter group family that this cluster parameter group is compatible with.------ * 'cpgDescription' - The description of the parameter group.------ * 'cpgTags' - The list of tags for the cluster parameter group.------ * 'cpgParameterGroupName' - The name of the cluster parameter group.-clusterParameterGroup- :: ClusterParameterGroup-clusterParameterGroup =- ClusterParameterGroup'- { _cpgParameterGroupFamily = Nothing- , _cpgDescription = Nothing- , _cpgTags = Nothing- , _cpgParameterGroupName = Nothing- }----- | The name of the cluster parameter group family that this cluster parameter group is compatible with.-cpgParameterGroupFamily :: Lens' ClusterParameterGroup (Maybe Text)-cpgParameterGroupFamily = lens _cpgParameterGroupFamily (\ s a -> s{_cpgParameterGroupFamily = a})---- | The description of the parameter group.-cpgDescription :: Lens' ClusterParameterGroup (Maybe Text)-cpgDescription = lens _cpgDescription (\ s a -> s{_cpgDescription = a})---- | The list of tags for the cluster parameter group.-cpgTags :: Lens' ClusterParameterGroup [Tag]-cpgTags = lens _cpgTags (\ s a -> s{_cpgTags = a}) . _Default . _Coerce---- | The name of the cluster parameter group.-cpgParameterGroupName :: Lens' ClusterParameterGroup (Maybe Text)-cpgParameterGroupName = lens _cpgParameterGroupName (\ s a -> s{_cpgParameterGroupName = a})--instance FromXML ClusterParameterGroup where- parseXML x- = ClusterParameterGroup' <$>- (x .@? "ParameterGroupFamily") <*>- (x .@? "Description")- <*>- (x .@? "Tags" .!@ mempty >>=- may (parseXMLList "Tag"))- <*> (x .@? "ParameterGroupName")--instance Hashable ClusterParameterGroup where--instance NFData ClusterParameterGroup where---- |------------ /See:/ 'clusterParameterGroupNameMessage' smart constructor.-data ClusterParameterGroupNameMessage = ClusterParameterGroupNameMessage'- { _cpgnmParameterGroupStatus :: !(Maybe Text)- , _cpgnmParameterGroupName :: !(Maybe Text)- } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'ClusterParameterGroupNameMessage' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'cpgnmParameterGroupStatus' - The status of the parameter group. For example, if you made a change to a parameter group name-value pair, then the change could be pending a reboot of an associated cluster.------ * 'cpgnmParameterGroupName' - The name of the cluster parameter group.-clusterParameterGroupNameMessage- :: ClusterParameterGroupNameMessage-clusterParameterGroupNameMessage =- ClusterParameterGroupNameMessage'- {_cpgnmParameterGroupStatus = Nothing, _cpgnmParameterGroupName = Nothing}----- | The status of the parameter group. For example, if you made a change to a parameter group name-value pair, then the change could be pending a reboot of an associated cluster.-cpgnmParameterGroupStatus :: Lens' ClusterParameterGroupNameMessage (Maybe Text)-cpgnmParameterGroupStatus = lens _cpgnmParameterGroupStatus (\ s a -> s{_cpgnmParameterGroupStatus = a})---- | The name of the cluster parameter group.-cpgnmParameterGroupName :: Lens' ClusterParameterGroupNameMessage (Maybe Text)-cpgnmParameterGroupName = lens _cpgnmParameterGroupName (\ s a -> s{_cpgnmParameterGroupName = a})--instance FromXML ClusterParameterGroupNameMessage- where- parseXML x- = ClusterParameterGroupNameMessage' <$>- (x .@? "ParameterGroupStatus") <*>- (x .@? "ParameterGroupName")--instance Hashable ClusterParameterGroupNameMessage- where--instance NFData ClusterParameterGroupNameMessage- where---- | Describes the status of a parameter group.------------ /See:/ 'clusterParameterGroupStatus' smart constructor.-data ClusterParameterGroupStatus = ClusterParameterGroupStatus'- { _cpgsClusterParameterStatusList :: !(Maybe [ClusterParameterStatus])- , _cpgsParameterApplyStatus :: !(Maybe Text)- , _cpgsParameterGroupName :: !(Maybe Text)- } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'ClusterParameterGroupStatus' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'cpgsClusterParameterStatusList' - The list of parameter statuses. For more information about parameters and parameter groups, go to <http://docs.aws.amazon.com/redshift/latest/mgmt/working-with-parameter-groups.html Amazon Redshift Parameter Groups> in the /Amazon Redshift Cluster Management Guide/ .------ * 'cpgsParameterApplyStatus' - The status of parameter updates.------ * 'cpgsParameterGroupName' - The name of the cluster parameter group.-clusterParameterGroupStatus- :: ClusterParameterGroupStatus-clusterParameterGroupStatus =- ClusterParameterGroupStatus'- { _cpgsClusterParameterStatusList = Nothing- , _cpgsParameterApplyStatus = Nothing- , _cpgsParameterGroupName = Nothing- }----- | The list of parameter statuses. For more information about parameters and parameter groups, go to <http://docs.aws.amazon.com/redshift/latest/mgmt/working-with-parameter-groups.html Amazon Redshift Parameter Groups> in the /Amazon Redshift Cluster Management Guide/ .-cpgsClusterParameterStatusList :: Lens' ClusterParameterGroupStatus [ClusterParameterStatus]-cpgsClusterParameterStatusList = lens _cpgsClusterParameterStatusList (\ s a -> s{_cpgsClusterParameterStatusList = a}) . _Default . _Coerce---- | The status of parameter updates.-cpgsParameterApplyStatus :: Lens' ClusterParameterGroupStatus (Maybe Text)-cpgsParameterApplyStatus = lens _cpgsParameterApplyStatus (\ s a -> s{_cpgsParameterApplyStatus = a})---- | The name of the cluster parameter group.-cpgsParameterGroupName :: Lens' ClusterParameterGroupStatus (Maybe Text)-cpgsParameterGroupName = lens _cpgsParameterGroupName (\ s a -> s{_cpgsParameterGroupName = a})--instance FromXML ClusterParameterGroupStatus where- parseXML x- = ClusterParameterGroupStatus' <$>- (x .@? "ClusterParameterStatusList" .!@ mempty >>=- may (parseXMLList "member"))- <*> (x .@? "ParameterApplyStatus")- <*> (x .@? "ParameterGroupName")--instance Hashable ClusterParameterGroupStatus where--instance NFData ClusterParameterGroupStatus where---- | Describes the status of a parameter group.------------ /See:/ 'clusterParameterStatus' smart constructor.-data ClusterParameterStatus = ClusterParameterStatus'- { _cpsParameterApplyErrorDescription :: !(Maybe Text)- , _cpsParameterName :: !(Maybe Text)- , _cpsParameterApplyStatus :: !(Maybe Text)- } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'ClusterParameterStatus' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'cpsParameterApplyErrorDescription' - The error that prevented the parameter from being applied to the database.------ * 'cpsParameterName' - The name of the parameter.------ * 'cpsParameterApplyStatus' - The status of the parameter that indicates whether the parameter is in sync with the database, waiting for a cluster reboot, or encountered an error when being applied. The following are possible statuses and descriptions. * @in-sync@ : The parameter value is in sync with the database. * @pending-reboot@ : The parameter value will be applied after the cluster reboots. * @applying@ : The parameter value is being applied to the database. * @invalid-parameter@ : Cannot apply the parameter value because it has an invalid value or syntax. * @apply-deferred@ : The parameter contains static property changes. The changes are deferred until the cluster reboots. * @apply-error@ : Cannot connect to the cluster. The parameter change will be applied after the cluster reboots. * @unknown-error@ : Cannot apply the parameter change right now. The change will be applied after the cluster reboots.-clusterParameterStatus- :: ClusterParameterStatus-clusterParameterStatus =- ClusterParameterStatus'- { _cpsParameterApplyErrorDescription = Nothing- , _cpsParameterName = Nothing- , _cpsParameterApplyStatus = Nothing- }----- | The error that prevented the parameter from being applied to the database.-cpsParameterApplyErrorDescription :: Lens' ClusterParameterStatus (Maybe Text)-cpsParameterApplyErrorDescription = lens _cpsParameterApplyErrorDescription (\ s a -> s{_cpsParameterApplyErrorDescription = a})---- | The name of the parameter.-cpsParameterName :: Lens' ClusterParameterStatus (Maybe Text)-cpsParameterName = lens _cpsParameterName (\ s a -> s{_cpsParameterName = a})---- | The status of the parameter that indicates whether the parameter is in sync with the database, waiting for a cluster reboot, or encountered an error when being applied. The following are possible statuses and descriptions. * @in-sync@ : The parameter value is in sync with the database. * @pending-reboot@ : The parameter value will be applied after the cluster reboots. * @applying@ : The parameter value is being applied to the database. * @invalid-parameter@ : Cannot apply the parameter value because it has an invalid value or syntax. * @apply-deferred@ : The parameter contains static property changes. The changes are deferred until the cluster reboots. * @apply-error@ : Cannot connect to the cluster. The parameter change will be applied after the cluster reboots. * @unknown-error@ : Cannot apply the parameter change right now. The change will be applied after the cluster reboots.-cpsParameterApplyStatus :: Lens' ClusterParameterStatus (Maybe Text)-cpsParameterApplyStatus = lens _cpsParameterApplyStatus (\ s a -> s{_cpsParameterApplyStatus = a})--instance FromXML ClusterParameterStatus where- parseXML x- = ClusterParameterStatus' <$>- (x .@? "ParameterApplyErrorDescription") <*>- (x .@? "ParameterName")- <*> (x .@? "ParameterApplyStatus")--instance Hashable ClusterParameterStatus where--instance NFData ClusterParameterStatus where---- | Describes a security group.------------ /See:/ 'clusterSecurityGroup' smart constructor.-data ClusterSecurityGroup = ClusterSecurityGroup'- { _cluClusterSecurityGroupName :: !(Maybe Text)- , _cluIPRanges :: !(Maybe [IPRange])- , _cluEC2SecurityGroups :: !(Maybe [EC2SecurityGroup])- , _cluDescription :: !(Maybe Text)- , _cluTags :: !(Maybe [Tag])- } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'ClusterSecurityGroup' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'cluClusterSecurityGroupName' - The name of the cluster security group to which the operation was applied.------ * 'cluIPRanges' - A list of IP ranges (CIDR blocks) that are permitted to access clusters associated with this cluster security group.------ * 'cluEC2SecurityGroups' - A list of EC2 security groups that are permitted to access clusters associated with this cluster security group.------ * 'cluDescription' - A description of the security group.------ * 'cluTags' - The list of tags for the cluster security group.-clusterSecurityGroup- :: ClusterSecurityGroup-clusterSecurityGroup =- ClusterSecurityGroup'- { _cluClusterSecurityGroupName = Nothing- , _cluIPRanges = Nothing- , _cluEC2SecurityGroups = Nothing- , _cluDescription = Nothing- , _cluTags = Nothing- }----- | The name of the cluster security group to which the operation was applied.-cluClusterSecurityGroupName :: Lens' ClusterSecurityGroup (Maybe Text)-cluClusterSecurityGroupName = lens _cluClusterSecurityGroupName (\ s a -> s{_cluClusterSecurityGroupName = a})---- | A list of IP ranges (CIDR blocks) that are permitted to access clusters associated with this cluster security group.-cluIPRanges :: Lens' ClusterSecurityGroup [IPRange]-cluIPRanges = lens _cluIPRanges (\ s a -> s{_cluIPRanges = a}) . _Default . _Coerce---- | A list of EC2 security groups that are permitted to access clusters associated with this cluster security group.-cluEC2SecurityGroups :: Lens' ClusterSecurityGroup [EC2SecurityGroup]-cluEC2SecurityGroups = lens _cluEC2SecurityGroups (\ s a -> s{_cluEC2SecurityGroups = a}) . _Default . _Coerce---- | A description of the security group.-cluDescription :: Lens' ClusterSecurityGroup (Maybe Text)-cluDescription = lens _cluDescription (\ s a -> s{_cluDescription = a})---- | The list of tags for the cluster security group.-cluTags :: Lens' ClusterSecurityGroup [Tag]-cluTags = lens _cluTags (\ s a -> s{_cluTags = a}) . _Default . _Coerce--instance FromXML ClusterSecurityGroup where- parseXML x- = ClusterSecurityGroup' <$>- (x .@? "ClusterSecurityGroupName") <*>- (x .@? "IPRanges" .!@ mempty >>=- may (parseXMLList "IPRange"))- <*>- (x .@? "EC2SecurityGroups" .!@ mempty >>=- may (parseXMLList "EC2SecurityGroup"))- <*> (x .@? "Description")- <*>- (x .@? "Tags" .!@ mempty >>=- may (parseXMLList "Tag"))--instance Hashable ClusterSecurityGroup where--instance NFData ClusterSecurityGroup where---- | Describes a cluster security group.------------ /See:/ 'clusterSecurityGroupMembership' smart constructor.-data ClusterSecurityGroupMembership = ClusterSecurityGroupMembership'- { _csgmStatus :: !(Maybe Text)- , _csgmClusterSecurityGroupName :: !(Maybe Text)- } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'ClusterSecurityGroupMembership' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'csgmStatus' - The status of the cluster security group.------ * 'csgmClusterSecurityGroupName' - The name of the cluster security group.-clusterSecurityGroupMembership- :: ClusterSecurityGroupMembership-clusterSecurityGroupMembership =- ClusterSecurityGroupMembership'- {_csgmStatus = Nothing, _csgmClusterSecurityGroupName = Nothing}----- | The status of the cluster security group.-csgmStatus :: Lens' ClusterSecurityGroupMembership (Maybe Text)-csgmStatus = lens _csgmStatus (\ s a -> s{_csgmStatus = a})---- | The name of the cluster security group.-csgmClusterSecurityGroupName :: Lens' ClusterSecurityGroupMembership (Maybe Text)-csgmClusterSecurityGroupName = lens _csgmClusterSecurityGroupName (\ s a -> s{_csgmClusterSecurityGroupName = a})--instance FromXML ClusterSecurityGroupMembership where- parseXML x- = ClusterSecurityGroupMembership' <$>- (x .@? "Status") <*>- (x .@? "ClusterSecurityGroupName")--instance Hashable ClusterSecurityGroupMembership- where--instance NFData ClusterSecurityGroupMembership where---- | Returns the destination region and retention period that are configured for cross-region snapshot copy.------------ /See:/ 'clusterSnapshotCopyStatus' smart constructor.-data ClusterSnapshotCopyStatus = ClusterSnapshotCopyStatus'- { _cscsRetentionPeriod :: !(Maybe Integer)- , _cscsDestinationRegion :: !(Maybe Text)- , _cscsSnapshotCopyGrantName :: !(Maybe Text)- } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'ClusterSnapshotCopyStatus' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'cscsRetentionPeriod' - The number of days that automated snapshots are retained in the destination region after they are copied from a source region.------ * 'cscsDestinationRegion' - The destination region that snapshots are automatically copied to when cross-region snapshot copy is enabled.------ * 'cscsSnapshotCopyGrantName' - The name of the snapshot copy grant.-clusterSnapshotCopyStatus- :: ClusterSnapshotCopyStatus-clusterSnapshotCopyStatus =- ClusterSnapshotCopyStatus'- { _cscsRetentionPeriod = Nothing- , _cscsDestinationRegion = Nothing- , _cscsSnapshotCopyGrantName = Nothing- }----- | The number of days that automated snapshots are retained in the destination region after they are copied from a source region.-cscsRetentionPeriod :: Lens' ClusterSnapshotCopyStatus (Maybe Integer)-cscsRetentionPeriod = lens _cscsRetentionPeriod (\ s a -> s{_cscsRetentionPeriod = a})---- | The destination region that snapshots are automatically copied to when cross-region snapshot copy is enabled.-cscsDestinationRegion :: Lens' ClusterSnapshotCopyStatus (Maybe Text)-cscsDestinationRegion = lens _cscsDestinationRegion (\ s a -> s{_cscsDestinationRegion = a})---- | The name of the snapshot copy grant.-cscsSnapshotCopyGrantName :: Lens' ClusterSnapshotCopyStatus (Maybe Text)-cscsSnapshotCopyGrantName = lens _cscsSnapshotCopyGrantName (\ s a -> s{_cscsSnapshotCopyGrantName = a})--instance FromXML ClusterSnapshotCopyStatus where- parseXML x- = ClusterSnapshotCopyStatus' <$>- (x .@? "RetentionPeriod") <*>- (x .@? "DestinationRegion")- <*> (x .@? "SnapshotCopyGrantName")--instance Hashable ClusterSnapshotCopyStatus where--instance NFData ClusterSnapshotCopyStatus where---- | Describes a subnet group.------------ /See:/ 'clusterSubnetGroup' smart constructor.-data ClusterSubnetGroup = ClusterSubnetGroup'- { _csgVPCId :: !(Maybe Text)- , _csgSubnets :: !(Maybe [Subnet])- , _csgClusterSubnetGroupName :: !(Maybe Text)- , _csgSubnetGroupStatus :: !(Maybe Text)- , _csgDescription :: !(Maybe Text)- , _csgTags :: !(Maybe [Tag])- } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'ClusterSubnetGroup' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'csgVPCId' - The VPC ID of the cluster subnet group.------ * 'csgSubnets' - A list of the VPC 'Subnet' elements.------ * 'csgClusterSubnetGroupName' - The name of the cluster subnet group.------ * 'csgSubnetGroupStatus' - The status of the cluster subnet group. Possible values are @Complete@ , @Incomplete@ and @Invalid@ .------ * 'csgDescription' - The description of the cluster subnet group.------ * 'csgTags' - The list of tags for the cluster subnet group.-clusterSubnetGroup- :: ClusterSubnetGroup-clusterSubnetGroup =- ClusterSubnetGroup'- { _csgVPCId = Nothing- , _csgSubnets = Nothing- , _csgClusterSubnetGroupName = Nothing- , _csgSubnetGroupStatus = Nothing- , _csgDescription = Nothing- , _csgTags = Nothing- }----- | The VPC ID of the cluster subnet group.-csgVPCId :: Lens' ClusterSubnetGroup (Maybe Text)-csgVPCId = lens _csgVPCId (\ s a -> s{_csgVPCId = a})---- | A list of the VPC 'Subnet' elements.-csgSubnets :: Lens' ClusterSubnetGroup [Subnet]-csgSubnets = lens _csgSubnets (\ s a -> s{_csgSubnets = a}) . _Default . _Coerce---- | The name of the cluster subnet group.-csgClusterSubnetGroupName :: Lens' ClusterSubnetGroup (Maybe Text)-csgClusterSubnetGroupName = lens _csgClusterSubnetGroupName (\ s a -> s{_csgClusterSubnetGroupName = a})---- | The status of the cluster subnet group. Possible values are @Complete@ , @Incomplete@ and @Invalid@ .-csgSubnetGroupStatus :: Lens' ClusterSubnetGroup (Maybe Text)-csgSubnetGroupStatus = lens _csgSubnetGroupStatus (\ s a -> s{_csgSubnetGroupStatus = a})---- | The description of the cluster subnet group.-csgDescription :: Lens' ClusterSubnetGroup (Maybe Text)-csgDescription = lens _csgDescription (\ s a -> s{_csgDescription = a})---- | The list of tags for the cluster subnet group.-csgTags :: Lens' ClusterSubnetGroup [Tag]-csgTags = lens _csgTags (\ s a -> s{_csgTags = a}) . _Default . _Coerce--instance FromXML ClusterSubnetGroup where- parseXML x- = ClusterSubnetGroup' <$>- (x .@? "VpcId") <*>- (x .@? "Subnets" .!@ mempty >>=- may (parseXMLList "Subnet"))- <*> (x .@? "ClusterSubnetGroupName")- <*> (x .@? "SubnetGroupStatus")- <*> (x .@? "Description")- <*>- (x .@? "Tags" .!@ mempty >>=- may (parseXMLList "Tag"))--instance Hashable ClusterSubnetGroup where--instance NFData ClusterSubnetGroup where---- | Describes a cluster version, including the parameter group family and description of the version.------------ /See:/ 'clusterVersion' smart constructor.-data ClusterVersion = ClusterVersion'- { _cvClusterParameterGroupFamily :: !(Maybe Text)- , _cvClusterVersion :: !(Maybe Text)- , _cvDescription :: !(Maybe Text)- } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'ClusterVersion' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'cvClusterParameterGroupFamily' - The name of the cluster parameter group family for the cluster.------ * 'cvClusterVersion' - The version number used by the cluster.------ * 'cvDescription' - The description of the cluster version.-clusterVersion- :: ClusterVersion-clusterVersion =- ClusterVersion'- { _cvClusterParameterGroupFamily = Nothing- , _cvClusterVersion = Nothing- , _cvDescription = Nothing- }----- | The name of the cluster parameter group family for the cluster.-cvClusterParameterGroupFamily :: Lens' ClusterVersion (Maybe Text)-cvClusterParameterGroupFamily = lens _cvClusterParameterGroupFamily (\ s a -> s{_cvClusterParameterGroupFamily = a})---- | The version number used by the cluster.-cvClusterVersion :: Lens' ClusterVersion (Maybe Text)-cvClusterVersion = lens _cvClusterVersion (\ s a -> s{_cvClusterVersion = a})---- | The description of the cluster version.-cvDescription :: Lens' ClusterVersion (Maybe Text)-cvDescription = lens _cvDescription (\ s a -> s{_cvDescription = a})--instance FromXML ClusterVersion where- parseXML x- = ClusterVersion' <$>- (x .@? "ClusterParameterGroupFamily") <*>- (x .@? "ClusterVersion")- <*> (x .@? "Description")--instance Hashable ClusterVersion where--instance NFData ClusterVersion where---- | Describes the default cluster parameters for a parameter group family.------------ /See:/ 'defaultClusterParameters' smart constructor.-data DefaultClusterParameters = DefaultClusterParameters'- { _dcpMarker :: !(Maybe Text)- , _dcpParameters :: !(Maybe [Parameter])- , _dcpParameterGroupFamily :: !(Maybe Text)- } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'DefaultClusterParameters' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'dcpMarker' - A value that indicates the starting point for the next set of response records in a subsequent request. If a value is returned in a response, you can retrieve the next set of records by providing this returned marker value in the @Marker@ parameter and retrying the command. If the @Marker@ field is empty, all response records have been retrieved for the request.------ * 'dcpParameters' - The list of cluster default parameters.------ * 'dcpParameterGroupFamily' - The name of the cluster parameter group family to which the engine default parameters apply.-defaultClusterParameters- :: DefaultClusterParameters-defaultClusterParameters =- DefaultClusterParameters'- { _dcpMarker = Nothing- , _dcpParameters = Nothing- , _dcpParameterGroupFamily = Nothing- }----- | A value that indicates the starting point for the next set of response records in a subsequent request. If a value is returned in a response, you can retrieve the next set of records by providing this returned marker value in the @Marker@ parameter and retrying the command. If the @Marker@ field is empty, all response records have been retrieved for the request.-dcpMarker :: Lens' DefaultClusterParameters (Maybe Text)-dcpMarker = lens _dcpMarker (\ s a -> s{_dcpMarker = a})---- | The list of cluster default parameters.-dcpParameters :: Lens' DefaultClusterParameters [Parameter]-dcpParameters = lens _dcpParameters (\ s a -> s{_dcpParameters = a}) . _Default . _Coerce---- | The name of the cluster parameter group family to which the engine default parameters apply.-dcpParameterGroupFamily :: Lens' DefaultClusterParameters (Maybe Text)-dcpParameterGroupFamily = lens _dcpParameterGroupFamily (\ s a -> s{_dcpParameterGroupFamily = a})--instance FromXML DefaultClusterParameters where- parseXML x- = DefaultClusterParameters' <$>- (x .@? "Marker") <*>- (x .@? "Parameters" .!@ mempty >>=- may (parseXMLList "Parameter"))- <*> (x .@? "ParameterGroupFamily")--instance Hashable DefaultClusterParameters where--instance NFData DefaultClusterParameters where---- | Describes an Amazon EC2 security group.------------ /See:/ 'ec2SecurityGroup' smart constructor.-data EC2SecurityGroup = EC2SecurityGroup'- { _esgStatus :: !(Maybe Text)- , _esgEC2SecurityGroupOwnerId :: !(Maybe Text)- , _esgEC2SecurityGroupName :: !(Maybe Text)- , _esgTags :: !(Maybe [Tag])- } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'EC2SecurityGroup' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'esgStatus' - The status of the EC2 security group.------ * 'esgEC2SecurityGroupOwnerId' - The AWS ID of the owner of the EC2 security group specified in the @EC2SecurityGroupName@ field.------ * 'esgEC2SecurityGroupName' - The name of the EC2 Security Group.------ * 'esgTags' - The list of tags for the EC2 security group.-ec2SecurityGroup- :: EC2SecurityGroup-ec2SecurityGroup =- EC2SecurityGroup'- { _esgStatus = Nothing- , _esgEC2SecurityGroupOwnerId = Nothing- , _esgEC2SecurityGroupName = Nothing- , _esgTags = Nothing- }----- | The status of the EC2 security group.-esgStatus :: Lens' EC2SecurityGroup (Maybe Text)-esgStatus = lens _esgStatus (\ s a -> s{_esgStatus = a})---- | The AWS ID of the owner of the EC2 security group specified in the @EC2SecurityGroupName@ field.-esgEC2SecurityGroupOwnerId :: Lens' EC2SecurityGroup (Maybe Text)-esgEC2SecurityGroupOwnerId = lens _esgEC2SecurityGroupOwnerId (\ s a -> s{_esgEC2SecurityGroupOwnerId = a})---- | The name of the EC2 Security Group.-esgEC2SecurityGroupName :: Lens' EC2SecurityGroup (Maybe Text)-esgEC2SecurityGroupName = lens _esgEC2SecurityGroupName (\ s a -> s{_esgEC2SecurityGroupName = a})---- | The list of tags for the EC2 security group.-esgTags :: Lens' EC2SecurityGroup [Tag]-esgTags = lens _esgTags (\ s a -> s{_esgTags = a}) . _Default . _Coerce--instance FromXML EC2SecurityGroup where- parseXML x- = EC2SecurityGroup' <$>- (x .@? "Status") <*>- (x .@? "EC2SecurityGroupOwnerId")- <*> (x .@? "EC2SecurityGroupName")- <*>- (x .@? "Tags" .!@ mempty >>=- may (parseXMLList "Tag"))--instance Hashable EC2SecurityGroup where--instance NFData EC2SecurityGroup where---- | Describes the status of the elastic IP (EIP) address.------------ /See:/ 'elasticIPStatus' smart constructor.-data ElasticIPStatus = ElasticIPStatus'- { _eisStatus :: !(Maybe Text)- , _eisElasticIP :: !(Maybe Text)- } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'ElasticIPStatus' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'eisStatus' - The status of the elastic IP (EIP) address.------ * 'eisElasticIP' - The elastic IP (EIP) address for the cluster.-elasticIPStatus- :: ElasticIPStatus-elasticIPStatus =- ElasticIPStatus' {_eisStatus = Nothing, _eisElasticIP = Nothing}----- | The status of the elastic IP (EIP) address.-eisStatus :: Lens' ElasticIPStatus (Maybe Text)-eisStatus = lens _eisStatus (\ s a -> s{_eisStatus = a})---- | The elastic IP (EIP) address for the cluster.-eisElasticIP :: Lens' ElasticIPStatus (Maybe Text)-eisElasticIP = lens _eisElasticIP (\ s a -> s{_eisElasticIP = a})--instance FromXML ElasticIPStatus where- parseXML x- = ElasticIPStatus' <$>- (x .@? "Status") <*> (x .@? "ElasticIp")--instance Hashable ElasticIPStatus where--instance NFData ElasticIPStatus where---- | Describes a connection endpoint.------------ /See:/ 'endpoint' smart constructor.-data Endpoint = Endpoint'- { _eAddress :: !(Maybe Text)- , _ePort :: !(Maybe Int)- } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'Endpoint' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'eAddress' - The DNS address of the Cluster.------ * 'ePort' - The port that the database engine is listening on.-endpoint- :: Endpoint-endpoint = Endpoint' {_eAddress = Nothing, _ePort = Nothing}----- | The DNS address of the Cluster.-eAddress :: Lens' Endpoint (Maybe Text)-eAddress = lens _eAddress (\ s a -> s{_eAddress = a})---- | The port that the database engine is listening on.-ePort :: Lens' Endpoint (Maybe Int)-ePort = lens _ePort (\ s a -> s{_ePort = a})--instance FromXML Endpoint where- parseXML x- = Endpoint' <$> (x .@? "Address") <*> (x .@? "Port")--instance Hashable Endpoint where--instance NFData Endpoint where---- | Describes an event.------------ /See:/ 'event' smart constructor.-data Event = Event'- { _eSourceType :: !(Maybe SourceType)- , _eSeverity :: !(Maybe Text)- , _eSourceIdentifier :: !(Maybe Text)- , _eDate :: !(Maybe ISO8601)- , _eEventCategories :: !(Maybe [Text])- , _eMessage :: !(Maybe Text)- , _eEventId :: !(Maybe Text)- } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'Event' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'eSourceType' - The source type for this event.------ * 'eSeverity' - The severity of the event. Values: ERROR, INFO------ * 'eSourceIdentifier' - The identifier for the source of the event.------ * 'eDate' - The date and time of the event.------ * 'eEventCategories' - A list of the event categories. Values: Configuration, Management, Monitoring, Security------ * 'eMessage' - The text of this event.------ * 'eEventId' - The identifier of the event.-event- :: Event-event =- Event'- { _eSourceType = Nothing- , _eSeverity = Nothing- , _eSourceIdentifier = Nothing- , _eDate = Nothing- , _eEventCategories = Nothing- , _eMessage = Nothing- , _eEventId = Nothing- }----- | The source type for this event.-eSourceType :: Lens' Event (Maybe SourceType)-eSourceType = lens _eSourceType (\ s a -> s{_eSourceType = a})---- | The severity of the event. Values: ERROR, INFO-eSeverity :: Lens' Event (Maybe Text)-eSeverity = lens _eSeverity (\ s a -> s{_eSeverity = a})---- | The identifier for the source of the event.-eSourceIdentifier :: Lens' Event (Maybe Text)-eSourceIdentifier = lens _eSourceIdentifier (\ s a -> s{_eSourceIdentifier = a})---- | The date and time of the event.-eDate :: Lens' Event (Maybe UTCTime)-eDate = lens _eDate (\ s a -> s{_eDate = a}) . mapping _Time---- | A list of the event categories. Values: Configuration, Management, Monitoring, Security-eEventCategories :: Lens' Event [Text]-eEventCategories = lens _eEventCategories (\ s a -> s{_eEventCategories = a}) . _Default . _Coerce---- | The text of this event.-eMessage :: Lens' Event (Maybe Text)-eMessage = lens _eMessage (\ s a -> s{_eMessage = a})---- | The identifier of the event.-eEventId :: Lens' Event (Maybe Text)-eEventId = lens _eEventId (\ s a -> s{_eEventId = a})--instance FromXML Event where- parseXML x- = Event' <$>- (x .@? "SourceType") <*> (x .@? "Severity") <*>- (x .@? "SourceIdentifier")- <*> (x .@? "Date")- <*>- (x .@? "EventCategories" .!@ mempty >>=- may (parseXMLList "EventCategory"))- <*> (x .@? "Message")- <*> (x .@? "EventId")--instance Hashable Event where--instance NFData Event where---- | Describes event categories.------------ /See:/ 'eventCategoriesMap' smart constructor.-data EventCategoriesMap = EventCategoriesMap'- { _ecmSourceType :: !(Maybe Text)- , _ecmEvents :: !(Maybe [EventInfoMap])- } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'EventCategoriesMap' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'ecmSourceType' - The source type, such as cluster or cluster-snapshot, that the returned categories belong to.------ * 'ecmEvents' - The events in the event category.-eventCategoriesMap- :: EventCategoriesMap-eventCategoriesMap =- EventCategoriesMap' {_ecmSourceType = Nothing, _ecmEvents = Nothing}----- | The source type, such as cluster or cluster-snapshot, that the returned categories belong to.-ecmSourceType :: Lens' EventCategoriesMap (Maybe Text)-ecmSourceType = lens _ecmSourceType (\ s a -> s{_ecmSourceType = a})---- | The events in the event category.-ecmEvents :: Lens' EventCategoriesMap [EventInfoMap]-ecmEvents = lens _ecmEvents (\ s a -> s{_ecmEvents = a}) . _Default . _Coerce--instance FromXML EventCategoriesMap where- parseXML x- = EventCategoriesMap' <$>- (x .@? "SourceType") <*>- (x .@? "Events" .!@ mempty >>=- may (parseXMLList "EventInfoMap"))--instance Hashable EventCategoriesMap where--instance NFData EventCategoriesMap where---- | Describes event information.------------ /See:/ 'eventInfoMap' smart constructor.-data EventInfoMap = EventInfoMap'- { _eimEventDescription :: !(Maybe Text)- , _eimSeverity :: !(Maybe Text)- , _eimEventCategories :: !(Maybe [Text])- , _eimEventId :: !(Maybe Text)- } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'EventInfoMap' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'eimEventDescription' - The description of an Amazon Redshift event.------ * 'eimSeverity' - The severity of the event. Values: ERROR, INFO------ * 'eimEventCategories' - The category of an Amazon Redshift event.------ * 'eimEventId' - The identifier of an Amazon Redshift event.-eventInfoMap- :: EventInfoMap-eventInfoMap =- EventInfoMap'- { _eimEventDescription = Nothing- , _eimSeverity = Nothing- , _eimEventCategories = Nothing- , _eimEventId = Nothing- }----- | The description of an Amazon Redshift event.-eimEventDescription :: Lens' EventInfoMap (Maybe Text)-eimEventDescription = lens _eimEventDescription (\ s a -> s{_eimEventDescription = a})---- | The severity of the event. Values: ERROR, INFO-eimSeverity :: Lens' EventInfoMap (Maybe Text)-eimSeverity = lens _eimSeverity (\ s a -> s{_eimSeverity = a})---- | The category of an Amazon Redshift event.-eimEventCategories :: Lens' EventInfoMap [Text]-eimEventCategories = lens _eimEventCategories (\ s a -> s{_eimEventCategories = a}) . _Default . _Coerce---- | The identifier of an Amazon Redshift event.-eimEventId :: Lens' EventInfoMap (Maybe Text)-eimEventId = lens _eimEventId (\ s a -> s{_eimEventId = a})--instance FromXML EventInfoMap where- parseXML x- = EventInfoMap' <$>- (x .@? "EventDescription") <*> (x .@? "Severity") <*>- (x .@? "EventCategories" .!@ mempty >>=- may (parseXMLList "EventCategory"))- <*> (x .@? "EventId")--instance Hashable EventInfoMap where--instance NFData EventInfoMap where---- | Describes event subscriptions.------------ /See:/ 'eventSubscription' smart constructor.-data EventSubscription = EventSubscription'- { _esStatus :: !(Maybe Text)- , _esCustomerAWSId :: !(Maybe Text)- , _esCustSubscriptionId :: !(Maybe Text)- , _esSNSTopicARN :: !(Maybe Text)- , _esEnabled :: !(Maybe Bool)- , _esSourceType :: !(Maybe Text)- , _esSeverity :: !(Maybe Text)- , _esSubscriptionCreationTime :: !(Maybe ISO8601)- , _esEventCategoriesList :: !(Maybe [Text])- , _esTags :: !(Maybe [Tag])- , _esSourceIdsList :: !(Maybe [Text])- } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'EventSubscription' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'esStatus' - The status of the Amazon Redshift event notification subscription. Constraints: * Can be one of the following: active | no-permission | topic-not-exist * The status "no-permission" indicates that Amazon Redshift no longer has permission to post to the Amazon SNS topic. The status "topic-not-exist" indicates that the topic was deleted after the subscription was created.------ * 'esCustomerAWSId' - The AWS customer account associated with the Amazon Redshift event notification subscription.------ * 'esCustSubscriptionId' - The name of the Amazon Redshift event notification subscription.------ * 'esSNSTopicARN' - The Amazon Resource Name (ARN) of the Amazon SNS topic used by the event notification subscription.------ * 'esEnabled' - A Boolean value indicating whether the subscription is enabled. @true@ indicates the subscription is enabled.------ * 'esSourceType' - The source type of the events returned the Amazon Redshift event notification, such as cluster, or cluster-snapshot.------ * 'esSeverity' - The event severity specified in the Amazon Redshift event notification subscription. Values: ERROR, INFO------ * 'esSubscriptionCreationTime' - The date and time the Amazon Redshift event notification subscription was created.------ * 'esEventCategoriesList' - The list of Amazon Redshift event categories specified in the event notification subscription. Values: Configuration, Management, Monitoring, Security------ * 'esTags' - The list of tags for the event subscription.------ * 'esSourceIdsList' - A list of the sources that publish events to the Amazon Redshift event notification subscription.-eventSubscription- :: EventSubscription-eventSubscription =- EventSubscription'- { _esStatus = Nothing- , _esCustomerAWSId = Nothing- , _esCustSubscriptionId = Nothing- , _esSNSTopicARN = Nothing- , _esEnabled = Nothing- , _esSourceType = Nothing- , _esSeverity = Nothing- , _esSubscriptionCreationTime = Nothing- , _esEventCategoriesList = Nothing- , _esTags = Nothing- , _esSourceIdsList = Nothing- }----- | The status of the Amazon Redshift event notification subscription. Constraints: * Can be one of the following: active | no-permission | topic-not-exist * The status "no-permission" indicates that Amazon Redshift no longer has permission to post to the Amazon SNS topic. The status "topic-not-exist" indicates that the topic was deleted after the subscription was created.-esStatus :: Lens' EventSubscription (Maybe Text)-esStatus = lens _esStatus (\ s a -> s{_esStatus = a})---- | The AWS customer account associated with the Amazon Redshift event notification subscription.-esCustomerAWSId :: Lens' EventSubscription (Maybe Text)-esCustomerAWSId = lens _esCustomerAWSId (\ s a -> s{_esCustomerAWSId = a})---- | The name of the Amazon Redshift event notification subscription.-esCustSubscriptionId :: Lens' EventSubscription (Maybe Text)-esCustSubscriptionId = lens _esCustSubscriptionId (\ s a -> s{_esCustSubscriptionId = a})---- | The Amazon Resource Name (ARN) of the Amazon SNS topic used by the event notification subscription.-esSNSTopicARN :: Lens' EventSubscription (Maybe Text)-esSNSTopicARN = lens _esSNSTopicARN (\ s a -> s{_esSNSTopicARN = a})---- | A Boolean value indicating whether the subscription is enabled. @true@ indicates the subscription is enabled.-esEnabled :: Lens' EventSubscription (Maybe Bool)-esEnabled = lens _esEnabled (\ s a -> s{_esEnabled = a})---- | The source type of the events returned the Amazon Redshift event notification, such as cluster, or cluster-snapshot.-esSourceType :: Lens' EventSubscription (Maybe Text)-esSourceType = lens _esSourceType (\ s a -> s{_esSourceType = a})---- | The event severity specified in the Amazon Redshift event notification subscription. Values: ERROR, INFO-esSeverity :: Lens' EventSubscription (Maybe Text)-esSeverity = lens _esSeverity (\ s a -> s{_esSeverity = a})---- | The date and time the Amazon Redshift event notification subscription was created.-esSubscriptionCreationTime :: Lens' EventSubscription (Maybe UTCTime)-esSubscriptionCreationTime = lens _esSubscriptionCreationTime (\ s a -> s{_esSubscriptionCreationTime = a}) . mapping _Time---- | The list of Amazon Redshift event categories specified in the event notification subscription. Values: Configuration, Management, Monitoring, Security-esEventCategoriesList :: Lens' EventSubscription [Text]-esEventCategoriesList = lens _esEventCategoriesList (\ s a -> s{_esEventCategoriesList = a}) . _Default . _Coerce---- | The list of tags for the event subscription.-esTags :: Lens' EventSubscription [Tag]-esTags = lens _esTags (\ s a -> s{_esTags = a}) . _Default . _Coerce---- | A list of the sources that publish events to the Amazon Redshift event notification subscription.-esSourceIdsList :: Lens' EventSubscription [Text]-esSourceIdsList = lens _esSourceIdsList (\ s a -> s{_esSourceIdsList = a}) . _Default . _Coerce--instance FromXML EventSubscription where- parseXML x- = EventSubscription' <$>- (x .@? "Status") <*> (x .@? "CustomerAwsId") <*>- (x .@? "CustSubscriptionId")- <*> (x .@? "SnsTopicArn")- <*> (x .@? "Enabled")- <*> (x .@? "SourceType")- <*> (x .@? "Severity")- <*> (x .@? "SubscriptionCreationTime")- <*>- (x .@? "EventCategoriesList" .!@ mempty >>=- may (parseXMLList "EventCategory"))- <*>- (x .@? "Tags" .!@ mempty >>=- may (parseXMLList "Tag"))- <*>- (x .@? "SourceIdsList" .!@ mempty >>=- may (parseXMLList "SourceId"))--instance Hashable EventSubscription where--instance NFData EventSubscription where---- | Returns information about an HSM client certificate. The certificate is stored in a secure Hardware Storage Module (HSM), and used by the Amazon Redshift cluster to encrypt data files.------------ /See:/ 'hsmClientCertificate' smart constructor.-data HSMClientCertificate = HSMClientCertificate'- { _hccHSMClientCertificateIdentifier :: !(Maybe Text)- , _hccHSMClientCertificatePublicKey :: !(Maybe Text)- , _hccTags :: !(Maybe [Tag])- } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'HSMClientCertificate' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'hccHSMClientCertificateIdentifier' - The identifier of the HSM client certificate.------ * 'hccHSMClientCertificatePublicKey' - The public key that the Amazon Redshift cluster will use to connect to the HSM. You must register the public key in the HSM.------ * 'hccTags' - The list of tags for the HSM client certificate.-hsmClientCertificate- :: HSMClientCertificate-hsmClientCertificate =- HSMClientCertificate'- { _hccHSMClientCertificateIdentifier = Nothing- , _hccHSMClientCertificatePublicKey = Nothing- , _hccTags = Nothing- }----- | The identifier of the HSM client certificate.-hccHSMClientCertificateIdentifier :: Lens' HSMClientCertificate (Maybe Text)-hccHSMClientCertificateIdentifier = lens _hccHSMClientCertificateIdentifier (\ s a -> s{_hccHSMClientCertificateIdentifier = a})---- | The public key that the Amazon Redshift cluster will use to connect to the HSM. You must register the public key in the HSM.-hccHSMClientCertificatePublicKey :: Lens' HSMClientCertificate (Maybe Text)-hccHSMClientCertificatePublicKey = lens _hccHSMClientCertificatePublicKey (\ s a -> s{_hccHSMClientCertificatePublicKey = a})---- | The list of tags for the HSM client certificate.-hccTags :: Lens' HSMClientCertificate [Tag]-hccTags = lens _hccTags (\ s a -> s{_hccTags = a}) . _Default . _Coerce--instance FromXML HSMClientCertificate where- parseXML x- = HSMClientCertificate' <$>- (x .@? "HsmClientCertificateIdentifier") <*>- (x .@? "HsmClientCertificatePublicKey")- <*>- (x .@? "Tags" .!@ mempty >>=- may (parseXMLList "Tag"))--instance Hashable HSMClientCertificate where--instance NFData HSMClientCertificate where---- | Returns information about an HSM configuration, which is an object that describes to Amazon Redshift clusters the information they require to connect to an HSM where they can store database encryption keys.------------ /See:/ 'hsmConfiguration' smart constructor.-data HSMConfiguration = HSMConfiguration'- { _hcHSMConfigurationIdentifier :: !(Maybe Text)- , _hcHSMPartitionName :: !(Maybe Text)- , _hcDescription :: !(Maybe Text)- , _hcTags :: !(Maybe [Tag])- , _hcHSMIPAddress :: !(Maybe Text)- } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'HSMConfiguration' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'hcHSMConfigurationIdentifier' - The name of the Amazon Redshift HSM configuration.------ * 'hcHSMPartitionName' - The name of the partition in the HSM where the Amazon Redshift clusters will store their database encryption keys.------ * 'hcDescription' - A text description of the HSM configuration.------ * 'hcTags' - The list of tags for the HSM configuration.------ * 'hcHSMIPAddress' - The IP address that the Amazon Redshift cluster must use to access the HSM.-hsmConfiguration- :: HSMConfiguration-hsmConfiguration =- HSMConfiguration'- { _hcHSMConfigurationIdentifier = Nothing- , _hcHSMPartitionName = Nothing- , _hcDescription = Nothing- , _hcTags = Nothing- , _hcHSMIPAddress = Nothing- }----- | The name of the Amazon Redshift HSM configuration.-hcHSMConfigurationIdentifier :: Lens' HSMConfiguration (Maybe Text)-hcHSMConfigurationIdentifier = lens _hcHSMConfigurationIdentifier (\ s a -> s{_hcHSMConfigurationIdentifier = a})---- | The name of the partition in the HSM where the Amazon Redshift clusters will store their database encryption keys.-hcHSMPartitionName :: Lens' HSMConfiguration (Maybe Text)-hcHSMPartitionName = lens _hcHSMPartitionName (\ s a -> s{_hcHSMPartitionName = a})---- | A text description of the HSM configuration.-hcDescription :: Lens' HSMConfiguration (Maybe Text)-hcDescription = lens _hcDescription (\ s a -> s{_hcDescription = a})---- | The list of tags for the HSM configuration.-hcTags :: Lens' HSMConfiguration [Tag]-hcTags = lens _hcTags (\ s a -> s{_hcTags = a}) . _Default . _Coerce---- | The IP address that the Amazon Redshift cluster must use to access the HSM.-hcHSMIPAddress :: Lens' HSMConfiguration (Maybe Text)-hcHSMIPAddress = lens _hcHSMIPAddress (\ s a -> s{_hcHSMIPAddress = a})--instance FromXML HSMConfiguration where- parseXML x- = HSMConfiguration' <$>- (x .@? "HsmConfigurationIdentifier") <*>- (x .@? "HsmPartitionName")- <*> (x .@? "Description")- <*>- (x .@? "Tags" .!@ mempty >>=- may (parseXMLList "Tag"))- <*> (x .@? "HsmIpAddress")--instance Hashable HSMConfiguration where--instance NFData HSMConfiguration where---- | Describes the status of changes to HSM settings.------------ /See:/ 'hsmStatus' smart constructor.-data HSMStatus = HSMStatus'- { _hsStatus :: !(Maybe Text)- , _hsHSMConfigurationIdentifier :: !(Maybe Text)- , _hsHSMClientCertificateIdentifier :: !(Maybe Text)- } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'HSMStatus' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'hsStatus' - Reports whether the Amazon Redshift cluster has finished applying any HSM settings changes specified in a modify cluster command. Values: active, applying------ * 'hsHSMConfigurationIdentifier' - Specifies the name of the HSM configuration that contains the information the Amazon Redshift cluster can use to retrieve and store keys in an HSM.------ * 'hsHSMClientCertificateIdentifier' - Specifies the name of the HSM client certificate the Amazon Redshift cluster uses to retrieve the data encryption keys stored in an HSM.-hsmStatus- :: HSMStatus-hsmStatus =- HSMStatus'- { _hsStatus = Nothing- , _hsHSMConfigurationIdentifier = Nothing- , _hsHSMClientCertificateIdentifier = Nothing- }----- | Reports whether the Amazon Redshift cluster has finished applying any HSM settings changes specified in a modify cluster command. Values: active, applying-hsStatus :: Lens' HSMStatus (Maybe Text)-hsStatus = lens _hsStatus (\ s a -> s{_hsStatus = a})---- | Specifies the name of the HSM configuration that contains the information the Amazon Redshift cluster can use to retrieve and store keys in an HSM.-hsHSMConfigurationIdentifier :: Lens' HSMStatus (Maybe Text)-hsHSMConfigurationIdentifier = lens _hsHSMConfigurationIdentifier (\ s a -> s{_hsHSMConfigurationIdentifier = a})---- | Specifies the name of the HSM client certificate the Amazon Redshift cluster uses to retrieve the data encryption keys stored in an HSM.-hsHSMClientCertificateIdentifier :: Lens' HSMStatus (Maybe Text)-hsHSMClientCertificateIdentifier = lens _hsHSMClientCertificateIdentifier (\ s a -> s{_hsHSMClientCertificateIdentifier = a})--instance FromXML HSMStatus where- parseXML x- = HSMStatus' <$>- (x .@? "Status") <*>- (x .@? "HsmConfigurationIdentifier")- <*> (x .@? "HsmClientCertificateIdentifier")--instance Hashable HSMStatus where--instance NFData HSMStatus where---- | Describes an IP range used in a security group.------------ /See:/ 'ipRange' smart constructor.-data IPRange = IPRange'- { _irStatus :: !(Maybe Text)- , _irCIdRIP :: !(Maybe Text)- , _irTags :: !(Maybe [Tag])- } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'IPRange' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'irStatus' - The status of the IP range, for example, "authorized".------ * 'irCIdRIP' - The IP range in Classless Inter-Domain Routing (CIDR) notation.------ * 'irTags' - The list of tags for the IP range.-ipRange- :: IPRange-ipRange = IPRange' {_irStatus = Nothing, _irCIdRIP = Nothing, _irTags = Nothing}----- | The status of the IP range, for example, "authorized".-irStatus :: Lens' IPRange (Maybe Text)-irStatus = lens _irStatus (\ s a -> s{_irStatus = a})---- | The IP range in Classless Inter-Domain Routing (CIDR) notation.-irCIdRIP :: Lens' IPRange (Maybe Text)-irCIdRIP = lens _irCIdRIP (\ s a -> s{_irCIdRIP = a})---- | The list of tags for the IP range.-irTags :: Lens' IPRange [Tag]-irTags = lens _irTags (\ s a -> s{_irTags = a}) . _Default . _Coerce--instance FromXML IPRange where- parseXML x- = IPRange' <$>- (x .@? "Status") <*> (x .@? "CIDRIP") <*>- (x .@? "Tags" .!@ mempty >>=- may (parseXMLList "Tag"))--instance Hashable IPRange where--instance NFData IPRange where---- | Describes the status of logging for a cluster.------------ /See:/ 'loggingStatus' smart constructor.-data LoggingStatus = LoggingStatus'- { _lsLastFailureTime :: !(Maybe ISO8601)- , _lsLastSuccessfulDeliveryTime :: !(Maybe ISO8601)- , _lsS3KeyPrefix :: !(Maybe Text)- , _lsBucketName :: !(Maybe Text)- , _lsLoggingEnabled :: !(Maybe Bool)- , _lsLastFailureMessage :: !(Maybe Text)- } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'LoggingStatus' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'lsLastFailureTime' - The last time when logs failed to be delivered.------ * 'lsLastSuccessfulDeliveryTime' - The last time that logs were delivered.------ * 'lsS3KeyPrefix' - The prefix applied to the log file names.------ * 'lsBucketName' - The name of the S3 bucket where the log files are stored.------ * 'lsLoggingEnabled' - @true@ if logging is on, @false@ if logging is off.------ * 'lsLastFailureMessage' - The message indicating that logs failed to be delivered.-loggingStatus- :: LoggingStatus-loggingStatus =- LoggingStatus'- { _lsLastFailureTime = Nothing- , _lsLastSuccessfulDeliveryTime = Nothing- , _lsS3KeyPrefix = Nothing- , _lsBucketName = Nothing- , _lsLoggingEnabled = Nothing- , _lsLastFailureMessage = Nothing- }----- | The last time when logs failed to be delivered.-lsLastFailureTime :: Lens' LoggingStatus (Maybe UTCTime)-lsLastFailureTime = lens _lsLastFailureTime (\ s a -> s{_lsLastFailureTime = a}) . mapping _Time---- | The last time that logs were delivered.-lsLastSuccessfulDeliveryTime :: Lens' LoggingStatus (Maybe UTCTime)-lsLastSuccessfulDeliveryTime = lens _lsLastSuccessfulDeliveryTime (\ s a -> s{_lsLastSuccessfulDeliveryTime = a}) . mapping _Time---- | The prefix applied to the log file names.-lsS3KeyPrefix :: Lens' LoggingStatus (Maybe Text)-lsS3KeyPrefix = lens _lsS3KeyPrefix (\ s a -> s{_lsS3KeyPrefix = a})---- | The name of the S3 bucket where the log files are stored.-lsBucketName :: Lens' LoggingStatus (Maybe Text)-lsBucketName = lens _lsBucketName (\ s a -> s{_lsBucketName = a})---- | @true@ if logging is on, @false@ if logging is off.-lsLoggingEnabled :: Lens' LoggingStatus (Maybe Bool)-lsLoggingEnabled = lens _lsLoggingEnabled (\ s a -> s{_lsLoggingEnabled = a})---- | The message indicating that logs failed to be delivered.-lsLastFailureMessage :: Lens' LoggingStatus (Maybe Text)-lsLastFailureMessage = lens _lsLastFailureMessage (\ s a -> s{_lsLastFailureMessage = a})--instance FromXML LoggingStatus where- parseXML x- = LoggingStatus' <$>- (x .@? "LastFailureTime") <*>- (x .@? "LastSuccessfulDeliveryTime")- <*> (x .@? "S3KeyPrefix")- <*> (x .@? "BucketName")- <*> (x .@? "LoggingEnabled")- <*> (x .@? "LastFailureMessage")--instance Hashable LoggingStatus where--instance NFData LoggingStatus where---- | Describes an orderable cluster option.------------ /See:/ 'orderableClusterOption' smart constructor.-data OrderableClusterOption = OrderableClusterOption'- { _ocoAvailabilityZones :: !(Maybe [AvailabilityZone])- , _ocoClusterType :: !(Maybe Text)- , _ocoClusterVersion :: !(Maybe Text)- , _ocoNodeType :: !(Maybe Text)- } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'OrderableClusterOption' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'ocoAvailabilityZones' - A list of availability zones for the orderable cluster.------ * 'ocoClusterType' - The cluster type, for example @multi-node@ .------ * 'ocoClusterVersion' - The version of the orderable cluster.------ * 'ocoNodeType' - The node type for the orderable cluster.-orderableClusterOption- :: OrderableClusterOption-orderableClusterOption =- OrderableClusterOption'- { _ocoAvailabilityZones = Nothing- , _ocoClusterType = Nothing- , _ocoClusterVersion = Nothing- , _ocoNodeType = Nothing- }----- | A list of availability zones for the orderable cluster.-ocoAvailabilityZones :: Lens' OrderableClusterOption [AvailabilityZone]-ocoAvailabilityZones = lens _ocoAvailabilityZones (\ s a -> s{_ocoAvailabilityZones = a}) . _Default . _Coerce---- | The cluster type, for example @multi-node@ .-ocoClusterType :: Lens' OrderableClusterOption (Maybe Text)-ocoClusterType = lens _ocoClusterType (\ s a -> s{_ocoClusterType = a})---- | The version of the orderable cluster.-ocoClusterVersion :: Lens' OrderableClusterOption (Maybe Text)-ocoClusterVersion = lens _ocoClusterVersion (\ s a -> s{_ocoClusterVersion = a})---- | The node type for the orderable cluster.-ocoNodeType :: Lens' OrderableClusterOption (Maybe Text)-ocoNodeType = lens _ocoNodeType (\ s a -> s{_ocoNodeType = a})--instance FromXML OrderableClusterOption where- parseXML x- = OrderableClusterOption' <$>- (x .@? "AvailabilityZones" .!@ mempty >>=- may (parseXMLList "AvailabilityZone"))- <*> (x .@? "ClusterType")- <*> (x .@? "ClusterVersion")- <*> (x .@? "NodeType")--instance Hashable OrderableClusterOption where--instance NFData OrderableClusterOption where---- | Describes a parameter in a cluster parameter group.------------ /See:/ 'parameter' smart constructor.-data Parameter = Parameter'- { _pApplyType :: !(Maybe ParameterApplyType)- , _pParameterValue :: !(Maybe Text)- , _pMinimumEngineVersion :: !(Maybe Text)- , _pSource :: !(Maybe Text)- , _pIsModifiable :: !(Maybe Bool)- , _pDataType :: !(Maybe Text)- , _pAllowedValues :: !(Maybe Text)- , _pParameterName :: !(Maybe Text)- , _pDescription :: !(Maybe Text)- } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'Parameter' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'pApplyType' - Specifies how to apply the WLM configuration parameter. Some properties can be applied dynamically, while other properties require that any associated clusters be rebooted for the configuration changes to be applied. For more information about parameters and parameter groups, go to <http://docs.aws.amazon.com/redshift/latest/mgmt/working-with-parameter-groups.html Amazon Redshift Parameter Groups> in the /Amazon Redshift Cluster Management Guide/ .------ * 'pParameterValue' - The value of the parameter.------ * 'pMinimumEngineVersion' - The earliest engine version to which the parameter can apply.------ * 'pSource' - The source of the parameter value, such as "engine-default" or "user".------ * 'pIsModifiable' - If @true@ , the parameter can be modified. Some parameters have security or operational implications that prevent them from being changed.------ * 'pDataType' - The data type of the parameter.------ * 'pAllowedValues' - The valid range of values for the parameter.------ * 'pParameterName' - The name of the parameter.------ * 'pDescription' - A description of the parameter.-parameter- :: Parameter-parameter =- Parameter'- { _pApplyType = Nothing- , _pParameterValue = Nothing- , _pMinimumEngineVersion = Nothing- , _pSource = Nothing- , _pIsModifiable = Nothing- , _pDataType = Nothing- , _pAllowedValues = Nothing- , _pParameterName = Nothing- , _pDescription = Nothing- }----- | Specifies how to apply the WLM configuration parameter. Some properties can be applied dynamically, while other properties require that any associated clusters be rebooted for the configuration changes to be applied. For more information about parameters and parameter groups, go to <http://docs.aws.amazon.com/redshift/latest/mgmt/working-with-parameter-groups.html Amazon Redshift Parameter Groups> in the /Amazon Redshift Cluster Management Guide/ .-pApplyType :: Lens' Parameter (Maybe ParameterApplyType)-pApplyType = lens _pApplyType (\ s a -> s{_pApplyType = a})---- | The value of the parameter.-pParameterValue :: Lens' Parameter (Maybe Text)-pParameterValue = lens _pParameterValue (\ s a -> s{_pParameterValue = a})---- | The earliest engine version to which the parameter can apply.-pMinimumEngineVersion :: Lens' Parameter (Maybe Text)-pMinimumEngineVersion = lens _pMinimumEngineVersion (\ s a -> s{_pMinimumEngineVersion = a})---- | The source of the parameter value, such as "engine-default" or "user".-pSource :: Lens' Parameter (Maybe Text)-pSource = lens _pSource (\ s a -> s{_pSource = a})---- | If @true@ , the parameter can be modified. Some parameters have security or operational implications that prevent them from being changed.-pIsModifiable :: Lens' Parameter (Maybe Bool)-pIsModifiable = lens _pIsModifiable (\ s a -> s{_pIsModifiable = a})---- | The data type of the parameter.-pDataType :: Lens' Parameter (Maybe Text)-pDataType = lens _pDataType (\ s a -> s{_pDataType = a})---- | The valid range of values for the parameter.-pAllowedValues :: Lens' Parameter (Maybe Text)-pAllowedValues = lens _pAllowedValues (\ s a -> s{_pAllowedValues = a})---- | The name of the parameter.-pParameterName :: Lens' Parameter (Maybe Text)-pParameterName = lens _pParameterName (\ s a -> s{_pParameterName = a})---- | A description of the parameter.-pDescription :: Lens' Parameter (Maybe Text)-pDescription = lens _pDescription (\ s a -> s{_pDescription = a})--instance FromXML Parameter where- parseXML x- = Parameter' <$>- (x .@? "ApplyType") <*> (x .@? "ParameterValue") <*>- (x .@? "MinimumEngineVersion")- <*> (x .@? "Source")- <*> (x .@? "IsModifiable")- <*> (x .@? "DataType")- <*> (x .@? "AllowedValues")- <*> (x .@? "ParameterName")- <*> (x .@? "Description")--instance Hashable Parameter where--instance NFData Parameter where--instance ToQuery Parameter where- toQuery Parameter'{..}- = mconcat- ["ApplyType" =: _pApplyType,- "ParameterValue" =: _pParameterValue,- "MinimumEngineVersion" =: _pMinimumEngineVersion,- "Source" =: _pSource,- "IsModifiable" =: _pIsModifiable,- "DataType" =: _pDataType,- "AllowedValues" =: _pAllowedValues,- "ParameterName" =: _pParameterName,- "Description" =: _pDescription]---- | Describes cluster attributes that are in a pending state. A change to one or more the attributes was requested and is in progress or will be applied.------------ /See:/ 'pendingModifiedValues' smart constructor.-data PendingModifiedValues = PendingModifiedValues'- { _pmvEnhancedVPCRouting :: !(Maybe Bool)- , _pmvMasterUserPassword :: !(Maybe Text)- , _pmvPubliclyAccessible :: !(Maybe Bool)- , _pmvAutomatedSnapshotRetentionPeriod :: !(Maybe Int)- , _pmvClusterIdentifier :: !(Maybe Text)- , _pmvNumberOfNodes :: !(Maybe Int)- , _pmvClusterType :: !(Maybe Text)- , _pmvClusterVersion :: !(Maybe Text)- , _pmvNodeType :: !(Maybe Text)- } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'PendingModifiedValues' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'pmvEnhancedVPCRouting' - An option that specifies whether to create the cluster with enhanced VPC routing enabled. To create a cluster that uses enhanced VPC routing, the cluster must be in a VPC. For more information, see <http://docs.aws.amazon.com/redshift/latest/mgmt/enhanced-vpc-routing.html Enhanced VPC Routing> in the Amazon Redshift Cluster Management Guide. If this option is @true@ , enhanced VPC routing is enabled. Default: false------ * 'pmvMasterUserPassword' - The pending or in-progress change of the master user password for the cluster.------ * 'pmvPubliclyAccessible' - The pending or in-progress change of the ability to connect to the cluster from the public network.------ * 'pmvAutomatedSnapshotRetentionPeriod' - The pending or in-progress change of the automated snapshot retention period.------ * 'pmvClusterIdentifier' - The pending or in-progress change of the new identifier for the cluster.------ * 'pmvNumberOfNodes' - The pending or in-progress change of the number of nodes in the cluster.------ * 'pmvClusterType' - The pending or in-progress change of the cluster type.------ * 'pmvClusterVersion' - The pending or in-progress change of the service version.------ * 'pmvNodeType' - The pending or in-progress change of the cluster's node type.-pendingModifiedValues- :: PendingModifiedValues-pendingModifiedValues =- PendingModifiedValues'- { _pmvEnhancedVPCRouting = Nothing- , _pmvMasterUserPassword = Nothing- , _pmvPubliclyAccessible = Nothing- , _pmvAutomatedSnapshotRetentionPeriod = Nothing- , _pmvClusterIdentifier = Nothing- , _pmvNumberOfNodes = Nothing- , _pmvClusterType = Nothing- , _pmvClusterVersion = Nothing- , _pmvNodeType = Nothing- }----- | An option that specifies whether to create the cluster with enhanced VPC routing enabled. To create a cluster that uses enhanced VPC routing, the cluster must be in a VPC. For more information, see <http://docs.aws.amazon.com/redshift/latest/mgmt/enhanced-vpc-routing.html Enhanced VPC Routing> in the Amazon Redshift Cluster Management Guide. If this option is @true@ , enhanced VPC routing is enabled. Default: false-pmvEnhancedVPCRouting :: Lens' PendingModifiedValues (Maybe Bool)-pmvEnhancedVPCRouting = lens _pmvEnhancedVPCRouting (\ s a -> s{_pmvEnhancedVPCRouting = a})---- | The pending or in-progress change of the master user password for the cluster.-pmvMasterUserPassword :: Lens' PendingModifiedValues (Maybe Text)-pmvMasterUserPassword = lens _pmvMasterUserPassword (\ s a -> s{_pmvMasterUserPassword = a})---- | The pending or in-progress change of the ability to connect to the cluster from the public network.-pmvPubliclyAccessible :: Lens' PendingModifiedValues (Maybe Bool)-pmvPubliclyAccessible = lens _pmvPubliclyAccessible (\ s a -> s{_pmvPubliclyAccessible = a})---- | The pending or in-progress change of the automated snapshot retention period.-pmvAutomatedSnapshotRetentionPeriod :: Lens' PendingModifiedValues (Maybe Int)-pmvAutomatedSnapshotRetentionPeriod = lens _pmvAutomatedSnapshotRetentionPeriod (\ s a -> s{_pmvAutomatedSnapshotRetentionPeriod = a})---- | The pending or in-progress change of the new identifier for the cluster.-pmvClusterIdentifier :: Lens' PendingModifiedValues (Maybe Text)-pmvClusterIdentifier = lens _pmvClusterIdentifier (\ s a -> s{_pmvClusterIdentifier = a})---- | The pending or in-progress change of the number of nodes in the cluster.-pmvNumberOfNodes :: Lens' PendingModifiedValues (Maybe Int)-pmvNumberOfNodes = lens _pmvNumberOfNodes (\ s a -> s{_pmvNumberOfNodes = a})---- | The pending or in-progress change of the cluster type.-pmvClusterType :: Lens' PendingModifiedValues (Maybe Text)-pmvClusterType = lens _pmvClusterType (\ s a -> s{_pmvClusterType = a})---- | The pending or in-progress change of the service version.-pmvClusterVersion :: Lens' PendingModifiedValues (Maybe Text)-pmvClusterVersion = lens _pmvClusterVersion (\ s a -> s{_pmvClusterVersion = a})---- | The pending or in-progress change of the cluster's node type.-pmvNodeType :: Lens' PendingModifiedValues (Maybe Text)-pmvNodeType = lens _pmvNodeType (\ s a -> s{_pmvNodeType = a})--instance FromXML PendingModifiedValues where- parseXML x- = PendingModifiedValues' <$>- (x .@? "EnhancedVpcRouting") <*>- (x .@? "MasterUserPassword")- <*> (x .@? "PubliclyAccessible")- <*> (x .@? "AutomatedSnapshotRetentionPeriod")- <*> (x .@? "ClusterIdentifier")- <*> (x .@? "NumberOfNodes")- <*> (x .@? "ClusterType")- <*> (x .@? "ClusterVersion")- <*> (x .@? "NodeType")--instance Hashable PendingModifiedValues where--instance NFData PendingModifiedValues where---- | Describes a recurring charge.------------ /See:/ 'recurringCharge' smart constructor.-data RecurringCharge = RecurringCharge'- { _rcRecurringChargeFrequency :: !(Maybe Text)- , _rcRecurringChargeAmount :: !(Maybe Double)- } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'RecurringCharge' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'rcRecurringChargeFrequency' - The frequency at which the recurring charge amount is applied.------ * 'rcRecurringChargeAmount' - The amount charged per the period of time specified by the recurring charge frequency.-recurringCharge- :: RecurringCharge-recurringCharge =- RecurringCharge'- {_rcRecurringChargeFrequency = Nothing, _rcRecurringChargeAmount = Nothing}----- | The frequency at which the recurring charge amount is applied.-rcRecurringChargeFrequency :: Lens' RecurringCharge (Maybe Text)-rcRecurringChargeFrequency = lens _rcRecurringChargeFrequency (\ s a -> s{_rcRecurringChargeFrequency = a})---- | The amount charged per the period of time specified by the recurring charge frequency.-rcRecurringChargeAmount :: Lens' RecurringCharge (Maybe Double)-rcRecurringChargeAmount = lens _rcRecurringChargeAmount (\ s a -> s{_rcRecurringChargeAmount = a})--instance FromXML RecurringCharge where- parseXML x- = RecurringCharge' <$>- (x .@? "RecurringChargeFrequency") <*>- (x .@? "RecurringChargeAmount")--instance Hashable RecurringCharge where--instance NFData RecurringCharge where---- | Describes a reserved node. You can call the 'DescribeReservedNodeOfferings' API to obtain the available reserved node offerings.------------ /See:/ 'reservedNode' smart constructor.-data ReservedNode = ReservedNode'- { _rnReservedNodeOfferingType :: !(Maybe ReservedNodeOfferingType)- , _rnState :: !(Maybe Text)- , _rnCurrencyCode :: !(Maybe Text)- , _rnStartTime :: !(Maybe ISO8601)- , _rnNodeCount :: !(Maybe Int)- , _rnReservedNodeId :: !(Maybe Text)- , _rnReservedNodeOfferingId :: !(Maybe Text)- , _rnRecurringCharges :: !(Maybe [RecurringCharge])- , _rnOfferingType :: !(Maybe Text)- , _rnUsagePrice :: !(Maybe Double)- , _rnNodeType :: !(Maybe Text)- , _rnFixedPrice :: !(Maybe Double)- , _rnDuration :: !(Maybe Int)- } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'ReservedNode' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'rnReservedNodeOfferingType' - Undocumented member.------ * 'rnState' - The state of the reserved compute node. Possible Values: * pending-payment-This reserved node has recently been purchased, and the sale has been approved, but payment has not yet been confirmed. * active-This reserved node is owned by the caller and is available for use. * payment-failed-Payment failed for the purchase attempt.------ * 'rnCurrencyCode' - The currency code for the reserved cluster.------ * 'rnStartTime' - The time the reservation started. You purchase a reserved node offering for a duration. This is the start time of that duration.------ * 'rnNodeCount' - The number of reserved compute nodes.------ * 'rnReservedNodeId' - The unique identifier for the reservation.------ * 'rnReservedNodeOfferingId' - The identifier for the reserved node offering.------ * 'rnRecurringCharges' - The recurring charges for the reserved node.------ * 'rnOfferingType' - The anticipated utilization of the reserved node, as defined in the reserved node offering.------ * 'rnUsagePrice' - The hourly rate Amazon Redshift charges you for this reserved node.------ * 'rnNodeType' - The node type of the reserved node.------ * 'rnFixedPrice' - The fixed cost Amazon Redshift charges you for this reserved node.------ * 'rnDuration' - The duration of the node reservation in seconds.-reservedNode- :: ReservedNode-reservedNode =- ReservedNode'- { _rnReservedNodeOfferingType = Nothing- , _rnState = Nothing- , _rnCurrencyCode = Nothing- , _rnStartTime = Nothing- , _rnNodeCount = Nothing- , _rnReservedNodeId = Nothing- , _rnReservedNodeOfferingId = Nothing- , _rnRecurringCharges = Nothing- , _rnOfferingType = Nothing- , _rnUsagePrice = Nothing- , _rnNodeType = Nothing- , _rnFixedPrice = Nothing- , _rnDuration = Nothing- }----- | Undocumented member.-rnReservedNodeOfferingType :: Lens' ReservedNode (Maybe ReservedNodeOfferingType)-rnReservedNodeOfferingType = lens _rnReservedNodeOfferingType (\ s a -> s{_rnReservedNodeOfferingType = a})---- | The state of the reserved compute node. Possible Values: * pending-payment-This reserved node has recently been purchased, and the sale has been approved, but payment has not yet been confirmed. * active-This reserved node is owned by the caller and is available for use. * payment-failed-Payment failed for the purchase attempt.-rnState :: Lens' ReservedNode (Maybe Text)-rnState = lens _rnState (\ s a -> s{_rnState = a})---- | The currency code for the reserved cluster.-rnCurrencyCode :: Lens' ReservedNode (Maybe Text)-rnCurrencyCode = lens _rnCurrencyCode (\ s a -> s{_rnCurrencyCode = a})---- | The time the reservation started. You purchase a reserved node offering for a duration. This is the start time of that duration.-rnStartTime :: Lens' ReservedNode (Maybe UTCTime)-rnStartTime = lens _rnStartTime (\ s a -> s{_rnStartTime = a}) . mapping _Time---- | The number of reserved compute nodes.-rnNodeCount :: Lens' ReservedNode (Maybe Int)-rnNodeCount = lens _rnNodeCount (\ s a -> s{_rnNodeCount = a})---- | The unique identifier for the reservation.-rnReservedNodeId :: Lens' ReservedNode (Maybe Text)-rnReservedNodeId = lens _rnReservedNodeId (\ s a -> s{_rnReservedNodeId = a})---- | The identifier for the reserved node offering.-rnReservedNodeOfferingId :: Lens' ReservedNode (Maybe Text)-rnReservedNodeOfferingId = lens _rnReservedNodeOfferingId (\ s a -> s{_rnReservedNodeOfferingId = a})---- | The recurring charges for the reserved node.-rnRecurringCharges :: Lens' ReservedNode [RecurringCharge]-rnRecurringCharges = lens _rnRecurringCharges (\ s a -> s{_rnRecurringCharges = a}) . _Default . _Coerce---- | The anticipated utilization of the reserved node, as defined in the reserved node offering.-rnOfferingType :: Lens' ReservedNode (Maybe Text)-rnOfferingType = lens _rnOfferingType (\ s a -> s{_rnOfferingType = a})---- | The hourly rate Amazon Redshift charges you for this reserved node.-rnUsagePrice :: Lens' ReservedNode (Maybe Double)-rnUsagePrice = lens _rnUsagePrice (\ s a -> s{_rnUsagePrice = a})---- | The node type of the reserved node.-rnNodeType :: Lens' ReservedNode (Maybe Text)-rnNodeType = lens _rnNodeType (\ s a -> s{_rnNodeType = a})---- | The fixed cost Amazon Redshift charges you for this reserved node.-rnFixedPrice :: Lens' ReservedNode (Maybe Double)-rnFixedPrice = lens _rnFixedPrice (\ s a -> s{_rnFixedPrice = a})---- | The duration of the node reservation in seconds.-rnDuration :: Lens' ReservedNode (Maybe Int)-rnDuration = lens _rnDuration (\ s a -> s{_rnDuration = a})--instance FromXML ReservedNode where- parseXML x- = ReservedNode' <$>- (x .@? "ReservedNodeOfferingType") <*>- (x .@? "State")- <*> (x .@? "CurrencyCode")- <*> (x .@? "StartTime")- <*> (x .@? "NodeCount")- <*> (x .@? "ReservedNodeId")- <*> (x .@? "ReservedNodeOfferingId")- <*>- (x .@? "RecurringCharges" .!@ mempty >>=- may (parseXMLList "RecurringCharge"))- <*> (x .@? "OfferingType")- <*> (x .@? "UsagePrice")- <*> (x .@? "NodeType")- <*> (x .@? "FixedPrice")- <*> (x .@? "Duration")--instance Hashable ReservedNode where--instance NFData ReservedNode where---- | Describes a reserved node offering.------------ /See:/ 'reservedNodeOffering' smart constructor.-data ReservedNodeOffering = ReservedNodeOffering'- { _rnoReservedNodeOfferingType :: !(Maybe ReservedNodeOfferingType)- , _rnoCurrencyCode :: !(Maybe Text)- , _rnoReservedNodeOfferingId :: !(Maybe Text)- , _rnoRecurringCharges :: !(Maybe [RecurringCharge])- , _rnoOfferingType :: !(Maybe Text)- , _rnoUsagePrice :: !(Maybe Double)- , _rnoNodeType :: !(Maybe Text)- , _rnoFixedPrice :: !(Maybe Double)- , _rnoDuration :: !(Maybe Int)- } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'ReservedNodeOffering' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'rnoReservedNodeOfferingType' - Undocumented member.------ * 'rnoCurrencyCode' - The currency code for the compute nodes offering.------ * 'rnoReservedNodeOfferingId' - The offering identifier.------ * 'rnoRecurringCharges' - The charge to your account regardless of whether you are creating any clusters using the node offering. Recurring charges are only in effect for heavy-utilization reserved nodes.------ * 'rnoOfferingType' - The anticipated utilization of the reserved node, as defined in the reserved node offering.------ * 'rnoUsagePrice' - The rate you are charged for each hour the cluster that is using the offering is running.------ * 'rnoNodeType' - The node type offered by the reserved node offering.------ * 'rnoFixedPrice' - The upfront fixed charge you will pay to purchase the specific reserved node offering.------ * 'rnoDuration' - The duration, in seconds, for which the offering will reserve the node.-reservedNodeOffering- :: ReservedNodeOffering-reservedNodeOffering =- ReservedNodeOffering'- { _rnoReservedNodeOfferingType = Nothing- , _rnoCurrencyCode = Nothing- , _rnoReservedNodeOfferingId = Nothing- , _rnoRecurringCharges = Nothing- , _rnoOfferingType = Nothing- , _rnoUsagePrice = Nothing- , _rnoNodeType = Nothing- , _rnoFixedPrice = Nothing- , _rnoDuration = Nothing- }----- | Undocumented member.-rnoReservedNodeOfferingType :: Lens' ReservedNodeOffering (Maybe ReservedNodeOfferingType)-rnoReservedNodeOfferingType = lens _rnoReservedNodeOfferingType (\ s a -> s{_rnoReservedNodeOfferingType = a})---- | The currency code for the compute nodes offering.-rnoCurrencyCode :: Lens' ReservedNodeOffering (Maybe Text)-rnoCurrencyCode = lens _rnoCurrencyCode (\ s a -> s{_rnoCurrencyCode = a})---- | The offering identifier.-rnoReservedNodeOfferingId :: Lens' ReservedNodeOffering (Maybe Text)-rnoReservedNodeOfferingId = lens _rnoReservedNodeOfferingId (\ s a -> s{_rnoReservedNodeOfferingId = a})---- | The charge to your account regardless of whether you are creating any clusters using the node offering. Recurring charges are only in effect for heavy-utilization reserved nodes.-rnoRecurringCharges :: Lens' ReservedNodeOffering [RecurringCharge]-rnoRecurringCharges = lens _rnoRecurringCharges (\ s a -> s{_rnoRecurringCharges = a}) . _Default . _Coerce---- | The anticipated utilization of the reserved node, as defined in the reserved node offering.-rnoOfferingType :: Lens' ReservedNodeOffering (Maybe Text)-rnoOfferingType = lens _rnoOfferingType (\ s a -> s{_rnoOfferingType = a})---- | The rate you are charged for each hour the cluster that is using the offering is running.-rnoUsagePrice :: Lens' ReservedNodeOffering (Maybe Double)-rnoUsagePrice = lens _rnoUsagePrice (\ s a -> s{_rnoUsagePrice = a})---- | The node type offered by the reserved node offering.-rnoNodeType :: Lens' ReservedNodeOffering (Maybe Text)-rnoNodeType = lens _rnoNodeType (\ s a -> s{_rnoNodeType = a})---- | The upfront fixed charge you will pay to purchase the specific reserved node offering.-rnoFixedPrice :: Lens' ReservedNodeOffering (Maybe Double)-rnoFixedPrice = lens _rnoFixedPrice (\ s a -> s{_rnoFixedPrice = a})---- | The duration, in seconds, for which the offering will reserve the node.-rnoDuration :: Lens' ReservedNodeOffering (Maybe Int)-rnoDuration = lens _rnoDuration (\ s a -> s{_rnoDuration = a})--instance FromXML ReservedNodeOffering where- parseXML x- = ReservedNodeOffering' <$>- (x .@? "ReservedNodeOfferingType") <*>- (x .@? "CurrencyCode")- <*> (x .@? "ReservedNodeOfferingId")- <*>- (x .@? "RecurringCharges" .!@ mempty >>=- may (parseXMLList "RecurringCharge"))- <*> (x .@? "OfferingType")- <*> (x .@? "UsagePrice")- <*> (x .@? "NodeType")- <*> (x .@? "FixedPrice")- <*> (x .@? "Duration")--instance Hashable ReservedNodeOffering where--instance NFData ReservedNodeOffering where---- | Describes the status of a cluster restore action. Returns null if the cluster was not created by restoring a snapshot.------------ /See:/ 'restoreStatus' smart constructor.-data RestoreStatus = RestoreStatus'- { _rsStatus :: !(Maybe Text)- , _rsEstimatedTimeToCompletionInSeconds :: !(Maybe Integer)- , _rsCurrentRestoreRateInMegaBytesPerSecond :: !(Maybe Double)- , _rsProgressInMegaBytes :: !(Maybe Integer)- , _rsElapsedTimeInSeconds :: !(Maybe Integer)- , _rsSnapshotSizeInMegaBytes :: !(Maybe Integer)- } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'RestoreStatus' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'rsStatus' - The status of the restore action. Returns starting, restoring, completed, or failed.------ * 'rsEstimatedTimeToCompletionInSeconds' - The estimate of the time remaining before the restore will complete. Returns 0 for a completed restore.------ * 'rsCurrentRestoreRateInMegaBytesPerSecond' - The number of megabytes per second being transferred from the backup storage. Returns the average rate for a completed backup.------ * 'rsProgressInMegaBytes' - The number of megabytes that have been transferred from snapshot storage.------ * 'rsElapsedTimeInSeconds' - The amount of time an in-progress restore has been running, or the amount of time it took a completed restore to finish.------ * 'rsSnapshotSizeInMegaBytes' - The size of the set of snapshot data used to restore the cluster.-restoreStatus- :: RestoreStatus-restoreStatus =- RestoreStatus'- { _rsStatus = Nothing- , _rsEstimatedTimeToCompletionInSeconds = Nothing- , _rsCurrentRestoreRateInMegaBytesPerSecond = Nothing- , _rsProgressInMegaBytes = Nothing- , _rsElapsedTimeInSeconds = Nothing- , _rsSnapshotSizeInMegaBytes = Nothing- }----- | The status of the restore action. Returns starting, restoring, completed, or failed.-rsStatus :: Lens' RestoreStatus (Maybe Text)-rsStatus = lens _rsStatus (\ s a -> s{_rsStatus = a})---- | The estimate of the time remaining before the restore will complete. Returns 0 for a completed restore.-rsEstimatedTimeToCompletionInSeconds :: Lens' RestoreStatus (Maybe Integer)-rsEstimatedTimeToCompletionInSeconds = lens _rsEstimatedTimeToCompletionInSeconds (\ s a -> s{_rsEstimatedTimeToCompletionInSeconds = a})---- | The number of megabytes per second being transferred from the backup storage. Returns the average rate for a completed backup.-rsCurrentRestoreRateInMegaBytesPerSecond :: Lens' RestoreStatus (Maybe Double)-rsCurrentRestoreRateInMegaBytesPerSecond = lens _rsCurrentRestoreRateInMegaBytesPerSecond (\ s a -> s{_rsCurrentRestoreRateInMegaBytesPerSecond = a})---- | The number of megabytes that have been transferred from snapshot storage.-rsProgressInMegaBytes :: Lens' RestoreStatus (Maybe Integer)-rsProgressInMegaBytes = lens _rsProgressInMegaBytes (\ s a -> s{_rsProgressInMegaBytes = a})---- | The amount of time an in-progress restore has been running, or the amount of time it took a completed restore to finish.-rsElapsedTimeInSeconds :: Lens' RestoreStatus (Maybe Integer)-rsElapsedTimeInSeconds = lens _rsElapsedTimeInSeconds (\ s a -> s{_rsElapsedTimeInSeconds = a})---- | The size of the set of snapshot data used to restore the cluster.-rsSnapshotSizeInMegaBytes :: Lens' RestoreStatus (Maybe Integer)-rsSnapshotSizeInMegaBytes = lens _rsSnapshotSizeInMegaBytes (\ s a -> s{_rsSnapshotSizeInMegaBytes = a})--instance FromXML RestoreStatus where- parseXML x- = RestoreStatus' <$>- (x .@? "Status") <*>- (x .@? "EstimatedTimeToCompletionInSeconds")- <*> (x .@? "CurrentRestoreRateInMegaBytesPerSecond")- <*> (x .@? "ProgressInMegaBytes")- <*> (x .@? "ElapsedTimeInSeconds")- <*> (x .@? "SnapshotSizeInMegaBytes")--instance Hashable RestoreStatus where--instance NFData RestoreStatus where---- | Describes a snapshot.------------ /See:/ 'snapshot' smart constructor.-data Snapshot = Snapshot'- { _sStatus :: !(Maybe Text)- , _sRestorableNodeTypes :: !(Maybe [Text])- , _sAccountsWithRestoreAccess :: !(Maybe [AccountWithRestoreAccess])- , _sEnhancedVPCRouting :: !(Maybe Bool)- , _sSnapshotIdentifier :: !(Maybe Text)- , _sEncryptedWithHSM :: !(Maybe Bool)- , _sMasterUsername :: !(Maybe Text)- , _sSourceRegion :: !(Maybe Text)- , _sVPCId :: !(Maybe Text)- , _sBackupProgressInMegaBytes :: !(Maybe Double)- , _sEncrypted :: !(Maybe Bool)- , _sClusterIdentifier :: !(Maybe Text)- , _sNumberOfNodes :: !(Maybe Int)- , _sSnapshotType :: !(Maybe Text)- , _sKMSKeyId :: !(Maybe Text)- , _sAvailabilityZone :: !(Maybe Text)- , _sCurrentBackupRateInMegaBytesPerSecond :: !(Maybe Double)- , _sSnapshotCreateTime :: !(Maybe ISO8601)- , _sClusterVersion :: !(Maybe Text)- , _sOwnerAccount :: !(Maybe Text)- , _sNodeType :: !(Maybe Text)- , _sElapsedTimeInSeconds :: !(Maybe Integer)- , _sClusterCreateTime :: !(Maybe ISO8601)- , _sEstimatedSecondsToCompletion :: !(Maybe Integer)- , _sActualIncrementalBackupSizeInMegaBytes :: !(Maybe Double)- , _sTags :: !(Maybe [Tag])- , _sPort :: !(Maybe Int)- , _sTotalBackupSizeInMegaBytes :: !(Maybe Double)- , _sDBName :: !(Maybe Text)- } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'Snapshot' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'sStatus' - The snapshot status. The value of the status depends on the API operation used. * 'CreateClusterSnapshot' and 'CopyClusterSnapshot' returns status as "creating". * 'DescribeClusterSnapshots' returns status as "creating", "available", "final snapshot", or "failed". * 'DeleteClusterSnapshot' returns status as "deleted".------ * 'sRestorableNodeTypes' - The list of node types that this cluster snapshot is able to restore into.------ * 'sAccountsWithRestoreAccess' - A list of the AWS customer accounts authorized to restore the snapshot. Returns @null@ if no accounts are authorized. Visible only to the snapshot owner.------ * 'sEnhancedVPCRouting' - An option that specifies whether to create the cluster with enhanced VPC routing enabled. To create a cluster that uses enhanced VPC routing, the cluster must be in a VPC. For more information, see <http://docs.aws.amazon.com/redshift/latest/mgmt/enhanced-vpc-routing.html Enhanced VPC Routing> in the Amazon Redshift Cluster Management Guide. If this option is @true@ , enhanced VPC routing is enabled. Default: false------ * 'sSnapshotIdentifier' - The snapshot identifier that is provided in the request.------ * 'sEncryptedWithHSM' - A boolean that indicates whether the snapshot data is encrypted using the HSM keys of the source cluster. @true@ indicates that the data is encrypted using HSM keys.------ * 'sMasterUsername' - The master user name for the cluster.------ * 'sSourceRegion' - The source region from which the snapshot was copied.------ * 'sVPCId' - The VPC identifier of the cluster if the snapshot is from a cluster in a VPC. Otherwise, this field is not in the output.------ * 'sBackupProgressInMegaBytes' - The number of megabytes that have been transferred to the snapshot backup.------ * 'sEncrypted' - If @true@ , the data in the snapshot is encrypted at rest.------ * 'sClusterIdentifier' - The identifier of the cluster for which the snapshot was taken.------ * 'sNumberOfNodes' - The number of nodes in the cluster.------ * 'sSnapshotType' - The snapshot type. Snapshots created using 'CreateClusterSnapshot' and 'CopyClusterSnapshot' will be of type "manual".------ * 'sKMSKeyId' - The AWS Key Management Service (KMS) key ID of the encryption key that was used to encrypt data in the cluster from which the snapshot was taken.------ * 'sAvailabilityZone' - The Availability Zone in which the cluster was created.------ * 'sCurrentBackupRateInMegaBytesPerSecond' - The number of megabytes per second being transferred to the snapshot backup. Returns @0@ for a completed backup.------ * 'sSnapshotCreateTime' - The time (UTC) when Amazon Redshift began the snapshot. A snapshot contains a copy of the cluster data as of this exact time.------ * 'sClusterVersion' - The version ID of the Amazon Redshift engine that is running on the cluster.------ * 'sOwnerAccount' - For manual snapshots, the AWS customer account used to create or copy the snapshot. For automatic snapshots, the owner of the cluster. The owner can perform all snapshot actions, such as sharing a manual snapshot.------ * 'sNodeType' - The node type of the nodes in the cluster.------ * 'sElapsedTimeInSeconds' - The amount of time an in-progress snapshot backup has been running, or the amount of time it took a completed backup to finish.------ * 'sClusterCreateTime' - The time (UTC) when the cluster was originally created.------ * 'sEstimatedSecondsToCompletion' - The estimate of the time remaining before the snapshot backup will complete. Returns @0@ for a completed backup.------ * 'sActualIncrementalBackupSizeInMegaBytes' - The size of the incremental backup.------ * 'sTags' - The list of tags for the cluster snapshot.------ * 'sPort' - The port that the cluster is listening on.------ * 'sTotalBackupSizeInMegaBytes' - The size of the complete set of backup data that would be used to restore the cluster.------ * 'sDBName' - The name of the database that was created when the cluster was created.-snapshot- :: Snapshot-snapshot =- Snapshot'- { _sStatus = Nothing- , _sRestorableNodeTypes = Nothing- , _sAccountsWithRestoreAccess = Nothing- , _sEnhancedVPCRouting = Nothing- , _sSnapshotIdentifier = Nothing- , _sEncryptedWithHSM = Nothing- , _sMasterUsername = Nothing- , _sSourceRegion = Nothing- , _sVPCId = Nothing- , _sBackupProgressInMegaBytes = Nothing- , _sEncrypted = Nothing- , _sClusterIdentifier = Nothing- , _sNumberOfNodes = Nothing- , _sSnapshotType = Nothing- , _sKMSKeyId = Nothing- , _sAvailabilityZone = Nothing- , _sCurrentBackupRateInMegaBytesPerSecond = Nothing- , _sSnapshotCreateTime = Nothing- , _sClusterVersion = Nothing- , _sOwnerAccount = Nothing- , _sNodeType = Nothing- , _sElapsedTimeInSeconds = Nothing- , _sClusterCreateTime = Nothing- , _sEstimatedSecondsToCompletion = Nothing- , _sActualIncrementalBackupSizeInMegaBytes = Nothing- , _sTags = Nothing- , _sPort = Nothing- , _sTotalBackupSizeInMegaBytes = Nothing- , _sDBName = Nothing- }----- | The snapshot status. The value of the status depends on the API operation used. * 'CreateClusterSnapshot' and 'CopyClusterSnapshot' returns status as "creating". * 'DescribeClusterSnapshots' returns status as "creating", "available", "final snapshot", or "failed". * 'DeleteClusterSnapshot' returns status as "deleted".-sStatus :: Lens' Snapshot (Maybe Text)-sStatus = lens _sStatus (\ s a -> s{_sStatus = a})---- | The list of node types that this cluster snapshot is able to restore into.-sRestorableNodeTypes :: Lens' Snapshot [Text]-sRestorableNodeTypes = lens _sRestorableNodeTypes (\ s a -> s{_sRestorableNodeTypes = a}) . _Default . _Coerce---- | A list of the AWS customer accounts authorized to restore the snapshot. Returns @null@ if no accounts are authorized. Visible only to the snapshot owner.-sAccountsWithRestoreAccess :: Lens' Snapshot [AccountWithRestoreAccess]-sAccountsWithRestoreAccess = lens _sAccountsWithRestoreAccess (\ s a -> s{_sAccountsWithRestoreAccess = a}) . _Default . _Coerce---- | An option that specifies whether to create the cluster with enhanced VPC routing enabled. To create a cluster that uses enhanced VPC routing, the cluster must be in a VPC. For more information, see <http://docs.aws.amazon.com/redshift/latest/mgmt/enhanced-vpc-routing.html Enhanced VPC Routing> in the Amazon Redshift Cluster Management Guide. If this option is @true@ , enhanced VPC routing is enabled. Default: false-sEnhancedVPCRouting :: Lens' Snapshot (Maybe Bool)-sEnhancedVPCRouting = lens _sEnhancedVPCRouting (\ s a -> s{_sEnhancedVPCRouting = a})---- | The snapshot identifier that is provided in the request.-sSnapshotIdentifier :: Lens' Snapshot (Maybe Text)-sSnapshotIdentifier = lens _sSnapshotIdentifier (\ s a -> s{_sSnapshotIdentifier = a})---- | A boolean that indicates whether the snapshot data is encrypted using the HSM keys of the source cluster. @true@ indicates that the data is encrypted using HSM keys.-sEncryptedWithHSM :: Lens' Snapshot (Maybe Bool)-sEncryptedWithHSM = lens _sEncryptedWithHSM (\ s a -> s{_sEncryptedWithHSM = a})---- | The master user name for the cluster.-sMasterUsername :: Lens' Snapshot (Maybe Text)-sMasterUsername = lens _sMasterUsername (\ s a -> s{_sMasterUsername = a})---- | The source region from which the snapshot was copied.-sSourceRegion :: Lens' Snapshot (Maybe Text)-sSourceRegion = lens _sSourceRegion (\ s a -> s{_sSourceRegion = a})---- | The VPC identifier of the cluster if the snapshot is from a cluster in a VPC. Otherwise, this field is not in the output.-sVPCId :: Lens' Snapshot (Maybe Text)-sVPCId = lens _sVPCId (\ s a -> s{_sVPCId = a})---- | The number of megabytes that have been transferred to the snapshot backup.-sBackupProgressInMegaBytes :: Lens' Snapshot (Maybe Double)-sBackupProgressInMegaBytes = lens _sBackupProgressInMegaBytes (\ s a -> s{_sBackupProgressInMegaBytes = a})---- | If @true@ , the data in the snapshot is encrypted at rest.-sEncrypted :: Lens' Snapshot (Maybe Bool)-sEncrypted = lens _sEncrypted (\ s a -> s{_sEncrypted = a})---- | The identifier of the cluster for which the snapshot was taken.-sClusterIdentifier :: Lens' Snapshot (Maybe Text)-sClusterIdentifier = lens _sClusterIdentifier (\ s a -> s{_sClusterIdentifier = a})---- | The number of nodes in the cluster.-sNumberOfNodes :: Lens' Snapshot (Maybe Int)-sNumberOfNodes = lens _sNumberOfNodes (\ s a -> s{_sNumberOfNodes = a})---- | The snapshot type. Snapshots created using 'CreateClusterSnapshot' and 'CopyClusterSnapshot' will be of type "manual".-sSnapshotType :: Lens' Snapshot (Maybe Text)-sSnapshotType = lens _sSnapshotType (\ s a -> s{_sSnapshotType = a})---- | The AWS Key Management Service (KMS) key ID of the encryption key that was used to encrypt data in the cluster from which the snapshot was taken.-sKMSKeyId :: Lens' Snapshot (Maybe Text)-sKMSKeyId = lens _sKMSKeyId (\ s a -> s{_sKMSKeyId = a})---- | The Availability Zone in which the cluster was created.-sAvailabilityZone :: Lens' Snapshot (Maybe Text)-sAvailabilityZone = lens _sAvailabilityZone (\ s a -> s{_sAvailabilityZone = a})---- | The number of megabytes per second being transferred to the snapshot backup. Returns @0@ for a completed backup.-sCurrentBackupRateInMegaBytesPerSecond :: Lens' Snapshot (Maybe Double)-sCurrentBackupRateInMegaBytesPerSecond = lens _sCurrentBackupRateInMegaBytesPerSecond (\ s a -> s{_sCurrentBackupRateInMegaBytesPerSecond = a})---- | The time (UTC) when Amazon Redshift began the snapshot. A snapshot contains a copy of the cluster data as of this exact time.-sSnapshotCreateTime :: Lens' Snapshot (Maybe UTCTime)-sSnapshotCreateTime = lens _sSnapshotCreateTime (\ s a -> s{_sSnapshotCreateTime = a}) . mapping _Time---- | The version ID of the Amazon Redshift engine that is running on the cluster.-sClusterVersion :: Lens' Snapshot (Maybe Text)-sClusterVersion = lens _sClusterVersion (\ s a -> s{_sClusterVersion = a})---- | For manual snapshots, the AWS customer account used to create or copy the snapshot. For automatic snapshots, the owner of the cluster. The owner can perform all snapshot actions, such as sharing a manual snapshot.-sOwnerAccount :: Lens' Snapshot (Maybe Text)-sOwnerAccount = lens _sOwnerAccount (\ s a -> s{_sOwnerAccount = a})---- | The node type of the nodes in the cluster.-sNodeType :: Lens' Snapshot (Maybe Text)-sNodeType = lens _sNodeType (\ s a -> s{_sNodeType = a})---- | The amount of time an in-progress snapshot backup has been running, or the amount of time it took a completed backup to finish.-sElapsedTimeInSeconds :: Lens' Snapshot (Maybe Integer)-sElapsedTimeInSeconds = lens _sElapsedTimeInSeconds (\ s a -> s{_sElapsedTimeInSeconds = a})---- | The time (UTC) when the cluster was originally created.-sClusterCreateTime :: Lens' Snapshot (Maybe UTCTime)-sClusterCreateTime = lens _sClusterCreateTime (\ s a -> s{_sClusterCreateTime = a}) . mapping _Time---- | The estimate of the time remaining before the snapshot backup will complete. Returns @0@ for a completed backup.-sEstimatedSecondsToCompletion :: Lens' Snapshot (Maybe Integer)-sEstimatedSecondsToCompletion = lens _sEstimatedSecondsToCompletion (\ s a -> s{_sEstimatedSecondsToCompletion = a})---- | The size of the incremental backup.-sActualIncrementalBackupSizeInMegaBytes :: Lens' Snapshot (Maybe Double)-sActualIncrementalBackupSizeInMegaBytes = lens _sActualIncrementalBackupSizeInMegaBytes (\ s a -> s{_sActualIncrementalBackupSizeInMegaBytes = a})---- | The list of tags for the cluster snapshot.-sTags :: Lens' Snapshot [Tag]-sTags = lens _sTags (\ s a -> s{_sTags = a}) . _Default . _Coerce---- | The port that the cluster is listening on.-sPort :: Lens' Snapshot (Maybe Int)-sPort = lens _sPort (\ s a -> s{_sPort = a})---- | The size of the complete set of backup data that would be used to restore the cluster.-sTotalBackupSizeInMegaBytes :: Lens' Snapshot (Maybe Double)-sTotalBackupSizeInMegaBytes = lens _sTotalBackupSizeInMegaBytes (\ s a -> s{_sTotalBackupSizeInMegaBytes = a})---- | The name of the database that was created when the cluster was created.-sDBName :: Lens' Snapshot (Maybe Text)-sDBName = lens _sDBName (\ s a -> s{_sDBName = a})--instance FromXML Snapshot where- parseXML x- = Snapshot' <$>- (x .@? "Status") <*>- (x .@? "RestorableNodeTypes" .!@ mempty >>=- may (parseXMLList "NodeType"))- <*>- (x .@? "AccountsWithRestoreAccess" .!@ mempty >>=- may (parseXMLList "AccountWithRestoreAccess"))- <*> (x .@? "EnhancedVpcRouting")- <*> (x .@? "SnapshotIdentifier")- <*> (x .@? "EncryptedWithHSM")- <*> (x .@? "MasterUsername")- <*> (x .@? "SourceRegion")- <*> (x .@? "VpcId")- <*> (x .@? "BackupProgressInMegaBytes")- <*> (x .@? "Encrypted")- <*> (x .@? "ClusterIdentifier")- <*> (x .@? "NumberOfNodes")- <*> (x .@? "SnapshotType")- <*> (x .@? "KmsKeyId")- <*> (x .@? "AvailabilityZone")- <*> (x .@? "CurrentBackupRateInMegaBytesPerSecond")- <*> (x .@? "SnapshotCreateTime")- <*> (x .@? "ClusterVersion")- <*> (x .@? "OwnerAccount")- <*> (x .@? "NodeType")- <*> (x .@? "ElapsedTimeInSeconds")- <*> (x .@? "ClusterCreateTime")- <*> (x .@? "EstimatedSecondsToCompletion")- <*> (x .@? "ActualIncrementalBackupSizeInMegaBytes")- <*>- (x .@? "Tags" .!@ mempty >>=- may (parseXMLList "Tag"))- <*> (x .@? "Port")- <*> (x .@? "TotalBackupSizeInMegaBytes")- <*> (x .@? "DBName")--instance Hashable Snapshot where--instance NFData Snapshot where---- | The snapshot copy grant that grants Amazon Redshift permission to encrypt copied snapshots with the specified customer master key (CMK) from AWS KMS in the destination region.--------- For more information about managing snapshot copy grants, go to <http://docs.aws.amazon.com/redshift/latest/mgmt/working-with-db-encryption.html Amazon Redshift Database Encryption> in the /Amazon Redshift Cluster Management Guide/ .--------- /See:/ 'snapshotCopyGrant' smart constructor.-data SnapshotCopyGrant = SnapshotCopyGrant'- { _scgKMSKeyId :: !(Maybe Text)- , _scgSnapshotCopyGrantName :: !(Maybe Text)- , _scgTags :: !(Maybe [Tag])- } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'SnapshotCopyGrant' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'scgKMSKeyId' - The unique identifier of the customer master key (CMK) in AWS KMS to which Amazon Redshift is granted permission.------ * 'scgSnapshotCopyGrantName' - The name of the snapshot copy grant.------ * 'scgTags' - A list of tag instances.-snapshotCopyGrant- :: SnapshotCopyGrant-snapshotCopyGrant =- SnapshotCopyGrant'- { _scgKMSKeyId = Nothing- , _scgSnapshotCopyGrantName = Nothing- , _scgTags = Nothing- }----- | The unique identifier of the customer master key (CMK) in AWS KMS to which Amazon Redshift is granted permission.-scgKMSKeyId :: Lens' SnapshotCopyGrant (Maybe Text)-scgKMSKeyId = lens _scgKMSKeyId (\ s a -> s{_scgKMSKeyId = a})---- | The name of the snapshot copy grant.-scgSnapshotCopyGrantName :: Lens' SnapshotCopyGrant (Maybe Text)-scgSnapshotCopyGrantName = lens _scgSnapshotCopyGrantName (\ s a -> s{_scgSnapshotCopyGrantName = a})---- | A list of tag instances.-scgTags :: Lens' SnapshotCopyGrant [Tag]-scgTags = lens _scgTags (\ s a -> s{_scgTags = a}) . _Default . _Coerce--instance FromXML SnapshotCopyGrant where- parseXML x- = SnapshotCopyGrant' <$>- (x .@? "KmsKeyId") <*>- (x .@? "SnapshotCopyGrantName")- <*>- (x .@? "Tags" .!@ mempty >>=- may (parseXMLList "Tag"))--instance Hashable SnapshotCopyGrant where--instance NFData SnapshotCopyGrant where---- | Describes a subnet.------------ /See:/ 'subnet' smart constructor.-data Subnet = Subnet'- { _sSubnetStatus :: !(Maybe Text)- , _sSubnetIdentifier :: !(Maybe Text)- , _sSubnetAvailabilityZone :: !(Maybe AvailabilityZone)- } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'Subnet' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'sSubnetStatus' - The status of the subnet.------ * 'sSubnetIdentifier' - The identifier of the subnet.------ * 'sSubnetAvailabilityZone' - Undocumented member.-subnet- :: Subnet-subnet =- Subnet'- { _sSubnetStatus = Nothing- , _sSubnetIdentifier = Nothing- , _sSubnetAvailabilityZone = Nothing- }----- | The status of the subnet.-sSubnetStatus :: Lens' Subnet (Maybe Text)-sSubnetStatus = lens _sSubnetStatus (\ s a -> s{_sSubnetStatus = a})---- | The identifier of the subnet.-sSubnetIdentifier :: Lens' Subnet (Maybe Text)-sSubnetIdentifier = lens _sSubnetIdentifier (\ s a -> s{_sSubnetIdentifier = a})---- | Undocumented member.-sSubnetAvailabilityZone :: Lens' Subnet (Maybe AvailabilityZone)-sSubnetAvailabilityZone = lens _sSubnetAvailabilityZone (\ s a -> s{_sSubnetAvailabilityZone = a})--instance FromXML Subnet where- parseXML x- = Subnet' <$>- (x .@? "SubnetStatus") <*> (x .@? "SubnetIdentifier")- <*> (x .@? "SubnetAvailabilityZone")--instance Hashable Subnet where--instance NFData Subnet where---- | A list of supported platforms for orderable clusters.------------ /See:/ 'supportedPlatform' smart constructor.-newtype SupportedPlatform = SupportedPlatform'- { _spName :: Maybe Text- } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'SupportedPlatform' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'spName' - Undocumented member.-supportedPlatform- :: SupportedPlatform-supportedPlatform = SupportedPlatform' {_spName = Nothing}----- | Undocumented member.-spName :: Lens' SupportedPlatform (Maybe Text)-spName = lens _spName (\ s a -> s{_spName = a})--instance FromXML SupportedPlatform where- parseXML x = SupportedPlatform' <$> (x .@? "Name")--instance Hashable SupportedPlatform where--instance NFData SupportedPlatform where---- | Describes the status of a 'RestoreTableFromClusterSnapshot' operation.------------ /See:/ 'tableRestoreStatus' smart constructor.-data TableRestoreStatus = TableRestoreStatus'- { _trsStatus :: !(Maybe TableRestoreStatusType)- , _trsTargetSchemaName :: !(Maybe Text)- , _trsSnapshotIdentifier :: !(Maybe Text)- , _trsSourceDatabaseName :: !(Maybe Text)- , _trsTableRestoreRequestId :: !(Maybe Text)- , _trsNewTableName :: !(Maybe Text)- , _trsTargetDatabaseName :: !(Maybe Text)- , _trsSourceSchemaName :: !(Maybe Text)- , _trsClusterIdentifier :: !(Maybe Text)- , _trsRequestTime :: !(Maybe ISO8601)- , _trsSourceTableName :: !(Maybe Text)- , _trsTotalDataInMegaBytes :: !(Maybe Integer)- , _trsProgressInMegaBytes :: !(Maybe Integer)- , _trsMessage :: !(Maybe Text)- } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'TableRestoreStatus' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'trsStatus' - A value that describes the current state of the table restore request. Valid Values: @SUCCEEDED@ , @FAILED@ , @CANCELED@ , @PENDING@ , @IN_PROGRESS@------ * 'trsTargetSchemaName' - The name of the schema to restore the table to.------ * 'trsSnapshotIdentifier' - The identifier of the snapshot that the table is being restored from.------ * 'trsSourceDatabaseName' - The name of the source database that contains the table being restored.------ * 'trsTableRestoreRequestId' - The unique identifier for the table restore request.------ * 'trsNewTableName' - The name of the table to create as a result of the table restore request.------ * 'trsTargetDatabaseName' - The name of the database to restore the table to.------ * 'trsSourceSchemaName' - The name of the source schema that contains the table being restored.------ * 'trsClusterIdentifier' - The identifier of the Amazon Redshift cluster that the table is being restored to.------ * 'trsRequestTime' - The time that the table restore request was made, in Universal Coordinated Time (UTC).------ * 'trsSourceTableName' - The name of the source table being restored.------ * 'trsTotalDataInMegaBytes' - The total amount of data to restore to the new table, in megabytes (MB).------ * 'trsProgressInMegaBytes' - The amount of data restored to the new table so far, in megabytes (MB).------ * 'trsMessage' - A description of the status of the table restore request. Status values include @SUCCEEDED@ , @FAILED@ , @CANCELED@ , @PENDING@ , @IN_PROGRESS@ .-tableRestoreStatus- :: TableRestoreStatus-tableRestoreStatus =- TableRestoreStatus'- { _trsStatus = Nothing- , _trsTargetSchemaName = Nothing- , _trsSnapshotIdentifier = Nothing- , _trsSourceDatabaseName = Nothing- , _trsTableRestoreRequestId = Nothing- , _trsNewTableName = Nothing- , _trsTargetDatabaseName = Nothing- , _trsSourceSchemaName = Nothing- , _trsClusterIdentifier = Nothing- , _trsRequestTime = Nothing- , _trsSourceTableName = Nothing- , _trsTotalDataInMegaBytes = Nothing- , _trsProgressInMegaBytes = Nothing- , _trsMessage = Nothing- }----- | A value that describes the current state of the table restore request. Valid Values: @SUCCEEDED@ , @FAILED@ , @CANCELED@ , @PENDING@ , @IN_PROGRESS@-trsStatus :: Lens' TableRestoreStatus (Maybe TableRestoreStatusType)-trsStatus = lens _trsStatus (\ s a -> s{_trsStatus = a})---- | The name of the schema to restore the table to.-trsTargetSchemaName :: Lens' TableRestoreStatus (Maybe Text)-trsTargetSchemaName = lens _trsTargetSchemaName (\ s a -> s{_trsTargetSchemaName = a})---- | The identifier of the snapshot that the table is being restored from.-trsSnapshotIdentifier :: Lens' TableRestoreStatus (Maybe Text)-trsSnapshotIdentifier = lens _trsSnapshotIdentifier (\ s a -> s{_trsSnapshotIdentifier = a})---- | The name of the source database that contains the table being restored.-trsSourceDatabaseName :: Lens' TableRestoreStatus (Maybe Text)-trsSourceDatabaseName = lens _trsSourceDatabaseName (\ s a -> s{_trsSourceDatabaseName = a})---- | The unique identifier for the table restore request.-trsTableRestoreRequestId :: Lens' TableRestoreStatus (Maybe Text)-trsTableRestoreRequestId = lens _trsTableRestoreRequestId (\ s a -> s{_trsTableRestoreRequestId = a})---- | The name of the table to create as a result of the table restore request.-trsNewTableName :: Lens' TableRestoreStatus (Maybe Text)-trsNewTableName = lens _trsNewTableName (\ s a -> s{_trsNewTableName = a})---- | The name of the database to restore the table to.-trsTargetDatabaseName :: Lens' TableRestoreStatus (Maybe Text)-trsTargetDatabaseName = lens _trsTargetDatabaseName (\ s a -> s{_trsTargetDatabaseName = a})---- | The name of the source schema that contains the table being restored.-trsSourceSchemaName :: Lens' TableRestoreStatus (Maybe Text)-trsSourceSchemaName = lens _trsSourceSchemaName (\ s a -> s{_trsSourceSchemaName = a})---- | The identifier of the Amazon Redshift cluster that the table is being restored to.-trsClusterIdentifier :: Lens' TableRestoreStatus (Maybe Text)-trsClusterIdentifier = lens _trsClusterIdentifier (\ s a -> s{_trsClusterIdentifier = a})---- | The time that the table restore request was made, in Universal Coordinated Time (UTC).-trsRequestTime :: Lens' TableRestoreStatus (Maybe UTCTime)-trsRequestTime = lens _trsRequestTime (\ s a -> s{_trsRequestTime = a}) . mapping _Time---- | The name of the source table being restored.-trsSourceTableName :: Lens' TableRestoreStatus (Maybe Text)-trsSourceTableName = lens _trsSourceTableName (\ s a -> s{_trsSourceTableName = a})---- | The total amount of data to restore to the new table, in megabytes (MB).-trsTotalDataInMegaBytes :: Lens' TableRestoreStatus (Maybe Integer)-trsTotalDataInMegaBytes = lens _trsTotalDataInMegaBytes (\ s a -> s{_trsTotalDataInMegaBytes = a})---- | The amount of data restored to the new table so far, in megabytes (MB).-trsProgressInMegaBytes :: Lens' TableRestoreStatus (Maybe Integer)-trsProgressInMegaBytes = lens _trsProgressInMegaBytes (\ s a -> s{_trsProgressInMegaBytes = a})---- | A description of the status of the table restore request. Status values include @SUCCEEDED@ , @FAILED@ , @CANCELED@ , @PENDING@ , @IN_PROGRESS@ .-trsMessage :: Lens' TableRestoreStatus (Maybe Text)-trsMessage = lens _trsMessage (\ s a -> s{_trsMessage = a})--instance FromXML TableRestoreStatus where- parseXML x- = TableRestoreStatus' <$>- (x .@? "Status") <*> (x .@? "TargetSchemaName") <*>- (x .@? "SnapshotIdentifier")- <*> (x .@? "SourceDatabaseName")- <*> (x .@? "TableRestoreRequestId")- <*> (x .@? "NewTableName")- <*> (x .@? "TargetDatabaseName")- <*> (x .@? "SourceSchemaName")- <*> (x .@? "ClusterIdentifier")- <*> (x .@? "RequestTime")- <*> (x .@? "SourceTableName")- <*> (x .@? "TotalDataInMegaBytes")- <*> (x .@? "ProgressInMegaBytes")- <*> (x .@? "Message")--instance Hashable TableRestoreStatus where--instance NFData TableRestoreStatus where---- | A tag consisting of a name/value pair for a resource.------------ /See:/ 'tag' smart constructor.-data Tag = Tag'- { _tagValue :: !(Maybe Text)- , _tagKey :: !(Maybe Text)- } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'Tag' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'tagValue' - The value for the resource tag.------ * 'tagKey' - The key, or name, for the resource tag.-tag- :: Tag-tag = Tag' {_tagValue = Nothing, _tagKey = Nothing}----- | The value for the resource tag.-tagValue :: Lens' Tag (Maybe Text)-tagValue = lens _tagValue (\ s a -> s{_tagValue = a})---- | The key, or name, for the resource tag.-tagKey :: Lens' Tag (Maybe Text)-tagKey = lens _tagKey (\ s a -> s{_tagKey = a})--instance FromXML Tag where- parseXML x- = Tag' <$> (x .@? "Value") <*> (x .@? "Key")--instance Hashable Tag where--instance NFData Tag where--instance ToQuery Tag where- toQuery Tag'{..}- = mconcat ["Value" =: _tagValue, "Key" =: _tagKey]---- | A tag and its associated resource.------------ /See:/ 'taggedResource' smart constructor.-data TaggedResource = TaggedResource'- { _trTag :: !(Maybe Tag)- , _trResourceType :: !(Maybe Text)- , _trResourceName :: !(Maybe Text)- } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'TaggedResource' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'trTag' - The tag for the resource.------ * 'trResourceType' - The type of resource with which the tag is associated. Valid resource types are: * Cluster * CIDR/IP * EC2 security group * Snapshot * Cluster security group * Subnet group * HSM connection * HSM certificate * Parameter group For more information about Amazon Redshift resource types and constructing ARNs, go to <http://docs.aws.amazon.com/redshift/latest/mgmt/redshift-iam-access-control-overview.html#redshift-iam-access-control-specify-actions Constructing an Amazon Redshift Amazon Resource Name (ARN)> in the Amazon Redshift Cluster Management Guide.------ * 'trResourceName' - The Amazon Resource Name (ARN) with which the tag is associated. For example, @arn:aws:redshift:us-east-1:123456789:cluster:t1@ .-taggedResource- :: TaggedResource-taggedResource =- TaggedResource'- {_trTag = Nothing, _trResourceType = Nothing, _trResourceName = Nothing}----- | The tag for the resource.-trTag :: Lens' TaggedResource (Maybe Tag)-trTag = lens _trTag (\ s a -> s{_trTag = a})---- | The type of resource with which the tag is associated. Valid resource types are: * Cluster * CIDR/IP * EC2 security group * Snapshot * Cluster security group * Subnet group * HSM connection * HSM certificate * Parameter group For more information about Amazon Redshift resource types and constructing ARNs, go to <http://docs.aws.amazon.com/redshift/latest/mgmt/redshift-iam-access-control-overview.html#redshift-iam-access-control-specify-actions Constructing an Amazon Redshift Amazon Resource Name (ARN)> in the Amazon Redshift Cluster Management Guide.-trResourceType :: Lens' TaggedResource (Maybe Text)-trResourceType = lens _trResourceType (\ s a -> s{_trResourceType = a})---- | The Amazon Resource Name (ARN) with which the tag is associated. For example, @arn:aws:redshift:us-east-1:123456789:cluster:t1@ .-trResourceName :: Lens' TaggedResource (Maybe Text)-trResourceName = lens _trResourceName (\ s a -> s{_trResourceName = a})--instance FromXML TaggedResource where- parseXML x- = TaggedResource' <$>- (x .@? "Tag") <*> (x .@? "ResourceType") <*>- (x .@? "ResourceName")--instance Hashable TaggedResource where--instance NFData TaggedResource where---- | Describes the members of a VPC security group.------------ /See:/ 'vpcSecurityGroupMembership' smart constructor.-data VPCSecurityGroupMembership = VPCSecurityGroupMembership'- { _vsgmStatus :: !(Maybe Text)- , _vsgmVPCSecurityGroupId :: !(Maybe Text)- } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'VPCSecurityGroupMembership' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'vsgmStatus' - The status of the VPC security group.------ * 'vsgmVPCSecurityGroupId' - The identifier of the VPC security group.-vpcSecurityGroupMembership- :: VPCSecurityGroupMembership-vpcSecurityGroupMembership =- VPCSecurityGroupMembership'- {_vsgmStatus = Nothing, _vsgmVPCSecurityGroupId = Nothing}----- | The status of the VPC security group.-vsgmStatus :: Lens' VPCSecurityGroupMembership (Maybe Text)-vsgmStatus = lens _vsgmStatus (\ s a -> s{_vsgmStatus = a})---- | The identifier of the VPC security group.-vsgmVPCSecurityGroupId :: Lens' VPCSecurityGroupMembership (Maybe Text)-vsgmVPCSecurityGroupId = lens _vsgmVPCSecurityGroupId (\ s a -> s{_vsgmVPCSecurityGroupId = a})--instance FromXML VPCSecurityGroupMembership where- parseXML x- = VPCSecurityGroupMembership' <$>- (x .@? "Status") <*> (x .@? "VpcSecurityGroupId")--instance Hashable VPCSecurityGroupMembership where--instance NFData VPCSecurityGroupMembership where
− gen/Network/AWS/Redshift/Types/Sum.hs
@@ -1,144 +0,0 @@-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric #-}-{-# LANGUAGE LambdaCase #-}-{-# LANGUAGE OverloadedStrings #-}--{-# OPTIONS_GHC -fno-warn-unused-imports #-}---- Derived from AWS service descriptions, licensed under Apache 2.0.---- |--- Module : Network.AWS.Redshift.Types.Sum--- Copyright : (c) 2013-2018 Brendan Hay--- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>--- Stability : auto-generated--- Portability : non-portable (GHC extensions)----module Network.AWS.Redshift.Types.Sum where--import Network.AWS.Prelude-import Network.AWS.Redshift.Internal--data ParameterApplyType- = Dynamic- | Static- deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic)---instance FromText ParameterApplyType where- parser = takeLowerText >>= \case- "dynamic" -> pure Dynamic- "static" -> pure Static- e -> fromTextError $ "Failure parsing ParameterApplyType from value: '" <> e- <> "'. Accepted values: dynamic, static"--instance ToText ParameterApplyType where- toText = \case- Dynamic -> "dynamic"- Static -> "static"--instance Hashable ParameterApplyType-instance NFData ParameterApplyType-instance ToByteString ParameterApplyType-instance ToQuery ParameterApplyType-instance ToHeader ParameterApplyType--instance FromXML ParameterApplyType where- parseXML = parseXMLText "ParameterApplyType"--data ReservedNodeOfferingType- = Regular- | Upgradable- deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic)---instance FromText ReservedNodeOfferingType where- parser = takeLowerText >>= \case- "regular" -> pure Regular- "upgradable" -> pure Upgradable- e -> fromTextError $ "Failure parsing ReservedNodeOfferingType from value: '" <> e- <> "'. Accepted values: regular, upgradable"--instance ToText ReservedNodeOfferingType where- toText = \case- Regular -> "Regular"- Upgradable -> "Upgradable"--instance Hashable ReservedNodeOfferingType-instance NFData ReservedNodeOfferingType-instance ToByteString ReservedNodeOfferingType-instance ToQuery ReservedNodeOfferingType-instance ToHeader ReservedNodeOfferingType--instance FromXML ReservedNodeOfferingType where- parseXML = parseXMLText "ReservedNodeOfferingType"--data SourceType- = Cluster- | ClusterParameterGroup- | ClusterSecurityGroup- | ClusterSnapshot- deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic)---instance FromText SourceType where- parser = takeLowerText >>= \case- "cluster" -> pure Cluster- "cluster-parameter-group" -> pure ClusterParameterGroup- "cluster-security-group" -> pure ClusterSecurityGroup- "cluster-snapshot" -> pure ClusterSnapshot- e -> fromTextError $ "Failure parsing SourceType from value: '" <> e- <> "'. Accepted values: cluster, cluster-parameter-group, cluster-security-group, cluster-snapshot"--instance ToText SourceType where- toText = \case- Cluster -> "cluster"- ClusterParameterGroup -> "cluster-parameter-group"- ClusterSecurityGroup -> "cluster-security-group"- ClusterSnapshot -> "cluster-snapshot"--instance Hashable SourceType-instance NFData SourceType-instance ToByteString SourceType-instance ToQuery SourceType-instance ToHeader SourceType--instance FromXML SourceType where- parseXML = parseXMLText "SourceType"--data TableRestoreStatusType- = Canceled- | Failed- | InProgress- | Pending- | Succeeded- deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic)---instance FromText TableRestoreStatusType where- parser = takeLowerText >>= \case- "canceled" -> pure Canceled- "failed" -> pure Failed- "in_progress" -> pure InProgress- "pending" -> pure Pending- "succeeded" -> pure Succeeded- e -> fromTextError $ "Failure parsing TableRestoreStatusType from value: '" <> e- <> "'. Accepted values: canceled, failed, in_progress, pending, succeeded"--instance ToText TableRestoreStatusType where- toText = \case- Canceled -> "CANCELED"- Failed -> "FAILED"- InProgress -> "IN_PROGRESS"- Pending -> "PENDING"- Succeeded -> "SUCCEEDED"--instance Hashable TableRestoreStatusType-instance NFData TableRestoreStatusType-instance ToByteString TableRestoreStatusType-instance ToQuery TableRestoreStatusType-instance ToHeader TableRestoreStatusType--instance FromXML TableRestoreStatusType where- parseXML = parseXMLText "TableRestoreStatusType"
− gen/Network/AWS/Redshift/Waiters.hs
@@ -1,117 +0,0 @@-{-# LANGUAGE OverloadedStrings #-}-{-# LANGUAGE TypeFamilies #-}--{-# OPTIONS_GHC -fno-warn-unused-imports #-}---- Derived from AWS service descriptions, licensed under Apache 2.0.---- |--- Module : Network.AWS.Redshift.Waiters--- Copyright : (c) 2013-2018 Brendan Hay--- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>--- Stability : auto-generated--- Portability : non-portable (GHC extensions)----module Network.AWS.Redshift.Waiters where--import Network.AWS.Lens-import Network.AWS.Prelude-import Network.AWS.Redshift.DescribeClusters-import Network.AWS.Redshift.DescribeClusters-import Network.AWS.Redshift.DescribeClusters-import Network.AWS.Redshift.DescribeClusterSnapshots-import Network.AWS.Redshift.Types-import Network.AWS.Waiter---- | Polls 'Network.AWS.Redshift.DescribeClusters' every 60 seconds until a successful state is reached. An error is returned after 30 failed checks.-clusterRestored :: Wait DescribeClusters-clusterRestored =- Wait- { _waitName = "ClusterRestored"- , _waitAttempts = 30- , _waitDelay = 60- , _waitAcceptors =- [ matchAll- "completed"- AcceptSuccess- (folding (concatOf dcrsClusters) .- cRestoreStatus . _Just . rsStatus . _Just . to toTextCI)- , matchAny- "deleting"- AcceptFailure- (folding (concatOf dcrsClusters) .- cClusterStatus . _Just . to toTextCI)- ]- }----- | Polls 'Network.AWS.Redshift.DescribeClusters' every 60 seconds until a successful state is reached. An error is returned after 30 failed checks.-clusterDeleted :: Wait DescribeClusters-clusterDeleted =- Wait- { _waitName = "ClusterDeleted"- , _waitAttempts = 30- , _waitDelay = 60- , _waitAcceptors =- [ matchError "ClusterNotFound" AcceptSuccess- , matchAny- "creating"- AcceptFailure- (folding (concatOf dcrsClusters) .- cClusterStatus . _Just . to toTextCI)- , matchAny- "modifying"- AcceptFailure- (folding (concatOf dcrsClusters) .- cClusterStatus . _Just . to toTextCI)- ]- }----- | Polls 'Network.AWS.Redshift.DescribeClusterSnapshots' every 15 seconds until a successful state is reached. An error is returned after 20 failed checks.-snapshotAvailable :: Wait DescribeClusterSnapshots-snapshotAvailable =- Wait- { _waitName = "SnapshotAvailable"- , _waitAttempts = 20- , _waitDelay = 15- , _waitAcceptors =- [ matchAll- "available"- AcceptSuccess- (folding (concatOf dcssrsSnapshots) . sStatus . _Just . to toTextCI)- , matchAny- "failed"- AcceptFailure- (folding (concatOf dcssrsSnapshots) . sStatus . _Just . to toTextCI)- , matchAny- "deleted"- AcceptFailure- (folding (concatOf dcssrsSnapshots) . sStatus . _Just . to toTextCI)- ]- }----- | Polls 'Network.AWS.Redshift.DescribeClusters' every 60 seconds until a successful state is reached. An error is returned after 30 failed checks.-clusterAvailable :: Wait DescribeClusters-clusterAvailable =- Wait- { _waitName = "ClusterAvailable"- , _waitAttempts = 30- , _waitDelay = 60- , _waitAcceptors =- [ matchAll- "available"- AcceptSuccess- (folding (concatOf dcrsClusters) .- cClusterStatus . _Just . to toTextCI)- , matchAny- "deleting"- AcceptFailure- (folding (concatOf dcrsClusters) .- cClusterStatus . _Just . to toTextCI)- , matchError "ClusterNotFound" AcceptRetry- ]- }-
+ src/Amazonka/Redshift/Internal.hs view
@@ -0,0 +1,92 @@+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# OPTIONS_GHC -Wall -Werror #-}++-- |+-- Module : Amazonka.Redshift.Internal+-- Copyright : (c) 2013-2023 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka.com>+-- Stability : experimental+-- Portability : non-portable (GHC extensions)+module Amazonka.Redshift.Internal+ ( getAccountId,+ getCloudTrailAccountId,+ )+where++import Amazonka.Core+import Amazonka.Data++-- | This account identifier used to be used when attaching a policy+-- to your S3 bucket, allowing Redshift to upload and write database+-- audit logs.+--+-- This function should no longer be used, because Redshift now uses+-- service-principal credentials to deliver logs to S3.+--+-- /See:/ <https://docs.aws.amazon.com/redshift/latest/mgmt/db-auditing.html#db-auditing-bucket-permissions Bucket permissions for Amazon Redshift audit logging>.+getAccountId :: Region -> Maybe Text+getAccountId = \case+ NorthVirginia -> Just "193672423079"+ Ohio -> Just "391106570357"+ NorthCalifornia -> Just "262260360010"+ Oregon -> Just "902366379725"+ CapeTown -> Just "365689465814"+ HongKong -> Just "313564881002"+ Mumbai -> Just "865932855811"+ Osaka -> Just "090321488786"+ Seoul -> Just "760740231472"+ Singapore -> Just "361669875840"+ Sydney -> Just "762762565011"+ Tokyo -> Just "404641285394"+ Montreal -> Just "907379612154"+ Frankfurt -> Just "053454850223"+ Ireland -> Just "210876761215"+ London -> Just "307160386991"+ Milan -> Just "945612479654"+ Paris -> Just "915173422425"+ Stockholm -> Just "729911121831"+ Bahrain -> Just "013126148197"+ SaoPaulo -> Just "075028567923"+ Region' _ -> Nothing+{-# DEPRECATED+ getAccountId+ "Redshift now delivers logs using service-principal credentials. \+ \See the haddocks for more information."+ #-}++-- | This account identifier is used when Redshift calls other AWS+-- services for you, and may appear in your CloudTrail logs.+--+-- /See:/ <https://docs.aws.amazon.com/redshift/latest/mgmt/logging-with-cloudtrail.html#cloudtrail-rs-acct-ids Amazon Redshift account IDs in AWS CloudTrail logs>+getCloudTrailAccountId :: Region -> Maybe Text+getCloudTrailAccountId = \case+ NorthVirginia -> Just "368064434614"+ Ohio -> Just "790247189693"+ NorthCalifornia -> Just "703715109447"+ Oregon -> Just "473191095985"+ CapeTown -> Just "420376844563"+ HongKong -> Just "651179539253"+ Hyderabad -> Just "297058826802"+ Jakarta -> Just "623197973179"+ Melbourne -> Just "945512339897"+ Mumbai -> Just "408097707231"+ Osaka -> Just "398671365691"+ Seoul -> Just "713597048934"+ Singapore -> Just "960118270566"+ Sydney -> Just "485979073181"+ Tokyo -> Just "615915377779"+ Montreal -> Just "764870610256"+ Frankfurt -> Just "434091160558"+ Ireland -> Just "246478207311"+ London -> Just "885798887673"+ Milan -> Just "041313461515"+ Paris -> Just "694668203235"+ Stockholm -> Just "553461782468"+ Zurich -> Just "668912161003"+ Spain -> Just "028811157404"+ Bahrain -> Just "051362938876"+ UAE -> Just "595013617770"+ SaoPaulo -> Just "392442076723"+ Region' _ -> Nothing
− src/Network/AWS/Redshift/Internal.hs
@@ -1,42 +0,0 @@-{-# LANGUAGE LambdaCase #-}-{-# LANGUAGE OverloadedStrings #-}--{-# OPTIONS_GHC -Wall -Werror #-}---- |--- Module : Network.AWS.Redshift.Internal--- Copyright : (c) 2013-2018 Brendan Hay--- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>--- Stability : experimental--- Portability : non-portable (GHC extensions)----module Network.AWS.Redshift.Internal- ( getAccountId- ) where--import Network.AWS.Prelude---- | This account identifier is used when attaching a policy to your S3 bucket--- allowing Redshift to upload and write database audit logs.------ /See:/ <http://docs.aws.amazon.com/redshift/latest/mgmt/db-auditing.html#db-auditing-enable-logging Enabling Database Audit Logging>.-getAccountId :: Region -> Maybe Text-getAccountId = \case- NorthVirginia -> Just "193672423079"- Ohio -> Just "391106570357"- NorthCalifornia -> Just "262260360010"- Oregon -> Just "902366379725"- Montreal -> Just "907379612154"- Tokyo -> Just "404641285394"- Seoul -> Just "760740231472"- Mumbai -> Just "865932855811"- Singapore -> Just "361669875840"- Sydney -> Just "762762565011"- SaoPaulo -> Just "075028567923"- Frankfurt -> Just "053454850223"- Ireland -> Just "210876761215"- London -> Just "307160386991"- GovCloud -> Nothing- GovCloudFIPS -> Nothing- Beijing -> Nothing
test/Main.hs view
@@ -2,20 +2,22 @@ -- | -- Module : Main--- Copyright : (c) 2013-2018 Brendan Hay+-- Copyright : (c) 2013-2023 Brendan Hay -- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>+-- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions)--- module Main (main) where +import Test.Amazonka.Redshift+import Test.Amazonka.Redshift.Internal import Test.Tasty-import Test.AWS.Redshift-import Test.AWS.Redshift.Internal main :: IO ()-main = defaultMain $ testGroup "Redshift"- [ testGroup "tests" tests- , testGroup "fixtures" fixtures- ]+main =+ defaultMain $+ testGroup+ "Redshift"+ [ testGroup "tests" tests,+ testGroup "fixtures" fixtures+ ]
− test/Test/AWS/Gen/Redshift.hs
@@ -1,1173 +0,0 @@-{-# OPTIONS_GHC -fno-warn-unused-imports #-}-{-# OPTIONS_GHC -fno-warn-orphans #-}---- Derived from AWS service descriptions, licensed under Apache 2.0.---- |--- Module : Test.AWS.Gen.Redshift--- Copyright : (c) 2013-2018 Brendan Hay--- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>--- Stability : auto-generated--- Portability : non-portable (GHC extensions)----module Test.AWS.Gen.Redshift where--import Data.Proxy-import Network.AWS.Redshift-import Test.AWS.Fixture-import Test.AWS.Prelude-import Test.AWS.Redshift.Internal-import Test.Tasty---- Auto-generated: the actual test selection needs to be manually placed into--- the top-level so that real test data can be incrementally added.------ This commented snippet is what the entire set should look like:---- fixtures :: TestTree--- fixtures =--- [ testGroup "request"--- [ requestDescribeClusters $--- describeClusters------ , requestDescribeTags $--- describeTags------ , requestDeleteClusterSubnetGroup $--- deleteClusterSubnetGroup------ , requestDisableLogging $--- disableLogging------ , requestModifyEventSubscription $--- modifyEventSubscription------ , requestDeleteClusterSnapshot $--- deleteClusterSnapshot------ , requestPurchaseReservedNodeOffering $--- purchaseReservedNodeOffering------ , requestDescribeReservedNodeOfferings $--- describeReservedNodeOfferings------ , requestDescribeEvents $--- describeEvents------ , requestDescribeReservedNodes $--- describeReservedNodes------ , requestDescribeClusterParameterGroups $--- describeClusterParameterGroups------ , requestEnableLogging $--- enableLogging------ , requestCreateClusterSubnetGroup $--- createClusterSubnetGroup------ , requestDeleteClusterParameterGroup $--- deleteClusterParameterGroup------ , requestDescribeClusterSecurityGroups $--- describeClusterSecurityGroups------ , requestCreateTags $--- createTags------ , requestEnableSnapshotCopy $--- enableSnapshotCopy------ , requestDescribeClusterSnapshots $--- describeClusterSnapshots------ , requestDeleteTags $--- deleteTags------ , requestDescribeClusterSubnetGroups $--- describeClusterSubnetGroups------ , requestModifySnapshotCopyRetentionPeriod $--- modifySnapshotCopyRetentionPeriod------ , requestModifyClusterIAMRoles $--- modifyClusterIAMRoles------ , requestAuthorizeSnapshotAccess $--- authorizeSnapshotAccess------ , requestRebootCluster $--- rebootCluster------ , requestDeleteCluster $--- deleteCluster------ , requestCreateEventSubscription $--- createEventSubscription------ , requestDescribeOrderableClusterOptions $--- describeOrderableClusterOptions------ , requestCreateCluster $--- createCluster------ , requestCreateHSMClientCertificate $--- createHSMClientCertificate------ , requestRestoreTableFromClusterSnapshot $--- restoreTableFromClusterSnapshot------ , requestDescribeDefaultClusterParameters $--- describeDefaultClusterParameters------ , requestDeleteEventSubscription $--- deleteEventSubscription------ , requestResetClusterParameterGroup $--- resetClusterParameterGroup------ , requestDescribeEventSubscriptions $--- describeEventSubscriptions------ , requestRevokeClusterSecurityGroupIngress $--- revokeClusterSecurityGroupIngress------ , requestDescribeHSMClientCertificates $--- describeHSMClientCertificates------ , requestModifyClusterParameterGroup $--- modifyClusterParameterGroup------ , requestGetClusterCredentials $--- getClusterCredentials------ , requestCreateClusterSecurityGroup $--- createClusterSecurityGroup------ , requestDescribeEventCategories $--- describeEventCategories------ , requestDescribeResize $--- describeResize------ , requestDeleteHSMConfiguration $--- deleteHSMConfiguration------ , requestAuthorizeClusterSecurityGroupIngress $--- authorizeClusterSecurityGroupIngress------ , requestDescribeTableRestoreStatus $--- describeTableRestoreStatus------ , requestCreateClusterSnapshot $--- createClusterSnapshot------ , requestCreateHSMConfiguration $--- createHSMConfiguration------ , requestDescribeLoggingStatus $--- describeLoggingStatus------ , requestModifyCluster $--- modifyCluster------ , requestDeleteClusterSecurityGroup $--- deleteClusterSecurityGroup------ , requestDisableSnapshotCopy $--- disableSnapshotCopy------ , requestDescribeClusterParameters $--- describeClusterParameters------ , requestRestoreFromClusterSnapshot $--- restoreFromClusterSnapshot------ , requestCreateClusterParameterGroup $--- createClusterParameterGroup------ , requestRevokeSnapshotAccess $--- revokeSnapshotAccess------ , requestDescribeHSMConfigurations $--- describeHSMConfigurations------ , requestCreateSnapshotCopyGrant $--- createSnapshotCopyGrant------ , requestCopyClusterSnapshot $--- copyClusterSnapshot------ , requestDeleteHSMClientCertificate $--- deleteHSMClientCertificate------ , requestDeleteSnapshotCopyGrant $--- deleteSnapshotCopyGrant------ , requestDescribeClusterVersions $--- describeClusterVersions------ , requestModifyClusterSubnetGroup $--- modifyClusterSubnetGroup------ , requestRotateEncryptionKey $--- rotateEncryptionKey------ , requestDescribeSnapshotCopyGrants $--- describeSnapshotCopyGrants------ ]---- , testGroup "response"--- [ responseDescribeClusters $--- describeClustersResponse------ , responseDescribeTags $--- describeTagsResponse------ , responseDeleteClusterSubnetGroup $--- deleteClusterSubnetGroupResponse------ , responseDisableLogging $--- loggingStatus------ , responseModifyEventSubscription $--- modifyEventSubscriptionResponse------ , responseDeleteClusterSnapshot $--- deleteClusterSnapshotResponse------ , responsePurchaseReservedNodeOffering $--- purchaseReservedNodeOfferingResponse------ , responseDescribeReservedNodeOfferings $--- describeReservedNodeOfferingsResponse------ , responseDescribeEvents $--- describeEventsResponse------ , responseDescribeReservedNodes $--- describeReservedNodesResponse------ , responseDescribeClusterParameterGroups $--- describeClusterParameterGroupsResponse------ , responseEnableLogging $--- loggingStatus------ , responseCreateClusterSubnetGroup $--- createClusterSubnetGroupResponse------ , responseDeleteClusterParameterGroup $--- deleteClusterParameterGroupResponse------ , responseDescribeClusterSecurityGroups $--- describeClusterSecurityGroupsResponse------ , responseCreateTags $--- createTagsResponse------ , responseEnableSnapshotCopy $--- enableSnapshotCopyResponse------ , responseDescribeClusterSnapshots $--- describeClusterSnapshotsResponse------ , responseDeleteTags $--- deleteTagsResponse------ , responseDescribeClusterSubnetGroups $--- describeClusterSubnetGroupsResponse------ , responseModifySnapshotCopyRetentionPeriod $--- modifySnapshotCopyRetentionPeriodResponse------ , responseModifyClusterIAMRoles $--- modifyClusterIAMRolesResponse------ , responseAuthorizeSnapshotAccess $--- authorizeSnapshotAccessResponse------ , responseRebootCluster $--- rebootClusterResponse------ , responseDeleteCluster $--- deleteClusterResponse------ , responseCreateEventSubscription $--- createEventSubscriptionResponse------ , responseDescribeOrderableClusterOptions $--- describeOrderableClusterOptionsResponse------ , responseCreateCluster $--- createClusterResponse------ , responseCreateHSMClientCertificate $--- createHSMClientCertificateResponse------ , responseRestoreTableFromClusterSnapshot $--- restoreTableFromClusterSnapshotResponse------ , responseDescribeDefaultClusterParameters $--- describeDefaultClusterParametersResponse------ , responseDeleteEventSubscription $--- deleteEventSubscriptionResponse------ , responseResetClusterParameterGroup $--- clusterParameterGroupNameMessage------ , responseDescribeEventSubscriptions $--- describeEventSubscriptionsResponse------ , responseRevokeClusterSecurityGroupIngress $--- revokeClusterSecurityGroupIngressResponse------ , responseDescribeHSMClientCertificates $--- describeHSMClientCertificatesResponse------ , responseModifyClusterParameterGroup $--- clusterParameterGroupNameMessage------ , responseGetClusterCredentials $--- getClusterCredentialsResponse------ , responseCreateClusterSecurityGroup $--- createClusterSecurityGroupResponse------ , responseDescribeEventCategories $--- describeEventCategoriesResponse------ , responseDescribeResize $--- describeResizeResponse------ , responseDeleteHSMConfiguration $--- deleteHSMConfigurationResponse------ , responseAuthorizeClusterSecurityGroupIngress $--- authorizeClusterSecurityGroupIngressResponse------ , responseDescribeTableRestoreStatus $--- describeTableRestoreStatusResponse------ , responseCreateClusterSnapshot $--- createClusterSnapshotResponse------ , responseCreateHSMConfiguration $--- createHSMConfigurationResponse------ , responseDescribeLoggingStatus $--- loggingStatus------ , responseModifyCluster $--- modifyClusterResponse------ , responseDeleteClusterSecurityGroup $--- deleteClusterSecurityGroupResponse------ , responseDisableSnapshotCopy $--- disableSnapshotCopyResponse------ , responseDescribeClusterParameters $--- describeClusterParametersResponse------ , responseRestoreFromClusterSnapshot $--- restoreFromClusterSnapshotResponse------ , responseCreateClusterParameterGroup $--- createClusterParameterGroupResponse------ , responseRevokeSnapshotAccess $--- revokeSnapshotAccessResponse------ , responseDescribeHSMConfigurations $--- describeHSMConfigurationsResponse------ , responseCreateSnapshotCopyGrant $--- createSnapshotCopyGrantResponse------ , responseCopyClusterSnapshot $--- copyClusterSnapshotResponse------ , responseDeleteHSMClientCertificate $--- deleteHSMClientCertificateResponse------ , responseDeleteSnapshotCopyGrant $--- deleteSnapshotCopyGrantResponse------ , responseDescribeClusterVersions $--- describeClusterVersionsResponse------ , responseModifyClusterSubnetGroup $--- modifyClusterSubnetGroupResponse------ , responseRotateEncryptionKey $--- rotateEncryptionKeyResponse------ , responseDescribeSnapshotCopyGrants $--- describeSnapshotCopyGrantsResponse------ ]--- ]---- Requests--requestDescribeClusters :: DescribeClusters -> TestTree-requestDescribeClusters = req- "DescribeClusters"- "fixture/DescribeClusters.yaml"--requestDescribeTags :: DescribeTags -> TestTree-requestDescribeTags = req- "DescribeTags"- "fixture/DescribeTags.yaml"--requestDeleteClusterSubnetGroup :: DeleteClusterSubnetGroup -> TestTree-requestDeleteClusterSubnetGroup = req- "DeleteClusterSubnetGroup"- "fixture/DeleteClusterSubnetGroup.yaml"--requestDisableLogging :: DisableLogging -> TestTree-requestDisableLogging = req- "DisableLogging"- "fixture/DisableLogging.yaml"--requestModifyEventSubscription :: ModifyEventSubscription -> TestTree-requestModifyEventSubscription = req- "ModifyEventSubscription"- "fixture/ModifyEventSubscription.yaml"--requestDeleteClusterSnapshot :: DeleteClusterSnapshot -> TestTree-requestDeleteClusterSnapshot = req- "DeleteClusterSnapshot"- "fixture/DeleteClusterSnapshot.yaml"--requestPurchaseReservedNodeOffering :: PurchaseReservedNodeOffering -> TestTree-requestPurchaseReservedNodeOffering = req- "PurchaseReservedNodeOffering"- "fixture/PurchaseReservedNodeOffering.yaml"--requestDescribeReservedNodeOfferings :: DescribeReservedNodeOfferings -> TestTree-requestDescribeReservedNodeOfferings = req- "DescribeReservedNodeOfferings"- "fixture/DescribeReservedNodeOfferings.yaml"--requestDescribeEvents :: DescribeEvents -> TestTree-requestDescribeEvents = req- "DescribeEvents"- "fixture/DescribeEvents.yaml"--requestDescribeReservedNodes :: DescribeReservedNodes -> TestTree-requestDescribeReservedNodes = req- "DescribeReservedNodes"- "fixture/DescribeReservedNodes.yaml"--requestDescribeClusterParameterGroups :: DescribeClusterParameterGroups -> TestTree-requestDescribeClusterParameterGroups = req- "DescribeClusterParameterGroups"- "fixture/DescribeClusterParameterGroups.yaml"--requestEnableLogging :: EnableLogging -> TestTree-requestEnableLogging = req- "EnableLogging"- "fixture/EnableLogging.yaml"--requestCreateClusterSubnetGroup :: CreateClusterSubnetGroup -> TestTree-requestCreateClusterSubnetGroup = req- "CreateClusterSubnetGroup"- "fixture/CreateClusterSubnetGroup.yaml"--requestDeleteClusterParameterGroup :: DeleteClusterParameterGroup -> TestTree-requestDeleteClusterParameterGroup = req- "DeleteClusterParameterGroup"- "fixture/DeleteClusterParameterGroup.yaml"--requestDescribeClusterSecurityGroups :: DescribeClusterSecurityGroups -> TestTree-requestDescribeClusterSecurityGroups = req- "DescribeClusterSecurityGroups"- "fixture/DescribeClusterSecurityGroups.yaml"--requestCreateTags :: CreateTags -> TestTree-requestCreateTags = req- "CreateTags"- "fixture/CreateTags.yaml"--requestEnableSnapshotCopy :: EnableSnapshotCopy -> TestTree-requestEnableSnapshotCopy = req- "EnableSnapshotCopy"- "fixture/EnableSnapshotCopy.yaml"--requestDescribeClusterSnapshots :: DescribeClusterSnapshots -> TestTree-requestDescribeClusterSnapshots = req- "DescribeClusterSnapshots"- "fixture/DescribeClusterSnapshots.yaml"--requestDeleteTags :: DeleteTags -> TestTree-requestDeleteTags = req- "DeleteTags"- "fixture/DeleteTags.yaml"--requestDescribeClusterSubnetGroups :: DescribeClusterSubnetGroups -> TestTree-requestDescribeClusterSubnetGroups = req- "DescribeClusterSubnetGroups"- "fixture/DescribeClusterSubnetGroups.yaml"--requestModifySnapshotCopyRetentionPeriod :: ModifySnapshotCopyRetentionPeriod -> TestTree-requestModifySnapshotCopyRetentionPeriod = req- "ModifySnapshotCopyRetentionPeriod"- "fixture/ModifySnapshotCopyRetentionPeriod.yaml"--requestModifyClusterIAMRoles :: ModifyClusterIAMRoles -> TestTree-requestModifyClusterIAMRoles = req- "ModifyClusterIAMRoles"- "fixture/ModifyClusterIAMRoles.yaml"--requestAuthorizeSnapshotAccess :: AuthorizeSnapshotAccess -> TestTree-requestAuthorizeSnapshotAccess = req- "AuthorizeSnapshotAccess"- "fixture/AuthorizeSnapshotAccess.yaml"--requestRebootCluster :: RebootCluster -> TestTree-requestRebootCluster = req- "RebootCluster"- "fixture/RebootCluster.yaml"--requestDeleteCluster :: DeleteCluster -> TestTree-requestDeleteCluster = req- "DeleteCluster"- "fixture/DeleteCluster.yaml"--requestCreateEventSubscription :: CreateEventSubscription -> TestTree-requestCreateEventSubscription = req- "CreateEventSubscription"- "fixture/CreateEventSubscription.yaml"--requestDescribeOrderableClusterOptions :: DescribeOrderableClusterOptions -> TestTree-requestDescribeOrderableClusterOptions = req- "DescribeOrderableClusterOptions"- "fixture/DescribeOrderableClusterOptions.yaml"--requestCreateCluster :: CreateCluster -> TestTree-requestCreateCluster = req- "CreateCluster"- "fixture/CreateCluster.yaml"--requestCreateHSMClientCertificate :: CreateHSMClientCertificate -> TestTree-requestCreateHSMClientCertificate = req- "CreateHSMClientCertificate"- "fixture/CreateHSMClientCertificate.yaml"--requestRestoreTableFromClusterSnapshot :: RestoreTableFromClusterSnapshot -> TestTree-requestRestoreTableFromClusterSnapshot = req- "RestoreTableFromClusterSnapshot"- "fixture/RestoreTableFromClusterSnapshot.yaml"--requestDescribeDefaultClusterParameters :: DescribeDefaultClusterParameters -> TestTree-requestDescribeDefaultClusterParameters = req- "DescribeDefaultClusterParameters"- "fixture/DescribeDefaultClusterParameters.yaml"--requestDeleteEventSubscription :: DeleteEventSubscription -> TestTree-requestDeleteEventSubscription = req- "DeleteEventSubscription"- "fixture/DeleteEventSubscription.yaml"--requestResetClusterParameterGroup :: ResetClusterParameterGroup -> TestTree-requestResetClusterParameterGroup = req- "ResetClusterParameterGroup"- "fixture/ResetClusterParameterGroup.yaml"--requestDescribeEventSubscriptions :: DescribeEventSubscriptions -> TestTree-requestDescribeEventSubscriptions = req- "DescribeEventSubscriptions"- "fixture/DescribeEventSubscriptions.yaml"--requestRevokeClusterSecurityGroupIngress :: RevokeClusterSecurityGroupIngress -> TestTree-requestRevokeClusterSecurityGroupIngress = req- "RevokeClusterSecurityGroupIngress"- "fixture/RevokeClusterSecurityGroupIngress.yaml"--requestDescribeHSMClientCertificates :: DescribeHSMClientCertificates -> TestTree-requestDescribeHSMClientCertificates = req- "DescribeHSMClientCertificates"- "fixture/DescribeHSMClientCertificates.yaml"--requestModifyClusterParameterGroup :: ModifyClusterParameterGroup -> TestTree-requestModifyClusterParameterGroup = req- "ModifyClusterParameterGroup"- "fixture/ModifyClusterParameterGroup.yaml"--requestGetClusterCredentials :: GetClusterCredentials -> TestTree-requestGetClusterCredentials = req- "GetClusterCredentials"- "fixture/GetClusterCredentials.yaml"--requestCreateClusterSecurityGroup :: CreateClusterSecurityGroup -> TestTree-requestCreateClusterSecurityGroup = req- "CreateClusterSecurityGroup"- "fixture/CreateClusterSecurityGroup.yaml"--requestDescribeEventCategories :: DescribeEventCategories -> TestTree-requestDescribeEventCategories = req- "DescribeEventCategories"- "fixture/DescribeEventCategories.yaml"--requestDescribeResize :: DescribeResize -> TestTree-requestDescribeResize = req- "DescribeResize"- "fixture/DescribeResize.yaml"--requestDeleteHSMConfiguration :: DeleteHSMConfiguration -> TestTree-requestDeleteHSMConfiguration = req- "DeleteHSMConfiguration"- "fixture/DeleteHSMConfiguration.yaml"--requestAuthorizeClusterSecurityGroupIngress :: AuthorizeClusterSecurityGroupIngress -> TestTree-requestAuthorizeClusterSecurityGroupIngress = req- "AuthorizeClusterSecurityGroupIngress"- "fixture/AuthorizeClusterSecurityGroupIngress.yaml"--requestDescribeTableRestoreStatus :: DescribeTableRestoreStatus -> TestTree-requestDescribeTableRestoreStatus = req- "DescribeTableRestoreStatus"- "fixture/DescribeTableRestoreStatus.yaml"--requestCreateClusterSnapshot :: CreateClusterSnapshot -> TestTree-requestCreateClusterSnapshot = req- "CreateClusterSnapshot"- "fixture/CreateClusterSnapshot.yaml"--requestCreateHSMConfiguration :: CreateHSMConfiguration -> TestTree-requestCreateHSMConfiguration = req- "CreateHSMConfiguration"- "fixture/CreateHSMConfiguration.yaml"--requestDescribeLoggingStatus :: DescribeLoggingStatus -> TestTree-requestDescribeLoggingStatus = req- "DescribeLoggingStatus"- "fixture/DescribeLoggingStatus.yaml"--requestModifyCluster :: ModifyCluster -> TestTree-requestModifyCluster = req- "ModifyCluster"- "fixture/ModifyCluster.yaml"--requestDeleteClusterSecurityGroup :: DeleteClusterSecurityGroup -> TestTree-requestDeleteClusterSecurityGroup = req- "DeleteClusterSecurityGroup"- "fixture/DeleteClusterSecurityGroup.yaml"--requestDisableSnapshotCopy :: DisableSnapshotCopy -> TestTree-requestDisableSnapshotCopy = req- "DisableSnapshotCopy"- "fixture/DisableSnapshotCopy.yaml"--requestDescribeClusterParameters :: DescribeClusterParameters -> TestTree-requestDescribeClusterParameters = req- "DescribeClusterParameters"- "fixture/DescribeClusterParameters.yaml"--requestRestoreFromClusterSnapshot :: RestoreFromClusterSnapshot -> TestTree-requestRestoreFromClusterSnapshot = req- "RestoreFromClusterSnapshot"- "fixture/RestoreFromClusterSnapshot.yaml"--requestCreateClusterParameterGroup :: CreateClusterParameterGroup -> TestTree-requestCreateClusterParameterGroup = req- "CreateClusterParameterGroup"- "fixture/CreateClusterParameterGroup.yaml"--requestRevokeSnapshotAccess :: RevokeSnapshotAccess -> TestTree-requestRevokeSnapshotAccess = req- "RevokeSnapshotAccess"- "fixture/RevokeSnapshotAccess.yaml"--requestDescribeHSMConfigurations :: DescribeHSMConfigurations -> TestTree-requestDescribeHSMConfigurations = req- "DescribeHSMConfigurations"- "fixture/DescribeHSMConfigurations.yaml"--requestCreateSnapshotCopyGrant :: CreateSnapshotCopyGrant -> TestTree-requestCreateSnapshotCopyGrant = req- "CreateSnapshotCopyGrant"- "fixture/CreateSnapshotCopyGrant.yaml"--requestCopyClusterSnapshot :: CopyClusterSnapshot -> TestTree-requestCopyClusterSnapshot = req- "CopyClusterSnapshot"- "fixture/CopyClusterSnapshot.yaml"--requestDeleteHSMClientCertificate :: DeleteHSMClientCertificate -> TestTree-requestDeleteHSMClientCertificate = req- "DeleteHSMClientCertificate"- "fixture/DeleteHSMClientCertificate.yaml"--requestDeleteSnapshotCopyGrant :: DeleteSnapshotCopyGrant -> TestTree-requestDeleteSnapshotCopyGrant = req- "DeleteSnapshotCopyGrant"- "fixture/DeleteSnapshotCopyGrant.yaml"--requestDescribeClusterVersions :: DescribeClusterVersions -> TestTree-requestDescribeClusterVersions = req- "DescribeClusterVersions"- "fixture/DescribeClusterVersions.yaml"--requestModifyClusterSubnetGroup :: ModifyClusterSubnetGroup -> TestTree-requestModifyClusterSubnetGroup = req- "ModifyClusterSubnetGroup"- "fixture/ModifyClusterSubnetGroup.yaml"--requestRotateEncryptionKey :: RotateEncryptionKey -> TestTree-requestRotateEncryptionKey = req- "RotateEncryptionKey"- "fixture/RotateEncryptionKey.yaml"--requestDescribeSnapshotCopyGrants :: DescribeSnapshotCopyGrants -> TestTree-requestDescribeSnapshotCopyGrants = req- "DescribeSnapshotCopyGrants"- "fixture/DescribeSnapshotCopyGrants.yaml"---- Responses--responseDescribeClusters :: DescribeClustersResponse -> TestTree-responseDescribeClusters = res- "DescribeClustersResponse"- "fixture/DescribeClustersResponse.proto"- redshift- (Proxy :: Proxy DescribeClusters)--responseDescribeTags :: DescribeTagsResponse -> TestTree-responseDescribeTags = res- "DescribeTagsResponse"- "fixture/DescribeTagsResponse.proto"- redshift- (Proxy :: Proxy DescribeTags)--responseDeleteClusterSubnetGroup :: DeleteClusterSubnetGroupResponse -> TestTree-responseDeleteClusterSubnetGroup = res- "DeleteClusterSubnetGroupResponse"- "fixture/DeleteClusterSubnetGroupResponse.proto"- redshift- (Proxy :: Proxy DeleteClusterSubnetGroup)--responseDisableLogging :: LoggingStatus -> TestTree-responseDisableLogging = res- "DisableLoggingResponse"- "fixture/DisableLoggingResponse.proto"- redshift- (Proxy :: Proxy DisableLogging)--responseModifyEventSubscription :: ModifyEventSubscriptionResponse -> TestTree-responseModifyEventSubscription = res- "ModifyEventSubscriptionResponse"- "fixture/ModifyEventSubscriptionResponse.proto"- redshift- (Proxy :: Proxy ModifyEventSubscription)--responseDeleteClusterSnapshot :: DeleteClusterSnapshotResponse -> TestTree-responseDeleteClusterSnapshot = res- "DeleteClusterSnapshotResponse"- "fixture/DeleteClusterSnapshotResponse.proto"- redshift- (Proxy :: Proxy DeleteClusterSnapshot)--responsePurchaseReservedNodeOffering :: PurchaseReservedNodeOfferingResponse -> TestTree-responsePurchaseReservedNodeOffering = res- "PurchaseReservedNodeOfferingResponse"- "fixture/PurchaseReservedNodeOfferingResponse.proto"- redshift- (Proxy :: Proxy PurchaseReservedNodeOffering)--responseDescribeReservedNodeOfferings :: DescribeReservedNodeOfferingsResponse -> TestTree-responseDescribeReservedNodeOfferings = res- "DescribeReservedNodeOfferingsResponse"- "fixture/DescribeReservedNodeOfferingsResponse.proto"- redshift- (Proxy :: Proxy DescribeReservedNodeOfferings)--responseDescribeEvents :: DescribeEventsResponse -> TestTree-responseDescribeEvents = res- "DescribeEventsResponse"- "fixture/DescribeEventsResponse.proto"- redshift- (Proxy :: Proxy DescribeEvents)--responseDescribeReservedNodes :: DescribeReservedNodesResponse -> TestTree-responseDescribeReservedNodes = res- "DescribeReservedNodesResponse"- "fixture/DescribeReservedNodesResponse.proto"- redshift- (Proxy :: Proxy DescribeReservedNodes)--responseDescribeClusterParameterGroups :: DescribeClusterParameterGroupsResponse -> TestTree-responseDescribeClusterParameterGroups = res- "DescribeClusterParameterGroupsResponse"- "fixture/DescribeClusterParameterGroupsResponse.proto"- redshift- (Proxy :: Proxy DescribeClusterParameterGroups)--responseEnableLogging :: LoggingStatus -> TestTree-responseEnableLogging = res- "EnableLoggingResponse"- "fixture/EnableLoggingResponse.proto"- redshift- (Proxy :: Proxy EnableLogging)--responseCreateClusterSubnetGroup :: CreateClusterSubnetGroupResponse -> TestTree-responseCreateClusterSubnetGroup = res- "CreateClusterSubnetGroupResponse"- "fixture/CreateClusterSubnetGroupResponse.proto"- redshift- (Proxy :: Proxy CreateClusterSubnetGroup)--responseDeleteClusterParameterGroup :: DeleteClusterParameterGroupResponse -> TestTree-responseDeleteClusterParameterGroup = res- "DeleteClusterParameterGroupResponse"- "fixture/DeleteClusterParameterGroupResponse.proto"- redshift- (Proxy :: Proxy DeleteClusterParameterGroup)--responseDescribeClusterSecurityGroups :: DescribeClusterSecurityGroupsResponse -> TestTree-responseDescribeClusterSecurityGroups = res- "DescribeClusterSecurityGroupsResponse"- "fixture/DescribeClusterSecurityGroupsResponse.proto"- redshift- (Proxy :: Proxy DescribeClusterSecurityGroups)--responseCreateTags :: CreateTagsResponse -> TestTree-responseCreateTags = res- "CreateTagsResponse"- "fixture/CreateTagsResponse.proto"- redshift- (Proxy :: Proxy CreateTags)--responseEnableSnapshotCopy :: EnableSnapshotCopyResponse -> TestTree-responseEnableSnapshotCopy = res- "EnableSnapshotCopyResponse"- "fixture/EnableSnapshotCopyResponse.proto"- redshift- (Proxy :: Proxy EnableSnapshotCopy)--responseDescribeClusterSnapshots :: DescribeClusterSnapshotsResponse -> TestTree-responseDescribeClusterSnapshots = res- "DescribeClusterSnapshotsResponse"- "fixture/DescribeClusterSnapshotsResponse.proto"- redshift- (Proxy :: Proxy DescribeClusterSnapshots)--responseDeleteTags :: DeleteTagsResponse -> TestTree-responseDeleteTags = res- "DeleteTagsResponse"- "fixture/DeleteTagsResponse.proto"- redshift- (Proxy :: Proxy DeleteTags)--responseDescribeClusterSubnetGroups :: DescribeClusterSubnetGroupsResponse -> TestTree-responseDescribeClusterSubnetGroups = res- "DescribeClusterSubnetGroupsResponse"- "fixture/DescribeClusterSubnetGroupsResponse.proto"- redshift- (Proxy :: Proxy DescribeClusterSubnetGroups)--responseModifySnapshotCopyRetentionPeriod :: ModifySnapshotCopyRetentionPeriodResponse -> TestTree-responseModifySnapshotCopyRetentionPeriod = res- "ModifySnapshotCopyRetentionPeriodResponse"- "fixture/ModifySnapshotCopyRetentionPeriodResponse.proto"- redshift- (Proxy :: Proxy ModifySnapshotCopyRetentionPeriod)--responseModifyClusterIAMRoles :: ModifyClusterIAMRolesResponse -> TestTree-responseModifyClusterIAMRoles = res- "ModifyClusterIAMRolesResponse"- "fixture/ModifyClusterIAMRolesResponse.proto"- redshift- (Proxy :: Proxy ModifyClusterIAMRoles)--responseAuthorizeSnapshotAccess :: AuthorizeSnapshotAccessResponse -> TestTree-responseAuthorizeSnapshotAccess = res- "AuthorizeSnapshotAccessResponse"- "fixture/AuthorizeSnapshotAccessResponse.proto"- redshift- (Proxy :: Proxy AuthorizeSnapshotAccess)--responseRebootCluster :: RebootClusterResponse -> TestTree-responseRebootCluster = res- "RebootClusterResponse"- "fixture/RebootClusterResponse.proto"- redshift- (Proxy :: Proxy RebootCluster)--responseDeleteCluster :: DeleteClusterResponse -> TestTree-responseDeleteCluster = res- "DeleteClusterResponse"- "fixture/DeleteClusterResponse.proto"- redshift- (Proxy :: Proxy DeleteCluster)--responseCreateEventSubscription :: CreateEventSubscriptionResponse -> TestTree-responseCreateEventSubscription = res- "CreateEventSubscriptionResponse"- "fixture/CreateEventSubscriptionResponse.proto"- redshift- (Proxy :: Proxy CreateEventSubscription)--responseDescribeOrderableClusterOptions :: DescribeOrderableClusterOptionsResponse -> TestTree-responseDescribeOrderableClusterOptions = res- "DescribeOrderableClusterOptionsResponse"- "fixture/DescribeOrderableClusterOptionsResponse.proto"- redshift- (Proxy :: Proxy DescribeOrderableClusterOptions)--responseCreateCluster :: CreateClusterResponse -> TestTree-responseCreateCluster = res- "CreateClusterResponse"- "fixture/CreateClusterResponse.proto"- redshift- (Proxy :: Proxy CreateCluster)--responseCreateHSMClientCertificate :: CreateHSMClientCertificateResponse -> TestTree-responseCreateHSMClientCertificate = res- "CreateHSMClientCertificateResponse"- "fixture/CreateHSMClientCertificateResponse.proto"- redshift- (Proxy :: Proxy CreateHSMClientCertificate)--responseRestoreTableFromClusterSnapshot :: RestoreTableFromClusterSnapshotResponse -> TestTree-responseRestoreTableFromClusterSnapshot = res- "RestoreTableFromClusterSnapshotResponse"- "fixture/RestoreTableFromClusterSnapshotResponse.proto"- redshift- (Proxy :: Proxy RestoreTableFromClusterSnapshot)--responseDescribeDefaultClusterParameters :: DescribeDefaultClusterParametersResponse -> TestTree-responseDescribeDefaultClusterParameters = res- "DescribeDefaultClusterParametersResponse"- "fixture/DescribeDefaultClusterParametersResponse.proto"- redshift- (Proxy :: Proxy DescribeDefaultClusterParameters)--responseDeleteEventSubscription :: DeleteEventSubscriptionResponse -> TestTree-responseDeleteEventSubscription = res- "DeleteEventSubscriptionResponse"- "fixture/DeleteEventSubscriptionResponse.proto"- redshift- (Proxy :: Proxy DeleteEventSubscription)--responseResetClusterParameterGroup :: ClusterParameterGroupNameMessage -> TestTree-responseResetClusterParameterGroup = res- "ResetClusterParameterGroupResponse"- "fixture/ResetClusterParameterGroupResponse.proto"- redshift- (Proxy :: Proxy ResetClusterParameterGroup)--responseDescribeEventSubscriptions :: DescribeEventSubscriptionsResponse -> TestTree-responseDescribeEventSubscriptions = res- "DescribeEventSubscriptionsResponse"- "fixture/DescribeEventSubscriptionsResponse.proto"- redshift- (Proxy :: Proxy DescribeEventSubscriptions)--responseRevokeClusterSecurityGroupIngress :: RevokeClusterSecurityGroupIngressResponse -> TestTree-responseRevokeClusterSecurityGroupIngress = res- "RevokeClusterSecurityGroupIngressResponse"- "fixture/RevokeClusterSecurityGroupIngressResponse.proto"- redshift- (Proxy :: Proxy RevokeClusterSecurityGroupIngress)--responseDescribeHSMClientCertificates :: DescribeHSMClientCertificatesResponse -> TestTree-responseDescribeHSMClientCertificates = res- "DescribeHSMClientCertificatesResponse"- "fixture/DescribeHSMClientCertificatesResponse.proto"- redshift- (Proxy :: Proxy DescribeHSMClientCertificates)--responseModifyClusterParameterGroup :: ClusterParameterGroupNameMessage -> TestTree-responseModifyClusterParameterGroup = res- "ModifyClusterParameterGroupResponse"- "fixture/ModifyClusterParameterGroupResponse.proto"- redshift- (Proxy :: Proxy ModifyClusterParameterGroup)--responseGetClusterCredentials :: GetClusterCredentialsResponse -> TestTree-responseGetClusterCredentials = res- "GetClusterCredentialsResponse"- "fixture/GetClusterCredentialsResponse.proto"- redshift- (Proxy :: Proxy GetClusterCredentials)--responseCreateClusterSecurityGroup :: CreateClusterSecurityGroupResponse -> TestTree-responseCreateClusterSecurityGroup = res- "CreateClusterSecurityGroupResponse"- "fixture/CreateClusterSecurityGroupResponse.proto"- redshift- (Proxy :: Proxy CreateClusterSecurityGroup)--responseDescribeEventCategories :: DescribeEventCategoriesResponse -> TestTree-responseDescribeEventCategories = res- "DescribeEventCategoriesResponse"- "fixture/DescribeEventCategoriesResponse.proto"- redshift- (Proxy :: Proxy DescribeEventCategories)--responseDescribeResize :: DescribeResizeResponse -> TestTree-responseDescribeResize = res- "DescribeResizeResponse"- "fixture/DescribeResizeResponse.proto"- redshift- (Proxy :: Proxy DescribeResize)--responseDeleteHSMConfiguration :: DeleteHSMConfigurationResponse -> TestTree-responseDeleteHSMConfiguration = res- "DeleteHSMConfigurationResponse"- "fixture/DeleteHSMConfigurationResponse.proto"- redshift- (Proxy :: Proxy DeleteHSMConfiguration)--responseAuthorizeClusterSecurityGroupIngress :: AuthorizeClusterSecurityGroupIngressResponse -> TestTree-responseAuthorizeClusterSecurityGroupIngress = res- "AuthorizeClusterSecurityGroupIngressResponse"- "fixture/AuthorizeClusterSecurityGroupIngressResponse.proto"- redshift- (Proxy :: Proxy AuthorizeClusterSecurityGroupIngress)--responseDescribeTableRestoreStatus :: DescribeTableRestoreStatusResponse -> TestTree-responseDescribeTableRestoreStatus = res- "DescribeTableRestoreStatusResponse"- "fixture/DescribeTableRestoreStatusResponse.proto"- redshift- (Proxy :: Proxy DescribeTableRestoreStatus)--responseCreateClusterSnapshot :: CreateClusterSnapshotResponse -> TestTree-responseCreateClusterSnapshot = res- "CreateClusterSnapshotResponse"- "fixture/CreateClusterSnapshotResponse.proto"- redshift- (Proxy :: Proxy CreateClusterSnapshot)--responseCreateHSMConfiguration :: CreateHSMConfigurationResponse -> TestTree-responseCreateHSMConfiguration = res- "CreateHSMConfigurationResponse"- "fixture/CreateHSMConfigurationResponse.proto"- redshift- (Proxy :: Proxy CreateHSMConfiguration)--responseDescribeLoggingStatus :: LoggingStatus -> TestTree-responseDescribeLoggingStatus = res- "DescribeLoggingStatusResponse"- "fixture/DescribeLoggingStatusResponse.proto"- redshift- (Proxy :: Proxy DescribeLoggingStatus)--responseModifyCluster :: ModifyClusterResponse -> TestTree-responseModifyCluster = res- "ModifyClusterResponse"- "fixture/ModifyClusterResponse.proto"- redshift- (Proxy :: Proxy ModifyCluster)--responseDeleteClusterSecurityGroup :: DeleteClusterSecurityGroupResponse -> TestTree-responseDeleteClusterSecurityGroup = res- "DeleteClusterSecurityGroupResponse"- "fixture/DeleteClusterSecurityGroupResponse.proto"- redshift- (Proxy :: Proxy DeleteClusterSecurityGroup)--responseDisableSnapshotCopy :: DisableSnapshotCopyResponse -> TestTree-responseDisableSnapshotCopy = res- "DisableSnapshotCopyResponse"- "fixture/DisableSnapshotCopyResponse.proto"- redshift- (Proxy :: Proxy DisableSnapshotCopy)--responseDescribeClusterParameters :: DescribeClusterParametersResponse -> TestTree-responseDescribeClusterParameters = res- "DescribeClusterParametersResponse"- "fixture/DescribeClusterParametersResponse.proto"- redshift- (Proxy :: Proxy DescribeClusterParameters)--responseRestoreFromClusterSnapshot :: RestoreFromClusterSnapshotResponse -> TestTree-responseRestoreFromClusterSnapshot = res- "RestoreFromClusterSnapshotResponse"- "fixture/RestoreFromClusterSnapshotResponse.proto"- redshift- (Proxy :: Proxy RestoreFromClusterSnapshot)--responseCreateClusterParameterGroup :: CreateClusterParameterGroupResponse -> TestTree-responseCreateClusterParameterGroup = res- "CreateClusterParameterGroupResponse"- "fixture/CreateClusterParameterGroupResponse.proto"- redshift- (Proxy :: Proxy CreateClusterParameterGroup)--responseRevokeSnapshotAccess :: RevokeSnapshotAccessResponse -> TestTree-responseRevokeSnapshotAccess = res- "RevokeSnapshotAccessResponse"- "fixture/RevokeSnapshotAccessResponse.proto"- redshift- (Proxy :: Proxy RevokeSnapshotAccess)--responseDescribeHSMConfigurations :: DescribeHSMConfigurationsResponse -> TestTree-responseDescribeHSMConfigurations = res- "DescribeHSMConfigurationsResponse"- "fixture/DescribeHSMConfigurationsResponse.proto"- redshift- (Proxy :: Proxy DescribeHSMConfigurations)--responseCreateSnapshotCopyGrant :: CreateSnapshotCopyGrantResponse -> TestTree-responseCreateSnapshotCopyGrant = res- "CreateSnapshotCopyGrantResponse"- "fixture/CreateSnapshotCopyGrantResponse.proto"- redshift- (Proxy :: Proxy CreateSnapshotCopyGrant)--responseCopyClusterSnapshot :: CopyClusterSnapshotResponse -> TestTree-responseCopyClusterSnapshot = res- "CopyClusterSnapshotResponse"- "fixture/CopyClusterSnapshotResponse.proto"- redshift- (Proxy :: Proxy CopyClusterSnapshot)--responseDeleteHSMClientCertificate :: DeleteHSMClientCertificateResponse -> TestTree-responseDeleteHSMClientCertificate = res- "DeleteHSMClientCertificateResponse"- "fixture/DeleteHSMClientCertificateResponse.proto"- redshift- (Proxy :: Proxy DeleteHSMClientCertificate)--responseDeleteSnapshotCopyGrant :: DeleteSnapshotCopyGrantResponse -> TestTree-responseDeleteSnapshotCopyGrant = res- "DeleteSnapshotCopyGrantResponse"- "fixture/DeleteSnapshotCopyGrantResponse.proto"- redshift- (Proxy :: Proxy DeleteSnapshotCopyGrant)--responseDescribeClusterVersions :: DescribeClusterVersionsResponse -> TestTree-responseDescribeClusterVersions = res- "DescribeClusterVersionsResponse"- "fixture/DescribeClusterVersionsResponse.proto"- redshift- (Proxy :: Proxy DescribeClusterVersions)--responseModifyClusterSubnetGroup :: ModifyClusterSubnetGroupResponse -> TestTree-responseModifyClusterSubnetGroup = res- "ModifyClusterSubnetGroupResponse"- "fixture/ModifyClusterSubnetGroupResponse.proto"- redshift- (Proxy :: Proxy ModifyClusterSubnetGroup)--responseRotateEncryptionKey :: RotateEncryptionKeyResponse -> TestTree-responseRotateEncryptionKey = res- "RotateEncryptionKeyResponse"- "fixture/RotateEncryptionKeyResponse.proto"- redshift- (Proxy :: Proxy RotateEncryptionKey)--responseDescribeSnapshotCopyGrants :: DescribeSnapshotCopyGrantsResponse -> TestTree-responseDescribeSnapshotCopyGrants = res- "DescribeSnapshotCopyGrantsResponse"- "fixture/DescribeSnapshotCopyGrantsResponse.proto"- redshift- (Proxy :: Proxy DescribeSnapshotCopyGrants)
− test/Test/AWS/Redshift.hs
@@ -1,26 +0,0 @@-{-# LANGUAGE OverloadedStrings #-}---- Module : Test.AWS.Redshift--- Copyright : (c) 2013-2018 Brendan Hay--- License : This Source Code Form is subject to the terms of--- the Mozilla Public License, v. 2.0.--- A copy of the MPL can be found in the LICENSE file or--- you can obtain it at http://mozilla.org/MPL/2.0/.--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>--- Stability : experimental--- Portability : non-portable (GHC extensions)--module Test.AWS.Redshift- ( tests- , fixtures- ) where--import Network.AWS.Redshift-import Test.AWS.Gen.Redshift-import Test.Tasty--tests :: [TestTree]-tests = []--fixtures :: [TestTree]-fixtures = []
− test/Test/AWS/Redshift/Internal.hs
@@ -1,16 +0,0 @@-{-# LANGUAGE OverloadedStrings #-}-{-# OPTIONS_GHC -fno-warn-unused-imports #-}---- Module : Test.AWS.Redshift.Internal--- Copyright : (c) 2013-2018 Brendan Hay--- License : This Source Code Form is subject to the terms of--- the Mozilla Public License, v. 2.0.--- A copy of the MPL can be found in the LICENSE file or--- you can obtain it at http://mozilla.org/MPL/2.0/.--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>--- Stability : experimental--- Portability : non-portable (GHC extensions)--module Test.AWS.Redshift.Internal where--import Test.AWS.Prelude
+ test/Test/Amazonka/Gen/Redshift.hs view
@@ -0,0 +1,2418 @@+{-# OPTIONS_GHC -fno-warn-orphans #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module : Test.Amazonka.Gen.Redshift+-- Copyright : (c) 2013-2023 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+module Test.Amazonka.Gen.Redshift where++import Amazonka.Redshift+import qualified Data.Proxy as Proxy+import Test.Amazonka.Fixture+import Test.Amazonka.Prelude+import Test.Amazonka.Redshift.Internal+import Test.Tasty++-- Auto-generated: the actual test selection needs to be manually placed into+-- the top-level so that real test data can be incrementally added.+--+-- This commented snippet is what the entire set should look like:++-- fixtures :: TestTree+-- fixtures =+-- [ testGroup "request"+-- [ requestAcceptReservedNodeExchange $+-- newAcceptReservedNodeExchange+--+-- , requestAddPartner $+-- newAddPartner+--+-- , requestAssociateDataShareConsumer $+-- newAssociateDataShareConsumer+--+-- , requestAuthorizeClusterSecurityGroupIngress $+-- newAuthorizeClusterSecurityGroupIngress+--+-- , requestAuthorizeDataShare $+-- newAuthorizeDataShare+--+-- , requestAuthorizeEndpointAccess $+-- newAuthorizeEndpointAccess+--+-- , requestAuthorizeSnapshotAccess $+-- newAuthorizeSnapshotAccess+--+-- , requestBatchDeleteClusterSnapshots $+-- newBatchDeleteClusterSnapshots+--+-- , requestBatchModifyClusterSnapshots $+-- newBatchModifyClusterSnapshots+--+-- , requestCancelResize $+-- newCancelResize+--+-- , requestCopyClusterSnapshot $+-- newCopyClusterSnapshot+--+-- , requestCreateAuthenticationProfile $+-- newCreateAuthenticationProfile+--+-- , requestCreateCluster $+-- newCreateCluster+--+-- , requestCreateClusterParameterGroup $+-- newCreateClusterParameterGroup+--+-- , requestCreateClusterSecurityGroup $+-- newCreateClusterSecurityGroup+--+-- , requestCreateClusterSnapshot $+-- newCreateClusterSnapshot+--+-- , requestCreateClusterSubnetGroup $+-- newCreateClusterSubnetGroup+--+-- , requestCreateEndpointAccess $+-- newCreateEndpointAccess+--+-- , requestCreateEventSubscription $+-- newCreateEventSubscription+--+-- , requestCreateHsmClientCertificate $+-- newCreateHsmClientCertificate+--+-- , requestCreateHsmConfiguration $+-- newCreateHsmConfiguration+--+-- , requestCreateScheduledAction $+-- newCreateScheduledAction+--+-- , requestCreateSnapshotCopyGrant $+-- newCreateSnapshotCopyGrant+--+-- , requestCreateSnapshotSchedule $+-- newCreateSnapshotSchedule+--+-- , requestCreateTags $+-- newCreateTags+--+-- , requestCreateUsageLimit $+-- newCreateUsageLimit+--+-- , requestDeauthorizeDataShare $+-- newDeauthorizeDataShare+--+-- , requestDeleteAuthenticationProfile $+-- newDeleteAuthenticationProfile+--+-- , requestDeleteCluster $+-- newDeleteCluster+--+-- , requestDeleteClusterParameterGroup $+-- newDeleteClusterParameterGroup+--+-- , requestDeleteClusterSecurityGroup $+-- newDeleteClusterSecurityGroup+--+-- , requestDeleteClusterSnapshot $+-- newDeleteClusterSnapshot+--+-- , requestDeleteClusterSubnetGroup $+-- newDeleteClusterSubnetGroup+--+-- , requestDeleteEndpointAccess $+-- newDeleteEndpointAccess+--+-- , requestDeleteEventSubscription $+-- newDeleteEventSubscription+--+-- , requestDeleteHsmClientCertificate $+-- newDeleteHsmClientCertificate+--+-- , requestDeleteHsmConfiguration $+-- newDeleteHsmConfiguration+--+-- , requestDeletePartner $+-- newDeletePartner+--+-- , requestDeleteScheduledAction $+-- newDeleteScheduledAction+--+-- , requestDeleteSnapshotCopyGrant $+-- newDeleteSnapshotCopyGrant+--+-- , requestDeleteSnapshotSchedule $+-- newDeleteSnapshotSchedule+--+-- , requestDeleteTags $+-- newDeleteTags+--+-- , requestDeleteUsageLimit $+-- newDeleteUsageLimit+--+-- , requestDescribeAccountAttributes $+-- newDescribeAccountAttributes+--+-- , requestDescribeAuthenticationProfiles $+-- newDescribeAuthenticationProfiles+--+-- , requestDescribeClusterDbRevisions $+-- newDescribeClusterDbRevisions+--+-- , requestDescribeClusterParameterGroups $+-- newDescribeClusterParameterGroups+--+-- , requestDescribeClusterParameters $+-- newDescribeClusterParameters+--+-- , requestDescribeClusterSecurityGroups $+-- newDescribeClusterSecurityGroups+--+-- , requestDescribeClusterSnapshots $+-- newDescribeClusterSnapshots+--+-- , requestDescribeClusterSubnetGroups $+-- newDescribeClusterSubnetGroups+--+-- , requestDescribeClusterTracks $+-- newDescribeClusterTracks+--+-- , requestDescribeClusterVersions $+-- newDescribeClusterVersions+--+-- , requestDescribeClusters $+-- newDescribeClusters+--+-- , requestDescribeDataShares $+-- newDescribeDataShares+--+-- , requestDescribeDataSharesForConsumer $+-- newDescribeDataSharesForConsumer+--+-- , requestDescribeDataSharesForProducer $+-- newDescribeDataSharesForProducer+--+-- , requestDescribeDefaultClusterParameters $+-- newDescribeDefaultClusterParameters+--+-- , requestDescribeEndpointAccess $+-- newDescribeEndpointAccess+--+-- , requestDescribeEndpointAuthorization $+-- newDescribeEndpointAuthorization+--+-- , requestDescribeEventCategories $+-- newDescribeEventCategories+--+-- , requestDescribeEventSubscriptions $+-- newDescribeEventSubscriptions+--+-- , requestDescribeEvents $+-- newDescribeEvents+--+-- , requestDescribeHsmClientCertificates $+-- newDescribeHsmClientCertificates+--+-- , requestDescribeHsmConfigurations $+-- newDescribeHsmConfigurations+--+-- , requestDescribeLoggingStatus $+-- newDescribeLoggingStatus+--+-- , requestDescribeNodeConfigurationOptions $+-- newDescribeNodeConfigurationOptions+--+-- , requestDescribeOrderableClusterOptions $+-- newDescribeOrderableClusterOptions+--+-- , requestDescribePartners $+-- newDescribePartners+--+-- , requestDescribeReservedNodeExchangeStatus $+-- newDescribeReservedNodeExchangeStatus+--+-- , requestDescribeReservedNodeOfferings $+-- newDescribeReservedNodeOfferings+--+-- , requestDescribeReservedNodes $+-- newDescribeReservedNodes+--+-- , requestDescribeResize $+-- newDescribeResize+--+-- , requestDescribeScheduledActions $+-- newDescribeScheduledActions+--+-- , requestDescribeSnapshotCopyGrants $+-- newDescribeSnapshotCopyGrants+--+-- , requestDescribeSnapshotSchedules $+-- newDescribeSnapshotSchedules+--+-- , requestDescribeStorage $+-- newDescribeStorage+--+-- , requestDescribeTableRestoreStatus $+-- newDescribeTableRestoreStatus+--+-- , requestDescribeTags $+-- newDescribeTags+--+-- , requestDescribeUsageLimits $+-- newDescribeUsageLimits+--+-- , requestDisableLogging $+-- newDisableLogging+--+-- , requestDisableSnapshotCopy $+-- newDisableSnapshotCopy+--+-- , requestDisassociateDataShareConsumer $+-- newDisassociateDataShareConsumer+--+-- , requestEnableLogging $+-- newEnableLogging+--+-- , requestEnableSnapshotCopy $+-- newEnableSnapshotCopy+--+-- , requestGetClusterCredentials $+-- newGetClusterCredentials+--+-- , requestGetClusterCredentialsWithIAM $+-- newGetClusterCredentialsWithIAM+--+-- , requestGetReservedNodeExchangeConfigurationOptions $+-- newGetReservedNodeExchangeConfigurationOptions+--+-- , requestGetReservedNodeExchangeOfferings $+-- newGetReservedNodeExchangeOfferings+--+-- , requestModifyAquaConfiguration $+-- newModifyAquaConfiguration+--+-- , requestModifyAuthenticationProfile $+-- newModifyAuthenticationProfile+--+-- , requestModifyCluster $+-- newModifyCluster+--+-- , requestModifyClusterDbRevision $+-- newModifyClusterDbRevision+--+-- , requestModifyClusterIamRoles $+-- newModifyClusterIamRoles+--+-- , requestModifyClusterMaintenance $+-- newModifyClusterMaintenance+--+-- , requestModifyClusterParameterGroup $+-- newModifyClusterParameterGroup+--+-- , requestModifyClusterSnapshot $+-- newModifyClusterSnapshot+--+-- , requestModifyClusterSnapshotSchedule $+-- newModifyClusterSnapshotSchedule+--+-- , requestModifyClusterSubnetGroup $+-- newModifyClusterSubnetGroup+--+-- , requestModifyEndpointAccess $+-- newModifyEndpointAccess+--+-- , requestModifyEventSubscription $+-- newModifyEventSubscription+--+-- , requestModifyScheduledAction $+-- newModifyScheduledAction+--+-- , requestModifySnapshotCopyRetentionPeriod $+-- newModifySnapshotCopyRetentionPeriod+--+-- , requestModifySnapshotSchedule $+-- newModifySnapshotSchedule+--+-- , requestModifyUsageLimit $+-- newModifyUsageLimit+--+-- , requestPauseCluster $+-- newPauseCluster+--+-- , requestPurchaseReservedNodeOffering $+-- newPurchaseReservedNodeOffering+--+-- , requestRebootCluster $+-- newRebootCluster+--+-- , requestRejectDataShare $+-- newRejectDataShare+--+-- , requestResetClusterParameterGroup $+-- newResetClusterParameterGroup+--+-- , requestResizeCluster $+-- newResizeCluster+--+-- , requestRestoreFromClusterSnapshot $+-- newRestoreFromClusterSnapshot+--+-- , requestRestoreTableFromClusterSnapshot $+-- newRestoreTableFromClusterSnapshot+--+-- , requestResumeCluster $+-- newResumeCluster+--+-- , requestRevokeClusterSecurityGroupIngress $+-- newRevokeClusterSecurityGroupIngress+--+-- , requestRevokeEndpointAccess $+-- newRevokeEndpointAccess+--+-- , requestRevokeSnapshotAccess $+-- newRevokeSnapshotAccess+--+-- , requestRotateEncryptionKey $+-- newRotateEncryptionKey+--+-- , requestUpdatePartnerStatus $+-- newUpdatePartnerStatus+--+-- ]++-- , testGroup "response"+-- [ responseAcceptReservedNodeExchange $+-- newAcceptReservedNodeExchangeResponse+--+-- , responseAddPartner $+-- newPartnerIntegrationOutputMessage+--+-- , responseAssociateDataShareConsumer $+-- newDataShare+--+-- , responseAuthorizeClusterSecurityGroupIngress $+-- newAuthorizeClusterSecurityGroupIngressResponse+--+-- , responseAuthorizeDataShare $+-- newDataShare+--+-- , responseAuthorizeEndpointAccess $+-- newEndpointAuthorization+--+-- , responseAuthorizeSnapshotAccess $+-- newAuthorizeSnapshotAccessResponse+--+-- , responseBatchDeleteClusterSnapshots $+-- newBatchDeleteClusterSnapshotsResponse+--+-- , responseBatchModifyClusterSnapshots $+-- newBatchModifyClusterSnapshotsResponse+--+-- , responseCancelResize $+-- newResizeProgressMessage+--+-- , responseCopyClusterSnapshot $+-- newCopyClusterSnapshotResponse+--+-- , responseCreateAuthenticationProfile $+-- newCreateAuthenticationProfileResponse+--+-- , responseCreateCluster $+-- newCreateClusterResponse+--+-- , responseCreateClusterParameterGroup $+-- newCreateClusterParameterGroupResponse+--+-- , responseCreateClusterSecurityGroup $+-- newCreateClusterSecurityGroupResponse+--+-- , responseCreateClusterSnapshot $+-- newCreateClusterSnapshotResponse+--+-- , responseCreateClusterSubnetGroup $+-- newCreateClusterSubnetGroupResponse+--+-- , responseCreateEndpointAccess $+-- newEndpointAccess+--+-- , responseCreateEventSubscription $+-- newCreateEventSubscriptionResponse+--+-- , responseCreateHsmClientCertificate $+-- newCreateHsmClientCertificateResponse+--+-- , responseCreateHsmConfiguration $+-- newCreateHsmConfigurationResponse+--+-- , responseCreateScheduledAction $+-- newScheduledAction+--+-- , responseCreateSnapshotCopyGrant $+-- newCreateSnapshotCopyGrantResponse+--+-- , responseCreateSnapshotSchedule $+-- newSnapshotSchedule+--+-- , responseCreateTags $+-- newCreateTagsResponse+--+-- , responseCreateUsageLimit $+-- newUsageLimit+--+-- , responseDeauthorizeDataShare $+-- newDataShare+--+-- , responseDeleteAuthenticationProfile $+-- newDeleteAuthenticationProfileResponse+--+-- , responseDeleteCluster $+-- newDeleteClusterResponse+--+-- , responseDeleteClusterParameterGroup $+-- newDeleteClusterParameterGroupResponse+--+-- , responseDeleteClusterSecurityGroup $+-- newDeleteClusterSecurityGroupResponse+--+-- , responseDeleteClusterSnapshot $+-- newDeleteClusterSnapshotResponse+--+-- , responseDeleteClusterSubnetGroup $+-- newDeleteClusterSubnetGroupResponse+--+-- , responseDeleteEndpointAccess $+-- newEndpointAccess+--+-- , responseDeleteEventSubscription $+-- newDeleteEventSubscriptionResponse+--+-- , responseDeleteHsmClientCertificate $+-- newDeleteHsmClientCertificateResponse+--+-- , responseDeleteHsmConfiguration $+-- newDeleteHsmConfigurationResponse+--+-- , responseDeletePartner $+-- newPartnerIntegrationOutputMessage+--+-- , responseDeleteScheduledAction $+-- newDeleteScheduledActionResponse+--+-- , responseDeleteSnapshotCopyGrant $+-- newDeleteSnapshotCopyGrantResponse+--+-- , responseDeleteSnapshotSchedule $+-- newDeleteSnapshotScheduleResponse+--+-- , responseDeleteTags $+-- newDeleteTagsResponse+--+-- , responseDeleteUsageLimit $+-- newDeleteUsageLimitResponse+--+-- , responseDescribeAccountAttributes $+-- newDescribeAccountAttributesResponse+--+-- , responseDescribeAuthenticationProfiles $+-- newDescribeAuthenticationProfilesResponse+--+-- , responseDescribeClusterDbRevisions $+-- newDescribeClusterDbRevisionsResponse+--+-- , responseDescribeClusterParameterGroups $+-- newDescribeClusterParameterGroupsResponse+--+-- , responseDescribeClusterParameters $+-- newDescribeClusterParametersResponse+--+-- , responseDescribeClusterSecurityGroups $+-- newDescribeClusterSecurityGroupsResponse+--+-- , responseDescribeClusterSnapshots $+-- newDescribeClusterSnapshotsResponse+--+-- , responseDescribeClusterSubnetGroups $+-- newDescribeClusterSubnetGroupsResponse+--+-- , responseDescribeClusterTracks $+-- newDescribeClusterTracksResponse+--+-- , responseDescribeClusterVersions $+-- newDescribeClusterVersionsResponse+--+-- , responseDescribeClusters $+-- newDescribeClustersResponse+--+-- , responseDescribeDataShares $+-- newDescribeDataSharesResponse+--+-- , responseDescribeDataSharesForConsumer $+-- newDescribeDataSharesForConsumerResponse+--+-- , responseDescribeDataSharesForProducer $+-- newDescribeDataSharesForProducerResponse+--+-- , responseDescribeDefaultClusterParameters $+-- newDescribeDefaultClusterParametersResponse+--+-- , responseDescribeEndpointAccess $+-- newDescribeEndpointAccessResponse+--+-- , responseDescribeEndpointAuthorization $+-- newDescribeEndpointAuthorizationResponse+--+-- , responseDescribeEventCategories $+-- newDescribeEventCategoriesResponse+--+-- , responseDescribeEventSubscriptions $+-- newDescribeEventSubscriptionsResponse+--+-- , responseDescribeEvents $+-- newDescribeEventsResponse+--+-- , responseDescribeHsmClientCertificates $+-- newDescribeHsmClientCertificatesResponse+--+-- , responseDescribeHsmConfigurations $+-- newDescribeHsmConfigurationsResponse+--+-- , responseDescribeLoggingStatus $+-- newLoggingStatus+--+-- , responseDescribeNodeConfigurationOptions $+-- newDescribeNodeConfigurationOptionsResponse+--+-- , responseDescribeOrderableClusterOptions $+-- newDescribeOrderableClusterOptionsResponse+--+-- , responseDescribePartners $+-- newDescribePartnersResponse+--+-- , responseDescribeReservedNodeExchangeStatus $+-- newDescribeReservedNodeExchangeStatusResponse+--+-- , responseDescribeReservedNodeOfferings $+-- newDescribeReservedNodeOfferingsResponse+--+-- , responseDescribeReservedNodes $+-- newDescribeReservedNodesResponse+--+-- , responseDescribeResize $+-- newResizeProgressMessage+--+-- , responseDescribeScheduledActions $+-- newDescribeScheduledActionsResponse+--+-- , responseDescribeSnapshotCopyGrants $+-- newDescribeSnapshotCopyGrantsResponse+--+-- , responseDescribeSnapshotSchedules $+-- newDescribeSnapshotSchedulesResponse+--+-- , responseDescribeStorage $+-- newDescribeStorageResponse+--+-- , responseDescribeTableRestoreStatus $+-- newDescribeTableRestoreStatusResponse+--+-- , responseDescribeTags $+-- newDescribeTagsResponse+--+-- , responseDescribeUsageLimits $+-- newDescribeUsageLimitsResponse+--+-- , responseDisableLogging $+-- newLoggingStatus+--+-- , responseDisableSnapshotCopy $+-- newDisableSnapshotCopyResponse+--+-- , responseDisassociateDataShareConsumer $+-- newDataShare+--+-- , responseEnableLogging $+-- newLoggingStatus+--+-- , responseEnableSnapshotCopy $+-- newEnableSnapshotCopyResponse+--+-- , responseGetClusterCredentials $+-- newGetClusterCredentialsResponse+--+-- , responseGetClusterCredentialsWithIAM $+-- newGetClusterCredentialsWithIAMResponse+--+-- , responseGetReservedNodeExchangeConfigurationOptions $+-- newGetReservedNodeExchangeConfigurationOptionsResponse+--+-- , responseGetReservedNodeExchangeOfferings $+-- newGetReservedNodeExchangeOfferingsResponse+--+-- , responseModifyAquaConfiguration $+-- newModifyAquaConfigurationResponse+--+-- , responseModifyAuthenticationProfile $+-- newModifyAuthenticationProfileResponse+--+-- , responseModifyCluster $+-- newModifyClusterResponse+--+-- , responseModifyClusterDbRevision $+-- newModifyClusterDbRevisionResponse+--+-- , responseModifyClusterIamRoles $+-- newModifyClusterIamRolesResponse+--+-- , responseModifyClusterMaintenance $+-- newModifyClusterMaintenanceResponse+--+-- , responseModifyClusterParameterGroup $+-- newClusterParameterGroupNameMessage+--+-- , responseModifyClusterSnapshot $+-- newModifyClusterSnapshotResponse+--+-- , responseModifyClusterSnapshotSchedule $+-- newModifyClusterSnapshotScheduleResponse+--+-- , responseModifyClusterSubnetGroup $+-- newModifyClusterSubnetGroupResponse+--+-- , responseModifyEndpointAccess $+-- newEndpointAccess+--+-- , responseModifyEventSubscription $+-- newModifyEventSubscriptionResponse+--+-- , responseModifyScheduledAction $+-- newScheduledAction+--+-- , responseModifySnapshotCopyRetentionPeriod $+-- newModifySnapshotCopyRetentionPeriodResponse+--+-- , responseModifySnapshotSchedule $+-- newSnapshotSchedule+--+-- , responseModifyUsageLimit $+-- newUsageLimit+--+-- , responsePauseCluster $+-- newPauseClusterResponse+--+-- , responsePurchaseReservedNodeOffering $+-- newPurchaseReservedNodeOfferingResponse+--+-- , responseRebootCluster $+-- newRebootClusterResponse+--+-- , responseRejectDataShare $+-- newDataShare+--+-- , responseResetClusterParameterGroup $+-- newClusterParameterGroupNameMessage+--+-- , responseResizeCluster $+-- newResizeClusterResponse+--+-- , responseRestoreFromClusterSnapshot $+-- newRestoreFromClusterSnapshotResponse+--+-- , responseRestoreTableFromClusterSnapshot $+-- newRestoreTableFromClusterSnapshotResponse+--+-- , responseResumeCluster $+-- newResumeClusterResponse+--+-- , responseRevokeClusterSecurityGroupIngress $+-- newRevokeClusterSecurityGroupIngressResponse+--+-- , responseRevokeEndpointAccess $+-- newEndpointAuthorization+--+-- , responseRevokeSnapshotAccess $+-- newRevokeSnapshotAccessResponse+--+-- , responseRotateEncryptionKey $+-- newRotateEncryptionKeyResponse+--+-- , responseUpdatePartnerStatus $+-- newPartnerIntegrationOutputMessage+--+-- ]+-- ]++-- Requests++requestAcceptReservedNodeExchange :: AcceptReservedNodeExchange -> TestTree+requestAcceptReservedNodeExchange =+ req+ "AcceptReservedNodeExchange"+ "fixture/AcceptReservedNodeExchange.yaml"++requestAddPartner :: AddPartner -> TestTree+requestAddPartner =+ req+ "AddPartner"+ "fixture/AddPartner.yaml"++requestAssociateDataShareConsumer :: AssociateDataShareConsumer -> TestTree+requestAssociateDataShareConsumer =+ req+ "AssociateDataShareConsumer"+ "fixture/AssociateDataShareConsumer.yaml"++requestAuthorizeClusterSecurityGroupIngress :: AuthorizeClusterSecurityGroupIngress -> TestTree+requestAuthorizeClusterSecurityGroupIngress =+ req+ "AuthorizeClusterSecurityGroupIngress"+ "fixture/AuthorizeClusterSecurityGroupIngress.yaml"++requestAuthorizeDataShare :: AuthorizeDataShare -> TestTree+requestAuthorizeDataShare =+ req+ "AuthorizeDataShare"+ "fixture/AuthorizeDataShare.yaml"++requestAuthorizeEndpointAccess :: AuthorizeEndpointAccess -> TestTree+requestAuthorizeEndpointAccess =+ req+ "AuthorizeEndpointAccess"+ "fixture/AuthorizeEndpointAccess.yaml"++requestAuthorizeSnapshotAccess :: AuthorizeSnapshotAccess -> TestTree+requestAuthorizeSnapshotAccess =+ req+ "AuthorizeSnapshotAccess"+ "fixture/AuthorizeSnapshotAccess.yaml"++requestBatchDeleteClusterSnapshots :: BatchDeleteClusterSnapshots -> TestTree+requestBatchDeleteClusterSnapshots =+ req+ "BatchDeleteClusterSnapshots"+ "fixture/BatchDeleteClusterSnapshots.yaml"++requestBatchModifyClusterSnapshots :: BatchModifyClusterSnapshots -> TestTree+requestBatchModifyClusterSnapshots =+ req+ "BatchModifyClusterSnapshots"+ "fixture/BatchModifyClusterSnapshots.yaml"++requestCancelResize :: CancelResize -> TestTree+requestCancelResize =+ req+ "CancelResize"+ "fixture/CancelResize.yaml"++requestCopyClusterSnapshot :: CopyClusterSnapshot -> TestTree+requestCopyClusterSnapshot =+ req+ "CopyClusterSnapshot"+ "fixture/CopyClusterSnapshot.yaml"++requestCreateAuthenticationProfile :: CreateAuthenticationProfile -> TestTree+requestCreateAuthenticationProfile =+ req+ "CreateAuthenticationProfile"+ "fixture/CreateAuthenticationProfile.yaml"++requestCreateCluster :: CreateCluster -> TestTree+requestCreateCluster =+ req+ "CreateCluster"+ "fixture/CreateCluster.yaml"++requestCreateClusterParameterGroup :: CreateClusterParameterGroup -> TestTree+requestCreateClusterParameterGroup =+ req+ "CreateClusterParameterGroup"+ "fixture/CreateClusterParameterGroup.yaml"++requestCreateClusterSecurityGroup :: CreateClusterSecurityGroup -> TestTree+requestCreateClusterSecurityGroup =+ req+ "CreateClusterSecurityGroup"+ "fixture/CreateClusterSecurityGroup.yaml"++requestCreateClusterSnapshot :: CreateClusterSnapshot -> TestTree+requestCreateClusterSnapshot =+ req+ "CreateClusterSnapshot"+ "fixture/CreateClusterSnapshot.yaml"++requestCreateClusterSubnetGroup :: CreateClusterSubnetGroup -> TestTree+requestCreateClusterSubnetGroup =+ req+ "CreateClusterSubnetGroup"+ "fixture/CreateClusterSubnetGroup.yaml"++requestCreateEndpointAccess :: CreateEndpointAccess -> TestTree+requestCreateEndpointAccess =+ req+ "CreateEndpointAccess"+ "fixture/CreateEndpointAccess.yaml"++requestCreateEventSubscription :: CreateEventSubscription -> TestTree+requestCreateEventSubscription =+ req+ "CreateEventSubscription"+ "fixture/CreateEventSubscription.yaml"++requestCreateHsmClientCertificate :: CreateHsmClientCertificate -> TestTree+requestCreateHsmClientCertificate =+ req+ "CreateHsmClientCertificate"+ "fixture/CreateHsmClientCertificate.yaml"++requestCreateHsmConfiguration :: CreateHsmConfiguration -> TestTree+requestCreateHsmConfiguration =+ req+ "CreateHsmConfiguration"+ "fixture/CreateHsmConfiguration.yaml"++requestCreateScheduledAction :: CreateScheduledAction -> TestTree+requestCreateScheduledAction =+ req+ "CreateScheduledAction"+ "fixture/CreateScheduledAction.yaml"++requestCreateSnapshotCopyGrant :: CreateSnapshotCopyGrant -> TestTree+requestCreateSnapshotCopyGrant =+ req+ "CreateSnapshotCopyGrant"+ "fixture/CreateSnapshotCopyGrant.yaml"++requestCreateSnapshotSchedule :: CreateSnapshotSchedule -> TestTree+requestCreateSnapshotSchedule =+ req+ "CreateSnapshotSchedule"+ "fixture/CreateSnapshotSchedule.yaml"++requestCreateTags :: CreateTags -> TestTree+requestCreateTags =+ req+ "CreateTags"+ "fixture/CreateTags.yaml"++requestCreateUsageLimit :: CreateUsageLimit -> TestTree+requestCreateUsageLimit =+ req+ "CreateUsageLimit"+ "fixture/CreateUsageLimit.yaml"++requestDeauthorizeDataShare :: DeauthorizeDataShare -> TestTree+requestDeauthorizeDataShare =+ req+ "DeauthorizeDataShare"+ "fixture/DeauthorizeDataShare.yaml"++requestDeleteAuthenticationProfile :: DeleteAuthenticationProfile -> TestTree+requestDeleteAuthenticationProfile =+ req+ "DeleteAuthenticationProfile"+ "fixture/DeleteAuthenticationProfile.yaml"++requestDeleteCluster :: DeleteCluster -> TestTree+requestDeleteCluster =+ req+ "DeleteCluster"+ "fixture/DeleteCluster.yaml"++requestDeleteClusterParameterGroup :: DeleteClusterParameterGroup -> TestTree+requestDeleteClusterParameterGroup =+ req+ "DeleteClusterParameterGroup"+ "fixture/DeleteClusterParameterGroup.yaml"++requestDeleteClusterSecurityGroup :: DeleteClusterSecurityGroup -> TestTree+requestDeleteClusterSecurityGroup =+ req+ "DeleteClusterSecurityGroup"+ "fixture/DeleteClusterSecurityGroup.yaml"++requestDeleteClusterSnapshot :: DeleteClusterSnapshot -> TestTree+requestDeleteClusterSnapshot =+ req+ "DeleteClusterSnapshot"+ "fixture/DeleteClusterSnapshot.yaml"++requestDeleteClusterSubnetGroup :: DeleteClusterSubnetGroup -> TestTree+requestDeleteClusterSubnetGroup =+ req+ "DeleteClusterSubnetGroup"+ "fixture/DeleteClusterSubnetGroup.yaml"++requestDeleteEndpointAccess :: DeleteEndpointAccess -> TestTree+requestDeleteEndpointAccess =+ req+ "DeleteEndpointAccess"+ "fixture/DeleteEndpointAccess.yaml"++requestDeleteEventSubscription :: DeleteEventSubscription -> TestTree+requestDeleteEventSubscription =+ req+ "DeleteEventSubscription"+ "fixture/DeleteEventSubscription.yaml"++requestDeleteHsmClientCertificate :: DeleteHsmClientCertificate -> TestTree+requestDeleteHsmClientCertificate =+ req+ "DeleteHsmClientCertificate"+ "fixture/DeleteHsmClientCertificate.yaml"++requestDeleteHsmConfiguration :: DeleteHsmConfiguration -> TestTree+requestDeleteHsmConfiguration =+ req+ "DeleteHsmConfiguration"+ "fixture/DeleteHsmConfiguration.yaml"++requestDeletePartner :: DeletePartner -> TestTree+requestDeletePartner =+ req+ "DeletePartner"+ "fixture/DeletePartner.yaml"++requestDeleteScheduledAction :: DeleteScheduledAction -> TestTree+requestDeleteScheduledAction =+ req+ "DeleteScheduledAction"+ "fixture/DeleteScheduledAction.yaml"++requestDeleteSnapshotCopyGrant :: DeleteSnapshotCopyGrant -> TestTree+requestDeleteSnapshotCopyGrant =+ req+ "DeleteSnapshotCopyGrant"+ "fixture/DeleteSnapshotCopyGrant.yaml"++requestDeleteSnapshotSchedule :: DeleteSnapshotSchedule -> TestTree+requestDeleteSnapshotSchedule =+ req+ "DeleteSnapshotSchedule"+ "fixture/DeleteSnapshotSchedule.yaml"++requestDeleteTags :: DeleteTags -> TestTree+requestDeleteTags =+ req+ "DeleteTags"+ "fixture/DeleteTags.yaml"++requestDeleteUsageLimit :: DeleteUsageLimit -> TestTree+requestDeleteUsageLimit =+ req+ "DeleteUsageLimit"+ "fixture/DeleteUsageLimit.yaml"++requestDescribeAccountAttributes :: DescribeAccountAttributes -> TestTree+requestDescribeAccountAttributes =+ req+ "DescribeAccountAttributes"+ "fixture/DescribeAccountAttributes.yaml"++requestDescribeAuthenticationProfiles :: DescribeAuthenticationProfiles -> TestTree+requestDescribeAuthenticationProfiles =+ req+ "DescribeAuthenticationProfiles"+ "fixture/DescribeAuthenticationProfiles.yaml"++requestDescribeClusterDbRevisions :: DescribeClusterDbRevisions -> TestTree+requestDescribeClusterDbRevisions =+ req+ "DescribeClusterDbRevisions"+ "fixture/DescribeClusterDbRevisions.yaml"++requestDescribeClusterParameterGroups :: DescribeClusterParameterGroups -> TestTree+requestDescribeClusterParameterGroups =+ req+ "DescribeClusterParameterGroups"+ "fixture/DescribeClusterParameterGroups.yaml"++requestDescribeClusterParameters :: DescribeClusterParameters -> TestTree+requestDescribeClusterParameters =+ req+ "DescribeClusterParameters"+ "fixture/DescribeClusterParameters.yaml"++requestDescribeClusterSecurityGroups :: DescribeClusterSecurityGroups -> TestTree+requestDescribeClusterSecurityGroups =+ req+ "DescribeClusterSecurityGroups"+ "fixture/DescribeClusterSecurityGroups.yaml"++requestDescribeClusterSnapshots :: DescribeClusterSnapshots -> TestTree+requestDescribeClusterSnapshots =+ req+ "DescribeClusterSnapshots"+ "fixture/DescribeClusterSnapshots.yaml"++requestDescribeClusterSubnetGroups :: DescribeClusterSubnetGroups -> TestTree+requestDescribeClusterSubnetGroups =+ req+ "DescribeClusterSubnetGroups"+ "fixture/DescribeClusterSubnetGroups.yaml"++requestDescribeClusterTracks :: DescribeClusterTracks -> TestTree+requestDescribeClusterTracks =+ req+ "DescribeClusterTracks"+ "fixture/DescribeClusterTracks.yaml"++requestDescribeClusterVersions :: DescribeClusterVersions -> TestTree+requestDescribeClusterVersions =+ req+ "DescribeClusterVersions"+ "fixture/DescribeClusterVersions.yaml"++requestDescribeClusters :: DescribeClusters -> TestTree+requestDescribeClusters =+ req+ "DescribeClusters"+ "fixture/DescribeClusters.yaml"++requestDescribeDataShares :: DescribeDataShares -> TestTree+requestDescribeDataShares =+ req+ "DescribeDataShares"+ "fixture/DescribeDataShares.yaml"++requestDescribeDataSharesForConsumer :: DescribeDataSharesForConsumer -> TestTree+requestDescribeDataSharesForConsumer =+ req+ "DescribeDataSharesForConsumer"+ "fixture/DescribeDataSharesForConsumer.yaml"++requestDescribeDataSharesForProducer :: DescribeDataSharesForProducer -> TestTree+requestDescribeDataSharesForProducer =+ req+ "DescribeDataSharesForProducer"+ "fixture/DescribeDataSharesForProducer.yaml"++requestDescribeDefaultClusterParameters :: DescribeDefaultClusterParameters -> TestTree+requestDescribeDefaultClusterParameters =+ req+ "DescribeDefaultClusterParameters"+ "fixture/DescribeDefaultClusterParameters.yaml"++requestDescribeEndpointAccess :: DescribeEndpointAccess -> TestTree+requestDescribeEndpointAccess =+ req+ "DescribeEndpointAccess"+ "fixture/DescribeEndpointAccess.yaml"++requestDescribeEndpointAuthorization :: DescribeEndpointAuthorization -> TestTree+requestDescribeEndpointAuthorization =+ req+ "DescribeEndpointAuthorization"+ "fixture/DescribeEndpointAuthorization.yaml"++requestDescribeEventCategories :: DescribeEventCategories -> TestTree+requestDescribeEventCategories =+ req+ "DescribeEventCategories"+ "fixture/DescribeEventCategories.yaml"++requestDescribeEventSubscriptions :: DescribeEventSubscriptions -> TestTree+requestDescribeEventSubscriptions =+ req+ "DescribeEventSubscriptions"+ "fixture/DescribeEventSubscriptions.yaml"++requestDescribeEvents :: DescribeEvents -> TestTree+requestDescribeEvents =+ req+ "DescribeEvents"+ "fixture/DescribeEvents.yaml"++requestDescribeHsmClientCertificates :: DescribeHsmClientCertificates -> TestTree+requestDescribeHsmClientCertificates =+ req+ "DescribeHsmClientCertificates"+ "fixture/DescribeHsmClientCertificates.yaml"++requestDescribeHsmConfigurations :: DescribeHsmConfigurations -> TestTree+requestDescribeHsmConfigurations =+ req+ "DescribeHsmConfigurations"+ "fixture/DescribeHsmConfigurations.yaml"++requestDescribeLoggingStatus :: DescribeLoggingStatus -> TestTree+requestDescribeLoggingStatus =+ req+ "DescribeLoggingStatus"+ "fixture/DescribeLoggingStatus.yaml"++requestDescribeNodeConfigurationOptions :: DescribeNodeConfigurationOptions -> TestTree+requestDescribeNodeConfigurationOptions =+ req+ "DescribeNodeConfigurationOptions"+ "fixture/DescribeNodeConfigurationOptions.yaml"++requestDescribeOrderableClusterOptions :: DescribeOrderableClusterOptions -> TestTree+requestDescribeOrderableClusterOptions =+ req+ "DescribeOrderableClusterOptions"+ "fixture/DescribeOrderableClusterOptions.yaml"++requestDescribePartners :: DescribePartners -> TestTree+requestDescribePartners =+ req+ "DescribePartners"+ "fixture/DescribePartners.yaml"++requestDescribeReservedNodeExchangeStatus :: DescribeReservedNodeExchangeStatus -> TestTree+requestDescribeReservedNodeExchangeStatus =+ req+ "DescribeReservedNodeExchangeStatus"+ "fixture/DescribeReservedNodeExchangeStatus.yaml"++requestDescribeReservedNodeOfferings :: DescribeReservedNodeOfferings -> TestTree+requestDescribeReservedNodeOfferings =+ req+ "DescribeReservedNodeOfferings"+ "fixture/DescribeReservedNodeOfferings.yaml"++requestDescribeReservedNodes :: DescribeReservedNodes -> TestTree+requestDescribeReservedNodes =+ req+ "DescribeReservedNodes"+ "fixture/DescribeReservedNodes.yaml"++requestDescribeResize :: DescribeResize -> TestTree+requestDescribeResize =+ req+ "DescribeResize"+ "fixture/DescribeResize.yaml"++requestDescribeScheduledActions :: DescribeScheduledActions -> TestTree+requestDescribeScheduledActions =+ req+ "DescribeScheduledActions"+ "fixture/DescribeScheduledActions.yaml"++requestDescribeSnapshotCopyGrants :: DescribeSnapshotCopyGrants -> TestTree+requestDescribeSnapshotCopyGrants =+ req+ "DescribeSnapshotCopyGrants"+ "fixture/DescribeSnapshotCopyGrants.yaml"++requestDescribeSnapshotSchedules :: DescribeSnapshotSchedules -> TestTree+requestDescribeSnapshotSchedules =+ req+ "DescribeSnapshotSchedules"+ "fixture/DescribeSnapshotSchedules.yaml"++requestDescribeStorage :: DescribeStorage -> TestTree+requestDescribeStorage =+ req+ "DescribeStorage"+ "fixture/DescribeStorage.yaml"++requestDescribeTableRestoreStatus :: DescribeTableRestoreStatus -> TestTree+requestDescribeTableRestoreStatus =+ req+ "DescribeTableRestoreStatus"+ "fixture/DescribeTableRestoreStatus.yaml"++requestDescribeTags :: DescribeTags -> TestTree+requestDescribeTags =+ req+ "DescribeTags"+ "fixture/DescribeTags.yaml"++requestDescribeUsageLimits :: DescribeUsageLimits -> TestTree+requestDescribeUsageLimits =+ req+ "DescribeUsageLimits"+ "fixture/DescribeUsageLimits.yaml"++requestDisableLogging :: DisableLogging -> TestTree+requestDisableLogging =+ req+ "DisableLogging"+ "fixture/DisableLogging.yaml"++requestDisableSnapshotCopy :: DisableSnapshotCopy -> TestTree+requestDisableSnapshotCopy =+ req+ "DisableSnapshotCopy"+ "fixture/DisableSnapshotCopy.yaml"++requestDisassociateDataShareConsumer :: DisassociateDataShareConsumer -> TestTree+requestDisassociateDataShareConsumer =+ req+ "DisassociateDataShareConsumer"+ "fixture/DisassociateDataShareConsumer.yaml"++requestEnableLogging :: EnableLogging -> TestTree+requestEnableLogging =+ req+ "EnableLogging"+ "fixture/EnableLogging.yaml"++requestEnableSnapshotCopy :: EnableSnapshotCopy -> TestTree+requestEnableSnapshotCopy =+ req+ "EnableSnapshotCopy"+ "fixture/EnableSnapshotCopy.yaml"++requestGetClusterCredentials :: GetClusterCredentials -> TestTree+requestGetClusterCredentials =+ req+ "GetClusterCredentials"+ "fixture/GetClusterCredentials.yaml"++requestGetClusterCredentialsWithIAM :: GetClusterCredentialsWithIAM -> TestTree+requestGetClusterCredentialsWithIAM =+ req+ "GetClusterCredentialsWithIAM"+ "fixture/GetClusterCredentialsWithIAM.yaml"++requestGetReservedNodeExchangeConfigurationOptions :: GetReservedNodeExchangeConfigurationOptions -> TestTree+requestGetReservedNodeExchangeConfigurationOptions =+ req+ "GetReservedNodeExchangeConfigurationOptions"+ "fixture/GetReservedNodeExchangeConfigurationOptions.yaml"++requestGetReservedNodeExchangeOfferings :: GetReservedNodeExchangeOfferings -> TestTree+requestGetReservedNodeExchangeOfferings =+ req+ "GetReservedNodeExchangeOfferings"+ "fixture/GetReservedNodeExchangeOfferings.yaml"++requestModifyAquaConfiguration :: ModifyAquaConfiguration -> TestTree+requestModifyAquaConfiguration =+ req+ "ModifyAquaConfiguration"+ "fixture/ModifyAquaConfiguration.yaml"++requestModifyAuthenticationProfile :: ModifyAuthenticationProfile -> TestTree+requestModifyAuthenticationProfile =+ req+ "ModifyAuthenticationProfile"+ "fixture/ModifyAuthenticationProfile.yaml"++requestModifyCluster :: ModifyCluster -> TestTree+requestModifyCluster =+ req+ "ModifyCluster"+ "fixture/ModifyCluster.yaml"++requestModifyClusterDbRevision :: ModifyClusterDbRevision -> TestTree+requestModifyClusterDbRevision =+ req+ "ModifyClusterDbRevision"+ "fixture/ModifyClusterDbRevision.yaml"++requestModifyClusterIamRoles :: ModifyClusterIamRoles -> TestTree+requestModifyClusterIamRoles =+ req+ "ModifyClusterIamRoles"+ "fixture/ModifyClusterIamRoles.yaml"++requestModifyClusterMaintenance :: ModifyClusterMaintenance -> TestTree+requestModifyClusterMaintenance =+ req+ "ModifyClusterMaintenance"+ "fixture/ModifyClusterMaintenance.yaml"++requestModifyClusterParameterGroup :: ModifyClusterParameterGroup -> TestTree+requestModifyClusterParameterGroup =+ req+ "ModifyClusterParameterGroup"+ "fixture/ModifyClusterParameterGroup.yaml"++requestModifyClusterSnapshot :: ModifyClusterSnapshot -> TestTree+requestModifyClusterSnapshot =+ req+ "ModifyClusterSnapshot"+ "fixture/ModifyClusterSnapshot.yaml"++requestModifyClusterSnapshotSchedule :: ModifyClusterSnapshotSchedule -> TestTree+requestModifyClusterSnapshotSchedule =+ req+ "ModifyClusterSnapshotSchedule"+ "fixture/ModifyClusterSnapshotSchedule.yaml"++requestModifyClusterSubnetGroup :: ModifyClusterSubnetGroup -> TestTree+requestModifyClusterSubnetGroup =+ req+ "ModifyClusterSubnetGroup"+ "fixture/ModifyClusterSubnetGroup.yaml"++requestModifyEndpointAccess :: ModifyEndpointAccess -> TestTree+requestModifyEndpointAccess =+ req+ "ModifyEndpointAccess"+ "fixture/ModifyEndpointAccess.yaml"++requestModifyEventSubscription :: ModifyEventSubscription -> TestTree+requestModifyEventSubscription =+ req+ "ModifyEventSubscription"+ "fixture/ModifyEventSubscription.yaml"++requestModifyScheduledAction :: ModifyScheduledAction -> TestTree+requestModifyScheduledAction =+ req+ "ModifyScheduledAction"+ "fixture/ModifyScheduledAction.yaml"++requestModifySnapshotCopyRetentionPeriod :: ModifySnapshotCopyRetentionPeriod -> TestTree+requestModifySnapshotCopyRetentionPeriod =+ req+ "ModifySnapshotCopyRetentionPeriod"+ "fixture/ModifySnapshotCopyRetentionPeriod.yaml"++requestModifySnapshotSchedule :: ModifySnapshotSchedule -> TestTree+requestModifySnapshotSchedule =+ req+ "ModifySnapshotSchedule"+ "fixture/ModifySnapshotSchedule.yaml"++requestModifyUsageLimit :: ModifyUsageLimit -> TestTree+requestModifyUsageLimit =+ req+ "ModifyUsageLimit"+ "fixture/ModifyUsageLimit.yaml"++requestPauseCluster :: PauseCluster -> TestTree+requestPauseCluster =+ req+ "PauseCluster"+ "fixture/PauseCluster.yaml"++requestPurchaseReservedNodeOffering :: PurchaseReservedNodeOffering -> TestTree+requestPurchaseReservedNodeOffering =+ req+ "PurchaseReservedNodeOffering"+ "fixture/PurchaseReservedNodeOffering.yaml"++requestRebootCluster :: RebootCluster -> TestTree+requestRebootCluster =+ req+ "RebootCluster"+ "fixture/RebootCluster.yaml"++requestRejectDataShare :: RejectDataShare -> TestTree+requestRejectDataShare =+ req+ "RejectDataShare"+ "fixture/RejectDataShare.yaml"++requestResetClusterParameterGroup :: ResetClusterParameterGroup -> TestTree+requestResetClusterParameterGroup =+ req+ "ResetClusterParameterGroup"+ "fixture/ResetClusterParameterGroup.yaml"++requestResizeCluster :: ResizeCluster -> TestTree+requestResizeCluster =+ req+ "ResizeCluster"+ "fixture/ResizeCluster.yaml"++requestRestoreFromClusterSnapshot :: RestoreFromClusterSnapshot -> TestTree+requestRestoreFromClusterSnapshot =+ req+ "RestoreFromClusterSnapshot"+ "fixture/RestoreFromClusterSnapshot.yaml"++requestRestoreTableFromClusterSnapshot :: RestoreTableFromClusterSnapshot -> TestTree+requestRestoreTableFromClusterSnapshot =+ req+ "RestoreTableFromClusterSnapshot"+ "fixture/RestoreTableFromClusterSnapshot.yaml"++requestResumeCluster :: ResumeCluster -> TestTree+requestResumeCluster =+ req+ "ResumeCluster"+ "fixture/ResumeCluster.yaml"++requestRevokeClusterSecurityGroupIngress :: RevokeClusterSecurityGroupIngress -> TestTree+requestRevokeClusterSecurityGroupIngress =+ req+ "RevokeClusterSecurityGroupIngress"+ "fixture/RevokeClusterSecurityGroupIngress.yaml"++requestRevokeEndpointAccess :: RevokeEndpointAccess -> TestTree+requestRevokeEndpointAccess =+ req+ "RevokeEndpointAccess"+ "fixture/RevokeEndpointAccess.yaml"++requestRevokeSnapshotAccess :: RevokeSnapshotAccess -> TestTree+requestRevokeSnapshotAccess =+ req+ "RevokeSnapshotAccess"+ "fixture/RevokeSnapshotAccess.yaml"++requestRotateEncryptionKey :: RotateEncryptionKey -> TestTree+requestRotateEncryptionKey =+ req+ "RotateEncryptionKey"+ "fixture/RotateEncryptionKey.yaml"++requestUpdatePartnerStatus :: UpdatePartnerStatus -> TestTree+requestUpdatePartnerStatus =+ req+ "UpdatePartnerStatus"+ "fixture/UpdatePartnerStatus.yaml"++-- Responses++responseAcceptReservedNodeExchange :: AcceptReservedNodeExchangeResponse -> TestTree+responseAcceptReservedNodeExchange =+ res+ "AcceptReservedNodeExchangeResponse"+ "fixture/AcceptReservedNodeExchangeResponse.proto"+ defaultService+ (Proxy.Proxy :: Proxy.Proxy AcceptReservedNodeExchange)++responseAddPartner :: PartnerIntegrationOutputMessage -> TestTree+responseAddPartner =+ res+ "AddPartnerResponse"+ "fixture/AddPartnerResponse.proto"+ defaultService+ (Proxy.Proxy :: Proxy.Proxy AddPartner)++responseAssociateDataShareConsumer :: DataShare -> TestTree+responseAssociateDataShareConsumer =+ res+ "AssociateDataShareConsumerResponse"+ "fixture/AssociateDataShareConsumerResponse.proto"+ defaultService+ (Proxy.Proxy :: Proxy.Proxy AssociateDataShareConsumer)++responseAuthorizeClusterSecurityGroupIngress :: AuthorizeClusterSecurityGroupIngressResponse -> TestTree+responseAuthorizeClusterSecurityGroupIngress =+ res+ "AuthorizeClusterSecurityGroupIngressResponse"+ "fixture/AuthorizeClusterSecurityGroupIngressResponse.proto"+ defaultService+ (Proxy.Proxy :: Proxy.Proxy AuthorizeClusterSecurityGroupIngress)++responseAuthorizeDataShare :: DataShare -> TestTree+responseAuthorizeDataShare =+ res+ "AuthorizeDataShareResponse"+ "fixture/AuthorizeDataShareResponse.proto"+ defaultService+ (Proxy.Proxy :: Proxy.Proxy AuthorizeDataShare)++responseAuthorizeEndpointAccess :: EndpointAuthorization -> TestTree+responseAuthorizeEndpointAccess =+ res+ "AuthorizeEndpointAccessResponse"+ "fixture/AuthorizeEndpointAccessResponse.proto"+ defaultService+ (Proxy.Proxy :: Proxy.Proxy AuthorizeEndpointAccess)++responseAuthorizeSnapshotAccess :: AuthorizeSnapshotAccessResponse -> TestTree+responseAuthorizeSnapshotAccess =+ res+ "AuthorizeSnapshotAccessResponse"+ "fixture/AuthorizeSnapshotAccessResponse.proto"+ defaultService+ (Proxy.Proxy :: Proxy.Proxy AuthorizeSnapshotAccess)++responseBatchDeleteClusterSnapshots :: BatchDeleteClusterSnapshotsResponse -> TestTree+responseBatchDeleteClusterSnapshots =+ res+ "BatchDeleteClusterSnapshotsResponse"+ "fixture/BatchDeleteClusterSnapshotsResponse.proto"+ defaultService+ (Proxy.Proxy :: Proxy.Proxy BatchDeleteClusterSnapshots)++responseBatchModifyClusterSnapshots :: BatchModifyClusterSnapshotsResponse -> TestTree+responseBatchModifyClusterSnapshots =+ res+ "BatchModifyClusterSnapshotsResponse"+ "fixture/BatchModifyClusterSnapshotsResponse.proto"+ defaultService+ (Proxy.Proxy :: Proxy.Proxy BatchModifyClusterSnapshots)++responseCancelResize :: ResizeProgressMessage -> TestTree+responseCancelResize =+ res+ "CancelResizeResponse"+ "fixture/CancelResizeResponse.proto"+ defaultService+ (Proxy.Proxy :: Proxy.Proxy CancelResize)++responseCopyClusterSnapshot :: CopyClusterSnapshotResponse -> TestTree+responseCopyClusterSnapshot =+ res+ "CopyClusterSnapshotResponse"+ "fixture/CopyClusterSnapshotResponse.proto"+ defaultService+ (Proxy.Proxy :: Proxy.Proxy CopyClusterSnapshot)++responseCreateAuthenticationProfile :: CreateAuthenticationProfileResponse -> TestTree+responseCreateAuthenticationProfile =+ res+ "CreateAuthenticationProfileResponse"+ "fixture/CreateAuthenticationProfileResponse.proto"+ defaultService+ (Proxy.Proxy :: Proxy.Proxy CreateAuthenticationProfile)++responseCreateCluster :: CreateClusterResponse -> TestTree+responseCreateCluster =+ res+ "CreateClusterResponse"+ "fixture/CreateClusterResponse.proto"+ defaultService+ (Proxy.Proxy :: Proxy.Proxy CreateCluster)++responseCreateClusterParameterGroup :: CreateClusterParameterGroupResponse -> TestTree+responseCreateClusterParameterGroup =+ res+ "CreateClusterParameterGroupResponse"+ "fixture/CreateClusterParameterGroupResponse.proto"+ defaultService+ (Proxy.Proxy :: Proxy.Proxy CreateClusterParameterGroup)++responseCreateClusterSecurityGroup :: CreateClusterSecurityGroupResponse -> TestTree+responseCreateClusterSecurityGroup =+ res+ "CreateClusterSecurityGroupResponse"+ "fixture/CreateClusterSecurityGroupResponse.proto"+ defaultService+ (Proxy.Proxy :: Proxy.Proxy CreateClusterSecurityGroup)++responseCreateClusterSnapshot :: CreateClusterSnapshotResponse -> TestTree+responseCreateClusterSnapshot =+ res+ "CreateClusterSnapshotResponse"+ "fixture/CreateClusterSnapshotResponse.proto"+ defaultService+ (Proxy.Proxy :: Proxy.Proxy CreateClusterSnapshot)++responseCreateClusterSubnetGroup :: CreateClusterSubnetGroupResponse -> TestTree+responseCreateClusterSubnetGroup =+ res+ "CreateClusterSubnetGroupResponse"+ "fixture/CreateClusterSubnetGroupResponse.proto"+ defaultService+ (Proxy.Proxy :: Proxy.Proxy CreateClusterSubnetGroup)++responseCreateEndpointAccess :: EndpointAccess -> TestTree+responseCreateEndpointAccess =+ res+ "CreateEndpointAccessResponse"+ "fixture/CreateEndpointAccessResponse.proto"+ defaultService+ (Proxy.Proxy :: Proxy.Proxy CreateEndpointAccess)++responseCreateEventSubscription :: CreateEventSubscriptionResponse -> TestTree+responseCreateEventSubscription =+ res+ "CreateEventSubscriptionResponse"+ "fixture/CreateEventSubscriptionResponse.proto"+ defaultService+ (Proxy.Proxy :: Proxy.Proxy CreateEventSubscription)++responseCreateHsmClientCertificate :: CreateHsmClientCertificateResponse -> TestTree+responseCreateHsmClientCertificate =+ res+ "CreateHsmClientCertificateResponse"+ "fixture/CreateHsmClientCertificateResponse.proto"+ defaultService+ (Proxy.Proxy :: Proxy.Proxy CreateHsmClientCertificate)++responseCreateHsmConfiguration :: CreateHsmConfigurationResponse -> TestTree+responseCreateHsmConfiguration =+ res+ "CreateHsmConfigurationResponse"+ "fixture/CreateHsmConfigurationResponse.proto"+ defaultService+ (Proxy.Proxy :: Proxy.Proxy CreateHsmConfiguration)++responseCreateScheduledAction :: ScheduledAction -> TestTree+responseCreateScheduledAction =+ res+ "CreateScheduledActionResponse"+ "fixture/CreateScheduledActionResponse.proto"+ defaultService+ (Proxy.Proxy :: Proxy.Proxy CreateScheduledAction)++responseCreateSnapshotCopyGrant :: CreateSnapshotCopyGrantResponse -> TestTree+responseCreateSnapshotCopyGrant =+ res+ "CreateSnapshotCopyGrantResponse"+ "fixture/CreateSnapshotCopyGrantResponse.proto"+ defaultService+ (Proxy.Proxy :: Proxy.Proxy CreateSnapshotCopyGrant)++responseCreateSnapshotSchedule :: SnapshotSchedule -> TestTree+responseCreateSnapshotSchedule =+ res+ "CreateSnapshotScheduleResponse"+ "fixture/CreateSnapshotScheduleResponse.proto"+ defaultService+ (Proxy.Proxy :: Proxy.Proxy CreateSnapshotSchedule)++responseCreateTags :: CreateTagsResponse -> TestTree+responseCreateTags =+ res+ "CreateTagsResponse"+ "fixture/CreateTagsResponse.proto"+ defaultService+ (Proxy.Proxy :: Proxy.Proxy CreateTags)++responseCreateUsageLimit :: UsageLimit -> TestTree+responseCreateUsageLimit =+ res+ "CreateUsageLimitResponse"+ "fixture/CreateUsageLimitResponse.proto"+ defaultService+ (Proxy.Proxy :: Proxy.Proxy CreateUsageLimit)++responseDeauthorizeDataShare :: DataShare -> TestTree+responseDeauthorizeDataShare =+ res+ "DeauthorizeDataShareResponse"+ "fixture/DeauthorizeDataShareResponse.proto"+ defaultService+ (Proxy.Proxy :: Proxy.Proxy DeauthorizeDataShare)++responseDeleteAuthenticationProfile :: DeleteAuthenticationProfileResponse -> TestTree+responseDeleteAuthenticationProfile =+ res+ "DeleteAuthenticationProfileResponse"+ "fixture/DeleteAuthenticationProfileResponse.proto"+ defaultService+ (Proxy.Proxy :: Proxy.Proxy DeleteAuthenticationProfile)++responseDeleteCluster :: DeleteClusterResponse -> TestTree+responseDeleteCluster =+ res+ "DeleteClusterResponse"+ "fixture/DeleteClusterResponse.proto"+ defaultService+ (Proxy.Proxy :: Proxy.Proxy DeleteCluster)++responseDeleteClusterParameterGroup :: DeleteClusterParameterGroupResponse -> TestTree+responseDeleteClusterParameterGroup =+ res+ "DeleteClusterParameterGroupResponse"+ "fixture/DeleteClusterParameterGroupResponse.proto"+ defaultService+ (Proxy.Proxy :: Proxy.Proxy DeleteClusterParameterGroup)++responseDeleteClusterSecurityGroup :: DeleteClusterSecurityGroupResponse -> TestTree+responseDeleteClusterSecurityGroup =+ res+ "DeleteClusterSecurityGroupResponse"+ "fixture/DeleteClusterSecurityGroupResponse.proto"+ defaultService+ (Proxy.Proxy :: Proxy.Proxy DeleteClusterSecurityGroup)++responseDeleteClusterSnapshot :: DeleteClusterSnapshotResponse -> TestTree+responseDeleteClusterSnapshot =+ res+ "DeleteClusterSnapshotResponse"+ "fixture/DeleteClusterSnapshotResponse.proto"+ defaultService+ (Proxy.Proxy :: Proxy.Proxy DeleteClusterSnapshot)++responseDeleteClusterSubnetGroup :: DeleteClusterSubnetGroupResponse -> TestTree+responseDeleteClusterSubnetGroup =+ res+ "DeleteClusterSubnetGroupResponse"+ "fixture/DeleteClusterSubnetGroupResponse.proto"+ defaultService+ (Proxy.Proxy :: Proxy.Proxy DeleteClusterSubnetGroup)++responseDeleteEndpointAccess :: EndpointAccess -> TestTree+responseDeleteEndpointAccess =+ res+ "DeleteEndpointAccessResponse"+ "fixture/DeleteEndpointAccessResponse.proto"+ defaultService+ (Proxy.Proxy :: Proxy.Proxy DeleteEndpointAccess)++responseDeleteEventSubscription :: DeleteEventSubscriptionResponse -> TestTree+responseDeleteEventSubscription =+ res+ "DeleteEventSubscriptionResponse"+ "fixture/DeleteEventSubscriptionResponse.proto"+ defaultService+ (Proxy.Proxy :: Proxy.Proxy DeleteEventSubscription)++responseDeleteHsmClientCertificate :: DeleteHsmClientCertificateResponse -> TestTree+responseDeleteHsmClientCertificate =+ res+ "DeleteHsmClientCertificateResponse"+ "fixture/DeleteHsmClientCertificateResponse.proto"+ defaultService+ (Proxy.Proxy :: Proxy.Proxy DeleteHsmClientCertificate)++responseDeleteHsmConfiguration :: DeleteHsmConfigurationResponse -> TestTree+responseDeleteHsmConfiguration =+ res+ "DeleteHsmConfigurationResponse"+ "fixture/DeleteHsmConfigurationResponse.proto"+ defaultService+ (Proxy.Proxy :: Proxy.Proxy DeleteHsmConfiguration)++responseDeletePartner :: PartnerIntegrationOutputMessage -> TestTree+responseDeletePartner =+ res+ "DeletePartnerResponse"+ "fixture/DeletePartnerResponse.proto"+ defaultService+ (Proxy.Proxy :: Proxy.Proxy DeletePartner)++responseDeleteScheduledAction :: DeleteScheduledActionResponse -> TestTree+responseDeleteScheduledAction =+ res+ "DeleteScheduledActionResponse"+ "fixture/DeleteScheduledActionResponse.proto"+ defaultService+ (Proxy.Proxy :: Proxy.Proxy DeleteScheduledAction)++responseDeleteSnapshotCopyGrant :: DeleteSnapshotCopyGrantResponse -> TestTree+responseDeleteSnapshotCopyGrant =+ res+ "DeleteSnapshotCopyGrantResponse"+ "fixture/DeleteSnapshotCopyGrantResponse.proto"+ defaultService+ (Proxy.Proxy :: Proxy.Proxy DeleteSnapshotCopyGrant)++responseDeleteSnapshotSchedule :: DeleteSnapshotScheduleResponse -> TestTree+responseDeleteSnapshotSchedule =+ res+ "DeleteSnapshotScheduleResponse"+ "fixture/DeleteSnapshotScheduleResponse.proto"+ defaultService+ (Proxy.Proxy :: Proxy.Proxy DeleteSnapshotSchedule)++responseDeleteTags :: DeleteTagsResponse -> TestTree+responseDeleteTags =+ res+ "DeleteTagsResponse"+ "fixture/DeleteTagsResponse.proto"+ defaultService+ (Proxy.Proxy :: Proxy.Proxy DeleteTags)++responseDeleteUsageLimit :: DeleteUsageLimitResponse -> TestTree+responseDeleteUsageLimit =+ res+ "DeleteUsageLimitResponse"+ "fixture/DeleteUsageLimitResponse.proto"+ defaultService+ (Proxy.Proxy :: Proxy.Proxy DeleteUsageLimit)++responseDescribeAccountAttributes :: DescribeAccountAttributesResponse -> TestTree+responseDescribeAccountAttributes =+ res+ "DescribeAccountAttributesResponse"+ "fixture/DescribeAccountAttributesResponse.proto"+ defaultService+ (Proxy.Proxy :: Proxy.Proxy DescribeAccountAttributes)++responseDescribeAuthenticationProfiles :: DescribeAuthenticationProfilesResponse -> TestTree+responseDescribeAuthenticationProfiles =+ res+ "DescribeAuthenticationProfilesResponse"+ "fixture/DescribeAuthenticationProfilesResponse.proto"+ defaultService+ (Proxy.Proxy :: Proxy.Proxy DescribeAuthenticationProfiles)++responseDescribeClusterDbRevisions :: DescribeClusterDbRevisionsResponse -> TestTree+responseDescribeClusterDbRevisions =+ res+ "DescribeClusterDbRevisionsResponse"+ "fixture/DescribeClusterDbRevisionsResponse.proto"+ defaultService+ (Proxy.Proxy :: Proxy.Proxy DescribeClusterDbRevisions)++responseDescribeClusterParameterGroups :: DescribeClusterParameterGroupsResponse -> TestTree+responseDescribeClusterParameterGroups =+ res+ "DescribeClusterParameterGroupsResponse"+ "fixture/DescribeClusterParameterGroupsResponse.proto"+ defaultService+ (Proxy.Proxy :: Proxy.Proxy DescribeClusterParameterGroups)++responseDescribeClusterParameters :: DescribeClusterParametersResponse -> TestTree+responseDescribeClusterParameters =+ res+ "DescribeClusterParametersResponse"+ "fixture/DescribeClusterParametersResponse.proto"+ defaultService+ (Proxy.Proxy :: Proxy.Proxy DescribeClusterParameters)++responseDescribeClusterSecurityGroups :: DescribeClusterSecurityGroupsResponse -> TestTree+responseDescribeClusterSecurityGroups =+ res+ "DescribeClusterSecurityGroupsResponse"+ "fixture/DescribeClusterSecurityGroupsResponse.proto"+ defaultService+ (Proxy.Proxy :: Proxy.Proxy DescribeClusterSecurityGroups)++responseDescribeClusterSnapshots :: DescribeClusterSnapshotsResponse -> TestTree+responseDescribeClusterSnapshots =+ res+ "DescribeClusterSnapshotsResponse"+ "fixture/DescribeClusterSnapshotsResponse.proto"+ defaultService+ (Proxy.Proxy :: Proxy.Proxy DescribeClusterSnapshots)++responseDescribeClusterSubnetGroups :: DescribeClusterSubnetGroupsResponse -> TestTree+responseDescribeClusterSubnetGroups =+ res+ "DescribeClusterSubnetGroupsResponse"+ "fixture/DescribeClusterSubnetGroupsResponse.proto"+ defaultService+ (Proxy.Proxy :: Proxy.Proxy DescribeClusterSubnetGroups)++responseDescribeClusterTracks :: DescribeClusterTracksResponse -> TestTree+responseDescribeClusterTracks =+ res+ "DescribeClusterTracksResponse"+ "fixture/DescribeClusterTracksResponse.proto"+ defaultService+ (Proxy.Proxy :: Proxy.Proxy DescribeClusterTracks)++responseDescribeClusterVersions :: DescribeClusterVersionsResponse -> TestTree+responseDescribeClusterVersions =+ res+ "DescribeClusterVersionsResponse"+ "fixture/DescribeClusterVersionsResponse.proto"+ defaultService+ (Proxy.Proxy :: Proxy.Proxy DescribeClusterVersions)++responseDescribeClusters :: DescribeClustersResponse -> TestTree+responseDescribeClusters =+ res+ "DescribeClustersResponse"+ "fixture/DescribeClustersResponse.proto"+ defaultService+ (Proxy.Proxy :: Proxy.Proxy DescribeClusters)++responseDescribeDataShares :: DescribeDataSharesResponse -> TestTree+responseDescribeDataShares =+ res+ "DescribeDataSharesResponse"+ "fixture/DescribeDataSharesResponse.proto"+ defaultService+ (Proxy.Proxy :: Proxy.Proxy DescribeDataShares)++responseDescribeDataSharesForConsumer :: DescribeDataSharesForConsumerResponse -> TestTree+responseDescribeDataSharesForConsumer =+ res+ "DescribeDataSharesForConsumerResponse"+ "fixture/DescribeDataSharesForConsumerResponse.proto"+ defaultService+ (Proxy.Proxy :: Proxy.Proxy DescribeDataSharesForConsumer)++responseDescribeDataSharesForProducer :: DescribeDataSharesForProducerResponse -> TestTree+responseDescribeDataSharesForProducer =+ res+ "DescribeDataSharesForProducerResponse"+ "fixture/DescribeDataSharesForProducerResponse.proto"+ defaultService+ (Proxy.Proxy :: Proxy.Proxy DescribeDataSharesForProducer)++responseDescribeDefaultClusterParameters :: DescribeDefaultClusterParametersResponse -> TestTree+responseDescribeDefaultClusterParameters =+ res+ "DescribeDefaultClusterParametersResponse"+ "fixture/DescribeDefaultClusterParametersResponse.proto"+ defaultService+ (Proxy.Proxy :: Proxy.Proxy DescribeDefaultClusterParameters)++responseDescribeEndpointAccess :: DescribeEndpointAccessResponse -> TestTree+responseDescribeEndpointAccess =+ res+ "DescribeEndpointAccessResponse"+ "fixture/DescribeEndpointAccessResponse.proto"+ defaultService+ (Proxy.Proxy :: Proxy.Proxy DescribeEndpointAccess)++responseDescribeEndpointAuthorization :: DescribeEndpointAuthorizationResponse -> TestTree+responseDescribeEndpointAuthorization =+ res+ "DescribeEndpointAuthorizationResponse"+ "fixture/DescribeEndpointAuthorizationResponse.proto"+ defaultService+ (Proxy.Proxy :: Proxy.Proxy DescribeEndpointAuthorization)++responseDescribeEventCategories :: DescribeEventCategoriesResponse -> TestTree+responseDescribeEventCategories =+ res+ "DescribeEventCategoriesResponse"+ "fixture/DescribeEventCategoriesResponse.proto"+ defaultService+ (Proxy.Proxy :: Proxy.Proxy DescribeEventCategories)++responseDescribeEventSubscriptions :: DescribeEventSubscriptionsResponse -> TestTree+responseDescribeEventSubscriptions =+ res+ "DescribeEventSubscriptionsResponse"+ "fixture/DescribeEventSubscriptionsResponse.proto"+ defaultService+ (Proxy.Proxy :: Proxy.Proxy DescribeEventSubscriptions)++responseDescribeEvents :: DescribeEventsResponse -> TestTree+responseDescribeEvents =+ res+ "DescribeEventsResponse"+ "fixture/DescribeEventsResponse.proto"+ defaultService+ (Proxy.Proxy :: Proxy.Proxy DescribeEvents)++responseDescribeHsmClientCertificates :: DescribeHsmClientCertificatesResponse -> TestTree+responseDescribeHsmClientCertificates =+ res+ "DescribeHsmClientCertificatesResponse"+ "fixture/DescribeHsmClientCertificatesResponse.proto"+ defaultService+ (Proxy.Proxy :: Proxy.Proxy DescribeHsmClientCertificates)++responseDescribeHsmConfigurations :: DescribeHsmConfigurationsResponse -> TestTree+responseDescribeHsmConfigurations =+ res+ "DescribeHsmConfigurationsResponse"+ "fixture/DescribeHsmConfigurationsResponse.proto"+ defaultService+ (Proxy.Proxy :: Proxy.Proxy DescribeHsmConfigurations)++responseDescribeLoggingStatus :: LoggingStatus -> TestTree+responseDescribeLoggingStatus =+ res+ "DescribeLoggingStatusResponse"+ "fixture/DescribeLoggingStatusResponse.proto"+ defaultService+ (Proxy.Proxy :: Proxy.Proxy DescribeLoggingStatus)++responseDescribeNodeConfigurationOptions :: DescribeNodeConfigurationOptionsResponse -> TestTree+responseDescribeNodeConfigurationOptions =+ res+ "DescribeNodeConfigurationOptionsResponse"+ "fixture/DescribeNodeConfigurationOptionsResponse.proto"+ defaultService+ (Proxy.Proxy :: Proxy.Proxy DescribeNodeConfigurationOptions)++responseDescribeOrderableClusterOptions :: DescribeOrderableClusterOptionsResponse -> TestTree+responseDescribeOrderableClusterOptions =+ res+ "DescribeOrderableClusterOptionsResponse"+ "fixture/DescribeOrderableClusterOptionsResponse.proto"+ defaultService+ (Proxy.Proxy :: Proxy.Proxy DescribeOrderableClusterOptions)++responseDescribePartners :: DescribePartnersResponse -> TestTree+responseDescribePartners =+ res+ "DescribePartnersResponse"+ "fixture/DescribePartnersResponse.proto"+ defaultService+ (Proxy.Proxy :: Proxy.Proxy DescribePartners)++responseDescribeReservedNodeExchangeStatus :: DescribeReservedNodeExchangeStatusResponse -> TestTree+responseDescribeReservedNodeExchangeStatus =+ res+ "DescribeReservedNodeExchangeStatusResponse"+ "fixture/DescribeReservedNodeExchangeStatusResponse.proto"+ defaultService+ (Proxy.Proxy :: Proxy.Proxy DescribeReservedNodeExchangeStatus)++responseDescribeReservedNodeOfferings :: DescribeReservedNodeOfferingsResponse -> TestTree+responseDescribeReservedNodeOfferings =+ res+ "DescribeReservedNodeOfferingsResponse"+ "fixture/DescribeReservedNodeOfferingsResponse.proto"+ defaultService+ (Proxy.Proxy :: Proxy.Proxy DescribeReservedNodeOfferings)++responseDescribeReservedNodes :: DescribeReservedNodesResponse -> TestTree+responseDescribeReservedNodes =+ res+ "DescribeReservedNodesResponse"+ "fixture/DescribeReservedNodesResponse.proto"+ defaultService+ (Proxy.Proxy :: Proxy.Proxy DescribeReservedNodes)++responseDescribeResize :: ResizeProgressMessage -> TestTree+responseDescribeResize =+ res+ "DescribeResizeResponse"+ "fixture/DescribeResizeResponse.proto"+ defaultService+ (Proxy.Proxy :: Proxy.Proxy DescribeResize)++responseDescribeScheduledActions :: DescribeScheduledActionsResponse -> TestTree+responseDescribeScheduledActions =+ res+ "DescribeScheduledActionsResponse"+ "fixture/DescribeScheduledActionsResponse.proto"+ defaultService+ (Proxy.Proxy :: Proxy.Proxy DescribeScheduledActions)++responseDescribeSnapshotCopyGrants :: DescribeSnapshotCopyGrantsResponse -> TestTree+responseDescribeSnapshotCopyGrants =+ res+ "DescribeSnapshotCopyGrantsResponse"+ "fixture/DescribeSnapshotCopyGrantsResponse.proto"+ defaultService+ (Proxy.Proxy :: Proxy.Proxy DescribeSnapshotCopyGrants)++responseDescribeSnapshotSchedules :: DescribeSnapshotSchedulesResponse -> TestTree+responseDescribeSnapshotSchedules =+ res+ "DescribeSnapshotSchedulesResponse"+ "fixture/DescribeSnapshotSchedulesResponse.proto"+ defaultService+ (Proxy.Proxy :: Proxy.Proxy DescribeSnapshotSchedules)++responseDescribeStorage :: DescribeStorageResponse -> TestTree+responseDescribeStorage =+ res+ "DescribeStorageResponse"+ "fixture/DescribeStorageResponse.proto"+ defaultService+ (Proxy.Proxy :: Proxy.Proxy DescribeStorage)++responseDescribeTableRestoreStatus :: DescribeTableRestoreStatusResponse -> TestTree+responseDescribeTableRestoreStatus =+ res+ "DescribeTableRestoreStatusResponse"+ "fixture/DescribeTableRestoreStatusResponse.proto"+ defaultService+ (Proxy.Proxy :: Proxy.Proxy DescribeTableRestoreStatus)++responseDescribeTags :: DescribeTagsResponse -> TestTree+responseDescribeTags =+ res+ "DescribeTagsResponse"+ "fixture/DescribeTagsResponse.proto"+ defaultService+ (Proxy.Proxy :: Proxy.Proxy DescribeTags)++responseDescribeUsageLimits :: DescribeUsageLimitsResponse -> TestTree+responseDescribeUsageLimits =+ res+ "DescribeUsageLimitsResponse"+ "fixture/DescribeUsageLimitsResponse.proto"+ defaultService+ (Proxy.Proxy :: Proxy.Proxy DescribeUsageLimits)++responseDisableLogging :: LoggingStatus -> TestTree+responseDisableLogging =+ res+ "DisableLoggingResponse"+ "fixture/DisableLoggingResponse.proto"+ defaultService+ (Proxy.Proxy :: Proxy.Proxy DisableLogging)++responseDisableSnapshotCopy :: DisableSnapshotCopyResponse -> TestTree+responseDisableSnapshotCopy =+ res+ "DisableSnapshotCopyResponse"+ "fixture/DisableSnapshotCopyResponse.proto"+ defaultService+ (Proxy.Proxy :: Proxy.Proxy DisableSnapshotCopy)++responseDisassociateDataShareConsumer :: DataShare -> TestTree+responseDisassociateDataShareConsumer =+ res+ "DisassociateDataShareConsumerResponse"+ "fixture/DisassociateDataShareConsumerResponse.proto"+ defaultService+ (Proxy.Proxy :: Proxy.Proxy DisassociateDataShareConsumer)++responseEnableLogging :: LoggingStatus -> TestTree+responseEnableLogging =+ res+ "EnableLoggingResponse"+ "fixture/EnableLoggingResponse.proto"+ defaultService+ (Proxy.Proxy :: Proxy.Proxy EnableLogging)++responseEnableSnapshotCopy :: EnableSnapshotCopyResponse -> TestTree+responseEnableSnapshotCopy =+ res+ "EnableSnapshotCopyResponse"+ "fixture/EnableSnapshotCopyResponse.proto"+ defaultService+ (Proxy.Proxy :: Proxy.Proxy EnableSnapshotCopy)++responseGetClusterCredentials :: GetClusterCredentialsResponse -> TestTree+responseGetClusterCredentials =+ res+ "GetClusterCredentialsResponse"+ "fixture/GetClusterCredentialsResponse.proto"+ defaultService+ (Proxy.Proxy :: Proxy.Proxy GetClusterCredentials)++responseGetClusterCredentialsWithIAM :: GetClusterCredentialsWithIAMResponse -> TestTree+responseGetClusterCredentialsWithIAM =+ res+ "GetClusterCredentialsWithIAMResponse"+ "fixture/GetClusterCredentialsWithIAMResponse.proto"+ defaultService+ (Proxy.Proxy :: Proxy.Proxy GetClusterCredentialsWithIAM)++responseGetReservedNodeExchangeConfigurationOptions :: GetReservedNodeExchangeConfigurationOptionsResponse -> TestTree+responseGetReservedNodeExchangeConfigurationOptions =+ res+ "GetReservedNodeExchangeConfigurationOptionsResponse"+ "fixture/GetReservedNodeExchangeConfigurationOptionsResponse.proto"+ defaultService+ (Proxy.Proxy :: Proxy.Proxy GetReservedNodeExchangeConfigurationOptions)++responseGetReservedNodeExchangeOfferings :: GetReservedNodeExchangeOfferingsResponse -> TestTree+responseGetReservedNodeExchangeOfferings =+ res+ "GetReservedNodeExchangeOfferingsResponse"+ "fixture/GetReservedNodeExchangeOfferingsResponse.proto"+ defaultService+ (Proxy.Proxy :: Proxy.Proxy GetReservedNodeExchangeOfferings)++responseModifyAquaConfiguration :: ModifyAquaConfigurationResponse -> TestTree+responseModifyAquaConfiguration =+ res+ "ModifyAquaConfigurationResponse"+ "fixture/ModifyAquaConfigurationResponse.proto"+ defaultService+ (Proxy.Proxy :: Proxy.Proxy ModifyAquaConfiguration)++responseModifyAuthenticationProfile :: ModifyAuthenticationProfileResponse -> TestTree+responseModifyAuthenticationProfile =+ res+ "ModifyAuthenticationProfileResponse"+ "fixture/ModifyAuthenticationProfileResponse.proto"+ defaultService+ (Proxy.Proxy :: Proxy.Proxy ModifyAuthenticationProfile)++responseModifyCluster :: ModifyClusterResponse -> TestTree+responseModifyCluster =+ res+ "ModifyClusterResponse"+ "fixture/ModifyClusterResponse.proto"+ defaultService+ (Proxy.Proxy :: Proxy.Proxy ModifyCluster)++responseModifyClusterDbRevision :: ModifyClusterDbRevisionResponse -> TestTree+responseModifyClusterDbRevision =+ res+ "ModifyClusterDbRevisionResponse"+ "fixture/ModifyClusterDbRevisionResponse.proto"+ defaultService+ (Proxy.Proxy :: Proxy.Proxy ModifyClusterDbRevision)++responseModifyClusterIamRoles :: ModifyClusterIamRolesResponse -> TestTree+responseModifyClusterIamRoles =+ res+ "ModifyClusterIamRolesResponse"+ "fixture/ModifyClusterIamRolesResponse.proto"+ defaultService+ (Proxy.Proxy :: Proxy.Proxy ModifyClusterIamRoles)++responseModifyClusterMaintenance :: ModifyClusterMaintenanceResponse -> TestTree+responseModifyClusterMaintenance =+ res+ "ModifyClusterMaintenanceResponse"+ "fixture/ModifyClusterMaintenanceResponse.proto"+ defaultService+ (Proxy.Proxy :: Proxy.Proxy ModifyClusterMaintenance)++responseModifyClusterParameterGroup :: ClusterParameterGroupNameMessage -> TestTree+responseModifyClusterParameterGroup =+ res+ "ModifyClusterParameterGroupResponse"+ "fixture/ModifyClusterParameterGroupResponse.proto"+ defaultService+ (Proxy.Proxy :: Proxy.Proxy ModifyClusterParameterGroup)++responseModifyClusterSnapshot :: ModifyClusterSnapshotResponse -> TestTree+responseModifyClusterSnapshot =+ res+ "ModifyClusterSnapshotResponse"+ "fixture/ModifyClusterSnapshotResponse.proto"+ defaultService+ (Proxy.Proxy :: Proxy.Proxy ModifyClusterSnapshot)++responseModifyClusterSnapshotSchedule :: ModifyClusterSnapshotScheduleResponse -> TestTree+responseModifyClusterSnapshotSchedule =+ res+ "ModifyClusterSnapshotScheduleResponse"+ "fixture/ModifyClusterSnapshotScheduleResponse.proto"+ defaultService+ (Proxy.Proxy :: Proxy.Proxy ModifyClusterSnapshotSchedule)++responseModifyClusterSubnetGroup :: ModifyClusterSubnetGroupResponse -> TestTree+responseModifyClusterSubnetGroup =+ res+ "ModifyClusterSubnetGroupResponse"+ "fixture/ModifyClusterSubnetGroupResponse.proto"+ defaultService+ (Proxy.Proxy :: Proxy.Proxy ModifyClusterSubnetGroup)++responseModifyEndpointAccess :: EndpointAccess -> TestTree+responseModifyEndpointAccess =+ res+ "ModifyEndpointAccessResponse"+ "fixture/ModifyEndpointAccessResponse.proto"+ defaultService+ (Proxy.Proxy :: Proxy.Proxy ModifyEndpointAccess)++responseModifyEventSubscription :: ModifyEventSubscriptionResponse -> TestTree+responseModifyEventSubscription =+ res+ "ModifyEventSubscriptionResponse"+ "fixture/ModifyEventSubscriptionResponse.proto"+ defaultService+ (Proxy.Proxy :: Proxy.Proxy ModifyEventSubscription)++responseModifyScheduledAction :: ScheduledAction -> TestTree+responseModifyScheduledAction =+ res+ "ModifyScheduledActionResponse"+ "fixture/ModifyScheduledActionResponse.proto"+ defaultService+ (Proxy.Proxy :: Proxy.Proxy ModifyScheduledAction)++responseModifySnapshotCopyRetentionPeriod :: ModifySnapshotCopyRetentionPeriodResponse -> TestTree+responseModifySnapshotCopyRetentionPeriod =+ res+ "ModifySnapshotCopyRetentionPeriodResponse"+ "fixture/ModifySnapshotCopyRetentionPeriodResponse.proto"+ defaultService+ (Proxy.Proxy :: Proxy.Proxy ModifySnapshotCopyRetentionPeriod)++responseModifySnapshotSchedule :: SnapshotSchedule -> TestTree+responseModifySnapshotSchedule =+ res+ "ModifySnapshotScheduleResponse"+ "fixture/ModifySnapshotScheduleResponse.proto"+ defaultService+ (Proxy.Proxy :: Proxy.Proxy ModifySnapshotSchedule)++responseModifyUsageLimit :: UsageLimit -> TestTree+responseModifyUsageLimit =+ res+ "ModifyUsageLimitResponse"+ "fixture/ModifyUsageLimitResponse.proto"+ defaultService+ (Proxy.Proxy :: Proxy.Proxy ModifyUsageLimit)++responsePauseCluster :: PauseClusterResponse -> TestTree+responsePauseCluster =+ res+ "PauseClusterResponse"+ "fixture/PauseClusterResponse.proto"+ defaultService+ (Proxy.Proxy :: Proxy.Proxy PauseCluster)++responsePurchaseReservedNodeOffering :: PurchaseReservedNodeOfferingResponse -> TestTree+responsePurchaseReservedNodeOffering =+ res+ "PurchaseReservedNodeOfferingResponse"+ "fixture/PurchaseReservedNodeOfferingResponse.proto"+ defaultService+ (Proxy.Proxy :: Proxy.Proxy PurchaseReservedNodeOffering)++responseRebootCluster :: RebootClusterResponse -> TestTree+responseRebootCluster =+ res+ "RebootClusterResponse"+ "fixture/RebootClusterResponse.proto"+ defaultService+ (Proxy.Proxy :: Proxy.Proxy RebootCluster)++responseRejectDataShare :: DataShare -> TestTree+responseRejectDataShare =+ res+ "RejectDataShareResponse"+ "fixture/RejectDataShareResponse.proto"+ defaultService+ (Proxy.Proxy :: Proxy.Proxy RejectDataShare)++responseResetClusterParameterGroup :: ClusterParameterGroupNameMessage -> TestTree+responseResetClusterParameterGroup =+ res+ "ResetClusterParameterGroupResponse"+ "fixture/ResetClusterParameterGroupResponse.proto"+ defaultService+ (Proxy.Proxy :: Proxy.Proxy ResetClusterParameterGroup)++responseResizeCluster :: ResizeClusterResponse -> TestTree+responseResizeCluster =+ res+ "ResizeClusterResponse"+ "fixture/ResizeClusterResponse.proto"+ defaultService+ (Proxy.Proxy :: Proxy.Proxy ResizeCluster)++responseRestoreFromClusterSnapshot :: RestoreFromClusterSnapshotResponse -> TestTree+responseRestoreFromClusterSnapshot =+ res+ "RestoreFromClusterSnapshotResponse"+ "fixture/RestoreFromClusterSnapshotResponse.proto"+ defaultService+ (Proxy.Proxy :: Proxy.Proxy RestoreFromClusterSnapshot)++responseRestoreTableFromClusterSnapshot :: RestoreTableFromClusterSnapshotResponse -> TestTree+responseRestoreTableFromClusterSnapshot =+ res+ "RestoreTableFromClusterSnapshotResponse"+ "fixture/RestoreTableFromClusterSnapshotResponse.proto"+ defaultService+ (Proxy.Proxy :: Proxy.Proxy RestoreTableFromClusterSnapshot)++responseResumeCluster :: ResumeClusterResponse -> TestTree+responseResumeCluster =+ res+ "ResumeClusterResponse"+ "fixture/ResumeClusterResponse.proto"+ defaultService+ (Proxy.Proxy :: Proxy.Proxy ResumeCluster)++responseRevokeClusterSecurityGroupIngress :: RevokeClusterSecurityGroupIngressResponse -> TestTree+responseRevokeClusterSecurityGroupIngress =+ res+ "RevokeClusterSecurityGroupIngressResponse"+ "fixture/RevokeClusterSecurityGroupIngressResponse.proto"+ defaultService+ (Proxy.Proxy :: Proxy.Proxy RevokeClusterSecurityGroupIngress)++responseRevokeEndpointAccess :: EndpointAuthorization -> TestTree+responseRevokeEndpointAccess =+ res+ "RevokeEndpointAccessResponse"+ "fixture/RevokeEndpointAccessResponse.proto"+ defaultService+ (Proxy.Proxy :: Proxy.Proxy RevokeEndpointAccess)++responseRevokeSnapshotAccess :: RevokeSnapshotAccessResponse -> TestTree+responseRevokeSnapshotAccess =+ res+ "RevokeSnapshotAccessResponse"+ "fixture/RevokeSnapshotAccessResponse.proto"+ defaultService+ (Proxy.Proxy :: Proxy.Proxy RevokeSnapshotAccess)++responseRotateEncryptionKey :: RotateEncryptionKeyResponse -> TestTree+responseRotateEncryptionKey =+ res+ "RotateEncryptionKeyResponse"+ "fixture/RotateEncryptionKeyResponse.proto"+ defaultService+ (Proxy.Proxy :: Proxy.Proxy RotateEncryptionKey)++responseUpdatePartnerStatus :: PartnerIntegrationOutputMessage -> TestTree+responseUpdatePartnerStatus =+ res+ "UpdatePartnerStatusResponse"+ "fixture/UpdatePartnerStatusResponse.proto"+ defaultService+ (Proxy.Proxy :: Proxy.Proxy UpdatePartnerStatus)
+ test/Test/Amazonka/Redshift.hs view
@@ -0,0 +1,20 @@+-- |+-- Module : Test.Amazonka.Redshift+-- Copyright : (c) 2013-2023 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+module Test.Amazonka.Redshift+ ( tests,+ fixtures,+ )+where++import Test.Tasty (TestTree)++tests :: [TestTree]+tests = []++fixtures :: [TestTree]+fixtures = []
+ test/Test/Amazonka/Redshift/Internal.hs view
@@ -0,0 +1,8 @@+-- |+-- Module : Test.Amazonka.Redshift.Internal+-- Copyright : (c) 2013-2023 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+module Test.Amazonka.Redshift.Internal where