amazonka-servicecatalog 1.4.5 → 1.5.0

raw patch · 82 files changed

+5843/−3159 lines, 82 filesdep ~amazonka-coredep ~amazonka-servicecatalogdep ~amazonka-testPVP ok

version bump matches the API change (PVP)

Dependency ranges changed: amazonka-core, amazonka-servicecatalog, amazonka-test

API changes (from Hackage documentation)

Files

• README.md +1/−1
• amazonka-servicecatalog.cabal +26/−11
• fixture/AssociateTagOptionWithResource.yaml +10/−0
• fixture/AssociateTagOptionWithResourceResponse.proto +0/−0
• fixture/CopyProduct.yaml +10/−0
• fixture/CopyProductResponse.proto +0/−0
• fixture/CreateTagOption.yaml +10/−0
• fixture/CreateTagOptionResponse.proto +0/−0
• fixture/DescribeCopyProductStatus.yaml +10/−0
• fixture/DescribeCopyProductStatusResponse.proto +0/−0
• fixture/DescribeProvisionedProduct.yaml +10/−0
• fixture/DescribeProvisionedProductResponse.proto +0/−0
• fixture/DescribeTagOption.yaml +10/−0
• fixture/DescribeTagOptionResponse.proto +0/−0
• fixture/DisassociateTagOptionFromResource.yaml +10/−0
• fixture/DisassociateTagOptionFromResourceResponse.proto +0/−0
• fixture/ListResourcesForTagOption.yaml +10/−0
• fixture/ListResourcesForTagOptionResponse.proto +0/−0
• fixture/ListTagOptions.yaml +10/−0
• fixture/ListTagOptionsResponse.proto +0/−0
• fixture/UpdateTagOption.yaml +10/−0
• fixture/UpdateTagOptionResponse.proto +0/−0
• gen/Network/AWS/ServiceCatalog.hs +145/−48
• gen/Network/AWS/ServiceCatalog/AcceptPortfolioShare.hs +25/−25
• gen/Network/AWS/ServiceCatalog/AssociatePrincipalWithPortfolio.hs +33/−28
• gen/Network/AWS/ServiceCatalog/AssociateProductWithPortfolio.hs +31/−28
• gen/Network/AWS/ServiceCatalog/AssociateTagOptionWithResource.hs +143/−0
• gen/Network/AWS/ServiceCatalog/CopyProduct.hs +202/−0
• gen/Network/AWS/ServiceCatalog/CreateConstraint.hs +52/−48
• gen/Network/AWS/ServiceCatalog/CreatePortfolio.hs +74/−70
• gen/Network/AWS/ServiceCatalog/CreatePortfolioShare.hs +29/−27
• gen/Network/AWS/ServiceCatalog/CreateProduct.hs +57/−53
• gen/Network/AWS/ServiceCatalog/CreateProvisioningArtifact.hs +44/−39
• gen/Network/AWS/ServiceCatalog/CreateTagOption.hs +144/−0
• gen/Network/AWS/ServiceCatalog/DeleteConstraint.hs +24/−25
• gen/Network/AWS/ServiceCatalog/DeletePortfolio.hs +25/−26
• gen/Network/AWS/ServiceCatalog/DeletePortfolioShare.hs +29/−27
• gen/Network/AWS/ServiceCatalog/DeleteProduct.hs +25/−26
• gen/Network/AWS/ServiceCatalog/DeleteProvisioningArtifact.hs +32/−29
• gen/Network/AWS/ServiceCatalog/DescribeConstraint.hs +49/−48
• gen/Network/AWS/ServiceCatalog/DescribeCopyProductStatus.hs +169/−0
• gen/Network/AWS/ServiceCatalog/DescribePortfolio.hs +41/−30
• gen/Network/AWS/ServiceCatalog/DescribeProduct.hs +30/−29
• gen/Network/AWS/ServiceCatalog/DescribeProductAsAdmin.hs +52/−30
• gen/Network/AWS/ServiceCatalog/DescribeProductView.hs +30/−29
• gen/Network/AWS/ServiceCatalog/DescribeProvisionedProduct.hs +148/−0
• gen/Network/AWS/ServiceCatalog/DescribeProvisioningArtifact.hs +67/−52
• gen/Network/AWS/ServiceCatalog/DescribeProvisioningParameters.hs +54/−36
• gen/Network/AWS/ServiceCatalog/DescribeRecord.hs +39/−35
• gen/Network/AWS/ServiceCatalog/DescribeTagOption.hs +131/−0
• gen/Network/AWS/ServiceCatalog/DisassociatePrincipalFromPortfolio.hs +33/−26
• gen/Network/AWS/ServiceCatalog/DisassociateProductFromPortfolio.hs +31/−25
• gen/Network/AWS/ServiceCatalog/DisassociateTagOptionFromResource.hs +147/−0
• gen/Network/AWS/ServiceCatalog/ListAcceptedPortfolioShares.hs +35/−30
• gen/Network/AWS/ServiceCatalog/ListConstraintsForPortfolio.hs +39/−34
• gen/Network/AWS/ServiceCatalog/ListLaunchPaths.hs +39/−35
• gen/Network/AWS/ServiceCatalog/ListPortfolioAccess.hs +31/−29
• gen/Network/AWS/ServiceCatalog/ListPortfolios.hs +32/−31
• gen/Network/AWS/ServiceCatalog/ListPortfoliosForProduct.hs +37/−32
• gen/Network/AWS/ServiceCatalog/ListPrincipalsForPortfolio.hs +37/−32
• gen/Network/AWS/ServiceCatalog/ListProvisioningArtifacts.hs +31/−28
• gen/Network/AWS/ServiceCatalog/ListRecordHistory.hs +39/−35
• gen/Network/AWS/ServiceCatalog/ListResourcesForTagOption.hs +181/−0
• gen/Network/AWS/ServiceCatalog/ListTagOptions.hs +165/−0
• gen/Network/AWS/ServiceCatalog/ProvisionProduct.hs +47/−45
• gen/Network/AWS/ServiceCatalog/RejectPortfolioShare.hs +25/−25
• gen/Network/AWS/ServiceCatalog/ScanProvisionedProducts.hs +37/−33
• gen/Network/AWS/ServiceCatalog/SearchProducts.hs +43/−39
• gen/Network/AWS/ServiceCatalog/SearchProductsAsAdmin.hs +45/−41
• gen/Network/AWS/ServiceCatalog/TerminateProvisionedProduct.hs +39/−36
• gen/Network/AWS/ServiceCatalog/Types.hs +109/−30
• gen/Network/AWS/ServiceCatalog/Types/Product.hs +1822/−1512
• gen/Network/AWS/ServiceCatalog/Types/Sum.hs +185/−46
• gen/Network/AWS/ServiceCatalog/UpdateConstraint.hs +34/−33
• gen/Network/AWS/ServiceCatalog/UpdatePortfolio.hs +44/−40
• gen/Network/AWS/ServiceCatalog/UpdateProduct.hs +51/−47
• gen/Network/AWS/ServiceCatalog/UpdateProvisionedProduct.hs +47/−44
• gen/Network/AWS/ServiceCatalog/UpdateProvisioningArtifact.hs +44/−39
• gen/Network/AWS/ServiceCatalog/UpdateTagOption.hs +151/−0
• gen/Network/AWS/ServiceCatalog/Waiters.hs +6/−6
• test/Main.hs +2/−2
• test/Test/AWS/Gen/ServiceCatalog.hs +184/−4

@@ -8,7 +8,7 @@  ## Version -`1.4.5`+`1.5.0`   ## Description

