amazonka-redshift 0.3.6 → 1.0.0

raw patch · 76 files changed

+14776/−10931 lines, 76 filesdep +amazonka-redshiftdep +amazonka-testdep +bytestringdep ~amazonka-coredep ~basePVP ok

version bump matches the API change (PVP)

Dependencies added: amazonka-redshift, amazonka-test, bytestring, lens, tasty, tasty-hunit, text, time, unordered-containers

Dependency ranges changed: amazonka-core, base

API changes (from Hackage documentation)

Files

• README.md +42/−8
• amazonka-redshift.cabal +80/−18
• gen/Network/AWS/Redshift.hs +946/−137
• gen/Network/AWS/Redshift/AuthorizeClusterSecurityGroupIngress.hs +145/−119
• gen/Network/AWS/Redshift/AuthorizeSnapshotAccess.hs +114/−98
• gen/Network/AWS/Redshift/CopyClusterSnapshot.hs +123/−105
• gen/Network/AWS/Redshift/CreateCluster.hs +405/−372
• gen/Network/AWS/Redshift/CreateClusterParameterGroup.hs +141/−122
• gen/Network/AWS/Redshift/CreateClusterSecurityGroup.hs +121/−101
• gen/Network/AWS/Redshift/CreateClusterSnapshot.hs +116/−98
• gen/Network/AWS/Redshift/CreateClusterSubnetGroup.hs +123/−103
• gen/Network/AWS/Redshift/CreateEventSubscription.hs +186/−167
• gen/Network/AWS/Redshift/CreateHSMClientCertificate.hs +148/−0
• gen/Network/AWS/Redshift/CreateHSMConfiguration.hs +203/−0
• gen/Network/AWS/Redshift/CreateHsmClientCertificate.hs +0/−129
• gen/Network/AWS/Redshift/CreateHsmConfiguration.hs +0/−189
• gen/Network/AWS/Redshift/CreateSnapshotCopyGrant.hs +161/−0
• gen/Network/AWS/Redshift/CreateTags.hs +80/−73
• gen/Network/AWS/Redshift/DeleteCluster.hs +140/−117
• gen/Network/AWS/Redshift/DeleteClusterParameterGroup.hs +72/−65
• gen/Network/AWS/Redshift/DeleteClusterSecurityGroup.hs +76/−66
• gen/Network/AWS/Redshift/DeleteClusterSnapshot.hs +107/−90
• gen/Network/AWS/Redshift/DeleteClusterSubnetGroup.hs +65/−60
• gen/Network/AWS/Redshift/DeleteEventSubscription.hs +68/−60
• gen/Network/AWS/Redshift/DeleteHSMClientCertificate.hs +99/−0
• gen/Network/AWS/Redshift/DeleteHSMConfiguration.hs +99/−0
• gen/Network/AWS/Redshift/DeleteHsmClientCertificate.hs +0/−92
• gen/Network/AWS/Redshift/DeleteHsmConfiguration.hs +0/−92
• gen/Network/AWS/Redshift/DeleteSnapshotCopyGrant.hs +99/−0
• gen/Network/AWS/Redshift/DeleteTags.hs +73/−68
• gen/Network/AWS/Redshift/DescribeClusterParameterGroups.hs +190/−156
• gen/Network/AWS/Redshift/DescribeClusterParameters.hs +163/−139
• gen/Network/AWS/Redshift/DescribeClusterSecurityGroups.hs +191/−162
• gen/Network/AWS/Redshift/DescribeClusterSnapshots.hs +240/−212
• gen/Network/AWS/Redshift/DescribeClusterSubnetGroups.hs +182/−157
• gen/Network/AWS/Redshift/DescribeClusterVersions.hs +157/−135
• gen/Network/AWS/Redshift/DescribeClusters.hs +182/−157
• gen/Network/AWS/Redshift/DescribeDefaultClusterParameters.hs +146/−109
• gen/Network/AWS/Redshift/DescribeEventCategories.hs +95/−84
• gen/Network/AWS/Redshift/DescribeEventSubscriptions.hs +145/−124
• gen/Network/AWS/Redshift/DescribeEvents.hs +200/−167
• gen/Network/AWS/Redshift/DescribeHSMClientCertificates.hs +239/−0
• gen/Network/AWS/Redshift/DescribeHSMConfigurations.hs +233/−0
• gen/Network/AWS/Redshift/DescribeHsmClientCertificates.hs +0/−210
• gen/Network/AWS/Redshift/DescribeHsmConfigurations.hs +0/−207
• gen/Network/AWS/Redshift/DescribeLoggingStatus.hs +65/−138
• gen/Network/AWS/Redshift/DescribeOrderableClusterOptions.hs +170/−138
• gen/Network/AWS/Redshift/DescribeReservedNodeOfferings.hs +154/−126
• gen/Network/AWS/Redshift/DescribeReservedNodes.hs +140/−118
• gen/Network/AWS/Redshift/DescribeResize.hs +200/−212
• gen/Network/AWS/Redshift/DescribeSnapshotCopyGrants.hs +219/−0
• gen/Network/AWS/Redshift/DescribeTags.hs +196/−161
• gen/Network/AWS/Redshift/DisableLogging.hs +65/−138
• gen/Network/AWS/Redshift/DisableSnapshotCopy.hs +96/−77
• gen/Network/AWS/Redshift/EnableLogging.hs +94/−161
• gen/Network/AWS/Redshift/EnableSnapshotCopy.hs +124/−98
• gen/Network/AWS/Redshift/ModifyCluster.hs +311/−282
• gen/Network/AWS/Redshift/ModifyClusterParameterGroup.hs +76/−105
• gen/Network/AWS/Redshift/ModifyClusterSubnetGroup.hs +108/−93
• gen/Network/AWS/Redshift/ModifyEventSubscription.hs +155/−138
• gen/Network/AWS/Redshift/ModifySnapshotCopyRetentionPeriod.hs +110/−91
• gen/Network/AWS/Redshift/PurchaseReservedNodeOffering.hs +108/−88
• gen/Network/AWS/Redshift/RebootCluster.hs +94/−78
• gen/Network/AWS/Redshift/ResetClusterParameterGroup.hs +91/−120
• gen/Network/AWS/Redshift/RestoreFromClusterSnapshot.hs +319/−280
• gen/Network/AWS/Redshift/RevokeClusterSecurityGroupIngress.hs +138/−117
• gen/Network/AWS/Redshift/RevokeSnapshotAccess.hs +115/−100
• gen/Network/AWS/Redshift/RotateEncryptionKey.hs +92/−77
• gen/Network/AWS/Redshift/Types.hs +988/−3378
• gen/Network/AWS/Redshift/Types/Product.hs +2897/−0
• gen/Network/AWS/Redshift/Types/Sum.hs +76/−0
• gen/Network/AWS/Redshift/Waiters.hs +75/−49
• test/Main.hs +21/−0
• test/Test/AWS/Gen/Redshift.hs +1042/−0
• test/Test/AWS/Redshift.hs +26/−0
• test/Test/AWS/Redshift/Internal.hs +16/−0

@@ -1,23 +1,57 @@ # Amazon Redshift SDK -> _Warning:_ This is an experimental preview release which is still under heavy development and not intended for public consumption, _caveat emptor_!-+* [Version](#version) * [Description](#description) * [Contribute](#contribute) * [Licence](#licence) ++## Version++`1.0.0`++ ## Description -Amazon Redshift is a fast, fully managed, petabyte-scale data warehouse-service that makes it simple and cost-effective to efficiently analyze all-your data using your existing business intelligence tools. You can start-small for just $0.25 per hour with no commitments or upfront costs and scale-to a petabyte or more for $1,000 per terabyte per year, less than a tenth of-most other data warehousing solutions.+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 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.+ Documentation is available via [Hackage](http://hackage.haskell.org/package/amazonka-redshift) and the [AWS API Reference](http://docs.aws.amazon.com/redshift/latest/APIReference/Welcome.html). +The types from this library are intended to be used with [amazonka](http://hackage.haskell.org/package/amazonka),+which provides mechanisms for specifying AuthN/AuthZ information and sending requests.++Use of lenses is required for constructing and manipulating types.+This is due to the amount 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+[lens](http://hackage.haskell.org/package/lens) or [lens-family-core](http://hackage.haskell.org/package/lens-family-core).  ## Contribute 

@@ -1,30 +1,59 @@ name:                  amazonka-redshift-version:               0.3.6+version:               1.0.0 synopsis:              Amazon Redshift SDK. homepage:              https://github.com/brendanhay/amazonka license:               OtherLicense license-file:          LICENSE author:                Brendan Hay maintainer:            Brendan Hay <brendan.g.hay@gmail.com>-copyright:             Copyright (c) 2013-2014 Brendan Hay+copyright:             Copyright (c) 2013-2015 Brendan Hay category:              Network, AWS, Cloud, Distributed Computing build-type:            Simple extra-source-files:    README.md cabal-version:         >= 1.10  description:-    Amazon Redshift is a fast, fully managed, petabyte-scale data warehouse-    service that makes it simple and cost-effective to efficiently analyze all-    your data using your existing business intelligence tools. You can start-    small for just $0.25 per hour with no commitments or upfront costs and scale-    to a petabyte or more for $1,000 per terabyte per year, less than a tenth of-    most other data warehousing solutions.+    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 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.     .-    /See:/ <http://docs.aws.amazon.com/redshift/latest/APIReference/Welcome.html AWS API Reference>+    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 and sending requests.     .-    /Warning:/ This is an experimental preview release which is still under-    heavy development and not intended for public consumption, caveat emptor!+    Use of lenses is required for constructing and manipulating types.+    This is due to the amount 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" and the <http://docs.aws.amazon.com/redshift/latest/APIReference/Welcome.html AWS API Reference>+    to get started.  source-repository head     type:     git@@ -47,8 +76,9 @@         , Network.AWS.Redshift.CreateClusterSnapshot         , Network.AWS.Redshift.CreateClusterSubnetGroup         , Network.AWS.Redshift.CreateEventSubscription-        , Network.AWS.Redshift.CreateHsmClientCertificate-        , Network.AWS.Redshift.CreateHsmConfiguration+        , Network.AWS.Redshift.CreateHSMClientCertificate+        , Network.AWS.Redshift.CreateHSMConfiguration+        , Network.AWS.Redshift.CreateSnapshotCopyGrant         , Network.AWS.Redshift.CreateTags         , Network.AWS.Redshift.DeleteCluster         , Network.AWS.Redshift.DeleteClusterParameterGroup@@ -56,8 +86,9 @@         , Network.AWS.Redshift.DeleteClusterSnapshot         , Network.AWS.Redshift.DeleteClusterSubnetGroup         , Network.AWS.Redshift.DeleteEventSubscription-        , Network.AWS.Redshift.DeleteHsmClientCertificate-        , Network.AWS.Redshift.DeleteHsmConfiguration+        , Network.AWS.Redshift.DeleteHSMClientCertificate+        , Network.AWS.Redshift.DeleteHSMConfiguration+        , Network.AWS.Redshift.DeleteSnapshotCopyGrant         , Network.AWS.Redshift.DeleteTags         , Network.AWS.Redshift.DescribeClusterParameterGroups         , Network.AWS.Redshift.DescribeClusterParameters@@ -70,13 +101,14 @@         , Network.AWS.Redshift.DescribeEventCategories         , Network.AWS.Redshift.DescribeEventSubscriptions         , Network.AWS.Redshift.DescribeEvents-        , Network.AWS.Redshift.DescribeHsmClientCertificates-        , Network.AWS.Redshift.DescribeHsmConfigurations+        , 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.DescribeTags         , Network.AWS.Redshift.DisableLogging         , Network.AWS.Redshift.DisableSnapshotCopy@@ -98,7 +130,37 @@         , Network.AWS.Redshift.Waiters      other-modules:+          Network.AWS.Redshift.Types.Product+        , Network.AWS.Redshift.Types.Sum      build-depends:-          amazonka-core == 0.3.6.*+          amazonka-core == 1.0.0.*         , base          >= 4.7     && < 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++    -- This is not comprehensive if modules have manually been added.+    -- It exists to ensure cabal 'somewhat' detects test module changes.+    other-modules:+          Test.AWS.Redshift+        , Test.AWS.Gen.Redshift+        , Test.AWS.Redshift.Internal++    build-depends:+          amazonka-core == 1.0.0+        , amazonka-test == 1.0.0+        , amazonka-redshift == 1.0.0+        , base+        , bytestring+        , lens+        , tasty+        , tasty-hunit+        , text+        , time+        , unordered-containers