@@ -1,13 +1,13 @@ name:                  amazonka-servicecatalog-version:               1.4.5+version:               1.5.0 synopsis:              Amazon Service Catalog SDK. homepage:              https://github.com/brendanhay/amazonka bug-reports:           https://github.com/brendanhay/amazonka/issues-license:               OtherLicense+license:               MPL-2.0 license-file:          LICENSE author:                Brendan Hay-maintainer:            Brendan Hay <brendan.g.hay@gmail.com>-copyright:             Copyright (c) 2013-2016 Brendan Hay+maintainer:            Brendan Hay <brendan.g.hay+amazonka@gmail.com>+copyright:             Copyright (c) 2013-2017 Brendan Hay category:              Network, AWS, Cloud, Distributed Computing build-type:            Simple cabal-version:         >= 1.10@@ -29,40 +29,52 @@     to get started.  source-repository head-    type:     git-    location: git://github.com/brendanhay/amazonka.git+    type:              git+    location:          git://github.com/brendanhay/amazonka.git+    subdir:            amazonka-servicecatalog  library     default-language:  Haskell2010     hs-source-dirs:    src gen -    ghc-options:       -Wall+    ghc-options:+        -Wall+        -fwarn-incomplete-uni-patterns+        -fwarn-incomplete-record-updates+        -funbox-strict-fields      exposed-modules:           Network.AWS.ServiceCatalog         , Network.AWS.ServiceCatalog.AcceptPortfolioShare         , Network.AWS.ServiceCatalog.AssociatePrincipalWithPortfolio         , Network.AWS.ServiceCatalog.AssociateProductWithPortfolio+        , Network.AWS.ServiceCatalog.AssociateTagOptionWithResource+        , Network.AWS.ServiceCatalog.CopyProduct         , Network.AWS.ServiceCatalog.CreateConstraint         , Network.AWS.ServiceCatalog.CreatePortfolio         , Network.AWS.ServiceCatalog.CreatePortfolioShare         , Network.AWS.ServiceCatalog.CreateProduct         , Network.AWS.ServiceCatalog.CreateProvisioningArtifact+        , Network.AWS.ServiceCatalog.CreateTagOption         , Network.AWS.ServiceCatalog.DeleteConstraint         , Network.AWS.ServiceCatalog.DeletePortfolio         , Network.AWS.ServiceCatalog.DeletePortfolioShare         , Network.AWS.ServiceCatalog.DeleteProduct         , Network.AWS.ServiceCatalog.DeleteProvisioningArtifact         , Network.AWS.ServiceCatalog.DescribeConstraint+        , Network.AWS.ServiceCatalog.DescribeCopyProductStatus         , Network.AWS.ServiceCatalog.DescribePortfolio         , Network.AWS.ServiceCatalog.DescribeProduct         , Network.AWS.ServiceCatalog.DescribeProductAsAdmin         , Network.AWS.ServiceCatalog.DescribeProductView+        , Network.AWS.ServiceCatalog.DescribeProvisionedProduct         , Network.AWS.ServiceCatalog.DescribeProvisioningArtifact         , Network.AWS.ServiceCatalog.DescribeProvisioningParameters         , Network.AWS.ServiceCatalog.DescribeRecord+        , Network.AWS.ServiceCatalog.DescribeTagOption         , Network.AWS.ServiceCatalog.DisassociatePrincipalFromPortfolio         , Network.AWS.ServiceCatalog.DisassociateProductFromPortfolio+        , Network.AWS.ServiceCatalog.DisassociateTagOptionFromResource         , Network.AWS.ServiceCatalog.ListAcceptedPortfolioShares         , Network.AWS.ServiceCatalog.ListConstraintsForPortfolio         , Network.AWS.ServiceCatalog.ListLaunchPaths@@ -72,6 +84,8 @@         , Network.AWS.ServiceCatalog.ListPrincipalsForPortfolio         , Network.AWS.ServiceCatalog.ListProvisioningArtifacts         , Network.AWS.ServiceCatalog.ListRecordHistory+        , Network.AWS.ServiceCatalog.ListResourcesForTagOption+        , Network.AWS.ServiceCatalog.ListTagOptions         , Network.AWS.ServiceCatalog.ProvisionProduct         , Network.AWS.ServiceCatalog.RejectPortfolioShare         , Network.AWS.ServiceCatalog.ScanProvisionedProducts@@ -84,6 +98,7 @@         , Network.AWS.ServiceCatalog.UpdateProduct         , Network.AWS.ServiceCatalog.UpdateProvisionedProduct         , Network.AWS.ServiceCatalog.UpdateProvisioningArtifact+        , Network.AWS.ServiceCatalog.UpdateTagOption         , Network.AWS.ServiceCatalog.Waiters      other-modules:@@ -91,7 +106,7 @@         , Network.AWS.ServiceCatalog.Types.Sum      build-depends:-          amazonka-core == 1.4.5.*+          amazonka-core == 1.5.0.*         , base          >= 4.7     && < 5  test-suite amazonka-servicecatalog-test@@ -111,9 +126,9 @@         , Test.AWS.ServiceCatalog.Internal      build-depends:-          amazonka-core == 1.4.5.*-        , amazonka-test == 1.4.5.*-        , amazonka-servicecatalog == 1.4.5.*+          amazonka-core == 1.5.0.*+        , amazonka-test == 1.5.0.*+        , amazonka-servicecatalog         , base         , bytestring         , tasty

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/servicecatalog/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  servicecatalog.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/servicecatalog/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  servicecatalog.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/servicecatalog/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  servicecatalog.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/servicecatalog/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  servicecatalog.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/servicecatalog/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  servicecatalog.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/servicecatalog/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  servicecatalog.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/servicecatalog/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  servicecatalog.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/servicecatalog/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  servicecatalog.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/servicecatalog/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  servicecatalog.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/servicecatalog/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  servicecatalog.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -5,9 +5,9 @@  -- | -- Module      : Network.AWS.ServiceCatalog--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -15,7 +15,7 @@ -- -- __Overview__ ----- <https://aws.amazon.com/servicecatalog/ AWS Service Catalog> allows organizations to create and manage catalogs of IT services that are approved for use on AWS. This documentation provides reference material for the AWS Service Catalog end user API. To get the most out of this documentation, you need to be familiar with the terminology discussed in <http://docs.aws.amazon.com/servicecatalog/latest/userguide/what-is_concepts.html AWS Service Catalog Concepts> .+-- <https://aws.amazon.com/servicecatalog/ AWS Service Catalog> allows organizations to create and manage catalogs of IT services that are approved for use on AWS. This documentation provides reference material for the AWS Service Catalog end user API. To get the most out of this documentation, be familiar with the terminology discussed in <http://docs.aws.amazon.com/servicecatalog/latest/adminguide/what-is_concepts.html AWS Service Catalog Concepts> . -- -- /Additional Resources/ --@@ -39,9 +39,15 @@     -- ** DuplicateResourceException     , _DuplicateResourceException +    -- ** TagOptionNotMigratedException+    , _TagOptionNotMigratedException+     -- ** ResourceNotFoundException     , _ResourceNotFoundException +    -- ** InvalidStateException+    , _InvalidStateException+     -- ** LimitExceededException     , _LimitExceededException @@ -63,6 +69,9 @@     -- ** CreateProduct     , module Network.AWS.ServiceCatalog.CreateProduct +    -- ** DescribeCopyProductStatus+    , module Network.AWS.ServiceCatalog.DescribeCopyProductStatus+     -- ** TerminateProvisionedProduct     , module Network.AWS.ServiceCatalog.TerminateProvisionedProduct @@ -75,6 +84,12 @@     -- ** ListRecordHistory     , module Network.AWS.ServiceCatalog.ListRecordHistory +    -- ** AssociateTagOptionWithResource+    , module Network.AWS.ServiceCatalog.AssociateTagOptionWithResource++    -- ** CreateTagOption+    , module Network.AWS.ServiceCatalog.CreateTagOption+     -- ** DisassociateProductFromPortfolio     , module Network.AWS.ServiceCatalog.DisassociateProductFromPortfolio @@ -117,6 +132,12 @@     -- ** DisassociatePrincipalFromPortfolio     , module Network.AWS.ServiceCatalog.DisassociatePrincipalFromPortfolio +    -- ** DescribeTagOption+    , module Network.AWS.ServiceCatalog.DescribeTagOption++    -- ** DisassociateTagOptionFromResource+    , module Network.AWS.ServiceCatalog.DisassociateTagOptionFromResource+     -- ** DescribePortfolio     , module Network.AWS.ServiceCatalog.DescribePortfolio @@ -147,6 +168,12 @@     -- ** RejectPortfolioShare     , module Network.AWS.ServiceCatalog.RejectPortfolioShare +    -- ** UpdateTagOption+    , module Network.AWS.ServiceCatalog.UpdateTagOption++    -- ** ListTagOptions+    , module Network.AWS.ServiceCatalog.ListTagOptions+     -- ** SearchProductsAsAdmin     , module Network.AWS.ServiceCatalog.SearchProductsAsAdmin @@ -168,6 +195,12 @@     -- ** AssociatePrincipalWithPortfolio     , module Network.AWS.ServiceCatalog.AssociatePrincipalWithPortfolio +    -- ** DescribeProvisionedProduct+    , module Network.AWS.ServiceCatalog.DescribeProvisionedProduct++    -- ** CopyProduct+    , module Network.AWS.ServiceCatalog.CopyProduct+     -- ** UpdateProvisioningArtifact     , module Network.AWS.ServiceCatalog.UpdateProvisioningArtifact @@ -183,11 +216,20 @@     -- ** ListLaunchPaths     , module Network.AWS.ServiceCatalog.ListLaunchPaths +    -- ** ListResourcesForTagOption+    , module Network.AWS.ServiceCatalog.ListResourcesForTagOption+     -- * Types      -- ** AccessLevelFilterKey     , AccessLevelFilterKey (..) +    -- ** CopyOption+    , CopyOption (..)++    -- ** CopyProductStatus+    , CopyProductStatus (..)+     -- ** PrincipalType     , PrincipalType (..) @@ -203,6 +245,12 @@     -- ** ProductViewSortBy     , ProductViewSortBy (..) +    -- ** ProvisionedProductStatus+    , ProvisionedProductStatus (..)++    -- ** ProvisioningArtifactPropertyName+    , ProvisioningArtifactPropertyName (..)+     -- ** ProvisioningArtifactType     , ProvisioningArtifactType (..) @@ -249,6 +297,13 @@     , lrhsfValue     , lrhsfKey +    -- ** ListTagOptionsFilters+    , ListTagOptionsFilters+    , listTagOptionsFilters+    , ltofValue+    , ltofActive+    , ltofKey+     -- ** ParameterConstraints     , ParameterConstraints     , parameterConstraints@@ -347,6 +402,15 @@     , papDescription     , papInfo +    -- ** ProvisioningArtifactSummary+    , ProvisioningArtifactSummary+    , provisioningArtifactSummary+    , pasProvisioningArtifactMetadata+    , pasCreatedTime+    , pasName+    , pasId+    , pasDescription+     -- ** ProvisioningParameter     , ProvisioningParameter     , provisioningParameter@@ -389,12 +453,35 @@     , rtValue     , rtKey +    -- ** ResourceDetail+    , ResourceDetail+    , resourceDetail+    , rARN+    , rCreatedTime+    , rName+    , rId+    , rDescription+     -- ** Tag     , Tag     , tag     , tagKey     , tagValue +    -- ** TagOptionDetail+    , TagOptionDetail+    , tagOptionDetail+    , todValue+    , todActive+    , todKey+    , todId++    -- ** TagOptionSummary+    , TagOptionSummary+    , tagOptionSummary+    , tosValues+    , tosKey+     -- ** UpdateProvisioningParameter     , UpdateProvisioningParameter     , updateProvisioningParameter@@ -409,51 +496,61 @@     , uiType     ) where -import           Network.AWS.ServiceCatalog.AcceptPortfolioShare-import           Network.AWS.ServiceCatalog.AssociatePrincipalWithPortfolio-import           Network.AWS.ServiceCatalog.AssociateProductWithPortfolio-import           Network.AWS.ServiceCatalog.CreateConstraint-import           Network.AWS.ServiceCatalog.CreatePortfolio-import           Network.AWS.ServiceCatalog.CreatePortfolioShare-import           Network.AWS.ServiceCatalog.CreateProduct-import           Network.AWS.ServiceCatalog.CreateProvisioningArtifact-import           Network.AWS.ServiceCatalog.DeleteConstraint-import           Network.AWS.ServiceCatalog.DeletePortfolio-import           Network.AWS.ServiceCatalog.DeletePortfolioShare-import           Network.AWS.ServiceCatalog.DeleteProduct-import           Network.AWS.ServiceCatalog.DeleteProvisioningArtifact-import           Network.AWS.ServiceCatalog.DescribeConstraint-import           Network.AWS.ServiceCatalog.DescribePortfolio-import           Network.AWS.ServiceCatalog.DescribeProduct-import           Network.AWS.ServiceCatalog.DescribeProductAsAdmin-import           Network.AWS.ServiceCatalog.DescribeProductView-import           Network.AWS.ServiceCatalog.DescribeProvisioningArtifact-import           Network.AWS.ServiceCatalog.DescribeProvisioningParameters-import           Network.AWS.ServiceCatalog.DescribeRecord-import           Network.AWS.ServiceCatalog.DisassociatePrincipalFromPortfolio-import           Network.AWS.ServiceCatalog.DisassociateProductFromPortfolio-import           Network.AWS.ServiceCatalog.ListAcceptedPortfolioShares-import           Network.AWS.ServiceCatalog.ListConstraintsForPortfolio-import           Network.AWS.ServiceCatalog.ListLaunchPaths-import           Network.AWS.ServiceCatalog.ListPortfolioAccess-import           Network.AWS.ServiceCatalog.ListPortfolios-import           Network.AWS.ServiceCatalog.ListPortfoliosForProduct-import           Network.AWS.ServiceCatalog.ListPrincipalsForPortfolio-import           Network.AWS.ServiceCatalog.ListProvisioningArtifacts-import           Network.AWS.ServiceCatalog.ListRecordHistory-import           Network.AWS.ServiceCatalog.ProvisionProduct-import           Network.AWS.ServiceCatalog.RejectPortfolioShare-import           Network.AWS.ServiceCatalog.ScanProvisionedProducts-import           Network.AWS.ServiceCatalog.SearchProducts-import           Network.AWS.ServiceCatalog.SearchProductsAsAdmin-import           Network.AWS.ServiceCatalog.TerminateProvisionedProduct-import           Network.AWS.ServiceCatalog.Types-import           Network.AWS.ServiceCatalog.UpdateConstraint-import           Network.AWS.ServiceCatalog.UpdatePortfolio-import           Network.AWS.ServiceCatalog.UpdateProduct-import           Network.AWS.ServiceCatalog.UpdateProvisionedProduct-import           Network.AWS.ServiceCatalog.UpdateProvisioningArtifact-import           Network.AWS.ServiceCatalog.Waiters+import Network.AWS.ServiceCatalog.AcceptPortfolioShare+import Network.AWS.ServiceCatalog.AssociatePrincipalWithPortfolio+import Network.AWS.ServiceCatalog.AssociateProductWithPortfolio+import Network.AWS.ServiceCatalog.AssociateTagOptionWithResource+import Network.AWS.ServiceCatalog.CopyProduct+import Network.AWS.ServiceCatalog.CreateConstraint+import Network.AWS.ServiceCatalog.CreatePortfolio+import Network.AWS.ServiceCatalog.CreatePortfolioShare+import Network.AWS.ServiceCatalog.CreateProduct+import Network.AWS.ServiceCatalog.CreateProvisioningArtifact+import Network.AWS.ServiceCatalog.CreateTagOption+import Network.AWS.ServiceCatalog.DeleteConstraint+import Network.AWS.ServiceCatalog.DeletePortfolio+import Network.AWS.ServiceCatalog.DeletePortfolioShare+import Network.AWS.ServiceCatalog.DeleteProduct+import Network.AWS.ServiceCatalog.DeleteProvisioningArtifact+import Network.AWS.ServiceCatalog.DescribeConstraint+import Network.AWS.ServiceCatalog.DescribeCopyProductStatus+import Network.AWS.ServiceCatalog.DescribePortfolio+import Network.AWS.ServiceCatalog.DescribeProduct+import Network.AWS.ServiceCatalog.DescribeProductAsAdmin+import Network.AWS.ServiceCatalog.DescribeProductView+import Network.AWS.ServiceCatalog.DescribeProvisionedProduct+import Network.AWS.ServiceCatalog.DescribeProvisioningArtifact+import Network.AWS.ServiceCatalog.DescribeProvisioningParameters+import Network.AWS.ServiceCatalog.DescribeRecord+import Network.AWS.ServiceCatalog.DescribeTagOption+import Network.AWS.ServiceCatalog.DisassociatePrincipalFromPortfolio+import Network.AWS.ServiceCatalog.DisassociateProductFromPortfolio+import Network.AWS.ServiceCatalog.DisassociateTagOptionFromResource+import Network.AWS.ServiceCatalog.ListAcceptedPortfolioShares+import Network.AWS.ServiceCatalog.ListConstraintsForPortfolio+import Network.AWS.ServiceCatalog.ListLaunchPaths+import Network.AWS.ServiceCatalog.ListPortfolioAccess+import Network.AWS.ServiceCatalog.ListPortfolios+import Network.AWS.ServiceCatalog.ListPortfoliosForProduct+import Network.AWS.ServiceCatalog.ListPrincipalsForPortfolio+import Network.AWS.ServiceCatalog.ListProvisioningArtifacts+import Network.AWS.ServiceCatalog.ListRecordHistory+import Network.AWS.ServiceCatalog.ListResourcesForTagOption+import Network.AWS.ServiceCatalog.ListTagOptions+import Network.AWS.ServiceCatalog.ProvisionProduct+import Network.AWS.ServiceCatalog.RejectPortfolioShare+import Network.AWS.ServiceCatalog.ScanProvisionedProducts+import Network.AWS.ServiceCatalog.SearchProducts+import Network.AWS.ServiceCatalog.SearchProductsAsAdmin+import Network.AWS.ServiceCatalog.TerminateProvisionedProduct+import Network.AWS.ServiceCatalog.Types+import Network.AWS.ServiceCatalog.UpdateConstraint+import Network.AWS.ServiceCatalog.UpdatePortfolio+import Network.AWS.ServiceCatalog.UpdateProduct+import Network.AWS.ServiceCatalog.UpdateProvisionedProduct+import Network.AWS.ServiceCatalog.UpdateProvisioningArtifact+import Network.AWS.ServiceCatalog.UpdateTagOption+import Network.AWS.ServiceCatalog.Waiters  {- $errors Error matchers are designed for use with the functions provided by

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.ServiceCatalog.AcceptPortfolioShare--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -37,36 +37,36 @@     , apsrsResponseStatus     ) where -import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response-import           Network.AWS.ServiceCatalog.Types-import           Network.AWS.ServiceCatalog.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.ServiceCatalog.Types+import Network.AWS.ServiceCatalog.Types.Product  -- | /See:/ 'acceptPortfolioShare' smart constructor. data AcceptPortfolioShare = AcceptPortfolioShare'-    { _apsAcceptLanguage :: !(Maybe Text)-    , _apsPortfolioId    :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _apsAcceptLanguage :: !(Maybe Text)+  , _apsPortfolioId    :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'AcceptPortfolioShare' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'apsAcceptLanguage' - The language code to use for this operation. Supported language codes are as follows: "en" (English) "jp" (Japanese) "zh" (Chinese) If no code is specified, "en" is used as the default.+-- * 'apsAcceptLanguage' - The language code.     * @en@ - English (default)     * @jp@ - Japanese     * @zh@ - Chinese -- -- * 'apsPortfolioId' - The portfolio identifier. acceptPortfolioShare     :: Text -- ^ 'apsPortfolioId'     -> AcceptPortfolioShare acceptPortfolioShare pPortfolioId_ =-    AcceptPortfolioShare'-    { _apsAcceptLanguage = Nothing-    , _apsPortfolioId = pPortfolioId_-    }+  AcceptPortfolioShare'+  {_apsAcceptLanguage = Nothing, _apsPortfolioId = pPortfolioId_} --- | The language code to use for this operation. Supported language codes are as follows: "en" (English) "jp" (Japanese) "zh" (Chinese) If no code is specified, "en" is used as the default.++-- | The language code.     * @en@ - English (default)     * @jp@ - Japanese     * @zh@ - Chinese apsAcceptLanguage :: Lens' AcceptPortfolioShare (Maybe Text) apsAcceptLanguage = lens _apsAcceptLanguage (\ s a -> s{_apsAcceptLanguage = a}); @@ -84,9 +84,9 @@                  AcceptPortfolioShareResponse' <$>                    (pure (fromEnum s))) -instance Hashable AcceptPortfolioShare+instance Hashable AcceptPortfolioShare where -instance NFData AcceptPortfolioShare+instance NFData AcceptPortfolioShare where  instance ToHeaders AcceptPortfolioShare where         toHeaders@@ -113,9 +113,10 @@  -- | /See:/ 'acceptPortfolioShareResponse' smart constructor. newtype AcceptPortfolioShareResponse = AcceptPortfolioShareResponse'-    { _apsrsResponseStatus :: Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _apsrsResponseStatus :: Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'AcceptPortfolioShareResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -125,12 +126,11 @@     :: Int -- ^ 'apsrsResponseStatus'     -> AcceptPortfolioShareResponse acceptPortfolioShareResponse pResponseStatus_ =-    AcceptPortfolioShareResponse'-    { _apsrsResponseStatus = pResponseStatus_-    }+  AcceptPortfolioShareResponse' {_apsrsResponseStatus = pResponseStatus_} + -- | -- | The response status code. apsrsResponseStatus :: Lens' AcceptPortfolioShareResponse Int apsrsResponseStatus = lens _apsrsResponseStatus (\ s a -> s{_apsrsResponseStatus = a}); -instance NFData AcceptPortfolioShareResponse+instance NFData AcceptPortfolioShareResponse where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.ServiceCatalog.AssociatePrincipalWithPortfolio--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -39,26 +39,27 @@     , apwprsResponseStatus     ) where -import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response-import           Network.AWS.ServiceCatalog.Types-import           Network.AWS.ServiceCatalog.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.ServiceCatalog.Types+import Network.AWS.ServiceCatalog.Types.Product  -- | /See:/ 'associatePrincipalWithPortfolio' smart constructor. data AssociatePrincipalWithPortfolio = AssociatePrincipalWithPortfolio'-    { _aAcceptLanguage :: !(Maybe Text)-    , _aPortfolioId    :: !Text-    , _aPrincipalARN   :: !Text-    , _aPrincipalType  :: !PrincipalType-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _aAcceptLanguage :: !(Maybe Text)+  , _aPortfolioId    :: !Text+  , _aPrincipalARN   :: !Text+  , _aPrincipalType  :: !PrincipalType+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'AssociatePrincipalWithPortfolio' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'aAcceptLanguage' - The language code to use for this operation. Supported language codes are as follows: "en" (English) "jp" (Japanese) "zh" (Chinese) If no code is specified, "en" is used as the default.+-- * 'aAcceptLanguage' - The language code.     * @en@ - English (default)     * @jp@ - Japanese     * @zh@ - Chinese -- -- * 'aPortfolioId' - The portfolio identifier. --@@ -71,14 +72,15 @@     -> PrincipalType -- ^ 'aPrincipalType'     -> AssociatePrincipalWithPortfolio associatePrincipalWithPortfolio pPortfolioId_ pPrincipalARN_ pPrincipalType_ =-    AssociatePrincipalWithPortfolio'-    { _aAcceptLanguage = Nothing-    , _aPortfolioId = pPortfolioId_-    , _aPrincipalARN = pPrincipalARN_-    , _aPrincipalType = pPrincipalType_-    }+  AssociatePrincipalWithPortfolio'+  { _aAcceptLanguage = Nothing+  , _aPortfolioId = pPortfolioId_+  , _aPrincipalARN = pPrincipalARN_+  , _aPrincipalType = pPrincipalType_+  } --- | The language code to use for this operation. Supported language codes are as follows: "en" (English) "jp" (Japanese) "zh" (Chinese) If no code is specified, "en" is used as the default.++-- | The language code.     * @en@ - English (default)     * @jp@ - Japanese     * @zh@ - Chinese aAcceptLanguage :: Lens' AssociatePrincipalWithPortfolio (Maybe Text) aAcceptLanguage = lens _aAcceptLanguage (\ s a -> s{_aAcceptLanguage = a}); @@ -106,8 +108,9 @@                    (pure (fromEnum s)))  instance Hashable AssociatePrincipalWithPortfolio+         where -instance NFData AssociatePrincipalWithPortfolio+instance NFData AssociatePrincipalWithPortfolio where  instance ToHeaders AssociatePrincipalWithPortfolio          where@@ -138,9 +141,10 @@  -- | /See:/ 'associatePrincipalWithPortfolioResponse' smart constructor. newtype AssociatePrincipalWithPortfolioResponse = AssociatePrincipalWithPortfolioResponse'-    { _apwprsResponseStatus :: Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _apwprsResponseStatus :: Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'AssociatePrincipalWithPortfolioResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -150,13 +154,14 @@     :: Int -- ^ 'apwprsResponseStatus'     -> AssociatePrincipalWithPortfolioResponse associatePrincipalWithPortfolioResponse pResponseStatus_ =-    AssociatePrincipalWithPortfolioResponse'-    { _apwprsResponseStatus = pResponseStatus_-    }+  AssociatePrincipalWithPortfolioResponse'+  {_apwprsResponseStatus = pResponseStatus_} + -- | -- | The response status code. apwprsResponseStatus :: Lens' AssociatePrincipalWithPortfolioResponse Int apwprsResponseStatus = lens _apwprsResponseStatus (\ s a -> s{_apwprsResponseStatus = a});  instance NFData-         AssociatePrincipalWithPortfolioResponse+           AssociatePrincipalWithPortfolioResponse+         where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.ServiceCatalog.AssociateProductWithPortfolio--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -39,28 +39,29 @@     , arsResponseStatus     ) where -import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response-import           Network.AWS.ServiceCatalog.Types-import           Network.AWS.ServiceCatalog.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.ServiceCatalog.Types+import Network.AWS.ServiceCatalog.Types.Product  -- | /See:/ 'associateProductWithPortfolio' smart constructor. data AssociateProductWithPortfolio = AssociateProductWithPortfolio'-    { _apwpSourcePortfolioId :: !(Maybe Text)-    , _apwpAcceptLanguage    :: !(Maybe Text)-    , _apwpProductId         :: !Text-    , _apwpPortfolioId       :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _apwpSourcePortfolioId :: !(Maybe Text)+  , _apwpAcceptLanguage    :: !(Maybe Text)+  , _apwpProductId         :: !Text+  , _apwpPortfolioId       :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'AssociateProductWithPortfolio' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: -- -- * 'apwpSourcePortfolioId' - The identifier of the source portfolio to use with this association. ----- * 'apwpAcceptLanguage' - The language code to use for this operation. Supported language codes are as follows: "en" (English) "jp" (Japanese) "zh" (Chinese) If no code is specified, "en" is used as the default.+-- * 'apwpAcceptLanguage' - The language code.     * @en@ - English (default)     * @jp@ - Japanese     * @zh@ - Chinese -- -- * 'apwpProductId' - The product identifier. --@@ -70,18 +71,19 @@     -> Text -- ^ 'apwpPortfolioId'     -> AssociateProductWithPortfolio associateProductWithPortfolio pProductId_ pPortfolioId_ =-    AssociateProductWithPortfolio'-    { _apwpSourcePortfolioId = Nothing-    , _apwpAcceptLanguage = Nothing-    , _apwpProductId = pProductId_-    , _apwpPortfolioId = pPortfolioId_-    }+  AssociateProductWithPortfolio'+  { _apwpSourcePortfolioId = Nothing+  , _apwpAcceptLanguage = Nothing+  , _apwpProductId = pProductId_+  , _apwpPortfolioId = pPortfolioId_+  } + -- | The identifier of the source portfolio to use with this association. apwpSourcePortfolioId :: Lens' AssociateProductWithPortfolio (Maybe Text) apwpSourcePortfolioId = lens _apwpSourcePortfolioId (\ s a -> s{_apwpSourcePortfolioId = a}); --- | The language code to use for this operation. Supported language codes are as follows: "en" (English) "jp" (Japanese) "zh" (Chinese) If no code is specified, "en" is used as the default.+-- | The language code.     * @en@ - English (default)     * @jp@ - Japanese     * @zh@ - Chinese apwpAcceptLanguage :: Lens' AssociateProductWithPortfolio (Maybe Text) apwpAcceptLanguage = lens _apwpAcceptLanguage (\ s a -> s{_apwpAcceptLanguage = a}); @@ -104,9 +106,9 @@                  AssociateProductWithPortfolioResponse' <$>                    (pure (fromEnum s))) -instance Hashable AssociateProductWithPortfolio+instance Hashable AssociateProductWithPortfolio where -instance NFData AssociateProductWithPortfolio+instance NFData AssociateProductWithPortfolio where  instance ToHeaders AssociateProductWithPortfolio          where@@ -136,9 +138,10 @@  -- | /See:/ 'associateProductWithPortfolioResponse' smart constructor. newtype AssociateProductWithPortfolioResponse = AssociateProductWithPortfolioResponse'-    { _arsResponseStatus :: Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _arsResponseStatus :: Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'AssociateProductWithPortfolioResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -148,12 +151,12 @@     :: Int -- ^ 'arsResponseStatus'     -> AssociateProductWithPortfolioResponse associateProductWithPortfolioResponse pResponseStatus_ =-    AssociateProductWithPortfolioResponse'-    { _arsResponseStatus = pResponseStatus_-    }+  AssociateProductWithPortfolioResponse' {_arsResponseStatus = pResponseStatus_} + -- | -- | The response status code. arsResponseStatus :: Lens' AssociateProductWithPortfolioResponse Int arsResponseStatus = lens _arsResponseStatus (\ s a -> s{_arsResponseStatus = a});  instance NFData AssociateProductWithPortfolioResponse+         where

@@ -0,0 +1,143 @@+{-# 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.ServiceCatalog.AssociateTagOptionWithResource+-- Copyright   : (c) 2013-2017 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Associate a TagOption identifier with a resource identifier.+--+--+module Network.AWS.ServiceCatalog.AssociateTagOptionWithResource+    (+    -- * Creating a Request+      associateTagOptionWithResource+    , AssociateTagOptionWithResource+    -- * Request Lenses+    , atowrResourceId+    , atowrTagOptionId++    -- * Destructuring the Response+    , associateTagOptionWithResourceResponse+    , AssociateTagOptionWithResourceResponse+    -- * Response Lenses+    , atowrrsResponseStatus+    ) where++import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.ServiceCatalog.Types+import Network.AWS.ServiceCatalog.Types.Product++-- | /See:/ 'associateTagOptionWithResource' smart constructor.+data AssociateTagOptionWithResource = AssociateTagOptionWithResource'+  { _atowrResourceId  :: !Text+  , _atowrTagOptionId :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'AssociateTagOptionWithResource' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'atowrResourceId' - The resource identifier.+--+-- * 'atowrTagOptionId' - The TagOption identifier.+associateTagOptionWithResource+    :: Text -- ^ 'atowrResourceId'+    -> Text -- ^ 'atowrTagOptionId'+    -> AssociateTagOptionWithResource+associateTagOptionWithResource pResourceId_ pTagOptionId_ =+  AssociateTagOptionWithResource'+  {_atowrResourceId = pResourceId_, _atowrTagOptionId = pTagOptionId_}+++-- | The resource identifier.+atowrResourceId :: Lens' AssociateTagOptionWithResource Text+atowrResourceId = lens _atowrResourceId (\ s a -> s{_atowrResourceId = a});++-- | The TagOption identifier.+atowrTagOptionId :: Lens' AssociateTagOptionWithResource Text+atowrTagOptionId = lens _atowrTagOptionId (\ s a -> s{_atowrTagOptionId = a});++instance AWSRequest AssociateTagOptionWithResource+         where+        type Rs AssociateTagOptionWithResource =+             AssociateTagOptionWithResourceResponse+        request = postJSON serviceCatalog+        response+          = receiveEmpty+              (\ s h x ->+                 AssociateTagOptionWithResourceResponse' <$>+                   (pure (fromEnum s)))++instance Hashable AssociateTagOptionWithResource+         where++instance NFData AssociateTagOptionWithResource where++instance ToHeaders AssociateTagOptionWithResource+         where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("AWS242ServiceCatalogService.AssociateTagOptionWithResource"+                       :: ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON AssociateTagOptionWithResource where+        toJSON AssociateTagOptionWithResource'{..}+          = object+              (catMaybes+                 [Just ("ResourceId" .= _atowrResourceId),+                  Just ("TagOptionId" .= _atowrTagOptionId)])++instance ToPath AssociateTagOptionWithResource where+        toPath = const "/"++instance ToQuery AssociateTagOptionWithResource where+        toQuery = const mempty++-- | /See:/ 'associateTagOptionWithResourceResponse' smart constructor.+newtype AssociateTagOptionWithResourceResponse = AssociateTagOptionWithResourceResponse'+  { _atowrrsResponseStatus :: Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'AssociateTagOptionWithResourceResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'atowrrsResponseStatus' - -- | The response status code.+associateTagOptionWithResourceResponse+    :: Int -- ^ 'atowrrsResponseStatus'+    -> AssociateTagOptionWithResourceResponse+associateTagOptionWithResourceResponse pResponseStatus_ =+  AssociateTagOptionWithResourceResponse'+  {_atowrrsResponseStatus = pResponseStatus_}+++-- | -- | The response status code.+atowrrsResponseStatus :: Lens' AssociateTagOptionWithResourceResponse Int+atowrrsResponseStatus = lens _atowrrsResponseStatus (\ s a -> s{_atowrrsResponseStatus = a});++instance NFData+           AssociateTagOptionWithResourceResponse+         where

@@ -0,0 +1,202 @@+{-# 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.ServiceCatalog.CopyProduct+-- Copyright   : (c) 2013-2017 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Copies the specified source product to the specified target product or a new product.+--+--+-- You can copy the product to the same account or another account. You can copy the product to the same region or another region.+--+-- This operation is performed asynchronously. To track the progress of the operation, use 'DescribeCopyProductStatus' .+--+module Network.AWS.ServiceCatalog.CopyProduct+    (+    -- * Creating a Request+      copyProduct+    , CopyProduct+    -- * Request Lenses+    , cTargetProductId+    , cSourceProvisioningArtifactIdentifiers+    , cTargetProductName+    , cCopyOptions+    , cAcceptLanguage+    , cSourceProductARN+    , cIdempotencyToken++    -- * Destructuring the Response+    , copyProductResponse+    , CopyProductResponse+    -- * Response Lenses+    , coprsCopyProductToken+    , coprsResponseStatus+    ) where++import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.ServiceCatalog.Types+import Network.AWS.ServiceCatalog.Types.Product++-- | /See:/ 'copyProduct' smart constructor.+data CopyProduct = CopyProduct'+  { _cTargetProductId :: !(Maybe Text)+  , _cSourceProvisioningArtifactIdentifiers :: !(Maybe [Map ProvisioningArtifactPropertyName Text])+  , _cTargetProductName :: !(Maybe Text)+  , _cCopyOptions :: !(Maybe [CopyOption])+  , _cAcceptLanguage :: !(Maybe Text)+  , _cSourceProductARN :: !Text+  , _cIdempotencyToken :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'CopyProduct' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'cTargetProductId' - The ID of the target product. By default, a new product is created.+--+-- * 'cSourceProvisioningArtifactIdentifiers' - The IDs of the product versions to copy. By default, all provisioning artifacts are copied.+--+-- * 'cTargetProductName' - A name for the target product. The default is the name of the source product.+--+-- * 'cCopyOptions' - The copy options. If the value is @CopyTags@ , the tags from the source product are copied to the target product.+--+-- * 'cAcceptLanguage' - The language code.     * @en@ - English (default)     * @jp@ - Japanese     * @zh@ - Chinese+--+-- * 'cSourceProductARN' - The Amazon Resource Name (ARN) of the source product.+--+-- * 'cIdempotencyToken' - A token to disambiguate duplicate requests. You can use the same input in multiple requests, provided that you also specify a different idempotency token for each request.+copyProduct+    :: Text -- ^ 'cSourceProductARN'+    -> Text -- ^ 'cIdempotencyToken'+    -> CopyProduct+copyProduct pSourceProductARN_ pIdempotencyToken_ =+  CopyProduct'+  { _cTargetProductId = Nothing+  , _cSourceProvisioningArtifactIdentifiers = Nothing+  , _cTargetProductName = Nothing+  , _cCopyOptions = Nothing+  , _cAcceptLanguage = Nothing+  , _cSourceProductARN = pSourceProductARN_+  , _cIdempotencyToken = pIdempotencyToken_+  }+++-- | The ID of the target product. By default, a new product is created.+cTargetProductId :: Lens' CopyProduct (Maybe Text)+cTargetProductId = lens _cTargetProductId (\ s a -> s{_cTargetProductId = a});++-- | The IDs of the product versions to copy. By default, all provisioning artifacts are copied.+cSourceProvisioningArtifactIdentifiers :: Lens' CopyProduct [HashMap ProvisioningArtifactPropertyName Text]+cSourceProvisioningArtifactIdentifiers = lens _cSourceProvisioningArtifactIdentifiers (\ s a -> s{_cSourceProvisioningArtifactIdentifiers = a}) . _Default . _Coerce;++-- | A name for the target product. The default is the name of the source product.+cTargetProductName :: Lens' CopyProduct (Maybe Text)+cTargetProductName = lens _cTargetProductName (\ s a -> s{_cTargetProductName = a});++-- | The copy options. If the value is @CopyTags@ , the tags from the source product are copied to the target product.+cCopyOptions :: Lens' CopyProduct [CopyOption]+cCopyOptions = lens _cCopyOptions (\ s a -> s{_cCopyOptions = a}) . _Default . _Coerce;++-- | The language code.     * @en@ - English (default)     * @jp@ - Japanese     * @zh@ - Chinese+cAcceptLanguage :: Lens' CopyProduct (Maybe Text)+cAcceptLanguage = lens _cAcceptLanguage (\ s a -> s{_cAcceptLanguage = a});++-- | The Amazon Resource Name (ARN) of the source product.+cSourceProductARN :: Lens' CopyProduct Text+cSourceProductARN = lens _cSourceProductARN (\ s a -> s{_cSourceProductARN = a});++-- | A token to disambiguate duplicate requests. You can use the same input in multiple requests, provided that you also specify a different idempotency token for each request.+cIdempotencyToken :: Lens' CopyProduct Text+cIdempotencyToken = lens _cIdempotencyToken (\ s a -> s{_cIdempotencyToken = a});++instance AWSRequest CopyProduct where+        type Rs CopyProduct = CopyProductResponse+        request = postJSON serviceCatalog+        response+          = receiveJSON+              (\ s h x ->+                 CopyProductResponse' <$>+                   (x .?> "CopyProductToken") <*> (pure (fromEnum s)))++instance Hashable CopyProduct where++instance NFData CopyProduct where++instance ToHeaders CopyProduct where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("AWS242ServiceCatalogService.CopyProduct" ::+                       ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON CopyProduct where+        toJSON CopyProduct'{..}+          = object+              (catMaybes+                 [("TargetProductId" .=) <$> _cTargetProductId,+                  ("SourceProvisioningArtifactIdentifiers" .=) <$>+                    _cSourceProvisioningArtifactIdentifiers,+                  ("TargetProductName" .=) <$> _cTargetProductName,+                  ("CopyOptions" .=) <$> _cCopyOptions,+                  ("AcceptLanguage" .=) <$> _cAcceptLanguage,+                  Just ("SourceProductArn" .= _cSourceProductARN),+                  Just ("IdempotencyToken" .= _cIdempotencyToken)])++instance ToPath CopyProduct where+        toPath = const "/"++instance ToQuery CopyProduct where+        toQuery = const mempty++-- | /See:/ 'copyProductResponse' smart constructor.+data CopyProductResponse = CopyProductResponse'+  { _coprsCopyProductToken :: !(Maybe Text)+  , _coprsResponseStatus   :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'CopyProductResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'coprsCopyProductToken' - A unique token to pass to @DescribeCopyProductStatus@ to track the progress of the operation.+--+-- * 'coprsResponseStatus' - -- | The response status code.+copyProductResponse+    :: Int -- ^ 'coprsResponseStatus'+    -> CopyProductResponse+copyProductResponse pResponseStatus_ =+  CopyProductResponse'+  {_coprsCopyProductToken = Nothing, _coprsResponseStatus = pResponseStatus_}+++-- | A unique token to pass to @DescribeCopyProductStatus@ to track the progress of the operation.+coprsCopyProductToken :: Lens' CopyProductResponse (Maybe Text)+coprsCopyProductToken = lens _coprsCopyProductToken (\ s a -> s{_coprsCopyProductToken = a});++-- | -- | The response status code.+coprsResponseStatus :: Lens' CopyProductResponse Int+coprsResponseStatus = lens _coprsResponseStatus (\ s a -> s{_coprsResponseStatus = a});++instance NFData CopyProductResponse where

@@ -12,13 +12,13 @@  -- | -- Module      : Network.AWS.ServiceCatalog.CreateConstraint--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Creates a new constraint.+-- Creates a new constraint. For more information, see <http://docs.aws.amazon.com/servicecatalog/latest/adminguide/constraints.html Using Constraints> . -- -- module Network.AWS.ServiceCatalog.CreateConstraint@@ -45,29 +45,30 @@     , ccrsResponseStatus     ) where -import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response-import           Network.AWS.ServiceCatalog.Types-import           Network.AWS.ServiceCatalog.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.ServiceCatalog.Types+import Network.AWS.ServiceCatalog.Types.Product  -- | /See:/ 'createConstraint' smart constructor. data CreateConstraint = CreateConstraint'-    { _ccAcceptLanguage   :: !(Maybe Text)-    , _ccDescription      :: !(Maybe Text)-    , _ccPortfolioId      :: !Text-    , _ccProductId        :: !Text-    , _ccParameters       :: !Text-    , _ccType             :: !Text-    , _ccIdempotencyToken :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _ccAcceptLanguage   :: !(Maybe Text)+  , _ccDescription      :: !(Maybe Text)+  , _ccPortfolioId      :: !Text+  , _ccProductId        :: !Text+  , _ccParameters       :: !Text+  , _ccType             :: !Text+  , _ccIdempotencyToken :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'CreateConstraint' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'ccAcceptLanguage' - The language code to use for this operation. Supported language codes are as follows: "en" (English) "jp" (Japanese) "zh" (Chinese) If no code is specified, "en" is used as the default.+-- * 'ccAcceptLanguage' - The language code.     * @en@ - English (default)     * @jp@ - Japanese     * @zh@ - Chinese -- -- * 'ccDescription' - The text description of the constraint. --@@ -75,11 +76,11 @@ -- -- * 'ccProductId' - The product identifier. ----- * 'ccParameters' - The constraint parameters.+-- * 'ccParameters' - The constraint parameters. Expected values vary depending on which __Type__ is specified. For more information, see the Examples section. For Type @LAUNCH@ , the @RoleArn@ property is required.  For Type @NOTIFICATION@ , the @NotificationArns@ property is required. For Type @TEMPLATE@ , the @Rules@ property is required. ----- * 'ccType' - The type of the constraint.+-- * 'ccType' - The type of the constraint. Case-sensitive valid values are: @LAUNCH@ , @NOTIFICATION@ , or @TEMPLATE@ . ----- * 'ccIdempotencyToken' - A token to disambiguate duplicate requests. You can create multiple resources using the same input in multiple requests, provided that you also specify a different idempotency token for each request.+-- * 'ccIdempotencyToken' - A token to disambiguate duplicate requests. You can use the same input in multiple requests, provided that you also specify a different idempotency token for each request. createConstraint     :: Text -- ^ 'ccPortfolioId'     -> Text -- ^ 'ccProductId'@@ -88,17 +89,18 @@     -> Text -- ^ 'ccIdempotencyToken'     -> CreateConstraint createConstraint pPortfolioId_ pProductId_ pParameters_ pType_ pIdempotencyToken_ =-    CreateConstraint'-    { _ccAcceptLanguage = Nothing-    , _ccDescription = Nothing-    , _ccPortfolioId = pPortfolioId_-    , _ccProductId = pProductId_-    , _ccParameters = pParameters_-    , _ccType = pType_-    , _ccIdempotencyToken = pIdempotencyToken_-    }+  CreateConstraint'+  { _ccAcceptLanguage = Nothing+  , _ccDescription = Nothing+  , _ccPortfolioId = pPortfolioId_+  , _ccProductId = pProductId_+  , _ccParameters = pParameters_+  , _ccType = pType_+  , _ccIdempotencyToken = pIdempotencyToken_+  } --- | The language code to use for this operation. Supported language codes are as follows: "en" (English) "jp" (Japanese) "zh" (Chinese) If no code is specified, "en" is used as the default.++-- | The language code.     * @en@ - English (default)     * @jp@ - Japanese     * @zh@ - Chinese ccAcceptLanguage :: Lens' CreateConstraint (Maybe Text) ccAcceptLanguage = lens _ccAcceptLanguage (\ s a -> s{_ccAcceptLanguage = a}); @@ -114,15 +116,15 @@ ccProductId :: Lens' CreateConstraint Text ccProductId = lens _ccProductId (\ s a -> s{_ccProductId = a}); --- | The constraint parameters.+-- | The constraint parameters. Expected values vary depending on which __Type__ is specified. For more information, see the Examples section. For Type @LAUNCH@ , the @RoleArn@ property is required.  For Type @NOTIFICATION@ , the @NotificationArns@ property is required. For Type @TEMPLATE@ , the @Rules@ property is required. ccParameters :: Lens' CreateConstraint Text ccParameters = lens _ccParameters (\ s a -> s{_ccParameters = a}); --- | The type of the constraint.+-- | The type of the constraint. Case-sensitive valid values are: @LAUNCH@ , @NOTIFICATION@ , or @TEMPLATE@ . ccType :: Lens' CreateConstraint Text ccType = lens _ccType (\ s a -> s{_ccType = a}); --- | A token to disambiguate duplicate requests. You can create multiple resources using the same input in multiple requests, provided that you also specify a different idempotency token for each request.+-- | A token to disambiguate duplicate requests. You can use the same input in multiple requests, provided that you also specify a different idempotency token for each request. ccIdempotencyToken :: Lens' CreateConstraint Text ccIdempotencyToken = lens _ccIdempotencyToken (\ s a -> s{_ccIdempotencyToken = a}); @@ -137,9 +139,9 @@                      (x .?> "ConstraintParameters")                      <*> (pure (fromEnum s))) -instance Hashable CreateConstraint+instance Hashable CreateConstraint where -instance NFData CreateConstraint+instance NFData CreateConstraint where  instance ToHeaders CreateConstraint where         toHeaders@@ -171,12 +173,13 @@  -- | /See:/ 'createConstraintResponse' smart constructor. data CreateConstraintResponse = CreateConstraintResponse'-    { _ccrsStatus               :: !(Maybe RequestStatus)-    , _ccrsConstraintDetail     :: !(Maybe ConstraintDetail)-    , _ccrsConstraintParameters :: !(Maybe Text)-    , _ccrsResponseStatus       :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _ccrsStatus               :: !(Maybe RequestStatus)+  , _ccrsConstraintDetail     :: !(Maybe ConstraintDetail)+  , _ccrsConstraintParameters :: !(Maybe Text)+  , _ccrsResponseStatus       :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'CreateConstraintResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -192,13 +195,14 @@     :: Int -- ^ 'ccrsResponseStatus'     -> CreateConstraintResponse createConstraintResponse pResponseStatus_ =-    CreateConstraintResponse'-    { _ccrsStatus = Nothing-    , _ccrsConstraintDetail = Nothing-    , _ccrsConstraintParameters = Nothing-    , _ccrsResponseStatus = pResponseStatus_-    }+  CreateConstraintResponse'+  { _ccrsStatus = Nothing+  , _ccrsConstraintDetail = Nothing+  , _ccrsConstraintParameters = Nothing+  , _ccrsResponseStatus = pResponseStatus_+  } + -- | The status of the current request. ccrsStatus :: Lens' CreateConstraintResponse (Maybe RequestStatus) ccrsStatus = lens _ccrsStatus (\ s a -> s{_ccrsStatus = a});@@ -215,4 +219,4 @@ ccrsResponseStatus :: Lens' CreateConstraintResponse Int ccrsResponseStatus = lens _ccrsResponseStatus (\ s a -> s{_ccrsResponseStatus = a}); -instance NFData CreateConstraintResponse+instance NFData CreateConstraintResponse where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.ServiceCatalog.CreatePortfolio--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -27,12 +27,12 @@       createPortfolio     , CreatePortfolio     -- * Request Lenses-    , cAcceptLanguage-    , cDescription-    , cTags-    , cDisplayName-    , cProviderName-    , cIdempotencyToken+    , creAcceptLanguage+    , creDescription+    , creTags+    , creDisplayName+    , creProviderName+    , creIdempotencyToken      -- * Destructuring the Response     , createPortfolioResponse@@ -43,76 +43,78 @@     , crsResponseStatus     ) where -import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response-import           Network.AWS.ServiceCatalog.Types-import           Network.AWS.ServiceCatalog.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.ServiceCatalog.Types+import Network.AWS.ServiceCatalog.Types.Product  -- | /See:/ 'createPortfolio' smart constructor. data CreatePortfolio = CreatePortfolio'-    { _cAcceptLanguage   :: !(Maybe Text)-    , _cDescription      :: !(Maybe Text)-    , _cTags             :: !(Maybe [Tag])-    , _cDisplayName      :: !Text-    , _cProviderName     :: !Text-    , _cIdempotencyToken :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _creAcceptLanguage   :: !(Maybe Text)+  , _creDescription      :: !(Maybe Text)+  , _creTags             :: !(Maybe [Tag])+  , _creDisplayName      :: !Text+  , _creProviderName     :: !Text+  , _creIdempotencyToken :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'CreatePortfolio' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'cAcceptLanguage' - The language code to use for this operation. Supported language codes are as follows: "en" (English) "jp" (Japanese) "zh" (Chinese) If no code is specified, "en" is used as the default.+-- * 'creAcceptLanguage' - The language code.     * @en@ - English (default)     * @jp@ - Japanese     * @zh@ - Chinese ----- * 'cDescription' - The text description of the portfolio.+-- * 'creDescription' - The text description of the portfolio. ----- * 'cTags' - Tags to associate with the new portfolio.+-- * 'creTags' - Tags to associate with the new portfolio. ----- * 'cDisplayName' - The name to use for display purposes.+-- * 'creDisplayName' - The name to use for display purposes. ----- * 'cProviderName' - The name of the portfolio provider.+-- * 'creProviderName' - The name of the portfolio provider. ----- * 'cIdempotencyToken' - A token to disambiguate duplicate requests. You can create multiple resources using the same input in multiple requests, provided that you also specify a different idempotency token for each request.+-- * 'creIdempotencyToken' - A token to disambiguate duplicate requests. You can use the same input in multiple requests, provided that you also specify a different idempotency token for each request. createPortfolio-    :: Text -- ^ 'cDisplayName'-    -> Text -- ^ 'cProviderName'-    -> Text -- ^ 'cIdempotencyToken'+    :: Text -- ^ 'creDisplayName'+    -> Text -- ^ 'creProviderName'+    -> Text -- ^ 'creIdempotencyToken'     -> CreatePortfolio createPortfolio pDisplayName_ pProviderName_ pIdempotencyToken_ =-    CreatePortfolio'-    { _cAcceptLanguage = Nothing-    , _cDescription = Nothing-    , _cTags = Nothing-    , _cDisplayName = pDisplayName_-    , _cProviderName = pProviderName_-    , _cIdempotencyToken = pIdempotencyToken_-    }+  CreatePortfolio'+  { _creAcceptLanguage = Nothing+  , _creDescription = Nothing+  , _creTags = Nothing+  , _creDisplayName = pDisplayName_+  , _creProviderName = pProviderName_+  , _creIdempotencyToken = pIdempotencyToken_+  } --- | The language code to use for this operation. Supported language codes are as follows: "en" (English) "jp" (Japanese) "zh" (Chinese) If no code is specified, "en" is used as the default.-cAcceptLanguage :: Lens' CreatePortfolio (Maybe Text)-cAcceptLanguage = lens _cAcceptLanguage (\ s a -> s{_cAcceptLanguage = a}); +-- | The language code.     * @en@ - English (default)     * @jp@ - Japanese     * @zh@ - Chinese+creAcceptLanguage :: Lens' CreatePortfolio (Maybe Text)+creAcceptLanguage = lens _creAcceptLanguage (\ s a -> s{_creAcceptLanguage = a});+ -- | The text description of the portfolio.-cDescription :: Lens' CreatePortfolio (Maybe Text)-cDescription = lens _cDescription (\ s a -> s{_cDescription = a});+creDescription :: Lens' CreatePortfolio (Maybe Text)+creDescription = lens _creDescription (\ s a -> s{_creDescription = a});  -- | Tags to associate with the new portfolio.-cTags :: Lens' CreatePortfolio [Tag]-cTags = lens _cTags (\ s a -> s{_cTags = a}) . _Default . _Coerce;+creTags :: Lens' CreatePortfolio [Tag]+creTags = lens _creTags (\ s a -> s{_creTags = a}) . _Default . _Coerce;  -- | The name to use for display purposes.-cDisplayName :: Lens' CreatePortfolio Text-cDisplayName = lens _cDisplayName (\ s a -> s{_cDisplayName = a});+creDisplayName :: Lens' CreatePortfolio Text+creDisplayName = lens _creDisplayName (\ s a -> s{_creDisplayName = a});  -- | The name of the portfolio provider.-cProviderName :: Lens' CreatePortfolio Text-cProviderName = lens _cProviderName (\ s a -> s{_cProviderName = a});+creProviderName :: Lens' CreatePortfolio Text+creProviderName = lens _creProviderName (\ s a -> s{_creProviderName = a}); --- | A token to disambiguate duplicate requests. You can create multiple resources using the same input in multiple requests, provided that you also specify a different idempotency token for each request.-cIdempotencyToken :: Lens' CreatePortfolio Text-cIdempotencyToken = lens _cIdempotencyToken (\ s a -> s{_cIdempotencyToken = a});+-- | A token to disambiguate duplicate requests. You can use the same input in multiple requests, provided that you also specify a different idempotency token for each request.+creIdempotencyToken :: Lens' CreatePortfolio Text+creIdempotencyToken = lens _creIdempotencyToken (\ s a -> s{_creIdempotencyToken = a});  instance AWSRequest CreatePortfolio where         type Rs CreatePortfolio = CreatePortfolioResponse@@ -125,9 +127,9 @@                      (x .?> "Tags" .!@ mempty)                      <*> (pure (fromEnum s))) -instance Hashable CreatePortfolio+instance Hashable CreatePortfolio where -instance NFData CreatePortfolio+instance NFData CreatePortfolio where  instance ToHeaders CreatePortfolio where         toHeaders@@ -143,12 +145,12 @@         toJSON CreatePortfolio'{..}           = object               (catMaybes-                 [("AcceptLanguage" .=) <$> _cAcceptLanguage,-                  ("Description" .=) <$> _cDescription,-                  ("Tags" .=) <$> _cTags,-                  Just ("DisplayName" .= _cDisplayName),-                  Just ("ProviderName" .= _cProviderName),-                  Just ("IdempotencyToken" .= _cIdempotencyToken)])+                 [("AcceptLanguage" .=) <$> _creAcceptLanguage,+                  ("Description" .=) <$> _creDescription,+                  ("Tags" .=) <$> _creTags,+                  Just ("DisplayName" .= _creDisplayName),+                  Just ("ProviderName" .= _creProviderName),+                  Just ("IdempotencyToken" .= _creIdempotencyToken)])  instance ToPath CreatePortfolio where         toPath = const "/"@@ -158,11 +160,12 @@  -- | /See:/ 'createPortfolioResponse' smart constructor. data CreatePortfolioResponse = CreatePortfolioResponse'-    { _crsPortfolioDetail :: !(Maybe PortfolioDetail)-    , _crsTags            :: !(Maybe [Tag])-    , _crsResponseStatus  :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _crsPortfolioDetail :: !(Maybe PortfolioDetail)+  , _crsTags            :: !(Maybe [Tag])+  , _crsResponseStatus  :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'CreatePortfolioResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -176,12 +179,13 @@     :: Int -- ^ 'crsResponseStatus'     -> CreatePortfolioResponse createPortfolioResponse pResponseStatus_ =-    CreatePortfolioResponse'-    { _crsPortfolioDetail = Nothing-    , _crsTags = Nothing-    , _crsResponseStatus = pResponseStatus_-    }+  CreatePortfolioResponse'+  { _crsPortfolioDetail = Nothing+  , _crsTags = Nothing+  , _crsResponseStatus = pResponseStatus_+  } + -- | The resulting detailed portfolio information. crsPortfolioDetail :: Lens' CreatePortfolioResponse (Maybe PortfolioDetail) crsPortfolioDetail = lens _crsPortfolioDetail (\ s a -> s{_crsPortfolioDetail = a});@@ -194,4 +198,4 @@ crsResponseStatus :: Lens' CreatePortfolioResponse Int crsResponseStatus = lens _crsResponseStatus (\ s a -> s{_crsResponseStatus = a}); -instance NFData CreatePortfolioResponse+instance NFData CreatePortfolioResponse where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.ServiceCatalog.CreatePortfolioShare--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -38,25 +38,26 @@     , cpsrsResponseStatus     ) where -import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response-import           Network.AWS.ServiceCatalog.Types-import           Network.AWS.ServiceCatalog.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.ServiceCatalog.Types+import Network.AWS.ServiceCatalog.Types.Product  -- | /See:/ 'createPortfolioShare' smart constructor. data CreatePortfolioShare = CreatePortfolioShare'-    { _cpsAcceptLanguage :: !(Maybe Text)-    , _cpsPortfolioId    :: !Text-    , _cpsAccountId      :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _cpsAcceptLanguage :: !(Maybe Text)+  , _cpsPortfolioId    :: !Text+  , _cpsAccountId      :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'CreatePortfolioShare' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'cpsAcceptLanguage' - The language code to use for this operation. Supported language codes are as follows: "en" (English) "jp" (Japanese) "zh" (Chinese) If no code is specified, "en" is used as the default.+-- * 'cpsAcceptLanguage' - The language code.     * @en@ - English (default)     * @jp@ - Japanese     * @zh@ - Chinese -- -- * 'cpsPortfolioId' - The portfolio identifier. --@@ -66,13 +67,14 @@     -> Text -- ^ 'cpsAccountId'     -> CreatePortfolioShare createPortfolioShare pPortfolioId_ pAccountId_ =-    CreatePortfolioShare'-    { _cpsAcceptLanguage = Nothing-    , _cpsPortfolioId = pPortfolioId_-    , _cpsAccountId = pAccountId_-    }+  CreatePortfolioShare'+  { _cpsAcceptLanguage = Nothing+  , _cpsPortfolioId = pPortfolioId_+  , _cpsAccountId = pAccountId_+  } --- | The language code to use for this operation. Supported language codes are as follows: "en" (English) "jp" (Japanese) "zh" (Chinese) If no code is specified, "en" is used as the default.++-- | The language code.     * @en@ - English (default)     * @jp@ - Japanese     * @zh@ - Chinese cpsAcceptLanguage :: Lens' CreatePortfolioShare (Maybe Text) cpsAcceptLanguage = lens _cpsAcceptLanguage (\ s a -> s{_cpsAcceptLanguage = a}); @@ -94,9 +96,9 @@                  CreatePortfolioShareResponse' <$>                    (pure (fromEnum s))) -instance Hashable CreatePortfolioShare+instance Hashable CreatePortfolioShare where -instance NFData CreatePortfolioShare+instance NFData CreatePortfolioShare where  instance ToHeaders CreatePortfolioShare where         toHeaders@@ -124,9 +126,10 @@  -- | /See:/ 'createPortfolioShareResponse' smart constructor. newtype CreatePortfolioShareResponse = CreatePortfolioShareResponse'-    { _cpsrsResponseStatus :: Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _cpsrsResponseStatus :: Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'CreatePortfolioShareResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -136,12 +139,11 @@     :: Int -- ^ 'cpsrsResponseStatus'     -> CreatePortfolioShareResponse createPortfolioShareResponse pResponseStatus_ =-    CreatePortfolioShareResponse'-    { _cpsrsResponseStatus = pResponseStatus_-    }+  CreatePortfolioShareResponse' {_cpsrsResponseStatus = pResponseStatus_} + -- | -- | The response status code. cpsrsResponseStatus :: Lens' CreatePortfolioShareResponse Int cpsrsResponseStatus = lens _cpsrsResponseStatus (\ s a -> s{_cpsrsResponseStatus = a}); -instance NFData CreatePortfolioShareResponse+instance NFData CreatePortfolioShareResponse where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.ServiceCatalog.CreateProduct--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -50,29 +50,30 @@     , cprsResponseStatus     ) where -import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response-import           Network.AWS.ServiceCatalog.Types-import           Network.AWS.ServiceCatalog.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.ServiceCatalog.Types+import Network.AWS.ServiceCatalog.Types.Product  -- | /See:/ 'createProduct' smart constructor. data CreateProduct = CreateProduct'-    { _cpSupportURL                     :: !(Maybe Text)-    , _cpDistributor                    :: !(Maybe Text)-    , _cpAcceptLanguage                 :: !(Maybe Text)-    , _cpSupportEmail                   :: !(Maybe Text)-    , _cpDescription                    :: !(Maybe Text)-    , _cpTags                           :: !(Maybe [Tag])-    , _cpSupportDescription             :: !(Maybe Text)-    , _cpName                           :: !Text-    , _cpOwner                          :: !Text-    , _cpProductType                    :: !ProductType-    , _cpProvisioningArtifactParameters :: !ProvisioningArtifactProperties-    , _cpIdempotencyToken               :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _cpSupportURL                     :: !(Maybe Text)+  , _cpDistributor                    :: !(Maybe Text)+  , _cpAcceptLanguage                 :: !(Maybe Text)+  , _cpSupportEmail                   :: !(Maybe Text)+  , _cpDescription                    :: !(Maybe Text)+  , _cpTags                           :: !(Maybe [Tag])+  , _cpSupportDescription             :: !(Maybe Text)+  , _cpName                           :: !Text+  , _cpOwner                          :: !Text+  , _cpProductType                    :: !ProductType+  , _cpProvisioningArtifactParameters :: !ProvisioningArtifactProperties+  , _cpIdempotencyToken               :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'CreateProduct' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -81,7 +82,7 @@ -- -- * 'cpDistributor' - The distributor of the product. ----- * 'cpAcceptLanguage' - The language code to use for this operation. Supported language codes are as follows: "en" (English) "jp" (Japanese) "zh" (Chinese) If no code is specified, "en" is used as the default.+-- * 'cpAcceptLanguage' - The language code.     * @en@ - English (default)     * @jp@ - Japanese     * @zh@ - Chinese -- -- * 'cpSupportEmail' - Contact email for product support. --@@ -99,7 +100,7 @@ -- -- * 'cpProvisioningArtifactParameters' - Parameters for the provisioning artifact. ----- * 'cpIdempotencyToken' - A token to disambiguate duplicate requests. You can create multiple resources using the same input in multiple requests, provided that you also specify a different idempotency token for each request.+-- * 'cpIdempotencyToken' - A token to disambiguate duplicate requests. You can use the same input in multiple requests, provided that you also specify a different idempotency token for each request. createProduct     :: Text -- ^ 'cpName'     -> Text -- ^ 'cpOwner'@@ -108,21 +109,22 @@     -> Text -- ^ 'cpIdempotencyToken'     -> CreateProduct createProduct pName_ pOwner_ pProductType_ pProvisioningArtifactParameters_ pIdempotencyToken_ =-    CreateProduct'-    { _cpSupportURL = Nothing-    , _cpDistributor = Nothing-    , _cpAcceptLanguage = Nothing-    , _cpSupportEmail = Nothing-    , _cpDescription = Nothing-    , _cpTags = Nothing-    , _cpSupportDescription = Nothing-    , _cpName = pName_-    , _cpOwner = pOwner_-    , _cpProductType = pProductType_-    , _cpProvisioningArtifactParameters = pProvisioningArtifactParameters_-    , _cpIdempotencyToken = pIdempotencyToken_-    }+  CreateProduct'+  { _cpSupportURL = Nothing+  , _cpDistributor = Nothing+  , _cpAcceptLanguage = Nothing+  , _cpSupportEmail = Nothing+  , _cpDescription = Nothing+  , _cpTags = Nothing+  , _cpSupportDescription = Nothing+  , _cpName = pName_+  , _cpOwner = pOwner_+  , _cpProductType = pProductType_+  , _cpProvisioningArtifactParameters = pProvisioningArtifactParameters_+  , _cpIdempotencyToken = pIdempotencyToken_+  } + -- | Contact URL for product support. cpSupportURL :: Lens' CreateProduct (Maybe Text) cpSupportURL = lens _cpSupportURL (\ s a -> s{_cpSupportURL = a});@@ -131,7 +133,7 @@ cpDistributor :: Lens' CreateProduct (Maybe Text) cpDistributor = lens _cpDistributor (\ s a -> s{_cpDistributor = a}); --- | The language code to use for this operation. Supported language codes are as follows: "en" (English) "jp" (Japanese) "zh" (Chinese) If no code is specified, "en" is used as the default.+-- | The language code.     * @en@ - English (default)     * @jp@ - Japanese     * @zh@ - Chinese cpAcceptLanguage :: Lens' CreateProduct (Maybe Text) cpAcceptLanguage = lens _cpAcceptLanguage (\ s a -> s{_cpAcceptLanguage = a}); @@ -167,7 +169,7 @@ cpProvisioningArtifactParameters :: Lens' CreateProduct ProvisioningArtifactProperties cpProvisioningArtifactParameters = lens _cpProvisioningArtifactParameters (\ s a -> s{_cpProvisioningArtifactParameters = a}); --- | A token to disambiguate duplicate requests. You can create multiple resources using the same input in multiple requests, provided that you also specify a different idempotency token for each request.+-- | A token to disambiguate duplicate requests. You can use the same input in multiple requests, provided that you also specify a different idempotency token for each request. cpIdempotencyToken :: Lens' CreateProduct Text cpIdempotencyToken = lens _cpIdempotencyToken (\ s a -> s{_cpIdempotencyToken = a}); @@ -183,9 +185,9 @@                      <*> (x .?> "Tags" .!@ mempty)                      <*> (pure (fromEnum s))) -instance Hashable CreateProduct+instance Hashable CreateProduct where -instance NFData CreateProduct+instance NFData CreateProduct where  instance ToHeaders CreateProduct where         toHeaders@@ -223,12 +225,13 @@  -- | /See:/ 'createProductResponse' smart constructor. data CreateProductResponse = CreateProductResponse'-    { _cprsProductViewDetail          :: !(Maybe ProductViewDetail)-    , _cprsProvisioningArtifactDetail :: !(Maybe ProvisioningArtifactDetail)-    , _cprsTags                       :: !(Maybe [Tag])-    , _cprsResponseStatus             :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _cprsProductViewDetail          :: !(Maybe ProductViewDetail)+  , _cprsProvisioningArtifactDetail :: !(Maybe ProvisioningArtifactDetail)+  , _cprsTags                       :: !(Maybe [Tag])+  , _cprsResponseStatus             :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'CreateProductResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -244,13 +247,14 @@     :: Int -- ^ 'cprsResponseStatus'     -> CreateProductResponse createProductResponse pResponseStatus_ =-    CreateProductResponse'-    { _cprsProductViewDetail = Nothing-    , _cprsProvisioningArtifactDetail = Nothing-    , _cprsTags = Nothing-    , _cprsResponseStatus = pResponseStatus_-    }+  CreateProductResponse'+  { _cprsProductViewDetail = Nothing+  , _cprsProvisioningArtifactDetail = Nothing+  , _cprsTags = Nothing+  , _cprsResponseStatus = pResponseStatus_+  } + -- | The resulting detailed product view information. cprsProductViewDetail :: Lens' CreateProductResponse (Maybe ProductViewDetail) cprsProductViewDetail = lens _cprsProductViewDetail (\ s a -> s{_cprsProductViewDetail = a});@@ -267,4 +271,4 @@ cprsResponseStatus :: Lens' CreateProductResponse Int cprsResponseStatus = lens _cprsResponseStatus (\ s a -> s{_cprsResponseStatus = a}); -instance NFData CreateProductResponse+instance NFData CreateProductResponse where

@@ -12,13 +12,13 @@  -- | -- Module      : Network.AWS.ServiceCatalog.CreateProvisioningArtifact--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Create a new provisioning artifact for the specified product. This operation will not work with a product that has been shared with you.+-- Create a new provisioning artifact for the specified product. This operation does not work with a product that has been shared with you. -- -- module Network.AWS.ServiceCatalog.CreateProvisioningArtifact@@ -42,46 +42,48 @@     , cparsResponseStatus     ) where -import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response-import           Network.AWS.ServiceCatalog.Types-import           Network.AWS.ServiceCatalog.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.ServiceCatalog.Types+import Network.AWS.ServiceCatalog.Types.Product  -- | /See:/ 'createProvisioningArtifact' smart constructor. data CreateProvisioningArtifact = CreateProvisioningArtifact'-    { _cpaAcceptLanguage   :: !(Maybe Text)-    , _cpaProductId        :: !Text-    , _cpaParameters       :: !ProvisioningArtifactProperties-    , _cpaIdempotencyToken :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _cpaAcceptLanguage   :: !(Maybe Text)+  , _cpaProductId        :: !Text+  , _cpaParameters       :: !ProvisioningArtifactProperties+  , _cpaIdempotencyToken :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'CreateProvisioningArtifact' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'cpaAcceptLanguage' - The language code to use for this operation. Supported language codes are as follows: "en" (English) "jp" (Japanese) "zh" (Chinese) If no code is specified, "en" is used as the default.+-- * 'cpaAcceptLanguage' - The language code.     * @en@ - English (default)     * @jp@ - Japanese     * @zh@ - Chinese -- -- * 'cpaProductId' - The product identifier. -- -- * 'cpaParameters' - The parameters to use when creating the new provisioning artifact. ----- * 'cpaIdempotencyToken' - A token to disambiguate duplicate requests. You can create multiple resources using the same input in multiple requests, provided that you also specify a different idempotency token for each request.+-- * 'cpaIdempotencyToken' - A token to disambiguate duplicate requests. You can use the same input in multiple requests, provided that you also specify a different idempotency token for each request. createProvisioningArtifact     :: Text -- ^ 'cpaProductId'     -> ProvisioningArtifactProperties -- ^ 'cpaParameters'     -> Text -- ^ 'cpaIdempotencyToken'     -> CreateProvisioningArtifact createProvisioningArtifact pProductId_ pParameters_ pIdempotencyToken_ =-    CreateProvisioningArtifact'-    { _cpaAcceptLanguage = Nothing-    , _cpaProductId = pProductId_-    , _cpaParameters = pParameters_-    , _cpaIdempotencyToken = pIdempotencyToken_-    }+  CreateProvisioningArtifact'+  { _cpaAcceptLanguage = Nothing+  , _cpaProductId = pProductId_+  , _cpaParameters = pParameters_+  , _cpaIdempotencyToken = pIdempotencyToken_+  } --- | The language code to use for this operation. Supported language codes are as follows: "en" (English) "jp" (Japanese) "zh" (Chinese) If no code is specified, "en" is used as the default.++-- | The language code.     * @en@ - English (default)     * @jp@ - Japanese     * @zh@ - Chinese cpaAcceptLanguage :: Lens' CreateProvisioningArtifact (Maybe Text) cpaAcceptLanguage = lens _cpaAcceptLanguage (\ s a -> s{_cpaAcceptLanguage = a}); @@ -93,7 +95,7 @@ cpaParameters :: Lens' CreateProvisioningArtifact ProvisioningArtifactProperties cpaParameters = lens _cpaParameters (\ s a -> s{_cpaParameters = a}); --- | A token to disambiguate duplicate requests. You can create multiple resources using the same input in multiple requests, provided that you also specify a different idempotency token for each request.+-- | A token to disambiguate duplicate requests. You can use the same input in multiple requests, provided that you also specify a different idempotency token for each request. cpaIdempotencyToken :: Lens' CreateProvisioningArtifact Text cpaIdempotencyToken = lens _cpaIdempotencyToken (\ s a -> s{_cpaIdempotencyToken = a}); @@ -109,9 +111,9 @@                      (x .?> "ProvisioningArtifactDetail")                      <*> (pure (fromEnum s))) -instance Hashable CreateProvisioningArtifact+instance Hashable CreateProvisioningArtifact where -instance NFData CreateProvisioningArtifact+instance NFData CreateProvisioningArtifact where  instance ToHeaders CreateProvisioningArtifact where         toHeaders@@ -140,19 +142,20 @@  -- | /See:/ 'createProvisioningArtifactResponse' smart constructor. data CreateProvisioningArtifactResponse = CreateProvisioningArtifactResponse'-    { _cparsStatus                     :: !(Maybe RequestStatus)-    , _cparsInfo                       :: !(Maybe (Map Text Text))-    , _cparsProvisioningArtifactDetail :: !(Maybe ProvisioningArtifactDetail)-    , _cparsResponseStatus             :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _cparsStatus                     :: !(Maybe RequestStatus)+  , _cparsInfo                       :: !(Maybe (Map Text Text))+  , _cparsProvisioningArtifactDetail :: !(Maybe ProvisioningArtifactDetail)+  , _cparsResponseStatus             :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'CreateProvisioningArtifactResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: -- -- * 'cparsStatus' - The status of the current request. ----- * 'cparsInfo' - Additional information about the provisioning artifact create request.+-- * 'cparsInfo' - Additional information about the creation request for the provisioning artifact. -- -- * 'cparsProvisioningArtifactDetail' - The resulting detailed provisioning artifact information. --@@ -161,18 +164,19 @@     :: Int -- ^ 'cparsResponseStatus'     -> CreateProvisioningArtifactResponse createProvisioningArtifactResponse pResponseStatus_ =-    CreateProvisioningArtifactResponse'-    { _cparsStatus = Nothing-    , _cparsInfo = Nothing-    , _cparsProvisioningArtifactDetail = Nothing-    , _cparsResponseStatus = pResponseStatus_-    }+  CreateProvisioningArtifactResponse'+  { _cparsStatus = Nothing+  , _cparsInfo = Nothing+  , _cparsProvisioningArtifactDetail = Nothing+  , _cparsResponseStatus = pResponseStatus_+  } + -- | The status of the current request. cparsStatus :: Lens' CreateProvisioningArtifactResponse (Maybe RequestStatus) cparsStatus = lens _cparsStatus (\ s a -> s{_cparsStatus = a}); --- | Additional information about the provisioning artifact create request.+-- | Additional information about the creation request for the provisioning artifact. cparsInfo :: Lens' CreateProvisioningArtifactResponse (HashMap Text Text) cparsInfo = lens _cparsInfo (\ s a -> s{_cparsInfo = a}) . _Default . _Map; @@ -185,3 +189,4 @@ cparsResponseStatus = lens _cparsResponseStatus (\ s a -> s{_cparsResponseStatus = a});  instance NFData CreateProvisioningArtifactResponse+         where

@@ -0,0 +1,144 @@+{-# 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.ServiceCatalog.CreateTagOption+-- Copyright   : (c) 2013-2017 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Create a new TagOption.+--+--+module Network.AWS.ServiceCatalog.CreateTagOption+    (+    -- * Creating a Request+      createTagOption+    , CreateTagOption+    -- * Request Lenses+    , ctoKey+    , ctoValue++    -- * Destructuring the Response+    , createTagOptionResponse+    , CreateTagOptionResponse+    -- * Response Lenses+    , ctorsTagOptionDetail+    , ctorsResponseStatus+    ) where++import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.ServiceCatalog.Types+import Network.AWS.ServiceCatalog.Types.Product++-- | /See:/ 'createTagOption' smart constructor.+data CreateTagOption = CreateTagOption'+  { _ctoKey   :: !Text+  , _ctoValue :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'CreateTagOption' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'ctoKey' - The TagOption key.+--+-- * 'ctoValue' - The TagOption value.+createTagOption+    :: Text -- ^ 'ctoKey'+    -> Text -- ^ 'ctoValue'+    -> CreateTagOption+createTagOption pKey_ pValue_ =+  CreateTagOption' {_ctoKey = pKey_, _ctoValue = pValue_}+++-- | The TagOption key.+ctoKey :: Lens' CreateTagOption Text+ctoKey = lens _ctoKey (\ s a -> s{_ctoKey = a});++-- | The TagOption value.+ctoValue :: Lens' CreateTagOption Text+ctoValue = lens _ctoValue (\ s a -> s{_ctoValue = a});++instance AWSRequest CreateTagOption where+        type Rs CreateTagOption = CreateTagOptionResponse+        request = postJSON serviceCatalog+        response+          = receiveJSON+              (\ s h x ->+                 CreateTagOptionResponse' <$>+                   (x .?> "TagOptionDetail") <*> (pure (fromEnum s)))++instance Hashable CreateTagOption where++instance NFData CreateTagOption where++instance ToHeaders CreateTagOption where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("AWS242ServiceCatalogService.CreateTagOption" ::+                       ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON CreateTagOption where+        toJSON CreateTagOption'{..}+          = object+              (catMaybes+                 [Just ("Key" .= _ctoKey),+                  Just ("Value" .= _ctoValue)])++instance ToPath CreateTagOption where+        toPath = const "/"++instance ToQuery CreateTagOption where+        toQuery = const mempty++-- | /See:/ 'createTagOptionResponse' smart constructor.+data CreateTagOptionResponse = CreateTagOptionResponse'+  { _ctorsTagOptionDetail :: !(Maybe TagOptionDetail)+  , _ctorsResponseStatus  :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'CreateTagOptionResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'ctorsTagOptionDetail' - The resulting detailed TagOption information.+--+-- * 'ctorsResponseStatus' - -- | The response status code.+createTagOptionResponse+    :: Int -- ^ 'ctorsResponseStatus'+    -> CreateTagOptionResponse+createTagOptionResponse pResponseStatus_ =+  CreateTagOptionResponse'+  {_ctorsTagOptionDetail = Nothing, _ctorsResponseStatus = pResponseStatus_}+++-- | The resulting detailed TagOption information.+ctorsTagOptionDetail :: Lens' CreateTagOptionResponse (Maybe TagOptionDetail)+ctorsTagOptionDetail = lens _ctorsTagOptionDetail (\ s a -> s{_ctorsTagOptionDetail = a});++-- | -- | The response status code.+ctorsResponseStatus :: Lens' CreateTagOptionResponse Int+ctorsResponseStatus = lens _ctorsResponseStatus (\ s a -> s{_ctorsResponseStatus = a});++instance NFData CreateTagOptionResponse where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.ServiceCatalog.DeleteConstraint--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -37,36 +37,35 @@     , dcrsResponseStatus     ) where -import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response-import           Network.AWS.ServiceCatalog.Types-import           Network.AWS.ServiceCatalog.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.ServiceCatalog.Types+import Network.AWS.ServiceCatalog.Types.Product  -- | /See:/ 'deleteConstraint' smart constructor. data DeleteConstraint = DeleteConstraint'-    { _dcAcceptLanguage :: !(Maybe Text)-    , _dcId             :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _dcAcceptLanguage :: !(Maybe Text)+  , _dcId             :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeleteConstraint' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'dcAcceptLanguage' - The language code to use for this operation. Supported language codes are as follows: "en" (English) "jp" (Japanese) "zh" (Chinese) If no code is specified, "en" is used as the default.+-- * 'dcAcceptLanguage' - The language code.     * @en@ - English (default)     * @jp@ - Japanese     * @zh@ - Chinese -- -- * 'dcId' - The identifier of the constraint to delete. deleteConstraint     :: Text -- ^ 'dcId'     -> DeleteConstraint deleteConstraint pId_ =-    DeleteConstraint'-    { _dcAcceptLanguage = Nothing-    , _dcId = pId_-    }+  DeleteConstraint' {_dcAcceptLanguage = Nothing, _dcId = pId_} --- | The language code to use for this operation. Supported language codes are as follows: "en" (English) "jp" (Japanese) "zh" (Chinese) If no code is specified, "en" is used as the default.++-- | The language code.     * @en@ - English (default)     * @jp@ - Japanese     * @zh@ - Chinese dcAcceptLanguage :: Lens' DeleteConstraint (Maybe Text) dcAcceptLanguage = lens _dcAcceptLanguage (\ s a -> s{_dcAcceptLanguage = a}); @@ -82,9 +81,9 @@               (\ s h x ->                  DeleteConstraintResponse' <$> (pure (fromEnum s))) -instance Hashable DeleteConstraint+instance Hashable DeleteConstraint where -instance NFData DeleteConstraint+instance NFData DeleteConstraint where  instance ToHeaders DeleteConstraint where         toHeaders@@ -111,9 +110,10 @@  -- | /See:/ 'deleteConstraintResponse' smart constructor. newtype DeleteConstraintResponse = DeleteConstraintResponse'-    { _dcrsResponseStatus :: Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _dcrsResponseStatus :: Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeleteConstraintResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -123,12 +123,11 @@     :: Int -- ^ 'dcrsResponseStatus'     -> DeleteConstraintResponse deleteConstraintResponse pResponseStatus_ =-    DeleteConstraintResponse'-    { _dcrsResponseStatus = pResponseStatus_-    }+  DeleteConstraintResponse' {_dcrsResponseStatus = pResponseStatus_} + -- | -- | The response status code. dcrsResponseStatus :: Lens' DeleteConstraintResponse Int dcrsResponseStatus = lens _dcrsResponseStatus (\ s a -> s{_dcrsResponseStatus = a}); -instance NFData DeleteConstraintResponse+instance NFData DeleteConstraintResponse where

@@ -12,13 +12,13 @@  -- | -- Module      : Network.AWS.ServiceCatalog.DeletePortfolio--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Deletes the specified portfolio. This operation will not work with a portfolio that has been shared with you or if it has products, users, constraints, or shared accounts associated with it.+-- Deletes the specified portfolio. This operation does not work with a portfolio that has been shared with you or if it has products, users, constraints, or shared accounts associated with it. -- -- module Network.AWS.ServiceCatalog.DeletePortfolio@@ -37,36 +37,35 @@     , delrsResponseStatus     ) where -import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response-import           Network.AWS.ServiceCatalog.Types-import           Network.AWS.ServiceCatalog.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.ServiceCatalog.Types+import Network.AWS.ServiceCatalog.Types.Product  -- | /See:/ 'deletePortfolio' smart constructor. data DeletePortfolio = DeletePortfolio'-    { _dppAcceptLanguage :: !(Maybe Text)-    , _dppId             :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _dppAcceptLanguage :: !(Maybe Text)+  , _dppId             :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeletePortfolio' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'dppAcceptLanguage' - The language code to use for this operation. Supported language codes are as follows: "en" (English) "jp" (Japanese) "zh" (Chinese) If no code is specified, "en" is used as the default.+-- * 'dppAcceptLanguage' - The language code.     * @en@ - English (default)     * @jp@ - Japanese     * @zh@ - Chinese -- -- * 'dppId' - The identifier of the portfolio for the delete request. deletePortfolio     :: Text -- ^ 'dppId'     -> DeletePortfolio deletePortfolio pId_ =-    DeletePortfolio'-    { _dppAcceptLanguage = Nothing-    , _dppId = pId_-    }+  DeletePortfolio' {_dppAcceptLanguage = Nothing, _dppId = pId_} --- | The language code to use for this operation. Supported language codes are as follows: "en" (English) "jp" (Japanese) "zh" (Chinese) If no code is specified, "en" is used as the default.++-- | The language code.     * @en@ - English (default)     * @jp@ - Japanese     * @zh@ - Chinese dppAcceptLanguage :: Lens' DeletePortfolio (Maybe Text) dppAcceptLanguage = lens _dppAcceptLanguage (\ s a -> s{_dppAcceptLanguage = a}); @@ -82,9 +81,9 @@               (\ s h x ->                  DeletePortfolioResponse' <$> (pure (fromEnum s))) -instance Hashable DeletePortfolio+instance Hashable DeletePortfolio where -instance NFData DeletePortfolio+instance NFData DeletePortfolio where  instance ToHeaders DeletePortfolio where         toHeaders@@ -111,9 +110,10 @@  -- | /See:/ 'deletePortfolioResponse' smart constructor. newtype DeletePortfolioResponse = DeletePortfolioResponse'-    { _delrsResponseStatus :: Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _delrsResponseStatus :: Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeletePortfolioResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -123,12 +123,11 @@     :: Int -- ^ 'delrsResponseStatus'     -> DeletePortfolioResponse deletePortfolioResponse pResponseStatus_ =-    DeletePortfolioResponse'-    { _delrsResponseStatus = pResponseStatus_-    }+  DeletePortfolioResponse' {_delrsResponseStatus = pResponseStatus_} + -- | -- | The response status code. delrsResponseStatus :: Lens' DeletePortfolioResponse Int delrsResponseStatus = lens _delrsResponseStatus (\ s a -> s{_delrsResponseStatus = a}); -instance NFData DeletePortfolioResponse+instance NFData DeletePortfolioResponse where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.ServiceCatalog.DeletePortfolioShare--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -38,25 +38,26 @@     , dpsrsResponseStatus     ) where -import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response-import           Network.AWS.ServiceCatalog.Types-import           Network.AWS.ServiceCatalog.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.ServiceCatalog.Types+import Network.AWS.ServiceCatalog.Types.Product  -- | /See:/ 'deletePortfolioShare' smart constructor. data DeletePortfolioShare = DeletePortfolioShare'-    { _dpsAcceptLanguage :: !(Maybe Text)-    , _dpsPortfolioId    :: !Text-    , _dpsAccountId      :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _dpsAcceptLanguage :: !(Maybe Text)+  , _dpsPortfolioId    :: !Text+  , _dpsAccountId      :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeletePortfolioShare' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'dpsAcceptLanguage' - The language code to use for this operation. Supported language codes are as follows: "en" (English) "jp" (Japanese) "zh" (Chinese) If no code is specified, "en" is used as the default.+-- * 'dpsAcceptLanguage' - The language code.     * @en@ - English (default)     * @jp@ - Japanese     * @zh@ - Chinese -- -- * 'dpsPortfolioId' - The portfolio identifier. --@@ -66,13 +67,14 @@     -> Text -- ^ 'dpsAccountId'     -> DeletePortfolioShare deletePortfolioShare pPortfolioId_ pAccountId_ =-    DeletePortfolioShare'-    { _dpsAcceptLanguage = Nothing-    , _dpsPortfolioId = pPortfolioId_-    , _dpsAccountId = pAccountId_-    }+  DeletePortfolioShare'+  { _dpsAcceptLanguage = Nothing+  , _dpsPortfolioId = pPortfolioId_+  , _dpsAccountId = pAccountId_+  } --- | The language code to use for this operation. Supported language codes are as follows: "en" (English) "jp" (Japanese) "zh" (Chinese) If no code is specified, "en" is used as the default.++-- | The language code.     * @en@ - English (default)     * @jp@ - Japanese     * @zh@ - Chinese dpsAcceptLanguage :: Lens' DeletePortfolioShare (Maybe Text) dpsAcceptLanguage = lens _dpsAcceptLanguage (\ s a -> s{_dpsAcceptLanguage = a}); @@ -94,9 +96,9 @@                  DeletePortfolioShareResponse' <$>                    (pure (fromEnum s))) -instance Hashable DeletePortfolioShare+instance Hashable DeletePortfolioShare where -instance NFData DeletePortfolioShare+instance NFData DeletePortfolioShare where  instance ToHeaders DeletePortfolioShare where         toHeaders@@ -124,9 +126,10 @@  -- | /See:/ 'deletePortfolioShareResponse' smart constructor. newtype DeletePortfolioShareResponse = DeletePortfolioShareResponse'-    { _dpsrsResponseStatus :: Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _dpsrsResponseStatus :: Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeletePortfolioShareResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -136,12 +139,11 @@     :: Int -- ^ 'dpsrsResponseStatus'     -> DeletePortfolioShareResponse deletePortfolioShareResponse pResponseStatus_ =-    DeletePortfolioShareResponse'-    { _dpsrsResponseStatus = pResponseStatus_-    }+  DeletePortfolioShareResponse' {_dpsrsResponseStatus = pResponseStatus_} + -- | -- | The response status code. dpsrsResponseStatus :: Lens' DeletePortfolioShareResponse Int dpsrsResponseStatus = lens _dpsrsResponseStatus (\ s a -> s{_dpsrsResponseStatus = a}); -instance NFData DeletePortfolioShareResponse+instance NFData DeletePortfolioShareResponse where

@@ -12,13 +12,13 @@  -- | -- Module      : Network.AWS.ServiceCatalog.DeleteProduct--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Deletes the specified product. This operation will not work with a product that has been shared with you or is associated with a portfolio.+-- Deletes the specified product. This operation does not work with a product that has been shared with you or is associated with a portfolio. -- -- module Network.AWS.ServiceCatalog.DeleteProduct@@ -37,36 +37,35 @@     , delersResponseStatus     ) where -import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response-import           Network.AWS.ServiceCatalog.Types-import           Network.AWS.ServiceCatalog.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.ServiceCatalog.Types+import Network.AWS.ServiceCatalog.Types.Product  -- | /See:/ 'deleteProduct' smart constructor. data DeleteProduct = DeleteProduct'-    { _delAcceptLanguage :: !(Maybe Text)-    , _delId             :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _delAcceptLanguage :: !(Maybe Text)+  , _delId             :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeleteProduct' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'delAcceptLanguage' - The language code to use for this operation. Supported language codes are as follows: "en" (English) "jp" (Japanese) "zh" (Chinese) If no code is specified, "en" is used as the default.+-- * 'delAcceptLanguage' - The language code.     * @en@ - English (default)     * @jp@ - Japanese     * @zh@ - Chinese -- -- * 'delId' - The identifier of the product for the delete request. deleteProduct     :: Text -- ^ 'delId'     -> DeleteProduct deleteProduct pId_ =-    DeleteProduct'-    { _delAcceptLanguage = Nothing-    , _delId = pId_-    }+  DeleteProduct' {_delAcceptLanguage = Nothing, _delId = pId_} --- | The language code to use for this operation. Supported language codes are as follows: "en" (English) "jp" (Japanese) "zh" (Chinese) If no code is specified, "en" is used as the default.++-- | The language code.     * @en@ - English (default)     * @jp@ - Japanese     * @zh@ - Chinese delAcceptLanguage :: Lens' DeleteProduct (Maybe Text) delAcceptLanguage = lens _delAcceptLanguage (\ s a -> s{_delAcceptLanguage = a}); @@ -82,9 +81,9 @@               (\ s h x ->                  DeleteProductResponse' <$> (pure (fromEnum s))) -instance Hashable DeleteProduct+instance Hashable DeleteProduct where -instance NFData DeleteProduct+instance NFData DeleteProduct where  instance ToHeaders DeleteProduct where         toHeaders@@ -111,9 +110,10 @@  -- | /See:/ 'deleteProductResponse' smart constructor. newtype DeleteProductResponse = DeleteProductResponse'-    { _delersResponseStatus :: Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _delersResponseStatus :: Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeleteProductResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -123,12 +123,11 @@     :: Int -- ^ 'delersResponseStatus'     -> DeleteProductResponse deleteProductResponse pResponseStatus_ =-    DeleteProductResponse'-    { _delersResponseStatus = pResponseStatus_-    }+  DeleteProductResponse' {_delersResponseStatus = pResponseStatus_} + -- | -- | The response status code. delersResponseStatus :: Lens' DeleteProductResponse Int delersResponseStatus = lens _delersResponseStatus (\ s a -> s{_delersResponseStatus = a}); -instance NFData DeleteProductResponse+instance NFData DeleteProductResponse where