@@ -1,137 +1,946 @@--- Module      : Network.AWS.Redshift--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- 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)------ Derived from AWS service descriptions, licensed under Apache 2.0.---- | Amazon Redshift is a fast, fully managed, petabyte-scale data warehouse--- service that makes it simple and cost-effective to efficiently analyze all--- your data using your existing business intelligence tools. You can start--- small for just $0.25 per hour with no commitments or upfront costs and scale--- to a petabyte or more for $1,000 per terabyte per year, less than a tenth of--- most other data warehousing solutions.-module Network.AWS.Redshift-    ( module Network.AWS.Redshift.AuthorizeClusterSecurityGroupIngress-    , module Network.AWS.Redshift.AuthorizeSnapshotAccess-    , module Network.AWS.Redshift.CopyClusterSnapshot-    , module Network.AWS.Redshift.CreateCluster-    , module Network.AWS.Redshift.CreateClusterParameterGroup-    , module Network.AWS.Redshift.CreateClusterSecurityGroup-    , module Network.AWS.Redshift.CreateClusterSnapshot-    , module Network.AWS.Redshift.CreateClusterSubnetGroup-    , module Network.AWS.Redshift.CreateEventSubscription-    , module Network.AWS.Redshift.CreateHsmClientCertificate-    , module Network.AWS.Redshift.CreateHsmConfiguration-    , module Network.AWS.Redshift.CreateTags-    , module Network.AWS.Redshift.DeleteCluster-    , module Network.AWS.Redshift.DeleteClusterParameterGroup-    , module Network.AWS.Redshift.DeleteClusterSecurityGroup-    , module Network.AWS.Redshift.DeleteClusterSnapshot-    , module Network.AWS.Redshift.DeleteClusterSubnetGroup-    , module Network.AWS.Redshift.DeleteEventSubscription-    , module Network.AWS.Redshift.DeleteHsmClientCertificate-    , module Network.AWS.Redshift.DeleteHsmConfiguration-    , module Network.AWS.Redshift.DeleteTags-    , module Network.AWS.Redshift.DescribeClusterParameterGroups-    , module Network.AWS.Redshift.DescribeClusterParameters-    , module Network.AWS.Redshift.DescribeClusterSecurityGroups-    , module Network.AWS.Redshift.DescribeClusterSnapshots-    , module Network.AWS.Redshift.DescribeClusterSubnetGroups-    , module Network.AWS.Redshift.DescribeClusterVersions-    , module Network.AWS.Redshift.DescribeClusters-    , module Network.AWS.Redshift.DescribeDefaultClusterParameters-    , module Network.AWS.Redshift.DescribeEventCategories-    , module Network.AWS.Redshift.DescribeEventSubscriptions-    , module Network.AWS.Redshift.DescribeEvents-    , module Network.AWS.Redshift.DescribeHsmClientCertificates-    , module Network.AWS.Redshift.DescribeHsmConfigurations-    , module Network.AWS.Redshift.DescribeLoggingStatus-    , module Network.AWS.Redshift.DescribeOrderableClusterOptions-    , module Network.AWS.Redshift.DescribeReservedNodeOfferings-    , module Network.AWS.Redshift.DescribeReservedNodes-    , module Network.AWS.Redshift.DescribeResize-    , module Network.AWS.Redshift.DescribeTags-    , module Network.AWS.Redshift.DisableLogging-    , module Network.AWS.Redshift.DisableSnapshotCopy-    , module Network.AWS.Redshift.EnableLogging-    , module Network.AWS.Redshift.EnableSnapshotCopy-    , module Network.AWS.Redshift.ModifyCluster-    , module Network.AWS.Redshift.ModifyClusterParameterGroup-    , module Network.AWS.Redshift.ModifyClusterSubnetGroup-    , module Network.AWS.Redshift.ModifyEventSubscription-    , module Network.AWS.Redshift.ModifySnapshotCopyRetentionPeriod-    , module Network.AWS.Redshift.PurchaseReservedNodeOffering-    , module Network.AWS.Redshift.RebootCluster-    , module Network.AWS.Redshift.ResetClusterParameterGroup-    , module Network.AWS.Redshift.RestoreFromClusterSnapshot-    , module Network.AWS.Redshift.RevokeClusterSecurityGroupIngress-    , module Network.AWS.Redshift.RevokeSnapshotAccess-    , module Network.AWS.Redshift.RotateEncryptionKey-    , module Network.AWS.Redshift.Types-    , module Network.AWS.Redshift.Waiters-    ) 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.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.DeleteTags-import Network.AWS.Redshift.DescribeClusterParameterGroups-import Network.AWS.Redshift.DescribeClusterParameters-import Network.AWS.Redshift.DescribeClusterSecurityGroups-import Network.AWS.Redshift.DescribeClusterSnapshots-import Network.AWS.Redshift.DescribeClusterSubnetGroups-import Network.AWS.Redshift.DescribeClusterVersions-import Network.AWS.Redshift.DescribeClusters-import Network.AWS.Redshift.DescribeDefaultClusterParameters-import Network.AWS.Redshift.DescribeEventCategories-import Network.AWS.Redshift.DescribeEventSubscriptions-import Network.AWS.Redshift.DescribeEvents-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.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.ModifyCluster-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.RevokeClusterSecurityGroupIngress-import Network.AWS.Redshift.RevokeSnapshotAccess-import Network.AWS.Redshift.RotateEncryptionKey-import Network.AWS.Redshift.Types-import Network.AWS.Redshift.Waiters+{-# 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-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay@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 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.+--+-- /See:/ <http://docs.aws.amazon.com/redshift/latest/APIReference/Welcome.html AWS API Reference>+module Network.AWS.Redshift+    (+    -- * Service+      Redshift++    -- * Errors+    -- $errors++    -- ** LimitExceededFault+    , _LimitExceededFault++    -- ** ClusterSecurityGroupQuotaExceededFault+    , _ClusterSecurityGroupQuotaExceededFault++    -- ** CopyToRegionDisabledFault+    , _CopyToRegionDisabledFault++    -- ** AuthorizationQuotaExceededFault+    , _AuthorizationQuotaExceededFault++    -- ** SourceNotFoundFault+    , _SourceNotFoundFault++    -- ** InvalidS3KeyPrefixFault+    , _InvalidS3KeyPrefixFault++    -- ** AuthorizationAlreadyExistsFault+    , _AuthorizationAlreadyExistsFault++    -- ** InvalidClusterSecurityGroupStateFault+    , _InvalidClusterSecurityGroupStateFault++    -- ** ClusterSecurityGroupAlreadyExistsFault+    , _ClusterSecurityGroupAlreadyExistsFault++    -- ** InvalidElasticIPFault+    , _InvalidElasticIPFault++    -- ** ClusterSnapshotNotFoundFault+    , _ClusterSnapshotNotFoundFault++    -- ** HSMConfigurationNotFoundFault+    , _HSMConfigurationNotFoundFault++    -- ** InvalidHSMConfigurationStateFault+    , _InvalidHSMConfigurationStateFault++    -- ** ClusterSnapshotAlreadyExistsFault+    , _ClusterSnapshotAlreadyExistsFault++    -- ** HSMConfigurationAlreadyExistsFault+    , _HSMConfigurationAlreadyExistsFault++    -- ** SubscriptionCategoryNotFoundFault+    , _SubscriptionCategoryNotFoundFault++    -- ** SubscriptionNotFoundFault+    , _SubscriptionNotFoundFault++    -- ** InvalidSubnet+    , _InvalidSubnet++    -- ** InvalidS3BucketNameFault+    , _InvalidS3BucketNameFault++    -- ** ClusterQuotaExceededFault+    , _ClusterQuotaExceededFault++    -- ** SnapshotCopyAlreadyDisabledFault+    , _SnapshotCopyAlreadyDisabledFault++    -- ** ClusterParameterGroupNotFoundFault+    , _ClusterParameterGroupNotFoundFault++    -- ** HSMClientCertificateQuotaExceededFault+    , _HSMClientCertificateQuotaExceededFault++    -- ** SnapshotCopyGrantQuotaExceededFault+    , _SnapshotCopyGrantQuotaExceededFault++    -- ** SnapshotCopyAlreadyEnabledFault+    , _SnapshotCopyAlreadyEnabledFault++    -- ** ClusterParameterGroupAlreadyExistsFault+    , _ClusterParameterGroupAlreadyExistsFault++    -- ** NumberOfNodesPerClusterLimitExceededFault+    , _NumberOfNodesPerClusterLimitExceededFault++    -- ** SnapshotCopyDisabledFault+    , _SnapshotCopyDisabledFault++    -- ** ResizeNotFoundFault+    , _ResizeNotFoundFault++    -- ** ClusterParameterGroupQuotaExceededFault+    , _ClusterParameterGroupQuotaExceededFault++    -- ** SNSTopicARNNotFoundFault+    , _SNSTopicARNNotFoundFault++    -- ** HSMClientCertificateNotFoundFault+    , _HSMClientCertificateNotFoundFault++    -- ** SnapshotCopyGrantAlreadyExistsFault+    , _SnapshotCopyGrantAlreadyExistsFault++    -- ** ClusterNotFoundFault+    , _ClusterNotFoundFault++    -- ** SNSNoAuthorizationFault+    , _SNSNoAuthorizationFault++    -- ** SnapshotCopyGrantNotFoundFault+    , _SnapshotCopyGrantNotFoundFault++    -- ** InvalidClusterStateFault+    , _InvalidClusterStateFault++    -- ** InsufficientClusterCapacityFault+    , _InsufficientClusterCapacityFault++    -- ** HSMConfigurationQuotaExceededFault+    , _HSMConfigurationQuotaExceededFault++    -- ** ClusterSnapshotQuotaExceededFault+    , _ClusterSnapshotQuotaExceededFault++    -- ** SNSInvalidTopicFault+    , _SNSInvalidTopicFault++    -- ** UnsupportedOptionFault+    , _UnsupportedOptionFault++    -- ** SubscriptionAlreadyExistFault+    , _SubscriptionAlreadyExistFault++    -- ** InvalidVPCNetworkStateFault+    , _InvalidVPCNetworkStateFault++    -- ** ClusterSubnetGroupNotFoundFault+    , _ClusterSubnetGroupNotFoundFault++    -- ** BucketNotFoundFault+    , _BucketNotFoundFault++    -- ** InvalidSubscriptionStateFault+    , _InvalidSubscriptionStateFault++    -- ** UnsupportedOperationFault+    , _UnsupportedOperationFault++    -- ** AuthorizationNotFoundFault+    , _AuthorizationNotFoundFault++    -- ** InvalidClusterSubnetGroupStateFault+    , _InvalidClusterSubnetGroupStateFault++    -- ** InvalidClusterSnapshotStateFault+    , _InvalidClusterSnapshotStateFault++    -- ** ClusterSubnetGroupAlreadyExistsFault+    , _ClusterSubnetGroupAlreadyExistsFault++    -- ** ClusterSecurityGroupNotFoundFault+    , _ClusterSecurityGroupNotFoundFault++    -- ** IncompatibleOrderableOptions+    , _IncompatibleOrderableOptions++    -- ** ReservedNodeOfferingNotFoundFault+    , _ReservedNodeOfferingNotFoundFault++    -- ** InvalidClusterSubnetStateFault+    , _InvalidClusterSubnetStateFault++    -- ** ReservedNodeNotFoundFault+    , _ReservedNodeNotFoundFault++    -- ** EventSubscriptionQuotaExceededFault+    , _EventSubscriptionQuotaExceededFault++    -- ** InvalidClusterParameterGroupStateFault+    , _InvalidClusterParameterGroupStateFault++    -- ** ReservedNodeAlreadyExistsFault+    , _ReservedNodeAlreadyExistsFault++    -- ** ReservedNodeQuotaExceededFault+    , _ReservedNodeQuotaExceededFault++    -- ** SubscriptionEventIdNotFoundFault+    , _SubscriptionEventIdNotFoundFault++    -- ** ResourceNotFoundFault+    , _ResourceNotFoundFault++    -- ** InvalidSnapshotCopyGrantStateFault+    , _InvalidSnapshotCopyGrantStateFault++    -- ** InvalidRestoreFault+    , _InvalidRestoreFault++    -- ** UnknownSnapshotCopyRegionFault+    , _UnknownSnapshotCopyRegionFault++    -- ** AccessToSnapshotDeniedFault+    , _AccessToSnapshotDeniedFault++    -- ** ClusterAlreadyExistsFault+    , _ClusterAlreadyExistsFault++    -- ** HSMClientCertificateAlreadyExistsFault+    , _HSMClientCertificateAlreadyExistsFault++    -- ** InvalidHSMClientCertificateStateFault+    , _InvalidHSMClientCertificateStateFault++    -- ** NumberOfNodesQuotaExceededFault+    , _NumberOfNodesQuotaExceededFault++    -- ** TagLimitExceededFault+    , _TagLimitExceededFault++    -- ** ClusterSubnetQuotaExceededFault+    , _ClusterSubnetQuotaExceededFault++    -- ** SubnetAlreadyInUse+    , _SubnetAlreadyInUse++    -- ** InvalidTagFault+    , _InvalidTagFault++    -- ** InsufficientS3BucketPolicyFault+    , _InsufficientS3BucketPolicyFault++    -- ** ClusterSubnetGroupQuotaExceededFault+    , _ClusterSubnetGroupQuotaExceededFault++    -- ** SubscriptionSeverityNotFoundFault+    , _SubscriptionSeverityNotFoundFault++    -- ** UnauthorizedOperation+    , _UnauthorizedOperation++    -- * Waiters+    -- $waiters++    -- ** ClusterDeleted+    , clusterDeleted++    -- ** SnapshotAvailable+    , snapshotAvailable++    -- ** ClusterAvailable+    , clusterAvailable++    -- * Operations+    -- $operations++    -- ** DescribeClusters (Paginated)+    , module Network.AWS.Redshift.DescribeClusters++    -- ** DescribeTags+    , module Network.AWS.Redshift.DescribeTags++    -- ** ModifyEventSubscription+    , module Network.AWS.Redshift.ModifyEventSubscription++    -- ** DisableLogging+    , module Network.AWS.Redshift.DisableLogging++    -- ** PurchaseReservedNodeOffering+    , module Network.AWS.Redshift.PurchaseReservedNodeOffering++    -- ** DeleteClusterSubnetGroup+    , module Network.AWS.Redshift.DeleteClusterSubnetGroup++    -- ** DeleteClusterSnapshot+    , module Network.AWS.Redshift.DeleteClusterSnapshot++    -- ** DescribeEvents (Paginated)+    , module Network.AWS.Redshift.DescribeEvents++    -- ** DescribeReservedNodeOfferings (Paginated)+    , module Network.AWS.Redshift.DescribeReservedNodeOfferings++    -- ** DescribeClusterParameterGroups (Paginated)+    , module Network.AWS.Redshift.DescribeClusterParameterGroups++    -- ** CreateClusterSubnetGroup+    , module Network.AWS.Redshift.CreateClusterSubnetGroup++    -- ** DescribeReservedNodes (Paginated)+    , module Network.AWS.Redshift.DescribeReservedNodes++    -- ** EnableLogging+    , module Network.AWS.Redshift.EnableLogging++    -- ** CreateTags+    , module Network.AWS.Redshift.CreateTags++    -- ** DescribeClusterSecurityGroups (Paginated)+    , module Network.AWS.Redshift.DescribeClusterSecurityGroups++    -- ** DeleteClusterParameterGroup+    , module Network.AWS.Redshift.DeleteClusterParameterGroup++    -- ** DeleteTags+    , module Network.AWS.Redshift.DeleteTags++    -- ** EnableSnapshotCopy+    , module Network.AWS.Redshift.EnableSnapshotCopy++    -- ** ModifySnapshotCopyRetentionPeriod+    , module Network.AWS.Redshift.ModifySnapshotCopyRetentionPeriod++    -- ** DescribeClusterSnapshots (Paginated)+    , module Network.AWS.Redshift.DescribeClusterSnapshots++    -- ** DescribeClusterSubnetGroups (Paginated)+    , module Network.AWS.Redshift.DescribeClusterSubnetGroups++    -- ** AuthorizeSnapshotAccess+    , module Network.AWS.Redshift.AuthorizeSnapshotAccess++    -- ** CreateEventSubscription+    , module Network.AWS.Redshift.CreateEventSubscription++    -- ** RebootCluster+    , module Network.AWS.Redshift.RebootCluster++    -- ** DescribeOrderableClusterOptions (Paginated)+    , module Network.AWS.Redshift.DescribeOrderableClusterOptions++    -- ** DeleteCluster+    , module Network.AWS.Redshift.DeleteCluster++    -- ** DeleteEventSubscription+    , module Network.AWS.Redshift.DeleteEventSubscription++    -- ** DescribeDefaultClusterParameters (Paginated)+    , module Network.AWS.Redshift.DescribeDefaultClusterParameters++    -- ** CreateCluster+    , module Network.AWS.Redshift.CreateCluster++    -- ** CreateHSMClientCertificate+    , module Network.AWS.Redshift.CreateHSMClientCertificate++    -- ** ResetClusterParameterGroup+    , module Network.AWS.Redshift.ResetClusterParameterGroup++    -- ** DescribeEventSubscriptions (Paginated)+    , module Network.AWS.Redshift.DescribeEventSubscriptions++    -- ** DescribeHSMClientCertificates (Paginated)+    , module Network.AWS.Redshift.DescribeHSMClientCertificates++    -- ** ModifyClusterParameterGroup+    , module Network.AWS.Redshift.ModifyClusterParameterGroup++    -- ** RevokeClusterSecurityGroupIngress+    , module Network.AWS.Redshift.RevokeClusterSecurityGroupIngress++    -- ** AuthorizeClusterSecurityGroupIngress+    , module Network.AWS.Redshift.AuthorizeClusterSecurityGroupIngress++    -- ** CreateClusterSecurityGroup+    , module Network.AWS.Redshift.CreateClusterSecurityGroup++    -- ** DescribeResize+    , module Network.AWS.Redshift.DescribeResize++    -- ** DescribeEventCategories+    , module Network.AWS.Redshift.DescribeEventCategories++    -- ** DeleteHSMConfiguration+    , module Network.AWS.Redshift.DeleteHSMConfiguration++    -- ** DeleteClusterSecurityGroup+    , module Network.AWS.Redshift.DeleteClusterSecurityGroup++    -- ** CreateHSMConfiguration+    , module Network.AWS.Redshift.CreateHSMConfiguration++    -- ** ModifyCluster+    , module Network.AWS.Redshift.ModifyCluster++    -- ** CreateClusterSnapshot+    , module Network.AWS.Redshift.CreateClusterSnapshot++    -- ** DescribeLoggingStatus+    , module Network.AWS.Redshift.DescribeLoggingStatus++    -- ** DescribeClusterParameters (Paginated)+    , module Network.AWS.Redshift.DescribeClusterParameters++    -- ** DisableSnapshotCopy+    , module Network.AWS.Redshift.DisableSnapshotCopy++    -- ** RestoreFromClusterSnapshot+    , module Network.AWS.Redshift.RestoreFromClusterSnapshot++    -- ** DescribeHSMConfigurations (Paginated)+    , module Network.AWS.Redshift.DescribeHSMConfigurations++    -- ** CreateClusterParameterGroup+    , module Network.AWS.Redshift.CreateClusterParameterGroup++    -- ** RevokeSnapshotAccess+    , module Network.AWS.Redshift.RevokeSnapshotAccess++    -- ** DeleteHSMClientCertificate+    , module Network.AWS.Redshift.DeleteHSMClientCertificate++    -- ** CreateSnapshotCopyGrant+    , module Network.AWS.Redshift.CreateSnapshotCopyGrant++    -- ** CopyClusterSnapshot+    , module Network.AWS.Redshift.CopyClusterSnapshot++    -- ** DescribeClusterVersions (Paginated)+    , module Network.AWS.Redshift.DescribeClusterVersions++    -- ** ModifyClusterSubnetGroup+    , module Network.AWS.Redshift.ModifyClusterSubnetGroup++    -- ** DeleteSnapshotCopyGrant+    , module Network.AWS.Redshift.DeleteSnapshotCopyGrant++    -- ** DescribeSnapshotCopyGrants+    , module Network.AWS.Redshift.DescribeSnapshotCopyGrants++    -- ** RotateEncryptionKey+    , module Network.AWS.Redshift.RotateEncryptionKey++    -- * Types++    -- ** ParameterApplyType+    , ParameterApplyType (..)++    -- ** SourceType+    , SourceType (..)++    -- ** AccountWithRestoreAccess+    , AccountWithRestoreAccess+    , accountWithRestoreAccess+    , awraAccountId++    -- ** AvailabilityZone+    , AvailabilityZone+    , availabilityZone+    , azName++    -- ** Cluster+    , Cluster+    , cluster+    , cRestoreStatus+    , cClusterSnapshotCopyStatus+    , cClusterRevisionNumber+    , cMasterUsername+    , cPubliclyAccessible+    , cVPCId+    , cClusterSecurityGroups+    , cAutomatedSnapshotRetentionPeriod+    , cEncrypted+    , cClusterIdentifier+    , cNumberOfNodes+    , cClusterSubnetGroupName+    , cPreferredMaintenanceWindow+    , cModifyStatus+    , cClusterPublicKey+    , cClusterParameterGroups+    , cAvailabilityZone+    , cVPCSecurityGroups+    , cKMSKeyId+    , cHSMStatus+    , cElasticIPStatus+    , cClusterVersion+    , cNodeType+    , cEndpoint+    , cClusterCreateTime+    , cAllowVersionUpgrade+    , cPendingModifiedValues+    , cClusterStatus+    , cDBName+    , cTags+    , cClusterNodes++    -- ** ClusterNode+    , ClusterNode+    , clusterNode+    , cnNodeRole+    , cnPrivateIPAddress+    , cnPublicIPAddress++    -- ** ClusterParameterGroup+    , ClusterParameterGroup+    , clusterParameterGroup+    , cpgParameterGroupFamily+    , cpgDescription+    , cpgParameterGroupName+    , cpgTags++    -- ** 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+    , dcpParameters+    , dcpMarker+    , 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+    , esCustomerAWSId+    , esStatus+    , esCustSubscriptionId+    , esSNSTopicARN+    , esEnabled+    , esSourceType+    , esSeverity+    , esSubscriptionCreationTime+    , esEventCategoriesList+    , esSourceIdsList+    , esTags++    -- ** HSMClientCertificate+    , HSMClientCertificate+    , hsmClientCertificate+    , hccHSMClientCertificateIdentifier+    , hccHSMClientCertificatePublicKey+    , hccTags++    -- ** HSMConfiguration+    , HSMConfiguration+    , hsmConfiguration+    , hcHSMConfigurationIdentifier+    , hcHSMPartitionName+    , hcDescription+    , hcHSMIPAddress+    , hcTags++    -- ** HSMStatus+    , HSMStatus+    , hsmStatus+    , hsStatus+    , hsHSMConfigurationIdentifier+    , hsHSMClientCertificateIdentifier++    -- ** IPRange+    , IPRange+    , ipRange+    , irStatus+    , irCIdRIP+    , irTags++    -- ** LoggingStatus+    , LoggingStatus+    , loggingStatus+    , lsLastSuccessfulDeliveryTime+    , lsLastFailureTime+    , lsS3KeyPrefix+    , lsBucketName+    , lsLoggingEnabled+    , lsLastFailureMessage++    -- ** OrderableClusterOption+    , OrderableClusterOption+    , orderableClusterOption+    , ocoAvailabilityZones+    , ocoClusterType+    , ocoClusterVersion+    , ocoNodeType++    -- ** Parameter+    , Parameter+    , parameter+    , pApplyType+    , pParameterValue+    , pMinimumEngineVersion+    , pSource+    , pIsModifiable+    , pAllowedValues+    , pDataType+    , pParameterName+    , pDescription++    -- ** PendingModifiedValues+    , PendingModifiedValues+    , pendingModifiedValues+    , pmvMasterUserPassword+    , pmvAutomatedSnapshotRetentionPeriod+    , pmvClusterIdentifier+    , pmvNumberOfNodes+    , pmvClusterType+    , pmvClusterVersion+    , pmvNodeType++    -- ** RecurringCharge+    , RecurringCharge+    , recurringCharge+    , rcRecurringChargeFrequency+    , rcRecurringChargeAmount++    -- ** ReservedNode+    , ReservedNode+    , reservedNode+    , rnState+    , rnCurrencyCode+    , rnStartTime+    , rnNodeCount+    , rnReservedNodeOfferingId+    , rnReservedNodeId+    , rnOfferingType+    , rnUsagePrice+    , rnNodeType+    , rnRecurringCharges+    , rnFixedPrice+    , rnDuration++    -- ** ReservedNodeOffering+    , ReservedNodeOffering+    , reservedNodeOffering+    , rnoCurrencyCode+    , rnoReservedNodeOfferingId+    , rnoOfferingType+    , rnoUsagePrice+    , rnoNodeType+    , rnoRecurringCharges+    , rnoFixedPrice+    , rnoDuration++    -- ** RestoreStatus+    , RestoreStatus+    , restoreStatus+    , rsEstimatedTimeToCompletionInSeconds+    , rsStatus+    , rsCurrentRestoreRateInMegaBytesPerSecond+    , rsProgressInMegaBytes+    , rsElapsedTimeInSeconds+    , rsSnapshotSizeInMegaBytes++    -- ** Snapshot+    , Snapshot+    , snapshot+    , sRestorableNodeTypes+    , sStatus+    , sAccountsWithRestoreAccess+    , sSnapshotIdentifier+    , sEncryptedWithHSM+    , sMasterUsername+    , sSourceRegion+    , sVPCId+    , sBackupProgressInMegaBytes+    , sEncrypted+    , sClusterIdentifier+    , sNumberOfNodes+    , sSnapshotType+    , sAvailabilityZone+    , sKMSKeyId+    , sCurrentBackupRateInMegaBytesPerSecond+    , sSnapshotCreateTime+    , sClusterVersion+    , sOwnerAccount+    , sNodeType+    , sClusterCreateTime+    , sElapsedTimeInSeconds+    , sEstimatedSecondsToCompletion+    , sTotalBackupSizeInMegaBytes+    , sDBName+    , sTags+    , sActualIncrementalBackupSizeInMegaBytes+    , sPort++    -- ** SnapshotCopyGrant+    , SnapshotCopyGrant+    , snapshotCopyGrant+    , scgKMSKeyId+    , scgSnapshotCopyGrantName+    , scgTags++    -- ** Subnet+    , Subnet+    , subnet+    , sSubnetStatus+    , sSubnetIdentifier+    , sSubnetAvailabilityZone++    -- ** Tag+    , Tag+    , tag+    , tagValue+    , tagKey++    -- ** TaggedResource+    , TaggedResource+    , taggedResource+    , trResourceType+    , trTag+    , 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.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.ModifyCluster+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.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.+-}

@@ -1,159 +1,185 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# 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-2014 Brendan Hay <brendan.g.hay@gmail.com>--- 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/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | 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 EC2 instance, you can authorize inbound access to either a--- Classless Interdomain Routing (CIDR) IP address range or an EC2 security--- group. You can add as many as 20 ingress rules to an Amazon Redshift security--- group.+-- 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 EC2 instance, you can authorize inbound access to+-- either a Classless Interdomain Routing (CIDR) IP address range or an EC2+-- security group. You can add as many as 20 ingress rules to an Amazon+-- Redshift security group. ----- The EC2 security group must be defined in the AWS region where the cluster--- resides.  For an overview of CIDR blocks, see the Wikipedia article on <http://en.wikipedia.org/wiki/Classless_Inter-Domain_Routing Classless Inter-Domain Routing>.+-- The EC2 security group must be defined in the AWS region where the+-- cluster resides. ----- 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 Workingwith Security Groups> in the /Amazon Redshift Cluster Management Guide/.+-- For an overview of CIDR blocks, see the Wikipedia article on+-- <http://en.wikipedia.org/wiki/Classless_Inter-Domain_Routing Classless Inter-Domain Routing>. ----- <http://docs.aws.amazon.com/redshift/latest/APIReference/API_AuthorizeClusterSecurityGroupIngress.html>+-- 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/.+--+-- /See:/ <http://docs.aws.amazon.com/redshift/latest/APIReference/API_AuthorizeClusterSecurityGroupIngress.html AWS API Reference> for AuthorizeClusterSecurityGroupIngress. module Network.AWS.Redshift.AuthorizeClusterSecurityGroupIngress     (-    -- * Request-      AuthorizeClusterSecurityGroupIngress-    -- ** Request constructor-    , authorizeClusterSecurityGroupIngress-    -- ** Request lenses-    , acsgiCIDRIP-    , acsgiClusterSecurityGroupName-    , acsgiEC2SecurityGroupName+    -- * Creating a Request+      authorizeClusterSecurityGroupIngress+    , AuthorizeClusterSecurityGroupIngress+    -- * Request Lenses     , acsgiEC2SecurityGroupOwnerId+    , acsgiEC2SecurityGroupName+    , acsgiCIdRIP+    , acsgiClusterSecurityGroupName -    -- * Response-    , AuthorizeClusterSecurityGroupIngressResponse-    -- ** Response constructor+    -- * Destructuring the Response     , authorizeClusterSecurityGroupIngressResponse-    -- ** Response lenses-    , acsgirClusterSecurityGroup+    , AuthorizeClusterSecurityGroupIngressResponse+    -- * Response Lenses+    , acsgirsClusterSecurityGroup+    , acsgirsStatus     ) where -import Network.AWS.Prelude-import Network.AWS.Request.Query-import Network.AWS.Redshift.Types-import qualified GHC.Exts--data AuthorizeClusterSecurityGroupIngress = AuthorizeClusterSecurityGroupIngress-    { _acsgiCIDRIP                   :: Maybe Text-    , _acsgiClusterSecurityGroupName :: Text-    , _acsgiEC2SecurityGroupName     :: Maybe Text-    , _acsgiEC2SecurityGroupOwnerId  :: Maybe Text-    } deriving (Eq, Ord, Read, Show)+import           Network.AWS.Prelude+import           Network.AWS.Redshift.Types+import           Network.AWS.Redshift.Types.Product+import           Network.AWS.Request+import           Network.AWS.Response --- | 'AuthorizeClusterSecurityGroupIngress' constructor.+-- | ??? ----- The fields accessible through corresponding lenses are:+-- /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. ----- * 'acsgiCIDRIP' @::@ 'Maybe' 'Text'+-- Use one of the following lenses to modify other fields as desired: ----- * 'acsgiClusterSecurityGroupName' @::@ 'Text'+-- * 'acsgiEC2SecurityGroupOwnerId' ----- * 'acsgiEC2SecurityGroupName' @::@ 'Maybe' 'Text'+-- * 'acsgiEC2SecurityGroupName' ----- * 'acsgiEC2SecurityGroupOwnerId' @::@ 'Maybe' 'Text'+-- * 'acsgiCIdRIP' ---authorizeClusterSecurityGroupIngress :: Text -- ^ 'acsgiClusterSecurityGroupName'-                                     -> AuthorizeClusterSecurityGroupIngress-authorizeClusterSecurityGroupIngress p1 = AuthorizeClusterSecurityGroupIngress-    { _acsgiClusterSecurityGroupName = p1-    , _acsgiCIDRIP                   = Nothing-    , _acsgiEC2SecurityGroupName     = Nothing-    , _acsgiEC2SecurityGroupOwnerId  = Nothing+-- * 'acsgiClusterSecurityGroupName'+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 })+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 })+acsgiClusterSecurityGroupName = lens _acsgiClusterSecurityGroupName (\ s a -> s{_acsgiClusterSecurityGroupName = 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 })+instance AWSRequest+         AuthorizeClusterSecurityGroupIngress where+        type Sv AuthorizeClusterSecurityGroupIngress =+             Redshift+        type Rs AuthorizeClusterSecurityGroupIngress =+             AuthorizeClusterSecurityGroupIngressResponse+        request = postQuery+        response+          = receiveXMLWrapper+              "AuthorizeClusterSecurityGroupIngressResult"+              (\ s h x ->+                 AuthorizeClusterSecurityGroupIngressResponse' <$>+                   (x .@? "ClusterSecurityGroup") <*>+                     (pure (fromEnum s))) --- | 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 })+instance ToHeaders+         AuthorizeClusterSecurityGroupIngress where+        toHeaders = const mempty -newtype AuthorizeClusterSecurityGroupIngressResponse = AuthorizeClusterSecurityGroupIngressResponse-    { _acsgirClusterSecurityGroup :: Maybe ClusterSecurityGroup-    } deriving (Eq, Read, Show)+instance ToPath AuthorizeClusterSecurityGroupIngress+         where+        toPath = const "/" --- | 'AuthorizeClusterSecurityGroupIngressResponse' constructor.+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)+    , _acsgirsStatus               :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'AuthorizeClusterSecurityGroupIngressResponse' with the minimum fields required to make a request. ----- The fields accessible through corresponding lenses are:+-- Use one of the following lenses to modify other fields as desired: ----- * 'acsgirClusterSecurityGroup' @::@ 'Maybe' 'ClusterSecurityGroup'+-- * 'acsgirsClusterSecurityGroup' ---authorizeClusterSecurityGroupIngressResponse :: AuthorizeClusterSecurityGroupIngressResponse-authorizeClusterSecurityGroupIngressResponse = AuthorizeClusterSecurityGroupIngressResponse-    { _acsgirClusterSecurityGroup = Nothing+-- * 'acsgirsStatus'+authorizeClusterSecurityGroupIngressResponse+    :: Int -- ^ 'acsgirsStatus'+    -> AuthorizeClusterSecurityGroupIngressResponse+authorizeClusterSecurityGroupIngressResponse pStatus_ =+    AuthorizeClusterSecurityGroupIngressResponse'+    { _acsgirsClusterSecurityGroup = Nothing+    , _acsgirsStatus = pStatus_     } -acsgirClusterSecurityGroup :: Lens' AuthorizeClusterSecurityGroupIngressResponse (Maybe ClusterSecurityGroup)-acsgirClusterSecurityGroup =-    lens _acsgirClusterSecurityGroup-        (\s a -> s { _acsgirClusterSecurityGroup = a })--instance ToPath AuthorizeClusterSecurityGroupIngress where-    toPath = const "/"--instance ToQuery AuthorizeClusterSecurityGroupIngress where-    toQuery AuthorizeClusterSecurityGroupIngress{..} = mconcat-        [ "CIDRIP"                   =? _acsgiCIDRIP-        , "ClusterSecurityGroupName" =? _acsgiClusterSecurityGroupName-        , "EC2SecurityGroupName"     =? _acsgiEC2SecurityGroupName-        , "EC2SecurityGroupOwnerId"  =? _acsgiEC2SecurityGroupOwnerId-        ]--instance ToHeaders AuthorizeClusterSecurityGroupIngress--instance AWSRequest AuthorizeClusterSecurityGroupIngress where-    type Sv AuthorizeClusterSecurityGroupIngress = Redshift-    type Rs AuthorizeClusterSecurityGroupIngress = AuthorizeClusterSecurityGroupIngressResponse--    request  = post "AuthorizeClusterSecurityGroupIngress"-    response = xmlResponse+-- | Undocumented member.+acsgirsClusterSecurityGroup :: Lens' AuthorizeClusterSecurityGroupIngressResponse (Maybe ClusterSecurityGroup)+acsgirsClusterSecurityGroup = lens _acsgirsClusterSecurityGroup (\ s a -> s{_acsgirsClusterSecurityGroup = a}); -instance FromXML AuthorizeClusterSecurityGroupIngressResponse where-    parseXML = withElement "AuthorizeClusterSecurityGroupIngressResult" $ \x -> AuthorizeClusterSecurityGroupIngressResponse-        <$> x .@? "ClusterSecurityGroup"+-- | The response status code.+acsgirsStatus :: Lens' AuthorizeClusterSecurityGroupIngressResponse Int+acsgirsStatus = lens _acsgirsStatus (\ s a -> s{_acsgirsStatus = a});

@@ -1,139 +1,155 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# 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-2014 Brendan Hay <brendan.g.hay@gmail.com>--- 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/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | Authorizes the specified AWS customer account to restore the specified+-- 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 RedshiftSnapshots> in the /Amazon Redshift Cluster Management Guide/.+-- 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/. ----- <http://docs.aws.amazon.com/redshift/latest/APIReference/API_AuthorizeSnapshotAccess.html>+-- /See:/ <http://docs.aws.amazon.com/redshift/latest/APIReference/API_AuthorizeSnapshotAccess.html AWS API Reference> for AuthorizeSnapshotAccess. module Network.AWS.Redshift.AuthorizeSnapshotAccess     (-    -- * Request-      AuthorizeSnapshotAccess-    -- ** Request constructor-    , authorizeSnapshotAccess-    -- ** Request lenses-    , asaAccountWithRestoreAccess+    -- * Creating a Request+      authorizeSnapshotAccess+    , AuthorizeSnapshotAccess+    -- * Request Lenses     , asaSnapshotClusterIdentifier     , asaSnapshotIdentifier+    , asaAccountWithRestoreAccess -    -- * Response-    , AuthorizeSnapshotAccessResponse-    -- ** Response constructor+    -- * Destructuring the Response     , authorizeSnapshotAccessResponse-    -- ** Response lenses-    , asarSnapshot+    , AuthorizeSnapshotAccessResponse+    -- * Response Lenses+    , asarsSnapshot+    , asarsStatus     ) where -import Network.AWS.Prelude-import Network.AWS.Request.Query-import Network.AWS.Redshift.Types-import qualified GHC.Exts--data AuthorizeSnapshotAccess = AuthorizeSnapshotAccess-    { _asaAccountWithRestoreAccess  :: Text-    , _asaSnapshotClusterIdentifier :: Maybe Text-    , _asaSnapshotIdentifier        :: Text-    } deriving (Eq, Ord, Read, Show)+import           Network.AWS.Prelude+import           Network.AWS.Redshift.Types+import           Network.AWS.Redshift.Types.Product+import           Network.AWS.Request+import           Network.AWS.Response --- | 'AuthorizeSnapshotAccess' constructor.+-- | ----- The fields accessible through corresponding lenses are:+-- /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. ----- * 'asaAccountWithRestoreAccess' @::@ 'Text'+-- Use one of the following lenses to modify other fields as desired: ----- * 'asaSnapshotClusterIdentifier' @::@ 'Maybe' 'Text'+-- * 'asaSnapshotClusterIdentifier' ----- * 'asaSnapshotIdentifier' @::@ 'Text'+-- * 'asaSnapshotIdentifier' ---authorizeSnapshotAccess :: Text -- ^ 'asaSnapshotIdentifier'-                        -> Text -- ^ 'asaAccountWithRestoreAccess'-                        -> AuthorizeSnapshotAccess-authorizeSnapshotAccess p1 p2 = AuthorizeSnapshotAccess-    { _asaSnapshotIdentifier        = p1-    , _asaAccountWithRestoreAccess  = p2-    , _asaSnapshotClusterIdentifier = Nothing+-- * 'asaAccountWithRestoreAccess'+authorizeSnapshotAccess+    :: Text -- ^ 'asaSnapshotIdentifier'+    -> Text -- ^ 'asaAccountWithRestoreAccess'+    -> AuthorizeSnapshotAccess+authorizeSnapshotAccess pSnapshotIdentifier_ pAccountWithRestoreAccess_ =+    AuthorizeSnapshotAccess'+    { _asaSnapshotClusterIdentifier = Nothing+    , _asaSnapshotIdentifier = pSnapshotIdentifier_+    , _asaAccountWithRestoreAccess = pAccountWithRestoreAccess_     } --- | The identifier of the AWS customer account authorized to restore the--- specified snapshot.-asaAccountWithRestoreAccess :: Lens' AuthorizeSnapshotAccess Text-asaAccountWithRestoreAccess =-    lens _asaAccountWithRestoreAccess-        (\s a -> s { _asaAccountWithRestoreAccess = a })---- | 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.+-- | 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 })+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 })+asaSnapshotIdentifier = lens _asaSnapshotIdentifier (\ s a -> s{_asaSnapshotIdentifier = a}); -newtype AuthorizeSnapshotAccessResponse = AuthorizeSnapshotAccessResponse-    { _asarSnapshot :: Maybe Snapshot-    } deriving (Eq, Read, Show)+-- | The identifier of the AWS customer account authorized to restore the+-- specified snapshot.+asaAccountWithRestoreAccess :: Lens' AuthorizeSnapshotAccess Text+asaAccountWithRestoreAccess = lens _asaAccountWithRestoreAccess (\ s a -> s{_asaAccountWithRestoreAccess = a}); --- | 'AuthorizeSnapshotAccessResponse' constructor.------ The fields accessible through corresponding lenses are:------ * 'asarSnapshot' @::@ 'Maybe' 'Snapshot'----authorizeSnapshotAccessResponse :: AuthorizeSnapshotAccessResponse-authorizeSnapshotAccessResponse = AuthorizeSnapshotAccessResponse-    { _asarSnapshot = Nothing-    }+instance AWSRequest AuthorizeSnapshotAccess where+        type Sv AuthorizeSnapshotAccess = Redshift+        type Rs AuthorizeSnapshotAccess =+             AuthorizeSnapshotAccessResponse+        request = postQuery+        response+          = receiveXMLWrapper "AuthorizeSnapshotAccessResult"+              (\ s h x ->+                 AuthorizeSnapshotAccessResponse' <$>+                   (x .@? "Snapshot") <*> (pure (fromEnum s))) -asarSnapshot :: Lens' AuthorizeSnapshotAccessResponse (Maybe Snapshot)-asarSnapshot = lens _asarSnapshot (\s a -> s { _asarSnapshot = a })+instance ToHeaders AuthorizeSnapshotAccess where+        toHeaders = const mempty  instance ToPath AuthorizeSnapshotAccess where-    toPath = const "/"+        toPath = const "/"  instance ToQuery AuthorizeSnapshotAccess where-    toQuery AuthorizeSnapshotAccess{..} = mconcat-        [ "AccountWithRestoreAccess"  =? _asaAccountWithRestoreAccess-        , "SnapshotClusterIdentifier" =? _asaSnapshotClusterIdentifier-        , "SnapshotIdentifier"        =? _asaSnapshotIdentifier-        ]+        toQuery AuthorizeSnapshotAccess'{..}+          = mconcat+              ["Action" =:+                 ("AuthorizeSnapshotAccess" :: ByteString),+               "Version" =: ("2012-12-01" :: ByteString),+               "SnapshotClusterIdentifier" =:+                 _asaSnapshotClusterIdentifier,+               "SnapshotIdentifier" =: _asaSnapshotIdentifier,+               "AccountWithRestoreAccess" =:+                 _asaAccountWithRestoreAccess] -instance ToHeaders AuthorizeSnapshotAccess+-- | /See:/ 'authorizeSnapshotAccessResponse' smart constructor.+data AuthorizeSnapshotAccessResponse = AuthorizeSnapshotAccessResponse'+    { _asarsSnapshot :: !(Maybe Snapshot)+    , _asarsStatus   :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic) -instance AWSRequest AuthorizeSnapshotAccess where-    type Sv AuthorizeSnapshotAccess = Redshift-    type Rs AuthorizeSnapshotAccess = AuthorizeSnapshotAccessResponse+-- | 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'+--+-- * 'asarsStatus'+authorizeSnapshotAccessResponse+    :: Int -- ^ 'asarsStatus'+    -> AuthorizeSnapshotAccessResponse+authorizeSnapshotAccessResponse pStatus_ =+    AuthorizeSnapshotAccessResponse'+    { _asarsSnapshot = Nothing+    , _asarsStatus = pStatus_+    } -    request  = post "AuthorizeSnapshotAccess"-    response = xmlResponse+-- | Undocumented member.+asarsSnapshot :: Lens' AuthorizeSnapshotAccessResponse (Maybe Snapshot)+asarsSnapshot = lens _asarsSnapshot (\ s a -> s{_asarsSnapshot = a}); -instance FromXML AuthorizeSnapshotAccessResponse where-    parseXML = withElement "AuthorizeSnapshotAccessResult" $ \x -> AuthorizeSnapshotAccessResponse-        <$> x .@? "Snapshot"+-- | The response status code.+asarsStatus :: Lens' AuthorizeSnapshotAccessResponse Int+asarsStatus = lens _asarsStatus (\ s a -> s{_asarsStatus = a});

@@ -1,161 +1,179 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# 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-2014 Brendan Hay <brendan.g.hay@gmail.com>--- 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/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | Copies the specified automated cluster snapshot to a new manual cluster+-- 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.+-- 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 RedshiftSnapshots> in the /Amazon Redshift Cluster Management Guide/.+-- 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/. ----- <http://docs.aws.amazon.com/redshift/latest/APIReference/API_CopyClusterSnapshot.html>+-- /See:/ <http://docs.aws.amazon.com/redshift/latest/APIReference/API_CopyClusterSnapshot.html AWS API Reference> for CopyClusterSnapshot. module Network.AWS.Redshift.CopyClusterSnapshot     (-    -- * Request-      CopyClusterSnapshot-    -- ** Request constructor-    , copyClusterSnapshot-    -- ** Request lenses+    -- * Creating a Request+      copyClusterSnapshot+    , CopyClusterSnapshot+    -- * Request Lenses     , ccsSourceSnapshotClusterIdentifier     , ccsSourceSnapshotIdentifier     , ccsTargetSnapshotIdentifier -    -- * Response-    , CopyClusterSnapshotResponse-    -- ** Response constructor+    -- * Destructuring the Response     , copyClusterSnapshotResponse-    -- ** Response lenses-    , ccsrSnapshot+    , CopyClusterSnapshotResponse+    -- * Response Lenses+    , ccsrsSnapshot+    , ccsrsStatus     ) where -import Network.AWS.Prelude-import Network.AWS.Request.Query-import Network.AWS.Redshift.Types-import qualified GHC.Exts--data CopyClusterSnapshot = CopyClusterSnapshot-    { _ccsSourceSnapshotClusterIdentifier :: Maybe Text-    , _ccsSourceSnapshotIdentifier        :: Text-    , _ccsTargetSnapshotIdentifier        :: Text-    } deriving (Eq, Ord, Read, Show)+import           Network.AWS.Prelude+import           Network.AWS.Redshift.Types+import           Network.AWS.Redshift.Types.Product+import           Network.AWS.Request+import           Network.AWS.Response --- | 'CopyClusterSnapshot' constructor.+-- | ----- The fields accessible through corresponding lenses are:+-- /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. ----- * 'ccsSourceSnapshotClusterIdentifier' @::@ 'Maybe' 'Text'+-- Use one of the following lenses to modify other fields as desired: ----- * 'ccsSourceSnapshotIdentifier' @::@ 'Text'+-- * 'ccsSourceSnapshotClusterIdentifier' ----- * 'ccsTargetSnapshotIdentifier' @::@ 'Text'+-- * 'ccsSourceSnapshotIdentifier' ---copyClusterSnapshot :: Text -- ^ 'ccsSourceSnapshotIdentifier'-                    -> Text -- ^ 'ccsTargetSnapshotIdentifier'-                    -> CopyClusterSnapshot-copyClusterSnapshot p1 p2 = CopyClusterSnapshot-    { _ccsSourceSnapshotIdentifier        = p1-    , _ccsTargetSnapshotIdentifier        = p2-    , _ccsSourceSnapshotClusterIdentifier = Nothing+-- * 'ccsTargetSnapshotIdentifier'+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.+-- 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.+-- -   Must be the identifier for a valid cluster. ccsSourceSnapshotClusterIdentifier :: Lens' CopyClusterSnapshot (Maybe Text)-ccsSourceSnapshotClusterIdentifier =-    lens _ccsSourceSnapshotClusterIdentifier-        (\s a -> s { _ccsSourceSnapshotClusterIdentifier = a })+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'.+-- -   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 })+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.+-- -   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 })--newtype CopyClusterSnapshotResponse = CopyClusterSnapshotResponse-    { _ccsrSnapshot :: Maybe Snapshot-    } deriving (Eq, Read, Show)+ccsTargetSnapshotIdentifier = lens _ccsTargetSnapshotIdentifier (\ s a -> s{_ccsTargetSnapshotIdentifier = a}); --- | 'CopyClusterSnapshotResponse' constructor.------ The fields accessible through corresponding lenses are:------ * 'ccsrSnapshot' @::@ 'Maybe' 'Snapshot'----copyClusterSnapshotResponse :: CopyClusterSnapshotResponse-copyClusterSnapshotResponse = CopyClusterSnapshotResponse-    { _ccsrSnapshot = Nothing-    }+instance AWSRequest CopyClusterSnapshot where+        type Sv CopyClusterSnapshot = Redshift+        type Rs CopyClusterSnapshot =+             CopyClusterSnapshotResponse+        request = postQuery+        response+          = receiveXMLWrapper "CopyClusterSnapshotResult"+              (\ s h x ->+                 CopyClusterSnapshotResponse' <$>+                   (x .@? "Snapshot") <*> (pure (fromEnum s))) -ccsrSnapshot :: Lens' CopyClusterSnapshotResponse (Maybe Snapshot)-ccsrSnapshot = lens _ccsrSnapshot (\s a -> s { _ccsrSnapshot = a })+instance ToHeaders CopyClusterSnapshot where+        toHeaders = const mempty  instance ToPath CopyClusterSnapshot where-    toPath = const "/"+        toPath = const "/"  instance ToQuery CopyClusterSnapshot where-    toQuery CopyClusterSnapshot{..} = mconcat-        [ "SourceSnapshotClusterIdentifier" =? _ccsSourceSnapshotClusterIdentifier-        , "SourceSnapshotIdentifier"        =? _ccsSourceSnapshotIdentifier-        , "TargetSnapshotIdentifier"        =? _ccsTargetSnapshotIdentifier-        ]+        toQuery CopyClusterSnapshot'{..}+          = mconcat+              ["Action" =: ("CopyClusterSnapshot" :: ByteString),+               "Version" =: ("2012-12-01" :: ByteString),+               "SourceSnapshotClusterIdentifier" =:+                 _ccsSourceSnapshotClusterIdentifier,+               "SourceSnapshotIdentifier" =:+                 _ccsSourceSnapshotIdentifier,+               "TargetSnapshotIdentifier" =:+                 _ccsTargetSnapshotIdentifier] -instance ToHeaders CopyClusterSnapshot+-- | /See:/ 'copyClusterSnapshotResponse' smart constructor.+data CopyClusterSnapshotResponse = CopyClusterSnapshotResponse'+    { _ccsrsSnapshot :: !(Maybe Snapshot)+    , _ccsrsStatus   :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic) -instance AWSRequest CopyClusterSnapshot where-    type Sv CopyClusterSnapshot = Redshift-    type Rs CopyClusterSnapshot = CopyClusterSnapshotResponse+-- | 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'+--+-- * 'ccsrsStatus'+copyClusterSnapshotResponse+    :: Int -- ^ 'ccsrsStatus'+    -> CopyClusterSnapshotResponse+copyClusterSnapshotResponse pStatus_ =+    CopyClusterSnapshotResponse'+    { _ccsrsSnapshot = Nothing+    , _ccsrsStatus = pStatus_+    } -    request  = post "CopyClusterSnapshot"-    response = xmlResponse+-- | Undocumented member.+ccsrsSnapshot :: Lens' CopyClusterSnapshotResponse (Maybe Snapshot)+ccsrsSnapshot = lens _ccsrsSnapshot (\ s a -> s{_ccsrsSnapshot = a}); -instance FromXML CopyClusterSnapshotResponse where-    parseXML = withElement "CopyClusterSnapshotResult" $ \x -> CopyClusterSnapshotResponse-        <$> x .@? "Snapshot"+-- | The response status code.+ccsrsStatus :: Lens' CopyClusterSnapshotResponse Int+ccsrsStatus = lens _ccsrsStatus (\ s a -> s{_ccsrsStatus = a});

@@ -1,288 +1,322 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# 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-2014 Brendan Hay <brendan.g.hay@gmail.com>--- 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/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | Creates a new cluster. To create the cluster in virtual private cloud (VPC),--- you must provide cluster subnet group name. If you don't provide a cluster--- subnet group name or the cluster security group parameter, Amazon Redshift--- creates a non-VPC cluster, it associates the default cluster security group--- with the cluster. For more information about managing clusters, go to <http://docs.aws.amazon.com/redshift/latest/mgmt/working-with-clusters.html AmazonRedshift Clusters> in the /Amazon Redshift Cluster Management Guide/ .+-- Creates a new cluster. To create the cluster in virtual private cloud+-- (VPC), you must provide cluster subnet group name. If you don\'t provide+-- a cluster subnet group name or the cluster security group parameter,+-- Amazon Redshift creates a non-VPC cluster, it associates the default+-- cluster security group with 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/ . ----- <http://docs.aws.amazon.com/redshift/latest/APIReference/API_CreateCluster.html>+-- /See:/ <http://docs.aws.amazon.com/redshift/latest/APIReference/API_CreateCluster.html AWS API Reference> for CreateCluster. module Network.AWS.Redshift.CreateCluster     (-    -- * Request-      CreateCluster-    -- ** Request constructor-    , createCluster-    -- ** Request lenses-    , ccAllowVersionUpgrade-    , ccAutomatedSnapshotRetentionPeriod-    , ccAvailabilityZone-    , ccClusterIdentifier-    , ccClusterParameterGroupName+    -- * Creating a Request+      createCluster+    , CreateCluster+    -- * Request Lenses+    , ccPubliclyAccessible+    , ccHSMConfigurationIdentifier     , ccClusterSecurityGroups+    , ccAutomatedSnapshotRetentionPeriod+    , ccEncrypted+    , ccNumberOfNodes+    , ccHSMClientCertificateIdentifier     , ccClusterSubnetGroupName+    , ccElasticIP+    , ccPreferredMaintenanceWindow+    , ccAvailabilityZone+    , ccKMSKeyId+    , ccVPCSecurityGroupIds     , ccClusterType     , ccClusterVersion+    , ccAllowVersionUpgrade+    , ccClusterParameterGroupName     , ccDBName-    , ccElasticIp-    , ccEncrypted-    , ccHsmClientCertificateIdentifier-    , ccHsmConfigurationIdentifier-    , ccKmsKeyId-    , ccMasterUserPassword-    , ccMasterUsername-    , ccNodeType-    , ccNumberOfNodes-    , ccPort-    , ccPreferredMaintenanceWindow-    , ccPubliclyAccessible     , ccTags-    , ccVpcSecurityGroupIds+    , ccPort+    , ccClusterIdentifier+    , ccNodeType+    , ccMasterUsername+    , ccMasterUserPassword -    -- * Response-    , CreateClusterResponse-    -- ** Response constructor+    -- * Destructuring the Response     , createClusterResponse-    -- ** Response lenses-    , ccrCluster+    , CreateClusterResponse+    -- * Response Lenses+    , ccrsCluster+    , ccrsStatus     ) where -import Network.AWS.Prelude-import Network.AWS.Request.Query-import Network.AWS.Redshift.Types-import qualified GHC.Exts--data CreateCluster = CreateCluster-    { _ccAllowVersionUpgrade              :: Maybe Bool-    , _ccAutomatedSnapshotRetentionPeriod :: Maybe Int-    , _ccAvailabilityZone                 :: Maybe Text-    , _ccClusterIdentifier                :: Text-    , _ccClusterParameterGroupName        :: Maybe Text-    , _ccClusterSecurityGroups            :: List "member" Text-    , _ccClusterSubnetGroupName           :: Maybe Text-    , _ccClusterType                      :: Maybe Text-    , _ccClusterVersion                   :: Maybe Text-    , _ccDBName                           :: Maybe Text-    , _ccElasticIp                        :: Maybe Text-    , _ccEncrypted                        :: Maybe Bool-    , _ccHsmClientCertificateIdentifier   :: Maybe Text-    , _ccHsmConfigurationIdentifier       :: Maybe Text-    , _ccKmsKeyId                         :: Maybe Text-    , _ccMasterUserPassword               :: Text-    , _ccMasterUsername                   :: Text-    , _ccNodeType                         :: Text-    , _ccNumberOfNodes                    :: Maybe Int-    , _ccPort                             :: Maybe Int-    , _ccPreferredMaintenanceWindow       :: Maybe Text-    , _ccPubliclyAccessible               :: Maybe Bool-    , _ccTags                             :: List "member" Tag-    , _ccVpcSecurityGroupIds              :: List "member" Text-    } deriving (Eq, Read, Show)+import           Network.AWS.Prelude+import           Network.AWS.Redshift.Types+import           Network.AWS.Redshift.Types.Product+import           Network.AWS.Request+import           Network.AWS.Response --- | 'CreateCluster' constructor.+-- | ----- The fields accessible through corresponding lenses are:+-- /See:/ 'createCluster' smart constructor.+data CreateCluster = CreateCluster'+    { _ccPubliclyAccessible               :: !(Maybe Bool)+    , _ccHSMConfigurationIdentifier       :: !(Maybe Text)+    , _ccClusterSecurityGroups            :: !(Maybe [Text])+    , _ccAutomatedSnapshotRetentionPeriod :: !(Maybe Int)+    , _ccEncrypted                        :: !(Maybe Bool)+    , _ccNumberOfNodes                    :: !(Maybe Int)+    , _ccHSMClientCertificateIdentifier   :: !(Maybe Text)+    , _ccClusterSubnetGroupName           :: !(Maybe Text)+    , _ccElasticIP                        :: !(Maybe Text)+    , _ccPreferredMaintenanceWindow       :: !(Maybe Text)+    , _ccAvailabilityZone                 :: !(Maybe Text)+    , _ccKMSKeyId                         :: !(Maybe Text)+    , _ccVPCSecurityGroupIds              :: !(Maybe [Text])+    , _ccClusterType                      :: !(Maybe Text)+    , _ccClusterVersion                   :: !(Maybe Text)+    , _ccAllowVersionUpgrade              :: !(Maybe Bool)+    , _ccClusterParameterGroupName        :: !(Maybe Text)+    , _ccDBName                           :: !(Maybe Text)+    , _ccTags                             :: !(Maybe [Tag])+    , _ccPort                             :: !(Maybe Int)+    , _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. ----- * 'ccAllowVersionUpgrade' @::@ 'Maybe' 'Bool'+-- Use one of the following lenses to modify other fields as desired: ----- * 'ccAutomatedSnapshotRetentionPeriod' @::@ 'Maybe' 'Int'+-- * 'ccPubliclyAccessible' ----- * 'ccAvailabilityZone' @::@ 'Maybe' 'Text'+-- * 'ccHSMConfigurationIdentifier' ----- * 'ccClusterIdentifier' @::@ 'Text'+-- * 'ccClusterSecurityGroups' ----- * 'ccClusterParameterGroupName' @::@ 'Maybe' 'Text'+-- * 'ccAutomatedSnapshotRetentionPeriod' ----- * 'ccClusterSecurityGroups' @::@ ['Text']+-- * 'ccEncrypted' ----- * 'ccClusterSubnetGroupName' @::@ 'Maybe' 'Text'+-- * 'ccNumberOfNodes' ----- * 'ccClusterType' @::@ 'Maybe' 'Text'+-- * 'ccHSMClientCertificateIdentifier' ----- * 'ccClusterVersion' @::@ 'Maybe' 'Text'+-- * 'ccClusterSubnetGroupName' ----- * 'ccDBName' @::@ 'Maybe' 'Text'+-- * 'ccElasticIP' ----- * 'ccElasticIp' @::@ 'Maybe' 'Text'+-- * 'ccPreferredMaintenanceWindow' ----- * 'ccEncrypted' @::@ 'Maybe' 'Bool'+-- * 'ccAvailabilityZone' ----- * 'ccHsmClientCertificateIdentifier' @::@ 'Maybe' 'Text'+-- * 'ccKMSKeyId' ----- * 'ccHsmConfigurationIdentifier' @::@ 'Maybe' 'Text'+-- * 'ccVPCSecurityGroupIds' ----- * 'ccKmsKeyId' @::@ 'Maybe' 'Text'+-- * 'ccClusterType' ----- * 'ccMasterUserPassword' @::@ 'Text'+-- * 'ccClusterVersion' ----- * 'ccMasterUsername' @::@ 'Text'+-- * 'ccAllowVersionUpgrade' ----- * 'ccNodeType' @::@ 'Text'+-- * 'ccClusterParameterGroupName' ----- * 'ccNumberOfNodes' @::@ 'Maybe' 'Int'+-- * 'ccDBName' ----- * 'ccPort' @::@ 'Maybe' 'Int'+-- * 'ccTags' ----- * 'ccPreferredMaintenanceWindow' @::@ 'Maybe' 'Text'+-- * 'ccPort' ----- * 'ccPubliclyAccessible' @::@ 'Maybe' 'Bool'+-- * 'ccClusterIdentifier' ----- * 'ccTags' @::@ ['Tag']+-- * 'ccNodeType' ----- * 'ccVpcSecurityGroupIds' @::@ ['Text']+-- * 'ccMasterUsername' ---createCluster :: Text -- ^ 'ccClusterIdentifier'-              -> Text -- ^ 'ccNodeType'-              -> Text -- ^ 'ccMasterUsername'-              -> Text -- ^ 'ccMasterUserPassword'-              -> CreateCluster-createCluster p1 p2 p3 p4 = CreateCluster-    { _ccClusterIdentifier                = p1-    , _ccNodeType                         = p2-    , _ccMasterUsername                   = p3-    , _ccMasterUserPassword               = p4-    , _ccDBName                           = Nothing-    , _ccClusterType                      = Nothing-    , _ccClusterSecurityGroups            = mempty-    , _ccVpcSecurityGroupIds              = mempty-    , _ccClusterSubnetGroupName           = Nothing-    , _ccAvailabilityZone                 = Nothing-    , _ccPreferredMaintenanceWindow       = Nothing-    , _ccClusterParameterGroupName        = Nothing+-- * 'ccMasterUserPassword'+createCluster+    :: Text -- ^ 'ccClusterIdentifier'+    -> Text -- ^ 'ccNodeType'+    -> Text -- ^ 'ccMasterUsername'+    -> Text -- ^ 'ccMasterUserPassword'+    -> CreateCluster+createCluster pClusterIdentifier_ pNodeType_ pMasterUsername_ pMasterUserPassword_ =+    CreateCluster'+    { _ccPubliclyAccessible = Nothing+    , _ccHSMConfigurationIdentifier = Nothing+    , _ccClusterSecurityGroups = Nothing     , _ccAutomatedSnapshotRetentionPeriod = Nothing-    , _ccPort                             = Nothing-    , _ccClusterVersion                   = Nothing-    , _ccAllowVersionUpgrade              = Nothing-    , _ccNumberOfNodes                    = Nothing-    , _ccPubliclyAccessible               = Nothing-    , _ccEncrypted                        = Nothing-    , _ccHsmClientCertificateIdentifier   = Nothing-    , _ccHsmConfigurationIdentifier       = Nothing-    , _ccElasticIp                        = Nothing-    , _ccTags                             = mempty-    , _ccKmsKeyId                         = Nothing+    , _ccEncrypted = Nothing+    , _ccNumberOfNodes = Nothing+    , _ccHSMClientCertificateIdentifier = Nothing+    , _ccClusterSubnetGroupName = Nothing+    , _ccElasticIP = Nothing+    , _ccPreferredMaintenanceWindow = Nothing+    , _ccAvailabilityZone = Nothing+    , _ccKMSKeyId = Nothing+    , _ccVPCSecurityGroupIds = Nothing+    , _ccClusterType = Nothing+    , _ccClusterVersion = Nothing+    , _ccAllowVersionUpgrade = Nothing+    , _ccClusterParameterGroupName = Nothing+    , _ccDBName = Nothing+    , _ccTags = Nothing+    , _ccPort = Nothing+    , _ccClusterIdentifier = pClusterIdentifier_+    , _ccNodeType = pNodeType_+    , _ccMasterUsername = pMasterUsername_+    , _ccMasterUserPassword = pMasterUserPassword_     } --- | 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.+-- | 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: 'true'-ccAllowVersionUpgrade :: Lens' CreateCluster (Maybe Bool)-ccAllowVersionUpgrade =-    lens _ccAllowVersionUpgrade (\s a -> s { _ccAllowVersionUpgrade = a })+-- 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'--- .+-- | 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 })+ccAutomatedSnapshotRetentionPeriod = lens _ccAutomatedSnapshotRetentionPeriod (\ s a -> s{_ccAutomatedSnapshotRetentionPeriod = 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.+-- | If 'true', the data in the cluster is encrypted at rest. ----- Default: A random, system-chosen Availability Zone in the region that is--- specified by the endpoint.+-- Default: false+ccEncrypted :: Lens' CreateCluster (Maybe Bool)+ccEncrypted = lens _ccEncrypted (\ s a -> s{_ccEncrypted = a});++-- | The number of compute nodes in the cluster. This parameter is required+-- when the __ClusterType__ parameter is specified as 'multi-node'. ----- Example: 'us-east-1d'+-- 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/. ----- 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 })+-- 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}); --- | 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.+-- | 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 name of a cluster subnet group to be associated with this cluster. ----- Constraints:+-- 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});++-- | The Elastic IP (EIP) address for the cluster. ----- 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 })+-- 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 name of the parameter group to be associated with this cluster.+-- | The weekly time range (in UTC) during which automated cluster+-- maintenance can occur. ----- 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 AmazonRedshift Parameter Groups>+-- Format: 'ddd:hh24:mi-ddd:hh24:mi' ----- Constraints:+-- 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. ----- 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 })+-- 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}); --- | A list of security groups to be associated with this cluster.+-- | 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: The default cluster security group for Amazon Redshift.-ccClusterSecurityGroups :: Lens' CreateCluster [Text]-ccClusterSecurityGroups =-    lens _ccClusterSecurityGroups (\s a -> s { _ccClusterSecurityGroups = a })-        . _List+-- 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}); --- | The name of a cluster subnet group to be associated with this cluster.+-- | 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});++-- | A list of Virtual Private Cloud (VPC) security groups to be associated+-- with the 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 })+-- 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; --- | 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.+-- | 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 })+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 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. --@@ -290,210 +324,209 @@ -- -- Example: '1.0' ccClusterVersion :: Lens' CreateCluster (Maybe Text)-ccClusterVersion = lens _ccClusterVersion (\s a -> s { _ccClusterVersion = 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 })+ccClusterVersion = lens _ccClusterVersion (\ s a -> s{_ccClusterVersion = a}); --- | The Elastic IP (EIP) address for the cluster.+-- | If 'true', major version upgrades can be applied during the maintenance+-- window to the Amazon Redshift engine that is running on 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 YourCluster> in the Amazon Redshift Cluster Management Guide.-ccElasticIp :: Lens' CreateCluster (Maybe Text)-ccElasticIp = lens _ccElasticIp (\s a -> s { _ccElasticIp = a })---- | If 'true', the data in the cluster is encrypted at rest.+-- 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: false-ccEncrypted :: Lens' CreateCluster (Maybe Bool)-ccEncrypted = lens _ccEncrypted (\s a -> s { _ccEncrypted = 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 })---- | 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 })---- | 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 })+-- Default: 'true'+ccAllowVersionUpgrade :: Lens' CreateCluster (Maybe Bool)+ccAllowVersionUpgrade = lens _ccAllowVersionUpgrade (\ s a -> s{_ccAllowVersionUpgrade = a}); --- | The password associated with the master user account for the cluster that is--- being created.------ Constraints:+-- | The name of the parameter group to be associated with this cluster. ----- 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 })---- | The user name associated with the master user account for the cluster that--- is being created.+-- 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 - 128 alphanumeric characters. 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 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 ManagementGuide/.------ Valid Values: 'dw1.xlarge' | 'dw1.8xlarge' | 'dw2.large' | 'dw2.8xlarge'.-ccNodeType :: Lens' CreateCluster Text-ccNodeType = lens _ccNodeType (\s a -> s { _ccNodeType = a })+-- -   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}); --- | The number of compute nodes in the cluster. This parameter is required when--- the ClusterType parameter is specified as 'multi-node'.+-- | The name of the first database to be created when the cluster is+-- created. ----- 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  Workingwith Clusters> in the /Amazon Redshift Cluster Management Guide/.+-- 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. ----- 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: 'dev' ----- Default: '1'+-- Constraints: ----- 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 })+-- -   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 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.+-- 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 })+ccPort = lens _ccPort (\ s a -> s{_ccPort = a}); --- | The weekly time range (in UTC) during which automated cluster maintenance--- can occur.------ Format: 'ddd:hh24:mi-ddd:hh24:mi'+-- | 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. ----- 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.+-- Constraints: ----- Valid Days: Mon | Tue | Wed | Thu | Fri | Sat | Sun+-- -   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. ----- Constraints: Minimum 30-minute window.-ccPreferredMaintenanceWindow :: Lens' CreateCluster (Maybe Text)-ccPreferredMaintenanceWindow =-    lens _ccPreferredMaintenanceWindow-        (\s a -> s { _ccPreferredMaintenanceWindow = 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 })---- | A list of tag instances.-ccTags :: Lens' CreateCluster [Tag]-ccTags = lens _ccTags (\s a -> s { _ccTags = a }) . _List+-- Example: 'myexamplecluster'+ccClusterIdentifier :: Lens' CreateCluster Text+ccClusterIdentifier = lens _ccClusterIdentifier (\ s a -> s{_ccClusterIdentifier = a}); --- | A list of Virtual Private Cloud (VPC) security groups to be associated with--- the cluster.+-- | 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/. ----- Default: The default VPC security group is associated with the cluster.-ccVpcSecurityGroupIds :: Lens' CreateCluster [Text]-ccVpcSecurityGroupIds =-    lens _ccVpcSecurityGroupIds (\s a -> s { _ccVpcSecurityGroupIds = a })-        . _List--newtype CreateClusterResponse = CreateClusterResponse-    { _ccrCluster :: Maybe Cluster-    } deriving (Eq, Read, Show)+-- Valid Values: 'ds1.xlarge' | 'ds1.8xlarge' | 'ds2.xlarge' |+-- 'ds2.8xlarge' | 'dc1.large' | 'dc1.8xlarge'.+ccNodeType :: Lens' CreateCluster Text+ccNodeType = lens _ccNodeType (\ s a -> s{_ccNodeType = a}); --- | 'CreateClusterResponse' constructor.+-- | The user name associated with the master user account for the cluster+-- that is being created. ----- The fields accessible through corresponding lenses are:+-- Constraints: ----- * 'ccrCluster' @::@ 'Maybe' 'Cluster'+-- -   Must be 1 - 128 alphanumeric characters.+-- -   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. ---createClusterResponse :: CreateClusterResponse-createClusterResponse = CreateClusterResponse-    { _ccrCluster = Nothing-    }+-- 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}); -ccrCluster :: Lens' CreateClusterResponse (Maybe Cluster)-ccrCluster = lens _ccrCluster (\s a -> s { _ccrCluster = a })+instance AWSRequest CreateCluster where+        type Sv CreateCluster = Redshift+        type Rs CreateCluster = CreateClusterResponse+        request = postQuery+        response+          = receiveXMLWrapper "CreateClusterResult"+              (\ s h x ->+                 CreateClusterResponse' <$>+                   (x .@? "Cluster") <*> (pure (fromEnum s))) +instance ToHeaders CreateCluster where+        toHeaders = const mempty+ instance ToPath CreateCluster where-    toPath = const "/"+        toPath = const "/"  instance ToQuery CreateCluster where-    toQuery CreateCluster{..} = mconcat-        [ "AllowVersionUpgrade"              =? _ccAllowVersionUpgrade-        , "AutomatedSnapshotRetentionPeriod" =? _ccAutomatedSnapshotRetentionPeriod-        , "AvailabilityZone"                 =? _ccAvailabilityZone-        , "ClusterIdentifier"                =? _ccClusterIdentifier-        , "ClusterParameterGroupName"        =? _ccClusterParameterGroupName-        , "ClusterSecurityGroups"            =? _ccClusterSecurityGroups-        , "ClusterSubnetGroupName"           =? _ccClusterSubnetGroupName-        , "ClusterType"                      =? _ccClusterType-        , "ClusterVersion"                   =? _ccClusterVersion-        , "DBName"                           =? _ccDBName-        , "ElasticIp"                        =? _ccElasticIp-        , "Encrypted"                        =? _ccEncrypted-        , "HsmClientCertificateIdentifier"   =? _ccHsmClientCertificateIdentifier-        , "HsmConfigurationIdentifier"       =? _ccHsmConfigurationIdentifier-        , "KmsKeyId"                         =? _ccKmsKeyId-        , "MasterUserPassword"               =? _ccMasterUserPassword-        , "MasterUsername"                   =? _ccMasterUsername-        , "NodeType"                         =? _ccNodeType-        , "NumberOfNodes"                    =? _ccNumberOfNodes-        , "Port"                             =? _ccPort-        , "PreferredMaintenanceWindow"       =? _ccPreferredMaintenanceWindow-        , "PubliclyAccessible"               =? _ccPubliclyAccessible-        , "Tags"                             =? _ccTags-        , "VpcSecurityGroupIds"              =? _ccVpcSecurityGroupIds-        ]+        toQuery CreateCluster'{..}+          = mconcat+              ["Action" =: ("CreateCluster" :: ByteString),+               "Version" =: ("2012-12-01" :: ByteString),+               "PubliclyAccessible" =: _ccPubliclyAccessible,+               "HsmConfigurationIdentifier" =:+                 _ccHSMConfigurationIdentifier,+               "ClusterSecurityGroups" =:+                 toQuery+                   (toQueryList "ClusterSecurityGroupName" <$>+                      _ccClusterSecurityGroups),+               "AutomatedSnapshotRetentionPeriod" =:+                 _ccAutomatedSnapshotRetentionPeriod,+               "Encrypted" =: _ccEncrypted,+               "NumberOfNodes" =: _ccNumberOfNodes,+               "HsmClientCertificateIdentifier" =:+                 _ccHSMClientCertificateIdentifier,+               "ClusterSubnetGroupName" =:+                 _ccClusterSubnetGroupName,+               "ElasticIp" =: _ccElasticIP,+               "PreferredMaintenanceWindow" =:+                 _ccPreferredMaintenanceWindow,+               "AvailabilityZone" =: _ccAvailabilityZone,+               "KmsKeyId" =: _ccKMSKeyId,+               "VpcSecurityGroupIds" =:+                 toQuery+                   (toQueryList "VpcSecurityGroupId" <$>+                      _ccVPCSecurityGroupIds),+               "ClusterType" =: _ccClusterType,+               "ClusterVersion" =: _ccClusterVersion,+               "AllowVersionUpgrade" =: _ccAllowVersionUpgrade,+               "ClusterParameterGroupName" =:+                 _ccClusterParameterGroupName,+               "DBName" =: _ccDBName,+               "Tags" =: toQuery (toQueryList "Tag" <$> _ccTags),+               "Port" =: _ccPort,+               "ClusterIdentifier" =: _ccClusterIdentifier,+               "NodeType" =: _ccNodeType,+               "MasterUsername" =: _ccMasterUsername,+               "MasterUserPassword" =: _ccMasterUserPassword] -instance ToHeaders CreateCluster+-- | /See:/ 'createClusterResponse' smart constructor.+data CreateClusterResponse = CreateClusterResponse'+    { _ccrsCluster :: !(Maybe Cluster)+    , _ccrsStatus  :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic) -instance AWSRequest CreateCluster where-    type Sv CreateCluster = Redshift-    type Rs CreateCluster = CreateClusterResponse+-- | 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'+--+-- * 'ccrsStatus'+createClusterResponse+    :: Int -- ^ 'ccrsStatus'+    -> CreateClusterResponse+createClusterResponse pStatus_ =+    CreateClusterResponse'+    { _ccrsCluster = Nothing+    , _ccrsStatus = pStatus_+    } -    request  = post "CreateCluster"-    response = xmlResponse+-- | Undocumented member.+ccrsCluster :: Lens' CreateClusterResponse (Maybe Cluster)+ccrsCluster = lens _ccrsCluster (\ s a -> s{_ccrsCluster = a}); -instance FromXML CreateClusterResponse where-    parseXML = withElement "CreateClusterResult" $ \x -> CreateClusterResponse-        <$> x .@? "Cluster"+-- | The response status code.+ccrsStatus :: Lens' CreateClusterResponse Int+ccrsStatus = lens _ccrsStatus (\ s a -> s{_ccrsStatus = a});

@@ -1,167 +1,186 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# 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-2014 Brendan Hay <brendan.g.hay@gmail.com>--- 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/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | Creates an Amazon Redshift parameter group.+-- 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'.+-- 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 managing--- parameter groups, go to <http://docs.aws.amazon.com/redshift/latest/mgmt/working-with-parameter-groups.html Amazon Redshift Parameter Groups> in the /AmazonRedshift Cluster Management Guide/.+-- 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/. ----- <http://docs.aws.amazon.com/redshift/latest/APIReference/API_CreateClusterParameterGroup.html>+-- /See:/ <http://docs.aws.amazon.com/redshift/latest/APIReference/API_CreateClusterParameterGroup.html AWS API Reference> for CreateClusterParameterGroup. module Network.AWS.Redshift.CreateClusterParameterGroup     (-    -- * Request-      CreateClusterParameterGroup-    -- ** Request constructor-    , createClusterParameterGroup-    -- ** Request lenses-    , ccpgDescription-    , ccpgParameterGroupFamily-    , ccpgParameterGroupName+    -- * Creating a Request+      createClusterParameterGroup+    , CreateClusterParameterGroup+    -- * Request Lenses     , ccpgTags+    , ccpgParameterGroupName+    , ccpgParameterGroupFamily+    , ccpgDescription -    -- * Response-    , CreateClusterParameterGroupResponse-    -- ** Response constructor+    -- * Destructuring the Response     , createClusterParameterGroupResponse-    -- ** Response lenses-    , ccpgrClusterParameterGroup+    , CreateClusterParameterGroupResponse+    -- * Response Lenses+    , ccpgrsClusterParameterGroup+    , ccpgrsStatus     ) where -import Network.AWS.Prelude-import Network.AWS.Request.Query-import Network.AWS.Redshift.Types-import qualified GHC.Exts--data CreateClusterParameterGroup = CreateClusterParameterGroup-    { _ccpgDescription          :: Text-    , _ccpgParameterGroupFamily :: Text-    , _ccpgParameterGroupName   :: Text-    , _ccpgTags                 :: List "member" Tag-    } deriving (Eq, Read, Show)+import           Network.AWS.Prelude+import           Network.AWS.Redshift.Types+import           Network.AWS.Redshift.Types.Product+import           Network.AWS.Request+import           Network.AWS.Response --- | 'CreateClusterParameterGroup' constructor.+-- | ----- The fields accessible through corresponding lenses are:+-- /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. ----- * 'ccpgDescription' @::@ 'Text'+-- Use one of the following lenses to modify other fields as desired: ----- * 'ccpgParameterGroupFamily' @::@ 'Text'+-- * 'ccpgTags' ----- * 'ccpgParameterGroupName' @::@ 'Text'+-- * 'ccpgParameterGroupName' ----- * 'ccpgTags' @::@ ['Tag']+-- * 'ccpgParameterGroupFamily' ---createClusterParameterGroup :: Text -- ^ 'ccpgParameterGroupName'-                            -> Text -- ^ 'ccpgParameterGroupFamily'-                            -> Text -- ^ 'ccpgDescription'-                            -> CreateClusterParameterGroup-createClusterParameterGroup p1 p2 p3 = CreateClusterParameterGroup-    { _ccpgParameterGroupName   = p1-    , _ccpgParameterGroupFamily = p2-    , _ccpgDescription          = p3-    , _ccpgTags                 = mempty+-- * 'ccpgDescription'+createClusterParameterGroup+    :: Text -- ^ 'ccpgParameterGroupName'+    -> Text -- ^ 'ccpgParameterGroupFamily'+    -> Text -- ^ 'ccpgDescription'+    -> CreateClusterParameterGroup+createClusterParameterGroup pParameterGroupName_ pParameterGroupFamily_ pDescription_ =+    CreateClusterParameterGroup'+    { _ccpgTags = Nothing+    , _ccpgParameterGroupName = pParameterGroupName_+    , _ccpgParameterGroupFamily = pParameterGroupFamily_+    , _ccpgDescription = pDescription_     } --- | A description of the parameter group.-ccpgDescription :: Lens' CreateClusterParameterGroup Text-ccpgDescription = lens _ccpgDescription (\s a -> s { _ccpgDescription = 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 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.  This value is stored as a lower-case--- string.+-- -   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.+--+-- This value is stored as a lower-case string. ccpgParameterGroupName :: Lens' CreateClusterParameterGroup Text-ccpgParameterGroupName =-    lens _ccpgParameterGroupName (\s a -> s { _ccpgParameterGroupName = a })+ccpgParameterGroupName = lens _ccpgParameterGroupName (\ s a -> s{_ccpgParameterGroupName = a}); --- | A list of tag instances.-ccpgTags :: Lens' CreateClusterParameterGroup [Tag]-ccpgTags = lens _ccpgTags (\s a -> s { _ccpgTags = a }) . _List+-- | 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}); -newtype CreateClusterParameterGroupResponse = CreateClusterParameterGroupResponse-    { _ccpgrClusterParameterGroup :: Maybe ClusterParameterGroup-    } deriving (Eq, Read, Show)+-- | A description of the parameter group.+ccpgDescription :: Lens' CreateClusterParameterGroup Text+ccpgDescription = lens _ccpgDescription (\ s a -> s{_ccpgDescription = a}); --- | 'CreateClusterParameterGroupResponse' constructor.------ The fields accessible through corresponding lenses are:------ * 'ccpgrClusterParameterGroup' @::@ 'Maybe' 'ClusterParameterGroup'----createClusterParameterGroupResponse :: CreateClusterParameterGroupResponse-createClusterParameterGroupResponse = CreateClusterParameterGroupResponse-    { _ccpgrClusterParameterGroup = Nothing-    }+instance AWSRequest CreateClusterParameterGroup where+        type Sv CreateClusterParameterGroup = Redshift+        type Rs CreateClusterParameterGroup =+             CreateClusterParameterGroupResponse+        request = postQuery+        response+          = receiveXMLWrapper+              "CreateClusterParameterGroupResult"+              (\ s h x ->+                 CreateClusterParameterGroupResponse' <$>+                   (x .@? "ClusterParameterGroup") <*>+                     (pure (fromEnum s))) -ccpgrClusterParameterGroup :: Lens' CreateClusterParameterGroupResponse (Maybe ClusterParameterGroup)-ccpgrClusterParameterGroup =-    lens _ccpgrClusterParameterGroup-        (\s a -> s { _ccpgrClusterParameterGroup = a })+instance ToHeaders CreateClusterParameterGroup where+        toHeaders = const mempty  instance ToPath CreateClusterParameterGroup where-    toPath = const "/"+        toPath = const "/"  instance ToQuery CreateClusterParameterGroup where-    toQuery CreateClusterParameterGroup{..} = mconcat-        [ "Description"          =? _ccpgDescription-        , "ParameterGroupFamily" =? _ccpgParameterGroupFamily-        , "ParameterGroupName"   =? _ccpgParameterGroupName-        , "Tags"                 =? _ccpgTags-        ]+        toQuery CreateClusterParameterGroup'{..}+          = mconcat+              ["Action" =:+                 ("CreateClusterParameterGroup" :: ByteString),+               "Version" =: ("2012-12-01" :: ByteString),+               "Tags" =: toQuery (toQueryList "Tag" <$> _ccpgTags),+               "ParameterGroupName" =: _ccpgParameterGroupName,+               "ParameterGroupFamily" =: _ccpgParameterGroupFamily,+               "Description" =: _ccpgDescription] -instance ToHeaders CreateClusterParameterGroup+-- | /See:/ 'createClusterParameterGroupResponse' smart constructor.+data CreateClusterParameterGroupResponse = CreateClusterParameterGroupResponse'+    { _ccpgrsClusterParameterGroup :: !(Maybe ClusterParameterGroup)+    , _ccpgrsStatus                :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic) -instance AWSRequest CreateClusterParameterGroup where-    type Sv CreateClusterParameterGroup = Redshift-    type Rs CreateClusterParameterGroup = CreateClusterParameterGroupResponse+-- | 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'+--+-- * 'ccpgrsStatus'+createClusterParameterGroupResponse+    :: Int -- ^ 'ccpgrsStatus'+    -> CreateClusterParameterGroupResponse+createClusterParameterGroupResponse pStatus_ =+    CreateClusterParameterGroupResponse'+    { _ccpgrsClusterParameterGroup = Nothing+    , _ccpgrsStatus = pStatus_+    } -    request  = post "CreateClusterParameterGroup"-    response = xmlResponse+-- | Undocumented member.+ccpgrsClusterParameterGroup :: Lens' CreateClusterParameterGroupResponse (Maybe ClusterParameterGroup)+ccpgrsClusterParameterGroup = lens _ccpgrsClusterParameterGroup (\ s a -> s{_ccpgrsClusterParameterGroup = a}); -instance FromXML CreateClusterParameterGroupResponse where-    parseXML = withElement "CreateClusterParameterGroupResult" $ \x -> CreateClusterParameterGroupResponse-        <$> x .@? "ClusterParameterGroup"+-- | The response status code.+ccpgrsStatus :: Lens' CreateClusterParameterGroupResponse Int+ccpgrsStatus = lens _ccpgrsStatus (\ s a -> s{_ccpgrsStatus = a});

@@ -1,142 +1,162 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# 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-2014 Brendan Hay <brendan.g.hay@gmail.com>--- 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/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | Creates a new Amazon Redshift security group. You use security groups to+-- 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 RedshiftCluster Security Groups> in the /Amazon Redshift Cluster Management Guide/.+-- 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/. ----- <http://docs.aws.amazon.com/redshift/latest/APIReference/API_CreateClusterSecurityGroup.html>+-- /See:/ <http://docs.aws.amazon.com/redshift/latest/APIReference/API_CreateClusterSecurityGroup.html AWS API Reference> for CreateClusterSecurityGroup. module Network.AWS.Redshift.CreateClusterSecurityGroup     (-    -- * Request-      CreateClusterSecurityGroup-    -- ** Request constructor-    , createClusterSecurityGroup-    -- ** Request lenses-    , ccsg1ClusterSecurityGroupName-    , ccsg1Description-    , ccsg1Tags+    -- * Creating a Request+      createClusterSecurityGroup+    , CreateClusterSecurityGroup+    -- * Request Lenses+    , creTags+    , creClusterSecurityGroupName+    , creDescription -    -- * Response-    , CreateClusterSecurityGroupResponse-    -- ** Response constructor+    -- * Destructuring the Response     , createClusterSecurityGroupResponse-    -- ** Response lenses-    , ccsgrClusterSecurityGroup+    , CreateClusterSecurityGroupResponse+    -- * Response Lenses+    , crsClusterSecurityGroup+    , crsStatus     ) where -import Network.AWS.Prelude-import Network.AWS.Request.Query-import Network.AWS.Redshift.Types-import qualified GHC.Exts--data CreateClusterSecurityGroup = CreateClusterSecurityGroup-    { _ccsg1ClusterSecurityGroupName :: Text-    , _ccsg1Description              :: Text-    , _ccsg1Tags                     :: List "member" Tag-    } deriving (Eq, Read, Show)+import           Network.AWS.Prelude+import           Network.AWS.Redshift.Types+import           Network.AWS.Redshift.Types.Product+import           Network.AWS.Request+import           Network.AWS.Response --- | 'CreateClusterSecurityGroup' constructor.+-- | ??? ----- The fields accessible through corresponding lenses are:+-- /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. ----- * 'ccsg1ClusterSecurityGroupName' @::@ 'Text'+-- Use one of the following lenses to modify other fields as desired: ----- * 'ccsg1Description' @::@ 'Text'+-- * 'creTags' ----- * 'ccsg1Tags' @::@ ['Tag']+-- * 'creClusterSecurityGroupName' ---createClusterSecurityGroup :: Text -- ^ 'ccsg1ClusterSecurityGroupName'-                           -> Text -- ^ 'ccsg1Description'-                           -> CreateClusterSecurityGroup-createClusterSecurityGroup p1 p2 = CreateClusterSecurityGroup-    { _ccsg1ClusterSecurityGroupName = p1-    , _ccsg1Description              = p2-    , _ccsg1Tags                     = mempty+-- * 'creDescription'+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'-ccsg1ClusterSecurityGroupName :: Lens' CreateClusterSecurityGroup Text-ccsg1ClusterSecurityGroupName =-    lens _ccsg1ClusterSecurityGroupName-        (\s a -> s { _ccsg1ClusterSecurityGroupName = a })+-- -   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.-ccsg1Description :: Lens' CreateClusterSecurityGroup Text-ccsg1Description = lens _ccsg1Description (\s a -> s { _ccsg1Description = a })---- | A list of tag instances.-ccsg1Tags :: Lens' CreateClusterSecurityGroup [Tag]-ccsg1Tags = lens _ccsg1Tags (\s a -> s { _ccsg1Tags = a }) . _List--newtype CreateClusterSecurityGroupResponse = CreateClusterSecurityGroupResponse-    { _ccsgrClusterSecurityGroup :: Maybe ClusterSecurityGroup-    } deriving (Eq, Read, Show)+creDescription :: Lens' CreateClusterSecurityGroup Text+creDescription = lens _creDescription (\ s a -> s{_creDescription = a}); --- | 'CreateClusterSecurityGroupResponse' constructor.------ The fields accessible through corresponding lenses are:------ * 'ccsgrClusterSecurityGroup' @::@ 'Maybe' 'ClusterSecurityGroup'----createClusterSecurityGroupResponse :: CreateClusterSecurityGroupResponse-createClusterSecurityGroupResponse = CreateClusterSecurityGroupResponse-    { _ccsgrClusterSecurityGroup = Nothing-    }+instance AWSRequest CreateClusterSecurityGroup where+        type Sv CreateClusterSecurityGroup = Redshift+        type Rs CreateClusterSecurityGroup =+             CreateClusterSecurityGroupResponse+        request = postQuery+        response+          = receiveXMLWrapper+              "CreateClusterSecurityGroupResult"+              (\ s h x ->+                 CreateClusterSecurityGroupResponse' <$>+                   (x .@? "ClusterSecurityGroup") <*>+                     (pure (fromEnum s))) -ccsgrClusterSecurityGroup :: Lens' CreateClusterSecurityGroupResponse (Maybe ClusterSecurityGroup)-ccsgrClusterSecurityGroup =-    lens _ccsgrClusterSecurityGroup-        (\s a -> s { _ccsgrClusterSecurityGroup = a })+instance ToHeaders CreateClusterSecurityGroup where+        toHeaders = const mempty  instance ToPath CreateClusterSecurityGroup where-    toPath = const "/"+        toPath = const "/"  instance ToQuery CreateClusterSecurityGroup where-    toQuery CreateClusterSecurityGroup{..} = mconcat-        [ "ClusterSecurityGroupName" =? _ccsg1ClusterSecurityGroupName-        , "Description"              =? _ccsg1Description-        , "Tags"                     =? _ccsg1Tags-        ]+        toQuery CreateClusterSecurityGroup'{..}+          = mconcat+              ["Action" =:+                 ("CreateClusterSecurityGroup" :: ByteString),+               "Version" =: ("2012-12-01" :: ByteString),+               "Tags" =: toQuery (toQueryList "Tag" <$> _creTags),+               "ClusterSecurityGroupName" =:+                 _creClusterSecurityGroupName,+               "Description" =: _creDescription] -instance ToHeaders CreateClusterSecurityGroup+-- | /See:/ 'createClusterSecurityGroupResponse' smart constructor.+data CreateClusterSecurityGroupResponse = CreateClusterSecurityGroupResponse'+    { _crsClusterSecurityGroup :: !(Maybe ClusterSecurityGroup)+    , _crsStatus               :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic) -instance AWSRequest CreateClusterSecurityGroup where-    type Sv CreateClusterSecurityGroup = Redshift-    type Rs CreateClusterSecurityGroup = CreateClusterSecurityGroupResponse+-- | 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'+--+-- * 'crsStatus'+createClusterSecurityGroupResponse+    :: Int -- ^ 'crsStatus'+    -> CreateClusterSecurityGroupResponse+createClusterSecurityGroupResponse pStatus_ =+    CreateClusterSecurityGroupResponse'+    { _crsClusterSecurityGroup = Nothing+    , _crsStatus = pStatus_+    } -    request  = post "CreateClusterSecurityGroup"-    response = xmlResponse+-- | Undocumented member.+crsClusterSecurityGroup :: Lens' CreateClusterSecurityGroupResponse (Maybe ClusterSecurityGroup)+crsClusterSecurityGroup = lens _crsClusterSecurityGroup (\ s a -> s{_crsClusterSecurityGroup = a}); -instance FromXML CreateClusterSecurityGroupResponse where-    parseXML = withElement "CreateClusterSecurityGroupResult" $ \x -> CreateClusterSecurityGroupResponse-        <$> x .@? "ClusterSecurityGroup"+-- | The response status code.+crsStatus :: Lens' CreateClusterSecurityGroupResponse Int+crsStatus = lens _crsStatus (\ s a -> s{_crsStatus = a});

@@ -1,140 +1,158 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# 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-2014 Brendan Hay <brendan.g.hay@gmail.com>--- 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/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | Creates a manual snapshot of the specified cluster. The cluster must be in--- the 'available' state.+-- 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 RedshiftSnapshots> in the /Amazon Redshift Cluster Management Guide/.+-- 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/. ----- <http://docs.aws.amazon.com/redshift/latest/APIReference/API_CreateClusterSnapshot.html>+-- /See:/ <http://docs.aws.amazon.com/redshift/latest/APIReference/API_CreateClusterSnapshot.html AWS API Reference> for CreateClusterSnapshot. module Network.AWS.Redshift.CreateClusterSnapshot     (-    -- * Request-      CreateClusterSnapshot-    -- ** Request constructor-    , createClusterSnapshot-    -- ** Request lenses-    , ccsClusterIdentifier-    , ccsSnapshotIdentifier+    -- * Creating a Request+      createClusterSnapshot+    , CreateClusterSnapshot+    -- * Request Lenses     , ccsTags+    , ccsSnapshotIdentifier+    , ccsClusterIdentifier -    -- * Response-    , CreateClusterSnapshotResponse-    -- ** Response constructor+    -- * Destructuring the Response     , createClusterSnapshotResponse-    -- ** Response lenses-    , ccsr1Snapshot+    , CreateClusterSnapshotResponse+    -- * Response Lenses+    , crersSnapshot+    , crersStatus     ) where -import Network.AWS.Prelude-import Network.AWS.Request.Query-import Network.AWS.Redshift.Types-import qualified GHC.Exts--data CreateClusterSnapshot = CreateClusterSnapshot-    { _ccsClusterIdentifier  :: Text-    , _ccsSnapshotIdentifier :: Text-    , _ccsTags               :: List "member" Tag-    } deriving (Eq, Read, Show)+import           Network.AWS.Prelude+import           Network.AWS.Redshift.Types+import           Network.AWS.Redshift.Types.Product+import           Network.AWS.Request+import           Network.AWS.Response --- | 'CreateClusterSnapshot' constructor.+-- | ----- The fields accessible through corresponding lenses are:+-- /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. ----- * 'ccsClusterIdentifier' @::@ 'Text'+-- Use one of the following lenses to modify other fields as desired: ----- * 'ccsSnapshotIdentifier' @::@ 'Text'+-- * 'ccsTags' ----- * 'ccsTags' @::@ ['Tag']+-- * 'ccsSnapshotIdentifier' ---createClusterSnapshot :: Text -- ^ 'ccsSnapshotIdentifier'-                      -> Text -- ^ 'ccsClusterIdentifier'-                      -> CreateClusterSnapshot-createClusterSnapshot p1 p2 = CreateClusterSnapshot-    { _ccsSnapshotIdentifier = p1-    , _ccsClusterIdentifier  = p2-    , _ccsTags               = mempty+-- * 'ccsClusterIdentifier'+createClusterSnapshot+    :: Text -- ^ 'ccsSnapshotIdentifier'+    -> Text -- ^ 'ccsClusterIdentifier'+    -> CreateClusterSnapshot+createClusterSnapshot pSnapshotIdentifier_ pClusterIdentifier_ =+    CreateClusterSnapshot'+    { _ccsTags = Nothing+    , _ccsSnapshotIdentifier = pSnapshotIdentifier_+    , _ccsClusterIdentifier = pClusterIdentifier_     } --- | The cluster identifier for which you want a snapshot.-ccsClusterIdentifier :: Lens' CreateClusterSnapshot Text-ccsClusterIdentifier =-    lens _ccsClusterIdentifier (\s a -> s { _ccsClusterIdentifier = a })+-- | 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'+-- -   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 })---- | A list of tag instances.-ccsTags :: Lens' CreateClusterSnapshot [Tag]-ccsTags = lens _ccsTags (\s a -> s { _ccsTags = a }) . _List+ccsSnapshotIdentifier = lens _ccsSnapshotIdentifier (\ s a -> s{_ccsSnapshotIdentifier = a}); -newtype CreateClusterSnapshotResponse = CreateClusterSnapshotResponse-    { _ccsr1Snapshot :: Maybe Snapshot-    } deriving (Eq, Read, Show)+-- | The cluster identifier for which you want a snapshot.+ccsClusterIdentifier :: Lens' CreateClusterSnapshot Text+ccsClusterIdentifier = lens _ccsClusterIdentifier (\ s a -> s{_ccsClusterIdentifier = a}); --- | 'CreateClusterSnapshotResponse' constructor.------ The fields accessible through corresponding lenses are:------ * 'ccsr1Snapshot' @::@ 'Maybe' 'Snapshot'----createClusterSnapshotResponse :: CreateClusterSnapshotResponse-createClusterSnapshotResponse = CreateClusterSnapshotResponse-    { _ccsr1Snapshot = Nothing-    }+instance AWSRequest CreateClusterSnapshot where+        type Sv CreateClusterSnapshot = Redshift+        type Rs CreateClusterSnapshot =+             CreateClusterSnapshotResponse+        request = postQuery+        response+          = receiveXMLWrapper "CreateClusterSnapshotResult"+              (\ s h x ->+                 CreateClusterSnapshotResponse' <$>+                   (x .@? "Snapshot") <*> (pure (fromEnum s))) -ccsr1Snapshot :: Lens' CreateClusterSnapshotResponse (Maybe Snapshot)-ccsr1Snapshot = lens _ccsr1Snapshot (\s a -> s { _ccsr1Snapshot = a })+instance ToHeaders CreateClusterSnapshot where+        toHeaders = const mempty  instance ToPath CreateClusterSnapshot where-    toPath = const "/"+        toPath = const "/"  instance ToQuery CreateClusterSnapshot where-    toQuery CreateClusterSnapshot{..} = mconcat-        [ "ClusterIdentifier"  =? _ccsClusterIdentifier-        , "SnapshotIdentifier" =? _ccsSnapshotIdentifier-        , "Tags"               =? _ccsTags-        ]+        toQuery CreateClusterSnapshot'{..}+          = mconcat+              ["Action" =: ("CreateClusterSnapshot" :: ByteString),+               "Version" =: ("2012-12-01" :: ByteString),+               "Tags" =: toQuery (toQueryList "Tag" <$> _ccsTags),+               "SnapshotIdentifier" =: _ccsSnapshotIdentifier,+               "ClusterIdentifier" =: _ccsClusterIdentifier] -instance ToHeaders CreateClusterSnapshot+-- | /See:/ 'createClusterSnapshotResponse' smart constructor.+data CreateClusterSnapshotResponse = CreateClusterSnapshotResponse'+    { _crersSnapshot :: !(Maybe Snapshot)+    , _crersStatus   :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic) -instance AWSRequest CreateClusterSnapshot where-    type Sv CreateClusterSnapshot = Redshift-    type Rs CreateClusterSnapshot = CreateClusterSnapshotResponse+-- | 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'+--+-- * 'crersStatus'+createClusterSnapshotResponse+    :: Int -- ^ 'crersStatus'+    -> CreateClusterSnapshotResponse+createClusterSnapshotResponse pStatus_ =+    CreateClusterSnapshotResponse'+    { _crersSnapshot = Nothing+    , _crersStatus = pStatus_+    } -    request  = post "CreateClusterSnapshot"-    response = xmlResponse+-- | Undocumented member.+crersSnapshot :: Lens' CreateClusterSnapshotResponse (Maybe Snapshot)+crersSnapshot = lens _crersSnapshot (\ s a -> s{_crersSnapshot = a}); -instance FromXML CreateClusterSnapshotResponse where-    parseXML = withElement "CreateClusterSnapshotResult" $ \x -> CreateClusterSnapshotResponse-        <$> x .@? "Snapshot"+-- | The response status code.+crersStatus :: Lens' CreateClusterSnapshotResponse Int+crersStatus = lens _crersStatus (\ s a -> s{_crersStatus = a});

@@ -1,153 +1,173 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# 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-2014 Brendan Hay <brendan.g.hay@gmail.com>--- 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/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | 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.+-- 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 SubnetGroups> in the /Amazon Redshift Cluster Management Guide/.+-- 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/. ----- <http://docs.aws.amazon.com/redshift/latest/APIReference/API_CreateClusterSubnetGroup.html>+-- /See:/ <http://docs.aws.amazon.com/redshift/latest/APIReference/API_CreateClusterSubnetGroup.html AWS API Reference> for CreateClusterSubnetGroup. module Network.AWS.Redshift.CreateClusterSubnetGroup     (-    -- * Request-      CreateClusterSubnetGroup-    -- ** Request constructor-    , createClusterSubnetGroup-    -- ** Request lenses+    -- * Creating a Request+      createClusterSubnetGroup+    , CreateClusterSubnetGroup+    -- * Request Lenses+    , ccsgTags     , ccsgClusterSubnetGroupName     , ccsgDescription     , ccsgSubnetIds-    , ccsgTags -    -- * Response-    , CreateClusterSubnetGroupResponse-    -- ** Response constructor+    -- * Destructuring the Response     , createClusterSubnetGroupResponse-    -- ** Response lenses-    , ccsgrClusterSubnetGroup+    , CreateClusterSubnetGroupResponse+    -- * Response Lenses+    , ccsgrsClusterSubnetGroup+    , ccsgrsStatus     ) where -import Network.AWS.Prelude-import Network.AWS.Request.Query-import Network.AWS.Redshift.Types-import qualified GHC.Exts--data CreateClusterSubnetGroup = CreateClusterSubnetGroup-    { _ccsgClusterSubnetGroupName :: Text-    , _ccsgDescription            :: Text-    , _ccsgSubnetIds              :: List "member" Text-    , _ccsgTags                   :: List "member" Tag-    } deriving (Eq, Read, Show)+import           Network.AWS.Prelude+import           Network.AWS.Redshift.Types+import           Network.AWS.Redshift.Types.Product+import           Network.AWS.Request+import           Network.AWS.Response --- | 'CreateClusterSubnetGroup' constructor.+-- | ----- The fields accessible through corresponding lenses are:+-- /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. ----- * 'ccsgClusterSubnetGroupName' @::@ 'Text'+-- Use one of the following lenses to modify other fields as desired: ----- * 'ccsgDescription' @::@ 'Text'+-- * 'ccsgTags' ----- * 'ccsgSubnetIds' @::@ ['Text']+-- * 'ccsgClusterSubnetGroupName' ----- * 'ccsgTags' @::@ ['Tag']+-- * 'ccsgDescription' ---createClusterSubnetGroup :: Text -- ^ 'ccsgClusterSubnetGroupName'-                         -> Text -- ^ 'ccsgDescription'-                         -> CreateClusterSubnetGroup-createClusterSubnetGroup p1 p2 = CreateClusterSubnetGroup-    { _ccsgClusterSubnetGroupName = p1-    , _ccsgDescription            = p2-    , _ccsgSubnetIds              = mempty-    , _ccsgTags                   = mempty+-- * 'ccsgSubnetIds'+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'+-- -   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 })+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 })+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 }) . _List---- | A list of tag instances.-ccsgTags :: Lens' CreateClusterSubnetGroup [Tag]-ccsgTags = lens _ccsgTags (\s a -> s { _ccsgTags = a }) . _List--newtype CreateClusterSubnetGroupResponse = CreateClusterSubnetGroupResponse-    { _ccsgrClusterSubnetGroup :: Maybe ClusterSubnetGroup-    } deriving (Eq, Read, Show)+ccsgSubnetIds = lens _ccsgSubnetIds (\ s a -> s{_ccsgSubnetIds = a}) . _Coerce; --- | 'CreateClusterSubnetGroupResponse' constructor.------ The fields accessible through corresponding lenses are:------ * 'ccsgrClusterSubnetGroup' @::@ 'Maybe' 'ClusterSubnetGroup'----createClusterSubnetGroupResponse :: CreateClusterSubnetGroupResponse-createClusterSubnetGroupResponse = CreateClusterSubnetGroupResponse-    { _ccsgrClusterSubnetGroup = Nothing-    }+instance AWSRequest CreateClusterSubnetGroup where+        type Sv CreateClusterSubnetGroup = Redshift+        type Rs CreateClusterSubnetGroup =+             CreateClusterSubnetGroupResponse+        request = postQuery+        response+          = receiveXMLWrapper "CreateClusterSubnetGroupResult"+              (\ s h x ->+                 CreateClusterSubnetGroupResponse' <$>+                   (x .@? "ClusterSubnetGroup") <*> (pure (fromEnum s))) -ccsgrClusterSubnetGroup :: Lens' CreateClusterSubnetGroupResponse (Maybe ClusterSubnetGroup)-ccsgrClusterSubnetGroup =-    lens _ccsgrClusterSubnetGroup (\s a -> s { _ccsgrClusterSubnetGroup = a })+instance ToHeaders CreateClusterSubnetGroup where+        toHeaders = const mempty  instance ToPath CreateClusterSubnetGroup where-    toPath = const "/"+        toPath = const "/"  instance ToQuery CreateClusterSubnetGroup where-    toQuery CreateClusterSubnetGroup{..} = mconcat-        [ "ClusterSubnetGroupName" =? _ccsgClusterSubnetGroupName-        , "Description"            =? _ccsgDescription-        , "SubnetIds"              =? _ccsgSubnetIds-        , "Tags"                   =? _ccsgTags-        ]+        toQuery CreateClusterSubnetGroup'{..}+          = mconcat+              ["Action" =:+                 ("CreateClusterSubnetGroup" :: ByteString),+               "Version" =: ("2012-12-01" :: ByteString),+               "Tags" =: toQuery (toQueryList "Tag" <$> _ccsgTags),+               "ClusterSubnetGroupName" =:+                 _ccsgClusterSubnetGroupName,+               "Description" =: _ccsgDescription,+               "SubnetIds" =:+                 toQueryList "SubnetIdentifier" _ccsgSubnetIds] -instance ToHeaders CreateClusterSubnetGroup+-- | /See:/ 'createClusterSubnetGroupResponse' smart constructor.+data CreateClusterSubnetGroupResponse = CreateClusterSubnetGroupResponse'+    { _ccsgrsClusterSubnetGroup :: !(Maybe ClusterSubnetGroup)+    , _ccsgrsStatus             :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic) -instance AWSRequest CreateClusterSubnetGroup where-    type Sv CreateClusterSubnetGroup = Redshift-    type Rs CreateClusterSubnetGroup = CreateClusterSubnetGroupResponse+-- | 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'+--+-- * 'ccsgrsStatus'+createClusterSubnetGroupResponse+    :: Int -- ^ 'ccsgrsStatus'+    -> CreateClusterSubnetGroupResponse+createClusterSubnetGroupResponse pStatus_ =+    CreateClusterSubnetGroupResponse'+    { _ccsgrsClusterSubnetGroup = Nothing+    , _ccsgrsStatus = pStatus_+    } -    request  = post "CreateClusterSubnetGroup"-    response = xmlResponse+-- | Undocumented member.+ccsgrsClusterSubnetGroup :: Lens' CreateClusterSubnetGroupResponse (Maybe ClusterSubnetGroup)+ccsgrsClusterSubnetGroup = lens _ccsgrsClusterSubnetGroup (\ s a -> s{_ccsgrsClusterSubnetGroup = a}); -instance FromXML CreateClusterSubnetGroupResponse where-    parseXML = withElement "CreateClusterSubnetGroupResult" $ \x -> CreateClusterSubnetGroupResponse-        <$> x .@? "ClusterSubnetGroup"+-- | The response status code.+ccsgrsStatus :: Lens' CreateClusterSubnetGroupResponse Int+ccsgrsStatus = lens _ccsgrsStatus (\ s a -> s{_ccsgrsStatus = a});

@@ -1,233 +1,252 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# 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-2014 Brendan Hay <brendan.g.hay@gmail.com>--- 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/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | Creates an Amazon Redshift event notification subscription. This action+-- 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.+-- 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.+-- 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.+-- 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. ----- <http://docs.aws.amazon.com/redshift/latest/APIReference/API_CreateEventSubscription.html>+-- /See:/ <http://docs.aws.amazon.com/redshift/latest/APIReference/API_CreateEventSubscription.html AWS API Reference> for CreateEventSubscription. module Network.AWS.Redshift.CreateEventSubscription     (-    -- * Request-      CreateEventSubscription-    -- ** Request constructor-    , createEventSubscription-    -- ** Request lenses+    -- * Creating a Request+      createEventSubscription+    , CreateEventSubscription+    -- * Request Lenses     , cesEnabled-    , cesEventCategories+    , cesSourceType     , cesSeverity-    , cesSnsTopicArn+    , cesEventCategories     , cesSourceIds-    , cesSourceType-    , cesSubscriptionName     , cesTags+    , cesSubscriptionName+    , cesSNSTopicARN -    -- * Response-    , CreateEventSubscriptionResponse-    -- ** Response constructor+    -- * Destructuring the Response     , createEventSubscriptionResponse-    -- ** Response lenses-    , cesrEventSubscription+    , CreateEventSubscriptionResponse+    -- * Response Lenses+    , cesrsEventSubscription+    , cesrsStatus     ) where -import Network.AWS.Prelude-import Network.AWS.Request.Query-import Network.AWS.Redshift.Types-import qualified GHC.Exts--data CreateEventSubscription = CreateEventSubscription-    { _cesEnabled          :: Maybe Bool-    , _cesEventCategories  :: List "member" Text-    , _cesSeverity         :: Maybe Text-    , _cesSnsTopicArn      :: Text-    , _cesSourceIds        :: List "member" Text-    , _cesSourceType       :: Maybe Text-    , _cesSubscriptionName :: Text-    , _cesTags             :: List "member" Tag-    } deriving (Eq, Read, Show)+import           Network.AWS.Prelude+import           Network.AWS.Redshift.Types+import           Network.AWS.Redshift.Types.Product+import           Network.AWS.Request+import           Network.AWS.Response --- | 'CreateEventSubscription' constructor.+-- | ----- The fields accessible through corresponding lenses are:+-- /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. ----- * 'cesEnabled' @::@ 'Maybe' 'Bool'+-- Use one of the following lenses to modify other fields as desired: ----- * 'cesEventCategories' @::@ ['Text']+-- * 'cesEnabled' ----- * 'cesSeverity' @::@ 'Maybe' 'Text'+-- * 'cesSourceType' ----- * 'cesSnsTopicArn' @::@ 'Text'+-- * 'cesSeverity' ----- * 'cesSourceIds' @::@ ['Text']+-- * 'cesEventCategories' ----- * 'cesSourceType' @::@ 'Maybe' 'Text'+-- * 'cesSourceIds' ----- * 'cesSubscriptionName' @::@ 'Text'+-- * 'cesTags' ----- * 'cesTags' @::@ ['Tag']+-- * 'cesSubscriptionName' ---createEventSubscription :: Text -- ^ 'cesSubscriptionName'-                        -> Text -- ^ 'cesSnsTopicArn'-                        -> CreateEventSubscription-createEventSubscription p1 p2 = CreateEventSubscription-    { _cesSubscriptionName = p1-    , _cesSnsTopicArn      = p2-    , _cesSourceType       = Nothing-    , _cesSourceIds        = mempty-    , _cesEventCategories  = mempty-    , _cesSeverity         = Nothing-    , _cesEnabled          = Nothing-    , _cesTags             = mempty+-- * 'cesSNSTopicARN'+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.+-- | 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 })+cesEnabled = lens _cesEnabled (\ s a -> s{_cesEnabled = a}); --- | Specifies the Amazon Redshift event categories to be published by the event--- notification subscription.+-- | 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. ----- Values: Configuration, Management, Monitoring, Security-cesEventCategories :: Lens' CreateEventSubscription [Text]-cesEventCategories =-    lens _cesEventCategories (\s a -> s { _cesEventCategories = a })-        . _List+-- 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.+-- | 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 })+cesSeverity = lens _cesSeverity (\ s a -> s{_cesSeverity = 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 })+-- | 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.+-- | 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 }) . _List+cesSourceIds = lens _cesSourceIds (\ s a -> s{_cesSourceIds = a}) . _Default . _Coerce; --- | 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 })+-- | 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.+-- -   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 })---- | A list of tag instances.-cesTags :: Lens' CreateEventSubscription [Tag]-cesTags = lens _cesTags (\s a -> s { _cesTags = a }) . _List+cesSubscriptionName = lens _cesSubscriptionName (\ s a -> s{_cesSubscriptionName = a}); -newtype CreateEventSubscriptionResponse = CreateEventSubscriptionResponse-    { _cesrEventSubscription :: Maybe EventSubscription-    } deriving (Eq, Read, Show)+-- | 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}); --- | 'CreateEventSubscriptionResponse' constructor.------ The fields accessible through corresponding lenses are:------ * 'cesrEventSubscription' @::@ 'Maybe' 'EventSubscription'----createEventSubscriptionResponse :: CreateEventSubscriptionResponse-createEventSubscriptionResponse = CreateEventSubscriptionResponse-    { _cesrEventSubscription = Nothing-    }+instance AWSRequest CreateEventSubscription where+        type Sv CreateEventSubscription = Redshift+        type Rs CreateEventSubscription =+             CreateEventSubscriptionResponse+        request = postQuery+        response+          = receiveXMLWrapper "CreateEventSubscriptionResult"+              (\ s h x ->+                 CreateEventSubscriptionResponse' <$>+                   (x .@? "EventSubscription") <*> (pure (fromEnum s))) -cesrEventSubscription :: Lens' CreateEventSubscriptionResponse (Maybe EventSubscription)-cesrEventSubscription =-    lens _cesrEventSubscription (\s a -> s { _cesrEventSubscription = a })+instance ToHeaders CreateEventSubscription where+        toHeaders = const mempty  instance ToPath CreateEventSubscription where-    toPath = const "/"+        toPath = const "/"  instance ToQuery CreateEventSubscription where-    toQuery CreateEventSubscription{..} = mconcat-        [ "Enabled"          =? _cesEnabled-        , "EventCategories"  =? _cesEventCategories-        , "Severity"         =? _cesSeverity-        , "SnsTopicArn"      =? _cesSnsTopicArn-        , "SourceIds"        =? _cesSourceIds-        , "SourceType"       =? _cesSourceType-        , "SubscriptionName" =? _cesSubscriptionName-        , "Tags"             =? _cesTags-        ]+        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] -instance ToHeaders CreateEventSubscription+-- | /See:/ 'createEventSubscriptionResponse' smart constructor.+data CreateEventSubscriptionResponse = CreateEventSubscriptionResponse'+    { _cesrsEventSubscription :: !(Maybe EventSubscription)+    , _cesrsStatus            :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic) -instance AWSRequest CreateEventSubscription where-    type Sv CreateEventSubscription = Redshift-    type Rs CreateEventSubscription = CreateEventSubscriptionResponse+-- | 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'+--+-- * 'cesrsStatus'+createEventSubscriptionResponse+    :: Int -- ^ 'cesrsStatus'+    -> CreateEventSubscriptionResponse+createEventSubscriptionResponse pStatus_ =+    CreateEventSubscriptionResponse'+    { _cesrsEventSubscription = Nothing+    , _cesrsStatus = pStatus_+    } -    request  = post "CreateEventSubscription"-    response = xmlResponse+-- | Undocumented member.+cesrsEventSubscription :: Lens' CreateEventSubscriptionResponse (Maybe EventSubscription)+cesrsEventSubscription = lens _cesrsEventSubscription (\ s a -> s{_cesrsEventSubscription = a}); -instance FromXML CreateEventSubscriptionResponse where-    parseXML = withElement "CreateEventSubscriptionResult" $ \x -> CreateEventSubscriptionResponse-        <$> x .@? "EventSubscription"+-- | The response status code.+cesrsStatus :: Lens' CreateEventSubscriptionResponse Int+cesrsStatus = lens _cesrsStatus (\ s a -> s{_cesrsStatus = a});

@@ -0,0 +1,148 @@+{-# 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-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay@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.+--+-- /See:/ <http://docs.aws.amazon.com/redshift/latest/APIReference/API_CreateHSMClientCertificate.html AWS API Reference> for CreateHSMClientCertificate.+module Network.AWS.Redshift.CreateHSMClientCertificate+    (+    -- * Creating a Request+      createHSMClientCertificate+    , CreateHSMClientCertificate+    -- * Request Lenses+    , chccTags+    , chccHSMClientCertificateIdentifier++    -- * Destructuring the Response+    , createHSMClientCertificateResponse+    , CreateHSMClientCertificateResponse+    -- * Response Lenses+    , chccrsHSMClientCertificate+    , chccrsStatus+    ) where++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'+--+-- * 'chccHSMClientCertificateIdentifier'+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 Sv CreateHSMClientCertificate = Redshift+        type Rs CreateHSMClientCertificate =+             CreateHSMClientCertificateResponse+        request = postQuery+        response+          = receiveXMLWrapper+              "CreateHsmClientCertificateResult"+              (\ s h x ->+                 CreateHSMClientCertificateResponse' <$>+                   (x .@? "HsmClientCertificate") <*>+                     (pure (fromEnum s)))++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)+    , _chccrsStatus               :: !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'+--+-- * 'chccrsStatus'+createHSMClientCertificateResponse+    :: Int -- ^ 'chccrsStatus'+    -> CreateHSMClientCertificateResponse+createHSMClientCertificateResponse pStatus_ =+    CreateHSMClientCertificateResponse'+    { _chccrsHSMClientCertificate = Nothing+    , _chccrsStatus = pStatus_+    }++-- | Undocumented member.+chccrsHSMClientCertificate :: Lens' CreateHSMClientCertificateResponse (Maybe HSMClientCertificate)+chccrsHSMClientCertificate = lens _chccrsHSMClientCertificate (\ s a -> s{_chccrsHSMClientCertificate = a});++-- | The response status code.+chccrsStatus :: Lens' CreateHSMClientCertificateResponse Int+chccrsStatus = lens _chccrsStatus (\ s a -> s{_chccrsStatus = a});

@@ -0,0 +1,203 @@+{-# 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-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay@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.+--+-- /See:/ <http://docs.aws.amazon.com/redshift/latest/APIReference/API_CreateHSMConfiguration.html AWS API Reference> for CreateHSMConfiguration.+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+    , chcrsStatus+    ) where++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'+--+-- * 'chcHSMConfigurationIdentifier'+--+-- * 'chcDescription'+--+-- * 'chcHSMIPAddress'+--+-- * 'chcHSMPartitionName'+--+-- * 'chcHSMPartitionPassword'+--+-- * 'chcHSMServerPublicCertificate'+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 Sv CreateHSMConfiguration = Redshift+        type Rs CreateHSMConfiguration =+             CreateHSMConfigurationResponse+        request = postQuery+        response+          = receiveXMLWrapper "CreateHsmConfigurationResult"+              (\ s h x ->+                 CreateHSMConfigurationResponse' <$>+                   (x .@? "HsmConfiguration") <*> (pure (fromEnum s)))++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)+    , _chcrsStatus           :: !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'+--+-- * 'chcrsStatus'+createHSMConfigurationResponse+    :: Int -- ^ 'chcrsStatus'+    -> CreateHSMConfigurationResponse+createHSMConfigurationResponse pStatus_ =+    CreateHSMConfigurationResponse'+    { _chcrsHSMConfiguration = Nothing+    , _chcrsStatus = pStatus_+    }++-- | Undocumented member.+chcrsHSMConfiguration :: Lens' CreateHSMConfigurationResponse (Maybe HSMConfiguration)+chcrsHSMConfiguration = lens _chcrsHSMConfiguration (\ s a -> s{_chcrsHSMConfiguration = a});++-- | The response status code.+chcrsStatus :: Lens' CreateHSMConfigurationResponse Int+chcrsStatus = lens _chcrsStatus (\ s a -> s{_chcrsStatus = a});

@@ -1,129 +0,0 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}--{-# OPTIONS_GHC -fno-warn-unused-imports #-}---- Module      : Network.AWS.Redshift.CreateHsmClientCertificate--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- 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)------ Derived from AWS service descriptions, licensed under Apache 2.0.---- | 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 SecurityModules> in the Amazon Redshift Cluster Management Guide.------ <http://docs.aws.amazon.com/redshift/latest/APIReference/API_CreateHsmClientCertificate.html>-module Network.AWS.Redshift.CreateHsmClientCertificate-    (-    -- * Request-      CreateHsmClientCertificate-    -- ** Request constructor-    , createHsmClientCertificate-    -- ** Request lenses-    , chccHsmClientCertificateIdentifier-    , chccTags--    -- * Response-    , CreateHsmClientCertificateResponse-    -- ** Response constructor-    , createHsmClientCertificateResponse-    -- ** Response lenses-    , chccrHsmClientCertificate-    ) where--import Network.AWS.Prelude-import Network.AWS.Request.Query-import Network.AWS.Redshift.Types-import qualified GHC.Exts--data CreateHsmClientCertificate = CreateHsmClientCertificate-    { _chccHsmClientCertificateIdentifier :: Text-    , _chccTags                           :: List "member" Tag-    } deriving (Eq, Read, Show)---- | 'CreateHsmClientCertificate' constructor.------ The fields accessible through corresponding lenses are:------ * 'chccHsmClientCertificateIdentifier' @::@ 'Text'------ * 'chccTags' @::@ ['Tag']----createHsmClientCertificate :: Text -- ^ 'chccHsmClientCertificateIdentifier'-                           -> CreateHsmClientCertificate-createHsmClientCertificate p1 = CreateHsmClientCertificate-    { _chccHsmClientCertificateIdentifier = p1-    , _chccTags                           = mempty-    }---- | 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 })---- | A list of tag instances.-chccTags :: Lens' CreateHsmClientCertificate [Tag]-chccTags = lens _chccTags (\s a -> s { _chccTags = a }) . _List--newtype CreateHsmClientCertificateResponse = CreateHsmClientCertificateResponse-    { _chccrHsmClientCertificate :: Maybe HsmClientCertificate-    } deriving (Eq, Read, Show)---- | 'CreateHsmClientCertificateResponse' constructor.------ The fields accessible through corresponding lenses are:------ * 'chccrHsmClientCertificate' @::@ 'Maybe' 'HsmClientCertificate'----createHsmClientCertificateResponse :: CreateHsmClientCertificateResponse-createHsmClientCertificateResponse = CreateHsmClientCertificateResponse-    { _chccrHsmClientCertificate = Nothing-    }--chccrHsmClientCertificate :: Lens' CreateHsmClientCertificateResponse (Maybe HsmClientCertificate)-chccrHsmClientCertificate =-    lens _chccrHsmClientCertificate-        (\s a -> s { _chccrHsmClientCertificate = a })--instance ToPath CreateHsmClientCertificate where-    toPath = const "/"--instance ToQuery CreateHsmClientCertificate where-    toQuery CreateHsmClientCertificate{..} = mconcat-        [ "HsmClientCertificateIdentifier" =? _chccHsmClientCertificateIdentifier-        , "Tags"                           =? _chccTags-        ]--instance ToHeaders CreateHsmClientCertificate--instance AWSRequest CreateHsmClientCertificate where-    type Sv CreateHsmClientCertificate = Redshift-    type Rs CreateHsmClientCertificate = CreateHsmClientCertificateResponse--    request  = post "CreateHsmClientCertificate"-    response = xmlResponse--instance FromXML CreateHsmClientCertificateResponse where-    parseXML = withElement "CreateHsmClientCertificateResult" $ \x -> CreateHsmClientCertificateResponse-        <$> x .@? "HsmClientCertificate"

@@ -1,189 +0,0 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}--{-# OPTIONS_GHC -fno-warn-unused-imports #-}---- Module      : Network.AWS.Redshift.CreateHsmConfiguration--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- 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)------ Derived from AWS service descriptions, licensed under Apache 2.0.---- | 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.------ <http://docs.aws.amazon.com/redshift/latest/APIReference/API_CreateHsmConfiguration.html>-module Network.AWS.Redshift.CreateHsmConfiguration-    (-    -- * Request-      CreateHsmConfiguration-    -- ** Request constructor-    , createHsmConfiguration-    -- ** Request lenses-    , chcDescription-    , chcHsmConfigurationIdentifier-    , chcHsmIpAddress-    , chcHsmPartitionName-    , chcHsmPartitionPassword-    , chcHsmServerPublicCertificate-    , chcTags--    -- * Response-    , CreateHsmConfigurationResponse-    -- ** Response constructor-    , createHsmConfigurationResponse-    -- ** Response lenses-    , chcrHsmConfiguration-    ) where--import Network.AWS.Prelude-import Network.AWS.Request.Query-import Network.AWS.Redshift.Types-import qualified GHC.Exts--data CreateHsmConfiguration = CreateHsmConfiguration-    { _chcDescription                :: Text-    , _chcHsmConfigurationIdentifier :: Text-    , _chcHsmIpAddress               :: Text-    , _chcHsmPartitionName           :: Text-    , _chcHsmPartitionPassword       :: Text-    , _chcHsmServerPublicCertificate :: Text-    , _chcTags                       :: List "member" Tag-    } deriving (Eq, Read, Show)---- | 'CreateHsmConfiguration' constructor.------ The fields accessible through corresponding lenses are:------ * 'chcDescription' @::@ 'Text'------ * 'chcHsmConfigurationIdentifier' @::@ 'Text'------ * 'chcHsmIpAddress' @::@ 'Text'------ * 'chcHsmPartitionName' @::@ 'Text'------ * 'chcHsmPartitionPassword' @::@ 'Text'------ * 'chcHsmServerPublicCertificate' @::@ 'Text'------ * 'chcTags' @::@ ['Tag']----createHsmConfiguration :: Text -- ^ 'chcHsmConfigurationIdentifier'-                       -> Text -- ^ 'chcDescription'-                       -> Text -- ^ 'chcHsmIpAddress'-                       -> Text -- ^ 'chcHsmPartitionName'-                       -> Text -- ^ 'chcHsmPartitionPassword'-                       -> Text -- ^ 'chcHsmServerPublicCertificate'-                       -> CreateHsmConfiguration-createHsmConfiguration p1 p2 p3 p4 p5 p6 = CreateHsmConfiguration-    { _chcHsmConfigurationIdentifier = p1-    , _chcDescription                = p2-    , _chcHsmIpAddress               = p3-    , _chcHsmPartitionName           = p4-    , _chcHsmPartitionPassword       = p5-    , _chcHsmServerPublicCertificate = p6-    , _chcTags                       = mempty-    }---- | A text description of the HSM configuration to be created.-chcDescription :: Lens' CreateHsmConfiguration Text-chcDescription = lens _chcDescription (\s a -> s { _chcDescription = a })---- | The identifier to be assigned to the new Amazon Redshift HSM configuration.-chcHsmConfigurationIdentifier :: Lens' CreateHsmConfiguration Text-chcHsmConfigurationIdentifier =-    lens _chcHsmConfigurationIdentifier-        (\s a -> s { _chcHsmConfigurationIdentifier = 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 })---- | A list of tag instances.-chcTags :: Lens' CreateHsmConfiguration [Tag]-chcTags = lens _chcTags (\s a -> s { _chcTags = a }) . _List--newtype CreateHsmConfigurationResponse = CreateHsmConfigurationResponse-    { _chcrHsmConfiguration :: Maybe HsmConfiguration-    } deriving (Eq, Read, Show)---- | 'CreateHsmConfigurationResponse' constructor.------ The fields accessible through corresponding lenses are:------ * 'chcrHsmConfiguration' @::@ 'Maybe' 'HsmConfiguration'----createHsmConfigurationResponse :: CreateHsmConfigurationResponse-createHsmConfigurationResponse = CreateHsmConfigurationResponse-    { _chcrHsmConfiguration = Nothing-    }--chcrHsmConfiguration :: Lens' CreateHsmConfigurationResponse (Maybe HsmConfiguration)-chcrHsmConfiguration =-    lens _chcrHsmConfiguration (\s a -> s { _chcrHsmConfiguration = a })--instance ToPath CreateHsmConfiguration where-    toPath = const "/"--instance ToQuery CreateHsmConfiguration where-    toQuery CreateHsmConfiguration{..} = mconcat-        [ "Description"                =? _chcDescription-        , "HsmConfigurationIdentifier" =? _chcHsmConfigurationIdentifier-        , "HsmIpAddress"               =? _chcHsmIpAddress-        , "HsmPartitionName"           =? _chcHsmPartitionName-        , "HsmPartitionPassword"       =? _chcHsmPartitionPassword-        , "HsmServerPublicCertificate" =? _chcHsmServerPublicCertificate-        , "Tags"                       =? _chcTags-        ]--instance ToHeaders CreateHsmConfiguration--instance AWSRequest CreateHsmConfiguration where-    type Sv CreateHsmConfiguration = Redshift-    type Rs CreateHsmConfiguration = CreateHsmConfigurationResponse--    request  = post "CreateHsmConfiguration"-    response = xmlResponse--instance FromXML CreateHsmConfigurationResponse where-    parseXML = withElement "CreateHsmConfigurationResult" $ \x -> CreateHsmConfigurationResponse-        <$> x .@? "HsmConfiguration"