@@ -12,13 +12,13 @@  -- | -- Module      : Network.AWS.ServiceCatalog.DeleteProvisioningArtifact--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Deletes the specified provisioning artifact. This operation will not work on a provisioning artifact associated with a product that has been shared with you, or on the last provisioning artifact associated with a product (a product must have at least one provisioning artifact).+-- Deletes the specified provisioning artifact. This operation does not work on a provisioning artifact associated with a product that has been shared with you, or on the last provisioning artifact associated with a product (a product must have at least one provisioning artifact). -- -- module Network.AWS.ServiceCatalog.DeleteProvisioningArtifact@@ -38,41 +38,43 @@     , dparsResponseStatus     ) where -import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response-import           Network.AWS.ServiceCatalog.Types-import           Network.AWS.ServiceCatalog.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.ServiceCatalog.Types+import Network.AWS.ServiceCatalog.Types.Product  -- | /See:/ 'deleteProvisioningArtifact' smart constructor. data DeleteProvisioningArtifact = DeleteProvisioningArtifact'-    { _dpapAcceptLanguage         :: !(Maybe Text)-    , _dpapProductId              :: !Text-    , _dpapProvisioningArtifactId :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _dpapAcceptLanguage         :: !(Maybe Text)+  , _dpapProductId              :: !Text+  , _dpapProvisioningArtifactId :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeleteProvisioningArtifact' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'dpapAcceptLanguage' - The language code to use for this operation. Supported language codes are as follows: "en" (English) "jp" (Japanese) "zh" (Chinese) If no code is specified, "en" is used as the default.+-- * 'dpapAcceptLanguage' - The language code.     * @en@ - English (default)     * @jp@ - Japanese     * @zh@ - Chinese -- -- * 'dpapProductId' - The product identifier. ----- * 'dpapProvisioningArtifactId' - The identifier of the provisioning artifact for the delete request.+-- * 'dpapProvisioningArtifactId' - The identifier of the provisioning artifact for the delete request. This is sometimes referred to as the product version. deleteProvisioningArtifact     :: Text -- ^ 'dpapProductId'     -> Text -- ^ 'dpapProvisioningArtifactId'     -> DeleteProvisioningArtifact deleteProvisioningArtifact pProductId_ pProvisioningArtifactId_ =-    DeleteProvisioningArtifact'-    { _dpapAcceptLanguage = Nothing-    , _dpapProductId = pProductId_-    , _dpapProvisioningArtifactId = pProvisioningArtifactId_-    }+  DeleteProvisioningArtifact'+  { _dpapAcceptLanguage = Nothing+  , _dpapProductId = pProductId_+  , _dpapProvisioningArtifactId = pProvisioningArtifactId_+  } --- | The language code to use for this operation. Supported language codes are as follows: "en" (English) "jp" (Japanese) "zh" (Chinese) If no code is specified, "en" is used as the default.++-- | The language code.     * @en@ - English (default)     * @jp@ - Japanese     * @zh@ - Chinese dpapAcceptLanguage :: Lens' DeleteProvisioningArtifact (Maybe Text) dpapAcceptLanguage = lens _dpapAcceptLanguage (\ s a -> s{_dpapAcceptLanguage = a}); @@ -80,7 +82,7 @@ dpapProductId :: Lens' DeleteProvisioningArtifact Text dpapProductId = lens _dpapProductId (\ s a -> s{_dpapProductId = a}); --- | The identifier of the provisioning artifact for the delete request.+-- | The identifier of the provisioning artifact for the delete request. This is sometimes referred to as the product version. dpapProvisioningArtifactId :: Lens' DeleteProvisioningArtifact Text dpapProvisioningArtifactId = lens _dpapProvisioningArtifactId (\ s a -> s{_dpapProvisioningArtifactId = a}); @@ -94,9 +96,9 @@                  DeleteProvisioningArtifactResponse' <$>                    (pure (fromEnum s))) -instance Hashable DeleteProvisioningArtifact+instance Hashable DeleteProvisioningArtifact where -instance NFData DeleteProvisioningArtifact+instance NFData DeleteProvisioningArtifact where  instance ToHeaders DeleteProvisioningArtifact where         toHeaders@@ -126,9 +128,10 @@  -- | /See:/ 'deleteProvisioningArtifactResponse' smart constructor. newtype DeleteProvisioningArtifactResponse = DeleteProvisioningArtifactResponse'-    { _dparsResponseStatus :: Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _dparsResponseStatus :: Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeleteProvisioningArtifactResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -138,12 +141,12 @@     :: Int -- ^ 'dparsResponseStatus'     -> DeleteProvisioningArtifactResponse deleteProvisioningArtifactResponse pResponseStatus_ =-    DeleteProvisioningArtifactResponse'-    { _dparsResponseStatus = pResponseStatus_-    }+  DeleteProvisioningArtifactResponse' {_dparsResponseStatus = pResponseStatus_} + -- | -- | The response status code. dparsResponseStatus :: Lens' DeleteProvisioningArtifactResponse Int dparsResponseStatus = lens _dparsResponseStatus (\ s a -> s{_dparsResponseStatus = a});  instance NFData DeleteProvisioningArtifactResponse+         where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.ServiceCatalog.DescribeConstraint--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -34,42 +34,41 @@     , describeConstraintResponse     , DescribeConstraintResponse     -- * Response Lenses-    , drsStatus-    , drsConstraintDetail-    , drsConstraintParameters-    , drsResponseStatus+    , desrsStatus+    , desrsConstraintDetail+    , desrsConstraintParameters+    , desrsResponseStatus     ) where -import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response-import           Network.AWS.ServiceCatalog.Types-import           Network.AWS.ServiceCatalog.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.ServiceCatalog.Types+import Network.AWS.ServiceCatalog.Types.Product  -- | /See:/ 'describeConstraint' smart constructor. data DescribeConstraint = DescribeConstraint'-    { _dAcceptLanguage :: !(Maybe Text)-    , _dId             :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _dAcceptLanguage :: !(Maybe Text)+  , _dId             :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeConstraint' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'dAcceptLanguage' - The language code to use for this operation. Supported language codes are as follows: "en" (English) "jp" (Japanese) "zh" (Chinese) If no code is specified, "en" is used as the default.+-- * 'dAcceptLanguage' - The language code.     * @en@ - English (default)     * @jp@ - Japanese     * @zh@ - Chinese -- -- * 'dId' - The identifier of the constraint. describeConstraint     :: Text -- ^ 'dId'     -> DescribeConstraint describeConstraint pId_ =-    DescribeConstraint'-    { _dAcceptLanguage = Nothing-    , _dId = pId_-    }+  DescribeConstraint' {_dAcceptLanguage = Nothing, _dId = pId_} --- | The language code to use for this operation. Supported language codes are as follows: "en" (English) "jp" (Japanese) "zh" (Chinese) If no code is specified, "en" is used as the default.++-- | The language code.     * @en@ - English (default)     * @jp@ - Japanese     * @zh@ - Chinese dAcceptLanguage :: Lens' DescribeConstraint (Maybe Text) dAcceptLanguage = lens _dAcceptLanguage (\ s a -> s{_dAcceptLanguage = a}); @@ -89,9 +88,9 @@                      (x .?> "ConstraintParameters")                      <*> (pure (fromEnum s))) -instance Hashable DescribeConstraint+instance Hashable DescribeConstraint where -instance NFData DescribeConstraint+instance NFData DescribeConstraint where  instance ToHeaders DescribeConstraint where         toHeaders@@ -118,48 +117,50 @@  -- | /See:/ 'describeConstraintResponse' smart constructor. data DescribeConstraintResponse = DescribeConstraintResponse'-    { _drsStatus               :: !(Maybe RequestStatus)-    , _drsConstraintDetail     :: !(Maybe ConstraintDetail)-    , _drsConstraintParameters :: !(Maybe Text)-    , _drsResponseStatus       :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _desrsStatus               :: !(Maybe RequestStatus)+  , _desrsConstraintDetail     :: !(Maybe ConstraintDetail)+  , _desrsConstraintParameters :: !(Maybe Text)+  , _desrsResponseStatus       :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeConstraintResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'drsStatus' - The status of the current request.+-- * 'desrsStatus' - The status of the current request. ----- * 'drsConstraintDetail' - Detailed constraint information.+-- * 'desrsConstraintDetail' - Detailed constraint information. ----- * 'drsConstraintParameters' - The current parameters associated with the specified constraint.+-- * 'desrsConstraintParameters' - The current parameters associated with the specified constraint. ----- * 'drsResponseStatus' - -- | The response status code.+-- * 'desrsResponseStatus' - -- | The response status code. describeConstraintResponse-    :: Int -- ^ 'drsResponseStatus'+    :: Int -- ^ 'desrsResponseStatus'     -> DescribeConstraintResponse describeConstraintResponse pResponseStatus_ =-    DescribeConstraintResponse'-    { _drsStatus = Nothing-    , _drsConstraintDetail = Nothing-    , _drsConstraintParameters = Nothing-    , _drsResponseStatus = pResponseStatus_-    }+  DescribeConstraintResponse'+  { _desrsStatus = Nothing+  , _desrsConstraintDetail = Nothing+  , _desrsConstraintParameters = Nothing+  , _desrsResponseStatus = pResponseStatus_+  } + -- | The status of the current request.-drsStatus :: Lens' DescribeConstraintResponse (Maybe RequestStatus)-drsStatus = lens _drsStatus (\ s a -> s{_drsStatus = a});+desrsStatus :: Lens' DescribeConstraintResponse (Maybe RequestStatus)+desrsStatus = lens _desrsStatus (\ s a -> s{_desrsStatus = a});  -- | Detailed constraint information.-drsConstraintDetail :: Lens' DescribeConstraintResponse (Maybe ConstraintDetail)-drsConstraintDetail = lens _drsConstraintDetail (\ s a -> s{_drsConstraintDetail = a});+desrsConstraintDetail :: Lens' DescribeConstraintResponse (Maybe ConstraintDetail)+desrsConstraintDetail = lens _desrsConstraintDetail (\ s a -> s{_desrsConstraintDetail = a});  -- | The current parameters associated with the specified constraint.-drsConstraintParameters :: Lens' DescribeConstraintResponse (Maybe Text)-drsConstraintParameters = lens _drsConstraintParameters (\ s a -> s{_drsConstraintParameters = a});+desrsConstraintParameters :: Lens' DescribeConstraintResponse (Maybe Text)+desrsConstraintParameters = lens _desrsConstraintParameters (\ s a -> s{_desrsConstraintParameters = a});  -- | -- | The response status code.-drsResponseStatus :: Lens' DescribeConstraintResponse Int-drsResponseStatus = lens _drsResponseStatus (\ s a -> s{_drsResponseStatus = a});+desrsResponseStatus :: Lens' DescribeConstraintResponse Int+desrsResponseStatus = lens _desrsResponseStatus (\ s a -> s{_desrsResponseStatus = a}); -instance NFData DescribeConstraintResponse+instance NFData DescribeConstraintResponse where

@@ -0,0 +1,169 @@+{-# 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.ServiceCatalog.DescribeCopyProductStatus+-- Copyright   : (c) 2013-2017 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Describes the status of the specified copy product operation.+--+--+module Network.AWS.ServiceCatalog.DescribeCopyProductStatus+    (+    -- * Creating a Request+      describeCopyProductStatus+    , DescribeCopyProductStatus+    -- * Request Lenses+    , dcpsAcceptLanguage+    , dcpsCopyProductToken++    -- * Destructuring the Response+    , describeCopyProductStatusResponse+    , DescribeCopyProductStatusResponse+    -- * Response Lenses+    , dcpsrsTargetProductId+    , dcpsrsCopyProductStatus+    , dcpsrsStatusDetail+    , dcpsrsResponseStatus+    ) where++import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.ServiceCatalog.Types+import Network.AWS.ServiceCatalog.Types.Product++-- | /See:/ 'describeCopyProductStatus' smart constructor.+data DescribeCopyProductStatus = DescribeCopyProductStatus'+  { _dcpsAcceptLanguage   :: !(Maybe Text)+  , _dcpsCopyProductToken :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'DescribeCopyProductStatus' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dcpsAcceptLanguage' - The language code.     * @en@ - English (default)     * @jp@ - Japanese     * @zh@ - Chinese+--+-- * 'dcpsCopyProductToken' - The token returned from the call to @CopyProduct@ that initiated the operation.+describeCopyProductStatus+    :: Text -- ^ 'dcpsCopyProductToken'+    -> DescribeCopyProductStatus+describeCopyProductStatus pCopyProductToken_ =+  DescribeCopyProductStatus'+  {_dcpsAcceptLanguage = Nothing, _dcpsCopyProductToken = pCopyProductToken_}+++-- | The language code.     * @en@ - English (default)     * @jp@ - Japanese     * @zh@ - Chinese+dcpsAcceptLanguage :: Lens' DescribeCopyProductStatus (Maybe Text)+dcpsAcceptLanguage = lens _dcpsAcceptLanguage (\ s a -> s{_dcpsAcceptLanguage = a});++-- | The token returned from the call to @CopyProduct@ that initiated the operation.+dcpsCopyProductToken :: Lens' DescribeCopyProductStatus Text+dcpsCopyProductToken = lens _dcpsCopyProductToken (\ s a -> s{_dcpsCopyProductToken = a});++instance AWSRequest DescribeCopyProductStatus where+        type Rs DescribeCopyProductStatus =+             DescribeCopyProductStatusResponse+        request = postJSON serviceCatalog+        response+          = receiveJSON+              (\ s h x ->+                 DescribeCopyProductStatusResponse' <$>+                   (x .?> "TargetProductId") <*>+                     (x .?> "CopyProductStatus")+                     <*> (x .?> "StatusDetail")+                     <*> (pure (fromEnum s)))++instance Hashable DescribeCopyProductStatus where++instance NFData DescribeCopyProductStatus where++instance ToHeaders DescribeCopyProductStatus where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("AWS242ServiceCatalogService.DescribeCopyProductStatus"+                       :: ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON DescribeCopyProductStatus where+        toJSON DescribeCopyProductStatus'{..}+          = object+              (catMaybes+                 [("AcceptLanguage" .=) <$> _dcpsAcceptLanguage,+                  Just ("CopyProductToken" .= _dcpsCopyProductToken)])++instance ToPath DescribeCopyProductStatus where+        toPath = const "/"++instance ToQuery DescribeCopyProductStatus where+        toQuery = const mempty++-- | /See:/ 'describeCopyProductStatusResponse' smart constructor.+data DescribeCopyProductStatusResponse = DescribeCopyProductStatusResponse'+  { _dcpsrsTargetProductId   :: !(Maybe Text)+  , _dcpsrsCopyProductStatus :: !(Maybe CopyProductStatus)+  , _dcpsrsStatusDetail      :: !(Maybe Text)+  , _dcpsrsResponseStatus    :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'DescribeCopyProductStatusResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dcpsrsTargetProductId' - The ID of the copied product.+--+-- * 'dcpsrsCopyProductStatus' - The status of the copy product operation.+--+-- * 'dcpsrsStatusDetail' - The status message.+--+-- * 'dcpsrsResponseStatus' - -- | The response status code.+describeCopyProductStatusResponse+    :: Int -- ^ 'dcpsrsResponseStatus'+    -> DescribeCopyProductStatusResponse+describeCopyProductStatusResponse pResponseStatus_ =+  DescribeCopyProductStatusResponse'+  { _dcpsrsTargetProductId = Nothing+  , _dcpsrsCopyProductStatus = Nothing+  , _dcpsrsStatusDetail = Nothing+  , _dcpsrsResponseStatus = pResponseStatus_+  }+++-- | The ID of the copied product.+dcpsrsTargetProductId :: Lens' DescribeCopyProductStatusResponse (Maybe Text)+dcpsrsTargetProductId = lens _dcpsrsTargetProductId (\ s a -> s{_dcpsrsTargetProductId = a});++-- | The status of the copy product operation.+dcpsrsCopyProductStatus :: Lens' DescribeCopyProductStatusResponse (Maybe CopyProductStatus)+dcpsrsCopyProductStatus = lens _dcpsrsCopyProductStatus (\ s a -> s{_dcpsrsCopyProductStatus = a});++-- | The status message.+dcpsrsStatusDetail :: Lens' DescribeCopyProductStatusResponse (Maybe Text)+dcpsrsStatusDetail = lens _dcpsrsStatusDetail (\ s a -> s{_dcpsrsStatusDetail = a});++-- | -- | The response status code.+dcpsrsResponseStatus :: Lens' DescribeCopyProductStatusResponse Int+dcpsrsResponseStatus = lens _dcpsrsResponseStatus (\ s a -> s{_dcpsrsResponseStatus = a});++instance NFData DescribeCopyProductStatusResponse+         where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.ServiceCatalog.DescribePortfolio--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -35,40 +35,40 @@     , DescribePortfolioResponse     -- * Response Lenses     , dprsPortfolioDetail+    , dprsTagOptions     , dprsTags     , dprsResponseStatus     ) where -import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response-import           Network.AWS.ServiceCatalog.Types-import           Network.AWS.ServiceCatalog.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.ServiceCatalog.Types+import Network.AWS.ServiceCatalog.Types.Product  -- | /See:/ 'describePortfolio' smart constructor. data DescribePortfolio = DescribePortfolio'-    { _desAcceptLanguage :: !(Maybe Text)-    , _desId             :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _desAcceptLanguage :: !(Maybe Text)+  , _desId             :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribePortfolio' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'desAcceptLanguage' - The language code to use for this operation. Supported language codes are as follows: "en" (English) "jp" (Japanese) "zh" (Chinese) If no code is specified, "en" is used as the default.+-- * 'desAcceptLanguage' - The language code.     * @en@ - English (default)     * @jp@ - Japanese     * @zh@ - Chinese -- -- * 'desId' - The identifier of the portfolio for which to retrieve information. describePortfolio     :: Text -- ^ 'desId'     -> DescribePortfolio describePortfolio pId_ =-    DescribePortfolio'-    { _desAcceptLanguage = Nothing-    , _desId = pId_-    }+  DescribePortfolio' {_desAcceptLanguage = Nothing, _desId = pId_} --- | The language code to use for this operation. Supported language codes are as follows: "en" (English) "jp" (Japanese) "zh" (Chinese) If no code is specified, "en" is used as the default.++-- | The language code.     * @en@ - English (default)     * @jp@ - Japanese     * @zh@ - Chinese desAcceptLanguage :: Lens' DescribePortfolio (Maybe Text) desAcceptLanguage = lens _desAcceptLanguage (\ s a -> s{_desAcceptLanguage = a}); @@ -84,12 +84,13 @@               (\ s h x ->                  DescribePortfolioResponse' <$>                    (x .?> "PortfolioDetail") <*>-                     (x .?> "Tags" .!@ mempty)+                     (x .?> "TagOptions" .!@ mempty)+                     <*> (x .?> "Tags" .!@ mempty)                      <*> (pure (fromEnum s))) -instance Hashable DescribePortfolio+instance Hashable DescribePortfolio where -instance NFData DescribePortfolio+instance NFData DescribePortfolio where  instance ToHeaders DescribePortfolio where         toHeaders@@ -116,17 +117,21 @@  -- | /See:/ 'describePortfolioResponse' smart constructor. data DescribePortfolioResponse = DescribePortfolioResponse'-    { _dprsPortfolioDetail :: !(Maybe PortfolioDetail)-    , _dprsTags            :: !(Maybe [Tag])-    , _dprsResponseStatus  :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _dprsPortfolioDetail :: !(Maybe PortfolioDetail)+  , _dprsTagOptions      :: !(Maybe [TagOptionDetail])+  , _dprsTags            :: !(Maybe [Tag])+  , _dprsResponseStatus  :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribePortfolioResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: -- -- * 'dprsPortfolioDetail' - Detailed portfolio information. --+-- * 'dprsTagOptions' - TagOptions associated with the portfolio.+-- -- * 'dprsTags' - Tags associated with the portfolio. -- -- * 'dprsResponseStatus' - -- | The response status code.@@ -134,16 +139,22 @@     :: Int -- ^ 'dprsResponseStatus'     -> DescribePortfolioResponse describePortfolioResponse pResponseStatus_ =-    DescribePortfolioResponse'-    { _dprsPortfolioDetail = Nothing-    , _dprsTags = Nothing-    , _dprsResponseStatus = pResponseStatus_-    }+  DescribePortfolioResponse'+  { _dprsPortfolioDetail = Nothing+  , _dprsTagOptions = Nothing+  , _dprsTags = Nothing+  , _dprsResponseStatus = pResponseStatus_+  } + -- | Detailed portfolio information. dprsPortfolioDetail :: Lens' DescribePortfolioResponse (Maybe PortfolioDetail) dprsPortfolioDetail = lens _dprsPortfolioDetail (\ s a -> s{_dprsPortfolioDetail = a}); +-- | TagOptions associated with the portfolio.+dprsTagOptions :: Lens' DescribePortfolioResponse [TagOptionDetail]+dprsTagOptions = lens _dprsTagOptions (\ s a -> s{_dprsTagOptions = a}) . _Default . _Coerce;+ -- | Tags associated with the portfolio. dprsTags :: Lens' DescribePortfolioResponse [Tag] dprsTags = lens _dprsTags (\ s a -> s{_dprsTags = a}) . _Default . _Coerce;@@ -152,4 +163,4 @@ dprsResponseStatus :: Lens' DescribePortfolioResponse Int dprsResponseStatus = lens _dprsResponseStatus (\ s a -> s{_dprsResponseStatus = a}); -instance NFData DescribePortfolioResponse+instance NFData DescribePortfolioResponse where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.ServiceCatalog.DescribeProduct--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -41,36 +41,35 @@     , ddrsResponseStatus     ) where -import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response-import           Network.AWS.ServiceCatalog.Types-import           Network.AWS.ServiceCatalog.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.ServiceCatalog.Types+import Network.AWS.ServiceCatalog.Types.Product  -- | /See:/ 'describeProduct' smart constructor. data DescribeProduct = DescribeProduct'-    { _dpAcceptLanguage :: !(Maybe Text)-    , _dpId             :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _dpAcceptLanguage :: !(Maybe Text)+  , _dpId             :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeProduct' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'dpAcceptLanguage' - The language code to use for this operation. Supported language codes are as follows: "en" (English) "jp" (Japanese) "zh" (Chinese) If no code is specified, "en" is used as the default.+-- * 'dpAcceptLanguage' - The language code.     * @en@ - English (default)     * @jp@ - Japanese     * @zh@ - Chinese -- -- * 'dpId' - The @ProductId@ of the product to describe. describeProduct     :: Text -- ^ 'dpId'     -> DescribeProduct describeProduct pId_ =-    DescribeProduct'-    { _dpAcceptLanguage = Nothing-    , _dpId = pId_-    }+  DescribeProduct' {_dpAcceptLanguage = Nothing, _dpId = pId_} --- | The language code to use for this operation. Supported language codes are as follows: "en" (English) "jp" (Japanese) "zh" (Chinese) If no code is specified, "en" is used as the default.++-- | The language code.     * @en@ - English (default)     * @jp@ - Japanese     * @zh@ - Chinese dpAcceptLanguage :: Lens' DescribeProduct (Maybe Text) dpAcceptLanguage = lens _dpAcceptLanguage (\ s a -> s{_dpAcceptLanguage = a}); @@ -89,9 +88,9 @@                      (x .?> "ProvisioningArtifacts" .!@ mempty)                      <*> (pure (fromEnum s))) -instance Hashable DescribeProduct+instance Hashable DescribeProduct where -instance NFData DescribeProduct+instance NFData DescribeProduct where  instance ToHeaders DescribeProduct where         toHeaders@@ -118,11 +117,12 @@  -- | /See:/ 'describeProductResponse' smart constructor. data DescribeProductResponse = DescribeProductResponse'-    { _ddrsProductViewSummary    :: !(Maybe ProductViewSummary)-    , _ddrsProvisioningArtifacts :: !(Maybe [ProvisioningArtifact])-    , _ddrsResponseStatus        :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _ddrsProductViewSummary    :: !(Maybe ProductViewSummary)+  , _ddrsProvisioningArtifacts :: !(Maybe [ProvisioningArtifact])+  , _ddrsResponseStatus        :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeProductResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -136,12 +136,13 @@     :: Int -- ^ 'ddrsResponseStatus'     -> DescribeProductResponse describeProductResponse pResponseStatus_ =-    DescribeProductResponse'-    { _ddrsProductViewSummary = Nothing-    , _ddrsProvisioningArtifacts = Nothing-    , _ddrsResponseStatus = pResponseStatus_-    }+  DescribeProductResponse'+  { _ddrsProductViewSummary = Nothing+  , _ddrsProvisioningArtifacts = Nothing+  , _ddrsResponseStatus = pResponseStatus_+  } + -- | The summary metadata about the specified product. ddrsProductViewSummary :: Lens' DescribeProductResponse (Maybe ProductViewSummary) ddrsProductViewSummary = lens _ddrsProductViewSummary (\ s a -> s{_ddrsProductViewSummary = a});@@ -154,4 +155,4 @@ ddrsResponseStatus :: Lens' DescribeProductResponse Int ddrsResponseStatus = lens _ddrsResponseStatus (\ s a -> s{_ddrsResponseStatus = a}); -instance NFData DescribeProductResponse+instance NFData DescribeProductResponse where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.ServiceCatalog.DescribeProductAsAdmin--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -35,40 +35,41 @@     , DescribeProductAsAdminResponse     -- * Response Lenses     , dpaarsProductViewDetail+    , dpaarsTagOptions+    , dpaarsProvisioningArtifactSummaries     , dpaarsTags     , dpaarsResponseStatus     ) where -import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response-import           Network.AWS.ServiceCatalog.Types-import           Network.AWS.ServiceCatalog.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.ServiceCatalog.Types+import Network.AWS.ServiceCatalog.Types.Product  -- | /See:/ 'describeProductAsAdmin' smart constructor. data DescribeProductAsAdmin = DescribeProductAsAdmin'-    { _dpaaAcceptLanguage :: !(Maybe Text)-    , _dpaaId             :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _dpaaAcceptLanguage :: !(Maybe Text)+  , _dpaaId             :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeProductAsAdmin' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'dpaaAcceptLanguage' - The language code to use for this operation. Supported language codes are as follows: "en" (English) "jp" (Japanese) "zh" (Chinese) If no code is specified, "en" is used as the default.+-- * 'dpaaAcceptLanguage' - The language code.     * @en@ - English (default)     * @jp@ - Japanese     * @zh@ - Chinese -- -- * 'dpaaId' - The identifier of the product for which to retrieve information. describeProductAsAdmin     :: Text -- ^ 'dpaaId'     -> DescribeProductAsAdmin describeProductAsAdmin pId_ =-    DescribeProductAsAdmin'-    { _dpaaAcceptLanguage = Nothing-    , _dpaaId = pId_-    }+  DescribeProductAsAdmin' {_dpaaAcceptLanguage = Nothing, _dpaaId = pId_} --- | The language code to use for this operation. Supported language codes are as follows: "en" (English) "jp" (Japanese) "zh" (Chinese) If no code is specified, "en" is used as the default.++-- | The language code.     * @en@ - English (default)     * @jp@ - Japanese     * @zh@ - Chinese dpaaAcceptLanguage :: Lens' DescribeProductAsAdmin (Maybe Text) dpaaAcceptLanguage = lens _dpaaAcceptLanguage (\ s a -> s{_dpaaAcceptLanguage = a}); @@ -85,12 +86,15 @@               (\ s h x ->                  DescribeProductAsAdminResponse' <$>                    (x .?> "ProductViewDetail") <*>-                     (x .?> "Tags" .!@ mempty)+                     (x .?> "TagOptions" .!@ mempty)+                     <*>+                     (x .?> "ProvisioningArtifactSummaries" .!@ mempty)+                     <*> (x .?> "Tags" .!@ mempty)                      <*> (pure (fromEnum s))) -instance Hashable DescribeProductAsAdmin+instance Hashable DescribeProductAsAdmin where -instance NFData DescribeProductAsAdmin+instance NFData DescribeProductAsAdmin where  instance ToHeaders DescribeProductAsAdmin where         toHeaders@@ -117,17 +121,24 @@  -- | /See:/ 'describeProductAsAdminResponse' smart constructor. data DescribeProductAsAdminResponse = DescribeProductAsAdminResponse'-    { _dpaarsProductViewDetail :: !(Maybe ProductViewDetail)-    , _dpaarsTags              :: !(Maybe [Tag])-    , _dpaarsResponseStatus    :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _dpaarsProductViewDetail :: !(Maybe ProductViewDetail)+  , _dpaarsTagOptions :: !(Maybe [TagOptionDetail])+  , _dpaarsProvisioningArtifactSummaries :: !(Maybe [ProvisioningArtifactSummary])+  , _dpaarsTags :: !(Maybe [Tag])+  , _dpaarsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeProductAsAdminResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: -- -- * 'dpaarsProductViewDetail' - Detailed product view information. --+-- * 'dpaarsTagOptions' - List of TagOptions associated with the product.+--+-- * 'dpaarsProvisioningArtifactSummaries' - A list of provisioning artifact summaries for the product.+-- -- * 'dpaarsTags' - Tags associated with the product. -- -- * 'dpaarsResponseStatus' - -- | The response status code.@@ -135,16 +146,27 @@     :: Int -- ^ 'dpaarsResponseStatus'     -> DescribeProductAsAdminResponse describeProductAsAdminResponse pResponseStatus_ =-    DescribeProductAsAdminResponse'-    { _dpaarsProductViewDetail = Nothing-    , _dpaarsTags = Nothing-    , _dpaarsResponseStatus = pResponseStatus_-    }+  DescribeProductAsAdminResponse'+  { _dpaarsProductViewDetail = Nothing+  , _dpaarsTagOptions = Nothing+  , _dpaarsProvisioningArtifactSummaries = Nothing+  , _dpaarsTags = Nothing+  , _dpaarsResponseStatus = pResponseStatus_+  } + -- | Detailed product view information. dpaarsProductViewDetail :: Lens' DescribeProductAsAdminResponse (Maybe ProductViewDetail) dpaarsProductViewDetail = lens _dpaarsProductViewDetail (\ s a -> s{_dpaarsProductViewDetail = a}); +-- | List of TagOptions associated with the product.+dpaarsTagOptions :: Lens' DescribeProductAsAdminResponse [TagOptionDetail]+dpaarsTagOptions = lens _dpaarsTagOptions (\ s a -> s{_dpaarsTagOptions = a}) . _Default . _Coerce;++-- | A list of provisioning artifact summaries for the product.+dpaarsProvisioningArtifactSummaries :: Lens' DescribeProductAsAdminResponse [ProvisioningArtifactSummary]+dpaarsProvisioningArtifactSummaries = lens _dpaarsProvisioningArtifactSummaries (\ s a -> s{_dpaarsProvisioningArtifactSummaries = a}) . _Default . _Coerce;+ -- | Tags associated with the product. dpaarsTags :: Lens' DescribeProductAsAdminResponse [Tag] dpaarsTags = lens _dpaarsTags (\ s a -> s{_dpaarsTags = a}) . _Default . _Coerce;@@ -153,4 +175,4 @@ dpaarsResponseStatus :: Lens' DescribeProductAsAdminResponse Int dpaarsResponseStatus = lens _dpaarsResponseStatus (\ s a -> s{_dpaarsResponseStatus = a}); -instance NFData DescribeProductAsAdminResponse+instance NFData DescribeProductAsAdminResponse where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.ServiceCatalog.DescribeProductView--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -41,36 +41,35 @@     , dpvrsResponseStatus     ) where -import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response-import           Network.AWS.ServiceCatalog.Types-import           Network.AWS.ServiceCatalog.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.ServiceCatalog.Types+import Network.AWS.ServiceCatalog.Types.Product  -- | /See:/ 'describeProductView' smart constructor. data DescribeProductView = DescribeProductView'-    { _dpvAcceptLanguage :: !(Maybe Text)-    , _dpvId             :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _dpvAcceptLanguage :: !(Maybe Text)+  , _dpvId             :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeProductView' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'dpvAcceptLanguage' - The language code to use for this operation. Supported language codes are as follows: "en" (English) "jp" (Japanese) "zh" (Chinese) If no code is specified, "en" is used as the default.+-- * 'dpvAcceptLanguage' - The language code.     * @en@ - English (default)     * @jp@ - Japanese     * @zh@ - Chinese -- -- * 'dpvId' - The @ProductViewId@ of the product to describe. describeProductView     :: Text -- ^ 'dpvId'     -> DescribeProductView describeProductView pId_ =-    DescribeProductView'-    { _dpvAcceptLanguage = Nothing-    , _dpvId = pId_-    }+  DescribeProductView' {_dpvAcceptLanguage = Nothing, _dpvId = pId_} --- | The language code to use for this operation. Supported language codes are as follows: "en" (English) "jp" (Japanese) "zh" (Chinese) If no code is specified, "en" is used as the default.++-- | The language code.     * @en@ - English (default)     * @jp@ - Japanese     * @zh@ - Chinese dpvAcceptLanguage :: Lens' DescribeProductView (Maybe Text) dpvAcceptLanguage = lens _dpvAcceptLanguage (\ s a -> s{_dpvAcceptLanguage = a}); @@ -90,9 +89,9 @@                      (x .?> "ProvisioningArtifacts" .!@ mempty)                      <*> (pure (fromEnum s))) -instance Hashable DescribeProductView+instance Hashable DescribeProductView where -instance NFData DescribeProductView+instance NFData DescribeProductView where  instance ToHeaders DescribeProductView where         toHeaders@@ -119,11 +118,12 @@  -- | /See:/ 'describeProductViewResponse' smart constructor. data DescribeProductViewResponse = DescribeProductViewResponse'-    { _dpvrsProductViewSummary    :: !(Maybe ProductViewSummary)-    , _dpvrsProvisioningArtifacts :: !(Maybe [ProvisioningArtifact])-    , _dpvrsResponseStatus        :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _dpvrsProductViewSummary    :: !(Maybe ProductViewSummary)+  , _dpvrsProvisioningArtifacts :: !(Maybe [ProvisioningArtifact])+  , _dpvrsResponseStatus        :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeProductViewResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -137,12 +137,13 @@     :: Int -- ^ 'dpvrsResponseStatus'     -> DescribeProductViewResponse describeProductViewResponse pResponseStatus_ =-    DescribeProductViewResponse'-    { _dpvrsProductViewSummary = Nothing-    , _dpvrsProvisioningArtifacts = Nothing-    , _dpvrsResponseStatus = pResponseStatus_-    }+  DescribeProductViewResponse'+  { _dpvrsProductViewSummary = Nothing+  , _dpvrsProvisioningArtifacts = Nothing+  , _dpvrsResponseStatus = pResponseStatus_+  } + -- | The summary metadata about the specified product. dpvrsProductViewSummary :: Lens' DescribeProductViewResponse (Maybe ProductViewSummary) dpvrsProductViewSummary = lens _dpvrsProductViewSummary (\ s a -> s{_dpvrsProductViewSummary = a});@@ -155,4 +156,4 @@ dpvrsResponseStatus :: Lens' DescribeProductViewResponse Int dpvrsResponseStatus = lens _dpvrsResponseStatus (\ s a -> s{_dpvrsResponseStatus = a}); -instance NFData DescribeProductViewResponse+instance NFData DescribeProductViewResponse where

@@ -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.ServiceCatalog.DescribeProvisionedProduct+-- Copyright   : (c) 2013-2017 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Retrieve detailed information about the provisioned product.+--+--+module Network.AWS.ServiceCatalog.DescribeProvisionedProduct+    (+    -- * Creating a Request+      describeProvisionedProduct+    , DescribeProvisionedProduct+    -- * Request Lenses+    , dpppAcceptLanguage+    , dpppId++    -- * Destructuring the Response+    , describeProvisionedProductResponse+    , DescribeProvisionedProductResponse+    -- * Response Lenses+    , drsProvisionedProductDetail+    , drsResponseStatus+    ) where++import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.ServiceCatalog.Types+import Network.AWS.ServiceCatalog.Types.Product++-- | /See:/ 'describeProvisionedProduct' smart constructor.+data DescribeProvisionedProduct = DescribeProvisionedProduct'+  { _dpppAcceptLanguage :: !(Maybe Text)+  , _dpppId             :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'DescribeProvisionedProduct' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dpppAcceptLanguage' - The language code.     * @en@ - English (default)     * @jp@ - Japanese     * @zh@ - Chinese+--+-- * 'dpppId' - The provisioned product identifier.+describeProvisionedProduct+    :: Text -- ^ 'dpppId'+    -> DescribeProvisionedProduct+describeProvisionedProduct pId_ =+  DescribeProvisionedProduct' {_dpppAcceptLanguage = Nothing, _dpppId = pId_}+++-- | The language code.     * @en@ - English (default)     * @jp@ - Japanese     * @zh@ - Chinese+dpppAcceptLanguage :: Lens' DescribeProvisionedProduct (Maybe Text)+dpppAcceptLanguage = lens _dpppAcceptLanguage (\ s a -> s{_dpppAcceptLanguage = a});++-- | The provisioned product identifier.+dpppId :: Lens' DescribeProvisionedProduct Text+dpppId = lens _dpppId (\ s a -> s{_dpppId = a});++instance AWSRequest DescribeProvisionedProduct where+        type Rs DescribeProvisionedProduct =+             DescribeProvisionedProductResponse+        request = postJSON serviceCatalog+        response+          = receiveJSON+              (\ s h x ->+                 DescribeProvisionedProductResponse' <$>+                   (x .?> "ProvisionedProductDetail") <*>+                     (pure (fromEnum s)))++instance Hashable DescribeProvisionedProduct where++instance NFData DescribeProvisionedProduct where++instance ToHeaders DescribeProvisionedProduct where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("AWS242ServiceCatalogService.DescribeProvisionedProduct"+                       :: ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON DescribeProvisionedProduct where+        toJSON DescribeProvisionedProduct'{..}+          = object+              (catMaybes+                 [("AcceptLanguage" .=) <$> _dpppAcceptLanguage,+                  Just ("Id" .= _dpppId)])++instance ToPath DescribeProvisionedProduct where+        toPath = const "/"++instance ToQuery DescribeProvisionedProduct where+        toQuery = const mempty++-- | /See:/ 'describeProvisionedProductResponse' smart constructor.+data DescribeProvisionedProductResponse = DescribeProvisionedProductResponse'+  { _drsProvisionedProductDetail :: !(Maybe ProvisionedProductDetail)+  , _drsResponseStatus           :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'DescribeProvisionedProductResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'drsProvisionedProductDetail' - Detailed provisioned product information.+--+-- * 'drsResponseStatus' - -- | The response status code.+describeProvisionedProductResponse+    :: Int -- ^ 'drsResponseStatus'+    -> DescribeProvisionedProductResponse+describeProvisionedProductResponse pResponseStatus_ =+  DescribeProvisionedProductResponse'+  { _drsProvisionedProductDetail = Nothing+  , _drsResponseStatus = pResponseStatus_+  }+++-- | Detailed provisioned product information.+drsProvisionedProductDetail :: Lens' DescribeProvisionedProductResponse (Maybe ProvisionedProductDetail)+drsProvisionedProductDetail = lens _drsProvisionedProductDetail (\ s a -> s{_drsProvisionedProductDetail = a});++-- | -- | The response status code.+drsResponseStatus :: Lens' DescribeProvisionedProductResponse Int+drsResponseStatus = lens _drsResponseStatus (\ s a -> s{_drsResponseStatus = a});++instance NFData DescribeProvisionedProductResponse+         where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.ServiceCatalog.DescribeProvisioningArtifact--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -27,6 +27,7 @@       describeProvisioningArtifact     , DescribeProvisioningArtifact     -- * Request Lenses+    , dpaVerbose     , dpaAcceptLanguage     , dpaProvisioningArtifactId     , dpaProductId@@ -35,51 +36,61 @@     , describeProvisioningArtifactResponse     , DescribeProvisioningArtifactResponse     -- * Response Lenses-    , desrsStatus-    , desrsInfo-    , desrsProvisioningArtifactDetail-    , desrsResponseStatus+    , dpaprsStatus+    , dpaprsInfo+    , dpaprsProvisioningArtifactDetail+    , dpaprsResponseStatus     ) where -import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response-import           Network.AWS.ServiceCatalog.Types-import           Network.AWS.ServiceCatalog.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.ServiceCatalog.Types+import Network.AWS.ServiceCatalog.Types.Product  -- | /See:/ 'describeProvisioningArtifact' smart constructor. data DescribeProvisioningArtifact = DescribeProvisioningArtifact'-    { _dpaAcceptLanguage         :: !(Maybe Text)-    , _dpaProvisioningArtifactId :: !Text-    , _dpaProductId              :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _dpaVerbose                :: !(Maybe Bool)+  , _dpaAcceptLanguage         :: !(Maybe Text)+  , _dpaProvisioningArtifactId :: !Text+  , _dpaProductId              :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeProvisioningArtifact' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'dpaAcceptLanguage' - The language code to use for this operation. Supported language codes are as follows: "en" (English) "jp" (Japanese) "zh" (Chinese) If no code is specified, "en" is used as the default.+-- * 'dpaVerbose' - Enable a verbose level of details for the provisioning artifact. ----- * 'dpaProvisioningArtifactId' - The identifier of the provisioning artifact.+-- * 'dpaAcceptLanguage' - The language code.     * @en@ - English (default)     * @jp@ - Japanese     * @zh@ - Chinese --+-- * 'dpaProvisioningArtifactId' - The identifier of the provisioning artifact. This is sometimes referred to as the product version.+-- -- * 'dpaProductId' - The product identifier. describeProvisioningArtifact     :: Text -- ^ 'dpaProvisioningArtifactId'     -> Text -- ^ 'dpaProductId'     -> DescribeProvisioningArtifact describeProvisioningArtifact pProvisioningArtifactId_ pProductId_ =-    DescribeProvisioningArtifact'-    { _dpaAcceptLanguage = Nothing-    , _dpaProvisioningArtifactId = pProvisioningArtifactId_-    , _dpaProductId = pProductId_-    }+  DescribeProvisioningArtifact'+  { _dpaVerbose = Nothing+  , _dpaAcceptLanguage = Nothing+  , _dpaProvisioningArtifactId = pProvisioningArtifactId_+  , _dpaProductId = pProductId_+  } --- | The language code to use for this operation. Supported language codes are as follows: "en" (English) "jp" (Japanese) "zh" (Chinese) If no code is specified, "en" is used as the default.++-- | Enable a verbose level of details for the provisioning artifact.+dpaVerbose :: Lens' DescribeProvisioningArtifact (Maybe Bool)+dpaVerbose = lens _dpaVerbose (\ s a -> s{_dpaVerbose = a});++-- | The language code.     * @en@ - English (default)     * @jp@ - Japanese     * @zh@ - Chinese dpaAcceptLanguage :: Lens' DescribeProvisioningArtifact (Maybe Text) dpaAcceptLanguage = lens _dpaAcceptLanguage (\ s a -> s{_dpaAcceptLanguage = a}); --- | The identifier of the provisioning artifact.+-- | The identifier of the provisioning artifact. This is sometimes referred to as the product version. dpaProvisioningArtifactId :: Lens' DescribeProvisioningArtifact Text dpaProvisioningArtifactId = lens _dpaProvisioningArtifactId (\ s a -> s{_dpaProvisioningArtifactId = a}); @@ -100,9 +111,9 @@                      (x .?> "ProvisioningArtifactDetail")                      <*> (pure (fromEnum s))) -instance Hashable DescribeProvisioningArtifact+instance Hashable DescribeProvisioningArtifact where -instance NFData DescribeProvisioningArtifact+instance NFData DescribeProvisioningArtifact where  instance ToHeaders DescribeProvisioningArtifact where         toHeaders@@ -118,7 +129,8 @@         toJSON DescribeProvisioningArtifact'{..}           = object               (catMaybes-                 [("AcceptLanguage" .=) <$> _dpaAcceptLanguage,+                 [("Verbose" .=) <$> _dpaVerbose,+                  ("AcceptLanguage" .=) <$> _dpaAcceptLanguage,                   Just                     ("ProvisioningArtifactId" .=                        _dpaProvisioningArtifactId),@@ -132,48 +144,51 @@  -- | /See:/ 'describeProvisioningArtifactResponse' smart constructor. data DescribeProvisioningArtifactResponse = DescribeProvisioningArtifactResponse'-    { _desrsStatus                     :: !(Maybe RequestStatus)-    , _desrsInfo                       :: !(Maybe (Map Text Text))-    , _desrsProvisioningArtifactDetail :: !(Maybe ProvisioningArtifactDetail)-    , _desrsResponseStatus             :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _dpaprsStatus                     :: !(Maybe RequestStatus)+  , _dpaprsInfo                       :: !(Maybe (Map Text Text))+  , _dpaprsProvisioningArtifactDetail :: !(Maybe ProvisioningArtifactDetail)+  , _dpaprsResponseStatus             :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeProvisioningArtifactResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'desrsStatus' - The status of the current request.+-- * 'dpaprsStatus' - The status of the current request. ----- * 'desrsInfo' - Additional information about the provisioning artifact.+-- * 'dpaprsInfo' - Additional information about the provisioning artifact. ----- * 'desrsProvisioningArtifactDetail' - Detailed provisioning artifact information.+-- * 'dpaprsProvisioningArtifactDetail' - Detailed provisioning artifact information. ----- * 'desrsResponseStatus' - -- | The response status code.+-- * 'dpaprsResponseStatus' - -- | The response status code. describeProvisioningArtifactResponse-    :: Int -- ^ 'desrsResponseStatus'+    :: Int -- ^ 'dpaprsResponseStatus'     -> DescribeProvisioningArtifactResponse describeProvisioningArtifactResponse pResponseStatus_ =-    DescribeProvisioningArtifactResponse'-    { _desrsStatus = Nothing-    , _desrsInfo = Nothing-    , _desrsProvisioningArtifactDetail = Nothing-    , _desrsResponseStatus = pResponseStatus_-    }+  DescribeProvisioningArtifactResponse'+  { _dpaprsStatus = Nothing+  , _dpaprsInfo = Nothing+  , _dpaprsProvisioningArtifactDetail = Nothing+  , _dpaprsResponseStatus = pResponseStatus_+  } + -- | The status of the current request.-desrsStatus :: Lens' DescribeProvisioningArtifactResponse (Maybe RequestStatus)-desrsStatus = lens _desrsStatus (\ s a -> s{_desrsStatus = a});+dpaprsStatus :: Lens' DescribeProvisioningArtifactResponse (Maybe RequestStatus)+dpaprsStatus = lens _dpaprsStatus (\ s a -> s{_dpaprsStatus = a});  -- | Additional information about the provisioning artifact.-desrsInfo :: Lens' DescribeProvisioningArtifactResponse (HashMap Text Text)-desrsInfo = lens _desrsInfo (\ s a -> s{_desrsInfo = a}) . _Default . _Map;+dpaprsInfo :: Lens' DescribeProvisioningArtifactResponse (HashMap Text Text)+dpaprsInfo = lens _dpaprsInfo (\ s a -> s{_dpaprsInfo = a}) . _Default . _Map;  -- | Detailed provisioning artifact information.-desrsProvisioningArtifactDetail :: Lens' DescribeProvisioningArtifactResponse (Maybe ProvisioningArtifactDetail)-desrsProvisioningArtifactDetail = lens _desrsProvisioningArtifactDetail (\ s a -> s{_desrsProvisioningArtifactDetail = a});+dpaprsProvisioningArtifactDetail :: Lens' DescribeProvisioningArtifactResponse (Maybe ProvisioningArtifactDetail)+dpaprsProvisioningArtifactDetail = lens _dpaprsProvisioningArtifactDetail (\ s a -> s{_dpaprsProvisioningArtifactDetail = a});  -- | -- | The response status code.-desrsResponseStatus :: Lens' DescribeProvisioningArtifactResponse Int-desrsResponseStatus = lens _desrsResponseStatus (\ s a -> s{_desrsResponseStatus = a});+dpaprsResponseStatus :: Lens' DescribeProvisioningArtifactResponse Int+dpaprsResponseStatus = lens _dpaprsResponseStatus (\ s a -> s{_dpaprsResponseStatus = a});  instance NFData DescribeProvisioningArtifactResponse+         where

@@ -12,15 +12,17 @@  -- | -- Module      : Network.AWS.ServiceCatalog.DescribeProvisioningParameters--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) -- -- Provides information about parameters required to provision a specified product in a specified manner. Use this operation to obtain the list of @ProvisioningArtifactParameters@ parameters available to call the 'ProvisionProduct' operation for the specified product. -- --+-- If the output contains a TagOption key with an empty list of values, there is a TagOption conflict for that key. The end user cannot take action to fix the conflict, and launch is not blocked. In subsequent calls to the @ProvisionProduct@ operation, do not include conflicted TagOption keys as tags. Calls to @ProvisionProduct@ with empty TagOption values cause the error "Parameter validation failed: Missing required parameter in Tags[/N/ ]:/Value/ ". Calls to @ProvisionProduct@ with conflicted TagOption keys automatically tag the provisioned product with the conflicted keys with the value "@sc-tagoption-conflict-portfolioId-productId@ ".+-- module Network.AWS.ServiceCatalog.DescribeProvisioningParameters     (     -- * Creating a Request@@ -39,48 +41,51 @@     , dpprsProvisioningArtifactParameters     , dpprsUsageInstructions     , dpprsConstraintSummaries+    , dpprsTagOptions     , dpprsResponseStatus     ) where -import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response-import           Network.AWS.ServiceCatalog.Types-import           Network.AWS.ServiceCatalog.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.ServiceCatalog.Types+import Network.AWS.ServiceCatalog.Types.Product  -- | /See:/ 'describeProvisioningParameters' smart constructor. data DescribeProvisioningParameters = DescribeProvisioningParameters'-    { _dppsAcceptLanguage         :: !(Maybe Text)-    , _dppsPathId                 :: !(Maybe Text)-    , _dppsProductId              :: !Text-    , _dppsProvisioningArtifactId :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _dppsAcceptLanguage         :: !(Maybe Text)+  , _dppsPathId                 :: !(Maybe Text)+  , _dppsProductId              :: !Text+  , _dppsProvisioningArtifactId :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeProvisioningParameters' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'dppsAcceptLanguage' - The language code to use for this operation. Supported language codes are as follows: "en" (English) "jp" (Japanese) "zh" (Chinese) If no code is specified, "en" is used as the default.+-- * 'dppsAcceptLanguage' - The language code.     * @en@ - English (default)     * @jp@ - Japanese     * @zh@ - Chinese -- -- * 'dppsPathId' - The identifier of the path for this product's provisioning. This value is optional if the product has a default path, and is required if there is more than one path for the specified product. -- -- * 'dppsProductId' - The product identifier. ----- * 'dppsProvisioningArtifactId' - The provisioning artifact identifier for this product.+-- * 'dppsProvisioningArtifactId' - The provisioning artifact identifier for this product. This is sometimes referred to as the product version. describeProvisioningParameters     :: Text -- ^ 'dppsProductId'     -> Text -- ^ 'dppsProvisioningArtifactId'     -> DescribeProvisioningParameters describeProvisioningParameters pProductId_ pProvisioningArtifactId_ =-    DescribeProvisioningParameters'-    { _dppsAcceptLanguage = Nothing-    , _dppsPathId = Nothing-    , _dppsProductId = pProductId_-    , _dppsProvisioningArtifactId = pProvisioningArtifactId_-    }+  DescribeProvisioningParameters'+  { _dppsAcceptLanguage = Nothing+  , _dppsPathId = Nothing+  , _dppsProductId = pProductId_+  , _dppsProvisioningArtifactId = pProvisioningArtifactId_+  } --- | The language code to use for this operation. Supported language codes are as follows: "en" (English) "jp" (Japanese) "zh" (Chinese) If no code is specified, "en" is used as the default.++-- | The language code.     * @en@ - English (default)     * @jp@ - Japanese     * @zh@ - Chinese dppsAcceptLanguage :: Lens' DescribeProvisioningParameters (Maybe Text) dppsAcceptLanguage = lens _dppsAcceptLanguage (\ s a -> s{_dppsAcceptLanguage = a}); @@ -92,7 +97,7 @@ dppsProductId :: Lens' DescribeProvisioningParameters Text dppsProductId = lens _dppsProductId (\ s a -> s{_dppsProductId = a}); --- | The provisioning artifact identifier for this product.+-- | The provisioning artifact identifier for this product. This is sometimes referred to as the product version. dppsProvisioningArtifactId :: Lens' DescribeProvisioningParameters Text dppsProvisioningArtifactId = lens _dppsProvisioningArtifactId (\ s a -> s{_dppsProvisioningArtifactId = a}); @@ -108,11 +113,13 @@                    (x .?> "ProvisioningArtifactParameters" .!@ mempty)                      <*> (x .?> "UsageInstructions" .!@ mempty)                      <*> (x .?> "ConstraintSummaries" .!@ mempty)+                     <*> (x .?> "TagOptions" .!@ mempty)                      <*> (pure (fromEnum s)))  instance Hashable DescribeProvisioningParameters+         where -instance NFData DescribeProvisioningParameters+instance NFData DescribeProvisioningParameters where  instance ToHeaders DescribeProvisioningParameters          where@@ -144,12 +151,14 @@  -- | /See:/ 'describeProvisioningParametersResponse' smart constructor. data DescribeProvisioningParametersResponse = DescribeProvisioningParametersResponse'-    { _dpprsProvisioningArtifactParameters :: !(Maybe [ProvisioningArtifactParameter])-    , _dpprsUsageInstructions              :: !(Maybe [UsageInstruction])-    , _dpprsConstraintSummaries            :: !(Maybe [ConstraintSummary])-    , _dpprsResponseStatus                 :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _dpprsProvisioningArtifactParameters :: !(Maybe [ProvisioningArtifactParameter])+  , _dpprsUsageInstructions :: !(Maybe [UsageInstruction])+  , _dpprsConstraintSummaries :: !(Maybe [ConstraintSummary])+  , _dpprsTagOptions :: !(Maybe [TagOptionSummary])+  , _dpprsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeProvisioningParametersResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -160,18 +169,22 @@ -- -- * 'dpprsConstraintSummaries' - The list of constraint summaries that apply to provisioning this product. --+-- * 'dpprsTagOptions' - List of TagOptions associated with the provisioned provisioning parameters.+-- -- * 'dpprsResponseStatus' - -- | The response status code. describeProvisioningParametersResponse     :: Int -- ^ 'dpprsResponseStatus'     -> DescribeProvisioningParametersResponse describeProvisioningParametersResponse pResponseStatus_ =-    DescribeProvisioningParametersResponse'-    { _dpprsProvisioningArtifactParameters = Nothing-    , _dpprsUsageInstructions = Nothing-    , _dpprsConstraintSummaries = Nothing-    , _dpprsResponseStatus = pResponseStatus_-    }+  DescribeProvisioningParametersResponse'+  { _dpprsProvisioningArtifactParameters = Nothing+  , _dpprsUsageInstructions = Nothing+  , _dpprsConstraintSummaries = Nothing+  , _dpprsTagOptions = Nothing+  , _dpprsResponseStatus = pResponseStatus_+  } + -- | The list of parameters used to successfully provision the product. Each parameter includes a list of allowable values and additional metadata about each parameter. dpprsProvisioningArtifactParameters :: Lens' DescribeProvisioningParametersResponse [ProvisioningArtifactParameter] dpprsProvisioningArtifactParameters = lens _dpprsProvisioningArtifactParameters (\ s a -> s{_dpprsProvisioningArtifactParameters = a}) . _Default . _Coerce;@@ -184,9 +197,14 @@ dpprsConstraintSummaries :: Lens' DescribeProvisioningParametersResponse [ConstraintSummary] dpprsConstraintSummaries = lens _dpprsConstraintSummaries (\ s a -> s{_dpprsConstraintSummaries = a}) . _Default . _Coerce; +-- | List of TagOptions associated with the provisioned provisioning parameters.+dpprsTagOptions :: Lens' DescribeProvisioningParametersResponse [TagOptionSummary]+dpprsTagOptions = lens _dpprsTagOptions (\ s a -> s{_dpprsTagOptions = a}) . _Default . _Coerce;+ -- | -- | The response status code. dpprsResponseStatus :: Lens' DescribeProvisioningParametersResponse Int dpprsResponseStatus = lens _dpprsResponseStatus (\ s a -> s{_dpprsResponseStatus = a});  instance NFData-         DescribeProvisioningParametersResponse+           DescribeProvisioningParametersResponse+         where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.ServiceCatalog.DescribeRecord--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -42,26 +42,27 @@     , drrsResponseStatus     ) where -import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response-import           Network.AWS.ServiceCatalog.Types-import           Network.AWS.ServiceCatalog.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.ServiceCatalog.Types+import Network.AWS.ServiceCatalog.Types.Product  -- | /See:/ 'describeRecord' smart constructor. data DescribeRecord = DescribeRecord'-    { _drAcceptLanguage :: !(Maybe Text)-    , _drPageToken      :: !(Maybe Text)-    , _drPageSize       :: !(Maybe Nat)-    , _drId             :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _drAcceptLanguage :: !(Maybe Text)+  , _drPageToken      :: !(Maybe Text)+  , _drPageSize       :: !(Maybe Nat)+  , _drId             :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeRecord' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'drAcceptLanguage' - The language code to use for this operation. Supported language codes are as follows: "en" (English) "jp" (Japanese) "zh" (Chinese) If no code is specified, "en" is used as the default.+-- * 'drAcceptLanguage' - The language code.     * @en@ - English (default)     * @jp@ - Japanese     * @zh@ - Chinese -- -- * 'drPageToken' - The page token of the first page retrieved. If null, this retrieves the first page of size @PageSize@ . --@@ -72,14 +73,15 @@     :: Text -- ^ 'drId'     -> DescribeRecord describeRecord pId_ =-    DescribeRecord'-    { _drAcceptLanguage = Nothing-    , _drPageToken = Nothing-    , _drPageSize = Nothing-    , _drId = pId_-    }+  DescribeRecord'+  { _drAcceptLanguage = Nothing+  , _drPageToken = Nothing+  , _drPageSize = Nothing+  , _drId = pId_+  } --- | The language code to use for this operation. Supported language codes are as follows: "en" (English) "jp" (Japanese) "zh" (Chinese) If no code is specified, "en" is used as the default.++-- | The language code.     * @en@ - English (default)     * @jp@ - Japanese     * @zh@ - Chinese drAcceptLanguage :: Lens' DescribeRecord (Maybe Text) drAcceptLanguage = lens _drAcceptLanguage (\ s a -> s{_drAcceptLanguage = a}); @@ -106,9 +108,9 @@                      <*> (x .?> "RecordOutputs" .!@ mempty)                      <*> (pure (fromEnum s))) -instance Hashable DescribeRecord+instance Hashable DescribeRecord where -instance NFData DescribeRecord+instance NFData DescribeRecord where  instance ToHeaders DescribeRecord where         toHeaders@@ -137,12 +139,13 @@  -- | /See:/ 'describeRecordResponse' smart constructor. data DescribeRecordResponse = DescribeRecordResponse'-    { _drrsRecordDetail   :: !(Maybe RecordDetail)-    , _drrsNextPageToken  :: !(Maybe Text)-    , _drrsRecordOutputs  :: !(Maybe [RecordOutput])-    , _drrsResponseStatus :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _drrsRecordDetail   :: !(Maybe RecordDetail)+  , _drrsNextPageToken  :: !(Maybe Text)+  , _drrsRecordOutputs  :: !(Maybe [RecordOutput])+  , _drrsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeRecordResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -158,13 +161,14 @@     :: Int -- ^ 'drrsResponseStatus'     -> DescribeRecordResponse describeRecordResponse pResponseStatus_ =-    DescribeRecordResponse'-    { _drrsRecordDetail = Nothing-    , _drrsNextPageToken = Nothing-    , _drrsRecordOutputs = Nothing-    , _drrsResponseStatus = pResponseStatus_-    }+  DescribeRecordResponse'+  { _drrsRecordDetail = Nothing+  , _drrsNextPageToken = Nothing+  , _drrsRecordOutputs = Nothing+  , _drrsResponseStatus = pResponseStatus_+  } + -- | Detailed record information for the specified product. drrsRecordDetail :: Lens' DescribeRecordResponse (Maybe RecordDetail) drrsRecordDetail = lens _drrsRecordDetail (\ s a -> s{_drrsRecordDetail = a});@@ -181,4 +185,4 @@ drrsResponseStatus :: Lens' DescribeRecordResponse Int drrsResponseStatus = lens _drrsResponseStatus (\ s a -> s{_drrsResponseStatus = a}); -instance NFData DescribeRecordResponse+instance NFData DescribeRecordResponse where

@@ -0,0 +1,131 @@+{-# 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.ServiceCatalog.DescribeTagOption+-- Copyright   : (c) 2013-2017 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Describes a TagOption.+--+--+module Network.AWS.ServiceCatalog.DescribeTagOption+    (+    -- * Creating a Request+      describeTagOption+    , DescribeTagOption+    -- * Request Lenses+    , dtoId++    -- * Destructuring the Response+    , describeTagOptionResponse+    , DescribeTagOptionResponse+    -- * Response Lenses+    , dtorsTagOptionDetail+    , dtorsResponseStatus+    ) where++import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.ServiceCatalog.Types+import Network.AWS.ServiceCatalog.Types.Product++-- | /See:/ 'describeTagOption' smart constructor.+newtype DescribeTagOption = DescribeTagOption'+  { _dtoId :: Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'DescribeTagOption' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dtoId' - The identifier of the TagOption.+describeTagOption+    :: Text -- ^ 'dtoId'+    -> DescribeTagOption+describeTagOption pId_ = DescribeTagOption' {_dtoId = pId_}+++-- | The identifier of the TagOption.+dtoId :: Lens' DescribeTagOption Text+dtoId = lens _dtoId (\ s a -> s{_dtoId = a});++instance AWSRequest DescribeTagOption where+        type Rs DescribeTagOption = DescribeTagOptionResponse+        request = postJSON serviceCatalog+        response+          = receiveJSON+              (\ s h x ->+                 DescribeTagOptionResponse' <$>+                   (x .?> "TagOptionDetail") <*> (pure (fromEnum s)))++instance Hashable DescribeTagOption where++instance NFData DescribeTagOption where++instance ToHeaders DescribeTagOption where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("AWS242ServiceCatalogService.DescribeTagOption" ::+                       ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON DescribeTagOption where+        toJSON DescribeTagOption'{..}+          = object (catMaybes [Just ("Id" .= _dtoId)])++instance ToPath DescribeTagOption where+        toPath = const "/"++instance ToQuery DescribeTagOption where+        toQuery = const mempty++-- | /See:/ 'describeTagOptionResponse' smart constructor.+data DescribeTagOptionResponse = DescribeTagOptionResponse'+  { _dtorsTagOptionDetail :: !(Maybe TagOptionDetail)+  , _dtorsResponseStatus  :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'DescribeTagOptionResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dtorsTagOptionDetail' - The resulting detailed TagOption information.+--+-- * 'dtorsResponseStatus' - -- | The response status code.+describeTagOptionResponse+    :: Int -- ^ 'dtorsResponseStatus'+    -> DescribeTagOptionResponse+describeTagOptionResponse pResponseStatus_ =+  DescribeTagOptionResponse'+  {_dtorsTagOptionDetail = Nothing, _dtorsResponseStatus = pResponseStatus_}+++-- | The resulting detailed TagOption information.+dtorsTagOptionDetail :: Lens' DescribeTagOptionResponse (Maybe TagOptionDetail)+dtorsTagOptionDetail = lens _dtorsTagOptionDetail (\ s a -> s{_dtorsTagOptionDetail = a});++-- | -- | The response status code.+dtorsResponseStatus :: Lens' DescribeTagOptionResponse Int+dtorsResponseStatus = lens _dtorsResponseStatus (\ s a -> s{_dtorsResponseStatus = a});++instance NFData DescribeTagOptionResponse where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.ServiceCatalog.DisassociatePrincipalFromPortfolio--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -38,25 +38,26 @@     , dpfprsResponseStatus     ) where -import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response-import           Network.AWS.ServiceCatalog.Types-import           Network.AWS.ServiceCatalog.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.ServiceCatalog.Types+import Network.AWS.ServiceCatalog.Types.Product  -- | /See:/ 'disassociatePrincipalFromPortfolio' smart constructor. data DisassociatePrincipalFromPortfolio = DisassociatePrincipalFromPortfolio'-    { _disAcceptLanguage :: !(Maybe Text)-    , _disPortfolioId    :: !Text-    , _disPrincipalARN   :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _disAcceptLanguage :: !(Maybe Text)+  , _disPortfolioId    :: !Text+  , _disPrincipalARN   :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DisassociatePrincipalFromPortfolio' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'disAcceptLanguage' - The language code to use for this operation. Supported language codes are as follows: "en" (English) "jp" (Japanese) "zh" (Chinese) If no code is specified, "en" is used as the default.+-- * 'disAcceptLanguage' - The language code.     * @en@ - English (default)     * @jp@ - Japanese     * @zh@ - Chinese -- -- * 'disPortfolioId' - The portfolio identifier. --@@ -66,13 +67,14 @@     -> Text -- ^ 'disPrincipalARN'     -> DisassociatePrincipalFromPortfolio disassociatePrincipalFromPortfolio pPortfolioId_ pPrincipalARN_ =-    DisassociatePrincipalFromPortfolio'-    { _disAcceptLanguage = Nothing-    , _disPortfolioId = pPortfolioId_-    , _disPrincipalARN = pPrincipalARN_-    }+  DisassociatePrincipalFromPortfolio'+  { _disAcceptLanguage = Nothing+  , _disPortfolioId = pPortfolioId_+  , _disPrincipalARN = pPrincipalARN_+  } --- | The language code to use for this operation. Supported language codes are as follows: "en" (English) "jp" (Japanese) "zh" (Chinese) If no code is specified, "en" is used as the default.++-- | The language code.     * @en@ - English (default)     * @jp@ - Japanese     * @zh@ - Chinese disAcceptLanguage :: Lens' DisassociatePrincipalFromPortfolio (Maybe Text) disAcceptLanguage = lens _disAcceptLanguage (\ s a -> s{_disAcceptLanguage = a}); @@ -85,7 +87,8 @@ disPrincipalARN = lens _disPrincipalARN (\ s a -> s{_disPrincipalARN = a});  instance AWSRequest-         DisassociatePrincipalFromPortfolio where+           DisassociatePrincipalFromPortfolio+         where         type Rs DisassociatePrincipalFromPortfolio =              DisassociatePrincipalFromPortfolioResponse         request = postJSON serviceCatalog@@ -96,8 +99,10 @@                    (pure (fromEnum s)))  instance Hashable DisassociatePrincipalFromPortfolio+         where  instance NFData DisassociatePrincipalFromPortfolio+         where  instance ToHeaders DisassociatePrincipalFromPortfolio          where@@ -129,9 +134,10 @@  -- | /See:/ 'disassociatePrincipalFromPortfolioResponse' smart constructor. newtype DisassociatePrincipalFromPortfolioResponse = DisassociatePrincipalFromPortfolioResponse'-    { _dpfprsResponseStatus :: Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _dpfprsResponseStatus :: Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DisassociatePrincipalFromPortfolioResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -141,13 +147,14 @@     :: Int -- ^ 'dpfprsResponseStatus'     -> DisassociatePrincipalFromPortfolioResponse disassociatePrincipalFromPortfolioResponse pResponseStatus_ =-    DisassociatePrincipalFromPortfolioResponse'-    { _dpfprsResponseStatus = pResponseStatus_-    }+  DisassociatePrincipalFromPortfolioResponse'+  {_dpfprsResponseStatus = pResponseStatus_} + -- | -- | The response status code. dpfprsResponseStatus :: Lens' DisassociatePrincipalFromPortfolioResponse Int dpfprsResponseStatus = lens _dpfprsResponseStatus (\ s a -> s{_dpfprsResponseStatus = a});  instance NFData-         DisassociatePrincipalFromPortfolioResponse+           DisassociatePrincipalFromPortfolioResponse+         where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.ServiceCatalog.DisassociateProductFromPortfolio--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -38,25 +38,26 @@     , disrsResponseStatus     ) where -import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response-import           Network.AWS.ServiceCatalog.Types-import           Network.AWS.ServiceCatalog.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.ServiceCatalog.Types+import Network.AWS.ServiceCatalog.Types.Product  -- | /See:/ 'disassociateProductFromPortfolio' smart constructor. data DisassociateProductFromPortfolio = DisassociateProductFromPortfolio'-    { _dpfpAcceptLanguage :: !(Maybe Text)-    , _dpfpProductId      :: !Text-    , _dpfpPortfolioId    :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _dpfpAcceptLanguage :: !(Maybe Text)+  , _dpfpProductId      :: !Text+  , _dpfpPortfolioId    :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DisassociateProductFromPortfolio' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'dpfpAcceptLanguage' - The language code to use for this operation. Supported language codes are as follows: "en" (English) "jp" (Japanese) "zh" (Chinese) If no code is specified, "en" is used as the default.+-- * 'dpfpAcceptLanguage' - The language code.     * @en@ - English (default)     * @jp@ - Japanese     * @zh@ - Chinese -- -- * 'dpfpProductId' - The product identifier. --@@ -66,13 +67,14 @@     -> Text -- ^ 'dpfpPortfolioId'     -> DisassociateProductFromPortfolio disassociateProductFromPortfolio pProductId_ pPortfolioId_ =-    DisassociateProductFromPortfolio'-    { _dpfpAcceptLanguage = Nothing-    , _dpfpProductId = pProductId_-    , _dpfpPortfolioId = pPortfolioId_-    }+  DisassociateProductFromPortfolio'+  { _dpfpAcceptLanguage = Nothing+  , _dpfpProductId = pProductId_+  , _dpfpPortfolioId = pPortfolioId_+  } --- | The language code to use for this operation. Supported language codes are as follows: "en" (English) "jp" (Japanese) "zh" (Chinese) If no code is specified, "en" is used as the default.++-- | The language code.     * @en@ - English (default)     * @jp@ - Japanese     * @zh@ - Chinese dpfpAcceptLanguage :: Lens' DisassociateProductFromPortfolio (Maybe Text) dpfpAcceptLanguage = lens _dpfpAcceptLanguage (\ s a -> s{_dpfpAcceptLanguage = a}); @@ -96,8 +98,10 @@                    (pure (fromEnum s)))  instance Hashable DisassociateProductFromPortfolio+         where  instance NFData DisassociateProductFromPortfolio+         where  instance ToHeaders DisassociateProductFromPortfolio          where@@ -129,9 +133,10 @@  -- | /See:/ 'disassociateProductFromPortfolioResponse' smart constructor. newtype DisassociateProductFromPortfolioResponse = DisassociateProductFromPortfolioResponse'-    { _disrsResponseStatus :: Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _disrsResponseStatus :: Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DisassociateProductFromPortfolioResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -141,13 +146,14 @@     :: Int -- ^ 'disrsResponseStatus'     -> DisassociateProductFromPortfolioResponse disassociateProductFromPortfolioResponse pResponseStatus_ =-    DisassociateProductFromPortfolioResponse'-    { _disrsResponseStatus = pResponseStatus_-    }+  DisassociateProductFromPortfolioResponse'+  {_disrsResponseStatus = pResponseStatus_} + -- | -- | The response status code. disrsResponseStatus :: Lens' DisassociateProductFromPortfolioResponse Int disrsResponseStatus = lens _disrsResponseStatus (\ s a -> s{_disrsResponseStatus = a});  instance NFData-         DisassociateProductFromPortfolioResponse+           DisassociateProductFromPortfolioResponse+         where

@@ -0,0 +1,147 @@+{-# 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.ServiceCatalog.DisassociateTagOptionFromResource+-- Copyright   : (c) 2013-2017 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Disassociates a TagOption from a resource.+--+--+module Network.AWS.ServiceCatalog.DisassociateTagOptionFromResource+    (+    -- * Creating a Request+      disassociateTagOptionFromResource+    , DisassociateTagOptionFromResource+    -- * Request Lenses+    , dtofrResourceId+    , dtofrTagOptionId++    -- * Destructuring the Response+    , disassociateTagOptionFromResourceResponse+    , DisassociateTagOptionFromResourceResponse+    -- * Response Lenses+    , dtofrrsResponseStatus+    ) where++import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.ServiceCatalog.Types+import Network.AWS.ServiceCatalog.Types.Product++-- | /See:/ 'disassociateTagOptionFromResource' smart constructor.+data DisassociateTagOptionFromResource = DisassociateTagOptionFromResource'+  { _dtofrResourceId  :: !Text+  , _dtofrTagOptionId :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'DisassociateTagOptionFromResource' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dtofrResourceId' - Identifier of the resource from which to disassociate the TagOption.+--+-- * 'dtofrTagOptionId' - Identifier of the TagOption to disassociate from the resource.+disassociateTagOptionFromResource+    :: Text -- ^ 'dtofrResourceId'+    -> Text -- ^ 'dtofrTagOptionId'+    -> DisassociateTagOptionFromResource+disassociateTagOptionFromResource pResourceId_ pTagOptionId_ =+  DisassociateTagOptionFromResource'+  {_dtofrResourceId = pResourceId_, _dtofrTagOptionId = pTagOptionId_}+++-- | Identifier of the resource from which to disassociate the TagOption.+dtofrResourceId :: Lens' DisassociateTagOptionFromResource Text+dtofrResourceId = lens _dtofrResourceId (\ s a -> s{_dtofrResourceId = a});++-- | Identifier of the TagOption to disassociate from the resource.+dtofrTagOptionId :: Lens' DisassociateTagOptionFromResource Text+dtofrTagOptionId = lens _dtofrTagOptionId (\ s a -> s{_dtofrTagOptionId = a});++instance AWSRequest DisassociateTagOptionFromResource+         where+        type Rs DisassociateTagOptionFromResource =+             DisassociateTagOptionFromResourceResponse+        request = postJSON serviceCatalog+        response+          = receiveEmpty+              (\ s h x ->+                 DisassociateTagOptionFromResourceResponse' <$>+                   (pure (fromEnum s)))++instance Hashable DisassociateTagOptionFromResource+         where++instance NFData DisassociateTagOptionFromResource+         where++instance ToHeaders DisassociateTagOptionFromResource+         where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("AWS242ServiceCatalogService.DisassociateTagOptionFromResource"+                       :: ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON DisassociateTagOptionFromResource+         where+        toJSON DisassociateTagOptionFromResource'{..}+          = object+              (catMaybes+                 [Just ("ResourceId" .= _dtofrResourceId),+                  Just ("TagOptionId" .= _dtofrTagOptionId)])++instance ToPath DisassociateTagOptionFromResource+         where+        toPath = const "/"++instance ToQuery DisassociateTagOptionFromResource+         where+        toQuery = const mempty++-- | /See:/ 'disassociateTagOptionFromResourceResponse' smart constructor.+newtype DisassociateTagOptionFromResourceResponse = DisassociateTagOptionFromResourceResponse'+  { _dtofrrsResponseStatus :: Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'DisassociateTagOptionFromResourceResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dtofrrsResponseStatus' - -- | The response status code.+disassociateTagOptionFromResourceResponse+    :: Int -- ^ 'dtofrrsResponseStatus'+    -> DisassociateTagOptionFromResourceResponse+disassociateTagOptionFromResourceResponse pResponseStatus_ =+  DisassociateTagOptionFromResourceResponse'+  {_dtofrrsResponseStatus = pResponseStatus_}+++-- | -- | The response status code.+dtofrrsResponseStatus :: Lens' DisassociateTagOptionFromResourceResponse Int+dtofrrsResponseStatus = lens _dtofrrsResponseStatus (\ s a -> s{_dtofrrsResponseStatus = a});++instance NFData+           DisassociateTagOptionFromResourceResponse+         where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.ServiceCatalog.ListAcceptedPortfolioShares--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -40,25 +40,26 @@     , lapsrsResponseStatus     ) where -import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response-import           Network.AWS.ServiceCatalog.Types-import           Network.AWS.ServiceCatalog.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.ServiceCatalog.Types+import Network.AWS.ServiceCatalog.Types.Product  -- | /See:/ 'listAcceptedPortfolioShares' smart constructor. data ListAcceptedPortfolioShares = ListAcceptedPortfolioShares'-    { _lapsAcceptLanguage :: !(Maybe Text)-    , _lapsPageToken      :: !(Maybe Text)-    , _lapsPageSize       :: !(Maybe Nat)-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _lapsAcceptLanguage :: !(Maybe Text)+  , _lapsPageToken      :: !(Maybe Text)+  , _lapsPageSize       :: !(Maybe Nat)+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListAcceptedPortfolioShares' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'lapsAcceptLanguage' - The language code to use for this operation. Supported language codes are as follows: "en" (English) "jp" (Japanese) "zh" (Chinese) If no code is specified, "en" is used as the default.+-- * 'lapsAcceptLanguage' - The language code.     * @en@ - English (default)     * @jp@ - Japanese     * @zh@ - Chinese -- -- * 'lapsPageToken' - The page token of the first page retrieved. If null, this retrieves the first page of size @PageSize@ . --@@ -66,13 +67,14 @@ listAcceptedPortfolioShares     :: ListAcceptedPortfolioShares listAcceptedPortfolioShares =-    ListAcceptedPortfolioShares'-    { _lapsAcceptLanguage = Nothing-    , _lapsPageToken = Nothing-    , _lapsPageSize = Nothing-    }+  ListAcceptedPortfolioShares'+  { _lapsAcceptLanguage = Nothing+  , _lapsPageToken = Nothing+  , _lapsPageSize = Nothing+  } --- | The language code to use for this operation. Supported language codes are as follows: "en" (English) "jp" (Japanese) "zh" (Chinese) If no code is specified, "en" is used as the default.++-- | The language code.     * @en@ - English (default)     * @jp@ - Japanese     * @zh@ - Chinese lapsAcceptLanguage :: Lens' ListAcceptedPortfolioShares (Maybe Text) lapsAcceptLanguage = lens _lapsAcceptLanguage (\ s a -> s{_lapsAcceptLanguage = a}); @@ -96,9 +98,9 @@                      (x .?> "PortfolioDetails" .!@ mempty)                      <*> (pure (fromEnum s))) -instance Hashable ListAcceptedPortfolioShares+instance Hashable ListAcceptedPortfolioShares where -instance NFData ListAcceptedPortfolioShares+instance NFData ListAcceptedPortfolioShares where  instance ToHeaders ListAcceptedPortfolioShares where         toHeaders@@ -126,11 +128,12 @@  -- | /See:/ 'listAcceptedPortfolioSharesResponse' smart constructor. data ListAcceptedPortfolioSharesResponse = ListAcceptedPortfolioSharesResponse'-    { _lapsrsNextPageToken    :: !(Maybe Text)-    , _lapsrsPortfolioDetails :: !(Maybe [PortfolioDetail])-    , _lapsrsResponseStatus   :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _lapsrsNextPageToken    :: !(Maybe Text)+  , _lapsrsPortfolioDetails :: !(Maybe [PortfolioDetail])+  , _lapsrsResponseStatus   :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListAcceptedPortfolioSharesResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -144,12 +147,13 @@     :: Int -- ^ 'lapsrsResponseStatus'     -> ListAcceptedPortfolioSharesResponse listAcceptedPortfolioSharesResponse pResponseStatus_ =-    ListAcceptedPortfolioSharesResponse'-    { _lapsrsNextPageToken = Nothing-    , _lapsrsPortfolioDetails = Nothing-    , _lapsrsResponseStatus = pResponseStatus_-    }+  ListAcceptedPortfolioSharesResponse'+  { _lapsrsNextPageToken = Nothing+  , _lapsrsPortfolioDetails = Nothing+  , _lapsrsResponseStatus = pResponseStatus_+  } + -- | The page token to use to retrieve the next page of results for this operation. If there are no more pages, this value is null. lapsrsNextPageToken :: Lens' ListAcceptedPortfolioSharesResponse (Maybe Text) lapsrsNextPageToken = lens _lapsrsNextPageToken (\ s a -> s{_lapsrsNextPageToken = a});@@ -163,3 +167,4 @@ lapsrsResponseStatus = lens _lapsrsResponseStatus (\ s a -> s{_lapsrsResponseStatus = a});  instance NFData ListAcceptedPortfolioSharesResponse+         where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.ServiceCatalog.ListConstraintsForPortfolio--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -42,27 +42,28 @@     , lcfprsResponseStatus     ) where -import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response-import           Network.AWS.ServiceCatalog.Types-import           Network.AWS.ServiceCatalog.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.ServiceCatalog.Types+import Network.AWS.ServiceCatalog.Types.Product  -- | /See:/ 'listConstraintsForPortfolio' smart constructor. data ListConstraintsForPortfolio = ListConstraintsForPortfolio'-    { _lcfpAcceptLanguage :: !(Maybe Text)-    , _lcfpPageToken      :: !(Maybe Text)-    , _lcfpPageSize       :: !(Maybe Nat)-    , _lcfpProductId      :: !(Maybe Text)-    , _lcfpPortfolioId    :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _lcfpAcceptLanguage :: !(Maybe Text)+  , _lcfpPageToken      :: !(Maybe Text)+  , _lcfpPageSize       :: !(Maybe Nat)+  , _lcfpProductId      :: !(Maybe Text)+  , _lcfpPortfolioId    :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListConstraintsForPortfolio' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'lcfpAcceptLanguage' - The language code to use for this operation. Supported language codes are as follows: "en" (English) "jp" (Japanese) "zh" (Chinese) If no code is specified, "en" is used as the default.+-- * 'lcfpAcceptLanguage' - The language code.     * @en@ - English (default)     * @jp@ - Japanese     * @zh@ - Chinese -- -- * 'lcfpPageToken' - The page token of the first page retrieved. If null, this retrieves the first page of size @PageSize@ . --@@ -75,15 +76,16 @@     :: Text -- ^ 'lcfpPortfolioId'     -> ListConstraintsForPortfolio listConstraintsForPortfolio pPortfolioId_ =-    ListConstraintsForPortfolio'-    { _lcfpAcceptLanguage = Nothing-    , _lcfpPageToken = Nothing-    , _lcfpPageSize = Nothing-    , _lcfpProductId = Nothing-    , _lcfpPortfolioId = pPortfolioId_-    }+  ListConstraintsForPortfolio'+  { _lcfpAcceptLanguage = Nothing+  , _lcfpPageToken = Nothing+  , _lcfpPageSize = Nothing+  , _lcfpProductId = Nothing+  , _lcfpPortfolioId = pPortfolioId_+  } --- | The language code to use for this operation. Supported language codes are as follows: "en" (English) "jp" (Japanese) "zh" (Chinese) If no code is specified, "en" is used as the default.++-- | The language code.     * @en@ - English (default)     * @jp@ - Japanese     * @zh@ - Chinese lcfpAcceptLanguage :: Lens' ListConstraintsForPortfolio (Maybe Text) lcfpAcceptLanguage = lens _lcfpAcceptLanguage (\ s a -> s{_lcfpAcceptLanguage = a}); @@ -115,9 +117,9 @@                      (x .?> "ConstraintDetails" .!@ mempty)                      <*> (pure (fromEnum s))) -instance Hashable ListConstraintsForPortfolio+instance Hashable ListConstraintsForPortfolio where -instance NFData ListConstraintsForPortfolio+instance NFData ListConstraintsForPortfolio where  instance ToHeaders ListConstraintsForPortfolio where         toHeaders@@ -147,11 +149,12 @@  -- | /See:/ 'listConstraintsForPortfolioResponse' smart constructor. data ListConstraintsForPortfolioResponse = ListConstraintsForPortfolioResponse'-    { _lcfprsNextPageToken     :: !(Maybe Text)-    , _lcfprsConstraintDetails :: !(Maybe [ConstraintDetail])-    , _lcfprsResponseStatus    :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _lcfprsNextPageToken     :: !(Maybe Text)+  , _lcfprsConstraintDetails :: !(Maybe [ConstraintDetail])+  , _lcfprsResponseStatus    :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListConstraintsForPortfolioResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -165,12 +168,13 @@     :: Int -- ^ 'lcfprsResponseStatus'     -> ListConstraintsForPortfolioResponse listConstraintsForPortfolioResponse pResponseStatus_ =-    ListConstraintsForPortfolioResponse'-    { _lcfprsNextPageToken = Nothing-    , _lcfprsConstraintDetails = Nothing-    , _lcfprsResponseStatus = pResponseStatus_-    }+  ListConstraintsForPortfolioResponse'+  { _lcfprsNextPageToken = Nothing+  , _lcfprsConstraintDetails = Nothing+  , _lcfprsResponseStatus = pResponseStatus_+  } + -- | The page token to use to retrieve the next page of results for this operation. If there are no more pages, this value is null. lcfprsNextPageToken :: Lens' ListConstraintsForPortfolioResponse (Maybe Text) lcfprsNextPageToken = lens _lcfprsNextPageToken (\ s a -> s{_lcfprsNextPageToken = a});@@ -184,3 +188,4 @@ lcfprsResponseStatus = lens _lcfprsResponseStatus (\ s a -> s{_lcfprsResponseStatus = a});  instance NFData ListConstraintsForPortfolioResponse+         where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.ServiceCatalog.ListLaunchPaths--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -41,44 +41,46 @@     , llprsResponseStatus     ) where -import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response-import           Network.AWS.ServiceCatalog.Types-import           Network.AWS.ServiceCatalog.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.ServiceCatalog.Types+import Network.AWS.ServiceCatalog.Types.Product  -- | /See:/ 'listLaunchPaths' smart constructor. data ListLaunchPaths = ListLaunchPaths'-    { _llpAcceptLanguage :: !(Maybe Text)-    , _llpPageToken      :: !(Maybe Text)-    , _llpPageSize       :: !(Maybe Nat)-    , _llpProductId      :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _llpAcceptLanguage :: !(Maybe Text)+  , _llpPageToken      :: !(Maybe Text)+  , _llpPageSize       :: !(Maybe Nat)+  , _llpProductId      :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListLaunchPaths' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'llpAcceptLanguage' - The language code to use for this operation. Supported language codes are as follows: "en" (English) "jp" (Japanese) "zh" (Chinese) If no code is specified, "en" is used as the default.+-- * 'llpAcceptLanguage' - The language code.     * @en@ - English (default)     * @jp@ - Japanese     * @zh@ - Chinese -- -- * 'llpPageToken' - The page token of the first page retrieved. If null, this retrieves the first page of size @PageSize@ . -- -- * 'llpPageSize' - The maximum number of items to return in the results. If more results exist than fit in the specified @PageSize@ , the value of @NextPageToken@ in the response is non-null. ----- * 'llpProductId' - The product identifier.. Identifies the product for which to retrieve @LaunchPathSummaries@ information.+-- * 'llpProductId' - The product identifier. Identifies the product for which to retrieve @LaunchPathSummaries@ information. listLaunchPaths     :: Text -- ^ 'llpProductId'     -> ListLaunchPaths listLaunchPaths pProductId_ =-    ListLaunchPaths'-    { _llpAcceptLanguage = Nothing-    , _llpPageToken = Nothing-    , _llpPageSize = Nothing-    , _llpProductId = pProductId_-    }+  ListLaunchPaths'+  { _llpAcceptLanguage = Nothing+  , _llpPageToken = Nothing+  , _llpPageSize = Nothing+  , _llpProductId = pProductId_+  } --- | The language code to use for this operation. Supported language codes are as follows: "en" (English) "jp" (Japanese) "zh" (Chinese) If no code is specified, "en" is used as the default.++-- | The language code.     * @en@ - English (default)     * @jp@ - Japanese     * @zh@ - Chinese llpAcceptLanguage :: Lens' ListLaunchPaths (Maybe Text) llpAcceptLanguage = lens _llpAcceptLanguage (\ s a -> s{_llpAcceptLanguage = a}); @@ -90,7 +92,7 @@ llpPageSize :: Lens' ListLaunchPaths (Maybe Natural) llpPageSize = lens _llpPageSize (\ s a -> s{_llpPageSize = a}) . mapping _Nat; --- | The product identifier.. Identifies the product for which to retrieve @LaunchPathSummaries@ information.+-- | The product identifier. Identifies the product for which to retrieve @LaunchPathSummaries@ information. llpProductId :: Lens' ListLaunchPaths Text llpProductId = lens _llpProductId (\ s a -> s{_llpProductId = a}); @@ -105,9 +107,9 @@                      (x .?> "LaunchPathSummaries" .!@ mempty)                      <*> (pure (fromEnum s))) -instance Hashable ListLaunchPaths+instance Hashable ListLaunchPaths where -instance NFData ListLaunchPaths+instance NFData ListLaunchPaths where  instance ToHeaders ListLaunchPaths where         toHeaders@@ -136,11 +138,12 @@  -- | /See:/ 'listLaunchPathsResponse' smart constructor. data ListLaunchPathsResponse = ListLaunchPathsResponse'-    { _llprsNextPageToken       :: !(Maybe Text)-    , _llprsLaunchPathSummaries :: !(Maybe [LaunchPathSummary])-    , _llprsResponseStatus      :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _llprsNextPageToken       :: !(Maybe Text)+  , _llprsLaunchPathSummaries :: !(Maybe [LaunchPathSummary])+  , _llprsResponseStatus      :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListLaunchPathsResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -154,12 +157,13 @@     :: Int -- ^ 'llprsResponseStatus'     -> ListLaunchPathsResponse listLaunchPathsResponse pResponseStatus_ =-    ListLaunchPathsResponse'-    { _llprsNextPageToken = Nothing-    , _llprsLaunchPathSummaries = Nothing-    , _llprsResponseStatus = pResponseStatus_-    }+  ListLaunchPathsResponse'+  { _llprsNextPageToken = Nothing+  , _llprsLaunchPathSummaries = Nothing+  , _llprsResponseStatus = pResponseStatus_+  } + -- | The page token to use to retrieve the next page of results for this operation. If there are no more pages, this value is null. llprsNextPageToken :: Lens' ListLaunchPathsResponse (Maybe Text) llprsNextPageToken = lens _llprsNextPageToken (\ s a -> s{_llprsNextPageToken = a});@@ -172,4 +176,4 @@ llprsResponseStatus :: Lens' ListLaunchPathsResponse Int llprsResponseStatus = lens _llprsResponseStatus (\ s a -> s{_llprsResponseStatus = a}); -instance NFData ListLaunchPathsResponse+instance NFData ListLaunchPathsResponse where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.ServiceCatalog.ListPortfolioAccess--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -39,36 +39,36 @@     , lparsResponseStatus     ) where -import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response-import           Network.AWS.ServiceCatalog.Types-import           Network.AWS.ServiceCatalog.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.ServiceCatalog.Types+import Network.AWS.ServiceCatalog.Types.Product  -- | /See:/ 'listPortfolioAccess' smart constructor. data ListPortfolioAccess = ListPortfolioAccess'-    { _lAcceptLanguage :: !(Maybe Text)-    , _lPortfolioId    :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _lAcceptLanguage :: !(Maybe Text)+  , _lPortfolioId    :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListPortfolioAccess' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'lAcceptLanguage' - The language code to use for this operation. Supported language codes are as follows: "en" (English) "jp" (Japanese) "zh" (Chinese) If no code is specified, "en" is used as the default.+-- * 'lAcceptLanguage' - The language code.     * @en@ - English (default)     * @jp@ - Japanese     * @zh@ - Chinese -- -- * 'lPortfolioId' - The portfolio identifier. listPortfolioAccess     :: Text -- ^ 'lPortfolioId'     -> ListPortfolioAccess listPortfolioAccess pPortfolioId_ =-    ListPortfolioAccess'-    { _lAcceptLanguage = Nothing-    , _lPortfolioId = pPortfolioId_-    }+  ListPortfolioAccess'+  {_lAcceptLanguage = Nothing, _lPortfolioId = pPortfolioId_} --- | The language code to use for this operation. Supported language codes are as follows: "en" (English) "jp" (Japanese) "zh" (Chinese) If no code is specified, "en" is used as the default.++-- | The language code.     * @en@ - English (default)     * @jp@ - Japanese     * @zh@ - Chinese lAcceptLanguage :: Lens' ListPortfolioAccess (Maybe Text) lAcceptLanguage = lens _lAcceptLanguage (\ s a -> s{_lAcceptLanguage = a}); @@ -88,9 +88,9 @@                      (x .?> "AccountIds" .!@ mempty)                      <*> (pure (fromEnum s))) -instance Hashable ListPortfolioAccess+instance Hashable ListPortfolioAccess where -instance NFData ListPortfolioAccess+instance NFData ListPortfolioAccess where  instance ToHeaders ListPortfolioAccess where         toHeaders@@ -117,11 +117,12 @@  -- | /See:/ 'listPortfolioAccessResponse' smart constructor. data ListPortfolioAccessResponse = ListPortfolioAccessResponse'-    { _lparsNextPageToken  :: !(Maybe Text)-    , _lparsAccountIds     :: !(Maybe [Text])-    , _lparsResponseStatus :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _lparsNextPageToken  :: !(Maybe Text)+  , _lparsAccountIds     :: !(Maybe [Text])+  , _lparsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListPortfolioAccessResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -135,12 +136,13 @@     :: Int -- ^ 'lparsResponseStatus'     -> ListPortfolioAccessResponse listPortfolioAccessResponse pResponseStatus_ =-    ListPortfolioAccessResponse'-    { _lparsNextPageToken = Nothing-    , _lparsAccountIds = Nothing-    , _lparsResponseStatus = pResponseStatus_-    }+  ListPortfolioAccessResponse'+  { _lparsNextPageToken = Nothing+  , _lparsAccountIds = Nothing+  , _lparsResponseStatus = pResponseStatus_+  } + -- | The page token to use to retrieve the next page of results for this operation. If there are no more pages, this value is null. lparsNextPageToken :: Lens' ListPortfolioAccessResponse (Maybe Text) lparsNextPageToken = lens _lparsNextPageToken (\ s a -> s{_lparsNextPageToken = a});@@ -153,4 +155,4 @@ lparsResponseStatus :: Lens' ListPortfolioAccessResponse Int lparsResponseStatus = lens _lparsResponseStatus (\ s a -> s{_lparsResponseStatus = a}); -instance NFData ListPortfolioAccessResponse+instance NFData ListPortfolioAccessResponse where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.ServiceCatalog.ListPortfolios--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -40,25 +40,26 @@     , lprsResponseStatus     ) where -import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response-import           Network.AWS.ServiceCatalog.Types-import           Network.AWS.ServiceCatalog.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.ServiceCatalog.Types+import Network.AWS.ServiceCatalog.Types.Product  -- | /See:/ 'listPortfolios' smart constructor. data ListPortfolios = ListPortfolios'-    { _lpAcceptLanguage :: !(Maybe Text)-    , _lpPageToken      :: !(Maybe Text)-    , _lpPageSize       :: !(Maybe Nat)-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _lpAcceptLanguage :: !(Maybe Text)+  , _lpPageToken      :: !(Maybe Text)+  , _lpPageSize       :: !(Maybe Nat)+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListPortfolios' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'lpAcceptLanguage' - The language code to use for this operation. Supported language codes are as follows: "en" (English) "jp" (Japanese) "zh" (Chinese) If no code is specified, "en" is used as the default.+-- * 'lpAcceptLanguage' - The language code.     * @en@ - English (default)     * @jp@ - Japanese     * @zh@ - Chinese -- -- * 'lpPageToken' - The page token of the first page retrieved. If null, this retrieves the first page of size @PageSize@ . --@@ -66,13 +67,11 @@ listPortfolios     :: ListPortfolios listPortfolios =-    ListPortfolios'-    { _lpAcceptLanguage = Nothing-    , _lpPageToken = Nothing-    , _lpPageSize = Nothing-    }+  ListPortfolios'+  {_lpAcceptLanguage = Nothing, _lpPageToken = Nothing, _lpPageSize = Nothing} --- | The language code to use for this operation. Supported language codes are as follows: "en" (English) "jp" (Japanese) "zh" (Chinese) If no code is specified, "en" is used as the default.++-- | The language code.     * @en@ - English (default)     * @jp@ - Japanese     * @zh@ - Chinese lpAcceptLanguage :: Lens' ListPortfolios (Maybe Text) lpAcceptLanguage = lens _lpAcceptLanguage (\ s a -> s{_lpAcceptLanguage = a}); @@ -95,9 +94,9 @@                      (x .?> "PortfolioDetails" .!@ mempty)                      <*> (pure (fromEnum s))) -instance Hashable ListPortfolios+instance Hashable ListPortfolios where -instance NFData ListPortfolios+instance NFData ListPortfolios where  instance ToHeaders ListPortfolios where         toHeaders@@ -125,11 +124,12 @@  -- | /See:/ 'listPortfoliosResponse' smart constructor. data ListPortfoliosResponse = ListPortfoliosResponse'-    { _lprsNextPageToken    :: !(Maybe Text)-    , _lprsPortfolioDetails :: !(Maybe [PortfolioDetail])-    , _lprsResponseStatus   :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _lprsNextPageToken    :: !(Maybe Text)+  , _lprsPortfolioDetails :: !(Maybe [PortfolioDetail])+  , _lprsResponseStatus   :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListPortfoliosResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -143,12 +143,13 @@     :: Int -- ^ 'lprsResponseStatus'     -> ListPortfoliosResponse listPortfoliosResponse pResponseStatus_ =-    ListPortfoliosResponse'-    { _lprsNextPageToken = Nothing-    , _lprsPortfolioDetails = Nothing-    , _lprsResponseStatus = pResponseStatus_-    }+  ListPortfoliosResponse'+  { _lprsNextPageToken = Nothing+  , _lprsPortfolioDetails = Nothing+  , _lprsResponseStatus = pResponseStatus_+  } + -- | The page token to use to retrieve the next page of results for this operation. If there are no more pages, this value is null. lprsNextPageToken :: Lens' ListPortfoliosResponse (Maybe Text) lprsNextPageToken = lens _lprsNextPageToken (\ s a -> s{_lprsNextPageToken = a});@@ -161,4 +162,4 @@ lprsResponseStatus :: Lens' ListPortfoliosResponse Int lprsResponseStatus = lens _lprsResponseStatus (\ s a -> s{_lprsResponseStatus = a}); -instance NFData ListPortfoliosResponse+instance NFData ListPortfoliosResponse where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.ServiceCatalog.ListPortfoliosForProduct--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -41,26 +41,27 @@     , lpfprsResponseStatus     ) where -import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response-import           Network.AWS.ServiceCatalog.Types-import           Network.AWS.ServiceCatalog.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.ServiceCatalog.Types+import Network.AWS.ServiceCatalog.Types.Product  -- | /See:/ 'listPortfoliosForProduct' smart constructor. data ListPortfoliosForProduct = ListPortfoliosForProduct'-    { _lisAcceptLanguage :: !(Maybe Text)-    , _lisPageToken      :: !(Maybe Text)-    , _lisPageSize       :: !(Maybe Nat)-    , _lisProductId      :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _lisAcceptLanguage :: !(Maybe Text)+  , _lisPageToken      :: !(Maybe Text)+  , _lisPageSize       :: !(Maybe Nat)+  , _lisProductId      :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListPortfoliosForProduct' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'lisAcceptLanguage' - The language code to use for this operation. Supported language codes are as follows: "en" (English) "jp" (Japanese) "zh" (Chinese) If no code is specified, "en" is used as the default.+-- * 'lisAcceptLanguage' - The language code.     * @en@ - English (default)     * @jp@ - Japanese     * @zh@ - Chinese -- -- * 'lisPageToken' - The page token of the first page retrieved. If null, this retrieves the first page of size @PageSize@ . --@@ -71,14 +72,15 @@     :: Text -- ^ 'lisProductId'     -> ListPortfoliosForProduct listPortfoliosForProduct pProductId_ =-    ListPortfoliosForProduct'-    { _lisAcceptLanguage = Nothing-    , _lisPageToken = Nothing-    , _lisPageSize = Nothing-    , _lisProductId = pProductId_-    }+  ListPortfoliosForProduct'+  { _lisAcceptLanguage = Nothing+  , _lisPageToken = Nothing+  , _lisPageSize = Nothing+  , _lisProductId = pProductId_+  } --- | The language code to use for this operation. Supported language codes are as follows: "en" (English) "jp" (Japanese) "zh" (Chinese) If no code is specified, "en" is used as the default.++-- | The language code.     * @en@ - English (default)     * @jp@ - Japanese     * @zh@ - Chinese lisAcceptLanguage :: Lens' ListPortfoliosForProduct (Maybe Text) lisAcceptLanguage = lens _lisAcceptLanguage (\ s a -> s{_lisAcceptLanguage = a}); @@ -106,9 +108,9 @@                      (x .?> "PortfolioDetails" .!@ mempty)                      <*> (pure (fromEnum s))) -instance Hashable ListPortfoliosForProduct+instance Hashable ListPortfoliosForProduct where -instance NFData ListPortfoliosForProduct+instance NFData ListPortfoliosForProduct where  instance ToHeaders ListPortfoliosForProduct where         toHeaders@@ -137,11 +139,12 @@  -- | /See:/ 'listPortfoliosForProductResponse' smart constructor. data ListPortfoliosForProductResponse = ListPortfoliosForProductResponse'-    { _lpfprsNextPageToken    :: !(Maybe Text)-    , _lpfprsPortfolioDetails :: !(Maybe [PortfolioDetail])-    , _lpfprsResponseStatus   :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _lpfprsNextPageToken    :: !(Maybe Text)+  , _lpfprsPortfolioDetails :: !(Maybe [PortfolioDetail])+  , _lpfprsResponseStatus   :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListPortfoliosForProductResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -155,12 +158,13 @@     :: Int -- ^ 'lpfprsResponseStatus'     -> ListPortfoliosForProductResponse listPortfoliosForProductResponse pResponseStatus_ =-    ListPortfoliosForProductResponse'-    { _lpfprsNextPageToken = Nothing-    , _lpfprsPortfolioDetails = Nothing-    , _lpfprsResponseStatus = pResponseStatus_-    }+  ListPortfoliosForProductResponse'+  { _lpfprsNextPageToken = Nothing+  , _lpfprsPortfolioDetails = Nothing+  , _lpfprsResponseStatus = pResponseStatus_+  } + -- | The page token to use to retrieve the next page of results for this operation. If there are no more pages, this value is null. lpfprsNextPageToken :: Lens' ListPortfoliosForProductResponse (Maybe Text) lpfprsNextPageToken = lens _lpfprsNextPageToken (\ s a -> s{_lpfprsNextPageToken = a});@@ -174,3 +178,4 @@ lpfprsResponseStatus = lens _lpfprsResponseStatus (\ s a -> s{_lpfprsResponseStatus = a});  instance NFData ListPortfoliosForProductResponse+         where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.ServiceCatalog.ListPrincipalsForPortfolio--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -41,26 +41,27 @@     , lisrsResponseStatus     ) where -import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response-import           Network.AWS.ServiceCatalog.Types-import           Network.AWS.ServiceCatalog.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.ServiceCatalog.Types+import Network.AWS.ServiceCatalog.Types.Product  -- | /See:/ 'listPrincipalsForPortfolio' smart constructor. data ListPrincipalsForPortfolio = ListPrincipalsForPortfolio'-    { _lpfpAcceptLanguage :: !(Maybe Text)-    , _lpfpPageToken      :: !(Maybe Text)-    , _lpfpPageSize       :: !(Maybe Nat)-    , _lpfpPortfolioId    :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _lpfpAcceptLanguage :: !(Maybe Text)+  , _lpfpPageToken      :: !(Maybe Text)+  , _lpfpPageSize       :: !(Maybe Nat)+  , _lpfpPortfolioId    :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListPrincipalsForPortfolio' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'lpfpAcceptLanguage' - The language code to use for this operation. Supported language codes are as follows: "en" (English) "jp" (Japanese) "zh" (Chinese) If no code is specified, "en" is used as the default.+-- * 'lpfpAcceptLanguage' - The language code.     * @en@ - English (default)     * @jp@ - Japanese     * @zh@ - Chinese -- -- * 'lpfpPageToken' - The page token of the first page retrieved. If null, this retrieves the first page of size @PageSize@ . --@@ -71,14 +72,15 @@     :: Text -- ^ 'lpfpPortfolioId'     -> ListPrincipalsForPortfolio listPrincipalsForPortfolio pPortfolioId_ =-    ListPrincipalsForPortfolio'-    { _lpfpAcceptLanguage = Nothing-    , _lpfpPageToken = Nothing-    , _lpfpPageSize = Nothing-    , _lpfpPortfolioId = pPortfolioId_-    }+  ListPrincipalsForPortfolio'+  { _lpfpAcceptLanguage = Nothing+  , _lpfpPageToken = Nothing+  , _lpfpPageSize = Nothing+  , _lpfpPortfolioId = pPortfolioId_+  } --- | The language code to use for this operation. Supported language codes are as follows: "en" (English) "jp" (Japanese) "zh" (Chinese) If no code is specified, "en" is used as the default.++-- | The language code.     * @en@ - English (default)     * @jp@ - Japanese     * @zh@ - Chinese lpfpAcceptLanguage :: Lens' ListPrincipalsForPortfolio (Maybe Text) lpfpAcceptLanguage = lens _lpfpAcceptLanguage (\ s a -> s{_lpfpAcceptLanguage = a}); @@ -106,9 +108,9 @@                      (x .?> "Principals" .!@ mempty)                      <*> (pure (fromEnum s))) -instance Hashable ListPrincipalsForPortfolio+instance Hashable ListPrincipalsForPortfolio where -instance NFData ListPrincipalsForPortfolio+instance NFData ListPrincipalsForPortfolio where  instance ToHeaders ListPrincipalsForPortfolio where         toHeaders@@ -137,11 +139,12 @@  -- | /See:/ 'listPrincipalsForPortfolioResponse' smart constructor. data ListPrincipalsForPortfolioResponse = ListPrincipalsForPortfolioResponse'-    { _lisrsNextPageToken  :: !(Maybe Text)-    , _lisrsPrincipals     :: !(Maybe [Principal])-    , _lisrsResponseStatus :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _lisrsNextPageToken  :: !(Maybe Text)+  , _lisrsPrincipals     :: !(Maybe [Principal])+  , _lisrsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListPrincipalsForPortfolioResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -155,12 +158,13 @@     :: Int -- ^ 'lisrsResponseStatus'     -> ListPrincipalsForPortfolioResponse listPrincipalsForPortfolioResponse pResponseStatus_ =-    ListPrincipalsForPortfolioResponse'-    { _lisrsNextPageToken = Nothing-    , _lisrsPrincipals = Nothing-    , _lisrsResponseStatus = pResponseStatus_-    }+  ListPrincipalsForPortfolioResponse'+  { _lisrsNextPageToken = Nothing+  , _lisrsPrincipals = Nothing+  , _lisrsResponseStatus = pResponseStatus_+  } + -- | The page token to use to retrieve the next page of results for this operation. If there are no more pages, this value is null. lisrsNextPageToken :: Lens' ListPrincipalsForPortfolioResponse (Maybe Text) lisrsNextPageToken = lens _lisrsNextPageToken (\ s a -> s{_lisrsNextPageToken = a});@@ -174,3 +178,4 @@ lisrsResponseStatus = lens _lisrsResponseStatus (\ s a -> s{_lisrsResponseStatus = a});  instance NFData ListPrincipalsForPortfolioResponse+         where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.ServiceCatalog.ListProvisioningArtifacts--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -39,36 +39,36 @@     , lrsResponseStatus     ) where -import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response-import           Network.AWS.ServiceCatalog.Types-import           Network.AWS.ServiceCatalog.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.ServiceCatalog.Types+import Network.AWS.ServiceCatalog.Types.Product  -- | /See:/ 'listProvisioningArtifacts' smart constructor. data ListProvisioningArtifacts = ListProvisioningArtifacts'-    { _lpaAcceptLanguage :: !(Maybe Text)-    , _lpaProductId      :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _lpaAcceptLanguage :: !(Maybe Text)+  , _lpaProductId      :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListProvisioningArtifacts' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'lpaAcceptLanguage' - The language code to use for this operation. Supported language codes are as follows: "en" (English) "jp" (Japanese) "zh" (Chinese) If no code is specified, "en" is used as the default.+-- * 'lpaAcceptLanguage' - The language code.     * @en@ - English (default)     * @jp@ - Japanese     * @zh@ - Chinese -- -- * 'lpaProductId' - The product identifier. listProvisioningArtifacts     :: Text -- ^ 'lpaProductId'     -> ListProvisioningArtifacts listProvisioningArtifacts pProductId_ =-    ListProvisioningArtifacts'-    { _lpaAcceptLanguage = Nothing-    , _lpaProductId = pProductId_-    }+  ListProvisioningArtifacts'+  {_lpaAcceptLanguage = Nothing, _lpaProductId = pProductId_} --- | The language code to use for this operation. Supported language codes are as follows: "en" (English) "jp" (Japanese) "zh" (Chinese) If no code is specified, "en" is used as the default.++-- | The language code.     * @en@ - English (default)     * @jp@ - Japanese     * @zh@ - Chinese lpaAcceptLanguage :: Lens' ListProvisioningArtifacts (Maybe Text) lpaAcceptLanguage = lens _lpaAcceptLanguage (\ s a -> s{_lpaAcceptLanguage = a}); @@ -88,9 +88,9 @@                      (x .?> "ProvisioningArtifactDetails" .!@ mempty)                      <*> (pure (fromEnum s))) -instance Hashable ListProvisioningArtifacts+instance Hashable ListProvisioningArtifacts where -instance NFData ListProvisioningArtifacts+instance NFData ListProvisioningArtifacts where  instance ToHeaders ListProvisioningArtifacts where         toHeaders@@ -117,11 +117,12 @@  -- | /See:/ 'listProvisioningArtifactsResponse' smart constructor. data ListProvisioningArtifactsResponse = ListProvisioningArtifactsResponse'-    { _lrsNextPageToken               :: !(Maybe Text)-    , _lrsProvisioningArtifactDetails :: !(Maybe [ProvisioningArtifactDetail])-    , _lrsResponseStatus              :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _lrsNextPageToken               :: !(Maybe Text)+  , _lrsProvisioningArtifactDetails :: !(Maybe [ProvisioningArtifactDetail])+  , _lrsResponseStatus              :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListProvisioningArtifactsResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -135,12 +136,13 @@     :: Int -- ^ 'lrsResponseStatus'     -> ListProvisioningArtifactsResponse listProvisioningArtifactsResponse pResponseStatus_ =-    ListProvisioningArtifactsResponse'-    { _lrsNextPageToken = Nothing-    , _lrsProvisioningArtifactDetails = Nothing-    , _lrsResponseStatus = pResponseStatus_-    }+  ListProvisioningArtifactsResponse'+  { _lrsNextPageToken = Nothing+  , _lrsProvisioningArtifactDetails = Nothing+  , _lrsResponseStatus = pResponseStatus_+  } + -- | The page token to use to retrieve the next page of results for this operation. If there are no more pages, this value is null. lrsNextPageToken :: Lens' ListProvisioningArtifactsResponse (Maybe Text) lrsNextPageToken = lens _lrsNextPageToken (\ s a -> s{_lrsNextPageToken = a});@@ -154,3 +156,4 @@ lrsResponseStatus = lens _lrsResponseStatus (\ s a -> s{_lrsResponseStatus = a});  instance NFData ListProvisioningArtifactsResponse+         where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.ServiceCatalog.ListRecordHistory--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -42,29 +42,30 @@     , lrhrsResponseStatus     ) where -import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response-import           Network.AWS.ServiceCatalog.Types-import           Network.AWS.ServiceCatalog.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.ServiceCatalog.Types+import Network.AWS.ServiceCatalog.Types.Product  -- | /See:/ 'listRecordHistory' smart constructor. data ListRecordHistory = ListRecordHistory'-    { _lrhSearchFilter      :: !(Maybe ListRecordHistorySearchFilter)-    , _lrhAcceptLanguage    :: !(Maybe Text)-    , _lrhAccessLevelFilter :: !(Maybe AccessLevelFilter)-    , _lrhPageToken         :: !(Maybe Text)-    , _lrhPageSize          :: !(Maybe Nat)-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _lrhSearchFilter      :: !(Maybe ListRecordHistorySearchFilter)+  , _lrhAcceptLanguage    :: !(Maybe Text)+  , _lrhAccessLevelFilter :: !(Maybe AccessLevelFilter)+  , _lrhPageToken         :: !(Maybe Text)+  , _lrhPageSize          :: !(Maybe Nat)+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListRecordHistory' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: -- -- * 'lrhSearchFilter' - The filter to limit search results. ----- * 'lrhAcceptLanguage' - The language code to use for this operation. Supported language codes are as follows: "en" (English) "jp" (Japanese) "zh" (Chinese) If no code is specified, "en" is used as the default.+-- * 'lrhAcceptLanguage' - The language code.     * @en@ - English (default)     * @jp@ - Japanese     * @zh@ - Chinese -- -- * 'lrhAccessLevelFilter' - The access level for obtaining results. If left unspecified, @User@ level access is used. --@@ -74,19 +75,20 @@ listRecordHistory     :: ListRecordHistory listRecordHistory =-    ListRecordHistory'-    { _lrhSearchFilter = Nothing-    , _lrhAcceptLanguage = Nothing-    , _lrhAccessLevelFilter = Nothing-    , _lrhPageToken = Nothing-    , _lrhPageSize = Nothing-    }+  ListRecordHistory'+  { _lrhSearchFilter = Nothing+  , _lrhAcceptLanguage = Nothing+  , _lrhAccessLevelFilter = Nothing+  , _lrhPageToken = Nothing+  , _lrhPageSize = Nothing+  } + -- | The filter to limit search results. lrhSearchFilter :: Lens' ListRecordHistory (Maybe ListRecordHistorySearchFilter) lrhSearchFilter = lens _lrhSearchFilter (\ s a -> s{_lrhSearchFilter = a}); --- | The language code to use for this operation. Supported language codes are as follows: "en" (English) "jp" (Japanese) "zh" (Chinese) If no code is specified, "en" is used as the default.+-- | The language code.     * @en@ - English (default)     * @jp@ - Japanese     * @zh@ - Chinese lrhAcceptLanguage :: Lens' ListRecordHistory (Maybe Text) lrhAcceptLanguage = lens _lrhAcceptLanguage (\ s a -> s{_lrhAcceptLanguage = a}); @@ -113,9 +115,9 @@                      (x .?> "RecordDetails" .!@ mempty)                      <*> (pure (fromEnum s))) -instance Hashable ListRecordHistory+instance Hashable ListRecordHistory where -instance NFData ListRecordHistory+instance NFData ListRecordHistory where  instance ToHeaders ListRecordHistory where         toHeaders@@ -145,11 +147,12 @@  -- | /See:/ 'listRecordHistoryResponse' smart constructor. data ListRecordHistoryResponse = ListRecordHistoryResponse'-    { _lrhrsNextPageToken  :: !(Maybe Text)-    , _lrhrsRecordDetails  :: !(Maybe [RecordDetail])-    , _lrhrsResponseStatus :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _lrhrsNextPageToken  :: !(Maybe Text)+  , _lrhrsRecordDetails  :: !(Maybe [RecordDetail])+  , _lrhrsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListRecordHistoryResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -163,12 +166,13 @@     :: Int -- ^ 'lrhrsResponseStatus'     -> ListRecordHistoryResponse listRecordHistoryResponse pResponseStatus_ =-    ListRecordHistoryResponse'-    { _lrhrsNextPageToken = Nothing-    , _lrhrsRecordDetails = Nothing-    , _lrhrsResponseStatus = pResponseStatus_-    }+  ListRecordHistoryResponse'+  { _lrhrsNextPageToken = Nothing+  , _lrhrsRecordDetails = Nothing+  , _lrhrsResponseStatus = pResponseStatus_+  } + -- | The page token to use to retrieve the next page of results for this operation. If there are no more pages, this value is null. lrhrsNextPageToken :: Lens' ListRecordHistoryResponse (Maybe Text) lrhrsNextPageToken = lens _lrhrsNextPageToken (\ s a -> s{_lrhrsNextPageToken = a});@@ -181,4 +185,4 @@ lrhrsResponseStatus :: Lens' ListRecordHistoryResponse Int lrhrsResponseStatus = lens _lrhrsResponseStatus (\ s a -> s{_lrhrsResponseStatus = a}); -instance NFData ListRecordHistoryResponse+instance NFData ListRecordHistoryResponse where

@@ -0,0 +1,181 @@+{-# 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.ServiceCatalog.ListResourcesForTagOption+-- Copyright   : (c) 2013-2017 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Lists resources associated with a TagOption.+--+--+module Network.AWS.ServiceCatalog.ListResourcesForTagOption+    (+    -- * Creating a Request+      listResourcesForTagOption+    , ListResourcesForTagOption+    -- * Request Lenses+    , lrftoResourceType+    , lrftoPageToken+    , lrftoPageSize+    , lrftoTagOptionId++    -- * Destructuring the Response+    , listResourcesForTagOptionResponse+    , ListResourcesForTagOptionResponse+    -- * Response Lenses+    , lrftorsResourceDetails+    , lrftorsPageToken+    , lrftorsResponseStatus+    ) where++import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.ServiceCatalog.Types+import Network.AWS.ServiceCatalog.Types.Product++-- | /See:/ 'listResourcesForTagOption' smart constructor.+data ListResourcesForTagOption = ListResourcesForTagOption'+  { _lrftoResourceType :: !(Maybe Text)+  , _lrftoPageToken    :: !(Maybe Text)+  , _lrftoPageSize     :: !(Maybe Nat)+  , _lrftoTagOptionId  :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'ListResourcesForTagOption' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'lrftoResourceType' - Resource type.+--+-- * 'lrftoPageToken' - The page token of the first page retrieved. If null, this retrieves the first page of size @PageSize@ .+--+-- * 'lrftoPageSize' - The maximum number of items to return in the results. If more results exist than fit in the specified @PageSize@ , the value of @NextPageToken@ in the response is non-null.+--+-- * 'lrftoTagOptionId' - Identifier of the TagOption.+listResourcesForTagOption+    :: Text -- ^ 'lrftoTagOptionId'+    -> ListResourcesForTagOption+listResourcesForTagOption pTagOptionId_ =+  ListResourcesForTagOption'+  { _lrftoResourceType = Nothing+  , _lrftoPageToken = Nothing+  , _lrftoPageSize = Nothing+  , _lrftoTagOptionId = pTagOptionId_+  }+++-- | Resource type.+lrftoResourceType :: Lens' ListResourcesForTagOption (Maybe Text)+lrftoResourceType = lens _lrftoResourceType (\ s a -> s{_lrftoResourceType = a});++-- | The page token of the first page retrieved. If null, this retrieves the first page of size @PageSize@ .+lrftoPageToken :: Lens' ListResourcesForTagOption (Maybe Text)+lrftoPageToken = lens _lrftoPageToken (\ s a -> s{_lrftoPageToken = a});++-- | The maximum number of items to return in the results. If more results exist than fit in the specified @PageSize@ , the value of @NextPageToken@ in the response is non-null.+lrftoPageSize :: Lens' ListResourcesForTagOption (Maybe Natural)+lrftoPageSize = lens _lrftoPageSize (\ s a -> s{_lrftoPageSize = a}) . mapping _Nat;++-- | Identifier of the TagOption.+lrftoTagOptionId :: Lens' ListResourcesForTagOption Text+lrftoTagOptionId = lens _lrftoTagOptionId (\ s a -> s{_lrftoTagOptionId = a});++instance AWSRequest ListResourcesForTagOption where+        type Rs ListResourcesForTagOption =+             ListResourcesForTagOptionResponse+        request = postJSON serviceCatalog+        response+          = receiveJSON+              (\ s h x ->+                 ListResourcesForTagOptionResponse' <$>+                   (x .?> "ResourceDetails" .!@ mempty) <*>+                     (x .?> "PageToken")+                     <*> (pure (fromEnum s)))++instance Hashable ListResourcesForTagOption where++instance NFData ListResourcesForTagOption where++instance ToHeaders ListResourcesForTagOption where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("AWS242ServiceCatalogService.ListResourcesForTagOption"+                       :: ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON ListResourcesForTagOption where+        toJSON ListResourcesForTagOption'{..}+          = object+              (catMaybes+                 [("ResourceType" .=) <$> _lrftoResourceType,+                  ("PageToken" .=) <$> _lrftoPageToken,+                  ("PageSize" .=) <$> _lrftoPageSize,+                  Just ("TagOptionId" .= _lrftoTagOptionId)])++instance ToPath ListResourcesForTagOption where+        toPath = const "/"++instance ToQuery ListResourcesForTagOption where+        toQuery = const mempty++-- | /See:/ 'listResourcesForTagOptionResponse' smart constructor.+data ListResourcesForTagOptionResponse = ListResourcesForTagOptionResponse'+  { _lrftorsResourceDetails :: !(Maybe [ResourceDetail])+  , _lrftorsPageToken       :: !(Maybe Text)+  , _lrftorsResponseStatus  :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'ListResourcesForTagOptionResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'lrftorsResourceDetails' - The resulting detailed resource information.+--+-- * 'lrftorsPageToken' - The page token of the first page retrieved. If null, this retrieves the first page of size @PageSize@ .+--+-- * 'lrftorsResponseStatus' - -- | The response status code.+listResourcesForTagOptionResponse+    :: Int -- ^ 'lrftorsResponseStatus'+    -> ListResourcesForTagOptionResponse+listResourcesForTagOptionResponse pResponseStatus_ =+  ListResourcesForTagOptionResponse'+  { _lrftorsResourceDetails = Nothing+  , _lrftorsPageToken = Nothing+  , _lrftorsResponseStatus = pResponseStatus_+  }+++-- | The resulting detailed resource information.+lrftorsResourceDetails :: Lens' ListResourcesForTagOptionResponse [ResourceDetail]+lrftorsResourceDetails = lens _lrftorsResourceDetails (\ s a -> s{_lrftorsResourceDetails = a}) . _Default . _Coerce;++-- | The page token of the first page retrieved. If null, this retrieves the first page of size @PageSize@ .+lrftorsPageToken :: Lens' ListResourcesForTagOptionResponse (Maybe Text)+lrftorsPageToken = lens _lrftorsPageToken (\ s a -> s{_lrftorsPageToken = a});++-- | -- | The response status code.+lrftorsResponseStatus :: Lens' ListResourcesForTagOptionResponse Int+lrftorsResponseStatus = lens _lrftorsResponseStatus (\ s a -> s{_lrftorsResponseStatus = a});++instance NFData ListResourcesForTagOptionResponse+         where

@@ -0,0 +1,165 @@+{-# 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.ServiceCatalog.ListTagOptions+-- Copyright   : (c) 2013-2017 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Lists detailed TagOptions information.+--+--+module Network.AWS.ServiceCatalog.ListTagOptions+    (+    -- * Creating a Request+      listTagOptions+    , ListTagOptions+    -- * Request Lenses+    , ltoFilters+    , ltoPageToken+    , ltoPageSize++    -- * Destructuring the Response+    , listTagOptionsResponse+    , ListTagOptionsResponse+    -- * Response Lenses+    , ltorsPageToken+    , ltorsTagOptionDetails+    , ltorsResponseStatus+    ) where++import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.ServiceCatalog.Types+import Network.AWS.ServiceCatalog.Types.Product++-- | /See:/ 'listTagOptions' smart constructor.+data ListTagOptions = ListTagOptions'+  { _ltoFilters   :: !(Maybe ListTagOptionsFilters)+  , _ltoPageToken :: !(Maybe Text)+  , _ltoPageSize  :: !(Maybe Nat)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'ListTagOptions' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'ltoFilters' - The list of filters with which to limit search results. If no search filters are specified, the output is all TagOptions.+--+-- * 'ltoPageToken' - The page token of the first page retrieved. If null, this retrieves the first page of size @PageSize@ .+--+-- * 'ltoPageSize' - The maximum number of items to return in the results. If more results exist than fit in the specified @PageSize@ , the value of @NextPageToken@ in the response is non-null.+listTagOptions+    :: ListTagOptions+listTagOptions =+  ListTagOptions'+  {_ltoFilters = Nothing, _ltoPageToken = Nothing, _ltoPageSize = Nothing}+++-- | The list of filters with which to limit search results. If no search filters are specified, the output is all TagOptions.+ltoFilters :: Lens' ListTagOptions (Maybe ListTagOptionsFilters)+ltoFilters = lens _ltoFilters (\ s a -> s{_ltoFilters = a});++-- | The page token of the first page retrieved. If null, this retrieves the first page of size @PageSize@ .+ltoPageToken :: Lens' ListTagOptions (Maybe Text)+ltoPageToken = lens _ltoPageToken (\ s a -> s{_ltoPageToken = a});++-- | The maximum number of items to return in the results. If more results exist than fit in the specified @PageSize@ , the value of @NextPageToken@ in the response is non-null.+ltoPageSize :: Lens' ListTagOptions (Maybe Natural)+ltoPageSize = lens _ltoPageSize (\ s a -> s{_ltoPageSize = a}) . mapping _Nat;++instance AWSRequest ListTagOptions where+        type Rs ListTagOptions = ListTagOptionsResponse+        request = postJSON serviceCatalog+        response+          = receiveJSON+              (\ s h x ->+                 ListTagOptionsResponse' <$>+                   (x .?> "PageToken") <*>+                     (x .?> "TagOptionDetails" .!@ mempty)+                     <*> (pure (fromEnum s)))++instance Hashable ListTagOptions where++instance NFData ListTagOptions where++instance ToHeaders ListTagOptions where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("AWS242ServiceCatalogService.ListTagOptions" ::+                       ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON ListTagOptions where+        toJSON ListTagOptions'{..}+          = object+              (catMaybes+                 [("Filters" .=) <$> _ltoFilters,+                  ("PageToken" .=) <$> _ltoPageToken,+                  ("PageSize" .=) <$> _ltoPageSize])++instance ToPath ListTagOptions where+        toPath = const "/"++instance ToQuery ListTagOptions where+        toQuery = const mempty++-- | /See:/ 'listTagOptionsResponse' smart constructor.+data ListTagOptionsResponse = ListTagOptionsResponse'+  { _ltorsPageToken        :: !(Maybe Text)+  , _ltorsTagOptionDetails :: !(Maybe [TagOptionDetail])+  , _ltorsResponseStatus   :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'ListTagOptionsResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'ltorsPageToken' - The page token of the first page retrieved. If null, this retrieves the first page of size @PageSize@ .+--+-- * 'ltorsTagOptionDetails' - The resulting detailed TagOption information.+--+-- * 'ltorsResponseStatus' - -- | The response status code.+listTagOptionsResponse+    :: Int -- ^ 'ltorsResponseStatus'+    -> ListTagOptionsResponse+listTagOptionsResponse pResponseStatus_ =+  ListTagOptionsResponse'+  { _ltorsPageToken = Nothing+  , _ltorsTagOptionDetails = Nothing+  , _ltorsResponseStatus = pResponseStatus_+  }+++-- | The page token of the first page retrieved. If null, this retrieves the first page of size @PageSize@ .+ltorsPageToken :: Lens' ListTagOptionsResponse (Maybe Text)+ltorsPageToken = lens _ltorsPageToken (\ s a -> s{_ltorsPageToken = a});++-- | The resulting detailed TagOption information.+ltorsTagOptionDetails :: Lens' ListTagOptionsResponse [TagOptionDetail]+ltorsTagOptionDetails = lens _ltorsTagOptionDetails (\ s a -> s{_ltorsTagOptionDetails = a}) . _Default . _Coerce;++-- | -- | The response status code.+ltorsResponseStatus :: Lens' ListTagOptionsResponse Int+ltorsResponseStatus = lens _ltorsResponseStatus (\ s a -> s{_ltorsResponseStatus = a});++instance NFData ListTagOptionsResponse where

@@ -12,16 +12,16 @@  -- | -- Module      : Network.AWS.ServiceCatalog.ProvisionProduct--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Requests a /Provision/ of a specified product. A /ProvisionedProduct/ is a resourced instance for a product. For example, provisioning a CloudFormation-template-backed product results in launching a CloudFormation stack and all the underlying resources that come with it.+-- Requests a /provision/ of a specified product. A /provisioned product/ is a resourced instance for a product. For example, provisioning a CloudFormation-template-backed product results in launching a CloudFormation stack and all the underlying resources that come with it. -- ----- You can check the status of this request using the 'DescribeRecord' operation.+-- You can check the status of this request using the 'DescribeRecord' operation. The error "Parameter validation failed: Missing required parameter in Tags[/N/ ]:/Value/ " indicates that your request contains a tag which has a tag key but no corresponding tag value (value is empty or null). Your call may have included values returned from a @DescribeProvisioningParameters@ call that resulted in a TagOption key with an empty list. This happens when TagOption keys are in conflict. For more information, see 'DescribeProvisioningParameters' . -- module Network.AWS.ServiceCatalog.ProvisionProduct     (@@ -47,33 +47,34 @@     , pprsResponseStatus     ) where -import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response-import           Network.AWS.ServiceCatalog.Types-import           Network.AWS.ServiceCatalog.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.ServiceCatalog.Types+import Network.AWS.ServiceCatalog.Types.Product  -- | /See:/ 'provisionProduct' smart constructor. data ProvisionProduct = ProvisionProduct'-    { _ppNotificationARNs       :: !(Maybe [Text])-    , _ppAcceptLanguage         :: !(Maybe Text)-    , _ppPathId                 :: !(Maybe Text)-    , _ppProvisioningParameters :: !(Maybe [ProvisioningParameter])-    , _ppTags                   :: !(Maybe [Tag])-    , _ppProductId              :: !Text-    , _ppProvisioningArtifactId :: !Text-    , _ppProvisionedProductName :: !Text-    , _ppProvisionToken         :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _ppNotificationARNs       :: !(Maybe [Text])+  , _ppAcceptLanguage         :: !(Maybe Text)+  , _ppPathId                 :: !(Maybe Text)+  , _ppProvisioningParameters :: !(Maybe [ProvisioningParameter])+  , _ppTags                   :: !(Maybe [Tag])+  , _ppProductId              :: !Text+  , _ppProvisioningArtifactId :: !Text+  , _ppProvisionedProductName :: !Text+  , _ppProvisionToken         :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProvisionProduct' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: -- -- * 'ppNotificationARNs' - Passed to CloudFormation. The SNS topic ARNs to which to publish stack-related events. ----- * 'ppAcceptLanguage' - The language code to use for this operation. Supported language codes are as follows: "en" (English) "jp" (Japanese) "zh" (Chinese) If no code is specified, "en" is used as the default.+-- * 'ppAcceptLanguage' - The language code.     * @en@ - English (default)     * @jp@ - Japanese     * @zh@ - Chinese -- -- * 'ppPathId' - The identifier of the path for this product's provisioning. This value is optional if the product has a default path, and is required if there is more than one path for the specified product. --@@ -83,7 +84,7 @@ -- -- * 'ppProductId' - The product identifier. ----- * 'ppProvisioningArtifactId' - The provisioning artifact identifier for this product.+-- * 'ppProvisioningArtifactId' - The provisioning artifact identifier for this product. This is sometimes referred to as the product version. -- -- * 'ppProvisionedProductName' - A user-friendly name to identify the ProvisionedProduct object. This value must be unique for the AWS account and cannot be updated after the product is provisioned. --@@ -95,23 +96,24 @@     -> Text -- ^ 'ppProvisionToken'     -> ProvisionProduct provisionProduct pProductId_ pProvisioningArtifactId_ pProvisionedProductName_ pProvisionToken_ =-    ProvisionProduct'-    { _ppNotificationARNs = Nothing-    , _ppAcceptLanguage = Nothing-    , _ppPathId = Nothing-    , _ppProvisioningParameters = Nothing-    , _ppTags = Nothing-    , _ppProductId = pProductId_-    , _ppProvisioningArtifactId = pProvisioningArtifactId_-    , _ppProvisionedProductName = pProvisionedProductName_-    , _ppProvisionToken = pProvisionToken_-    }+  ProvisionProduct'+  { _ppNotificationARNs = Nothing+  , _ppAcceptLanguage = Nothing+  , _ppPathId = Nothing+  , _ppProvisioningParameters = Nothing+  , _ppTags = Nothing+  , _ppProductId = pProductId_+  , _ppProvisioningArtifactId = pProvisioningArtifactId_+  , _ppProvisionedProductName = pProvisionedProductName_+  , _ppProvisionToken = pProvisionToken_+  } + -- | Passed to CloudFormation. The SNS topic ARNs to which to publish stack-related events. ppNotificationARNs :: Lens' ProvisionProduct [Text] ppNotificationARNs = lens _ppNotificationARNs (\ s a -> s{_ppNotificationARNs = a}) . _Default . _Coerce; --- | The language code to use for this operation. Supported language codes are as follows: "en" (English) "jp" (Japanese) "zh" (Chinese) If no code is specified, "en" is used as the default.+-- | The language code.     * @en@ - English (default)     * @jp@ - Japanese     * @zh@ - Chinese ppAcceptLanguage :: Lens' ProvisionProduct (Maybe Text) ppAcceptLanguage = lens _ppAcceptLanguage (\ s a -> s{_ppAcceptLanguage = a}); @@ -131,7 +133,7 @@ ppProductId :: Lens' ProvisionProduct Text ppProductId = lens _ppProductId (\ s a -> s{_ppProductId = a}); --- | The provisioning artifact identifier for this product.+-- | The provisioning artifact identifier for this product. This is sometimes referred to as the product version. ppProvisioningArtifactId :: Lens' ProvisionProduct Text ppProvisioningArtifactId = lens _ppProvisioningArtifactId (\ s a -> s{_ppProvisioningArtifactId = a}); @@ -152,9 +154,9 @@                  ProvisionProductResponse' <$>                    (x .?> "RecordDetail") <*> (pure (fromEnum s))) -instance Hashable ProvisionProduct+instance Hashable ProvisionProduct where -instance NFData ProvisionProduct+instance NFData ProvisionProduct where  instance ToHeaders ProvisionProduct where         toHeaders@@ -193,10 +195,11 @@  -- | /See:/ 'provisionProductResponse' smart constructor. data ProvisionProductResponse = ProvisionProductResponse'-    { _pprsRecordDetail   :: !(Maybe RecordDetail)-    , _pprsResponseStatus :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _pprsRecordDetail   :: !(Maybe RecordDetail)+  , _pprsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProvisionProductResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -208,11 +211,10 @@     :: Int -- ^ 'pprsResponseStatus'     -> ProvisionProductResponse provisionProductResponse pResponseStatus_ =-    ProvisionProductResponse'-    { _pprsRecordDetail = Nothing-    , _pprsResponseStatus = pResponseStatus_-    }+  ProvisionProductResponse'+  {_pprsRecordDetail = Nothing, _pprsResponseStatus = pResponseStatus_} + -- | The detailed result of the 'ProvisionProduct' request, containing the inputs made to that request, the current state of the request, a pointer to the ProvisionedProduct object of the request, and a list of any errors that the request encountered. pprsRecordDetail :: Lens' ProvisionProductResponse (Maybe RecordDetail) pprsRecordDetail = lens _pprsRecordDetail (\ s a -> s{_pprsRecordDetail = a});@@ -221,4 +223,4 @@ pprsResponseStatus :: Lens' ProvisionProductResponse Int pprsResponseStatus = lens _pprsResponseStatus (\ s a -> s{_pprsResponseStatus = a}); -instance NFData ProvisionProductResponse+instance NFData ProvisionProductResponse where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.ServiceCatalog.RejectPortfolioShare--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -37,36 +37,36 @@     , rpsrsResponseStatus     ) where -import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response-import           Network.AWS.ServiceCatalog.Types-import           Network.AWS.ServiceCatalog.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.ServiceCatalog.Types+import Network.AWS.ServiceCatalog.Types.Product  -- | /See:/ 'rejectPortfolioShare' smart constructor. data RejectPortfolioShare = RejectPortfolioShare'-    { _rpsAcceptLanguage :: !(Maybe Text)-    , _rpsPortfolioId    :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _rpsAcceptLanguage :: !(Maybe Text)+  , _rpsPortfolioId    :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'RejectPortfolioShare' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'rpsAcceptLanguage' - The language code to use for this operation. Supported language codes are as follows: "en" (English) "jp" (Japanese) "zh" (Chinese) If no code is specified, "en" is used as the default.+-- * 'rpsAcceptLanguage' - The language code.     * @en@ - English (default)     * @jp@ - Japanese     * @zh@ - Chinese -- -- * 'rpsPortfolioId' - The portfolio identifier. rejectPortfolioShare     :: Text -- ^ 'rpsPortfolioId'     -> RejectPortfolioShare rejectPortfolioShare pPortfolioId_ =-    RejectPortfolioShare'-    { _rpsAcceptLanguage = Nothing-    , _rpsPortfolioId = pPortfolioId_-    }+  RejectPortfolioShare'+  {_rpsAcceptLanguage = Nothing, _rpsPortfolioId = pPortfolioId_} --- | The language code to use for this operation. Supported language codes are as follows: "en" (English) "jp" (Japanese) "zh" (Chinese) If no code is specified, "en" is used as the default.++-- | The language code.     * @en@ - English (default)     * @jp@ - Japanese     * @zh@ - Chinese rpsAcceptLanguage :: Lens' RejectPortfolioShare (Maybe Text) rpsAcceptLanguage = lens _rpsAcceptLanguage (\ s a -> s{_rpsAcceptLanguage = a}); @@ -84,9 +84,9 @@                  RejectPortfolioShareResponse' <$>                    (pure (fromEnum s))) -instance Hashable RejectPortfolioShare+instance Hashable RejectPortfolioShare where -instance NFData RejectPortfolioShare+instance NFData RejectPortfolioShare where  instance ToHeaders RejectPortfolioShare where         toHeaders@@ -113,9 +113,10 @@  -- | /See:/ 'rejectPortfolioShareResponse' smart constructor. newtype RejectPortfolioShareResponse = RejectPortfolioShareResponse'-    { _rpsrsResponseStatus :: Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _rpsrsResponseStatus :: Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'RejectPortfolioShareResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -125,12 +126,11 @@     :: Int -- ^ 'rpsrsResponseStatus'     -> RejectPortfolioShareResponse rejectPortfolioShareResponse pResponseStatus_ =-    RejectPortfolioShareResponse'-    { _rpsrsResponseStatus = pResponseStatus_-    }+  RejectPortfolioShareResponse' {_rpsrsResponseStatus = pResponseStatus_} + -- | -- | The response status code. rpsrsResponseStatus :: Lens' RejectPortfolioShareResponse Int rpsrsResponseStatus = lens _rpsrsResponseStatus (\ s a -> s{_rpsrsResponseStatus = a}); -instance NFData RejectPortfolioShareResponse+instance NFData RejectPortfolioShareResponse where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.ServiceCatalog.ScanProvisionedProducts--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -41,26 +41,27 @@     , spprsResponseStatus     ) where -import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response-import           Network.AWS.ServiceCatalog.Types-import           Network.AWS.ServiceCatalog.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.ServiceCatalog.Types+import Network.AWS.ServiceCatalog.Types.Product  -- | /See:/ 'scanProvisionedProducts' smart constructor. data ScanProvisionedProducts = ScanProvisionedProducts'-    { _sppAcceptLanguage    :: !(Maybe Text)-    , _sppAccessLevelFilter :: !(Maybe AccessLevelFilter)-    , _sppPageToken         :: !(Maybe Text)-    , _sppPageSize          :: !(Maybe Nat)-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _sppAcceptLanguage    :: !(Maybe Text)+  , _sppAccessLevelFilter :: !(Maybe AccessLevelFilter)+  , _sppPageToken         :: !(Maybe Text)+  , _sppPageSize          :: !(Maybe Nat)+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ScanProvisionedProducts' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'sppAcceptLanguage' - The language code to use for this operation. Supported language codes are as follows: "en" (English) "jp" (Japanese) "zh" (Chinese) If no code is specified, "en" is used as the default.+-- * 'sppAcceptLanguage' - The language code.     * @en@ - English (default)     * @jp@ - Japanese     * @zh@ - Chinese -- -- * 'sppAccessLevelFilter' - The access level for obtaining results. If left unspecified, @User@ level access is used. --@@ -70,14 +71,15 @@ scanProvisionedProducts     :: ScanProvisionedProducts scanProvisionedProducts =-    ScanProvisionedProducts'-    { _sppAcceptLanguage = Nothing-    , _sppAccessLevelFilter = Nothing-    , _sppPageToken = Nothing-    , _sppPageSize = Nothing-    }+  ScanProvisionedProducts'+  { _sppAcceptLanguage = Nothing+  , _sppAccessLevelFilter = Nothing+  , _sppPageToken = Nothing+  , _sppPageSize = Nothing+  } --- | The language code to use for this operation. Supported language codes are as follows: "en" (English) "jp" (Japanese) "zh" (Chinese) If no code is specified, "en" is used as the default.++-- | The language code.     * @en@ - English (default)     * @jp@ - Japanese     * @zh@ - Chinese sppAcceptLanguage :: Lens' ScanProvisionedProducts (Maybe Text) sppAcceptLanguage = lens _sppAcceptLanguage (\ s a -> s{_sppAcceptLanguage = a}); @@ -105,9 +107,9 @@                      (x .?> "ProvisionedProducts" .!@ mempty)                      <*> (pure (fromEnum s))) -instance Hashable ScanProvisionedProducts+instance Hashable ScanProvisionedProducts where -instance NFData ScanProvisionedProducts+instance NFData ScanProvisionedProducts where  instance ToHeaders ScanProvisionedProducts where         toHeaders@@ -136,11 +138,12 @@  -- | /See:/ 'scanProvisionedProductsResponse' smart constructor. data ScanProvisionedProductsResponse = ScanProvisionedProductsResponse'-    { _spprsNextPageToken       :: !(Maybe Text)-    , _spprsProvisionedProducts :: !(Maybe [ProvisionedProductDetail])-    , _spprsResponseStatus      :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _spprsNextPageToken       :: !(Maybe Text)+  , _spprsProvisionedProducts :: !(Maybe [ProvisionedProductDetail])+  , _spprsResponseStatus      :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ScanProvisionedProductsResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -154,12 +157,13 @@     :: Int -- ^ 'spprsResponseStatus'     -> ScanProvisionedProductsResponse scanProvisionedProductsResponse pResponseStatus_ =-    ScanProvisionedProductsResponse'-    { _spprsNextPageToken = Nothing-    , _spprsProvisionedProducts = Nothing-    , _spprsResponseStatus = pResponseStatus_-    }+  ScanProvisionedProductsResponse'+  { _spprsNextPageToken = Nothing+  , _spprsProvisionedProducts = Nothing+  , _spprsResponseStatus = pResponseStatus_+  } + -- | The page token to use to retrieve the next page of results for this operation. If there are no more pages, this value is null. spprsNextPageToken :: Lens' ScanProvisionedProductsResponse (Maybe Text) spprsNextPageToken = lens _spprsNextPageToken (\ s a -> s{_spprsNextPageToken = a});@@ -172,4 +176,4 @@ spprsResponseStatus :: Lens' ScanProvisionedProductsResponse Int spprsResponseStatus = lens _spprsResponseStatus (\ s a -> s{_spprsResponseStatus = a}); -instance NFData ScanProvisionedProductsResponse+instance NFData ScanProvisionedProductsResponse where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.ServiceCatalog.SearchProducts--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -46,23 +46,24 @@     , sprsResponseStatus     ) where -import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response-import           Network.AWS.ServiceCatalog.Types-import           Network.AWS.ServiceCatalog.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.ServiceCatalog.Types+import Network.AWS.ServiceCatalog.Types.Product  -- | /See:/ 'searchProducts' smart constructor. data SearchProducts = SearchProducts'-    { _spFilters        :: !(Maybe (Map ProductViewFilterBy [Text]))-    , _spSortOrder      :: !(Maybe SortOrder)-    , _spAcceptLanguage :: !(Maybe Text)-    , _spPageToken      :: !(Maybe Text)-    , _spPageSize       :: !(Maybe Nat)-    , _spSortBy         :: !(Maybe ProductViewSortBy)-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _spFilters        :: !(Maybe (Map ProductViewFilterBy [Text]))+  , _spSortOrder      :: !(Maybe SortOrder)+  , _spAcceptLanguage :: !(Maybe Text)+  , _spPageToken      :: !(Maybe Text)+  , _spPageSize       :: !(Maybe Nat)+  , _spSortBy         :: !(Maybe ProductViewSortBy)+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'SearchProducts' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -71,7 +72,7 @@ -- -- * 'spSortOrder' - The sort order specifier. If no value is specified, results are not sorted. ----- * 'spAcceptLanguage' - The language code to use for this operation. Supported language codes are as follows: "en" (English) "jp" (Japanese) "zh" (Chinese) If no code is specified, "en" is used as the default.+-- * 'spAcceptLanguage' - The language code.     * @en@ - English (default)     * @jp@ - Japanese     * @zh@ - Chinese -- -- * 'spPageToken' - The page token of the first page retrieved. If null, this retrieves the first page of size @PageSize@ . --@@ -81,15 +82,16 @@ searchProducts     :: SearchProducts searchProducts =-    SearchProducts'-    { _spFilters = Nothing-    , _spSortOrder = Nothing-    , _spAcceptLanguage = Nothing-    , _spPageToken = Nothing-    , _spPageSize = Nothing-    , _spSortBy = Nothing-    }+  SearchProducts'+  { _spFilters = Nothing+  , _spSortOrder = Nothing+  , _spAcceptLanguage = Nothing+  , _spPageToken = Nothing+  , _spPageSize = Nothing+  , _spSortBy = Nothing+  } + -- | The list of filters with which to limit search results. If no search filters are specified, the output is all the products to which the calling user has access. spFilters :: Lens' SearchProducts (HashMap ProductViewFilterBy [Text]) spFilters = lens _spFilters (\ s a -> s{_spFilters = a}) . _Default . _Map;@@ -98,7 +100,7 @@ spSortOrder :: Lens' SearchProducts (Maybe SortOrder) spSortOrder = lens _spSortOrder (\ s a -> s{_spSortOrder = a}); --- | The language code to use for this operation. Supported language codes are as follows: "en" (English) "jp" (Japanese) "zh" (Chinese) If no code is specified, "en" is used as the default.+-- | The language code.     * @en@ - English (default)     * @jp@ - Japanese     * @zh@ - Chinese spAcceptLanguage :: Lens' SearchProducts (Maybe Text) spAcceptLanguage = lens _spAcceptLanguage (\ s a -> s{_spAcceptLanguage = a}); @@ -126,9 +128,9 @@                      <*> (x .?> "ProductViewSummaries" .!@ mempty)                      <*> (pure (fromEnum s))) -instance Hashable SearchProducts+instance Hashable SearchProducts where -instance NFData SearchProducts+instance NFData SearchProducts where  instance ToHeaders SearchProducts where         toHeaders@@ -159,12 +161,13 @@  -- | /See:/ 'searchProductsResponse' smart constructor. data SearchProductsResponse = SearchProductsResponse'-    { _sprsNextPageToken           :: !(Maybe Text)-    , _sprsProductViewAggregations :: !(Maybe (Map Text [ProductViewAggregationValue]))-    , _sprsProductViewSummaries    :: !(Maybe [ProductViewSummary])-    , _sprsResponseStatus          :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _sprsNextPageToken :: !(Maybe Text)+  , _sprsProductViewAggregations :: !(Maybe (Map Text [ProductViewAggregationValue]))+  , _sprsProductViewSummaries :: !(Maybe [ProductViewSummary])+  , _sprsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'SearchProductsResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -180,13 +183,14 @@     :: Int -- ^ 'sprsResponseStatus'     -> SearchProductsResponse searchProductsResponse pResponseStatus_ =-    SearchProductsResponse'-    { _sprsNextPageToken = Nothing-    , _sprsProductViewAggregations = Nothing-    , _sprsProductViewSummaries = Nothing-    , _sprsResponseStatus = pResponseStatus_-    }+  SearchProductsResponse'+  { _sprsNextPageToken = Nothing+  , _sprsProductViewAggregations = Nothing+  , _sprsProductViewSummaries = Nothing+  , _sprsResponseStatus = pResponseStatus_+  } + -- | The page token to use to retrieve the next page of results for this operation. If there are no more pages, this value is null. sprsNextPageToken :: Lens' SearchProductsResponse (Maybe Text) sprsNextPageToken = lens _sprsNextPageToken (\ s a -> s{_sprsNextPageToken = a});@@ -203,4 +207,4 @@ sprsResponseStatus :: Lens' SearchProductsResponse Int sprsResponseStatus = lens _sprsResponseStatus (\ s a -> s{_sprsResponseStatus = a}); -instance NFData SearchProductsResponse+instance NFData SearchProductsResponse where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.ServiceCatalog.SearchProductsAsAdmin--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -45,25 +45,26 @@     , spaarsResponseStatus     ) where -import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response-import           Network.AWS.ServiceCatalog.Types-import           Network.AWS.ServiceCatalog.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.ServiceCatalog.Types+import Network.AWS.ServiceCatalog.Types.Product  -- | /See:/ 'searchProductsAsAdmin' smart constructor. data SearchProductsAsAdmin = SearchProductsAsAdmin'-    { _spaaPortfolioId    :: !(Maybe Text)-    , _spaaFilters        :: !(Maybe (Map ProductViewFilterBy [Text]))-    , _spaaSortOrder      :: !(Maybe SortOrder)-    , _spaaAcceptLanguage :: !(Maybe Text)-    , _spaaPageToken      :: !(Maybe Text)-    , _spaaPageSize       :: !(Maybe Nat)-    , _spaaProductSource  :: !(Maybe ProductSource)-    , _spaaSortBy         :: !(Maybe ProductViewSortBy)-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _spaaPortfolioId    :: !(Maybe Text)+  , _spaaFilters        :: !(Maybe (Map ProductViewFilterBy [Text]))+  , _spaaSortOrder      :: !(Maybe SortOrder)+  , _spaaAcceptLanguage :: !(Maybe Text)+  , _spaaPageToken      :: !(Maybe Text)+  , _spaaPageSize       :: !(Maybe Nat)+  , _spaaProductSource  :: !(Maybe ProductSource)+  , _spaaSortBy         :: !(Maybe ProductViewSortBy)+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'SearchProductsAsAdmin' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -74,7 +75,7 @@ -- -- * 'spaaSortOrder' - The sort order specifier. If no value is specified, results are not sorted. ----- * 'spaaAcceptLanguage' - The language code to use for this operation. Supported language codes are as follows: "en" (English) "jp" (Japanese) "zh" (Chinese) If no code is specified, "en" is used as the default.+-- * 'spaaAcceptLanguage' - The language code.     * @en@ - English (default)     * @jp@ - Japanese     * @zh@ - Chinese -- -- * 'spaaPageToken' - The page token of the first page retrieved. If null, this retrieves the first page of size @PageSize@ . --@@ -86,17 +87,18 @@ searchProductsAsAdmin     :: SearchProductsAsAdmin searchProductsAsAdmin =-    SearchProductsAsAdmin'-    { _spaaPortfolioId = Nothing-    , _spaaFilters = Nothing-    , _spaaSortOrder = Nothing-    , _spaaAcceptLanguage = Nothing-    , _spaaPageToken = Nothing-    , _spaaPageSize = Nothing-    , _spaaProductSource = Nothing-    , _spaaSortBy = Nothing-    }+  SearchProductsAsAdmin'+  { _spaaPortfolioId = Nothing+  , _spaaFilters = Nothing+  , _spaaSortOrder = Nothing+  , _spaaAcceptLanguage = Nothing+  , _spaaPageToken = Nothing+  , _spaaPageSize = Nothing+  , _spaaProductSource = Nothing+  , _spaaSortBy = Nothing+  } + -- | The portfolio identifier. spaaPortfolioId :: Lens' SearchProductsAsAdmin (Maybe Text) spaaPortfolioId = lens _spaaPortfolioId (\ s a -> s{_spaaPortfolioId = a});@@ -109,7 +111,7 @@ spaaSortOrder :: Lens' SearchProductsAsAdmin (Maybe SortOrder) spaaSortOrder = lens _spaaSortOrder (\ s a -> s{_spaaSortOrder = a}); --- | The language code to use for this operation. Supported language codes are as follows: "en" (English) "jp" (Japanese) "zh" (Chinese) If no code is specified, "en" is used as the default.+-- | The language code.     * @en@ - English (default)     * @jp@ - Japanese     * @zh@ - Chinese spaaAcceptLanguage :: Lens' SearchProductsAsAdmin (Maybe Text) spaaAcceptLanguage = lens _spaaAcceptLanguage (\ s a -> s{_spaaAcceptLanguage = a}); @@ -141,9 +143,9 @@                      (x .?> "ProductViewDetails" .!@ mempty)                      <*> (pure (fromEnum s))) -instance Hashable SearchProductsAsAdmin+instance Hashable SearchProductsAsAdmin where -instance NFData SearchProductsAsAdmin+instance NFData SearchProductsAsAdmin where  instance ToHeaders SearchProductsAsAdmin where         toHeaders@@ -176,11 +178,12 @@  -- | /See:/ 'searchProductsAsAdminResponse' smart constructor. data SearchProductsAsAdminResponse = SearchProductsAsAdminResponse'-    { _spaarsNextPageToken      :: !(Maybe Text)-    , _spaarsProductViewDetails :: !(Maybe [ProductViewDetail])-    , _spaarsResponseStatus     :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _spaarsNextPageToken      :: !(Maybe Text)+  , _spaarsProductViewDetails :: !(Maybe [ProductViewDetail])+  , _spaarsResponseStatus     :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'SearchProductsAsAdminResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -194,12 +197,13 @@     :: Int -- ^ 'spaarsResponseStatus'     -> SearchProductsAsAdminResponse searchProductsAsAdminResponse pResponseStatus_ =-    SearchProductsAsAdminResponse'-    { _spaarsNextPageToken = Nothing-    , _spaarsProductViewDetails = Nothing-    , _spaarsResponseStatus = pResponseStatus_-    }+  SearchProductsAsAdminResponse'+  { _spaarsNextPageToken = Nothing+  , _spaarsProductViewDetails = Nothing+  , _spaarsResponseStatus = pResponseStatus_+  } + -- | The page token to use to retrieve the next page of results for this operation. If there are no more pages, this value is null. spaarsNextPageToken :: Lens' SearchProductsAsAdminResponse (Maybe Text) spaarsNextPageToken = lens _spaarsNextPageToken (\ s a -> s{_spaarsNextPageToken = a});@@ -212,4 +216,4 @@ spaarsResponseStatus :: Lens' SearchProductsAsAdminResponse Int spaarsResponseStatus = lens _spaarsResponseStatus (\ s a -> s{_spaarsResponseStatus = a}); -instance NFData SearchProductsAsAdminResponse+instance NFData SearchProductsAsAdminResponse where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.ServiceCatalog.TerminateProvisionedProduct--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -45,52 +45,54 @@     , tpprsResponseStatus     ) where -import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response-import           Network.AWS.ServiceCatalog.Types-import           Network.AWS.ServiceCatalog.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.ServiceCatalog.Types+import Network.AWS.ServiceCatalog.Types.Product  -- | /See:/ 'terminateProvisionedProduct' smart constructor. data TerminateProvisionedProduct = TerminateProvisionedProduct'-    { _tppProvisionedProductName :: !(Maybe Text)-    , _tppAcceptLanguage         :: !(Maybe Text)-    , _tppIgnoreErrors           :: !(Maybe Bool)-    , _tppProvisionedProductId   :: !(Maybe Text)-    , _tppTerminateToken         :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _tppProvisionedProductName :: !(Maybe Text)+  , _tppAcceptLanguage         :: !(Maybe Text)+  , _tppIgnoreErrors           :: !(Maybe Bool)+  , _tppProvisionedProductId   :: !(Maybe Text)+  , _tppTerminateToken         :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'TerminateProvisionedProduct' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'tppProvisionedProductName' - The name of the ProvisionedProduct object to terminate. You must specify either @ProvisionedProductName@ or @ProvisionedProductId@ , but not both.+-- * 'tppProvisionedProductName' - The name of the ProvisionedProduct object to terminate. Specify either @ProvisionedProductName@ or @ProvisionedProductId@ , but not both. ----- * 'tppAcceptLanguage' - The language code to use for this operation. Supported language codes are as follows: "en" (English) "jp" (Japanese) "zh" (Chinese) If no code is specified, "en" is used as the default.+-- * 'tppAcceptLanguage' - The language code.     * @en@ - English (default)     * @jp@ - Japanese     * @zh@ - Chinese -- -- * 'tppIgnoreErrors' - If set to true, AWS Service Catalog stops managing the specified ProvisionedProduct object even if it cannot delete the underlying resources. ----- * 'tppProvisionedProductId' - The identifier of the ProvisionedProduct object to terminate. You must specify either @ProvisionedProductName@ or @ProvisionedProductId@ , but not both.+-- * 'tppProvisionedProductId' - The identifier of the ProvisionedProduct object to terminate. Specify either @ProvisionedProductName@ or @ProvisionedProductId@ , but not both. -- -- * 'tppTerminateToken' - An idempotency token that uniquely identifies the termination request. This token is only valid during the termination process. After the ProvisionedProduct object is terminated, further requests to terminate the same ProvisionedProduct object always return __ResourceNotFound__ regardless of the value of @TerminateToken@ . terminateProvisionedProduct     :: Text -- ^ 'tppTerminateToken'     -> TerminateProvisionedProduct terminateProvisionedProduct pTerminateToken_ =-    TerminateProvisionedProduct'-    { _tppProvisionedProductName = Nothing-    , _tppAcceptLanguage = Nothing-    , _tppIgnoreErrors = Nothing-    , _tppProvisionedProductId = Nothing-    , _tppTerminateToken = pTerminateToken_-    }+  TerminateProvisionedProduct'+  { _tppProvisionedProductName = Nothing+  , _tppAcceptLanguage = Nothing+  , _tppIgnoreErrors = Nothing+  , _tppProvisionedProductId = Nothing+  , _tppTerminateToken = pTerminateToken_+  } --- | The name of the ProvisionedProduct object to terminate. You must specify either @ProvisionedProductName@ or @ProvisionedProductId@ , but not both.++-- | The name of the ProvisionedProduct object to terminate. Specify either @ProvisionedProductName@ or @ProvisionedProductId@ , but not both. tppProvisionedProductName :: Lens' TerminateProvisionedProduct (Maybe Text) tppProvisionedProductName = lens _tppProvisionedProductName (\ s a -> s{_tppProvisionedProductName = a}); --- | The language code to use for this operation. Supported language codes are as follows: "en" (English) "jp" (Japanese) "zh" (Chinese) If no code is specified, "en" is used as the default.+-- | The language code.     * @en@ - English (default)     * @jp@ - Japanese     * @zh@ - Chinese tppAcceptLanguage :: Lens' TerminateProvisionedProduct (Maybe Text) tppAcceptLanguage = lens _tppAcceptLanguage (\ s a -> s{_tppAcceptLanguage = a}); @@ -98,7 +100,7 @@ tppIgnoreErrors :: Lens' TerminateProvisionedProduct (Maybe Bool) tppIgnoreErrors = lens _tppIgnoreErrors (\ s a -> s{_tppIgnoreErrors = a}); --- | The identifier of the ProvisionedProduct object to terminate. You must specify either @ProvisionedProductName@ or @ProvisionedProductId@ , but not both.+-- | The identifier of the ProvisionedProduct object to terminate. Specify either @ProvisionedProductName@ or @ProvisionedProductId@ , but not both. tppProvisionedProductId :: Lens' TerminateProvisionedProduct (Maybe Text) tppProvisionedProductId = lens _tppProvisionedProductId (\ s a -> s{_tppProvisionedProductId = a}); @@ -116,9 +118,9 @@                  TerminateProvisionedProductResponse' <$>                    (x .?> "RecordDetail") <*> (pure (fromEnum s))) -instance Hashable TerminateProvisionedProduct+instance Hashable TerminateProvisionedProduct where -instance NFData TerminateProvisionedProduct+instance NFData TerminateProvisionedProduct where  instance ToHeaders TerminateProvisionedProduct where         toHeaders@@ -150,10 +152,11 @@  -- | /See:/ 'terminateProvisionedProductResponse' smart constructor. data TerminateProvisionedProductResponse = TerminateProvisionedProductResponse'-    { _tpprsRecordDetail   :: !(Maybe RecordDetail)-    , _tpprsResponseStatus :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _tpprsRecordDetail   :: !(Maybe RecordDetail)+  , _tpprsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'TerminateProvisionedProductResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -165,11 +168,10 @@     :: Int -- ^ 'tpprsResponseStatus'     -> TerminateProvisionedProductResponse terminateProvisionedProductResponse pResponseStatus_ =-    TerminateProvisionedProductResponse'-    { _tpprsRecordDetail = Nothing-    , _tpprsResponseStatus = pResponseStatus_-    }+  TerminateProvisionedProductResponse'+  {_tpprsRecordDetail = Nothing, _tpprsResponseStatus = pResponseStatus_} + -- | The detailed result of the 'TerminateProvisionedProduct' request, containing the inputs made to that request, the current state of the request, a pointer to the ProvisionedProduct object that the request is modifying, and a list of any errors that the request encountered. tpprsRecordDetail :: Lens' TerminateProvisionedProductResponse (Maybe RecordDetail) tpprsRecordDetail = lens _tpprsRecordDetail (\ s a -> s{_tpprsRecordDetail = a});@@ -179,3 +181,4 @@ tpprsResponseStatus = lens _tpprsResponseStatus (\ s a -> s{_tpprsResponseStatus = a});  instance NFData TerminateProvisionedProductResponse+         where