amazonka-servicecatalog 1.5.0 → 1.6.0

raw patch · 85 files changed

+5906/−3103 lines, 85 filesdep ~amazonka-coredep ~amazonka-testPVP ok

version bump matches the API change (PVP)

Dependency ranges changed: amazonka-core, amazonka-test

API changes (from Hackage documentation)

Files

• README.md +1/−1
• amazonka-servicecatalog.cabal +12/−5
• fixture/CreateProvisionedProductPlan.yaml +10/−0
• fixture/CreateProvisionedProductPlanResponse.proto +0/−0
• fixture/DeleteProvisionedProductPlan.yaml +10/−0
• fixture/DeleteProvisionedProductPlanResponse.proto +0/−0
• fixture/DeleteTagOption.yaml +10/−0
• fixture/DeleteTagOptionResponse.proto +0/−0
• fixture/DescribeProvisionedProductPlan.yaml +10/−0
• fixture/DescribeProvisionedProductPlanResponse.proto +0/−0
• fixture/ExecuteProvisionedProductPlan.yaml +10/−0
• fixture/ExecuteProvisionedProductPlanResponse.proto +0/−0
• fixture/ListProvisionedProductPlans.yaml +10/−0
• fixture/ListProvisionedProductPlansResponse.proto +0/−0
• fixture/SearchProvisionedProducts.yaml +10/−0
• fixture/SearchProvisionedProductsResponse.proto +0/−0
• gen/Network/AWS/ServiceCatalog.hs +142/−21
• gen/Network/AWS/ServiceCatalog/AcceptPortfolioShare.hs +6/−6
• gen/Network/AWS/ServiceCatalog/AssociatePrincipalWithPortfolio.hs +16/−16
• gen/Network/AWS/ServiceCatalog/AssociateProductWithPortfolio.hs +14/−14
• gen/Network/AWS/ServiceCatalog/AssociateTagOptionWithResource.hs +7/−7
• gen/Network/AWS/ServiceCatalog/CopyProduct.hs +28/−28
• gen/Network/AWS/ServiceCatalog/CreateConstraint.hs +38/−38
• gen/Network/AWS/ServiceCatalog/CreatePortfolio.hs +32/−32
• gen/Network/AWS/ServiceCatalog/CreatePortfolioShare.hs +12/−12
• gen/Network/AWS/ServiceCatalog/CreateProduct.hs +58/−58
• gen/Network/AWS/ServiceCatalog/CreateProvisionedProductPlan.hs +296/−0
• gen/Network/AWS/ServiceCatalog/CreateProvisioningArtifact.hs +30/−28
• gen/Network/AWS/ServiceCatalog/CreateTagOption.hs +9/−9
• gen/Network/AWS/ServiceCatalog/DeleteConstraint.hs +6/−6
• gen/Network/AWS/ServiceCatalog/DeletePortfolio.hs +20/−18
• gen/Network/AWS/ServiceCatalog/DeletePortfolioShare.hs +12/−12
• gen/Network/AWS/ServiceCatalog/DeleteProduct.hs +20/−18
• gen/Network/AWS/ServiceCatalog/DeleteProvisionedProductPlan.hs +151/−0
• gen/Network/AWS/ServiceCatalog/DeleteProvisioningArtifact.hs +14/−12
• gen/Network/AWS/ServiceCatalog/DeleteTagOption.hs +123/−0
• gen/Network/AWS/ServiceCatalog/DescribeConstraint.hs +17/−17
• gen/Network/AWS/ServiceCatalog/DescribeCopyProductStatus.hs +18/−18
• gen/Network/AWS/ServiceCatalog/DescribePortfolio.hs +21/−21
• gen/Network/AWS/ServiceCatalog/DescribeProduct.hs +17/−19
• gen/Network/AWS/ServiceCatalog/DescribeProductAsAdmin.hs +25/−25
• gen/Network/AWS/ServiceCatalog/DescribeProductView.hs +17/−19
• gen/Network/AWS/ServiceCatalog/DescribeProvisionedProduct.hs +34/−24
• gen/Network/AWS/ServiceCatalog/DescribeProvisionedProductPlan.hs +195/−0
• gen/Network/AWS/ServiceCatalog/DescribeProvisioningArtifact.hs +28/−28
• gen/Network/AWS/ServiceCatalog/DescribeProvisioningParameters.hs +33/−33
• gen/Network/AWS/ServiceCatalog/DescribeRecord.hs +34/−32
• gen/Network/AWS/ServiceCatalog/DescribeTagOption.hs +10/−10
• gen/Network/AWS/ServiceCatalog/DisassociatePrincipalFromPortfolio.hs +12/−12
• gen/Network/AWS/ServiceCatalog/DisassociateProductFromPortfolio.hs +10/−10
• gen/Network/AWS/ServiceCatalog/DisassociateTagOptionFromResource.hs +11/−11
• gen/Network/AWS/ServiceCatalog/ExecuteProvisionedProductPlan.hs +161/−0
• gen/Network/AWS/ServiceCatalog/ListAcceptedPortfolioShares.hs +35/−24
• gen/Network/AWS/ServiceCatalog/ListConstraintsForPortfolio.hs +39/−28
• gen/Network/AWS/ServiceCatalog/ListLaunchPaths.hs +38/−28
• gen/Network/AWS/ServiceCatalog/ListPortfolioAccess.hs +16/−16
• gen/Network/AWS/ServiceCatalog/ListPortfolios.hs +30/−20
• gen/Network/AWS/ServiceCatalog/ListPortfoliosForProduct.hs +35/−25
• gen/Network/AWS/ServiceCatalog/ListPrincipalsForPortfolio.hs +33/−23
• gen/Network/AWS/ServiceCatalog/ListProvisionedProductPlans.hs +191/−0
• gen/Network/AWS/ServiceCatalog/ListProvisioningArtifacts.hs +16/−16
• gen/Network/AWS/ServiceCatalog/ListRecordHistory.hs +32/−32
• gen/Network/AWS/ServiceCatalog/ListResourcesForTagOption.hs +40/−30
• gen/Network/AWS/ServiceCatalog/ListTagOptions.hs +33/−23
• gen/Network/AWS/ServiceCatalog/ProvisionProduct.hs +37/−35
• gen/Network/AWS/ServiceCatalog/RejectPortfolioShare.hs +6/−6
• gen/Network/AWS/ServiceCatalog/ScanProvisionedProducts.hs +47/−45
• gen/Network/AWS/ServiceCatalog/SearchProducts.hs +40/−42
• gen/Network/AWS/ServiceCatalog/SearchProductsAsAdmin.hs +51/−40
• gen/Network/AWS/ServiceCatalog/SearchProvisionedProducts.hs +220/−0
• gen/Network/AWS/ServiceCatalog/TerminateProvisionedProduct.hs +28/−28
• gen/Network/AWS/ServiceCatalog/Types.hs +125/−20
• gen/Network/AWS/ServiceCatalog/Types/Product.hs +2472/−1811
• gen/Network/AWS/ServiceCatalog/Types/Sum.hs +251/−2
• gen/Network/AWS/ServiceCatalog/UpdateConstraint.hs +23/−23
• gen/Network/AWS/ServiceCatalog/UpdatePortfolio.hs +38/−36
• gen/Network/AWS/ServiceCatalog/UpdateProduct.hs +44/−44
• gen/Network/AWS/ServiceCatalog/UpdateProvisionedProduct.hs +39/−37
• gen/Network/AWS/ServiceCatalog/UpdateProvisioningArtifact.hs +44/−32
• gen/Network/AWS/ServiceCatalog/UpdateTagOption.hs +12/−12
• gen/Network/AWS/ServiceCatalog/Waiters.hs +1/−1
• test/Main.hs +1/−1
• test/Test/AWS/Gen/ServiceCatalog.hs +127/−1
• test/Test/AWS/ServiceCatalog.hs +1/−1
• test/Test/AWS/ServiceCatalog/Internal.hs +1/−1

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

@@ -1,5 +1,5 @@ name:                  amazonka-servicecatalog-version:               1.5.0+version:               1.6.0 synopsis:              Amazon Service Catalog SDK. homepage:              https://github.com/brendanhay/amazonka bug-reports:           https://github.com/brendanhay/amazonka/issues@@ -7,7 +7,7 @@ license-file:          LICENSE author:                Brendan Hay maintainer:            Brendan Hay <brendan.g.hay+amazonka@gmail.com>-copyright:             Copyright (c) 2013-2017 Brendan Hay+copyright:             Copyright (c) 2013-2018 Brendan Hay category:              Network, AWS, Cloud, Distributed Computing build-type:            Simple cabal-version:         >= 1.10@@ -54,13 +54,16 @@         , Network.AWS.ServiceCatalog.CreatePortfolio         , Network.AWS.ServiceCatalog.CreatePortfolioShare         , Network.AWS.ServiceCatalog.CreateProduct+        , Network.AWS.ServiceCatalog.CreateProvisionedProductPlan         , 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.DeleteProvisionedProductPlan         , Network.AWS.ServiceCatalog.DeleteProvisioningArtifact+        , Network.AWS.ServiceCatalog.DeleteTagOption         , Network.AWS.ServiceCatalog.DescribeConstraint         , Network.AWS.ServiceCatalog.DescribeCopyProductStatus         , Network.AWS.ServiceCatalog.DescribePortfolio@@ -68,6 +71,7 @@         , Network.AWS.ServiceCatalog.DescribeProductAsAdmin         , Network.AWS.ServiceCatalog.DescribeProductView         , Network.AWS.ServiceCatalog.DescribeProvisionedProduct+        , Network.AWS.ServiceCatalog.DescribeProvisionedProductPlan         , Network.AWS.ServiceCatalog.DescribeProvisioningArtifact         , Network.AWS.ServiceCatalog.DescribeProvisioningParameters         , Network.AWS.ServiceCatalog.DescribeRecord@@ -75,6 +79,7 @@         , Network.AWS.ServiceCatalog.DisassociatePrincipalFromPortfolio         , Network.AWS.ServiceCatalog.DisassociateProductFromPortfolio         , Network.AWS.ServiceCatalog.DisassociateTagOptionFromResource+        , Network.AWS.ServiceCatalog.ExecuteProvisionedProductPlan         , Network.AWS.ServiceCatalog.ListAcceptedPortfolioShares         , Network.AWS.ServiceCatalog.ListConstraintsForPortfolio         , Network.AWS.ServiceCatalog.ListLaunchPaths@@ -82,6 +87,7 @@         , Network.AWS.ServiceCatalog.ListPortfolios         , Network.AWS.ServiceCatalog.ListPortfoliosForProduct         , Network.AWS.ServiceCatalog.ListPrincipalsForPortfolio+        , Network.AWS.ServiceCatalog.ListProvisionedProductPlans         , Network.AWS.ServiceCatalog.ListProvisioningArtifacts         , Network.AWS.ServiceCatalog.ListRecordHistory         , Network.AWS.ServiceCatalog.ListResourcesForTagOption@@ -91,6 +97,7 @@         , Network.AWS.ServiceCatalog.ScanProvisionedProducts         , Network.AWS.ServiceCatalog.SearchProducts         , Network.AWS.ServiceCatalog.SearchProductsAsAdmin+        , Network.AWS.ServiceCatalog.SearchProvisionedProducts         , Network.AWS.ServiceCatalog.TerminateProvisionedProduct         , Network.AWS.ServiceCatalog.Types         , Network.AWS.ServiceCatalog.UpdateConstraint@@ -106,7 +113,7 @@         , Network.AWS.ServiceCatalog.Types.Sum      build-depends:-          amazonka-core == 1.5.0.*+          amazonka-core == 1.6.0.*         , base          >= 4.7     && < 5  test-suite amazonka-servicecatalog-test@@ -126,8 +133,8 @@         , Test.AWS.ServiceCatalog.Internal      build-depends:-          amazonka-core == 1.5.0.*-        , amazonka-test == 1.5.0.*+          amazonka-core == 1.6.0.*+        , amazonka-test == 1.6.0.*         , amazonka-servicecatalog         , base         , bytestring

@@ -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,7 +5,7 @@  -- | -- Module      : Network.AWS.ServiceCatalog--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -13,17 +13,7 @@ -- -- __AWS Service Catalog__ ----- __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, 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/------     * <http://docs.aws.amazon.com/servicecatalog/latest/adminguide/introduction.html AWS Service Catalog Administrator Guide>------     * <http://docs.aws.amazon.com/servicecatalog/latest/userguide/introduction.html AWS Service Catalog User Guide>------+-- <https://aws.amazon.com/servicecatalog/ AWS Service Catalog> enables organizations to create and manage catalogs of IT services that are approved for use on AWS. To get the most out of this documentation, you should be familiar with the terminology discussed in <http://docs.aws.amazon.com/servicecatalog/latest/adminguide/what-is_concepts.html AWS Service Catalog Concepts> . -- module Network.AWS.ServiceCatalog     (@@ -66,6 +56,9 @@     -- ** UpdateConstraint     , module Network.AWS.ServiceCatalog.UpdateConstraint +    -- ** CreateProvisionedProductPlan+    , module Network.AWS.ServiceCatalog.CreateProvisionedProductPlan+     -- ** CreateProduct     , module Network.AWS.ServiceCatalog.CreateProduct @@ -84,6 +77,9 @@     -- ** ListRecordHistory     , module Network.AWS.ServiceCatalog.ListRecordHistory +    -- ** DescribeProvisionedProductPlan+    , module Network.AWS.ServiceCatalog.DescribeProvisionedProductPlan+     -- ** AssociateTagOptionWithResource     , module Network.AWS.ServiceCatalog.AssociateTagOptionWithResource @@ -93,7 +89,7 @@     -- ** DisassociateProductFromPortfolio     , module Network.AWS.ServiceCatalog.DisassociateProductFromPortfolio -    -- ** ListConstraintsForPortfolio+    -- ** ListConstraintsForPortfolio (Paginated)     , module Network.AWS.ServiceCatalog.ListConstraintsForPortfolio      -- ** DescribeRecord@@ -105,7 +101,7 @@     -- ** CreateProvisioningArtifact     , module Network.AWS.ServiceCatalog.CreateProvisioningArtifact -    -- ** ListPortfolios+    -- ** ListPortfolios (Paginated)     , module Network.AWS.ServiceCatalog.ListPortfolios      -- ** DescribeProductView@@ -120,12 +116,21 @@     -- ** SearchProducts     , module Network.AWS.ServiceCatalog.SearchProducts +    -- ** SearchProvisionedProducts+    , module Network.AWS.ServiceCatalog.SearchProvisionedProducts+     -- ** DescribeProduct     , module Network.AWS.ServiceCatalog.DescribeProduct +    -- ** DeleteProvisionedProductPlan+    , module Network.AWS.ServiceCatalog.DeleteProvisionedProductPlan+     -- ** CreateConstraint     , module Network.AWS.ServiceCatalog.CreateConstraint +    -- ** ListProvisionedProductPlans+    , module Network.AWS.ServiceCatalog.ListProvisionedProductPlans+     -- ** ListPortfolioAccess     , module Network.AWS.ServiceCatalog.ListPortfolioAccess @@ -144,16 +149,19 @@     -- ** AssociateProductWithPortfolio     , module Network.AWS.ServiceCatalog.AssociateProductWithPortfolio -    -- ** ListAcceptedPortfolioShares+    -- ** ListAcceptedPortfolioShares (Paginated)     , module Network.AWS.ServiceCatalog.ListAcceptedPortfolioShares +    -- ** ExecuteProvisionedProductPlan+    , module Network.AWS.ServiceCatalog.ExecuteProvisionedProductPlan+     -- ** AcceptPortfolioShare     , module Network.AWS.ServiceCatalog.AcceptPortfolioShare      -- ** ScanProvisionedProducts     , module Network.AWS.ServiceCatalog.ScanProvisionedProducts -    -- ** ListPrincipalsForPortfolio+    -- ** ListPrincipalsForPortfolio (Paginated)     , module Network.AWS.ServiceCatalog.ListPrincipalsForPortfolio      -- ** DeleteProduct@@ -168,13 +176,16 @@     -- ** RejectPortfolioShare     , module Network.AWS.ServiceCatalog.RejectPortfolioShare +    -- ** DeleteTagOption+    , module Network.AWS.ServiceCatalog.DeleteTagOption+     -- ** UpdateTagOption     , module Network.AWS.ServiceCatalog.UpdateTagOption -    -- ** ListTagOptions+    -- ** ListTagOptions (Paginated)     , module Network.AWS.ServiceCatalog.ListTagOptions -    -- ** SearchProductsAsAdmin+    -- ** SearchProductsAsAdmin (Paginated)     , module Network.AWS.ServiceCatalog.SearchProductsAsAdmin      -- ** DeletePortfolio@@ -183,7 +194,7 @@     -- ** UpdatePortfolio     , module Network.AWS.ServiceCatalog.UpdatePortfolio -    -- ** ListPortfoliosForProduct+    -- ** ListPortfoliosForProduct (Paginated)     , module Network.AWS.ServiceCatalog.ListPortfoliosForProduct      -- ** DescribeProductAsAdmin@@ -213,10 +224,10 @@     -- ** CreatePortfolio     , module Network.AWS.ServiceCatalog.CreatePortfolio -    -- ** ListLaunchPaths+    -- ** ListLaunchPaths (Paginated)     , module Network.AWS.ServiceCatalog.ListLaunchPaths -    -- ** ListResourcesForTagOption+    -- ** ListResourcesForTagOption (Paginated)     , module Network.AWS.ServiceCatalog.ListResourcesForTagOption      -- * Types@@ -224,12 +235,18 @@     -- ** AccessLevelFilterKey     , AccessLevelFilterKey (..) +    -- ** ChangeAction+    , ChangeAction (..)+     -- ** CopyOption     , CopyOption (..)      -- ** CopyProductStatus     , CopyProductStatus (..) +    -- ** EvaluationType+    , EvaluationType (..)+     -- ** PrincipalType     , PrincipalType (..) @@ -245,9 +262,18 @@     -- ** ProductViewSortBy     , ProductViewSortBy (..) +    -- ** ProvisionedProductPlanStatus+    , ProvisionedProductPlanStatus (..)++    -- ** ProvisionedProductPlanType+    , ProvisionedProductPlanType (..)+     -- ** ProvisionedProductStatus     , ProvisionedProductStatus (..) +    -- ** ProvisionedProductViewFilterBy+    , ProvisionedProductViewFilterBy (..)+     -- ** ProvisioningArtifactPropertyName     , ProvisioningArtifactPropertyName (..) @@ -257,9 +283,18 @@     -- ** RecordStatus     , RecordStatus (..) +    -- ** Replacement+    , Replacement (..)+     -- ** RequestStatus     , RequestStatus (..) +    -- ** RequiresRecreation+    , RequiresRecreation (..)++    -- ** ResourceAttribute+    , ResourceAttribute (..)+     -- ** SortOrder     , SortOrder (..) @@ -269,6 +304,11 @@     , alfValue     , alfKey +    -- ** CloudWatchDashboard+    , CloudWatchDashboard+    , cloudWatchDashboard+    , cwdName+     -- ** ConstraintDetail     , ConstraintDetail     , constraintDetail@@ -354,6 +394,25 @@     , pvsProductId     , pvsSupportDescription +    -- ** ProvisionedProductAttribute+    , ProvisionedProductAttribute+    , provisionedProductAttribute+    , ppaIdempotencyToken+    , ppaStatus+    , ppaProvisioningArtifactId+    , ppaARN+    , ppaCreatedTime+    , ppaUserARN+    , ppaStatusMessage+    , ppaName+    , ppaLastRecordId+    , ppaUserARNSession+    , ppaId+    , ppaType+    , ppaPhysicalId+    , ppaProductId+    , ppaTags+     -- ** ProvisionedProductDetail     , ProvisionedProductDetail     , provisionedProductDetail@@ -367,6 +426,35 @@     , ppdId     , ppdType +    -- ** ProvisionedProductPlanDetails+    , ProvisionedProductPlanDetails+    , provisionedProductPlanDetails+    , pppdStatus+    , pppdProvisionProductId+    , pppdProvisioningArtifactId+    , pppdProvisionProductName+    , pppdCreatedTime+    , pppdNotificationARNs+    , pppdPlanId+    , pppdPlanName+    , pppdStatusMessage+    , pppdUpdatedTime+    , pppdPathId+    , pppdProvisioningParameters+    , pppdPlanType+    , pppdProductId+    , pppdTags++    -- ** ProvisionedProductPlanSummary+    , ProvisionedProductPlanSummary+    , provisionedProductPlanSummary+    , pppsProvisionProductId+    , pppsProvisioningArtifactId+    , pppsProvisionProductName+    , pppsPlanId+    , pppsPlanName+    , pppsPlanType+     -- ** ProvisioningArtifact     , ProvisioningArtifact     , provisioningArtifact@@ -379,6 +467,7 @@     , ProvisioningArtifactDetail     , provisioningArtifactDetail     , padCreatedTime+    , padActive     , padName     , padId     , padType@@ -453,6 +542,24 @@     , rtValue     , rtKey +    -- ** ResourceChange+    , ResourceChange+    , resourceChange+    , rcLogicalResourceId+    , rcPhysicalResourceId+    , rcResourceType+    , rcAction+    , rcScope+    , rcDetails+    , rcReplacement++    -- ** ResourceChangeDetail+    , ResourceChangeDetail+    , resourceChangeDetail+    , rcdCausingEntity+    , rcdEvaluation+    , rcdTarget+     -- ** ResourceDetail     , ResourceDetail     , resourceDetail@@ -462,6 +569,13 @@     , rId     , rDescription +    -- ** ResourceTargetDefinition+    , ResourceTargetDefinition+    , resourceTargetDefinition+    , rtdAttribute+    , rtdRequiresRecreation+    , rtdName+     -- ** Tag     , Tag     , tag@@ -505,13 +619,16 @@ import Network.AWS.ServiceCatalog.CreatePortfolio import Network.AWS.ServiceCatalog.CreatePortfolioShare import Network.AWS.ServiceCatalog.CreateProduct+import Network.AWS.ServiceCatalog.CreateProvisionedProductPlan 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.DeleteProvisionedProductPlan import Network.AWS.ServiceCatalog.DeleteProvisioningArtifact+import Network.AWS.ServiceCatalog.DeleteTagOption import Network.AWS.ServiceCatalog.DescribeConstraint import Network.AWS.ServiceCatalog.DescribeCopyProductStatus import Network.AWS.ServiceCatalog.DescribePortfolio@@ -519,6 +636,7 @@ import Network.AWS.ServiceCatalog.DescribeProductAsAdmin import Network.AWS.ServiceCatalog.DescribeProductView import Network.AWS.ServiceCatalog.DescribeProvisionedProduct+import Network.AWS.ServiceCatalog.DescribeProvisionedProductPlan import Network.AWS.ServiceCatalog.DescribeProvisioningArtifact import Network.AWS.ServiceCatalog.DescribeProvisioningParameters import Network.AWS.ServiceCatalog.DescribeRecord@@ -526,6 +644,7 @@ import Network.AWS.ServiceCatalog.DisassociatePrincipalFromPortfolio import Network.AWS.ServiceCatalog.DisassociateProductFromPortfolio import Network.AWS.ServiceCatalog.DisassociateTagOptionFromResource+import Network.AWS.ServiceCatalog.ExecuteProvisionedProductPlan import Network.AWS.ServiceCatalog.ListAcceptedPortfolioShares import Network.AWS.ServiceCatalog.ListConstraintsForPortfolio import Network.AWS.ServiceCatalog.ListLaunchPaths@@ -533,6 +652,7 @@ import Network.AWS.ServiceCatalog.ListPortfolios import Network.AWS.ServiceCatalog.ListPortfoliosForProduct import Network.AWS.ServiceCatalog.ListPrincipalsForPortfolio+import Network.AWS.ServiceCatalog.ListProvisionedProductPlans import Network.AWS.ServiceCatalog.ListProvisioningArtifacts import Network.AWS.ServiceCatalog.ListRecordHistory import Network.AWS.ServiceCatalog.ListResourcesForTagOption@@ -542,6 +662,7 @@ import Network.AWS.ServiceCatalog.ScanProvisionedProducts import Network.AWS.ServiceCatalog.SearchProducts import Network.AWS.ServiceCatalog.SearchProductsAsAdmin+import Network.AWS.ServiceCatalog.SearchProvisionedProducts import Network.AWS.ServiceCatalog.TerminateProvisionedProduct import Network.AWS.ServiceCatalog.Types import Network.AWS.ServiceCatalog.UpdateConstraint

@@ -12,13 +12,13 @@  -- | -- Module      : Network.AWS.ServiceCatalog.AcceptPortfolioShare--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Accepts an offer to share a portfolio.+-- Accepts an offer to share the specified portfolio. -- -- module Network.AWS.ServiceCatalog.AcceptPortfolioShare@@ -63,16 +63,16 @@     -> AcceptPortfolioShare acceptPortfolioShare pPortfolioId_ =   AcceptPortfolioShare'-  {_apsAcceptLanguage = Nothing, _apsPortfolioId = pPortfolioId_}+    {_apsAcceptLanguage = Nothing, _apsPortfolioId = pPortfolioId_}   -- | The language code.     * @en@ - English (default)     * @jp@ - Japanese     * @zh@ - Chinese apsAcceptLanguage :: Lens' AcceptPortfolioShare (Maybe Text)-apsAcceptLanguage = lens _apsAcceptLanguage (\ s a -> s{_apsAcceptLanguage = a});+apsAcceptLanguage = lens _apsAcceptLanguage (\ s a -> s{_apsAcceptLanguage = a})  -- | The portfolio identifier. apsPortfolioId :: Lens' AcceptPortfolioShare Text-apsPortfolioId = lens _apsPortfolioId (\ s a -> s{_apsPortfolioId = a});+apsPortfolioId = lens _apsPortfolioId (\ s a -> s{_apsPortfolioId = a})  instance AWSRequest AcceptPortfolioShare where         type Rs AcceptPortfolioShare =@@ -131,6 +131,6 @@  -- | -- | The response status code. apsrsResponseStatus :: Lens' AcceptPortfolioShareResponse Int-apsrsResponseStatus = lens _apsrsResponseStatus (\ s a -> s{_apsrsResponseStatus = a});+apsrsResponseStatus = lens _apsrsResponseStatus (\ s a -> s{_apsrsResponseStatus = a})  instance NFData AcceptPortfolioShareResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.ServiceCatalog.AssociatePrincipalWithPortfolio--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -63,9 +63,9 @@ -- -- * 'aPortfolioId' - The portfolio identifier. ----- * 'aPrincipalARN' - The ARN representing the principal (IAM user, role, or group).+-- * 'aPrincipalARN' - The ARN of the principal (IAM user, role, or group). ----- * 'aPrincipalType' - The principal type. Must be @IAM@+-- * 'aPrincipalType' - The principal type. The supported value is @IAM@ . associatePrincipalWithPortfolio     :: Text -- ^ 'aPortfolioId'     -> Text -- ^ 'aPrincipalARN'@@ -73,28 +73,28 @@     -> AssociatePrincipalWithPortfolio associatePrincipalWithPortfolio pPortfolioId_ pPrincipalARN_ pPrincipalType_ =   AssociatePrincipalWithPortfolio'-  { _aAcceptLanguage = Nothing-  , _aPortfolioId = pPortfolioId_-  , _aPrincipalARN = pPrincipalARN_-  , _aPrincipalType = pPrincipalType_-  }+    { _aAcceptLanguage = Nothing+    , _aPortfolioId = pPortfolioId_+    , _aPrincipalARN = pPrincipalARN_+    , _aPrincipalType = pPrincipalType_+    }   -- | The language code.     * @en@ - English (default)     * @jp@ - Japanese     * @zh@ - Chinese aAcceptLanguage :: Lens' AssociatePrincipalWithPortfolio (Maybe Text)-aAcceptLanguage = lens _aAcceptLanguage (\ s a -> s{_aAcceptLanguage = a});+aAcceptLanguage = lens _aAcceptLanguage (\ s a -> s{_aAcceptLanguage = a})  -- | The portfolio identifier. aPortfolioId :: Lens' AssociatePrincipalWithPortfolio Text-aPortfolioId = lens _aPortfolioId (\ s a -> s{_aPortfolioId = a});+aPortfolioId = lens _aPortfolioId (\ s a -> s{_aPortfolioId = a}) --- | The ARN representing the principal (IAM user, role, or group).+-- | The ARN of the principal (IAM user, role, or group). aPrincipalARN :: Lens' AssociatePrincipalWithPortfolio Text-aPrincipalARN = lens _aPrincipalARN (\ s a -> s{_aPrincipalARN = a});+aPrincipalARN = lens _aPrincipalARN (\ s a -> s{_aPrincipalARN = a}) --- | The principal type. Must be @IAM@+-- | The principal type. The supported value is @IAM@ . aPrincipalType :: Lens' AssociatePrincipalWithPortfolio PrincipalType-aPrincipalType = lens _aPrincipalType (\ s a -> s{_aPrincipalType = a});+aPrincipalType = lens _aPrincipalType (\ s a -> s{_aPrincipalType = a})  instance AWSRequest AssociatePrincipalWithPortfolio          where@@ -155,12 +155,12 @@     -> AssociatePrincipalWithPortfolioResponse associatePrincipalWithPortfolioResponse pResponseStatus_ =   AssociatePrincipalWithPortfolioResponse'-  {_apwprsResponseStatus = pResponseStatus_}+    {_apwprsResponseStatus = pResponseStatus_}   -- | -- | The response status code. apwprsResponseStatus :: Lens' AssociatePrincipalWithPortfolioResponse Int-apwprsResponseStatus = lens _apwprsResponseStatus (\ s a -> s{_apwprsResponseStatus = a});+apwprsResponseStatus = lens _apwprsResponseStatus (\ s a -> s{_apwprsResponseStatus = a})  instance NFData            AssociatePrincipalWithPortfolioResponse

@@ -12,13 +12,13 @@  -- | -- Module      : Network.AWS.ServiceCatalog.AssociateProductWithPortfolio--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Associates a product with a portfolio.+-- Associates the specified product with the specified portfolio. -- -- module Network.AWS.ServiceCatalog.AssociateProductWithPortfolio@@ -59,7 +59,7 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'apwpSourcePortfolioId' - The identifier of the source portfolio to use with this association.+-- * 'apwpSourcePortfolioId' - The identifier of the source portfolio. -- -- * 'apwpAcceptLanguage' - The language code.     * @en@ - English (default)     * @jp@ - Japanese     * @zh@ - Chinese --@@ -72,28 +72,28 @@     -> AssociateProductWithPortfolio associateProductWithPortfolio pProductId_ pPortfolioId_ =   AssociateProductWithPortfolio'-  { _apwpSourcePortfolioId = Nothing-  , _apwpAcceptLanguage = Nothing-  , _apwpProductId = pProductId_-  , _apwpPortfolioId = pPortfolioId_-  }+    { _apwpSourcePortfolioId = Nothing+    , _apwpAcceptLanguage = Nothing+    , _apwpProductId = pProductId_+    , _apwpPortfolioId = pPortfolioId_+    }  --- | The identifier of the source portfolio to use with this association.+-- | The identifier of the source portfolio. apwpSourcePortfolioId :: Lens' AssociateProductWithPortfolio (Maybe Text)-apwpSourcePortfolioId = lens _apwpSourcePortfolioId (\ s a -> s{_apwpSourcePortfolioId = a});+apwpSourcePortfolioId = lens _apwpSourcePortfolioId (\ s a -> s{_apwpSourcePortfolioId = a})  -- | The language code.     * @en@ - English (default)     * @jp@ - Japanese     * @zh@ - Chinese apwpAcceptLanguage :: Lens' AssociateProductWithPortfolio (Maybe Text)-apwpAcceptLanguage = lens _apwpAcceptLanguage (\ s a -> s{_apwpAcceptLanguage = a});+apwpAcceptLanguage = lens _apwpAcceptLanguage (\ s a -> s{_apwpAcceptLanguage = a})  -- | The product identifier. apwpProductId :: Lens' AssociateProductWithPortfolio Text-apwpProductId = lens _apwpProductId (\ s a -> s{_apwpProductId = a});+apwpProductId = lens _apwpProductId (\ s a -> s{_apwpProductId = a})  -- | The portfolio identifier. apwpPortfolioId :: Lens' AssociateProductWithPortfolio Text-apwpPortfolioId = lens _apwpPortfolioId (\ s a -> s{_apwpPortfolioId = a});+apwpPortfolioId = lens _apwpPortfolioId (\ s a -> s{_apwpPortfolioId = a})  instance AWSRequest AssociateProductWithPortfolio          where@@ -156,7 +156,7 @@  -- | -- | The response status code. arsResponseStatus :: Lens' AssociateProductWithPortfolioResponse Int-arsResponseStatus = lens _arsResponseStatus (\ s a -> s{_arsResponseStatus = a});+arsResponseStatus = lens _arsResponseStatus (\ s a -> s{_arsResponseStatus = a})  instance NFData AssociateProductWithPortfolioResponse          where

@@ -12,13 +12,13 @@  -- | -- Module      : Network.AWS.ServiceCatalog.AssociateTagOptionWithResource--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Associate a TagOption identifier with a resource identifier.+-- Associate the specified TagOption with the specified portfolio or product. -- -- module Network.AWS.ServiceCatalog.AssociateTagOptionWithResource@@ -64,16 +64,16 @@     -> AssociateTagOptionWithResource associateTagOptionWithResource pResourceId_ pTagOptionId_ =   AssociateTagOptionWithResource'-  {_atowrResourceId = pResourceId_, _atowrTagOptionId = pTagOptionId_}+    {_atowrResourceId = pResourceId_, _atowrTagOptionId = pTagOptionId_}   -- | The resource identifier. atowrResourceId :: Lens' AssociateTagOptionWithResource Text-atowrResourceId = lens _atowrResourceId (\ s a -> s{_atowrResourceId = a});+atowrResourceId = lens _atowrResourceId (\ s a -> s{_atowrResourceId = a})  -- | The TagOption identifier. atowrTagOptionId :: Lens' AssociateTagOptionWithResource Text-atowrTagOptionId = lens _atowrTagOptionId (\ s a -> s{_atowrTagOptionId = a});+atowrTagOptionId = lens _atowrTagOptionId (\ s a -> s{_atowrTagOptionId = a})  instance AWSRequest AssociateTagOptionWithResource          where@@ -131,12 +131,12 @@     -> AssociateTagOptionWithResourceResponse associateTagOptionWithResourceResponse pResponseStatus_ =   AssociateTagOptionWithResourceResponse'-  {_atowrrsResponseStatus = pResponseStatus_}+    {_atowrrsResponseStatus = pResponseStatus_}   -- | -- | The response status code. atowrrsResponseStatus :: Lens' AssociateTagOptionWithResourceResponse Int-atowrrsResponseStatus = lens _atowrrsResponseStatus (\ s a -> s{_atowrrsResponseStatus = a});+atowrrsResponseStatus = lens _atowrrsResponseStatus (\ s a -> s{_atowrrsResponseStatus = a})  instance NFData            AssociateTagOptionWithResourceResponse

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.ServiceCatalog.CopyProduct--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -21,7 +21,7 @@ -- 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.+-- You can copy a product to the same account or another account. You can copy a product to the same region or another region. -- -- This operation is performed asynchronously. To track the progress of the operation, use 'DescribeCopyProductStatus' . --@@ -70,9 +70,9 @@ -- -- 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.+-- * 'cTargetProductId' - The identifier 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.+-- * 'cSourceProvisioningArtifactIdentifiers' - The identifiers of the provisioning artifacts (also known as versions) of the product 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. --@@ -82,50 +82,50 @@ -- -- * '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.+-- * 'cIdempotencyToken' - A unique identifier that you provide to ensure idempotency. If multiple requests differ only by the idempotency token, the same response is returned for each repeated 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_-  }+    { _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.+-- | The identifier of the target product. By default, a new product is created. cTargetProductId :: Lens' CopyProduct (Maybe Text)-cTargetProductId = lens _cTargetProductId (\ s a -> s{_cTargetProductId = a});+cTargetProductId = lens _cTargetProductId (\ s a -> s{_cTargetProductId = a}) --- | The IDs of the product versions to copy. By default, all provisioning artifacts are copied.+-- | The identifiers of the provisioning artifacts (also known as versions) of the product 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;+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});+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;+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});+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});+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.+-- | A unique identifier that you provide to ensure idempotency. If multiple requests differ only by the idempotency token, the same response is returned for each repeated request. cIdempotencyToken :: Lens' CopyProduct Text-cIdempotencyToken = lens _cIdempotencyToken (\ s a -> s{_cIdempotencyToken = a});+cIdempotencyToken = lens _cIdempotencyToken (\ s a -> s{_cIdempotencyToken = a})  instance AWSRequest CopyProduct where         type Rs CopyProduct = CopyProductResponse@@ -180,7 +180,7 @@ -- -- 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.+-- * 'coprsCopyProductToken' - The token to use to track the progress of the operation. -- -- * 'coprsResponseStatus' - -- | The response status code. copyProductResponse@@ -188,15 +188,15 @@     -> CopyProductResponse copyProductResponse pResponseStatus_ =   CopyProductResponse'-  {_coprsCopyProductToken = Nothing, _coprsResponseStatus = pResponseStatus_}+    {_coprsCopyProductToken = Nothing, _coprsResponseStatus = pResponseStatus_}  --- | A unique token to pass to @DescribeCopyProductStatus@ to track the progress of the operation.+-- | The token to use to track the progress of the operation. coprsCopyProductToken :: Lens' CopyProductResponse (Maybe Text)-coprsCopyProductToken = lens _coprsCopyProductToken (\ s a -> s{_coprsCopyProductToken = a});+coprsCopyProductToken = lens _coprsCopyProductToken (\ s a -> s{_coprsCopyProductToken = a})  -- | -- | The response status code. coprsResponseStatus :: Lens' CopyProductResponse Int-coprsResponseStatus = lens _coprsResponseStatus (\ s a -> s{_coprsResponseStatus = a});+coprsResponseStatus = lens _coprsResponseStatus (\ s a -> s{_coprsResponseStatus = a})  instance NFData CopyProductResponse where

@@ -12,13 +12,13 @@  -- | -- Module      : Network.AWS.ServiceCatalog.CreateConstraint--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Creates a new constraint. For more information, see <http://docs.aws.amazon.com/servicecatalog/latest/adminguide/constraints.html Using Constraints> .+-- Creates a constraint. -- -- module Network.AWS.ServiceCatalog.CreateConstraint@@ -70,17 +70,17 @@ -- -- * 'ccAcceptLanguage' - The language code.     * @en@ - English (default)     * @jp@ - Japanese     * @zh@ - Chinese ----- * 'ccDescription' - The text description of the constraint.+-- * 'ccDescription' - The description of the constraint. -- -- * 'ccPortfolioId' - The portfolio identifier. -- -- * 'ccProductId' - The product identifier. ----- * '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.+-- * 'ccParameters' - The constraint parameters, in JSON format. The syntax depends on the constraint type as follows:     * LAUNCH    * Specify the @RoleArn@ property as follows: \"RoleArn\" : \"arn:aws:iam::123456789012:role/LaunchRole\"     * NOTIFICATION    * Specify the @NotificationArns@ property as follows: \"NotificationArns\" : [\"arn:aws:sns:us-east-1:123456789012:Topic\"]     * TEMPLATE    * Specify the @Rules@ property. For more information, see <http://docs.aws.amazon.com/servicecatalog/latest/adminguide/reference-template_constraint_rules.html Template Constraint Rules> . ----- * 'ccType' - The type of the constraint. Case-sensitive valid values are: @LAUNCH@ , @NOTIFICATION@ , or @TEMPLATE@ .+-- * 'ccType' - The type of constraint.     * @LAUNCH@      * @NOTIFICATION@      * @TEMPLATE@ ----- * '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.+-- * 'ccIdempotencyToken' - A unique identifier that you provide to ensure idempotency. If multiple requests differ only by the idempotency token, the same response is returned for each repeated request. createConstraint     :: Text -- ^ 'ccPortfolioId'     -> Text -- ^ 'ccProductId'@@ -90,43 +90,43 @@     -> CreateConstraint createConstraint pPortfolioId_ pProductId_ pParameters_ pType_ pIdempotencyToken_ =   CreateConstraint'-  { _ccAcceptLanguage = Nothing-  , _ccDescription = Nothing-  , _ccPortfolioId = pPortfolioId_-  , _ccProductId = pProductId_-  , _ccParameters = pParameters_-  , _ccType = pType_-  , _ccIdempotencyToken = pIdempotencyToken_-  }+    { _ccAcceptLanguage = Nothing+    , _ccDescription = Nothing+    , _ccPortfolioId = pPortfolioId_+    , _ccProductId = pProductId_+    , _ccParameters = pParameters_+    , _ccType = pType_+    , _ccIdempotencyToken = pIdempotencyToken_+    }   -- | The language code.     * @en@ - English (default)     * @jp@ - Japanese     * @zh@ - Chinese ccAcceptLanguage :: Lens' CreateConstraint (Maybe Text)-ccAcceptLanguage = lens _ccAcceptLanguage (\ s a -> s{_ccAcceptLanguage = a});+ccAcceptLanguage = lens _ccAcceptLanguage (\ s a -> s{_ccAcceptLanguage = a}) --- | The text description of the constraint.+-- | The description of the constraint. ccDescription :: Lens' CreateConstraint (Maybe Text)-ccDescription = lens _ccDescription (\ s a -> s{_ccDescription = a});+ccDescription = lens _ccDescription (\ s a -> s{_ccDescription = a})  -- | The portfolio identifier. ccPortfolioId :: Lens' CreateConstraint Text-ccPortfolioId = lens _ccPortfolioId (\ s a -> s{_ccPortfolioId = a});+ccPortfolioId = lens _ccPortfolioId (\ s a -> s{_ccPortfolioId = a})  -- | The product identifier. ccProductId :: Lens' CreateConstraint Text-ccProductId = lens _ccProductId (\ s a -> s{_ccProductId = a});+ccProductId = lens _ccProductId (\ s a -> s{_ccProductId = a}) --- | 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.+-- | The constraint parameters, in JSON format. The syntax depends on the constraint type as follows:     * LAUNCH    * Specify the @RoleArn@ property as follows: \"RoleArn\" : \"arn:aws:iam::123456789012:role/LaunchRole\"     * NOTIFICATION    * Specify the @NotificationArns@ property as follows: \"NotificationArns\" : [\"arn:aws:sns:us-east-1:123456789012:Topic\"]     * TEMPLATE    * Specify the @Rules@ property. For more information, see <http://docs.aws.amazon.com/servicecatalog/latest/adminguide/reference-template_constraint_rules.html Template Constraint Rules> . ccParameters :: Lens' CreateConstraint Text-ccParameters = lens _ccParameters (\ s a -> s{_ccParameters = a});+ccParameters = lens _ccParameters (\ s a -> s{_ccParameters = a}) --- | The type of the constraint. Case-sensitive valid values are: @LAUNCH@ , @NOTIFICATION@ , or @TEMPLATE@ .+-- | The type of constraint.     * @LAUNCH@      * @NOTIFICATION@      * @TEMPLATE@ ccType :: Lens' CreateConstraint Text-ccType = lens _ccType (\ s a -> s{_ccType = a});+ccType = lens _ccType (\ s a -> s{_ccType = 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.+-- | A unique identifier that you provide to ensure idempotency. If multiple requests differ only by the idempotency token, the same response is returned for each repeated request. ccIdempotencyToken :: Lens' CreateConstraint Text-ccIdempotencyToken = lens _ccIdempotencyToken (\ s a -> s{_ccIdempotencyToken = a});+ccIdempotencyToken = lens _ccIdempotencyToken (\ s a -> s{_ccIdempotencyToken = a})  instance AWSRequest CreateConstraint where         type Rs CreateConstraint = CreateConstraintResponse@@ -186,9 +186,9 @@ -- -- * 'ccrsStatus' - The status of the current request. ----- * 'ccrsConstraintDetail' - The resulting detailed constraint information.+-- * 'ccrsConstraintDetail' - Information about the constraint. ----- * 'ccrsConstraintParameters' - The resulting constraint parameters.+-- * 'ccrsConstraintParameters' - The constraint parameters. -- -- * 'ccrsResponseStatus' - -- | The response status code. createConstraintResponse@@ -196,27 +196,27 @@     -> CreateConstraintResponse createConstraintResponse pResponseStatus_ =   CreateConstraintResponse'-  { _ccrsStatus = Nothing-  , _ccrsConstraintDetail = Nothing-  , _ccrsConstraintParameters = Nothing-  , _ccrsResponseStatus = pResponseStatus_-  }+    { _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});+ccrsStatus = lens _ccrsStatus (\ s a -> s{_ccrsStatus = a}) --- | The resulting detailed constraint information.+-- | Information about the constraint. ccrsConstraintDetail :: Lens' CreateConstraintResponse (Maybe ConstraintDetail)-ccrsConstraintDetail = lens _ccrsConstraintDetail (\ s a -> s{_ccrsConstraintDetail = a});+ccrsConstraintDetail = lens _ccrsConstraintDetail (\ s a -> s{_ccrsConstraintDetail = a}) --- | The resulting constraint parameters.+-- | The constraint parameters. ccrsConstraintParameters :: Lens' CreateConstraintResponse (Maybe Text)-ccrsConstraintParameters = lens _ccrsConstraintParameters (\ s a -> s{_ccrsConstraintParameters = a});+ccrsConstraintParameters = lens _ccrsConstraintParameters (\ s a -> s{_ccrsConstraintParameters = a})  -- | -- | The response status code. ccrsResponseStatus :: Lens' CreateConstraintResponse Int-ccrsResponseStatus = lens _ccrsResponseStatus (\ s a -> s{_ccrsResponseStatus = a});+ccrsResponseStatus = lens _ccrsResponseStatus (\ s a -> s{_ccrsResponseStatus = a})  instance NFData CreateConstraintResponse where

@@ -12,13 +12,13 @@  -- | -- Module      : Network.AWS.ServiceCatalog.CreatePortfolio--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Creates a new portfolio.+-- Creates a portfolio. -- -- module Network.AWS.ServiceCatalog.CreatePortfolio@@ -67,15 +67,15 @@ -- -- * 'creAcceptLanguage' - The language code.     * @en@ - English (default)     * @jp@ - Japanese     * @zh@ - Chinese ----- * 'creDescription' - The text description of the portfolio.+-- * 'creDescription' - The description of the portfolio. ----- * 'creTags' - Tags to associate with the new portfolio.+-- * 'creTags' - One or more tags. -- -- * 'creDisplayName' - The name to use for display purposes. -- -- * 'creProviderName' - The name of the portfolio provider. ----- * '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.+-- * 'creIdempotencyToken' - A unique identifier that you provide to ensure idempotency. If multiple requests differ only by the idempotency token, the same response is returned for each repeated request. createPortfolio     :: Text -- ^ 'creDisplayName'     -> Text -- ^ 'creProviderName'@@ -83,38 +83,38 @@     -> CreatePortfolio createPortfolio pDisplayName_ pProviderName_ pIdempotencyToken_ =   CreatePortfolio'-  { _creAcceptLanguage = Nothing-  , _creDescription = Nothing-  , _creTags = Nothing-  , _creDisplayName = pDisplayName_-  , _creProviderName = pProviderName_-  , _creIdempotencyToken = pIdempotencyToken_-  }+    { _creAcceptLanguage = Nothing+    , _creDescription = Nothing+    , _creTags = Nothing+    , _creDisplayName = pDisplayName_+    , _creProviderName = pProviderName_+    , _creIdempotencyToken = pIdempotencyToken_+    }   -- | The language code.     * @en@ - English (default)     * @jp@ - Japanese     * @zh@ - Chinese creAcceptLanguage :: Lens' CreatePortfolio (Maybe Text)-creAcceptLanguage = lens _creAcceptLanguage (\ s a -> s{_creAcceptLanguage = a});+creAcceptLanguage = lens _creAcceptLanguage (\ s a -> s{_creAcceptLanguage = a}) --- | The text description of the portfolio.+-- | The description of the portfolio. creDescription :: Lens' CreatePortfolio (Maybe Text)-creDescription = lens _creDescription (\ s a -> s{_creDescription = a});+creDescription = lens _creDescription (\ s a -> s{_creDescription = a}) --- | Tags to associate with the new portfolio.+-- | One or more tags. creTags :: Lens' CreatePortfolio [Tag]-creTags = lens _creTags (\ s a -> s{_creTags = a}) . _Default . _Coerce;+creTags = lens _creTags (\ s a -> s{_creTags = a}) . _Default . _Coerce  -- | The name to use for display purposes. creDisplayName :: Lens' CreatePortfolio Text-creDisplayName = lens _creDisplayName (\ s a -> s{_creDisplayName = a});+creDisplayName = lens _creDisplayName (\ s a -> s{_creDisplayName = a})  -- | The name of the portfolio provider. creProviderName :: Lens' CreatePortfolio Text-creProviderName = lens _creProviderName (\ s a -> s{_creProviderName = a});+creProviderName = lens _creProviderName (\ s a -> s{_creProviderName = 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.+-- | A unique identifier that you provide to ensure idempotency. If multiple requests differ only by the idempotency token, the same response is returned for each repeated request. creIdempotencyToken :: Lens' CreatePortfolio Text-creIdempotencyToken = lens _creIdempotencyToken (\ s a -> s{_creIdempotencyToken = a});+creIdempotencyToken = lens _creIdempotencyToken (\ s a -> s{_creIdempotencyToken = a})  instance AWSRequest CreatePortfolio where         type Rs CreatePortfolio = CreatePortfolioResponse@@ -170,9 +170,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'crsPortfolioDetail' - The resulting detailed portfolio information.+-- * 'crsPortfolioDetail' - Information about the portfolio. ----- * 'crsTags' - Tags successfully associated with the new portfolio.+-- * 'crsTags' - Information about the tags associated with the portfolio. -- -- * 'crsResponseStatus' - -- | The response status code. createPortfolioResponse@@ -180,22 +180,22 @@     -> CreatePortfolioResponse createPortfolioResponse pResponseStatus_ =   CreatePortfolioResponse'-  { _crsPortfolioDetail = Nothing-  , _crsTags = Nothing-  , _crsResponseStatus = pResponseStatus_-  }+    { _crsPortfolioDetail = Nothing+    , _crsTags = Nothing+    , _crsResponseStatus = pResponseStatus_+    }  --- | The resulting detailed portfolio information.+-- | Information about the portfolio. crsPortfolioDetail :: Lens' CreatePortfolioResponse (Maybe PortfolioDetail)-crsPortfolioDetail = lens _crsPortfolioDetail (\ s a -> s{_crsPortfolioDetail = a});+crsPortfolioDetail = lens _crsPortfolioDetail (\ s a -> s{_crsPortfolioDetail = a}) --- | Tags successfully associated with the new portfolio.+-- | Information about the tags associated with the portfolio. crsTags :: Lens' CreatePortfolioResponse [Tag]-crsTags = lens _crsTags (\ s a -> s{_crsTags = a}) . _Default . _Coerce;+crsTags = lens _crsTags (\ s a -> s{_crsTags = a}) . _Default . _Coerce  -- | -- | The response status code. crsResponseStatus :: Lens' CreatePortfolioResponse Int-crsResponseStatus = lens _crsResponseStatus (\ s a -> s{_crsResponseStatus = a});+crsResponseStatus = lens _crsResponseStatus (\ s a -> s{_crsResponseStatus = a})  instance NFData CreatePortfolioResponse where

@@ -12,13 +12,13 @@  -- | -- Module      : Network.AWS.ServiceCatalog.CreatePortfolioShare--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Creates a new portfolio share.+-- Shares the specified portfolio with the specified account. -- -- module Network.AWS.ServiceCatalog.CreatePortfolioShare@@ -61,30 +61,30 @@ -- -- * 'cpsPortfolioId' - The portfolio identifier. ----- * 'cpsAccountId' - The account ID with which to share the portfolio.+-- * 'cpsAccountId' - The AWS account ID. createPortfolioShare     :: Text -- ^ 'cpsPortfolioId'     -> Text -- ^ 'cpsAccountId'     -> CreatePortfolioShare createPortfolioShare pPortfolioId_ pAccountId_ =   CreatePortfolioShare'-  { _cpsAcceptLanguage = Nothing-  , _cpsPortfolioId = pPortfolioId_-  , _cpsAccountId = pAccountId_-  }+    { _cpsAcceptLanguage = Nothing+    , _cpsPortfolioId = pPortfolioId_+    , _cpsAccountId = pAccountId_+    }   -- | The language code.     * @en@ - English (default)     * @jp@ - Japanese     * @zh@ - Chinese cpsAcceptLanguage :: Lens' CreatePortfolioShare (Maybe Text)-cpsAcceptLanguage = lens _cpsAcceptLanguage (\ s a -> s{_cpsAcceptLanguage = a});+cpsAcceptLanguage = lens _cpsAcceptLanguage (\ s a -> s{_cpsAcceptLanguage = a})  -- | The portfolio identifier. cpsPortfolioId :: Lens' CreatePortfolioShare Text-cpsPortfolioId = lens _cpsPortfolioId (\ s a -> s{_cpsPortfolioId = a});+cpsPortfolioId = lens _cpsPortfolioId (\ s a -> s{_cpsPortfolioId = a}) --- | The account ID with which to share the portfolio.+-- | The AWS account ID. cpsAccountId :: Lens' CreatePortfolioShare Text-cpsAccountId = lens _cpsAccountId (\ s a -> s{_cpsAccountId = a});+cpsAccountId = lens _cpsAccountId (\ s a -> s{_cpsAccountId = a})  instance AWSRequest CreatePortfolioShare where         type Rs CreatePortfolioShare =@@ -144,6 +144,6 @@  -- | -- | The response status code. cpsrsResponseStatus :: Lens' CreatePortfolioShareResponse Int-cpsrsResponseStatus = lens _cpsrsResponseStatus (\ s a -> s{_cpsrsResponseStatus = a});+cpsrsResponseStatus = lens _cpsrsResponseStatus (\ s a -> s{_cpsrsResponseStatus = a})  instance NFData CreatePortfolioShareResponse where

@@ -12,13 +12,13 @@  -- | -- Module      : Network.AWS.ServiceCatalog.CreateProduct--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Creates a new product.+-- Creates a product. -- -- module Network.AWS.ServiceCatalog.CreateProduct@@ -78,29 +78,29 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'cpSupportURL' - Contact URL for product support.+-- * 'cpSupportURL' - The contact URL for product support. -- -- * 'cpDistributor' - The distributor of the product. -- -- * 'cpAcceptLanguage' - The language code.     * @en@ - English (default)     * @jp@ - Japanese     * @zh@ - Chinese ----- * 'cpSupportEmail' - Contact email for product support.+-- * 'cpSupportEmail' - The contact email for product support. ----- * 'cpDescription' - The text description of the product.+-- * 'cpDescription' - The description of the product. ----- * 'cpTags' - Tags to associate with the new product.+-- * 'cpTags' - One or more tags. ----- * 'cpSupportDescription' - Support information about the product.+-- * 'cpSupportDescription' - The support information about the product. -- -- * 'cpName' - The name of the product. -- -- * 'cpOwner' - The owner of the product. ----- * 'cpProductType' - The type of the product to create.+-- * 'cpProductType' - The type of product. ----- * 'cpProvisioningArtifactParameters' - Parameters for the provisioning artifact.+-- * 'cpProvisioningArtifactParameters' - The configuration of the provisioning artifact. ----- * '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.+-- * 'cpIdempotencyToken' - A unique identifier that you provide to ensure idempotency. If multiple requests differ only by the idempotency token, the same response is returned for each repeated request. createProduct     :: Text -- ^ 'cpName'     -> Text -- ^ 'cpOwner'@@ -110,68 +110,68 @@     -> 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_-  }+    { _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.+-- | The contact URL for product support. cpSupportURL :: Lens' CreateProduct (Maybe Text)-cpSupportURL = lens _cpSupportURL (\ s a -> s{_cpSupportURL = a});+cpSupportURL = lens _cpSupportURL (\ s a -> s{_cpSupportURL = a})  -- | The distributor of the product. cpDistributor :: Lens' CreateProduct (Maybe Text)-cpDistributor = lens _cpDistributor (\ s a -> s{_cpDistributor = a});+cpDistributor = lens _cpDistributor (\ s a -> s{_cpDistributor = a})  -- | The language code.     * @en@ - English (default)     * @jp@ - Japanese     * @zh@ - Chinese cpAcceptLanguage :: Lens' CreateProduct (Maybe Text)-cpAcceptLanguage = lens _cpAcceptLanguage (\ s a -> s{_cpAcceptLanguage = a});+cpAcceptLanguage = lens _cpAcceptLanguage (\ s a -> s{_cpAcceptLanguage = a}) --- | Contact email for product support.+-- | The contact email for product support. cpSupportEmail :: Lens' CreateProduct (Maybe Text)-cpSupportEmail = lens _cpSupportEmail (\ s a -> s{_cpSupportEmail = a});+cpSupportEmail = lens _cpSupportEmail (\ s a -> s{_cpSupportEmail = a}) --- | The text description of the product.+-- | The description of the product. cpDescription :: Lens' CreateProduct (Maybe Text)-cpDescription = lens _cpDescription (\ s a -> s{_cpDescription = a});+cpDescription = lens _cpDescription (\ s a -> s{_cpDescription = a}) --- | Tags to associate with the new product.+-- | One or more tags. cpTags :: Lens' CreateProduct [Tag]-cpTags = lens _cpTags (\ s a -> s{_cpTags = a}) . _Default . _Coerce;+cpTags = lens _cpTags (\ s a -> s{_cpTags = a}) . _Default . _Coerce --- | Support information about the product.+-- | The support information about the product. cpSupportDescription :: Lens' CreateProduct (Maybe Text)-cpSupportDescription = lens _cpSupportDescription (\ s a -> s{_cpSupportDescription = a});+cpSupportDescription = lens _cpSupportDescription (\ s a -> s{_cpSupportDescription = a})  -- | The name of the product. cpName :: Lens' CreateProduct Text-cpName = lens _cpName (\ s a -> s{_cpName = a});+cpName = lens _cpName (\ s a -> s{_cpName = a})  -- | The owner of the product. cpOwner :: Lens' CreateProduct Text-cpOwner = lens _cpOwner (\ s a -> s{_cpOwner = a});+cpOwner = lens _cpOwner (\ s a -> s{_cpOwner = a}) --- | The type of the product to create.+-- | The type of product. cpProductType :: Lens' CreateProduct ProductType-cpProductType = lens _cpProductType (\ s a -> s{_cpProductType = a});+cpProductType = lens _cpProductType (\ s a -> s{_cpProductType = a}) --- | Parameters for the provisioning artifact.+-- | The configuration of the provisioning artifact. cpProvisioningArtifactParameters :: Lens' CreateProduct ProvisioningArtifactProperties-cpProvisioningArtifactParameters = lens _cpProvisioningArtifactParameters (\ s a -> s{_cpProvisioningArtifactParameters = a});+cpProvisioningArtifactParameters = lens _cpProvisioningArtifactParameters (\ s a -> s{_cpProvisioningArtifactParameters = 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.+-- | A unique identifier that you provide to ensure idempotency. If multiple requests differ only by the idempotency token, the same response is returned for each repeated request. cpIdempotencyToken :: Lens' CreateProduct Text-cpIdempotencyToken = lens _cpIdempotencyToken (\ s a -> s{_cpIdempotencyToken = a});+cpIdempotencyToken = lens _cpIdempotencyToken (\ s a -> s{_cpIdempotencyToken = a})  instance AWSRequest CreateProduct where         type Rs CreateProduct = CreateProductResponse@@ -236,11 +236,11 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'cprsProductViewDetail' - The resulting detailed product view information.+-- * 'cprsProductViewDetail' - Information about the product view. ----- * 'cprsProvisioningArtifactDetail' - The resulting detailed provisioning artifact information.+-- * 'cprsProvisioningArtifactDetail' - Information about the provisioning artifact. ----- * 'cprsTags' - Tags successfully associated with the new product.+-- * 'cprsTags' - Information about the tags associated with the product. -- -- * 'cprsResponseStatus' - -- | The response status code. createProductResponse@@ -248,27 +248,27 @@     -> CreateProductResponse createProductResponse pResponseStatus_ =   CreateProductResponse'-  { _cprsProductViewDetail = Nothing-  , _cprsProvisioningArtifactDetail = Nothing-  , _cprsTags = Nothing-  , _cprsResponseStatus = pResponseStatus_-  }+    { _cprsProductViewDetail = Nothing+    , _cprsProvisioningArtifactDetail = Nothing+    , _cprsTags = Nothing+    , _cprsResponseStatus = pResponseStatus_+    }  --- | The resulting detailed product view information.+-- | Information about the product view. cprsProductViewDetail :: Lens' CreateProductResponse (Maybe ProductViewDetail)-cprsProductViewDetail = lens _cprsProductViewDetail (\ s a -> s{_cprsProductViewDetail = a});+cprsProductViewDetail = lens _cprsProductViewDetail (\ s a -> s{_cprsProductViewDetail = a}) --- | The resulting detailed provisioning artifact information.+-- | Information about the provisioning artifact. cprsProvisioningArtifactDetail :: Lens' CreateProductResponse (Maybe ProvisioningArtifactDetail)-cprsProvisioningArtifactDetail = lens _cprsProvisioningArtifactDetail (\ s a -> s{_cprsProvisioningArtifactDetail = a});+cprsProvisioningArtifactDetail = lens _cprsProvisioningArtifactDetail (\ s a -> s{_cprsProvisioningArtifactDetail = a}) --- | Tags successfully associated with the new product.+-- | Information about the tags associated with the product. cprsTags :: Lens' CreateProductResponse [Tag]-cprsTags = lens _cprsTags (\ s a -> s{_cprsTags = a}) . _Default . _Coerce;+cprsTags = lens _cprsTags (\ s a -> s{_cprsTags = a}) . _Default . _Coerce  -- | -- | The response status code. cprsResponseStatus :: Lens' CreateProductResponse Int-cprsResponseStatus = lens _cprsResponseStatus (\ s a -> s{_cprsResponseStatus = a});+cprsResponseStatus = lens _cprsResponseStatus (\ s a -> s{_cprsResponseStatus = a})  instance NFData CreateProductResponse where

@@ -0,0 +1,296 @@+{-# 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.CreateProvisionedProductPlan+-- Copyright   : (c) 2013-2018 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Creates a plan. A plan includes the list of resources to be created (when provisioning a new product) or modified (when updating a provisioned product) when the plan is executed.+--+--+-- You can create one plan per provisioned product. To create a plan for an existing provisioned product, the product status must be AVAILBLE or TAINTED.+--+-- To view the resource changes in the change set, use 'DescribeProvisionedProductPlan' . To create or modify the provisioned product, use 'ExecuteProvisionedProductPlan' .+--+module Network.AWS.ServiceCatalog.CreateProvisionedProductPlan+    (+    -- * Creating a Request+      createProvisionedProductPlan+    , CreateProvisionedProductPlan+    -- * Request Lenses+    , cpppNotificationARNs+    , cpppAcceptLanguage+    , cpppPathId+    , cpppProvisioningParameters+    , cpppTags+    , cpppPlanName+    , cpppPlanType+    , cpppProductId+    , cpppProvisionedProductName+    , cpppProvisioningArtifactId+    , cpppIdempotencyToken++    -- * Destructuring the Response+    , createProvisionedProductPlanResponse+    , CreateProvisionedProductPlanResponse+    -- * Response Lenses+    , cppprsProvisionedProductName+    , cppprsProvisionProductId+    , cppprsProvisioningArtifactId+    , cppprsPlanId+    , cppprsPlanName+    , cppprsResponseStatus+    ) 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:/ 'createProvisionedProductPlan' smart constructor.+data CreateProvisionedProductPlan = CreateProvisionedProductPlan'+  { _cpppNotificationARNs       :: !(Maybe [Text])+  , _cpppAcceptLanguage         :: !(Maybe Text)+  , _cpppPathId                 :: !(Maybe Text)+  , _cpppProvisioningParameters :: !(Maybe [UpdateProvisioningParameter])+  , _cpppTags                   :: !(Maybe [Tag])+  , _cpppPlanName               :: !Text+  , _cpppPlanType               :: !ProvisionedProductPlanType+  , _cpppProductId              :: !Text+  , _cpppProvisionedProductName :: !Text+  , _cpppProvisioningArtifactId :: !Text+  , _cpppIdempotencyToken       :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'CreateProvisionedProductPlan' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'cpppNotificationARNs' - Passed to CloudFormation. The SNS topic ARNs to which to publish stack-related events.+--+-- * 'cpppAcceptLanguage' - The language code.     * @en@ - English (default)     * @jp@ - Japanese     * @zh@ - Chinese+--+-- * 'cpppPathId' - The path identifier of the product. This value is optional if the product has a default path, and required if the product has more than one path. To list the paths for a product, use 'ListLaunchPaths' .+--+-- * 'cpppProvisioningParameters' - Parameters specified by the administrator that are required for provisioning the product.+--+-- * 'cpppTags' - One or more tags.+--+-- * 'cpppPlanName' - The name of the plan.+--+-- * 'cpppPlanType' - The plan type.+--+-- * 'cpppProductId' - The product identifier.+--+-- * 'cpppProvisionedProductName' - A user-friendly name for the provisioned product. This value must be unique for the AWS account and cannot be updated after the product is provisioned.+--+-- * 'cpppProvisioningArtifactId' - The identifier of the provisioning artifact.+--+-- * 'cpppIdempotencyToken' - A unique identifier that you provide to ensure idempotency. If multiple requests differ only by the idempotency token, the same response is returned for each repeated request.+createProvisionedProductPlan+    :: Text -- ^ 'cpppPlanName'+    -> ProvisionedProductPlanType -- ^ 'cpppPlanType'+    -> Text -- ^ 'cpppProductId'+    -> Text -- ^ 'cpppProvisionedProductName'+    -> Text -- ^ 'cpppProvisioningArtifactId'+    -> Text -- ^ 'cpppIdempotencyToken'+    -> CreateProvisionedProductPlan+createProvisionedProductPlan pPlanName_ pPlanType_ pProductId_ pProvisionedProductName_ pProvisioningArtifactId_ pIdempotencyToken_ =+  CreateProvisionedProductPlan'+    { _cpppNotificationARNs = Nothing+    , _cpppAcceptLanguage = Nothing+    , _cpppPathId = Nothing+    , _cpppProvisioningParameters = Nothing+    , _cpppTags = Nothing+    , _cpppPlanName = pPlanName_+    , _cpppPlanType = pPlanType_+    , _cpppProductId = pProductId_+    , _cpppProvisionedProductName = pProvisionedProductName_+    , _cpppProvisioningArtifactId = pProvisioningArtifactId_+    , _cpppIdempotencyToken = pIdempotencyToken_+    }+++-- | Passed to CloudFormation. The SNS topic ARNs to which to publish stack-related events.+cpppNotificationARNs :: Lens' CreateProvisionedProductPlan [Text]+cpppNotificationARNs = lens _cpppNotificationARNs (\ s a -> s{_cpppNotificationARNs = a}) . _Default . _Coerce++-- | The language code.     * @en@ - English (default)     * @jp@ - Japanese     * @zh@ - Chinese+cpppAcceptLanguage :: Lens' CreateProvisionedProductPlan (Maybe Text)+cpppAcceptLanguage = lens _cpppAcceptLanguage (\ s a -> s{_cpppAcceptLanguage = a})++-- | The path identifier of the product. This value is optional if the product has a default path, and required if the product has more than one path. To list the paths for a product, use 'ListLaunchPaths' .+cpppPathId :: Lens' CreateProvisionedProductPlan (Maybe Text)+cpppPathId = lens _cpppPathId (\ s a -> s{_cpppPathId = a})++-- | Parameters specified by the administrator that are required for provisioning the product.+cpppProvisioningParameters :: Lens' CreateProvisionedProductPlan [UpdateProvisioningParameter]+cpppProvisioningParameters = lens _cpppProvisioningParameters (\ s a -> s{_cpppProvisioningParameters = a}) . _Default . _Coerce++-- | One or more tags.+cpppTags :: Lens' CreateProvisionedProductPlan [Tag]+cpppTags = lens _cpppTags (\ s a -> s{_cpppTags = a}) . _Default . _Coerce++-- | The name of the plan.+cpppPlanName :: Lens' CreateProvisionedProductPlan Text+cpppPlanName = lens _cpppPlanName (\ s a -> s{_cpppPlanName = a})++-- | The plan type.+cpppPlanType :: Lens' CreateProvisionedProductPlan ProvisionedProductPlanType+cpppPlanType = lens _cpppPlanType (\ s a -> s{_cpppPlanType = a})++-- | The product identifier.+cpppProductId :: Lens' CreateProvisionedProductPlan Text+cpppProductId = lens _cpppProductId (\ s a -> s{_cpppProductId = a})++-- | A user-friendly name for the provisioned product. This value must be unique for the AWS account and cannot be updated after the product is provisioned.+cpppProvisionedProductName :: Lens' CreateProvisionedProductPlan Text+cpppProvisionedProductName = lens _cpppProvisionedProductName (\ s a -> s{_cpppProvisionedProductName = a})++-- | The identifier of the provisioning artifact.+cpppProvisioningArtifactId :: Lens' CreateProvisionedProductPlan Text+cpppProvisioningArtifactId = lens _cpppProvisioningArtifactId (\ s a -> s{_cpppProvisioningArtifactId = a})++-- | A unique identifier that you provide to ensure idempotency. If multiple requests differ only by the idempotency token, the same response is returned for each repeated request.+cpppIdempotencyToken :: Lens' CreateProvisionedProductPlan Text+cpppIdempotencyToken = lens _cpppIdempotencyToken (\ s a -> s{_cpppIdempotencyToken = a})++instance AWSRequest CreateProvisionedProductPlan+         where+        type Rs CreateProvisionedProductPlan =+             CreateProvisionedProductPlanResponse+        request = postJSON serviceCatalog+        response+          = receiveJSON+              (\ s h x ->+                 CreateProvisionedProductPlanResponse' <$>+                   (x .?> "ProvisionedProductName") <*>+                     (x .?> "ProvisionProductId")+                     <*> (x .?> "ProvisioningArtifactId")+                     <*> (x .?> "PlanId")+                     <*> (x .?> "PlanName")+                     <*> (pure (fromEnum s)))++instance Hashable CreateProvisionedProductPlan where++instance NFData CreateProvisionedProductPlan where++instance ToHeaders CreateProvisionedProductPlan where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("AWS242ServiceCatalogService.CreateProvisionedProductPlan"+                       :: ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON CreateProvisionedProductPlan where+        toJSON CreateProvisionedProductPlan'{..}+          = object+              (catMaybes+                 [("NotificationArns" .=) <$> _cpppNotificationARNs,+                  ("AcceptLanguage" .=) <$> _cpppAcceptLanguage,+                  ("PathId" .=) <$> _cpppPathId,+                  ("ProvisioningParameters" .=) <$>+                    _cpppProvisioningParameters,+                  ("Tags" .=) <$> _cpppTags,+                  Just ("PlanName" .= _cpppPlanName),+                  Just ("PlanType" .= _cpppPlanType),+                  Just ("ProductId" .= _cpppProductId),+                  Just+                    ("ProvisionedProductName" .=+                       _cpppProvisionedProductName),+                  Just+                    ("ProvisioningArtifactId" .=+                       _cpppProvisioningArtifactId),+                  Just ("IdempotencyToken" .= _cpppIdempotencyToken)])++instance ToPath CreateProvisionedProductPlan where+        toPath = const "/"++instance ToQuery CreateProvisionedProductPlan where+        toQuery = const mempty++-- | /See:/ 'createProvisionedProductPlanResponse' smart constructor.+data CreateProvisionedProductPlanResponse = CreateProvisionedProductPlanResponse'+  { _cppprsProvisionedProductName :: !(Maybe Text)+  , _cppprsProvisionProductId     :: !(Maybe Text)+  , _cppprsProvisioningArtifactId :: !(Maybe Text)+  , _cppprsPlanId                 :: !(Maybe Text)+  , _cppprsPlanName               :: !(Maybe Text)+  , _cppprsResponseStatus         :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'CreateProvisionedProductPlanResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'cppprsProvisionedProductName' - The user-friendly name of the provisioned product.+--+-- * 'cppprsProvisionProductId' - The product identifier.+--+-- * 'cppprsProvisioningArtifactId' - The identifier of the provisioning artifact.+--+-- * 'cppprsPlanId' - The plan identifier.+--+-- * 'cppprsPlanName' - The name of the plan.+--+-- * 'cppprsResponseStatus' - -- | The response status code.+createProvisionedProductPlanResponse+    :: Int -- ^ 'cppprsResponseStatus'+    -> CreateProvisionedProductPlanResponse+createProvisionedProductPlanResponse pResponseStatus_ =+  CreateProvisionedProductPlanResponse'+    { _cppprsProvisionedProductName = Nothing+    , _cppprsProvisionProductId = Nothing+    , _cppprsProvisioningArtifactId = Nothing+    , _cppprsPlanId = Nothing+    , _cppprsPlanName = Nothing+    , _cppprsResponseStatus = pResponseStatus_+    }+++-- | The user-friendly name of the provisioned product.+cppprsProvisionedProductName :: Lens' CreateProvisionedProductPlanResponse (Maybe Text)+cppprsProvisionedProductName = lens _cppprsProvisionedProductName (\ s a -> s{_cppprsProvisionedProductName = a})++-- | The product identifier.+cppprsProvisionProductId :: Lens' CreateProvisionedProductPlanResponse (Maybe Text)+cppprsProvisionProductId = lens _cppprsProvisionProductId (\ s a -> s{_cppprsProvisionProductId = a})++-- | The identifier of the provisioning artifact.+cppprsProvisioningArtifactId :: Lens' CreateProvisionedProductPlanResponse (Maybe Text)+cppprsProvisioningArtifactId = lens _cppprsProvisioningArtifactId (\ s a -> s{_cppprsProvisioningArtifactId = a})++-- | The plan identifier.+cppprsPlanId :: Lens' CreateProvisionedProductPlanResponse (Maybe Text)+cppprsPlanId = lens _cppprsPlanId (\ s a -> s{_cppprsPlanId = a})++-- | The name of the plan.+cppprsPlanName :: Lens' CreateProvisionedProductPlanResponse (Maybe Text)+cppprsPlanName = lens _cppprsPlanName (\ s a -> s{_cppprsPlanName = a})++-- | -- | The response status code.+cppprsResponseStatus :: Lens' CreateProvisionedProductPlanResponse Int+cppprsResponseStatus = lens _cppprsResponseStatus (\ s a -> s{_cppprsResponseStatus = a})++instance NFData CreateProvisionedProductPlanResponse+         where

@@ -12,15 +12,17 @@  -- | -- Module      : Network.AWS.ServiceCatalog.CreateProvisioningArtifact--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Create a new provisioning artifact for the specified product. This operation does not work with a product that has been shared with you.+-- Creates a provisioning artifact (also known as a version) for the specified product. -- --+-- You cannot create a provisioning artifact for a product that was shared with you.+-- module Network.AWS.ServiceCatalog.CreateProvisioningArtifact     (     -- * Creating a Request@@ -66,9 +68,9 @@ -- -- * 'cpaProductId' - The product identifier. ----- * 'cpaParameters' - The parameters to use when creating the new provisioning artifact.+-- * 'cpaParameters' - The configuration for the provisioning artifact. ----- * '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.+-- * 'cpaIdempotencyToken' - A unique identifier that you provide to ensure idempotency. If multiple requests differ only by the idempotency token, the same response is returned for each repeated request. createProvisioningArtifact     :: Text -- ^ 'cpaProductId'     -> ProvisioningArtifactProperties -- ^ 'cpaParameters'@@ -76,28 +78,28 @@     -> CreateProvisioningArtifact createProvisioningArtifact pProductId_ pParameters_ pIdempotencyToken_ =   CreateProvisioningArtifact'-  { _cpaAcceptLanguage = Nothing-  , _cpaProductId = pProductId_-  , _cpaParameters = pParameters_-  , _cpaIdempotencyToken = pIdempotencyToken_-  }+    { _cpaAcceptLanguage = Nothing+    , _cpaProductId = pProductId_+    , _cpaParameters = pParameters_+    , _cpaIdempotencyToken = pIdempotencyToken_+    }   -- | The language code.     * @en@ - English (default)     * @jp@ - Japanese     * @zh@ - Chinese cpaAcceptLanguage :: Lens' CreateProvisioningArtifact (Maybe Text)-cpaAcceptLanguage = lens _cpaAcceptLanguage (\ s a -> s{_cpaAcceptLanguage = a});+cpaAcceptLanguage = lens _cpaAcceptLanguage (\ s a -> s{_cpaAcceptLanguage = a})  -- | The product identifier. cpaProductId :: Lens' CreateProvisioningArtifact Text-cpaProductId = lens _cpaProductId (\ s a -> s{_cpaProductId = a});+cpaProductId = lens _cpaProductId (\ s a -> s{_cpaProductId = a}) --- | The parameters to use when creating the new provisioning artifact.+-- | The configuration for the provisioning artifact. cpaParameters :: Lens' CreateProvisioningArtifact ProvisioningArtifactProperties-cpaParameters = lens _cpaParameters (\ s a -> s{_cpaParameters = a});+cpaParameters = lens _cpaParameters (\ s a -> s{_cpaParameters = 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.+-- | A unique identifier that you provide to ensure idempotency. If multiple requests differ only by the idempotency token, the same response is returned for each repeated request. cpaIdempotencyToken :: Lens' CreateProvisioningArtifact Text-cpaIdempotencyToken = lens _cpaIdempotencyToken (\ s a -> s{_cpaIdempotencyToken = a});+cpaIdempotencyToken = lens _cpaIdempotencyToken (\ s a -> s{_cpaIdempotencyToken = a})  instance AWSRequest CreateProvisioningArtifact where         type Rs CreateProvisioningArtifact =@@ -155,9 +157,9 @@ -- -- * 'cparsStatus' - The status of the current request. ----- * 'cparsInfo' - Additional information about the creation request for the provisioning artifact.+-- * 'cparsInfo' - The URL of the CloudFormation template in Amazon S3, in JSON format. ----- * 'cparsProvisioningArtifactDetail' - The resulting detailed provisioning artifact information.+-- * 'cparsProvisioningArtifactDetail' - Information about the provisioning artifact. -- -- * 'cparsResponseStatus' - -- | The response status code. createProvisioningArtifactResponse@@ -165,28 +167,28 @@     -> CreateProvisioningArtifactResponse createProvisioningArtifactResponse pResponseStatus_ =   CreateProvisioningArtifactResponse'-  { _cparsStatus = Nothing-  , _cparsInfo = Nothing-  , _cparsProvisioningArtifactDetail = Nothing-  , _cparsResponseStatus = pResponseStatus_-  }+    { _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});+cparsStatus = lens _cparsStatus (\ s a -> s{_cparsStatus = a}) --- | Additional information about the creation request for the provisioning artifact.+-- | The URL of the CloudFormation template in Amazon S3, in JSON format. cparsInfo :: Lens' CreateProvisioningArtifactResponse (HashMap Text Text)-cparsInfo = lens _cparsInfo (\ s a -> s{_cparsInfo = a}) . _Default . _Map;+cparsInfo = lens _cparsInfo (\ s a -> s{_cparsInfo = a}) . _Default . _Map --- | The resulting detailed provisioning artifact information.+-- | Information about the provisioning artifact. cparsProvisioningArtifactDetail :: Lens' CreateProvisioningArtifactResponse (Maybe ProvisioningArtifactDetail)-cparsProvisioningArtifactDetail = lens _cparsProvisioningArtifactDetail (\ s a -> s{_cparsProvisioningArtifactDetail = a});+cparsProvisioningArtifactDetail = lens _cparsProvisioningArtifactDetail (\ s a -> s{_cparsProvisioningArtifactDetail = a})  -- | -- | The response status code. cparsResponseStatus :: Lens' CreateProvisioningArtifactResponse Int-cparsResponseStatus = lens _cparsResponseStatus (\ s a -> s{_cparsResponseStatus = a});+cparsResponseStatus = lens _cparsResponseStatus (\ s a -> s{_cparsResponseStatus = a})  instance NFData CreateProvisioningArtifactResponse          where

@@ -12,13 +12,13 @@  -- | -- Module      : Network.AWS.ServiceCatalog.CreateTagOption--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Create a new TagOption.+-- Creates a TagOption. -- -- module Network.AWS.ServiceCatalog.CreateTagOption@@ -69,11 +69,11 @@  -- | The TagOption key. ctoKey :: Lens' CreateTagOption Text-ctoKey = lens _ctoKey (\ s a -> s{_ctoKey = a});+ctoKey = lens _ctoKey (\ s a -> s{_ctoKey = a})  -- | The TagOption value. ctoValue :: Lens' CreateTagOption Text-ctoValue = lens _ctoValue (\ s a -> s{_ctoValue = a});+ctoValue = lens _ctoValue (\ s a -> s{_ctoValue = a})  instance AWSRequest CreateTagOption where         type Rs CreateTagOption = CreateTagOptionResponse@@ -122,7 +122,7 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'ctorsTagOptionDetail' - The resulting detailed TagOption information.+-- * 'ctorsTagOptionDetail' - Information about the TagOption. -- -- * 'ctorsResponseStatus' - -- | The response status code. createTagOptionResponse@@ -130,15 +130,15 @@     -> CreateTagOptionResponse createTagOptionResponse pResponseStatus_ =   CreateTagOptionResponse'-  {_ctorsTagOptionDetail = Nothing, _ctorsResponseStatus = pResponseStatus_}+    {_ctorsTagOptionDetail = Nothing, _ctorsResponseStatus = pResponseStatus_}  --- | The resulting detailed TagOption information.+-- | Information about the TagOption. ctorsTagOptionDetail :: Lens' CreateTagOptionResponse (Maybe TagOptionDetail)-ctorsTagOptionDetail = lens _ctorsTagOptionDetail (\ s a -> s{_ctorsTagOptionDetail = a});+ctorsTagOptionDetail = lens _ctorsTagOptionDetail (\ s a -> s{_ctorsTagOptionDetail = a})  -- | -- | The response status code. ctorsResponseStatus :: Lens' CreateTagOptionResponse Int-ctorsResponseStatus = lens _ctorsResponseStatus (\ s a -> s{_ctorsResponseStatus = a});+ctorsResponseStatus = lens _ctorsResponseStatus (\ s a -> s{_ctorsResponseStatus = a})  instance NFData CreateTagOptionResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.ServiceCatalog.DeleteConstraint--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -57,7 +57,7 @@ -- -- * 'dcAcceptLanguage' - The language code.     * @en@ - English (default)     * @jp@ - Japanese     * @zh@ - Chinese ----- * 'dcId' - The identifier of the constraint to delete.+-- * 'dcId' - The identifier of the constraint. deleteConstraint     :: Text -- ^ 'dcId'     -> DeleteConstraint@@ -67,11 +67,11 @@  -- | The language code.     * @en@ - English (default)     * @jp@ - Japanese     * @zh@ - Chinese dcAcceptLanguage :: Lens' DeleteConstraint (Maybe Text)-dcAcceptLanguage = lens _dcAcceptLanguage (\ s a -> s{_dcAcceptLanguage = a});+dcAcceptLanguage = lens _dcAcceptLanguage (\ s a -> s{_dcAcceptLanguage = a}) --- | The identifier of the constraint to delete.+-- | The identifier of the constraint. dcId :: Lens' DeleteConstraint Text-dcId = lens _dcId (\ s a -> s{_dcId = a});+dcId = lens _dcId (\ s a -> s{_dcId = a})  instance AWSRequest DeleteConstraint where         type Rs DeleteConstraint = DeleteConstraintResponse@@ -128,6 +128,6 @@  -- | -- | The response status code. dcrsResponseStatus :: Lens' DeleteConstraintResponse Int-dcrsResponseStatus = lens _dcrsResponseStatus (\ s a -> s{_dcrsResponseStatus = a});+dcrsResponseStatus = lens _dcrsResponseStatus (\ s a -> s{_dcrsResponseStatus = a})  instance NFData DeleteConstraintResponse where

@@ -12,23 +12,25 @@  -- | -- Module      : Network.AWS.ServiceCatalog.DeletePortfolio--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Deletes the specified 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.+-- Deletes the specified portfolio. -- --+-- You cannot delete a portfolio if it was shared with you or if it has associated products, users, constraints, or shared accounts.+-- module Network.AWS.ServiceCatalog.DeletePortfolio     (     -- * Creating a Request       deletePortfolio     , DeletePortfolio     -- * Request Lenses-    , dppAcceptLanguage-    , dppId+    , ddAcceptLanguage+    , ddId      -- * Destructuring the Response     , deletePortfolioResponse@@ -46,8 +48,8 @@  -- | /See:/ 'deletePortfolio' smart constructor. data DeletePortfolio = DeletePortfolio'-  { _dppAcceptLanguage :: !(Maybe Text)-  , _dppId             :: !Text+  { _ddAcceptLanguage :: !(Maybe Text)+  , _ddId             :: !Text   } deriving (Eq, Read, Show, Data, Typeable, Generic)  @@ -55,23 +57,23 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'dppAcceptLanguage' - The language code.     * @en@ - English (default)     * @jp@ - Japanese     * @zh@ - Chinese+-- * 'ddAcceptLanguage' - The language code.     * @en@ - English (default)     * @jp@ - Japanese     * @zh@ - Chinese ----- * 'dppId' - The identifier of the portfolio for the delete request.+-- * 'ddId' - The portfolio identifier. deletePortfolio-    :: Text -- ^ 'dppId'+    :: Text -- ^ 'ddId'     -> DeletePortfolio deletePortfolio pId_ =-  DeletePortfolio' {_dppAcceptLanguage = Nothing, _dppId = pId_}+  DeletePortfolio' {_ddAcceptLanguage = Nothing, _ddId = pId_}   -- | The language code.     * @en@ - English (default)     * @jp@ - Japanese     * @zh@ - Chinese-dppAcceptLanguage :: Lens' DeletePortfolio (Maybe Text)-dppAcceptLanguage = lens _dppAcceptLanguage (\ s a -> s{_dppAcceptLanguage = a});+ddAcceptLanguage :: Lens' DeletePortfolio (Maybe Text)+ddAcceptLanguage = lens _ddAcceptLanguage (\ s a -> s{_ddAcceptLanguage = a}) --- | The identifier of the portfolio for the delete request.-dppId :: Lens' DeletePortfolio Text-dppId = lens _dppId (\ s a -> s{_dppId = a});+-- | The portfolio identifier.+ddId :: Lens' DeletePortfolio Text+ddId = lens _ddId (\ s a -> s{_ddId = a})  instance AWSRequest DeletePortfolio where         type Rs DeletePortfolio = DeletePortfolioResponse@@ -99,8 +101,8 @@         toJSON DeletePortfolio'{..}           = object               (catMaybes-                 [("AcceptLanguage" .=) <$> _dppAcceptLanguage,-                  Just ("Id" .= _dppId)])+                 [("AcceptLanguage" .=) <$> _ddAcceptLanguage,+                  Just ("Id" .= _ddId)])  instance ToPath DeletePortfolio where         toPath = const "/"@@ -128,6 +130,6 @@  -- | -- | The response status code. delrsResponseStatus :: Lens' DeletePortfolioResponse Int-delrsResponseStatus = lens _delrsResponseStatus (\ s a -> s{_delrsResponseStatus = a});+delrsResponseStatus = lens _delrsResponseStatus (\ s a -> s{_delrsResponseStatus = a})  instance NFData DeletePortfolioResponse where

@@ -12,13 +12,13 @@  -- | -- Module      : Network.AWS.ServiceCatalog.DeletePortfolioShare--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Deletes the specified portfolio share.+-- Stops sharing the specified portfolio with the specified account. -- -- module Network.AWS.ServiceCatalog.DeletePortfolioShare@@ -61,30 +61,30 @@ -- -- * 'dpsPortfolioId' - The portfolio identifier. ----- * 'dpsAccountId' - The account ID associated with the share to delete.+-- * 'dpsAccountId' - The AWS account ID. deletePortfolioShare     :: Text -- ^ 'dpsPortfolioId'     -> Text -- ^ 'dpsAccountId'     -> DeletePortfolioShare deletePortfolioShare pPortfolioId_ pAccountId_ =   DeletePortfolioShare'-  { _dpsAcceptLanguage = Nothing-  , _dpsPortfolioId = pPortfolioId_-  , _dpsAccountId = pAccountId_-  }+    { _dpsAcceptLanguage = Nothing+    , _dpsPortfolioId = pPortfolioId_+    , _dpsAccountId = pAccountId_+    }   -- | The language code.     * @en@ - English (default)     * @jp@ - Japanese     * @zh@ - Chinese dpsAcceptLanguage :: Lens' DeletePortfolioShare (Maybe Text)-dpsAcceptLanguage = lens _dpsAcceptLanguage (\ s a -> s{_dpsAcceptLanguage = a});+dpsAcceptLanguage = lens _dpsAcceptLanguage (\ s a -> s{_dpsAcceptLanguage = a})  -- | The portfolio identifier. dpsPortfolioId :: Lens' DeletePortfolioShare Text-dpsPortfolioId = lens _dpsPortfolioId (\ s a -> s{_dpsPortfolioId = a});+dpsPortfolioId = lens _dpsPortfolioId (\ s a -> s{_dpsPortfolioId = a}) --- | The account ID associated with the share to delete.+-- | The AWS account ID. dpsAccountId :: Lens' DeletePortfolioShare Text-dpsAccountId = lens _dpsAccountId (\ s a -> s{_dpsAccountId = a});+dpsAccountId = lens _dpsAccountId (\ s a -> s{_dpsAccountId = a})  instance AWSRequest DeletePortfolioShare where         type Rs DeletePortfolioShare =@@ -144,6 +144,6 @@  -- | -- | The response status code. dpsrsResponseStatus :: Lens' DeletePortfolioShareResponse Int-dpsrsResponseStatus = lens _dpsrsResponseStatus (\ s a -> s{_dpsrsResponseStatus = a});+dpsrsResponseStatus = lens _dpsrsResponseStatus (\ s a -> s{_dpsrsResponseStatus = a})  instance NFData DeletePortfolioShareResponse where

@@ -12,23 +12,25 @@  -- | -- Module      : Network.AWS.ServiceCatalog.DeleteProduct--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Deletes the specified product. This operation does not work with a product that has been shared with you or is associated with a portfolio.+-- Deletes the specified product. -- --+-- You cannot delete a product if it was shared with you or is associated with a portfolio.+-- module Network.AWS.ServiceCatalog.DeleteProduct     (     -- * Creating a Request       deleteProduct     , DeleteProduct     -- * Request Lenses-    , delAcceptLanguage-    , delId+    , dppAcceptLanguage+    , dppId      -- * Destructuring the Response     , deleteProductResponse@@ -46,8 +48,8 @@  -- | /See:/ 'deleteProduct' smart constructor. data DeleteProduct = DeleteProduct'-  { _delAcceptLanguage :: !(Maybe Text)-  , _delId             :: !Text+  { _dppAcceptLanguage :: !(Maybe Text)+  , _dppId             :: !Text   } deriving (Eq, Read, Show, Data, Typeable, Generic)  @@ -55,23 +57,23 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'delAcceptLanguage' - The language code.     * @en@ - English (default)     * @jp@ - Japanese     * @zh@ - Chinese+-- * 'dppAcceptLanguage' - The language code.     * @en@ - English (default)     * @jp@ - Japanese     * @zh@ - Chinese ----- * 'delId' - The identifier of the product for the delete request.+-- * 'dppId' - The product identifier. deleteProduct-    :: Text -- ^ 'delId'+    :: Text -- ^ 'dppId'     -> DeleteProduct deleteProduct pId_ =-  DeleteProduct' {_delAcceptLanguage = Nothing, _delId = pId_}+  DeleteProduct' {_dppAcceptLanguage = Nothing, _dppId = pId_}   -- | The language code.     * @en@ - English (default)     * @jp@ - Japanese     * @zh@ - Chinese-delAcceptLanguage :: Lens' DeleteProduct (Maybe Text)-delAcceptLanguage = lens _delAcceptLanguage (\ s a -> s{_delAcceptLanguage = a});+dppAcceptLanguage :: Lens' DeleteProduct (Maybe Text)+dppAcceptLanguage = lens _dppAcceptLanguage (\ s a -> s{_dppAcceptLanguage = a}) --- | The identifier of the product for the delete request.-delId :: Lens' DeleteProduct Text-delId = lens _delId (\ s a -> s{_delId = a});+-- | The product identifier.+dppId :: Lens' DeleteProduct Text+dppId = lens _dppId (\ s a -> s{_dppId = a})  instance AWSRequest DeleteProduct where         type Rs DeleteProduct = DeleteProductResponse@@ -99,8 +101,8 @@         toJSON DeleteProduct'{..}           = object               (catMaybes-                 [("AcceptLanguage" .=) <$> _delAcceptLanguage,-                  Just ("Id" .= _delId)])+                 [("AcceptLanguage" .=) <$> _dppAcceptLanguage,+                  Just ("Id" .= _dppId)])  instance ToPath DeleteProduct where         toPath = const "/"@@ -128,6 +130,6 @@  -- | -- | The response status code. delersResponseStatus :: Lens' DeleteProductResponse Int-delersResponseStatus = lens _delersResponseStatus (\ s a -> s{_delersResponseStatus = a});+delersResponseStatus = lens _delersResponseStatus (\ s a -> s{_delersResponseStatus = a})  instance NFData DeleteProductResponse where

@@ -0,0 +1,151 @@+{-# 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.DeleteProvisionedProductPlan+-- Copyright   : (c) 2013-2018 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Deletes the specified plan.+--+--+module Network.AWS.ServiceCatalog.DeleteProvisionedProductPlan+    (+    -- * Creating a Request+      deleteProvisionedProductPlan+    , DeleteProvisionedProductPlan+    -- * Request Lenses+    , delAcceptLanguage+    , delIgnoreErrors+    , delPlanId++    -- * Destructuring the Response+    , deleteProvisionedProductPlanResponse+    , DeleteProvisionedProductPlanResponse+    -- * Response Lenses+    , dppprsResponseStatus+    ) 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:/ 'deleteProvisionedProductPlan' smart constructor.+data DeleteProvisionedProductPlan = DeleteProvisionedProductPlan'+  { _delAcceptLanguage :: !(Maybe Text)+  , _delIgnoreErrors   :: !(Maybe Bool)+  , _delPlanId         :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'DeleteProvisionedProductPlan' 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.     * @en@ - English (default)     * @jp@ - Japanese     * @zh@ - Chinese+--+-- * 'delIgnoreErrors' - If set to true, AWS Service Catalog stops managing the specified provisioned product even if it cannot delete the underlying resources.+--+-- * 'delPlanId' - The plan identifier.+deleteProvisionedProductPlan+    :: Text -- ^ 'delPlanId'+    -> DeleteProvisionedProductPlan+deleteProvisionedProductPlan pPlanId_ =+  DeleteProvisionedProductPlan'+    { _delAcceptLanguage = Nothing+    , _delIgnoreErrors = Nothing+    , _delPlanId = pPlanId_+    }+++-- | The language code.     * @en@ - English (default)     * @jp@ - Japanese     * @zh@ - Chinese+delAcceptLanguage :: Lens' DeleteProvisionedProductPlan (Maybe Text)+delAcceptLanguage = lens _delAcceptLanguage (\ s a -> s{_delAcceptLanguage = a})++-- | If set to true, AWS Service Catalog stops managing the specified provisioned product even if it cannot delete the underlying resources.+delIgnoreErrors :: Lens' DeleteProvisionedProductPlan (Maybe Bool)+delIgnoreErrors = lens _delIgnoreErrors (\ s a -> s{_delIgnoreErrors = a})++-- | The plan identifier.+delPlanId :: Lens' DeleteProvisionedProductPlan Text+delPlanId = lens _delPlanId (\ s a -> s{_delPlanId = a})++instance AWSRequest DeleteProvisionedProductPlan+         where+        type Rs DeleteProvisionedProductPlan =+             DeleteProvisionedProductPlanResponse+        request = postJSON serviceCatalog+        response+          = receiveEmpty+              (\ s h x ->+                 DeleteProvisionedProductPlanResponse' <$>+                   (pure (fromEnum s)))++instance Hashable DeleteProvisionedProductPlan where++instance NFData DeleteProvisionedProductPlan where++instance ToHeaders DeleteProvisionedProductPlan where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("AWS242ServiceCatalogService.DeleteProvisionedProductPlan"+                       :: ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON DeleteProvisionedProductPlan where+        toJSON DeleteProvisionedProductPlan'{..}+          = object+              (catMaybes+                 [("AcceptLanguage" .=) <$> _delAcceptLanguage,+                  ("IgnoreErrors" .=) <$> _delIgnoreErrors,+                  Just ("PlanId" .= _delPlanId)])++instance ToPath DeleteProvisionedProductPlan where+        toPath = const "/"++instance ToQuery DeleteProvisionedProductPlan where+        toQuery = const mempty++-- | /See:/ 'deleteProvisionedProductPlanResponse' smart constructor.+newtype DeleteProvisionedProductPlanResponse = DeleteProvisionedProductPlanResponse'+  { _dppprsResponseStatus :: Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'DeleteProvisionedProductPlanResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dppprsResponseStatus' - -- | The response status code.+deleteProvisionedProductPlanResponse+    :: Int -- ^ 'dppprsResponseStatus'+    -> DeleteProvisionedProductPlanResponse+deleteProvisionedProductPlanResponse pResponseStatus_ =+  DeleteProvisionedProductPlanResponse'+    {_dppprsResponseStatus = pResponseStatus_}+++-- | -- | The response status code.+dppprsResponseStatus :: Lens' DeleteProvisionedProductPlanResponse Int+dppprsResponseStatus = lens _dppprsResponseStatus (\ s a -> s{_dppprsResponseStatus = a})++instance NFData DeleteProvisionedProductPlanResponse+         where

@@ -12,15 +12,17 @@  -- | -- Module      : Network.AWS.ServiceCatalog.DeleteProvisioningArtifact--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Deletes the specified 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).+-- Deletes the specified provisioning artifact (also known as a version) for the specified product. -- --+-- You cannot delete a provisioning artifact associated with a product that was shared with you. You cannot delete the last provisioning artifact for a product, because a product must have at least one provisioning artifact.+-- module Network.AWS.ServiceCatalog.DeleteProvisioningArtifact     (     -- * Creating a Request@@ -61,30 +63,30 @@ -- -- * 'dpapProductId' - The product identifier. ----- * 'dpapProvisioningArtifactId' - The identifier of the provisioning artifact for the delete request. This is sometimes referred to as the product version.+-- * 'dpapProvisioningArtifactId' - The identifier of the provisioning artifact. deleteProvisioningArtifact     :: Text -- ^ 'dpapProductId'     -> Text -- ^ 'dpapProvisioningArtifactId'     -> DeleteProvisioningArtifact deleteProvisioningArtifact pProductId_ pProvisioningArtifactId_ =   DeleteProvisioningArtifact'-  { _dpapAcceptLanguage = Nothing-  , _dpapProductId = pProductId_-  , _dpapProvisioningArtifactId = pProvisioningArtifactId_-  }+    { _dpapAcceptLanguage = Nothing+    , _dpapProductId = pProductId_+    , _dpapProvisioningArtifactId = pProvisioningArtifactId_+    }   -- | The language code.     * @en@ - English (default)     * @jp@ - Japanese     * @zh@ - Chinese dpapAcceptLanguage :: Lens' DeleteProvisioningArtifact (Maybe Text)-dpapAcceptLanguage = lens _dpapAcceptLanguage (\ s a -> s{_dpapAcceptLanguage = a});+dpapAcceptLanguage = lens _dpapAcceptLanguage (\ s a -> s{_dpapAcceptLanguage = a})  -- | The product identifier. dpapProductId :: Lens' DeleteProvisioningArtifact Text-dpapProductId = lens _dpapProductId (\ s a -> s{_dpapProductId = a});+dpapProductId = lens _dpapProductId (\ s a -> s{_dpapProductId = a}) --- | The identifier of the provisioning artifact for the delete request. This is sometimes referred to as the product version.+-- | The identifier of the provisioning artifact. dpapProvisioningArtifactId :: Lens' DeleteProvisioningArtifact Text-dpapProvisioningArtifactId = lens _dpapProvisioningArtifactId (\ s a -> s{_dpapProvisioningArtifactId = a});+dpapProvisioningArtifactId = lens _dpapProvisioningArtifactId (\ s a -> s{_dpapProvisioningArtifactId = a})  instance AWSRequest DeleteProvisioningArtifact where         type Rs DeleteProvisioningArtifact =@@ -146,7 +148,7 @@  -- | -- | The response status code. dparsResponseStatus :: Lens' DeleteProvisioningArtifactResponse Int-dparsResponseStatus = lens _dparsResponseStatus (\ s a -> s{_dparsResponseStatus = a});+dparsResponseStatus = lens _dparsResponseStatus (\ s a -> s{_dparsResponseStatus = a})  instance NFData DeleteProvisioningArtifactResponse          where

@@ -0,0 +1,123 @@+{-# 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.DeleteTagOption+-- Copyright   : (c) 2013-2018 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Deletes the specified TagOption.+--+--+-- You cannot delete a TagOption if it is associated with a product or portfolio.+--+module Network.AWS.ServiceCatalog.DeleteTagOption+    (+    -- * Creating a Request+      deleteTagOption+    , DeleteTagOption+    -- * Request Lenses+    , delId++    -- * Destructuring the Response+    , deleteTagOptionResponse+    , DeleteTagOptionResponse+    -- * Response Lenses+    , dtotrsResponseStatus+    ) 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:/ 'deleteTagOption' smart constructor.+newtype DeleteTagOption = DeleteTagOption'+  { _delId :: Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'DeleteTagOption' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'delId' - The TagOption identifier.+deleteTagOption+    :: Text -- ^ 'delId'+    -> DeleteTagOption+deleteTagOption pId_ = DeleteTagOption' {_delId = pId_}+++-- | The TagOption identifier.+delId :: Lens' DeleteTagOption Text+delId = lens _delId (\ s a -> s{_delId = a})++instance AWSRequest DeleteTagOption where+        type Rs DeleteTagOption = DeleteTagOptionResponse+        request = postJSON serviceCatalog+        response+          = receiveEmpty+              (\ s h x ->+                 DeleteTagOptionResponse' <$> (pure (fromEnum s)))++instance Hashable DeleteTagOption where++instance NFData DeleteTagOption where++instance ToHeaders DeleteTagOption where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("AWS242ServiceCatalogService.DeleteTagOption" ::+                       ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON DeleteTagOption where+        toJSON DeleteTagOption'{..}+          = object (catMaybes [Just ("Id" .= _delId)])++instance ToPath DeleteTagOption where+        toPath = const "/"++instance ToQuery DeleteTagOption where+        toQuery = const mempty++-- | /See:/ 'deleteTagOptionResponse' smart constructor.+newtype DeleteTagOptionResponse = DeleteTagOptionResponse'+  { _dtotrsResponseStatus :: Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'DeleteTagOptionResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dtotrsResponseStatus' - -- | The response status code.+deleteTagOptionResponse+    :: Int -- ^ 'dtotrsResponseStatus'+    -> DeleteTagOptionResponse+deleteTagOptionResponse pResponseStatus_ =+  DeleteTagOptionResponse' {_dtotrsResponseStatus = pResponseStatus_}+++-- | -- | The response status code.+dtotrsResponseStatus :: Lens' DeleteTagOptionResponse Int+dtotrsResponseStatus = lens _dtotrsResponseStatus (\ s a -> s{_dtotrsResponseStatus = a})++instance NFData DeleteTagOptionResponse where

@@ -12,13 +12,13 @@  -- | -- Module      : Network.AWS.ServiceCatalog.DescribeConstraint--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Retrieves detailed information for a specified constraint.+-- Gets information about the specified constraint. -- -- module Network.AWS.ServiceCatalog.DescribeConstraint@@ -70,11 +70,11 @@  -- | The language code.     * @en@ - English (default)     * @jp@ - Japanese     * @zh@ - Chinese dAcceptLanguage :: Lens' DescribeConstraint (Maybe Text)-dAcceptLanguage = lens _dAcceptLanguage (\ s a -> s{_dAcceptLanguage = a});+dAcceptLanguage = lens _dAcceptLanguage (\ s a -> s{_dAcceptLanguage = a})  -- | The identifier of the constraint. dId :: Lens' DescribeConstraint Text-dId = lens _dId (\ s a -> s{_dId = a});+dId = lens _dId (\ s a -> s{_dId = a})  instance AWSRequest DescribeConstraint where         type Rs DescribeConstraint =@@ -130,9 +130,9 @@ -- -- * 'desrsStatus' - The status of the current request. ----- * 'desrsConstraintDetail' - Detailed constraint information.+-- * 'desrsConstraintDetail' - Information about the constraint. ----- * 'desrsConstraintParameters' - The current parameters associated with the specified constraint.+-- * 'desrsConstraintParameters' - The constraint parameters. -- -- * 'desrsResponseStatus' - -- | The response status code. describeConstraintResponse@@ -140,27 +140,27 @@     -> DescribeConstraintResponse describeConstraintResponse pResponseStatus_ =   DescribeConstraintResponse'-  { _desrsStatus = Nothing-  , _desrsConstraintDetail = Nothing-  , _desrsConstraintParameters = Nothing-  , _desrsResponseStatus = pResponseStatus_-  }+    { _desrsStatus = Nothing+    , _desrsConstraintDetail = Nothing+    , _desrsConstraintParameters = Nothing+    , _desrsResponseStatus = pResponseStatus_+    }   -- | The status of the current request. desrsStatus :: Lens' DescribeConstraintResponse (Maybe RequestStatus)-desrsStatus = lens _desrsStatus (\ s a -> s{_desrsStatus = a});+desrsStatus = lens _desrsStatus (\ s a -> s{_desrsStatus = a}) --- | Detailed constraint information.+-- | Information about the constraint. desrsConstraintDetail :: Lens' DescribeConstraintResponse (Maybe ConstraintDetail)-desrsConstraintDetail = lens _desrsConstraintDetail (\ s a -> s{_desrsConstraintDetail = a});+desrsConstraintDetail = lens _desrsConstraintDetail (\ s a -> s{_desrsConstraintDetail = a}) --- | The current parameters associated with the specified constraint.+-- | The constraint parameters. desrsConstraintParameters :: Lens' DescribeConstraintResponse (Maybe Text)-desrsConstraintParameters = lens _desrsConstraintParameters (\ s a -> s{_desrsConstraintParameters = a});+desrsConstraintParameters = lens _desrsConstraintParameters (\ s a -> s{_desrsConstraintParameters = a})  -- | -- | The response status code. desrsResponseStatus :: Lens' DescribeConstraintResponse Int-desrsResponseStatus = lens _desrsResponseStatus (\ s a -> s{_desrsResponseStatus = a});+desrsResponseStatus = lens _desrsResponseStatus (\ s a -> s{_desrsResponseStatus = a})  instance NFData DescribeConstraintResponse where

@@ -12,13 +12,13 @@  -- | -- Module      : Network.AWS.ServiceCatalog.DescribeCopyProductStatus--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Describes the status of the specified copy product operation.+-- Gets the status of the specified copy product operation. -- -- module Network.AWS.ServiceCatalog.DescribeCopyProductStatus@@ -60,22 +60,22 @@ -- -- * 'dcpsAcceptLanguage' - The language code.     * @en@ - English (default)     * @jp@ - Japanese     * @zh@ - Chinese ----- * 'dcpsCopyProductToken' - The token returned from the call to @CopyProduct@ that initiated the operation.+-- * 'dcpsCopyProductToken' - The token for the copy product operation. This token is returned by 'CopyProduct' . describeCopyProductStatus     :: Text -- ^ 'dcpsCopyProductToken'     -> DescribeCopyProductStatus describeCopyProductStatus pCopyProductToken_ =   DescribeCopyProductStatus'-  {_dcpsAcceptLanguage = Nothing, _dcpsCopyProductToken = pCopyProductToken_}+    {_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});+dcpsAcceptLanguage = lens _dcpsAcceptLanguage (\ s a -> s{_dcpsAcceptLanguage = a}) --- | The token returned from the call to @CopyProduct@ that initiated the operation.+-- | The token for the copy product operation. This token is returned by 'CopyProduct' . dcpsCopyProductToken :: Lens' DescribeCopyProductStatus Text-dcpsCopyProductToken = lens _dcpsCopyProductToken (\ s a -> s{_dcpsCopyProductToken = a});+dcpsCopyProductToken = lens _dcpsCopyProductToken (\ s a -> s{_dcpsCopyProductToken = a})  instance AWSRequest DescribeCopyProductStatus where         type Rs DescribeCopyProductStatus =@@ -130,7 +130,7 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'dcpsrsTargetProductId' - The ID of the copied product.+-- * 'dcpsrsTargetProductId' - The identifier of the copied product. -- -- * 'dcpsrsCopyProductStatus' - The status of the copy product operation. --@@ -142,28 +142,28 @@     -> DescribeCopyProductStatusResponse describeCopyProductStatusResponse pResponseStatus_ =   DescribeCopyProductStatusResponse'-  { _dcpsrsTargetProductId = Nothing-  , _dcpsrsCopyProductStatus = Nothing-  , _dcpsrsStatusDetail = Nothing-  , _dcpsrsResponseStatus = pResponseStatus_-  }+    { _dcpsrsTargetProductId = Nothing+    , _dcpsrsCopyProductStatus = Nothing+    , _dcpsrsStatusDetail = Nothing+    , _dcpsrsResponseStatus = pResponseStatus_+    }  --- | The ID of the copied product.+-- | The identifier of the copied product. dcpsrsTargetProductId :: Lens' DescribeCopyProductStatusResponse (Maybe Text)-dcpsrsTargetProductId = lens _dcpsrsTargetProductId (\ s a -> s{_dcpsrsTargetProductId = a});+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});+dcpsrsCopyProductStatus = lens _dcpsrsCopyProductStatus (\ s a -> s{_dcpsrsCopyProductStatus = a})  -- | The status message. dcpsrsStatusDetail :: Lens' DescribeCopyProductStatusResponse (Maybe Text)-dcpsrsStatusDetail = lens _dcpsrsStatusDetail (\ s a -> s{_dcpsrsStatusDetail = a});+dcpsrsStatusDetail = lens _dcpsrsStatusDetail (\ s a -> s{_dcpsrsStatusDetail = a})  -- | -- | The response status code. dcpsrsResponseStatus :: Lens' DescribeCopyProductStatusResponse Int-dcpsrsResponseStatus = lens _dcpsrsResponseStatus (\ s a -> s{_dcpsrsResponseStatus = a});+dcpsrsResponseStatus = lens _dcpsrsResponseStatus (\ s a -> s{_dcpsrsResponseStatus = a})  instance NFData DescribeCopyProductStatusResponse          where

@@ -12,13 +12,13 @@  -- | -- Module      : Network.AWS.ServiceCatalog.DescribePortfolio--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Retrieves detailed information and any tags associated with the specified portfolio.+-- Gets information about the specified portfolio. -- -- module Network.AWS.ServiceCatalog.DescribePortfolio@@ -60,7 +60,7 @@ -- -- * 'desAcceptLanguage' - The language code.     * @en@ - English (default)     * @jp@ - Japanese     * @zh@ - Chinese ----- * 'desId' - The identifier of the portfolio for which to retrieve information.+-- * 'desId' - The portfolio identifier. describePortfolio     :: Text -- ^ 'desId'     -> DescribePortfolio@@ -70,11 +70,11 @@  -- | The language code.     * @en@ - English (default)     * @jp@ - Japanese     * @zh@ - Chinese desAcceptLanguage :: Lens' DescribePortfolio (Maybe Text)-desAcceptLanguage = lens _desAcceptLanguage (\ s a -> s{_desAcceptLanguage = a});+desAcceptLanguage = lens _desAcceptLanguage (\ s a -> s{_desAcceptLanguage = a}) --- | The identifier of the portfolio for which to retrieve information.+-- | The portfolio identifier. desId :: Lens' DescribePortfolio Text-desId = lens _desId (\ s a -> s{_desId = a});+desId = lens _desId (\ s a -> s{_desId = a})  instance AWSRequest DescribePortfolio where         type Rs DescribePortfolio = DescribePortfolioResponse@@ -128,11 +128,11 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'dprsPortfolioDetail' - Detailed portfolio information.+-- * 'dprsPortfolioDetail' - Information about the portfolio. ----- * 'dprsTagOptions' - TagOptions associated with the portfolio.+-- * 'dprsTagOptions' - Information about the TagOptions associated with the portfolio. ----- * 'dprsTags' - Tags associated with the portfolio.+-- * 'dprsTags' - Information about the tags associated with the portfolio. -- -- * 'dprsResponseStatus' - -- | The response status code. describePortfolioResponse@@ -140,27 +140,27 @@     -> DescribePortfolioResponse describePortfolioResponse pResponseStatus_ =   DescribePortfolioResponse'-  { _dprsPortfolioDetail = Nothing-  , _dprsTagOptions = Nothing-  , _dprsTags = Nothing-  , _dprsResponseStatus = pResponseStatus_-  }+    { _dprsPortfolioDetail = Nothing+    , _dprsTagOptions = Nothing+    , _dprsTags = Nothing+    , _dprsResponseStatus = pResponseStatus_+    }  --- | Detailed portfolio information.+-- | Information about the portfolio. dprsPortfolioDetail :: Lens' DescribePortfolioResponse (Maybe PortfolioDetail)-dprsPortfolioDetail = lens _dprsPortfolioDetail (\ s a -> s{_dprsPortfolioDetail = a});+dprsPortfolioDetail = lens _dprsPortfolioDetail (\ s a -> s{_dprsPortfolioDetail = a}) --- | TagOptions associated with the portfolio.+-- | Information about the TagOptions associated with the portfolio. dprsTagOptions :: Lens' DescribePortfolioResponse [TagOptionDetail]-dprsTagOptions = lens _dprsTagOptions (\ s a -> s{_dprsTagOptions = a}) . _Default . _Coerce;+dprsTagOptions = lens _dprsTagOptions (\ s a -> s{_dprsTagOptions = a}) . _Default . _Coerce --- | Tags associated with the portfolio.+-- | Information about the tags associated with the portfolio. dprsTags :: Lens' DescribePortfolioResponse [Tag]-dprsTags = lens _dprsTags (\ s a -> s{_dprsTags = a}) . _Default . _Coerce;+dprsTags = lens _dprsTags (\ s a -> s{_dprsTags = a}) . _Default . _Coerce  -- | -- | The response status code. dprsResponseStatus :: Lens' DescribePortfolioResponse Int-dprsResponseStatus = lens _dprsResponseStatus (\ s a -> s{_dprsResponseStatus = a});+dprsResponseStatus = lens _dprsResponseStatus (\ s a -> s{_dprsResponseStatus = a})  instance NFData DescribePortfolioResponse where

@@ -12,17 +12,15 @@  -- | -- Module      : Network.AWS.ServiceCatalog.DescribeProduct--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Retrieves information about a specified product.+-- Gets information about the specified product. -- ----- This operation is functionally identical to 'DescribeProductView' except that it takes as input @ProductId@ instead of @ProductViewId@ .--- module Network.AWS.ServiceCatalog.DescribeProduct     (     -- * Creating a Request@@ -61,7 +59,7 @@ -- -- * 'dpAcceptLanguage' - The language code.     * @en@ - English (default)     * @jp@ - Japanese     * @zh@ - Chinese ----- * 'dpId' - The @ProductId@ of the product to describe.+-- * 'dpId' - The product identifier. describeProduct     :: Text -- ^ 'dpId'     -> DescribeProduct@@ -71,11 +69,11 @@  -- | The language code.     * @en@ - English (default)     * @jp@ - Japanese     * @zh@ - Chinese dpAcceptLanguage :: Lens' DescribeProduct (Maybe Text)-dpAcceptLanguage = lens _dpAcceptLanguage (\ s a -> s{_dpAcceptLanguage = a});+dpAcceptLanguage = lens _dpAcceptLanguage (\ s a -> s{_dpAcceptLanguage = a}) --- | The @ProductId@ of the product to describe.+-- | The product identifier. dpId :: Lens' DescribeProduct Text-dpId = lens _dpId (\ s a -> s{_dpId = a});+dpId = lens _dpId (\ s a -> s{_dpId = a})  instance AWSRequest DescribeProduct where         type Rs DescribeProduct = DescribeProductResponse@@ -127,9 +125,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'ddrsProductViewSummary' - The summary metadata about the specified product.+-- * 'ddrsProductViewSummary' - Summary information about the product view. ----- * 'ddrsProvisioningArtifacts' - A list of provisioning artifact objects for the specified product. The @ProvisioningArtifacts@ parameter represent the ways the specified product can be provisioned.+-- * 'ddrsProvisioningArtifacts' - Information about the provisioning artifacts for the specified product. -- -- * 'ddrsResponseStatus' - -- | The response status code. describeProductResponse@@ -137,22 +135,22 @@     -> DescribeProductResponse describeProductResponse pResponseStatus_ =   DescribeProductResponse'-  { _ddrsProductViewSummary = Nothing-  , _ddrsProvisioningArtifacts = Nothing-  , _ddrsResponseStatus = pResponseStatus_-  }+    { _ddrsProductViewSummary = Nothing+    , _ddrsProvisioningArtifacts = Nothing+    , _ddrsResponseStatus = pResponseStatus_+    }  --- | The summary metadata about the specified product.+-- | Summary information about the product view. ddrsProductViewSummary :: Lens' DescribeProductResponse (Maybe ProductViewSummary)-ddrsProductViewSummary = lens _ddrsProductViewSummary (\ s a -> s{_ddrsProductViewSummary = a});+ddrsProductViewSummary = lens _ddrsProductViewSummary (\ s a -> s{_ddrsProductViewSummary = a}) --- | A list of provisioning artifact objects for the specified product. The @ProvisioningArtifacts@ parameter represent the ways the specified product can be provisioned.+-- | Information about the provisioning artifacts for the specified product. ddrsProvisioningArtifacts :: Lens' DescribeProductResponse [ProvisioningArtifact]-ddrsProvisioningArtifacts = lens _ddrsProvisioningArtifacts (\ s a -> s{_ddrsProvisioningArtifacts = a}) . _Default . _Coerce;+ddrsProvisioningArtifacts = lens _ddrsProvisioningArtifacts (\ s a -> s{_ddrsProvisioningArtifacts = a}) . _Default . _Coerce  -- | -- | The response status code. ddrsResponseStatus :: Lens' DescribeProductResponse Int-ddrsResponseStatus = lens _ddrsResponseStatus (\ s a -> s{_ddrsResponseStatus = a});+ddrsResponseStatus = lens _ddrsResponseStatus (\ s a -> s{_ddrsResponseStatus = a})  instance NFData DescribeProductResponse where

@@ -12,13 +12,13 @@  -- | -- Module      : Network.AWS.ServiceCatalog.DescribeProductAsAdmin--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Retrieves information about a specified product, run with administrator access.+-- Gets information about the specified product. This operation is run with administrator access. -- -- module Network.AWS.ServiceCatalog.DescribeProductAsAdmin@@ -61,7 +61,7 @@ -- -- * 'dpaaAcceptLanguage' - The language code.     * @en@ - English (default)     * @jp@ - Japanese     * @zh@ - Chinese ----- * 'dpaaId' - The identifier of the product for which to retrieve information.+-- * 'dpaaId' - The product identifier. describeProductAsAdmin     :: Text -- ^ 'dpaaId'     -> DescribeProductAsAdmin@@ -71,11 +71,11 @@  -- | The language code.     * @en@ - English (default)     * @jp@ - Japanese     * @zh@ - Chinese dpaaAcceptLanguage :: Lens' DescribeProductAsAdmin (Maybe Text)-dpaaAcceptLanguage = lens _dpaaAcceptLanguage (\ s a -> s{_dpaaAcceptLanguage = a});+dpaaAcceptLanguage = lens _dpaaAcceptLanguage (\ s a -> s{_dpaaAcceptLanguage = a}) --- | The identifier of the product for which to retrieve information.+-- | The product identifier. dpaaId :: Lens' DescribeProductAsAdmin Text-dpaaId = lens _dpaaId (\ s a -> s{_dpaaId = a});+dpaaId = lens _dpaaId (\ s a -> s{_dpaaId = a})  instance AWSRequest DescribeProductAsAdmin where         type Rs DescribeProductAsAdmin =@@ -133,13 +133,13 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'dpaarsProductViewDetail' - Detailed product view information.+-- * 'dpaarsProductViewDetail' - Information about the product view. ----- * 'dpaarsTagOptions' - List of TagOptions associated with the product.+-- * 'dpaarsTagOptions' - Information about the TagOptions associated with the product. ----- * 'dpaarsProvisioningArtifactSummaries' - A list of provisioning artifact summaries for the product.+-- * 'dpaarsProvisioningArtifactSummaries' - Information about the provisioning artifacts (also known as versions) for the specified product. ----- * 'dpaarsTags' - Tags associated with the product.+-- * 'dpaarsTags' - Information about the tags associated with the product. -- -- * 'dpaarsResponseStatus' - -- | The response status code. describeProductAsAdminResponse@@ -147,32 +147,32 @@     -> DescribeProductAsAdminResponse describeProductAsAdminResponse pResponseStatus_ =   DescribeProductAsAdminResponse'-  { _dpaarsProductViewDetail = Nothing-  , _dpaarsTagOptions = Nothing-  , _dpaarsProvisioningArtifactSummaries = Nothing-  , _dpaarsTags = Nothing-  , _dpaarsResponseStatus = pResponseStatus_-  }+    { _dpaarsProductViewDetail = Nothing+    , _dpaarsTagOptions = Nothing+    , _dpaarsProvisioningArtifactSummaries = Nothing+    , _dpaarsTags = Nothing+    , _dpaarsResponseStatus = pResponseStatus_+    }  --- | Detailed product view information.+-- | Information about the product view. dpaarsProductViewDetail :: Lens' DescribeProductAsAdminResponse (Maybe ProductViewDetail)-dpaarsProductViewDetail = lens _dpaarsProductViewDetail (\ s a -> s{_dpaarsProductViewDetail = a});+dpaarsProductViewDetail = lens _dpaarsProductViewDetail (\ s a -> s{_dpaarsProductViewDetail = a}) --- | List of TagOptions associated with the product.+-- | Information about the TagOptions associated with the product. dpaarsTagOptions :: Lens' DescribeProductAsAdminResponse [TagOptionDetail]-dpaarsTagOptions = lens _dpaarsTagOptions (\ s a -> s{_dpaarsTagOptions = a}) . _Default . _Coerce;+dpaarsTagOptions = lens _dpaarsTagOptions (\ s a -> s{_dpaarsTagOptions = a}) . _Default . _Coerce --- | A list of provisioning artifact summaries for the product.+-- | Information about the provisioning artifacts (also known as versions) for the specified product. dpaarsProvisioningArtifactSummaries :: Lens' DescribeProductAsAdminResponse [ProvisioningArtifactSummary]-dpaarsProvisioningArtifactSummaries = lens _dpaarsProvisioningArtifactSummaries (\ s a -> s{_dpaarsProvisioningArtifactSummaries = a}) . _Default . _Coerce;+dpaarsProvisioningArtifactSummaries = lens _dpaarsProvisioningArtifactSummaries (\ s a -> s{_dpaarsProvisioningArtifactSummaries = a}) . _Default . _Coerce --- | Tags associated with the product.+-- | Information about the tags associated with the product. dpaarsTags :: Lens' DescribeProductAsAdminResponse [Tag]-dpaarsTags = lens _dpaarsTags (\ s a -> s{_dpaarsTags = a}) . _Default . _Coerce;+dpaarsTags = lens _dpaarsTags (\ s a -> s{_dpaarsTags = a}) . _Default . _Coerce  -- | -- | The response status code. dpaarsResponseStatus :: Lens' DescribeProductAsAdminResponse Int-dpaarsResponseStatus = lens _dpaarsResponseStatus (\ s a -> s{_dpaarsResponseStatus = a});+dpaarsResponseStatus = lens _dpaarsResponseStatus (\ s a -> s{_dpaarsResponseStatus = a})  instance NFData DescribeProductAsAdminResponse where

@@ -12,17 +12,15 @@  -- | -- Module      : Network.AWS.ServiceCatalog.DescribeProductView--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Retrieves information about a specified product.+-- Gets information about the specified product. -- ----- This operation is functionally identical to 'DescribeProduct' except that it takes as input @ProductViewId@ instead of @ProductId@ .--- module Network.AWS.ServiceCatalog.DescribeProductView     (     -- * Creating a Request@@ -61,7 +59,7 @@ -- -- * 'dpvAcceptLanguage' - The language code.     * @en@ - English (default)     * @jp@ - Japanese     * @zh@ - Chinese ----- * 'dpvId' - The @ProductViewId@ of the product to describe.+-- * 'dpvId' - The product view identifier. describeProductView     :: Text -- ^ 'dpvId'     -> DescribeProductView@@ -71,11 +69,11 @@  -- | The language code.     * @en@ - English (default)     * @jp@ - Japanese     * @zh@ - Chinese dpvAcceptLanguage :: Lens' DescribeProductView (Maybe Text)-dpvAcceptLanguage = lens _dpvAcceptLanguage (\ s a -> s{_dpvAcceptLanguage = a});+dpvAcceptLanguage = lens _dpvAcceptLanguage (\ s a -> s{_dpvAcceptLanguage = a}) --- | The @ProductViewId@ of the product to describe.+-- | The product view identifier. dpvId :: Lens' DescribeProductView Text-dpvId = lens _dpvId (\ s a -> s{_dpvId = a});+dpvId = lens _dpvId (\ s a -> s{_dpvId = a})  instance AWSRequest DescribeProductView where         type Rs DescribeProductView =@@ -128,9 +126,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'dpvrsProductViewSummary' - The summary metadata about the specified product.+-- * 'dpvrsProductViewSummary' - Summary information about the product. ----- * 'dpvrsProvisioningArtifacts' - A list of provisioning artifact objects for the specified product. The @ProvisioningArtifacts@ represent the ways in which the specified product can be provisioned.+-- * 'dpvrsProvisioningArtifacts' - Information about the provisioning artifacts for the product. -- -- * 'dpvrsResponseStatus' - -- | The response status code. describeProductViewResponse@@ -138,22 +136,22 @@     -> DescribeProductViewResponse describeProductViewResponse pResponseStatus_ =   DescribeProductViewResponse'-  { _dpvrsProductViewSummary = Nothing-  , _dpvrsProvisioningArtifacts = Nothing-  , _dpvrsResponseStatus = pResponseStatus_-  }+    { _dpvrsProductViewSummary = Nothing+    , _dpvrsProvisioningArtifacts = Nothing+    , _dpvrsResponseStatus = pResponseStatus_+    }  --- | The summary metadata about the specified product.+-- | Summary information about the product. dpvrsProductViewSummary :: Lens' DescribeProductViewResponse (Maybe ProductViewSummary)-dpvrsProductViewSummary = lens _dpvrsProductViewSummary (\ s a -> s{_dpvrsProductViewSummary = a});+dpvrsProductViewSummary = lens _dpvrsProductViewSummary (\ s a -> s{_dpvrsProductViewSummary = a}) --- | A list of provisioning artifact objects for the specified product. The @ProvisioningArtifacts@ represent the ways in which the specified product can be provisioned.+-- | Information about the provisioning artifacts for the product. dpvrsProvisioningArtifacts :: Lens' DescribeProductViewResponse [ProvisioningArtifact]-dpvrsProvisioningArtifacts = lens _dpvrsProvisioningArtifacts (\ s a -> s{_dpvrsProvisioningArtifacts = a}) . _Default . _Coerce;+dpvrsProvisioningArtifacts = lens _dpvrsProvisioningArtifacts (\ s a -> s{_dpvrsProvisioningArtifacts = a}) . _Default . _Coerce  -- | -- | The response status code. dpvrsResponseStatus :: Lens' DescribeProductViewResponse Int-dpvrsResponseStatus = lens _dpvrsResponseStatus (\ s a -> s{_dpvrsResponseStatus = a});+dpvrsResponseStatus = lens _dpvrsResponseStatus (\ s a -> s{_dpvrsResponseStatus = a})  instance NFData DescribeProductViewResponse where

@@ -12,13 +12,13 @@  -- | -- Module      : Network.AWS.ServiceCatalog.DescribeProvisionedProduct--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Retrieve detailed information about the provisioned product.+-- Gets information about the specified provisioned product. -- -- module Network.AWS.ServiceCatalog.DescribeProvisionedProduct@@ -27,14 +27,15 @@       describeProvisionedProduct     , DescribeProvisionedProduct     -- * Request Lenses-    , dpppAcceptLanguage-    , dpppId+    , deseAcceptLanguage+    , deseId      -- * Destructuring the Response     , describeProvisionedProductResponse     , DescribeProvisionedProductResponse     -- * Response Lenses     , drsProvisionedProductDetail+    , drsCloudWatchDashboards     , drsResponseStatus     ) where @@ -47,8 +48,8 @@  -- | /See:/ 'describeProvisionedProduct' smart constructor. data DescribeProvisionedProduct = DescribeProvisionedProduct'-  { _dpppAcceptLanguage :: !(Maybe Text)-  , _dpppId             :: !Text+  { _deseAcceptLanguage :: !(Maybe Text)+  , _deseId             :: !Text   } deriving (Eq, Read, Show, Data, Typeable, Generic)  @@ -56,23 +57,23 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'dpppAcceptLanguage' - The language code.     * @en@ - English (default)     * @jp@ - Japanese     * @zh@ - Chinese+-- * 'deseAcceptLanguage' - The language code.     * @en@ - English (default)     * @jp@ - Japanese     * @zh@ - Chinese ----- * 'dpppId' - The provisioned product identifier.+-- * 'deseId' - The provisioned product identifier. describeProvisionedProduct-    :: Text -- ^ 'dpppId'+    :: Text -- ^ 'deseId'     -> DescribeProvisionedProduct describeProvisionedProduct pId_ =-  DescribeProvisionedProduct' {_dpppAcceptLanguage = Nothing, _dpppId = pId_}+  DescribeProvisionedProduct' {_deseAcceptLanguage = Nothing, _deseId = pId_}   -- | The language code.     * @en@ - English (default)     * @jp@ - Japanese     * @zh@ - Chinese-dpppAcceptLanguage :: Lens' DescribeProvisionedProduct (Maybe Text)-dpppAcceptLanguage = lens _dpppAcceptLanguage (\ s a -> s{_dpppAcceptLanguage = a});+deseAcceptLanguage :: Lens' DescribeProvisionedProduct (Maybe Text)+deseAcceptLanguage = lens _deseAcceptLanguage (\ s a -> s{_deseAcceptLanguage = a})  -- | The provisioned product identifier.-dpppId :: Lens' DescribeProvisionedProduct Text-dpppId = lens _dpppId (\ s a -> s{_dpppId = a});+deseId :: Lens' DescribeProvisionedProduct Text+deseId = lens _deseId (\ s a -> s{_deseId = a})  instance AWSRequest DescribeProvisionedProduct where         type Rs DescribeProvisionedProduct =@@ -83,7 +84,8 @@               (\ s h x ->                  DescribeProvisionedProductResponse' <$>                    (x .?> "ProvisionedProductDetail") <*>-                     (pure (fromEnum s)))+                     (x .?> "CloudWatchDashboards" .!@ mempty)+                     <*> (pure (fromEnum s)))  instance Hashable DescribeProvisionedProduct where @@ -103,8 +105,8 @@         toJSON DescribeProvisionedProduct'{..}           = object               (catMaybes-                 [("AcceptLanguage" .=) <$> _dpppAcceptLanguage,-                  Just ("Id" .= _dpppId)])+                 [("AcceptLanguage" .=) <$> _deseAcceptLanguage,+                  Just ("Id" .= _deseId)])  instance ToPath DescribeProvisionedProduct where         toPath = const "/"@@ -115,6 +117,7 @@ -- | /See:/ 'describeProvisionedProductResponse' smart constructor. data DescribeProvisionedProductResponse = DescribeProvisionedProductResponse'   { _drsProvisionedProductDetail :: !(Maybe ProvisionedProductDetail)+  , _drsCloudWatchDashboards     :: !(Maybe [CloudWatchDashboard])   , _drsResponseStatus           :: !Int   } deriving (Eq, Read, Show, Data, Typeable, Generic) @@ -123,26 +126,33 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'drsProvisionedProductDetail' - Detailed provisioned product information.+-- * 'drsProvisionedProductDetail' - Information about the provisioned product. --+-- * 'drsCloudWatchDashboards' - Any CloudWatch dashboards that were created when provisioning the product.+-- -- * 'drsResponseStatus' - -- | The response status code. describeProvisionedProductResponse     :: Int -- ^ 'drsResponseStatus'     -> DescribeProvisionedProductResponse describeProvisionedProductResponse pResponseStatus_ =   DescribeProvisionedProductResponse'-  { _drsProvisionedProductDetail = Nothing-  , _drsResponseStatus = pResponseStatus_-  }+    { _drsProvisionedProductDetail = Nothing+    , _drsCloudWatchDashboards = Nothing+    , _drsResponseStatus = pResponseStatus_+    }  --- | Detailed provisioned product information.+-- | Information about the provisioned product. drsProvisionedProductDetail :: Lens' DescribeProvisionedProductResponse (Maybe ProvisionedProductDetail)-drsProvisionedProductDetail = lens _drsProvisionedProductDetail (\ s a -> s{_drsProvisionedProductDetail = a});+drsProvisionedProductDetail = lens _drsProvisionedProductDetail (\ s a -> s{_drsProvisionedProductDetail = a}) +-- | Any CloudWatch dashboards that were created when provisioning the product.+drsCloudWatchDashboards :: Lens' DescribeProvisionedProductResponse [CloudWatchDashboard]+drsCloudWatchDashboards = lens _drsCloudWatchDashboards (\ s a -> s{_drsCloudWatchDashboards = a}) . _Default . _Coerce+ -- | -- | The response status code. drsResponseStatus :: Lens' DescribeProvisionedProductResponse Int-drsResponseStatus = lens _drsResponseStatus (\ s a -> s{_drsResponseStatus = a});+drsResponseStatus = lens _drsResponseStatus (\ s a -> s{_drsResponseStatus = a})  instance NFData DescribeProvisionedProductResponse          where

@@ -0,0 +1,195 @@+{-# 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.DescribeProvisionedProductPlan+-- Copyright   : (c) 2013-2018 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Gets information about the resource changes for the specified plan.+--+--+module Network.AWS.ServiceCatalog.DescribeProvisionedProductPlan+    (+    -- * Creating a Request+      describeProvisionedProductPlan+    , DescribeProvisionedProductPlan+    -- * Request Lenses+    , dpppAcceptLanguage+    , dpppPageToken+    , dpppPageSize+    , dpppPlanId++    -- * Destructuring the Response+    , describeProvisionedProductPlanResponse+    , DescribeProvisionedProductPlanResponse+    -- * Response Lenses+    , dpppprsNextPageToken+    , dpppprsProvisionedProductPlanDetails+    , dpppprsResourceChanges+    , dpppprsResponseStatus+    ) 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:/ 'describeProvisionedProductPlan' smart constructor.+data DescribeProvisionedProductPlan = DescribeProvisionedProductPlan'+  { _dpppAcceptLanguage :: !(Maybe Text)+  , _dpppPageToken      :: !(Maybe Text)+  , _dpppPageSize       :: !(Maybe Nat)+  , _dpppPlanId         :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'DescribeProvisionedProductPlan' 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+--+-- * 'dpppPageToken' - The page token for the next set of results. To retrieve the first set of results, use null.+--+-- * 'dpppPageSize' - The maximum number of items to return with this call.+--+-- * 'dpppPlanId' - The plan identifier.+describeProvisionedProductPlan+    :: Text -- ^ 'dpppPlanId'+    -> DescribeProvisionedProductPlan+describeProvisionedProductPlan pPlanId_ =+  DescribeProvisionedProductPlan'+    { _dpppAcceptLanguage = Nothing+    , _dpppPageToken = Nothing+    , _dpppPageSize = Nothing+    , _dpppPlanId = pPlanId_+    }+++-- | The language code.     * @en@ - English (default)     * @jp@ - Japanese     * @zh@ - Chinese+dpppAcceptLanguage :: Lens' DescribeProvisionedProductPlan (Maybe Text)+dpppAcceptLanguage = lens _dpppAcceptLanguage (\ s a -> s{_dpppAcceptLanguage = a})++-- | The page token for the next set of results. To retrieve the first set of results, use null.+dpppPageToken :: Lens' DescribeProvisionedProductPlan (Maybe Text)+dpppPageToken = lens _dpppPageToken (\ s a -> s{_dpppPageToken = a})++-- | The maximum number of items to return with this call.+dpppPageSize :: Lens' DescribeProvisionedProductPlan (Maybe Natural)+dpppPageSize = lens _dpppPageSize (\ s a -> s{_dpppPageSize = a}) . mapping _Nat++-- | The plan identifier.+dpppPlanId :: Lens' DescribeProvisionedProductPlan Text+dpppPlanId = lens _dpppPlanId (\ s a -> s{_dpppPlanId = a})++instance AWSRequest DescribeProvisionedProductPlan+         where+        type Rs DescribeProvisionedProductPlan =+             DescribeProvisionedProductPlanResponse+        request = postJSON serviceCatalog+        response+          = receiveJSON+              (\ s h x ->+                 DescribeProvisionedProductPlanResponse' <$>+                   (x .?> "NextPageToken") <*>+                     (x .?> "ProvisionedProductPlanDetails")+                     <*> (x .?> "ResourceChanges" .!@ mempty)+                     <*> (pure (fromEnum s)))++instance Hashable DescribeProvisionedProductPlan+         where++instance NFData DescribeProvisionedProductPlan where++instance ToHeaders DescribeProvisionedProductPlan+         where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("AWS242ServiceCatalogService.DescribeProvisionedProductPlan"+                       :: ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON DescribeProvisionedProductPlan where+        toJSON DescribeProvisionedProductPlan'{..}+          = object+              (catMaybes+                 [("AcceptLanguage" .=) <$> _dpppAcceptLanguage,+                  ("PageToken" .=) <$> _dpppPageToken,+                  ("PageSize" .=) <$> _dpppPageSize,+                  Just ("PlanId" .= _dpppPlanId)])++instance ToPath DescribeProvisionedProductPlan where+        toPath = const "/"++instance ToQuery DescribeProvisionedProductPlan where+        toQuery = const mempty++-- | /See:/ 'describeProvisionedProductPlanResponse' smart constructor.+data DescribeProvisionedProductPlanResponse = DescribeProvisionedProductPlanResponse'+  { _dpppprsNextPageToken :: !(Maybe Text)+  , _dpppprsProvisionedProductPlanDetails :: !(Maybe ProvisionedProductPlanDetails)+  , _dpppprsResourceChanges :: !(Maybe [ResourceChange])+  , _dpppprsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'DescribeProvisionedProductPlanResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dpppprsNextPageToken' - The page token to use to retrieve the next set of results. If there are no additional results, this value is null.+--+-- * 'dpppprsProvisionedProductPlanDetails' - Information about the plan.+--+-- * 'dpppprsResourceChanges' - Information about the resource changes that will occur when the plan is executed.+--+-- * 'dpppprsResponseStatus' - -- | The response status code.+describeProvisionedProductPlanResponse+    :: Int -- ^ 'dpppprsResponseStatus'+    -> DescribeProvisionedProductPlanResponse+describeProvisionedProductPlanResponse pResponseStatus_ =+  DescribeProvisionedProductPlanResponse'+    { _dpppprsNextPageToken = Nothing+    , _dpppprsProvisionedProductPlanDetails = Nothing+    , _dpppprsResourceChanges = Nothing+    , _dpppprsResponseStatus = pResponseStatus_+    }+++-- | The page token to use to retrieve the next set of results. If there are no additional results, this value is null.+dpppprsNextPageToken :: Lens' DescribeProvisionedProductPlanResponse (Maybe Text)+dpppprsNextPageToken = lens _dpppprsNextPageToken (\ s a -> s{_dpppprsNextPageToken = a})++-- | Information about the plan.+dpppprsProvisionedProductPlanDetails :: Lens' DescribeProvisionedProductPlanResponse (Maybe ProvisionedProductPlanDetails)+dpppprsProvisionedProductPlanDetails = lens _dpppprsProvisionedProductPlanDetails (\ s a -> s{_dpppprsProvisionedProductPlanDetails = a})++-- | Information about the resource changes that will occur when the plan is executed.+dpppprsResourceChanges :: Lens' DescribeProvisionedProductPlanResponse [ResourceChange]+dpppprsResourceChanges = lens _dpppprsResourceChanges (\ s a -> s{_dpppprsResourceChanges = a}) . _Default . _Coerce++-- | -- | The response status code.+dpppprsResponseStatus :: Lens' DescribeProvisionedProductPlanResponse Int+dpppprsResponseStatus = lens _dpppprsResponseStatus (\ s a -> s{_dpppprsResponseStatus = a})++instance NFData+           DescribeProvisionedProductPlanResponse+         where

@@ -12,13 +12,13 @@  -- | -- Module      : Network.AWS.ServiceCatalog.DescribeProvisioningArtifact--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Retrieves detailed information about the specified provisioning artifact.+-- Gets information about the specified provisioning artifact (also known as a version) for the specified product. -- -- module Network.AWS.ServiceCatalog.DescribeProvisioningArtifact@@ -62,11 +62,11 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'dpaVerbose' - Enable a verbose level of details for the provisioning artifact.+-- * 'dpaVerbose' - Indicates whether a verbose level of detail is enabled. -- -- * '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.+-- * 'dpaProvisioningArtifactId' - The identifier of the provisioning artifact. -- -- * 'dpaProductId' - The product identifier. describeProvisioningArtifact@@ -75,28 +75,28 @@     -> DescribeProvisioningArtifact describeProvisioningArtifact pProvisioningArtifactId_ pProductId_ =   DescribeProvisioningArtifact'-  { _dpaVerbose = Nothing-  , _dpaAcceptLanguage = Nothing-  , _dpaProvisioningArtifactId = pProvisioningArtifactId_-  , _dpaProductId = pProductId_-  }+    { _dpaVerbose = Nothing+    , _dpaAcceptLanguage = Nothing+    , _dpaProvisioningArtifactId = pProvisioningArtifactId_+    , _dpaProductId = pProductId_+    }  --- | Enable a verbose level of details for the provisioning artifact.+-- | Indicates whether a verbose level of detail is enabled. dpaVerbose :: Lens' DescribeProvisioningArtifact (Maybe Bool)-dpaVerbose = lens _dpaVerbose (\ s a -> s{_dpaVerbose = a});+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});+dpaAcceptLanguage = lens _dpaAcceptLanguage (\ s a -> s{_dpaAcceptLanguage = a}) --- | The identifier of the provisioning artifact. This is sometimes referred to as the product version.+-- | The identifier of the provisioning artifact. dpaProvisioningArtifactId :: Lens' DescribeProvisioningArtifact Text-dpaProvisioningArtifactId = lens _dpaProvisioningArtifactId (\ s a -> s{_dpaProvisioningArtifactId = a});+dpaProvisioningArtifactId = lens _dpaProvisioningArtifactId (\ s a -> s{_dpaProvisioningArtifactId = a})  -- | The product identifier. dpaProductId :: Lens' DescribeProvisioningArtifact Text-dpaProductId = lens _dpaProductId (\ s a -> s{_dpaProductId = a});+dpaProductId = lens _dpaProductId (\ s a -> s{_dpaProductId = a})  instance AWSRequest DescribeProvisioningArtifact          where@@ -157,9 +157,9 @@ -- -- * 'dpaprsStatus' - The status of the current request. ----- * 'dpaprsInfo' - Additional information about the provisioning artifact.+-- * 'dpaprsInfo' - The URL of the CloudFormation template in Amazon S3. ----- * 'dpaprsProvisioningArtifactDetail' - Detailed provisioning artifact information.+-- * 'dpaprsProvisioningArtifactDetail' - Information about the provisioning artifact. -- -- * 'dpaprsResponseStatus' - -- | The response status code. describeProvisioningArtifactResponse@@ -167,28 +167,28 @@     -> DescribeProvisioningArtifactResponse describeProvisioningArtifactResponse pResponseStatus_ =   DescribeProvisioningArtifactResponse'-  { _dpaprsStatus = Nothing-  , _dpaprsInfo = Nothing-  , _dpaprsProvisioningArtifactDetail = Nothing-  , _dpaprsResponseStatus = pResponseStatus_-  }+    { _dpaprsStatus = Nothing+    , _dpaprsInfo = Nothing+    , _dpaprsProvisioningArtifactDetail = Nothing+    , _dpaprsResponseStatus = pResponseStatus_+    }   -- | The status of the current request. dpaprsStatus :: Lens' DescribeProvisioningArtifactResponse (Maybe RequestStatus)-dpaprsStatus = lens _dpaprsStatus (\ s a -> s{_dpaprsStatus = a});+dpaprsStatus = lens _dpaprsStatus (\ s a -> s{_dpaprsStatus = a}) --- | Additional information about the provisioning artifact.+-- | The URL of the CloudFormation template in Amazon S3. dpaprsInfo :: Lens' DescribeProvisioningArtifactResponse (HashMap Text Text)-dpaprsInfo = lens _dpaprsInfo (\ s a -> s{_dpaprsInfo = a}) . _Default . _Map;+dpaprsInfo = lens _dpaprsInfo (\ s a -> s{_dpaprsInfo = a}) . _Default . _Map --- | Detailed provisioning artifact information.+-- | Information about the provisioning artifact. dpaprsProvisioningArtifactDetail :: Lens' DescribeProvisioningArtifactResponse (Maybe ProvisioningArtifactDetail)-dpaprsProvisioningArtifactDetail = lens _dpaprsProvisioningArtifactDetail (\ s a -> s{_dpaprsProvisioningArtifactDetail = a});+dpaprsProvisioningArtifactDetail = lens _dpaprsProvisioningArtifactDetail (\ s a -> s{_dpaprsProvisioningArtifactDetail = a})  -- | -- | The response status code. dpaprsResponseStatus :: Lens' DescribeProvisioningArtifactResponse Int-dpaprsResponseStatus = lens _dpaprsResponseStatus (\ s a -> s{_dpaprsResponseStatus = a});+dpaprsResponseStatus = lens _dpaprsResponseStatus (\ s a -> s{_dpaprsResponseStatus = a})  instance NFData DescribeProvisioningArtifactResponse          where

@@ -12,16 +12,16 @@  -- | -- Module      : Network.AWS.ServiceCatalog.DescribeProvisioningParameters--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- 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.+-- Gets information about the configuration required to provision the specified product using the specified provisioning artifact. -- ----- 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@ ".+-- 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 'ProvisionProduct' , do not include conflicted TagOption keys as tags, or this causes the error "Parameter validation failed: Missing required parameter in Tags[/N/ ]:/Value/ ". Tag the provisioned product with the value @sc-tagoption-conflict-portfolioId-productId@ . -- module Network.AWS.ServiceCatalog.DescribeProvisioningParameters     (@@ -67,39 +67,39 @@ -- -- * '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.+-- * 'dppsPathId' - The path identifier of the product. This value is optional if the product has a default path, and required if the product has more than one path. To list the paths for a product, use 'ListLaunchPaths' . -- -- * 'dppsProductId' - The product identifier. ----- * 'dppsProvisioningArtifactId' - The provisioning artifact identifier for this product. This is sometimes referred to as the product version.+-- * 'dppsProvisioningArtifactId' - The identifier of the provisioning artifact. describeProvisioningParameters     :: Text -- ^ 'dppsProductId'     -> Text -- ^ 'dppsProvisioningArtifactId'     -> DescribeProvisioningParameters describeProvisioningParameters pProductId_ pProvisioningArtifactId_ =   DescribeProvisioningParameters'-  { _dppsAcceptLanguage = Nothing-  , _dppsPathId = Nothing-  , _dppsProductId = pProductId_-  , _dppsProvisioningArtifactId = pProvisioningArtifactId_-  }+    { _dppsAcceptLanguage = Nothing+    , _dppsPathId = Nothing+    , _dppsProductId = pProductId_+    , _dppsProvisioningArtifactId = pProvisioningArtifactId_+    }   -- | The language code.     * @en@ - English (default)     * @jp@ - Japanese     * @zh@ - Chinese dppsAcceptLanguage :: Lens' DescribeProvisioningParameters (Maybe Text)-dppsAcceptLanguage = lens _dppsAcceptLanguage (\ s a -> s{_dppsAcceptLanguage = a});+dppsAcceptLanguage = lens _dppsAcceptLanguage (\ s a -> s{_dppsAcceptLanguage = a}) --- | 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.+-- | The path identifier of the product. This value is optional if the product has a default path, and required if the product has more than one path. To list the paths for a product, use 'ListLaunchPaths' . dppsPathId :: Lens' DescribeProvisioningParameters (Maybe Text)-dppsPathId = lens _dppsPathId (\ s a -> s{_dppsPathId = a});+dppsPathId = lens _dppsPathId (\ s a -> s{_dppsPathId = a})  -- | The product identifier. dppsProductId :: Lens' DescribeProvisioningParameters Text-dppsProductId = lens _dppsProductId (\ s a -> s{_dppsProductId = a});+dppsProductId = lens _dppsProductId (\ s a -> s{_dppsProductId = a}) --- | The provisioning artifact identifier for this product. This is sometimes referred to as the product version.+-- | The identifier of the provisioning artifact. dppsProvisioningArtifactId :: Lens' DescribeProvisioningParameters Text-dppsProvisioningArtifactId = lens _dppsProvisioningArtifactId (\ s a -> s{_dppsProvisioningArtifactId = a});+dppsProvisioningArtifactId = lens _dppsProvisioningArtifactId (\ s a -> s{_dppsProvisioningArtifactId = a})  instance AWSRequest DescribeProvisioningParameters          where@@ -163,13 +163,13 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'dpprsProvisioningArtifactParameters' - 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' - Information about the parameters used to provision the product. -- -- * 'dpprsUsageInstructions' - Any additional metadata specifically related to the provisioning of the product. For example, see the @Version@ field of the CloudFormation template. ----- * 'dpprsConstraintSummaries' - The list of constraint summaries that apply to provisioning this product.+-- * 'dpprsConstraintSummaries' - Information about the constraints used to provision the product. ----- * 'dpprsTagOptions' - List of TagOptions associated with the provisioned provisioning parameters.+-- * 'dpprsTagOptions' - Information about the TagOptions associated with the resource. -- -- * 'dpprsResponseStatus' - -- | The response status code. describeProvisioningParametersResponse@@ -177,33 +177,33 @@     -> DescribeProvisioningParametersResponse describeProvisioningParametersResponse pResponseStatus_ =   DescribeProvisioningParametersResponse'-  { _dpprsProvisioningArtifactParameters = Nothing-  , _dpprsUsageInstructions = Nothing-  , _dpprsConstraintSummaries = Nothing-  , _dpprsTagOptions = Nothing-  , _dpprsResponseStatus = pResponseStatus_-  }+    { _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.+-- | Information about the parameters used to provision the product. dpprsProvisioningArtifactParameters :: Lens' DescribeProvisioningParametersResponse [ProvisioningArtifactParameter]-dpprsProvisioningArtifactParameters = lens _dpprsProvisioningArtifactParameters (\ s a -> s{_dpprsProvisioningArtifactParameters = a}) . _Default . _Coerce;+dpprsProvisioningArtifactParameters = lens _dpprsProvisioningArtifactParameters (\ s a -> s{_dpprsProvisioningArtifactParameters = a}) . _Default . _Coerce  -- | Any additional metadata specifically related to the provisioning of the product. For example, see the @Version@ field of the CloudFormation template. dpprsUsageInstructions :: Lens' DescribeProvisioningParametersResponse [UsageInstruction]-dpprsUsageInstructions = lens _dpprsUsageInstructions (\ s a -> s{_dpprsUsageInstructions = a}) . _Default . _Coerce;+dpprsUsageInstructions = lens _dpprsUsageInstructions (\ s a -> s{_dpprsUsageInstructions = a}) . _Default . _Coerce --- | The list of constraint summaries that apply to provisioning this product.+-- | Information about the constraints used to provision the product. dpprsConstraintSummaries :: Lens' DescribeProvisioningParametersResponse [ConstraintSummary]-dpprsConstraintSummaries = lens _dpprsConstraintSummaries (\ s a -> s{_dpprsConstraintSummaries = a}) . _Default . _Coerce;+dpprsConstraintSummaries = lens _dpprsConstraintSummaries (\ s a -> s{_dpprsConstraintSummaries = a}) . _Default . _Coerce --- | List of TagOptions associated with the provisioned provisioning parameters.+-- | Information about the TagOptions associated with the resource. dpprsTagOptions :: Lens' DescribeProvisioningParametersResponse [TagOptionSummary]-dpprsTagOptions = lens _dpprsTagOptions (\ s a -> s{_dpprsTagOptions = a}) . _Default . _Coerce;+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});+dpprsResponseStatus = lens _dpprsResponseStatus (\ s a -> s{_dpprsResponseStatus = a})  instance NFData            DescribeProvisioningParametersResponse

@@ -12,15 +12,17 @@  -- | -- Module      : Network.AWS.ServiceCatalog.DescribeRecord--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Retrieves a paginated list of the full details of a specific request. Use this operation after calling a request operation ('ProvisionProduct' , 'TerminateProvisionedProduct' , or 'UpdateProvisionedProduct' ).+-- Gets information about the specified request operation. -- --+-- Use this operation after calling a request operation (for example, 'ProvisionProduct' , 'TerminateProvisionedProduct' , or 'UpdateProvisionedProduct' ).+-- module Network.AWS.ServiceCatalog.DescribeRecord     (     -- * Creating a Request@@ -64,38 +66,38 @@ -- -- * '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@ .+-- * 'drPageToken' - The page token for the next set of results. To retrieve the first set of results, use null. ----- * 'drPageSize' - 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.+-- * 'drPageSize' - The maximum number of items to return with this call. ----- * 'drId' - The record identifier of the ProvisionedProduct object for which to retrieve output information. This is the @RecordDetail.RecordId@ obtained from the request operation's response.+-- * 'drId' - The record identifier of the provisioned product. This identifier is returned by the request operation. describeRecord     :: Text -- ^ 'drId'     -> DescribeRecord describeRecord pId_ =   DescribeRecord'-  { _drAcceptLanguage = Nothing-  , _drPageToken = Nothing-  , _drPageSize = Nothing-  , _drId = pId_-  }+    { _drAcceptLanguage = Nothing+    , _drPageToken = Nothing+    , _drPageSize = Nothing+    , _drId = pId_+    }   -- | The language code.     * @en@ - English (default)     * @jp@ - Japanese     * @zh@ - Chinese drAcceptLanguage :: Lens' DescribeRecord (Maybe Text)-drAcceptLanguage = lens _drAcceptLanguage (\ s a -> s{_drAcceptLanguage = a});+drAcceptLanguage = lens _drAcceptLanguage (\ s a -> s{_drAcceptLanguage = a}) --- | The page token of the first page retrieved. If null, this retrieves the first page of size @PageSize@ .+-- | The page token for the next set of results. To retrieve the first set of results, use null. drPageToken :: Lens' DescribeRecord (Maybe Text)-drPageToken = lens _drPageToken (\ s a -> s{_drPageToken = a});+drPageToken = lens _drPageToken (\ s a -> s{_drPageToken = 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.+-- | The maximum number of items to return with this call. drPageSize :: Lens' DescribeRecord (Maybe Natural)-drPageSize = lens _drPageSize (\ s a -> s{_drPageSize = a}) . mapping _Nat;+drPageSize = lens _drPageSize (\ s a -> s{_drPageSize = a}) . mapping _Nat --- | The record identifier of the ProvisionedProduct object for which to retrieve output information. This is the @RecordDetail.RecordId@ obtained from the request operation's response.+-- | The record identifier of the provisioned product. This identifier is returned by the request operation. drId :: Lens' DescribeRecord Text-drId = lens _drId (\ s a -> s{_drId = a});+drId = lens _drId (\ s a -> s{_drId = a})  instance AWSRequest DescribeRecord where         type Rs DescribeRecord = DescribeRecordResponse@@ -150,11 +152,11 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'drrsRecordDetail' - Detailed record information for the specified product.+-- * 'drrsRecordDetail' - Information about the product. ----- * 'drrsNextPageToken' - 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.+-- * 'drrsNextPageToken' - The page token to use to retrieve the next set of results. If there are no additional results, this value is null. ----- * 'drrsRecordOutputs' - A list of outputs for the specified Product object created as the result of a request. For example, a CloudFormation-backed product that creates an S3 bucket would have an output for the S3 bucket URL.+-- * 'drrsRecordOutputs' - Information about the product created as the result of a request. For example, the output for a CloudFormation-backed product that creates an S3 bucket would include the S3 bucket URL. -- -- * 'drrsResponseStatus' - -- | The response status code. describeRecordResponse@@ -162,27 +164,27 @@     -> DescribeRecordResponse describeRecordResponse pResponseStatus_ =   DescribeRecordResponse'-  { _drrsRecordDetail = Nothing-  , _drrsNextPageToken = Nothing-  , _drrsRecordOutputs = Nothing-  , _drrsResponseStatus = pResponseStatus_-  }+    { _drrsRecordDetail = Nothing+    , _drrsNextPageToken = Nothing+    , _drrsRecordOutputs = Nothing+    , _drrsResponseStatus = pResponseStatus_+    }  --- | Detailed record information for the specified product.+-- | Information about the product. drrsRecordDetail :: Lens' DescribeRecordResponse (Maybe RecordDetail)-drrsRecordDetail = lens _drrsRecordDetail (\ s a -> s{_drrsRecordDetail = a});+drrsRecordDetail = lens _drrsRecordDetail (\ s a -> s{_drrsRecordDetail = a}) --- | 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.+-- | The page token to use to retrieve the next set of results. If there are no additional results, this value is null. drrsNextPageToken :: Lens' DescribeRecordResponse (Maybe Text)-drrsNextPageToken = lens _drrsNextPageToken (\ s a -> s{_drrsNextPageToken = a});+drrsNextPageToken = lens _drrsNextPageToken (\ s a -> s{_drrsNextPageToken = a}) --- | A list of outputs for the specified Product object created as the result of a request. For example, a CloudFormation-backed product that creates an S3 bucket would have an output for the S3 bucket URL.+-- | Information about the product created as the result of a request. For example, the output for a CloudFormation-backed product that creates an S3 bucket would include the S3 bucket URL. drrsRecordOutputs :: Lens' DescribeRecordResponse [RecordOutput]-drrsRecordOutputs = lens _drrsRecordOutputs (\ s a -> s{_drrsRecordOutputs = a}) . _Default . _Coerce;+drrsRecordOutputs = lens _drrsRecordOutputs (\ s a -> s{_drrsRecordOutputs = a}) . _Default . _Coerce  -- | -- | The response status code. drrsResponseStatus :: Lens' DescribeRecordResponse Int-drrsResponseStatus = lens _drrsResponseStatus (\ s a -> s{_drrsResponseStatus = a});+drrsResponseStatus = lens _drrsResponseStatus (\ s a -> s{_drrsResponseStatus = a})  instance NFData DescribeRecordResponse where

@@ -12,13 +12,13 @@  -- | -- Module      : Network.AWS.ServiceCatalog.DescribeTagOption--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Describes a TagOption.+-- Gets information about the specified TagOption. -- -- module Network.AWS.ServiceCatalog.DescribeTagOption@@ -54,16 +54,16 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'dtoId' - The identifier of the TagOption.+-- * 'dtoId' - The TagOption identifier. describeTagOption     :: Text -- ^ 'dtoId'     -> DescribeTagOption describeTagOption pId_ = DescribeTagOption' {_dtoId = pId_}  --- | The identifier of the TagOption.+-- | The TagOption identifier. dtoId :: Lens' DescribeTagOption Text-dtoId = lens _dtoId (\ s a -> s{_dtoId = a});+dtoId = lens _dtoId (\ s a -> s{_dtoId = a})  instance AWSRequest DescribeTagOption where         type Rs DescribeTagOption = DescribeTagOptionResponse@@ -109,7 +109,7 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'dtorsTagOptionDetail' - The resulting detailed TagOption information.+-- * 'dtorsTagOptionDetail' - Information about the TagOption. -- -- * 'dtorsResponseStatus' - -- | The response status code. describeTagOptionResponse@@ -117,15 +117,15 @@     -> DescribeTagOptionResponse describeTagOptionResponse pResponseStatus_ =   DescribeTagOptionResponse'-  {_dtorsTagOptionDetail = Nothing, _dtorsResponseStatus = pResponseStatus_}+    {_dtorsTagOptionDetail = Nothing, _dtorsResponseStatus = pResponseStatus_}  --- | The resulting detailed TagOption information.+-- | Information about the TagOption. dtorsTagOptionDetail :: Lens' DescribeTagOptionResponse (Maybe TagOptionDetail)-dtorsTagOptionDetail = lens _dtorsTagOptionDetail (\ s a -> s{_dtorsTagOptionDetail = a});+dtorsTagOptionDetail = lens _dtorsTagOptionDetail (\ s a -> s{_dtorsTagOptionDetail = a})  -- | -- | The response status code. dtorsResponseStatus :: Lens' DescribeTagOptionResponse Int-dtorsResponseStatus = lens _dtorsResponseStatus (\ s a -> s{_dtorsResponseStatus = a});+dtorsResponseStatus = lens _dtorsResponseStatus (\ s a -> s{_dtorsResponseStatus = a})  instance NFData DescribeTagOptionResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.ServiceCatalog.DisassociatePrincipalFromPortfolio--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -61,30 +61,30 @@ -- -- * 'disPortfolioId' - The portfolio identifier. ----- * 'disPrincipalARN' - The ARN representing the principal (IAM user, role, or group).+-- * 'disPrincipalARN' - The ARN of the principal (IAM user, role, or group). disassociatePrincipalFromPortfolio     :: Text -- ^ 'disPortfolioId'     -> Text -- ^ 'disPrincipalARN'     -> DisassociatePrincipalFromPortfolio disassociatePrincipalFromPortfolio pPortfolioId_ pPrincipalARN_ =   DisassociatePrincipalFromPortfolio'-  { _disAcceptLanguage = Nothing-  , _disPortfolioId = pPortfolioId_-  , _disPrincipalARN = pPrincipalARN_-  }+    { _disAcceptLanguage = Nothing+    , _disPortfolioId = pPortfolioId_+    , _disPrincipalARN = pPrincipalARN_+    }   -- | The language code.     * @en@ - English (default)     * @jp@ - Japanese     * @zh@ - Chinese disAcceptLanguage :: Lens' DisassociatePrincipalFromPortfolio (Maybe Text)-disAcceptLanguage = lens _disAcceptLanguage (\ s a -> s{_disAcceptLanguage = a});+disAcceptLanguage = lens _disAcceptLanguage (\ s a -> s{_disAcceptLanguage = a})  -- | The portfolio identifier. disPortfolioId :: Lens' DisassociatePrincipalFromPortfolio Text-disPortfolioId = lens _disPortfolioId (\ s a -> s{_disPortfolioId = a});+disPortfolioId = lens _disPortfolioId (\ s a -> s{_disPortfolioId = a}) --- | The ARN representing the principal (IAM user, role, or group).+-- | The ARN of the principal (IAM user, role, or group). disPrincipalARN :: Lens' DisassociatePrincipalFromPortfolio Text-disPrincipalARN = lens _disPrincipalARN (\ s a -> s{_disPrincipalARN = a});+disPrincipalARN = lens _disPrincipalARN (\ s a -> s{_disPrincipalARN = a})  instance AWSRequest            DisassociatePrincipalFromPortfolio@@ -148,12 +148,12 @@     -> DisassociatePrincipalFromPortfolioResponse disassociatePrincipalFromPortfolioResponse pResponseStatus_ =   DisassociatePrincipalFromPortfolioResponse'-  {_dpfprsResponseStatus = pResponseStatus_}+    {_dpfprsResponseStatus = pResponseStatus_}   -- | -- | The response status code. dpfprsResponseStatus :: Lens' DisassociatePrincipalFromPortfolioResponse Int-dpfprsResponseStatus = lens _dpfprsResponseStatus (\ s a -> s{_dpfprsResponseStatus = a});+dpfprsResponseStatus = lens _dpfprsResponseStatus (\ s a -> s{_dpfprsResponseStatus = a})  instance NFData            DisassociatePrincipalFromPortfolioResponse

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.ServiceCatalog.DisassociateProductFromPortfolio--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -68,23 +68,23 @@     -> DisassociateProductFromPortfolio disassociateProductFromPortfolio pProductId_ pPortfolioId_ =   DisassociateProductFromPortfolio'-  { _dpfpAcceptLanguage = Nothing-  , _dpfpProductId = pProductId_-  , _dpfpPortfolioId = pPortfolioId_-  }+    { _dpfpAcceptLanguage = Nothing+    , _dpfpProductId = pProductId_+    , _dpfpPortfolioId = pPortfolioId_+    }   -- | The language code.     * @en@ - English (default)     * @jp@ - Japanese     * @zh@ - Chinese dpfpAcceptLanguage :: Lens' DisassociateProductFromPortfolio (Maybe Text)-dpfpAcceptLanguage = lens _dpfpAcceptLanguage (\ s a -> s{_dpfpAcceptLanguage = a});+dpfpAcceptLanguage = lens _dpfpAcceptLanguage (\ s a -> s{_dpfpAcceptLanguage = a})  -- | The product identifier. dpfpProductId :: Lens' DisassociateProductFromPortfolio Text-dpfpProductId = lens _dpfpProductId (\ s a -> s{_dpfpProductId = a});+dpfpProductId = lens _dpfpProductId (\ s a -> s{_dpfpProductId = a})  -- | The portfolio identifier. dpfpPortfolioId :: Lens' DisassociateProductFromPortfolio Text-dpfpPortfolioId = lens _dpfpPortfolioId (\ s a -> s{_dpfpPortfolioId = a});+dpfpPortfolioId = lens _dpfpPortfolioId (\ s a -> s{_dpfpPortfolioId = a})  instance AWSRequest DisassociateProductFromPortfolio          where@@ -147,12 +147,12 @@     -> DisassociateProductFromPortfolioResponse disassociateProductFromPortfolioResponse pResponseStatus_ =   DisassociateProductFromPortfolioResponse'-  {_disrsResponseStatus = pResponseStatus_}+    {_disrsResponseStatus = pResponseStatus_}   -- | -- | The response status code. disrsResponseStatus :: Lens' DisassociateProductFromPortfolioResponse Int-disrsResponseStatus = lens _disrsResponseStatus (\ s a -> s{_disrsResponseStatus = a});+disrsResponseStatus = lens _disrsResponseStatus (\ s a -> s{_disrsResponseStatus = a})  instance NFData            DisassociateProductFromPortfolioResponse

@@ -12,13 +12,13 @@  -- | -- Module      : Network.AWS.ServiceCatalog.DisassociateTagOptionFromResource--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Disassociates a TagOption from a resource.+-- Disassociates the specified TagOption from the specified resource. -- -- module Network.AWS.ServiceCatalog.DisassociateTagOptionFromResource@@ -55,25 +55,25 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'dtofrResourceId' - Identifier of the resource from which to disassociate the TagOption.+-- * 'dtofrResourceId' - The resource identifier. ----- * 'dtofrTagOptionId' - Identifier of the TagOption to disassociate from the resource.+-- * 'dtofrTagOptionId' - The TagOption identifier. disassociateTagOptionFromResource     :: Text -- ^ 'dtofrResourceId'     -> Text -- ^ 'dtofrTagOptionId'     -> DisassociateTagOptionFromResource disassociateTagOptionFromResource pResourceId_ pTagOptionId_ =   DisassociateTagOptionFromResource'-  {_dtofrResourceId = pResourceId_, _dtofrTagOptionId = pTagOptionId_}+    {_dtofrResourceId = pResourceId_, _dtofrTagOptionId = pTagOptionId_}  --- | Identifier of the resource from which to disassociate the TagOption.+-- | The resource identifier. dtofrResourceId :: Lens' DisassociateTagOptionFromResource Text-dtofrResourceId = lens _dtofrResourceId (\ s a -> s{_dtofrResourceId = a});+dtofrResourceId = lens _dtofrResourceId (\ s a -> s{_dtofrResourceId = a}) --- | Identifier of the TagOption to disassociate from the resource.+-- | The TagOption identifier. dtofrTagOptionId :: Lens' DisassociateTagOptionFromResource Text-dtofrTagOptionId = lens _dtofrTagOptionId (\ s a -> s{_dtofrTagOptionId = a});+dtofrTagOptionId = lens _dtofrTagOptionId (\ s a -> s{_dtofrTagOptionId = a})  instance AWSRequest DisassociateTagOptionFromResource          where@@ -135,12 +135,12 @@     -> DisassociateTagOptionFromResourceResponse disassociateTagOptionFromResourceResponse pResponseStatus_ =   DisassociateTagOptionFromResourceResponse'-  {_dtofrrsResponseStatus = pResponseStatus_}+    {_dtofrrsResponseStatus = pResponseStatus_}   -- | -- | The response status code. dtofrrsResponseStatus :: Lens' DisassociateTagOptionFromResourceResponse Int-dtofrrsResponseStatus = lens _dtofrrsResponseStatus (\ s a -> s{_dtofrrsResponseStatus = a});+dtofrrsResponseStatus = lens _dtofrrsResponseStatus (\ s a -> s{_dtofrrsResponseStatus = a})  instance NFData            DisassociateTagOptionFromResourceResponse

@@ -0,0 +1,161 @@+{-# 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.ExecuteProvisionedProductPlan+-- Copyright   : (c) 2013-2018 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Provisions or modifies a product based on the resource changes for the specified plan.+--+--+module Network.AWS.ServiceCatalog.ExecuteProvisionedProductPlan+    (+    -- * Creating a Request+      executeProvisionedProductPlan+    , ExecuteProvisionedProductPlan+    -- * Request Lenses+    , epppAcceptLanguage+    , epppPlanId+    , epppIdempotencyToken++    -- * Destructuring the Response+    , executeProvisionedProductPlanResponse+    , ExecuteProvisionedProductPlanResponse+    -- * Response Lenses+    , eppprsRecordDetail+    , eppprsResponseStatus+    ) 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:/ 'executeProvisionedProductPlan' smart constructor.+data ExecuteProvisionedProductPlan = ExecuteProvisionedProductPlan'+  { _epppAcceptLanguage   :: !(Maybe Text)+  , _epppPlanId           :: !Text+  , _epppIdempotencyToken :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'ExecuteProvisionedProductPlan' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'epppAcceptLanguage' - The language code.     * @en@ - English (default)     * @jp@ - Japanese     * @zh@ - Chinese+--+-- * 'epppPlanId' - The plan identifier.+--+-- * 'epppIdempotencyToken' - A unique identifier that you provide to ensure idempotency. If multiple requests differ only by the idempotency token, the same response is returned for each repeated request.+executeProvisionedProductPlan+    :: Text -- ^ 'epppPlanId'+    -> Text -- ^ 'epppIdempotencyToken'+    -> ExecuteProvisionedProductPlan+executeProvisionedProductPlan pPlanId_ pIdempotencyToken_ =+  ExecuteProvisionedProductPlan'+    { _epppAcceptLanguage = Nothing+    , _epppPlanId = pPlanId_+    , _epppIdempotencyToken = pIdempotencyToken_+    }+++-- | The language code.     * @en@ - English (default)     * @jp@ - Japanese     * @zh@ - Chinese+epppAcceptLanguage :: Lens' ExecuteProvisionedProductPlan (Maybe Text)+epppAcceptLanguage = lens _epppAcceptLanguage (\ s a -> s{_epppAcceptLanguage = a})++-- | The plan identifier.+epppPlanId :: Lens' ExecuteProvisionedProductPlan Text+epppPlanId = lens _epppPlanId (\ s a -> s{_epppPlanId = a})++-- | A unique identifier that you provide to ensure idempotency. If multiple requests differ only by the idempotency token, the same response is returned for each repeated request.+epppIdempotencyToken :: Lens' ExecuteProvisionedProductPlan Text+epppIdempotencyToken = lens _epppIdempotencyToken (\ s a -> s{_epppIdempotencyToken = a})++instance AWSRequest ExecuteProvisionedProductPlan+         where+        type Rs ExecuteProvisionedProductPlan =+             ExecuteProvisionedProductPlanResponse+        request = postJSON serviceCatalog+        response+          = receiveJSON+              (\ s h x ->+                 ExecuteProvisionedProductPlanResponse' <$>+                   (x .?> "RecordDetail") <*> (pure (fromEnum s)))++instance Hashable ExecuteProvisionedProductPlan where++instance NFData ExecuteProvisionedProductPlan where++instance ToHeaders ExecuteProvisionedProductPlan+         where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("AWS242ServiceCatalogService.ExecuteProvisionedProductPlan"+                       :: ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON ExecuteProvisionedProductPlan where+        toJSON ExecuteProvisionedProductPlan'{..}+          = object+              (catMaybes+                 [("AcceptLanguage" .=) <$> _epppAcceptLanguage,+                  Just ("PlanId" .= _epppPlanId),+                  Just ("IdempotencyToken" .= _epppIdempotencyToken)])++instance ToPath ExecuteProvisionedProductPlan where+        toPath = const "/"++instance ToQuery ExecuteProvisionedProductPlan where+        toQuery = const mempty++-- | /See:/ 'executeProvisionedProductPlanResponse' smart constructor.+data ExecuteProvisionedProductPlanResponse = ExecuteProvisionedProductPlanResponse'+  { _eppprsRecordDetail   :: !(Maybe RecordDetail)+  , _eppprsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'ExecuteProvisionedProductPlanResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'eppprsRecordDetail' - Information about the result of provisioning the product.+--+-- * 'eppprsResponseStatus' - -- | The response status code.+executeProvisionedProductPlanResponse+    :: Int -- ^ 'eppprsResponseStatus'+    -> ExecuteProvisionedProductPlanResponse+executeProvisionedProductPlanResponse pResponseStatus_ =+  ExecuteProvisionedProductPlanResponse'+    {_eppprsRecordDetail = Nothing, _eppprsResponseStatus = pResponseStatus_}+++-- | Information about the result of provisioning the product.+eppprsRecordDetail :: Lens' ExecuteProvisionedProductPlanResponse (Maybe RecordDetail)+eppprsRecordDetail = lens _eppprsRecordDetail (\ s a -> s{_eppprsRecordDetail = a})++-- | -- | The response status code.+eppprsResponseStatus :: Lens' ExecuteProvisionedProductPlanResponse Int+eppprsResponseStatus = lens _eppprsResponseStatus (\ s a -> s{_eppprsResponseStatus = a})++instance NFData ExecuteProvisionedProductPlanResponse+         where

@@ -12,15 +12,17 @@  -- | -- Module      : Network.AWS.ServiceCatalog.ListAcceptedPortfolioShares--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Lists details of all portfolios for which sharing was accepted by this account.+-- Lists all portfolios for which sharing was accepted by this account. -- --+--+-- This operation returns paginated results. module Network.AWS.ServiceCatalog.ListAcceptedPortfolioShares     (     -- * Creating a Request@@ -41,6 +43,7 @@     ) where  import Network.AWS.Lens+import Network.AWS.Pager import Network.AWS.Prelude import Network.AWS.Request import Network.AWS.Response@@ -61,31 +64,39 @@ -- -- * '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@ .+-- * 'lapsPageToken' - The page token for the next set of results. To retrieve the first set of results, use null. ----- * 'lapsPageSize' - 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.+-- * 'lapsPageSize' - The maximum number of items to return with this call. listAcceptedPortfolioShares     :: ListAcceptedPortfolioShares listAcceptedPortfolioShares =   ListAcceptedPortfolioShares'-  { _lapsAcceptLanguage = Nothing-  , _lapsPageToken = Nothing-  , _lapsPageSize = Nothing-  }+    { _lapsAcceptLanguage = Nothing+    , _lapsPageToken = Nothing+    , _lapsPageSize = Nothing+    }   -- | The language code.     * @en@ - English (default)     * @jp@ - Japanese     * @zh@ - Chinese lapsAcceptLanguage :: Lens' ListAcceptedPortfolioShares (Maybe Text)-lapsAcceptLanguage = lens _lapsAcceptLanguage (\ s a -> s{_lapsAcceptLanguage = a});+lapsAcceptLanguage = lens _lapsAcceptLanguage (\ s a -> s{_lapsAcceptLanguage = a}) --- | The page token of the first page retrieved. If null, this retrieves the first page of size @PageSize@ .+-- | The page token for the next set of results. To retrieve the first set of results, use null. lapsPageToken :: Lens' ListAcceptedPortfolioShares (Maybe Text)-lapsPageToken = lens _lapsPageToken (\ s a -> s{_lapsPageToken = a});+lapsPageToken = lens _lapsPageToken (\ s a -> s{_lapsPageToken = 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.+-- | The maximum number of items to return with this call. lapsPageSize :: Lens' ListAcceptedPortfolioShares (Maybe Natural)-lapsPageSize = lens _lapsPageSize (\ s a -> s{_lapsPageSize = a}) . mapping _Nat;+lapsPageSize = lens _lapsPageSize (\ s a -> s{_lapsPageSize = a}) . mapping _Nat +instance AWSPager ListAcceptedPortfolioShares where+        page rq rs+          | stop (rs ^. lapsrsNextPageToken) = Nothing+          | stop (rs ^. lapsrsPortfolioDetails) = Nothing+          | otherwise =+            Just $ rq &+              lapsPageToken .~ rs ^. lapsrsNextPageToken+ instance AWSRequest ListAcceptedPortfolioShares where         type Rs ListAcceptedPortfolioShares =              ListAcceptedPortfolioSharesResponse@@ -138,9 +149,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'lapsrsNextPageToken' - 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' - The page token to use to retrieve the next set of results. If there are no additional results, this value is null. ----- * 'lapsrsPortfolioDetails' - List of detailed portfolio information objects.+-- * 'lapsrsPortfolioDetails' - Information about the portfolios. -- -- * 'lapsrsResponseStatus' - -- | The response status code. listAcceptedPortfolioSharesResponse@@ -148,23 +159,23 @@     -> ListAcceptedPortfolioSharesResponse listAcceptedPortfolioSharesResponse pResponseStatus_ =   ListAcceptedPortfolioSharesResponse'-  { _lapsrsNextPageToken = Nothing-  , _lapsrsPortfolioDetails = Nothing-  , _lapsrsResponseStatus = pResponseStatus_-  }+    { _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.+-- | The page token to use to retrieve the next set of results. If there are no additional results, this value is null. lapsrsNextPageToken :: Lens' ListAcceptedPortfolioSharesResponse (Maybe Text)-lapsrsNextPageToken = lens _lapsrsNextPageToken (\ s a -> s{_lapsrsNextPageToken = a});+lapsrsNextPageToken = lens _lapsrsNextPageToken (\ s a -> s{_lapsrsNextPageToken = a}) --- | List of detailed portfolio information objects.+-- | Information about the portfolios. lapsrsPortfolioDetails :: Lens' ListAcceptedPortfolioSharesResponse [PortfolioDetail]-lapsrsPortfolioDetails = lens _lapsrsPortfolioDetails (\ s a -> s{_lapsrsPortfolioDetails = a}) . _Default . _Coerce;+lapsrsPortfolioDetails = lens _lapsrsPortfolioDetails (\ s a -> s{_lapsrsPortfolioDetails = a}) . _Default . _Coerce  -- | -- | The response status code. lapsrsResponseStatus :: Lens' ListAcceptedPortfolioSharesResponse Int-lapsrsResponseStatus = lens _lapsrsResponseStatus (\ s a -> s{_lapsrsResponseStatus = a});+lapsrsResponseStatus = lens _lapsrsResponseStatus (\ s a -> s{_lapsrsResponseStatus = a})  instance NFData ListAcceptedPortfolioSharesResponse          where

@@ -12,15 +12,17 @@  -- | -- Module      : Network.AWS.ServiceCatalog.ListConstraintsForPortfolio--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Retrieves detailed constraint information for the specified portfolio and product.+-- Lists the constraints for the specified portfolio and product. -- --+--+-- This operation returns paginated results. module Network.AWS.ServiceCatalog.ListConstraintsForPortfolio     (     -- * Creating a Request@@ -43,6 +45,7 @@     ) where  import Network.AWS.Lens+import Network.AWS.Pager import Network.AWS.Prelude import Network.AWS.Request import Network.AWS.Response@@ -65,9 +68,9 @@ -- -- * '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@ .+-- * 'lcfpPageToken' - The page token for the next set of results. To retrieve the first set of results, use null. ----- * 'lcfpPageSize' - 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.+-- * 'lcfpPageSize' - The maximum number of items to return with this call. -- -- * 'lcfpProductId' - The product identifier. --@@ -77,34 +80,42 @@     -> ListConstraintsForPortfolio listConstraintsForPortfolio pPortfolioId_ =   ListConstraintsForPortfolio'-  { _lcfpAcceptLanguage = Nothing-  , _lcfpPageToken = Nothing-  , _lcfpPageSize = Nothing-  , _lcfpProductId = Nothing-  , _lcfpPortfolioId = pPortfolioId_-  }+    { _lcfpAcceptLanguage = Nothing+    , _lcfpPageToken = Nothing+    , _lcfpPageSize = Nothing+    , _lcfpProductId = Nothing+    , _lcfpPortfolioId = pPortfolioId_+    }   -- | The language code.     * @en@ - English (default)     * @jp@ - Japanese     * @zh@ - Chinese lcfpAcceptLanguage :: Lens' ListConstraintsForPortfolio (Maybe Text)-lcfpAcceptLanguage = lens _lcfpAcceptLanguage (\ s a -> s{_lcfpAcceptLanguage = a});+lcfpAcceptLanguage = lens _lcfpAcceptLanguage (\ s a -> s{_lcfpAcceptLanguage = a}) --- | The page token of the first page retrieved. If null, this retrieves the first page of size @PageSize@ .+-- | The page token for the next set of results. To retrieve the first set of results, use null. lcfpPageToken :: Lens' ListConstraintsForPortfolio (Maybe Text)-lcfpPageToken = lens _lcfpPageToken (\ s a -> s{_lcfpPageToken = a});+lcfpPageToken = lens _lcfpPageToken (\ s a -> s{_lcfpPageToken = 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.+-- | The maximum number of items to return with this call. lcfpPageSize :: Lens' ListConstraintsForPortfolio (Maybe Natural)-lcfpPageSize = lens _lcfpPageSize (\ s a -> s{_lcfpPageSize = a}) . mapping _Nat;+lcfpPageSize = lens _lcfpPageSize (\ s a -> s{_lcfpPageSize = a}) . mapping _Nat  -- | The product identifier. lcfpProductId :: Lens' ListConstraintsForPortfolio (Maybe Text)-lcfpProductId = lens _lcfpProductId (\ s a -> s{_lcfpProductId = a});+lcfpProductId = lens _lcfpProductId (\ s a -> s{_lcfpProductId = a})  -- | The portfolio identifier. lcfpPortfolioId :: Lens' ListConstraintsForPortfolio Text-lcfpPortfolioId = lens _lcfpPortfolioId (\ s a -> s{_lcfpPortfolioId = a});+lcfpPortfolioId = lens _lcfpPortfolioId (\ s a -> s{_lcfpPortfolioId = a}) +instance AWSPager ListConstraintsForPortfolio where+        page rq rs+          | stop (rs ^. lcfprsNextPageToken) = Nothing+          | stop (rs ^. lcfprsConstraintDetails) = Nothing+          | otherwise =+            Just $ rq &+              lcfpPageToken .~ rs ^. lcfprsNextPageToken+ instance AWSRequest ListConstraintsForPortfolio where         type Rs ListConstraintsForPortfolio =              ListConstraintsForPortfolioResponse@@ -159,9 +170,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'lcfprsNextPageToken' - 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' - The page token to use to retrieve the next set of results. If there are no additional results, this value is null. ----- * 'lcfprsConstraintDetails' - List of detailed constraint information objects.+-- * 'lcfprsConstraintDetails' - Information about the constraints. -- -- * 'lcfprsResponseStatus' - -- | The response status code. listConstraintsForPortfolioResponse@@ -169,23 +180,23 @@     -> ListConstraintsForPortfolioResponse listConstraintsForPortfolioResponse pResponseStatus_ =   ListConstraintsForPortfolioResponse'-  { _lcfprsNextPageToken = Nothing-  , _lcfprsConstraintDetails = Nothing-  , _lcfprsResponseStatus = pResponseStatus_-  }+    { _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.+-- | The page token to use to retrieve the next set of results. If there are no additional results, this value is null. lcfprsNextPageToken :: Lens' ListConstraintsForPortfolioResponse (Maybe Text)-lcfprsNextPageToken = lens _lcfprsNextPageToken (\ s a -> s{_lcfprsNextPageToken = a});+lcfprsNextPageToken = lens _lcfprsNextPageToken (\ s a -> s{_lcfprsNextPageToken = a}) --- | List of detailed constraint information objects.+-- | Information about the constraints. lcfprsConstraintDetails :: Lens' ListConstraintsForPortfolioResponse [ConstraintDetail]-lcfprsConstraintDetails = lens _lcfprsConstraintDetails (\ s a -> s{_lcfprsConstraintDetails = a}) . _Default . _Coerce;+lcfprsConstraintDetails = lens _lcfprsConstraintDetails (\ s a -> s{_lcfprsConstraintDetails = a}) . _Default . _Coerce  -- | -- | The response status code. lcfprsResponseStatus :: Lens' ListConstraintsForPortfolioResponse Int-lcfprsResponseStatus = lens _lcfprsResponseStatus (\ s a -> s{_lcfprsResponseStatus = a});+lcfprsResponseStatus = lens _lcfprsResponseStatus (\ s a -> s{_lcfprsResponseStatus = a})  instance NFData ListConstraintsForPortfolioResponse          where

@@ -12,15 +12,17 @@  -- | -- Module      : Network.AWS.ServiceCatalog.ListLaunchPaths--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Returns a paginated list of all paths to a specified product. A path is how the user has access to a specified product, and is necessary when provisioning a product. A path also determines the constraints put on the product.+-- Lists the paths to the specified product. A path is how the user has access to a specified product, and is necessary when provisioning a product. A path also determines the constraints put on the product. -- --+--+-- This operation returns paginated results. module Network.AWS.ServiceCatalog.ListLaunchPaths     (     -- * Creating a Request@@ -42,6 +44,7 @@     ) where  import Network.AWS.Lens+import Network.AWS.Pager import Network.AWS.Prelude import Network.AWS.Request import Network.AWS.Response@@ -63,39 +66,46 @@ -- -- * '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@ .+-- * 'llpPageToken' - The page token for the next set of results. To retrieve the first set of results, use null. ----- * '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.+-- * 'llpPageSize' - The maximum number of items to return with this call. ----- * 'llpProductId' - The product identifier. Identifies the product for which to retrieve @LaunchPathSummaries@ information.+-- * 'llpProductId' - The product identifier. listLaunchPaths     :: Text -- ^ 'llpProductId'     -> ListLaunchPaths listLaunchPaths pProductId_ =   ListLaunchPaths'-  { _llpAcceptLanguage = Nothing-  , _llpPageToken = Nothing-  , _llpPageSize = Nothing-  , _llpProductId = pProductId_-  }+    { _llpAcceptLanguage = Nothing+    , _llpPageToken = Nothing+    , _llpPageSize = Nothing+    , _llpProductId = pProductId_+    }   -- | The language code.     * @en@ - English (default)     * @jp@ - Japanese     * @zh@ - Chinese llpAcceptLanguage :: Lens' ListLaunchPaths (Maybe Text)-llpAcceptLanguage = lens _llpAcceptLanguage (\ s a -> s{_llpAcceptLanguage = a});+llpAcceptLanguage = lens _llpAcceptLanguage (\ s a -> s{_llpAcceptLanguage = a}) --- | The page token of the first page retrieved. If null, this retrieves the first page of size @PageSize@ .+-- | The page token for the next set of results. To retrieve the first set of results, use null. llpPageToken :: Lens' ListLaunchPaths (Maybe Text)-llpPageToken = lens _llpPageToken (\ s a -> s{_llpPageToken = a});+llpPageToken = lens _llpPageToken (\ s a -> s{_llpPageToken = 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.+-- | The maximum number of items to return with this call. llpPageSize :: Lens' ListLaunchPaths (Maybe Natural)-llpPageSize = lens _llpPageSize (\ s a -> s{_llpPageSize = a}) . mapping _Nat;+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. llpProductId :: Lens' ListLaunchPaths Text-llpProductId = lens _llpProductId (\ s a -> s{_llpProductId = a});+llpProductId = lens _llpProductId (\ s a -> s{_llpProductId = a}) +instance AWSPager ListLaunchPaths where+        page rq rs+          | stop (rs ^. llprsNextPageToken) = Nothing+          | stop (rs ^. llprsLaunchPathSummaries) = Nothing+          | otherwise =+            Just $ rq & llpPageToken .~ rs ^. llprsNextPageToken+ instance AWSRequest ListLaunchPaths where         type Rs ListLaunchPaths = ListLaunchPathsResponse         request = postJSON serviceCatalog@@ -148,9 +158,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'llprsNextPageToken' - 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' - The page token to use to retrieve the next set of results. If there are no additional results, this value is null. ----- * 'llprsLaunchPathSummaries' - List of launch path information summaries for the specified @PageToken@ .+-- * 'llprsLaunchPathSummaries' - Information about the launch path. -- -- * 'llprsResponseStatus' - -- | The response status code. listLaunchPathsResponse@@ -158,22 +168,22 @@     -> ListLaunchPathsResponse listLaunchPathsResponse pResponseStatus_ =   ListLaunchPathsResponse'-  { _llprsNextPageToken = Nothing-  , _llprsLaunchPathSummaries = Nothing-  , _llprsResponseStatus = pResponseStatus_-  }+    { _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.+-- | The page token to use to retrieve the next set of results. If there are no additional results, this value is null. llprsNextPageToken :: Lens' ListLaunchPathsResponse (Maybe Text)-llprsNextPageToken = lens _llprsNextPageToken (\ s a -> s{_llprsNextPageToken = a});+llprsNextPageToken = lens _llprsNextPageToken (\ s a -> s{_llprsNextPageToken = a}) --- | List of launch path information summaries for the specified @PageToken@ .+-- | Information about the launch path. llprsLaunchPathSummaries :: Lens' ListLaunchPathsResponse [LaunchPathSummary]-llprsLaunchPathSummaries = lens _llprsLaunchPathSummaries (\ s a -> s{_llprsLaunchPathSummaries = a}) . _Default . _Coerce;+llprsLaunchPathSummaries = lens _llprsLaunchPathSummaries (\ s a -> s{_llprsLaunchPathSummaries = a}) . _Default . _Coerce  -- | -- | The response status code. llprsResponseStatus :: Lens' ListLaunchPathsResponse Int-llprsResponseStatus = lens _llprsResponseStatus (\ s a -> s{_llprsResponseStatus = a});+llprsResponseStatus = lens _llprsResponseStatus (\ s a -> s{_llprsResponseStatus = a})  instance NFData ListLaunchPathsResponse where

@@ -12,13 +12,13 @@  -- | -- Module      : Network.AWS.ServiceCatalog.ListPortfolioAccess--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Lists the account IDs that have been authorized sharing of the specified portfolio.+-- Lists the account IDs that have access to the specified portfolio. -- -- module Network.AWS.ServiceCatalog.ListPortfolioAccess@@ -65,16 +65,16 @@     -> ListPortfolioAccess listPortfolioAccess pPortfolioId_ =   ListPortfolioAccess'-  {_lAcceptLanguage = Nothing, _lPortfolioId = pPortfolioId_}+    {_lAcceptLanguage = Nothing, _lPortfolioId = pPortfolioId_}   -- | The language code.     * @en@ - English (default)     * @jp@ - Japanese     * @zh@ - Chinese lAcceptLanguage :: Lens' ListPortfolioAccess (Maybe Text)-lAcceptLanguage = lens _lAcceptLanguage (\ s a -> s{_lAcceptLanguage = a});+lAcceptLanguage = lens _lAcceptLanguage (\ s a -> s{_lAcceptLanguage = a})  -- | The portfolio identifier. lPortfolioId :: Lens' ListPortfolioAccess Text-lPortfolioId = lens _lPortfolioId (\ s a -> s{_lPortfolioId = a});+lPortfolioId = lens _lPortfolioId (\ s a -> s{_lPortfolioId = a})  instance AWSRequest ListPortfolioAccess where         type Rs ListPortfolioAccess =@@ -127,9 +127,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'lparsNextPageToken' - 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' - The page token to use to retrieve the next set of results. If there are no additional results, this value is null. ----- * 'lparsAccountIds' - List of account IDs associated with access to the portfolio.+-- * 'lparsAccountIds' - Information about the AWS accounts with access to the portfolio. -- -- * 'lparsResponseStatus' - -- | The response status code. listPortfolioAccessResponse@@ -137,22 +137,22 @@     -> ListPortfolioAccessResponse listPortfolioAccessResponse pResponseStatus_ =   ListPortfolioAccessResponse'-  { _lparsNextPageToken = Nothing-  , _lparsAccountIds = Nothing-  , _lparsResponseStatus = pResponseStatus_-  }+    { _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.+-- | The page token to use to retrieve the next set of results. If there are no additional results, this value is null. lparsNextPageToken :: Lens' ListPortfolioAccessResponse (Maybe Text)-lparsNextPageToken = lens _lparsNextPageToken (\ s a -> s{_lparsNextPageToken = a});+lparsNextPageToken = lens _lparsNextPageToken (\ s a -> s{_lparsNextPageToken = a}) --- | List of account IDs associated with access to the portfolio.+-- | Information about the AWS accounts with access to the portfolio. lparsAccountIds :: Lens' ListPortfolioAccessResponse [Text]-lparsAccountIds = lens _lparsAccountIds (\ s a -> s{_lparsAccountIds = a}) . _Default . _Coerce;+lparsAccountIds = lens _lparsAccountIds (\ s a -> s{_lparsAccountIds = a}) . _Default . _Coerce  -- | -- | The response status code. lparsResponseStatus :: Lens' ListPortfolioAccessResponse Int-lparsResponseStatus = lens _lparsResponseStatus (\ s a -> s{_lparsResponseStatus = a});+lparsResponseStatus = lens _lparsResponseStatus (\ s a -> s{_lparsResponseStatus = a})  instance NFData ListPortfolioAccessResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.ServiceCatalog.ListPortfolios--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -21,6 +21,8 @@ -- Lists all portfolios in the catalog. -- --+--+-- This operation returns paginated results. module Network.AWS.ServiceCatalog.ListPortfolios     (     -- * Creating a Request@@ -41,6 +43,7 @@     ) where  import Network.AWS.Lens+import Network.AWS.Pager import Network.AWS.Prelude import Network.AWS.Request import Network.AWS.Response@@ -61,28 +64,35 @@ -- -- * '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@ .+-- * 'lpPageToken' - The page token for the next set of results. To retrieve the first set of results, use null. ----- * 'lpPageSize' - 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.+-- * 'lpPageSize' - The maximum number of items to return with this call. listPortfolios     :: ListPortfolios listPortfolios =   ListPortfolios'-  {_lpAcceptLanguage = Nothing, _lpPageToken = Nothing, _lpPageSize = Nothing}+    {_lpAcceptLanguage = Nothing, _lpPageToken = Nothing, _lpPageSize = Nothing}   -- | The language code.     * @en@ - English (default)     * @jp@ - Japanese     * @zh@ - Chinese lpAcceptLanguage :: Lens' ListPortfolios (Maybe Text)-lpAcceptLanguage = lens _lpAcceptLanguage (\ s a -> s{_lpAcceptLanguage = a});+lpAcceptLanguage = lens _lpAcceptLanguage (\ s a -> s{_lpAcceptLanguage = a}) --- | The page token of the first page retrieved. If null, this retrieves the first page of size @PageSize@ .+-- | The page token for the next set of results. To retrieve the first set of results, use null. lpPageToken :: Lens' ListPortfolios (Maybe Text)-lpPageToken = lens _lpPageToken (\ s a -> s{_lpPageToken = a});+lpPageToken = lens _lpPageToken (\ s a -> s{_lpPageToken = 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.+-- | The maximum number of items to return with this call. lpPageSize :: Lens' ListPortfolios (Maybe Natural)-lpPageSize = lens _lpPageSize (\ s a -> s{_lpPageSize = a}) . mapping _Nat;+lpPageSize = lens _lpPageSize (\ s a -> s{_lpPageSize = a}) . mapping _Nat +instance AWSPager ListPortfolios where+        page rq rs+          | stop (rs ^. lprsNextPageToken) = Nothing+          | stop (rs ^. lprsPortfolioDetails) = Nothing+          | otherwise =+            Just $ rq & lpPageToken .~ rs ^. lprsNextPageToken+ instance AWSRequest ListPortfolios where         type Rs ListPortfolios = ListPortfoliosResponse         request = postJSON serviceCatalog@@ -134,9 +144,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'lprsNextPageToken' - 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' - The page token to use to retrieve the next set of results. If there are no additional results, this value is null. ----- * 'lprsPortfolioDetails' - List of detailed portfolio information objects.+-- * 'lprsPortfolioDetails' - Information about the portfolios. -- -- * 'lprsResponseStatus' - -- | The response status code. listPortfoliosResponse@@ -144,22 +154,22 @@     -> ListPortfoliosResponse listPortfoliosResponse pResponseStatus_ =   ListPortfoliosResponse'-  { _lprsNextPageToken = Nothing-  , _lprsPortfolioDetails = Nothing-  , _lprsResponseStatus = pResponseStatus_-  }+    { _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.+-- | The page token to use to retrieve the next set of results. If there are no additional results, this value is null. lprsNextPageToken :: Lens' ListPortfoliosResponse (Maybe Text)-lprsNextPageToken = lens _lprsNextPageToken (\ s a -> s{_lprsNextPageToken = a});+lprsNextPageToken = lens _lprsNextPageToken (\ s a -> s{_lprsNextPageToken = a}) --- | List of detailed portfolio information objects.+-- | Information about the portfolios. lprsPortfolioDetails :: Lens' ListPortfoliosResponse [PortfolioDetail]-lprsPortfolioDetails = lens _lprsPortfolioDetails (\ s a -> s{_lprsPortfolioDetails = a}) . _Default . _Coerce;+lprsPortfolioDetails = lens _lprsPortfolioDetails (\ s a -> s{_lprsPortfolioDetails = a}) . _Default . _Coerce  -- | -- | The response status code. lprsResponseStatus :: Lens' ListPortfoliosResponse Int-lprsResponseStatus = lens _lprsResponseStatus (\ s a -> s{_lprsResponseStatus = a});+lprsResponseStatus = lens _lprsResponseStatus (\ s a -> s{_lprsResponseStatus = a})  instance NFData ListPortfoliosResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.ServiceCatalog.ListPortfoliosForProduct--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -21,6 +21,8 @@ -- Lists all portfolios that the specified product is associated with. -- --+--+-- This operation returns paginated results. module Network.AWS.ServiceCatalog.ListPortfoliosForProduct     (     -- * Creating a Request@@ -42,6 +44,7 @@     ) where  import Network.AWS.Lens+import Network.AWS.Pager import Network.AWS.Prelude import Network.AWS.Request import Network.AWS.Response@@ -63,9 +66,9 @@ -- -- * '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@ .+-- * 'lisPageToken' - The page token for the next set of results. To retrieve the first set of results, use null. ----- * 'lisPageSize' - 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.+-- * 'lisPageSize' - The maximum number of items to return with this call. -- -- * 'lisProductId' - The product identifier. listPortfoliosForProduct@@ -73,29 +76,36 @@     -> ListPortfoliosForProduct listPortfoliosForProduct pProductId_ =   ListPortfoliosForProduct'-  { _lisAcceptLanguage = Nothing-  , _lisPageToken = Nothing-  , _lisPageSize = Nothing-  , _lisProductId = pProductId_-  }+    { _lisAcceptLanguage = Nothing+    , _lisPageToken = Nothing+    , _lisPageSize = Nothing+    , _lisProductId = pProductId_+    }   -- | The language code.     * @en@ - English (default)     * @jp@ - Japanese     * @zh@ - Chinese lisAcceptLanguage :: Lens' ListPortfoliosForProduct (Maybe Text)-lisAcceptLanguage = lens _lisAcceptLanguage (\ s a -> s{_lisAcceptLanguage = a});+lisAcceptLanguage = lens _lisAcceptLanguage (\ s a -> s{_lisAcceptLanguage = a}) --- | The page token of the first page retrieved. If null, this retrieves the first page of size @PageSize@ .+-- | The page token for the next set of results. To retrieve the first set of results, use null. lisPageToken :: Lens' ListPortfoliosForProduct (Maybe Text)-lisPageToken = lens _lisPageToken (\ s a -> s{_lisPageToken = a});+lisPageToken = lens _lisPageToken (\ s a -> s{_lisPageToken = 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.+-- | The maximum number of items to return with this call. lisPageSize :: Lens' ListPortfoliosForProduct (Maybe Natural)-lisPageSize = lens _lisPageSize (\ s a -> s{_lisPageSize = a}) . mapping _Nat;+lisPageSize = lens _lisPageSize (\ s a -> s{_lisPageSize = a}) . mapping _Nat  -- | The product identifier. lisProductId :: Lens' ListPortfoliosForProduct Text-lisProductId = lens _lisProductId (\ s a -> s{_lisProductId = a});+lisProductId = lens _lisProductId (\ s a -> s{_lisProductId = a}) +instance AWSPager ListPortfoliosForProduct where+        page rq rs+          | stop (rs ^. lpfprsNextPageToken) = Nothing+          | stop (rs ^. lpfprsPortfolioDetails) = Nothing+          | otherwise =+            Just $ rq & lisPageToken .~ rs ^. lpfprsNextPageToken+ instance AWSRequest ListPortfoliosForProduct where         type Rs ListPortfoliosForProduct =              ListPortfoliosForProductResponse@@ -149,9 +159,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'lpfprsNextPageToken' - 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' - The page token to use to retrieve the next set of results. If there are no additional results, this value is null. ----- * 'lpfprsPortfolioDetails' - List of detailed portfolio information objects.+-- * 'lpfprsPortfolioDetails' - Information about the portfolios. -- -- * 'lpfprsResponseStatus' - -- | The response status code. listPortfoliosForProductResponse@@ -159,23 +169,23 @@     -> ListPortfoliosForProductResponse listPortfoliosForProductResponse pResponseStatus_ =   ListPortfoliosForProductResponse'-  { _lpfprsNextPageToken = Nothing-  , _lpfprsPortfolioDetails = Nothing-  , _lpfprsResponseStatus = pResponseStatus_-  }+    { _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.+-- | The page token to use to retrieve the next set of results. If there are no additional results, this value is null. lpfprsNextPageToken :: Lens' ListPortfoliosForProductResponse (Maybe Text)-lpfprsNextPageToken = lens _lpfprsNextPageToken (\ s a -> s{_lpfprsNextPageToken = a});+lpfprsNextPageToken = lens _lpfprsNextPageToken (\ s a -> s{_lpfprsNextPageToken = a}) --- | List of detailed portfolio information objects.+-- | Information about the portfolios. lpfprsPortfolioDetails :: Lens' ListPortfoliosForProductResponse [PortfolioDetail]-lpfprsPortfolioDetails = lens _lpfprsPortfolioDetails (\ s a -> s{_lpfprsPortfolioDetails = a}) . _Default . _Coerce;+lpfprsPortfolioDetails = lens _lpfprsPortfolioDetails (\ s a -> s{_lpfprsPortfolioDetails = a}) . _Default . _Coerce  -- | -- | The response status code. lpfprsResponseStatus :: Lens' ListPortfoliosForProductResponse Int-lpfprsResponseStatus = lens _lpfprsResponseStatus (\ s a -> s{_lpfprsResponseStatus = a});+lpfprsResponseStatus = lens _lpfprsResponseStatus (\ s a -> s{_lpfprsResponseStatus = a})  instance NFData ListPortfoliosForProductResponse          where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.ServiceCatalog.ListPrincipalsForPortfolio--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -21,6 +21,8 @@ -- Lists all principal ARNs associated with the specified portfolio. -- --+--+-- This operation returns paginated results. module Network.AWS.ServiceCatalog.ListPrincipalsForPortfolio     (     -- * Creating a Request@@ -42,6 +44,7 @@     ) where  import Network.AWS.Lens+import Network.AWS.Pager import Network.AWS.Prelude import Network.AWS.Request import Network.AWS.Response@@ -63,9 +66,9 @@ -- -- * '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@ .+-- * 'lpfpPageToken' - The page token for the next set of results. To retrieve the first set of results, use null. ----- * 'lpfpPageSize' - 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.+-- * 'lpfpPageSize' - The maximum number of items to return with this call. -- -- * 'lpfpPortfolioId' - The portfolio identifier. listPrincipalsForPortfolio@@ -73,29 +76,36 @@     -> ListPrincipalsForPortfolio listPrincipalsForPortfolio pPortfolioId_ =   ListPrincipalsForPortfolio'-  { _lpfpAcceptLanguage = Nothing-  , _lpfpPageToken = Nothing-  , _lpfpPageSize = Nothing-  , _lpfpPortfolioId = pPortfolioId_-  }+    { _lpfpAcceptLanguage = Nothing+    , _lpfpPageToken = Nothing+    , _lpfpPageSize = Nothing+    , _lpfpPortfolioId = pPortfolioId_+    }   -- | The language code.     * @en@ - English (default)     * @jp@ - Japanese     * @zh@ - Chinese lpfpAcceptLanguage :: Lens' ListPrincipalsForPortfolio (Maybe Text)-lpfpAcceptLanguage = lens _lpfpAcceptLanguage (\ s a -> s{_lpfpAcceptLanguage = a});+lpfpAcceptLanguage = lens _lpfpAcceptLanguage (\ s a -> s{_lpfpAcceptLanguage = a}) --- | The page token of the first page retrieved. If null, this retrieves the first page of size @PageSize@ .+-- | The page token for the next set of results. To retrieve the first set of results, use null. lpfpPageToken :: Lens' ListPrincipalsForPortfolio (Maybe Text)-lpfpPageToken = lens _lpfpPageToken (\ s a -> s{_lpfpPageToken = a});+lpfpPageToken = lens _lpfpPageToken (\ s a -> s{_lpfpPageToken = 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.+-- | The maximum number of items to return with this call. lpfpPageSize :: Lens' ListPrincipalsForPortfolio (Maybe Natural)-lpfpPageSize = lens _lpfpPageSize (\ s a -> s{_lpfpPageSize = a}) . mapping _Nat;+lpfpPageSize = lens _lpfpPageSize (\ s a -> s{_lpfpPageSize = a}) . mapping _Nat  -- | The portfolio identifier. lpfpPortfolioId :: Lens' ListPrincipalsForPortfolio Text-lpfpPortfolioId = lens _lpfpPortfolioId (\ s a -> s{_lpfpPortfolioId = a});+lpfpPortfolioId = lens _lpfpPortfolioId (\ s a -> s{_lpfpPortfolioId = a}) +instance AWSPager ListPrincipalsForPortfolio where+        page rq rs+          | stop (rs ^. lisrsNextPageToken) = Nothing+          | stop (rs ^. lisrsPrincipals) = Nothing+          | otherwise =+            Just $ rq & lpfpPageToken .~ rs ^. lisrsNextPageToken+ instance AWSRequest ListPrincipalsForPortfolio where         type Rs ListPrincipalsForPortfolio =              ListPrincipalsForPortfolioResponse@@ -149,7 +159,7 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'lisrsNextPageToken' - 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' - The page token to use to retrieve the next set of results. If there are no additional results, this value is null. -- -- * 'lisrsPrincipals' - The IAM principals (users or roles) associated with the portfolio. --@@ -159,23 +169,23 @@     -> ListPrincipalsForPortfolioResponse listPrincipalsForPortfolioResponse pResponseStatus_ =   ListPrincipalsForPortfolioResponse'-  { _lisrsNextPageToken = Nothing-  , _lisrsPrincipals = Nothing-  , _lisrsResponseStatus = pResponseStatus_-  }+    { _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.+-- | The page token to use to retrieve the next set of results. If there are no additional results, this value is null. lisrsNextPageToken :: Lens' ListPrincipalsForPortfolioResponse (Maybe Text)-lisrsNextPageToken = lens _lisrsNextPageToken (\ s a -> s{_lisrsNextPageToken = a});+lisrsNextPageToken = lens _lisrsNextPageToken (\ s a -> s{_lisrsNextPageToken = a})  -- | The IAM principals (users or roles) associated with the portfolio. lisrsPrincipals :: Lens' ListPrincipalsForPortfolioResponse [Principal]-lisrsPrincipals = lens _lisrsPrincipals (\ s a -> s{_lisrsPrincipals = a}) . _Default . _Coerce;+lisrsPrincipals = lens _lisrsPrincipals (\ s a -> s{_lisrsPrincipals = a}) . _Default . _Coerce  -- | -- | The response status code. lisrsResponseStatus :: Lens' ListPrincipalsForPortfolioResponse Int-lisrsResponseStatus = lens _lisrsResponseStatus (\ s a -> s{_lisrsResponseStatus = a});+lisrsResponseStatus = lens _lisrsResponseStatus (\ s a -> s{_lisrsResponseStatus = a})  instance NFData ListPrincipalsForPortfolioResponse          where

@@ -0,0 +1,191 @@+{-# 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.ListProvisionedProductPlans+-- Copyright   : (c) 2013-2018 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Lists the plans for the specified provisioned product or all plans to which the user has access.+--+--+module Network.AWS.ServiceCatalog.ListProvisionedProductPlans+    (+    -- * Creating a Request+      listProvisionedProductPlans+    , ListProvisionedProductPlans+    -- * Request Lenses+    , lpppProvisionProductId+    , lpppAcceptLanguage+    , lpppAccessLevelFilter+    , lpppPageToken+    , lpppPageSize++    -- * Destructuring the Response+    , listProvisionedProductPlansResponse+    , ListProvisionedProductPlansResponse+    -- * Response Lenses+    , lppprsNextPageToken+    , lppprsProvisionedProductPlans+    , lppprsResponseStatus+    ) 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:/ 'listProvisionedProductPlans' smart constructor.+data ListProvisionedProductPlans = ListProvisionedProductPlans'+  { _lpppProvisionProductId :: !(Maybe Text)+  , _lpppAcceptLanguage     :: !(Maybe Text)+  , _lpppAccessLevelFilter  :: !(Maybe AccessLevelFilter)+  , _lpppPageToken          :: !(Maybe Text)+  , _lpppPageSize           :: !(Maybe Nat)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'ListProvisionedProductPlans' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'lpppProvisionProductId' - The product identifier.+--+-- * 'lpppAcceptLanguage' - The language code.     * @en@ - English (default)     * @jp@ - Japanese     * @zh@ - Chinese+--+-- * 'lpppAccessLevelFilter' - The access level to use to obtain results. The default is @User@ .+--+-- * 'lpppPageToken' - The page token for the next set of results. To retrieve the first set of results, use null.+--+-- * 'lpppPageSize' - The maximum number of items to return with this call.+listProvisionedProductPlans+    :: ListProvisionedProductPlans+listProvisionedProductPlans =+  ListProvisionedProductPlans'+    { _lpppProvisionProductId = Nothing+    , _lpppAcceptLanguage = Nothing+    , _lpppAccessLevelFilter = Nothing+    , _lpppPageToken = Nothing+    , _lpppPageSize = Nothing+    }+++-- | The product identifier.+lpppProvisionProductId :: Lens' ListProvisionedProductPlans (Maybe Text)+lpppProvisionProductId = lens _lpppProvisionProductId (\ s a -> s{_lpppProvisionProductId = a})++-- | The language code.     * @en@ - English (default)     * @jp@ - Japanese     * @zh@ - Chinese+lpppAcceptLanguage :: Lens' ListProvisionedProductPlans (Maybe Text)+lpppAcceptLanguage = lens _lpppAcceptLanguage (\ s a -> s{_lpppAcceptLanguage = a})++-- | The access level to use to obtain results. The default is @User@ .+lpppAccessLevelFilter :: Lens' ListProvisionedProductPlans (Maybe AccessLevelFilter)+lpppAccessLevelFilter = lens _lpppAccessLevelFilter (\ s a -> s{_lpppAccessLevelFilter = a})++-- | The page token for the next set of results. To retrieve the first set of results, use null.+lpppPageToken :: Lens' ListProvisionedProductPlans (Maybe Text)+lpppPageToken = lens _lpppPageToken (\ s a -> s{_lpppPageToken = a})++-- | The maximum number of items to return with this call.+lpppPageSize :: Lens' ListProvisionedProductPlans (Maybe Natural)+lpppPageSize = lens _lpppPageSize (\ s a -> s{_lpppPageSize = a}) . mapping _Nat++instance AWSRequest ListProvisionedProductPlans where+        type Rs ListProvisionedProductPlans =+             ListProvisionedProductPlansResponse+        request = postJSON serviceCatalog+        response+          = receiveJSON+              (\ s h x ->+                 ListProvisionedProductPlansResponse' <$>+                   (x .?> "NextPageToken") <*>+                     (x .?> "ProvisionedProductPlans" .!@ mempty)+                     <*> (pure (fromEnum s)))++instance Hashable ListProvisionedProductPlans where++instance NFData ListProvisionedProductPlans where++instance ToHeaders ListProvisionedProductPlans where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("AWS242ServiceCatalogService.ListProvisionedProductPlans"+                       :: ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON ListProvisionedProductPlans where+        toJSON ListProvisionedProductPlans'{..}+          = object+              (catMaybes+                 [("ProvisionProductId" .=) <$>+                    _lpppProvisionProductId,+                  ("AcceptLanguage" .=) <$> _lpppAcceptLanguage,+                  ("AccessLevelFilter" .=) <$> _lpppAccessLevelFilter,+                  ("PageToken" .=) <$> _lpppPageToken,+                  ("PageSize" .=) <$> _lpppPageSize])++instance ToPath ListProvisionedProductPlans where+        toPath = const "/"++instance ToQuery ListProvisionedProductPlans where+        toQuery = const mempty++-- | /See:/ 'listProvisionedProductPlansResponse' smart constructor.+data ListProvisionedProductPlansResponse = ListProvisionedProductPlansResponse'+  { _lppprsNextPageToken           :: !(Maybe Text)+  , _lppprsProvisionedProductPlans :: !(Maybe [ProvisionedProductPlanSummary])+  , _lppprsResponseStatus          :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'ListProvisionedProductPlansResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'lppprsNextPageToken' - The page token to use to retrieve the next set of results. If there are no additional results, this value is null.+--+-- * 'lppprsProvisionedProductPlans' - Information about the plans.+--+-- * 'lppprsResponseStatus' - -- | The response status code.+listProvisionedProductPlansResponse+    :: Int -- ^ 'lppprsResponseStatus'+    -> ListProvisionedProductPlansResponse+listProvisionedProductPlansResponse pResponseStatus_ =+  ListProvisionedProductPlansResponse'+    { _lppprsNextPageToken = Nothing+    , _lppprsProvisionedProductPlans = Nothing+    , _lppprsResponseStatus = pResponseStatus_+    }+++-- | The page token to use to retrieve the next set of results. If there are no additional results, this value is null.+lppprsNextPageToken :: Lens' ListProvisionedProductPlansResponse (Maybe Text)+lppprsNextPageToken = lens _lppprsNextPageToken (\ s a -> s{_lppprsNextPageToken = a})++-- | Information about the plans.+lppprsProvisionedProductPlans :: Lens' ListProvisionedProductPlansResponse [ProvisionedProductPlanSummary]+lppprsProvisionedProductPlans = lens _lppprsProvisionedProductPlans (\ s a -> s{_lppprsProvisionedProductPlans = a}) . _Default . _Coerce++-- | -- | The response status code.+lppprsResponseStatus :: Lens' ListProvisionedProductPlansResponse Int+lppprsResponseStatus = lens _lppprsResponseStatus (\ s a -> s{_lppprsResponseStatus = a})++instance NFData ListProvisionedProductPlansResponse+         where

@@ -12,13 +12,13 @@  -- | -- Module      : Network.AWS.ServiceCatalog.ListProvisioningArtifacts--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Lists all provisioning artifacts associated with the specified product.+-- Lists all provisioning artifacts (also known as versions) for the specified product. -- -- module Network.AWS.ServiceCatalog.ListProvisioningArtifacts@@ -65,16 +65,16 @@     -> ListProvisioningArtifacts listProvisioningArtifacts pProductId_ =   ListProvisioningArtifacts'-  {_lpaAcceptLanguage = Nothing, _lpaProductId = pProductId_}+    {_lpaAcceptLanguage = Nothing, _lpaProductId = pProductId_}   -- | The language code.     * @en@ - English (default)     * @jp@ - Japanese     * @zh@ - Chinese lpaAcceptLanguage :: Lens' ListProvisioningArtifacts (Maybe Text)-lpaAcceptLanguage = lens _lpaAcceptLanguage (\ s a -> s{_lpaAcceptLanguage = a});+lpaAcceptLanguage = lens _lpaAcceptLanguage (\ s a -> s{_lpaAcceptLanguage = a})  -- | The product identifier. lpaProductId :: Lens' ListProvisioningArtifacts Text-lpaProductId = lens _lpaProductId (\ s a -> s{_lpaProductId = a});+lpaProductId = lens _lpaProductId (\ s a -> s{_lpaProductId = a})  instance AWSRequest ListProvisioningArtifacts where         type Rs ListProvisioningArtifacts =@@ -127,9 +127,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'lrsNextPageToken' - 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' - The page token to use to retrieve the next set of results. If there are no additional results, this value is null. ----- * 'lrsProvisioningArtifactDetails' - List of detailed provisioning artifact information objects.+-- * 'lrsProvisioningArtifactDetails' - Information about the provisioning artifacts. -- -- * 'lrsResponseStatus' - -- | The response status code. listProvisioningArtifactsResponse@@ -137,23 +137,23 @@     -> ListProvisioningArtifactsResponse listProvisioningArtifactsResponse pResponseStatus_ =   ListProvisioningArtifactsResponse'-  { _lrsNextPageToken = Nothing-  , _lrsProvisioningArtifactDetails = Nothing-  , _lrsResponseStatus = pResponseStatus_-  }+    { _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.+-- | The page token to use to retrieve the next set of results. If there are no additional results, this value is null. lrsNextPageToken :: Lens' ListProvisioningArtifactsResponse (Maybe Text)-lrsNextPageToken = lens _lrsNextPageToken (\ s a -> s{_lrsNextPageToken = a});+lrsNextPageToken = lens _lrsNextPageToken (\ s a -> s{_lrsNextPageToken = a}) --- | List of detailed provisioning artifact information objects.+-- | Information about the provisioning artifacts. lrsProvisioningArtifactDetails :: Lens' ListProvisioningArtifactsResponse [ProvisioningArtifactDetail]-lrsProvisioningArtifactDetails = lens _lrsProvisioningArtifactDetails (\ s a -> s{_lrsProvisioningArtifactDetails = a}) . _Default . _Coerce;+lrsProvisioningArtifactDetails = lens _lrsProvisioningArtifactDetails (\ s a -> s{_lrsProvisioningArtifactDetails = a}) . _Default . _Coerce  -- | -- | The response status code. lrsResponseStatus :: Lens' ListProvisioningArtifactsResponse Int-lrsResponseStatus = lens _lrsResponseStatus (\ s a -> s{_lrsResponseStatus = a});+lrsResponseStatus = lens _lrsResponseStatus (\ s a -> s{_lrsResponseStatus = a})  instance NFData ListProvisioningArtifactsResponse          where

@@ -12,13 +12,13 @@  -- | -- Module      : Network.AWS.ServiceCatalog.ListRecordHistory--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Returns a paginated list of all performed requests, in the form of RecordDetails objects that are filtered as specified.+-- Lists the specified requests or all performed requests. -- -- module Network.AWS.ServiceCatalog.ListRecordHistory@@ -63,46 +63,46 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'lrhSearchFilter' - The filter to limit search results.+-- * 'lrhSearchFilter' - The search filter to scope the results. -- -- * '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.+-- * 'lrhAccessLevelFilter' - The access level to use to obtain results. The default is @User@ . ----- * 'lrhPageToken' - The page token of the first page retrieved. If null, this retrieves the first page of size @PageSize@ .+-- * 'lrhPageToken' - The page token for the next set of results. To retrieve the first set of results, use null. ----- * 'lrhPageSize' - 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.+-- * 'lrhPageSize' - The maximum number of items to return with this call. listRecordHistory     :: ListRecordHistory listRecordHistory =   ListRecordHistory'-  { _lrhSearchFilter = Nothing-  , _lrhAcceptLanguage = Nothing-  , _lrhAccessLevelFilter = Nothing-  , _lrhPageToken = Nothing-  , _lrhPageSize = Nothing-  }+    { _lrhSearchFilter = Nothing+    , _lrhAcceptLanguage = Nothing+    , _lrhAccessLevelFilter = Nothing+    , _lrhPageToken = Nothing+    , _lrhPageSize = Nothing+    }  --- | The filter to limit search results.+-- | The search filter to scope the results. lrhSearchFilter :: Lens' ListRecordHistory (Maybe ListRecordHistorySearchFilter)-lrhSearchFilter = lens _lrhSearchFilter (\ s a -> s{_lrhSearchFilter = a});+lrhSearchFilter = lens _lrhSearchFilter (\ s a -> s{_lrhSearchFilter = a})  -- | The language code.     * @en@ - English (default)     * @jp@ - Japanese     * @zh@ - Chinese lrhAcceptLanguage :: Lens' ListRecordHistory (Maybe Text)-lrhAcceptLanguage = lens _lrhAcceptLanguage (\ s a -> s{_lrhAcceptLanguage = a});+lrhAcceptLanguage = lens _lrhAcceptLanguage (\ s a -> s{_lrhAcceptLanguage = a}) --- | The access level for obtaining results. If left unspecified, @User@ level access is used.+-- | The access level to use to obtain results. The default is @User@ . lrhAccessLevelFilter :: Lens' ListRecordHistory (Maybe AccessLevelFilter)-lrhAccessLevelFilter = lens _lrhAccessLevelFilter (\ s a -> s{_lrhAccessLevelFilter = a});+lrhAccessLevelFilter = lens _lrhAccessLevelFilter (\ s a -> s{_lrhAccessLevelFilter = a}) --- | The page token of the first page retrieved. If null, this retrieves the first page of size @PageSize@ .+-- | The page token for the next set of results. To retrieve the first set of results, use null. lrhPageToken :: Lens' ListRecordHistory (Maybe Text)-lrhPageToken = lens _lrhPageToken (\ s a -> s{_lrhPageToken = a});+lrhPageToken = lens _lrhPageToken (\ s a -> s{_lrhPageToken = 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.+-- | The maximum number of items to return with this call. lrhPageSize :: Lens' ListRecordHistory (Maybe Natural)-lrhPageSize = lens _lrhPageSize (\ s a -> s{_lrhPageSize = a}) . mapping _Nat;+lrhPageSize = lens _lrhPageSize (\ s a -> s{_lrhPageSize = a}) . mapping _Nat  instance AWSRequest ListRecordHistory where         type Rs ListRecordHistory = ListRecordHistoryResponse@@ -157,9 +157,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'lrhrsNextPageToken' - 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' - The page token to use to retrieve the next set of results. If there are no additional results, this value is null. ----- * 'lrhrsRecordDetails' - A list of record detail objects, listed in reverse chronological order.+-- * 'lrhrsRecordDetails' - The records, in reverse chronological order. -- -- * 'lrhrsResponseStatus' - -- | The response status code. listRecordHistoryResponse@@ -167,22 +167,22 @@     -> ListRecordHistoryResponse listRecordHistoryResponse pResponseStatus_ =   ListRecordHistoryResponse'-  { _lrhrsNextPageToken = Nothing-  , _lrhrsRecordDetails = Nothing-  , _lrhrsResponseStatus = pResponseStatus_-  }+    { _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.+-- | The page token to use to retrieve the next set of results. If there are no additional results, this value is null. lrhrsNextPageToken :: Lens' ListRecordHistoryResponse (Maybe Text)-lrhrsNextPageToken = lens _lrhrsNextPageToken (\ s a -> s{_lrhrsNextPageToken = a});+lrhrsNextPageToken = lens _lrhrsNextPageToken (\ s a -> s{_lrhrsNextPageToken = a}) --- | A list of record detail objects, listed in reverse chronological order.+-- | The records, in reverse chronological order. lrhrsRecordDetails :: Lens' ListRecordHistoryResponse [RecordDetail]-lrhrsRecordDetails = lens _lrhrsRecordDetails (\ s a -> s{_lrhrsRecordDetails = a}) . _Default . _Coerce;+lrhrsRecordDetails = lens _lrhrsRecordDetails (\ s a -> s{_lrhrsRecordDetails = a}) . _Default . _Coerce  -- | -- | The response status code. lrhrsResponseStatus :: Lens' ListRecordHistoryResponse Int-lrhrsResponseStatus = lens _lrhrsResponseStatus (\ s a -> s{_lrhrsResponseStatus = a});+lrhrsResponseStatus = lens _lrhrsResponseStatus (\ s a -> s{_lrhrsResponseStatus = a})  instance NFData ListRecordHistoryResponse where

@@ -12,15 +12,17 @@  -- | -- Module      : Network.AWS.ServiceCatalog.ListResourcesForTagOption--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Lists resources associated with a TagOption.+-- Lists the resources associated with the specified TagOption. -- --+--+-- This operation returns paginated results. module Network.AWS.ServiceCatalog.ListResourcesForTagOption     (     -- * Creating a Request@@ -42,6 +44,7 @@     ) where  import Network.AWS.Lens+import Network.AWS.Pager import Network.AWS.Prelude import Network.AWS.Request import Network.AWS.Response@@ -61,41 +64,48 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'lrftoResourceType' - Resource type.+-- * 'lrftoResourceType' - The resource type.     * @Portfolio@      * @Product@ ----- * 'lrftoPageToken' - The page token of the first page retrieved. If null, this retrieves the first page of size @PageSize@ .+-- * 'lrftoPageToken' - The page token for the next set of results. To retrieve the first set of results, use null. ----- * '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.+-- * 'lrftoPageSize' - The maximum number of items to return with this call. ----- * 'lrftoTagOptionId' - Identifier of the TagOption.+-- * 'lrftoTagOptionId' - The TagOption identifier. listResourcesForTagOption     :: Text -- ^ 'lrftoTagOptionId'     -> ListResourcesForTagOption listResourcesForTagOption pTagOptionId_ =   ListResourcesForTagOption'-  { _lrftoResourceType = Nothing-  , _lrftoPageToken = Nothing-  , _lrftoPageSize = Nothing-  , _lrftoTagOptionId = pTagOptionId_-  }+    { _lrftoResourceType = Nothing+    , _lrftoPageToken = Nothing+    , _lrftoPageSize = Nothing+    , _lrftoTagOptionId = pTagOptionId_+    }  --- | Resource type.+-- | The resource type.     * @Portfolio@      * @Product@ lrftoResourceType :: Lens' ListResourcesForTagOption (Maybe Text)-lrftoResourceType = lens _lrftoResourceType (\ s a -> s{_lrftoResourceType = a});+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@ .+-- | The page token for the next set of results. To retrieve the first set of results, use null. lrftoPageToken :: Lens' ListResourcesForTagOption (Maybe Text)-lrftoPageToken = lens _lrftoPageToken (\ s a -> s{_lrftoPageToken = a});+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.+-- | The maximum number of items to return with this call. lrftoPageSize :: Lens' ListResourcesForTagOption (Maybe Natural)-lrftoPageSize = lens _lrftoPageSize (\ s a -> s{_lrftoPageSize = a}) . mapping _Nat;+lrftoPageSize = lens _lrftoPageSize (\ s a -> s{_lrftoPageSize = a}) . mapping _Nat --- | Identifier of the TagOption.+-- | The TagOption identifier. lrftoTagOptionId :: Lens' ListResourcesForTagOption Text-lrftoTagOptionId = lens _lrftoTagOptionId (\ s a -> s{_lrftoTagOptionId = a});+lrftoTagOptionId = lens _lrftoTagOptionId (\ s a -> s{_lrftoTagOptionId = a}) +instance AWSPager ListResourcesForTagOption where+        page rq rs+          | stop (rs ^. lrftorsPageToken) = Nothing+          | stop (rs ^. lrftorsResourceDetails) = Nothing+          | otherwise =+            Just $ rq & lrftoPageToken .~ rs ^. lrftorsPageToken+ instance AWSRequest ListResourcesForTagOption where         type Rs ListResourcesForTagOption =              ListResourcesForTagOptionResponse@@ -149,9 +159,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'lrftorsResourceDetails' - The resulting detailed resource information.+-- * 'lrftorsResourceDetails' - Information about the resources. ----- * 'lrftorsPageToken' - The page token of the first page retrieved. If null, this retrieves the first page of size @PageSize@ .+-- * 'lrftorsPageToken' - The page token for the next set of results. To retrieve the first set of results, use null. -- -- * 'lrftorsResponseStatus' - -- | The response status code. listResourcesForTagOptionResponse@@ -159,23 +169,23 @@     -> ListResourcesForTagOptionResponse listResourcesForTagOptionResponse pResponseStatus_ =   ListResourcesForTagOptionResponse'-  { _lrftorsResourceDetails = Nothing-  , _lrftorsPageToken = Nothing-  , _lrftorsResponseStatus = pResponseStatus_-  }+    { _lrftorsResourceDetails = Nothing+    , _lrftorsPageToken = Nothing+    , _lrftorsResponseStatus = pResponseStatus_+    }  --- | The resulting detailed resource information.+-- | Information about the resources. lrftorsResourceDetails :: Lens' ListResourcesForTagOptionResponse [ResourceDetail]-lrftorsResourceDetails = lens _lrftorsResourceDetails (\ s a -> s{_lrftorsResourceDetails = a}) . _Default . _Coerce;+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@ .+-- | The page token for the next set of results. To retrieve the first set of results, use null. lrftorsPageToken :: Lens' ListResourcesForTagOptionResponse (Maybe Text)-lrftorsPageToken = lens _lrftorsPageToken (\ s a -> s{_lrftorsPageToken = a});+lrftorsPageToken = lens _lrftorsPageToken (\ s a -> s{_lrftorsPageToken = a})  -- | -- | The response status code. lrftorsResponseStatus :: Lens' ListResourcesForTagOptionResponse Int-lrftorsResponseStatus = lens _lrftorsResponseStatus (\ s a -> s{_lrftorsResponseStatus = a});+lrftorsResponseStatus = lens _lrftorsResponseStatus (\ s a -> s{_lrftorsResponseStatus = a})  instance NFData ListResourcesForTagOptionResponse          where

@@ -12,15 +12,17 @@  -- | -- Module      : Network.AWS.ServiceCatalog.ListTagOptions--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Lists detailed TagOptions information.+-- Lists the specified TagOptions or all TagOptions. -- --+--+-- This operation returns paginated results. module Network.AWS.ServiceCatalog.ListTagOptions     (     -- * Creating a Request@@ -41,6 +43,7 @@     ) where  import Network.AWS.Lens+import Network.AWS.Pager import Network.AWS.Prelude import Network.AWS.Request import Network.AWS.Response@@ -59,30 +62,37 @@ -- -- 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.+-- * 'ltoFilters' - The search filters. If no search filters are specified, the output includes all TagOptions. ----- * 'ltoPageToken' - The page token of the first page retrieved. If null, this retrieves the first page of size @PageSize@ .+-- * 'ltoPageToken' - The page token for the next set of results. To retrieve the first set of results, use null. ----- * '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.+-- * 'ltoPageSize' - The maximum number of items to return with this call. listTagOptions     :: ListTagOptions listTagOptions =   ListTagOptions'-  {_ltoFilters = Nothing, _ltoPageToken = Nothing, _ltoPageSize = Nothing}+    {_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.+-- | The search filters. If no search filters are specified, the output includes all TagOptions. ltoFilters :: Lens' ListTagOptions (Maybe ListTagOptionsFilters)-ltoFilters = lens _ltoFilters (\ s a -> s{_ltoFilters = a});+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@ .+-- | The page token for the next set of results. To retrieve the first set of results, use null. ltoPageToken :: Lens' ListTagOptions (Maybe Text)-ltoPageToken = lens _ltoPageToken (\ s a -> s{_ltoPageToken = a});+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.+-- | The maximum number of items to return with this call. ltoPageSize :: Lens' ListTagOptions (Maybe Natural)-ltoPageSize = lens _ltoPageSize (\ s a -> s{_ltoPageSize = a}) . mapping _Nat;+ltoPageSize = lens _ltoPageSize (\ s a -> s{_ltoPageSize = a}) . mapping _Nat +instance AWSPager ListTagOptions where+        page rq rs+          | stop (rs ^. ltorsPageToken) = Nothing+          | stop (rs ^. ltorsTagOptionDetails) = Nothing+          | otherwise =+            Just $ rq & ltoPageToken .~ rs ^. ltorsPageToken+ instance AWSRequest ListTagOptions where         type Rs ListTagOptions = ListTagOptionsResponse         request = postJSON serviceCatalog@@ -134,9 +144,9 @@ -- -- 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@ .+-- * 'ltorsPageToken' - The page token for the next set of results. To retrieve the first set of results, use null. ----- * 'ltorsTagOptionDetails' - The resulting detailed TagOption information.+-- * 'ltorsTagOptionDetails' - Information about the TagOptions. -- -- * 'ltorsResponseStatus' - -- | The response status code. listTagOptionsResponse@@ -144,22 +154,22 @@     -> ListTagOptionsResponse listTagOptionsResponse pResponseStatus_ =   ListTagOptionsResponse'-  { _ltorsPageToken = Nothing-  , _ltorsTagOptionDetails = Nothing-  , _ltorsResponseStatus = pResponseStatus_-  }+    { _ltorsPageToken = Nothing+    , _ltorsTagOptionDetails = Nothing+    , _ltorsResponseStatus = pResponseStatus_+    }  --- | The page token of the first page retrieved. If null, this retrieves the first page of size @PageSize@ .+-- | The page token for the next set of results. To retrieve the first set of results, use null. ltorsPageToken :: Lens' ListTagOptionsResponse (Maybe Text)-ltorsPageToken = lens _ltorsPageToken (\ s a -> s{_ltorsPageToken = a});+ltorsPageToken = lens _ltorsPageToken (\ s a -> s{_ltorsPageToken = a}) --- | The resulting detailed TagOption information.+-- | Information about the TagOptions. ltorsTagOptionDetails :: Lens' ListTagOptionsResponse [TagOptionDetail]-ltorsTagOptionDetails = lens _ltorsTagOptionDetails (\ s a -> s{_ltorsTagOptionDetails = a}) . _Default . _Coerce;+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});+ltorsResponseStatus = lens _ltorsResponseStatus (\ s a -> s{_ltorsResponseStatus = a})  instance NFData ListTagOptionsResponse where

@@ -12,17 +12,19 @@  -- | -- Module      : Network.AWS.ServiceCatalog.ProvisionProduct--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- 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.+-- Provisions the specified product. -- ----- 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' .+-- A provisioned product is a resourced instance of a product. For example, provisioning a product based on a CloudFormation template launches a CloudFormation stack and its underlying resources. You can check the status of this request using 'DescribeRecord' . --+-- If the request contains a tag key with an empty list of values, there is a tag conflict for that key. Do not include conflicted keys as tags, or this causes the error "Parameter validation failed: Missing required parameter in Tags[/N/ ]:/Value/ ".+-- module Network.AWS.ServiceCatalog.ProvisionProduct     (     -- * Creating a Request@@ -76,17 +78,17 @@ -- -- * '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.+-- * 'ppPathId' - The path identifier of the product. This value is optional if the product has a default path, and required if the product has more than one path. To list the paths for a product, use 'ListLaunchPaths' . -- -- * 'ppProvisioningParameters' - Parameters specified by the administrator that are required for provisioning the product. ----- * 'ppTags' - A list of tags to use as provisioning options.+-- * 'ppTags' - One or more tags. -- -- * 'ppProductId' - The product identifier. ----- * 'ppProvisioningArtifactId' - The provisioning artifact identifier for this product. This is sometimes referred to as the product version.+-- * 'ppProvisioningArtifactId' - The identifier of the provisioning artifact. ----- * '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.+-- * 'ppProvisionedProductName' - A user-friendly name for the provisioned product. This value must be unique for the AWS account and cannot be updated after the product is provisioned. -- -- * 'ppProvisionToken' - An idempotency token that uniquely identifies the provisioning request. provisionProduct@@ -97,53 +99,53 @@     -> 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_-  }+    { _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;+ppNotificationARNs = lens _ppNotificationARNs (\ s a -> s{_ppNotificationARNs = a}) . _Default . _Coerce  -- | The language code.     * @en@ - English (default)     * @jp@ - Japanese     * @zh@ - Chinese ppAcceptLanguage :: Lens' ProvisionProduct (Maybe Text)-ppAcceptLanguage = lens _ppAcceptLanguage (\ s a -> s{_ppAcceptLanguage = a});+ppAcceptLanguage = lens _ppAcceptLanguage (\ s a -> s{_ppAcceptLanguage = a}) --- | 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.+-- | The path identifier of the product. This value is optional if the product has a default path, and required if the product has more than one path. To list the paths for a product, use 'ListLaunchPaths' . ppPathId :: Lens' ProvisionProduct (Maybe Text)-ppPathId = lens _ppPathId (\ s a -> s{_ppPathId = a});+ppPathId = lens _ppPathId (\ s a -> s{_ppPathId = a})  -- | Parameters specified by the administrator that are required for provisioning the product. ppProvisioningParameters :: Lens' ProvisionProduct [ProvisioningParameter]-ppProvisioningParameters = lens _ppProvisioningParameters (\ s a -> s{_ppProvisioningParameters = a}) . _Default . _Coerce;+ppProvisioningParameters = lens _ppProvisioningParameters (\ s a -> s{_ppProvisioningParameters = a}) . _Default . _Coerce --- | A list of tags to use as provisioning options.+-- | One or more tags. ppTags :: Lens' ProvisionProduct [Tag]-ppTags = lens _ppTags (\ s a -> s{_ppTags = a}) . _Default . _Coerce;+ppTags = lens _ppTags (\ s a -> s{_ppTags = a}) . _Default . _Coerce  -- | The product identifier. ppProductId :: Lens' ProvisionProduct Text-ppProductId = lens _ppProductId (\ s a -> s{_ppProductId = a});+ppProductId = lens _ppProductId (\ s a -> s{_ppProductId = a}) --- | The provisioning artifact identifier for this product. This is sometimes referred to as the product version.+-- | The identifier of the provisioning artifact. ppProvisioningArtifactId :: Lens' ProvisionProduct Text-ppProvisioningArtifactId = lens _ppProvisioningArtifactId (\ s a -> s{_ppProvisioningArtifactId = a});+ppProvisioningArtifactId = lens _ppProvisioningArtifactId (\ s a -> s{_ppProvisioningArtifactId = a}) --- | 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.+-- | A user-friendly name for the provisioned product. This value must be unique for the AWS account and cannot be updated after the product is provisioned. ppProvisionedProductName :: Lens' ProvisionProduct Text-ppProvisionedProductName = lens _ppProvisionedProductName (\ s a -> s{_ppProvisionedProductName = a});+ppProvisionedProductName = lens _ppProvisionedProductName (\ s a -> s{_ppProvisionedProductName = a})  -- | An idempotency token that uniquely identifies the provisioning request. ppProvisionToken :: Lens' ProvisionProduct Text-ppProvisionToken = lens _ppProvisionToken (\ s a -> s{_ppProvisionToken = a});+ppProvisionToken = lens _ppProvisionToken (\ s a -> s{_ppProvisionToken = a})  instance AWSRequest ProvisionProduct where         type Rs ProvisionProduct = ProvisionProductResponse@@ -204,7 +206,7 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'pprsRecordDetail' - 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' - Information about the result of provisioning the product. -- -- * 'pprsResponseStatus' - -- | The response status code. provisionProductResponse@@ -212,15 +214,15 @@     -> ProvisionProductResponse provisionProductResponse pResponseStatus_ =   ProvisionProductResponse'-  {_pprsRecordDetail = Nothing, _pprsResponseStatus = pResponseStatus_}+    {_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.+-- | Information about the result of provisioning the product. pprsRecordDetail :: Lens' ProvisionProductResponse (Maybe RecordDetail)-pprsRecordDetail = lens _pprsRecordDetail (\ s a -> s{_pprsRecordDetail = a});+pprsRecordDetail = lens _pprsRecordDetail (\ s a -> s{_pprsRecordDetail = a})  -- | -- | The response status code. pprsResponseStatus :: Lens' ProvisionProductResponse Int-pprsResponseStatus = lens _pprsResponseStatus (\ s a -> s{_pprsResponseStatus = a});+pprsResponseStatus = lens _pprsResponseStatus (\ s a -> s{_pprsResponseStatus = a})  instance NFData ProvisionProductResponse where

@@ -12,13 +12,13 @@  -- | -- Module      : Network.AWS.ServiceCatalog.RejectPortfolioShare--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Rejects an offer to share a portfolio.+-- Rejects an offer to share the specified portfolio. -- -- module Network.AWS.ServiceCatalog.RejectPortfolioShare@@ -63,16 +63,16 @@     -> RejectPortfolioShare rejectPortfolioShare pPortfolioId_ =   RejectPortfolioShare'-  {_rpsAcceptLanguage = Nothing, _rpsPortfolioId = pPortfolioId_}+    {_rpsAcceptLanguage = Nothing, _rpsPortfolioId = pPortfolioId_}   -- | The language code.     * @en@ - English (default)     * @jp@ - Japanese     * @zh@ - Chinese rpsAcceptLanguage :: Lens' RejectPortfolioShare (Maybe Text)-rpsAcceptLanguage = lens _rpsAcceptLanguage (\ s a -> s{_rpsAcceptLanguage = a});+rpsAcceptLanguage = lens _rpsAcceptLanguage (\ s a -> s{_rpsAcceptLanguage = a})  -- | The portfolio identifier. rpsPortfolioId :: Lens' RejectPortfolioShare Text-rpsPortfolioId = lens _rpsPortfolioId (\ s a -> s{_rpsPortfolioId = a});+rpsPortfolioId = lens _rpsPortfolioId (\ s a -> s{_rpsPortfolioId = a})  instance AWSRequest RejectPortfolioShare where         type Rs RejectPortfolioShare =@@ -131,6 +131,6 @@  -- | -- | The response status code. rpsrsResponseStatus :: Lens' RejectPortfolioShareResponse Int-rpsrsResponseStatus = lens _rpsrsResponseStatus (\ s a -> s{_rpsrsResponseStatus = a});+rpsrsResponseStatus = lens _rpsrsResponseStatus (\ s a -> s{_rpsrsResponseStatus = a})  instance NFData RejectPortfolioShareResponse where

@@ -12,25 +12,27 @@  -- | -- Module      : Network.AWS.ServiceCatalog.ScanProvisionedProducts--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Returns a paginated list of all the ProvisionedProduct objects that are currently available (not terminated).+-- Lists the provisioned products that are available (not terminated). -- --+-- To use additional filtering, see 'SearchProvisionedProducts' .+-- module Network.AWS.ServiceCatalog.ScanProvisionedProducts     (     -- * Creating a Request       scanProvisionedProducts     , ScanProvisionedProducts     -- * Request Lenses-    , sppAcceptLanguage-    , sppAccessLevelFilter-    , sppPageToken-    , sppPageSize+    , sAcceptLanguage+    , sAccessLevelFilter+    , sPageToken+    , sPageSize      -- * Destructuring the Response     , scanProvisionedProductsResponse@@ -50,10 +52,10 @@  -- | /See:/ 'scanProvisionedProducts' smart constructor. data ScanProvisionedProducts = ScanProvisionedProducts'-  { _sppAcceptLanguage    :: !(Maybe Text)-  , _sppAccessLevelFilter :: !(Maybe AccessLevelFilter)-  , _sppPageToken         :: !(Maybe Text)-  , _sppPageSize          :: !(Maybe Nat)+  { _sAcceptLanguage    :: !(Maybe Text)+  , _sAccessLevelFilter :: !(Maybe AccessLevelFilter)+  , _sPageToken         :: !(Maybe Text)+  , _sPageSize          :: !(Maybe Nat)   } deriving (Eq, Read, Show, Data, Typeable, Generic)  @@ -61,39 +63,39 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'sppAcceptLanguage' - The language code.     * @en@ - English (default)     * @jp@ - Japanese     * @zh@ - Chinese+-- * 'sAcceptLanguage' - 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.+-- * 'sAccessLevelFilter' - The access level to use to obtain results. The default is @User@ . ----- * 'sppPageToken' - The page token of the first page retrieved. If null, this retrieves the first page of size @PageSize@ .+-- * 'sPageToken' - The page token for the next set of results. To retrieve the first set of results, use null. ----- * 'sppPageSize' - 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.+-- * 'sPageSize' - The maximum number of items to return with this call. scanProvisionedProducts     :: ScanProvisionedProducts scanProvisionedProducts =   ScanProvisionedProducts'-  { _sppAcceptLanguage = Nothing-  , _sppAccessLevelFilter = Nothing-  , _sppPageToken = Nothing-  , _sppPageSize = Nothing-  }+    { _sAcceptLanguage = Nothing+    , _sAccessLevelFilter = Nothing+    , _sPageToken = Nothing+    , _sPageSize = Nothing+    }   -- | The language code.     * @en@ - English (default)     * @jp@ - Japanese     * @zh@ - Chinese-sppAcceptLanguage :: Lens' ScanProvisionedProducts (Maybe Text)-sppAcceptLanguage = lens _sppAcceptLanguage (\ s a -> s{_sppAcceptLanguage = a});+sAcceptLanguage :: Lens' ScanProvisionedProducts (Maybe Text)+sAcceptLanguage = lens _sAcceptLanguage (\ s a -> s{_sAcceptLanguage = a}) --- | The access level for obtaining results. If left unspecified, @User@ level access is used.-sppAccessLevelFilter :: Lens' ScanProvisionedProducts (Maybe AccessLevelFilter)-sppAccessLevelFilter = lens _sppAccessLevelFilter (\ s a -> s{_sppAccessLevelFilter = a});+-- | The access level to use to obtain results. The default is @User@ .+sAccessLevelFilter :: Lens' ScanProvisionedProducts (Maybe AccessLevelFilter)+sAccessLevelFilter = lens _sAccessLevelFilter (\ s a -> s{_sAccessLevelFilter = a}) --- | The page token of the first page retrieved. If null, this retrieves the first page of size @PageSize@ .-sppPageToken :: Lens' ScanProvisionedProducts (Maybe Text)-sppPageToken = lens _sppPageToken (\ s a -> s{_sppPageToken = a});+-- | The page token for the next set of results. To retrieve the first set of results, use null.+sPageToken :: Lens' ScanProvisionedProducts (Maybe Text)+sPageToken = lens _sPageToken (\ s a -> s{_sPageToken = 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.-sppPageSize :: Lens' ScanProvisionedProducts (Maybe Natural)-sppPageSize = lens _sppPageSize (\ s a -> s{_sppPageSize = a}) . mapping _Nat;+-- | The maximum number of items to return with this call.+sPageSize :: Lens' ScanProvisionedProducts (Maybe Natural)+sPageSize = lens _sPageSize (\ s a -> s{_sPageSize = a}) . mapping _Nat  instance AWSRequest ScanProvisionedProducts where         type Rs ScanProvisionedProducts =@@ -125,10 +127,10 @@         toJSON ScanProvisionedProducts'{..}           = object               (catMaybes-                 [("AcceptLanguage" .=) <$> _sppAcceptLanguage,-                  ("AccessLevelFilter" .=) <$> _sppAccessLevelFilter,-                  ("PageToken" .=) <$> _sppPageToken,-                  ("PageSize" .=) <$> _sppPageSize])+                 [("AcceptLanguage" .=) <$> _sAcceptLanguage,+                  ("AccessLevelFilter" .=) <$> _sAccessLevelFilter,+                  ("PageToken" .=) <$> _sPageToken,+                  ("PageSize" .=) <$> _sPageSize])  instance ToPath ScanProvisionedProducts where         toPath = const "/"@@ -148,9 +150,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'spprsNextPageToken' - 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' - The page token to use to retrieve the next set of results. If there are no additional results, this value is null. ----- * 'spprsProvisionedProducts' - A list of ProvisionedProduct detail objects.+-- * 'spprsProvisionedProducts' - Information about the provisioned products. -- -- * 'spprsResponseStatus' - -- | The response status code. scanProvisionedProductsResponse@@ -158,22 +160,22 @@     -> ScanProvisionedProductsResponse scanProvisionedProductsResponse pResponseStatus_ =   ScanProvisionedProductsResponse'-  { _spprsNextPageToken = Nothing-  , _spprsProvisionedProducts = Nothing-  , _spprsResponseStatus = pResponseStatus_-  }+    { _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.+-- | The page token to use to retrieve the next set of results. If there are no additional results, this value is null. spprsNextPageToken :: Lens' ScanProvisionedProductsResponse (Maybe Text)-spprsNextPageToken = lens _spprsNextPageToken (\ s a -> s{_spprsNextPageToken = a});+spprsNextPageToken = lens _spprsNextPageToken (\ s a -> s{_spprsNextPageToken = a}) --- | A list of ProvisionedProduct detail objects.+-- | Information about the provisioned products. spprsProvisionedProducts :: Lens' ScanProvisionedProductsResponse [ProvisionedProductDetail]-spprsProvisionedProducts = lens _spprsProvisionedProducts (\ s a -> s{_spprsProvisionedProducts = a}) . _Default . _Coerce;+spprsProvisionedProducts = lens _spprsProvisionedProducts (\ s a -> s{_spprsProvisionedProducts = a}) . _Default . _Coerce  -- | -- | The response status code. spprsResponseStatus :: Lens' ScanProvisionedProductsResponse Int-spprsResponseStatus = lens _spprsResponseStatus (\ s a -> s{_spprsResponseStatus = a});+spprsResponseStatus = lens _spprsResponseStatus (\ s a -> s{_spprsResponseStatus = a})  instance NFData ScanProvisionedProductsResponse where

@@ -12,17 +12,15 @@  -- | -- Module      : Network.AWS.ServiceCatalog.SearchProducts--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Returns a paginated list all of the @Products@ objects to which the caller has access.+-- Gets information about the products to which the caller has access. -- ----- The output of this operation can be used as input for other operations, such as 'DescribeProductView' .--- module Network.AWS.ServiceCatalog.SearchProducts     (     -- * Creating a Request@@ -68,53 +66,53 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'spFilters' - 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' - The search filters. If no search filters are specified, the output includes all products to which the caller has access. ----- * 'spSortOrder' - The sort order specifier. If no value is specified, results are not sorted.+-- * 'spSortOrder' - The sort order. If no value is specified, the results are not sorted. -- -- * '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@ .+-- * 'spPageToken' - The page token for the next set of results. To retrieve the first set of results, use null. ----- * 'spPageSize' - 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.+-- * 'spPageSize' - The maximum number of items to return with this call. ----- * 'spSortBy' - The sort field specifier. If no value is specified, results are not sorted.+-- * 'spSortBy' - The sort field. If no value is specified, the results are not sorted. searchProducts     :: SearchProducts searchProducts =   SearchProducts'-  { _spFilters = Nothing-  , _spSortOrder = Nothing-  , _spAcceptLanguage = Nothing-  , _spPageToken = Nothing-  , _spPageSize = Nothing-  , _spSortBy = Nothing-  }+    { _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.+-- | The search filters. If no search filters are specified, the output includes all products to which the caller has access. spFilters :: Lens' SearchProducts (HashMap ProductViewFilterBy [Text])-spFilters = lens _spFilters (\ s a -> s{_spFilters = a}) . _Default . _Map;+spFilters = lens _spFilters (\ s a -> s{_spFilters = a}) . _Default . _Map --- | The sort order specifier. If no value is specified, results are not sorted.+-- | The sort order. If no value is specified, the results are not sorted. spSortOrder :: Lens' SearchProducts (Maybe SortOrder)-spSortOrder = lens _spSortOrder (\ s a -> s{_spSortOrder = a});+spSortOrder = lens _spSortOrder (\ s a -> s{_spSortOrder = a})  -- | The language code.     * @en@ - English (default)     * @jp@ - Japanese     * @zh@ - Chinese spAcceptLanguage :: Lens' SearchProducts (Maybe Text)-spAcceptLanguage = lens _spAcceptLanguage (\ s a -> s{_spAcceptLanguage = a});+spAcceptLanguage = lens _spAcceptLanguage (\ s a -> s{_spAcceptLanguage = a}) --- | The page token of the first page retrieved. If null, this retrieves the first page of size @PageSize@ .+-- | The page token for the next set of results. To retrieve the first set of results, use null. spPageToken :: Lens' SearchProducts (Maybe Text)-spPageToken = lens _spPageToken (\ s a -> s{_spPageToken = a});+spPageToken = lens _spPageToken (\ s a -> s{_spPageToken = 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.+-- | The maximum number of items to return with this call. spPageSize :: Lens' SearchProducts (Maybe Natural)-spPageSize = lens _spPageSize (\ s a -> s{_spPageSize = a}) . mapping _Nat;+spPageSize = lens _spPageSize (\ s a -> s{_spPageSize = a}) . mapping _Nat --- | The sort field specifier. If no value is specified, results are not sorted.+-- | The sort field. If no value is specified, the results are not sorted. spSortBy :: Lens' SearchProducts (Maybe ProductViewSortBy)-spSortBy = lens _spSortBy (\ s a -> s{_spSortBy = a});+spSortBy = lens _spSortBy (\ s a -> s{_spSortBy = a})  instance AWSRequest SearchProducts where         type Rs SearchProducts = SearchProductsResponse@@ -172,11 +170,11 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'sprsNextPageToken' - 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' - The page token to use to retrieve the next set of results. If there are no additional results, this value is null. ----- * 'sprsProductViewAggregations' - A list of the product view aggregation value objects.+-- * 'sprsProductViewAggregations' - The product view aggregations. ----- * 'sprsProductViewSummaries' - A list of the product view summary objects.+-- * 'sprsProductViewSummaries' - Information about the product views. -- -- * 'sprsResponseStatus' - -- | The response status code. searchProductsResponse@@ -184,27 +182,27 @@     -> SearchProductsResponse searchProductsResponse pResponseStatus_ =   SearchProductsResponse'-  { _sprsNextPageToken = Nothing-  , _sprsProductViewAggregations = Nothing-  , _sprsProductViewSummaries = Nothing-  , _sprsResponseStatus = pResponseStatus_-  }+    { _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.+-- | The page token to use to retrieve the next set of results. If there are no additional results, this value is null. sprsNextPageToken :: Lens' SearchProductsResponse (Maybe Text)-sprsNextPageToken = lens _sprsNextPageToken (\ s a -> s{_sprsNextPageToken = a});+sprsNextPageToken = lens _sprsNextPageToken (\ s a -> s{_sprsNextPageToken = a}) --- | A list of the product view aggregation value objects.+-- | The product view aggregations. sprsProductViewAggregations :: Lens' SearchProductsResponse (HashMap Text [ProductViewAggregationValue])-sprsProductViewAggregations = lens _sprsProductViewAggregations (\ s a -> s{_sprsProductViewAggregations = a}) . _Default . _Map;+sprsProductViewAggregations = lens _sprsProductViewAggregations (\ s a -> s{_sprsProductViewAggregations = a}) . _Default . _Map --- | A list of the product view summary objects.+-- | Information about the product views. sprsProductViewSummaries :: Lens' SearchProductsResponse [ProductViewSummary]-sprsProductViewSummaries = lens _sprsProductViewSummaries (\ s a -> s{_sprsProductViewSummaries = a}) . _Default . _Coerce;+sprsProductViewSummaries = lens _sprsProductViewSummaries (\ s a -> s{_sprsProductViewSummaries = a}) . _Default . _Coerce  -- | -- | The response status code. sprsResponseStatus :: Lens' SearchProductsResponse Int-sprsResponseStatus = lens _sprsResponseStatus (\ s a -> s{_sprsResponseStatus = a});+sprsResponseStatus = lens _sprsResponseStatus (\ s a -> s{_sprsResponseStatus = a})  instance NFData SearchProductsResponse where

@@ -12,15 +12,17 @@  -- | -- Module      : Network.AWS.ServiceCatalog.SearchProductsAsAdmin--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Retrieves summary and status information about all products created within the caller's account. If a portfolio ID is provided, this operation retrieves information for only those products that are associated with the specified portfolio.+-- Gets information about the products for the specified portfolio or all products. -- --+--+-- This operation returns paginated results. module Network.AWS.ServiceCatalog.SearchProductsAsAdmin     (     -- * Creating a Request@@ -46,6 +48,7 @@     ) where  import Network.AWS.Lens+import Network.AWS.Pager import Network.AWS.Prelude import Network.AWS.Request import Network.AWS.Response@@ -71,66 +74,74 @@ -- -- * 'spaaPortfolioId' - The portfolio identifier. ----- * 'spaaFilters' - 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 administrator has access.+-- * 'spaaFilters' - The search filters. If no search filters are specified, the output includes all products to which the administrator has access. ----- * 'spaaSortOrder' - The sort order specifier. If no value is specified, results are not sorted.+-- * 'spaaSortOrder' - The sort order. If no value is specified, the results are not sorted. -- -- * '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@ .+-- * 'spaaPageToken' - The page token for the next set of results. To retrieve the first set of results, use null. ----- * 'spaaPageSize' - 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.+-- * 'spaaPageSize' - The maximum number of items to return with this call. -- -- * 'spaaProductSource' - Access level of the source of the product. ----- * 'spaaSortBy' - The sort field specifier. If no value is specified, results are not sorted.+-- * 'spaaSortBy' - The sort field. If no value is specified, the results are not sorted. searchProductsAsAdmin     :: SearchProductsAsAdmin searchProductsAsAdmin =   SearchProductsAsAdmin'-  { _spaaPortfolioId = Nothing-  , _spaaFilters = Nothing-  , _spaaSortOrder = Nothing-  , _spaaAcceptLanguage = Nothing-  , _spaaPageToken = Nothing-  , _spaaPageSize = Nothing-  , _spaaProductSource = Nothing-  , _spaaSortBy = Nothing-  }+    { _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});+spaaPortfolioId = lens _spaaPortfolioId (\ s a -> s{_spaaPortfolioId = a}) --- | 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 administrator has access.+-- | The search filters. If no search filters are specified, the output includes all products to which the administrator has access. spaaFilters :: Lens' SearchProductsAsAdmin (HashMap ProductViewFilterBy [Text])-spaaFilters = lens _spaaFilters (\ s a -> s{_spaaFilters = a}) . _Default . _Map;+spaaFilters = lens _spaaFilters (\ s a -> s{_spaaFilters = a}) . _Default . _Map --- | The sort order specifier. If no value is specified, results are not sorted.+-- | The sort order. If no value is specified, the results are not sorted. spaaSortOrder :: Lens' SearchProductsAsAdmin (Maybe SortOrder)-spaaSortOrder = lens _spaaSortOrder (\ s a -> s{_spaaSortOrder = a});+spaaSortOrder = lens _spaaSortOrder (\ s a -> s{_spaaSortOrder = a})  -- | The language code.     * @en@ - English (default)     * @jp@ - Japanese     * @zh@ - Chinese spaaAcceptLanguage :: Lens' SearchProductsAsAdmin (Maybe Text)-spaaAcceptLanguage = lens _spaaAcceptLanguage (\ s a -> s{_spaaAcceptLanguage = a});+spaaAcceptLanguage = lens _spaaAcceptLanguage (\ s a -> s{_spaaAcceptLanguage = a}) --- | The page token of the first page retrieved. If null, this retrieves the first page of size @PageSize@ .+-- | The page token for the next set of results. To retrieve the first set of results, use null. spaaPageToken :: Lens' SearchProductsAsAdmin (Maybe Text)-spaaPageToken = lens _spaaPageToken (\ s a -> s{_spaaPageToken = a});+spaaPageToken = lens _spaaPageToken (\ s a -> s{_spaaPageToken = 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.+-- | The maximum number of items to return with this call. spaaPageSize :: Lens' SearchProductsAsAdmin (Maybe Natural)-spaaPageSize = lens _spaaPageSize (\ s a -> s{_spaaPageSize = a}) . mapping _Nat;+spaaPageSize = lens _spaaPageSize (\ s a -> s{_spaaPageSize = a}) . mapping _Nat  -- | Access level of the source of the product. spaaProductSource :: Lens' SearchProductsAsAdmin (Maybe ProductSource)-spaaProductSource = lens _spaaProductSource (\ s a -> s{_spaaProductSource = a});+spaaProductSource = lens _spaaProductSource (\ s a -> s{_spaaProductSource = a}) --- | The sort field specifier. If no value is specified, results are not sorted.+-- | The sort field. If no value is specified, the results are not sorted. spaaSortBy :: Lens' SearchProductsAsAdmin (Maybe ProductViewSortBy)-spaaSortBy = lens _spaaSortBy (\ s a -> s{_spaaSortBy = a});+spaaSortBy = lens _spaaSortBy (\ s a -> s{_spaaSortBy = a}) +instance AWSPager SearchProductsAsAdmin where+        page rq rs+          | stop (rs ^. spaarsNextPageToken) = Nothing+          | stop (rs ^. spaarsProductViewDetails) = Nothing+          | otherwise =+            Just $ rq &+              spaaPageToken .~ rs ^. spaarsNextPageToken+ instance AWSRequest SearchProductsAsAdmin where         type Rs SearchProductsAsAdmin =              SearchProductsAsAdminResponse@@ -188,9 +199,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'spaarsNextPageToken' - 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' - The page token to use to retrieve the next set of results. If there are no additional results, this value is null. ----- * 'spaarsProductViewDetails' - List of detailed product view information objects.+-- * 'spaarsProductViewDetails' - Information about the product views. -- -- * 'spaarsResponseStatus' - -- | The response status code. searchProductsAsAdminResponse@@ -198,22 +209,22 @@     -> SearchProductsAsAdminResponse searchProductsAsAdminResponse pResponseStatus_ =   SearchProductsAsAdminResponse'-  { _spaarsNextPageToken = Nothing-  , _spaarsProductViewDetails = Nothing-  , _spaarsResponseStatus = pResponseStatus_-  }+    { _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.+-- | The page token to use to retrieve the next set of results. If there are no additional results, this value is null. spaarsNextPageToken :: Lens' SearchProductsAsAdminResponse (Maybe Text)-spaarsNextPageToken = lens _spaarsNextPageToken (\ s a -> s{_spaarsNextPageToken = a});+spaarsNextPageToken = lens _spaarsNextPageToken (\ s a -> s{_spaarsNextPageToken = a}) --- | List of detailed product view information objects.+-- | Information about the product views. spaarsProductViewDetails :: Lens' SearchProductsAsAdminResponse [ProductViewDetail]-spaarsProductViewDetails = lens _spaarsProductViewDetails (\ s a -> s{_spaarsProductViewDetails = a}) . _Default . _Coerce;+spaarsProductViewDetails = lens _spaarsProductViewDetails (\ s a -> s{_spaarsProductViewDetails = a}) . _Default . _Coerce  -- | -- | The response status code. spaarsResponseStatus :: Lens' SearchProductsAsAdminResponse Int-spaarsResponseStatus = lens _spaarsResponseStatus (\ s a -> s{_spaarsResponseStatus = a});+spaarsResponseStatus = lens _spaarsResponseStatus (\ s a -> s{_spaarsResponseStatus = a})  instance NFData SearchProductsAsAdminResponse where

@@ -0,0 +1,220 @@+{-# 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.SearchProvisionedProducts+-- Copyright   : (c) 2013-2018 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Gets information about the provisioned products that meet the specified criteria.+--+--+module Network.AWS.ServiceCatalog.SearchProvisionedProducts+    (+    -- * Creating a Request+      searchProvisionedProducts+    , SearchProvisionedProducts+    -- * Request Lenses+    , sppFilters+    , sppSortOrder+    , sppAcceptLanguage+    , sppAccessLevelFilter+    , sppPageToken+    , sppPageSize+    , sppSortBy++    -- * Destructuring the Response+    , searchProvisionedProductsResponse+    , SearchProvisionedProductsResponse+    -- * Response Lenses+    , srsNextPageToken+    , srsProvisionedProducts+    , srsTotalResultsCount+    , srsResponseStatus+    ) 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:/ 'searchProvisionedProducts' smart constructor.+data SearchProvisionedProducts = SearchProvisionedProducts'+  { _sppFilters :: !(Maybe (Map ProvisionedProductViewFilterBy [Text]))+  , _sppSortOrder :: !(Maybe SortOrder)+  , _sppAcceptLanguage :: !(Maybe Text)+  , _sppAccessLevelFilter :: !(Maybe AccessLevelFilter)+  , _sppPageToken :: !(Maybe Text)+  , _sppPageSize :: !(Maybe Nat)+  , _sppSortBy :: !(Maybe Text)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'SearchProvisionedProducts' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'sppFilters' - The search filters. When the key is @SearchQuery@ , the searchable fields are @arn@ , @createdTime@ , @id@ , @lastRecordId@ , @idempotencyToken@ , @name@ , @physicalId@ , @productId@ , @provisioningArtifact@ , @type@ , @status@ , @tags@ , @userArn@ , and @userArnSession@ . Example: @"SearchQuery":["status:AVAILABLE"]@+--+-- * 'sppSortOrder' - The sort order. If no value is specified, the results are not sorted.+--+-- * 'sppAcceptLanguage' - The language code.     * @en@ - English (default)     * @jp@ - Japanese     * @zh@ - Chinese+--+-- * 'sppAccessLevelFilter' - The access level to use to obtain results. The default is @User@ .+--+-- * 'sppPageToken' - The page token for the next set of results. To retrieve the first set of results, use null.+--+-- * 'sppPageSize' - The maximum number of items to return with this call.+--+-- * 'sppSortBy' - The sort field. If no value is specified, the results are not sorted. The valid values are @arn@ , @id@ , @name@ , and @lastRecordId@ .+searchProvisionedProducts+    :: SearchProvisionedProducts+searchProvisionedProducts =+  SearchProvisionedProducts'+    { _sppFilters = Nothing+    , _sppSortOrder = Nothing+    , _sppAcceptLanguage = Nothing+    , _sppAccessLevelFilter = Nothing+    , _sppPageToken = Nothing+    , _sppPageSize = Nothing+    , _sppSortBy = Nothing+    }+++-- | The search filters. When the key is @SearchQuery@ , the searchable fields are @arn@ , @createdTime@ , @id@ , @lastRecordId@ , @idempotencyToken@ , @name@ , @physicalId@ , @productId@ , @provisioningArtifact@ , @type@ , @status@ , @tags@ , @userArn@ , and @userArnSession@ . Example: @"SearchQuery":["status:AVAILABLE"]@+sppFilters :: Lens' SearchProvisionedProducts (HashMap ProvisionedProductViewFilterBy [Text])+sppFilters = lens _sppFilters (\ s a -> s{_sppFilters = a}) . _Default . _Map++-- | The sort order. If no value is specified, the results are not sorted.+sppSortOrder :: Lens' SearchProvisionedProducts (Maybe SortOrder)+sppSortOrder = lens _sppSortOrder (\ s a -> s{_sppSortOrder = a})++-- | The language code.     * @en@ - English (default)     * @jp@ - Japanese     * @zh@ - Chinese+sppAcceptLanguage :: Lens' SearchProvisionedProducts (Maybe Text)+sppAcceptLanguage = lens _sppAcceptLanguage (\ s a -> s{_sppAcceptLanguage = a})++-- | The access level to use to obtain results. The default is @User@ .+sppAccessLevelFilter :: Lens' SearchProvisionedProducts (Maybe AccessLevelFilter)+sppAccessLevelFilter = lens _sppAccessLevelFilter (\ s a -> s{_sppAccessLevelFilter = a})++-- | The page token for the next set of results. To retrieve the first set of results, use null.+sppPageToken :: Lens' SearchProvisionedProducts (Maybe Text)+sppPageToken = lens _sppPageToken (\ s a -> s{_sppPageToken = a})++-- | The maximum number of items to return with this call.+sppPageSize :: Lens' SearchProvisionedProducts (Maybe Natural)+sppPageSize = lens _sppPageSize (\ s a -> s{_sppPageSize = a}) . mapping _Nat++-- | The sort field. If no value is specified, the results are not sorted. The valid values are @arn@ , @id@ , @name@ , and @lastRecordId@ .+sppSortBy :: Lens' SearchProvisionedProducts (Maybe Text)+sppSortBy = lens _sppSortBy (\ s a -> s{_sppSortBy = a})++instance AWSRequest SearchProvisionedProducts where+        type Rs SearchProvisionedProducts =+             SearchProvisionedProductsResponse+        request = postJSON serviceCatalog+        response+          = receiveJSON+              (\ s h x ->+                 SearchProvisionedProductsResponse' <$>+                   (x .?> "NextPageToken") <*>+                     (x .?> "ProvisionedProducts" .!@ mempty)+                     <*> (x .?> "TotalResultsCount")+                     <*> (pure (fromEnum s)))++instance Hashable SearchProvisionedProducts where++instance NFData SearchProvisionedProducts where++instance ToHeaders SearchProvisionedProducts where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("AWS242ServiceCatalogService.SearchProvisionedProducts"+                       :: ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON SearchProvisionedProducts where+        toJSON SearchProvisionedProducts'{..}+          = object+              (catMaybes+                 [("Filters" .=) <$> _sppFilters,+                  ("SortOrder" .=) <$> _sppSortOrder,+                  ("AcceptLanguage" .=) <$> _sppAcceptLanguage,+                  ("AccessLevelFilter" .=) <$> _sppAccessLevelFilter,+                  ("PageToken" .=) <$> _sppPageToken,+                  ("PageSize" .=) <$> _sppPageSize,+                  ("SortBy" .=) <$> _sppSortBy])++instance ToPath SearchProvisionedProducts where+        toPath = const "/"++instance ToQuery SearchProvisionedProducts where+        toQuery = const mempty++-- | /See:/ 'searchProvisionedProductsResponse' smart constructor.+data SearchProvisionedProductsResponse = SearchProvisionedProductsResponse'+  { _srsNextPageToken       :: !(Maybe Text)+  , _srsProvisionedProducts :: !(Maybe [ProvisionedProductAttribute])+  , _srsTotalResultsCount   :: !(Maybe Int)+  , _srsResponseStatus      :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'SearchProvisionedProductsResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'srsNextPageToken' - The page token to use to retrieve the next set of results. If there are no additional results, this value is null.+--+-- * 'srsProvisionedProducts' - Information about the provisioned products.+--+-- * 'srsTotalResultsCount' - The number of provisioned products found.+--+-- * 'srsResponseStatus' - -- | The response status code.+searchProvisionedProductsResponse+    :: Int -- ^ 'srsResponseStatus'+    -> SearchProvisionedProductsResponse+searchProvisionedProductsResponse pResponseStatus_ =+  SearchProvisionedProductsResponse'+    { _srsNextPageToken = Nothing+    , _srsProvisionedProducts = Nothing+    , _srsTotalResultsCount = Nothing+    , _srsResponseStatus = pResponseStatus_+    }+++-- | The page token to use to retrieve the next set of results. If there are no additional results, this value is null.+srsNextPageToken :: Lens' SearchProvisionedProductsResponse (Maybe Text)+srsNextPageToken = lens _srsNextPageToken (\ s a -> s{_srsNextPageToken = a})++-- | Information about the provisioned products.+srsProvisionedProducts :: Lens' SearchProvisionedProductsResponse [ProvisionedProductAttribute]+srsProvisionedProducts = lens _srsProvisionedProducts (\ s a -> s{_srsProvisionedProducts = a}) . _Default . _Coerce++-- | The number of provisioned products found.+srsTotalResultsCount :: Lens' SearchProvisionedProductsResponse (Maybe Int)+srsTotalResultsCount = lens _srsTotalResultsCount (\ s a -> s{_srsTotalResultsCount = a})++-- | -- | The response status code.+srsResponseStatus :: Lens' SearchProvisionedProductsResponse Int+srsResponseStatus = lens _srsResponseStatus (\ s a -> s{_srsResponseStatus = a})++instance NFData SearchProvisionedProductsResponse+         where

@@ -12,18 +12,18 @@  -- | -- Module      : Network.AWS.ServiceCatalog.TerminateProvisionedProduct--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Requests termination of an existing ProvisionedProduct object. If there are @Tags@ associated with the object, they are terminated when the ProvisionedProduct object is terminated.+-- Terminates the specified provisioned product. -- ----- This operation does not delete any records associated with the ProvisionedProduct object.+-- This operation does not delete any records associated with the provisioned product. ----- You can check the status of this request using the 'DescribeRecord' operation.+-- You can check the status of this request using 'DescribeRecord' . -- module Network.AWS.ServiceCatalog.TerminateProvisionedProduct     (@@ -66,47 +66,47 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'tppProvisionedProductName' - The name of the ProvisionedProduct object to terminate. Specify either @ProvisionedProductName@ or @ProvisionedProductId@ , but not both.+-- * 'tppProvisionedProductName' - The name of the provisioned product. You cannot specify both @ProvisionedProductName@ and @ProvisionedProductId@ . -- -- * '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.+-- * 'tppIgnoreErrors' - If set to true, AWS Service Catalog stops managing the specified provisioned product even if it cannot delete the underlying resources. ----- * 'tppProvisionedProductId' - The identifier of the ProvisionedProduct object to terminate. Specify either @ProvisionedProductName@ or @ProvisionedProductId@ , but not both.+-- * 'tppProvisionedProductId' - The identifier of the provisioned product. You cannot specify both @ProvisionedProductName@ and @ProvisionedProductId@ . ----- * '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@ .+-- * 'tppTerminateToken' - An idempotency token that uniquely identifies the termination request. This token is only valid during the termination process. After the provisioned product is terminated, subsequent requests to terminate the same provisioned product always return __ResourceNotFound__ . terminateProvisionedProduct     :: Text -- ^ 'tppTerminateToken'     -> TerminateProvisionedProduct terminateProvisionedProduct pTerminateToken_ =   TerminateProvisionedProduct'-  { _tppProvisionedProductName = Nothing-  , _tppAcceptLanguage = Nothing-  , _tppIgnoreErrors = Nothing-  , _tppProvisionedProductId = Nothing-  , _tppTerminateToken = pTerminateToken_-  }+    { _tppProvisionedProductName = Nothing+    , _tppAcceptLanguage = Nothing+    , _tppIgnoreErrors = Nothing+    , _tppProvisionedProductId = Nothing+    , _tppTerminateToken = pTerminateToken_+    }  --- | The name of the ProvisionedProduct object to terminate. Specify either @ProvisionedProductName@ or @ProvisionedProductId@ , but not both.+-- | The name of the provisioned product. You cannot specify both @ProvisionedProductName@ and @ProvisionedProductId@ . tppProvisionedProductName :: Lens' TerminateProvisionedProduct (Maybe Text)-tppProvisionedProductName = lens _tppProvisionedProductName (\ s a -> s{_tppProvisionedProductName = a});+tppProvisionedProductName = lens _tppProvisionedProductName (\ s a -> s{_tppProvisionedProductName = a})  -- | The language code.     * @en@ - English (default)     * @jp@ - Japanese     * @zh@ - Chinese tppAcceptLanguage :: Lens' TerminateProvisionedProduct (Maybe Text)-tppAcceptLanguage = lens _tppAcceptLanguage (\ s a -> s{_tppAcceptLanguage = a});+tppAcceptLanguage = lens _tppAcceptLanguage (\ s a -> s{_tppAcceptLanguage = a}) --- | If set to true, AWS Service Catalog stops managing the specified ProvisionedProduct object even if it cannot delete the underlying resources.+-- | If set to true, AWS Service Catalog stops managing the specified provisioned product even if it cannot delete the underlying resources. tppIgnoreErrors :: Lens' TerminateProvisionedProduct (Maybe Bool)-tppIgnoreErrors = lens _tppIgnoreErrors (\ s a -> s{_tppIgnoreErrors = a});+tppIgnoreErrors = lens _tppIgnoreErrors (\ s a -> s{_tppIgnoreErrors = a}) --- | The identifier of the ProvisionedProduct object to terminate. Specify either @ProvisionedProductName@ or @ProvisionedProductId@ , but not both.+-- | The identifier of the provisioned product. You cannot specify both @ProvisionedProductName@ and @ProvisionedProductId@ . tppProvisionedProductId :: Lens' TerminateProvisionedProduct (Maybe Text)-tppProvisionedProductId = lens _tppProvisionedProductId (\ s a -> s{_tppProvisionedProductId = a});+tppProvisionedProductId = lens _tppProvisionedProductId (\ s a -> s{_tppProvisionedProductId = a}) --- | 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@ .+-- | An idempotency token that uniquely identifies the termination request. This token is only valid during the termination process. After the provisioned product is terminated, subsequent requests to terminate the same provisioned product always return __ResourceNotFound__ . tppTerminateToken :: Lens' TerminateProvisionedProduct Text-tppTerminateToken = lens _tppTerminateToken (\ s a -> s{_tppTerminateToken = a});+tppTerminateToken = lens _tppTerminateToken (\ s a -> s{_tppTerminateToken = a})  instance AWSRequest TerminateProvisionedProduct where         type Rs TerminateProvisionedProduct =@@ -161,7 +161,7 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'tpprsRecordDetail' - 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' - Information about the result of this request. -- -- * 'tpprsResponseStatus' - -- | The response status code. terminateProvisionedProductResponse@@ -169,16 +169,16 @@     -> TerminateProvisionedProductResponse terminateProvisionedProductResponse pResponseStatus_ =   TerminateProvisionedProductResponse'-  {_tpprsRecordDetail = Nothing, _tpprsResponseStatus = pResponseStatus_}+    {_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.+-- | Information about the result of this request. tpprsRecordDetail :: Lens' TerminateProvisionedProductResponse (Maybe RecordDetail)-tpprsRecordDetail = lens _tpprsRecordDetail (\ s a -> s{_tpprsRecordDetail = a});+tpprsRecordDetail = lens _tpprsRecordDetail (\ s a -> s{_tpprsRecordDetail = a})  -- | -- | The response status code. tpprsResponseStatus :: Lens' TerminateProvisionedProductResponse Int-tpprsResponseStatus = lens _tpprsResponseStatus (\ s a -> s{_tpprsResponseStatus = a});+tpprsResponseStatus = lens _tpprsResponseStatus (\ s a -> s{_tpprsResponseStatus = a})  instance NFData TerminateProvisionedProductResponse          where

@@ -4,7 +4,7 @@  -- | -- Module      : Network.AWS.ServiceCatalog.Types--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -27,12 +27,18 @@     -- * AccessLevelFilterKey     , AccessLevelFilterKey (..) +    -- * ChangeAction+    , ChangeAction (..)+     -- * CopyOption     , CopyOption (..)      -- * CopyProductStatus     , CopyProductStatus (..) +    -- * EvaluationType+    , EvaluationType (..)+     -- * PrincipalType     , PrincipalType (..) @@ -48,9 +54,18 @@     -- * ProductViewSortBy     , ProductViewSortBy (..) +    -- * ProvisionedProductPlanStatus+    , ProvisionedProductPlanStatus (..)++    -- * ProvisionedProductPlanType+    , ProvisionedProductPlanType (..)+     -- * ProvisionedProductStatus     , ProvisionedProductStatus (..) +    -- * ProvisionedProductViewFilterBy+    , ProvisionedProductViewFilterBy (..)+     -- * ProvisioningArtifactPropertyName     , ProvisioningArtifactPropertyName (..) @@ -60,9 +75,18 @@     -- * RecordStatus     , RecordStatus (..) +    -- * Replacement+    , Replacement (..)+     -- * RequestStatus     , RequestStatus (..) +    -- * RequiresRecreation+    , RequiresRecreation (..)++    -- * ResourceAttribute+    , ResourceAttribute (..)+     -- * SortOrder     , SortOrder (..) @@ -72,6 +96,11 @@     , alfValue     , alfKey +    -- * CloudWatchDashboard+    , CloudWatchDashboard+    , cloudWatchDashboard+    , cwdName+     -- * ConstraintDetail     , ConstraintDetail     , constraintDetail@@ -157,6 +186,25 @@     , pvsProductId     , pvsSupportDescription +    -- * ProvisionedProductAttribute+    , ProvisionedProductAttribute+    , provisionedProductAttribute+    , ppaIdempotencyToken+    , ppaStatus+    , ppaProvisioningArtifactId+    , ppaARN+    , ppaCreatedTime+    , ppaUserARN+    , ppaStatusMessage+    , ppaName+    , ppaLastRecordId+    , ppaUserARNSession+    , ppaId+    , ppaType+    , ppaPhysicalId+    , ppaProductId+    , ppaTags+     -- * ProvisionedProductDetail     , ProvisionedProductDetail     , provisionedProductDetail@@ -170,6 +218,35 @@     , ppdId     , ppdType +    -- * ProvisionedProductPlanDetails+    , ProvisionedProductPlanDetails+    , provisionedProductPlanDetails+    , pppdStatus+    , pppdProvisionProductId+    , pppdProvisioningArtifactId+    , pppdProvisionProductName+    , pppdCreatedTime+    , pppdNotificationARNs+    , pppdPlanId+    , pppdPlanName+    , pppdStatusMessage+    , pppdUpdatedTime+    , pppdPathId+    , pppdProvisioningParameters+    , pppdPlanType+    , pppdProductId+    , pppdTags++    -- * ProvisionedProductPlanSummary+    , ProvisionedProductPlanSummary+    , provisionedProductPlanSummary+    , pppsProvisionProductId+    , pppsProvisioningArtifactId+    , pppsProvisionProductName+    , pppsPlanId+    , pppsPlanName+    , pppsPlanType+     -- * ProvisioningArtifact     , ProvisioningArtifact     , provisioningArtifact@@ -182,6 +259,7 @@     , ProvisioningArtifactDetail     , provisioningArtifactDetail     , padCreatedTime+    , padActive     , padName     , padId     , padType@@ -256,6 +334,24 @@     , rtValue     , rtKey +    -- * ResourceChange+    , ResourceChange+    , resourceChange+    , rcLogicalResourceId+    , rcPhysicalResourceId+    , rcResourceType+    , rcAction+    , rcScope+    , rcDetails+    , rcReplacement++    -- * ResourceChangeDetail+    , ResourceChangeDetail+    , resourceChangeDetail+    , rcdCausingEntity+    , rcdEvaluation+    , rcdTarget+     -- * ResourceDetail     , ResourceDetail     , resourceDetail@@ -265,6 +361,13 @@     , rId     , rDescription +    -- * ResourceTargetDefinition+    , ResourceTargetDefinition+    , resourceTargetDefinition+    , rtdAttribute+    , rtdRequiresRecreation+    , rtdName+     -- * Tag     , Tag     , tag@@ -309,24 +412,24 @@ serviceCatalog :: Service serviceCatalog =   Service-  { _svcAbbrev = "ServiceCatalog"-  , _svcSigner = v4-  , _svcPrefix = "servicecatalog"-  , _svcVersion = "2015-12-10"-  , _svcEndpoint = defaultEndpoint serviceCatalog-  , _svcTimeout = Just 70-  , _svcCheck = statusSuccess-  , _svcError = parseJSONError "ServiceCatalog"-  , _svcRetry = retry-  }+    { _svcAbbrev = "ServiceCatalog"+    , _svcSigner = v4+    , _svcPrefix = "servicecatalog"+    , _svcVersion = "2015-12-10"+    , _svcEndpoint = defaultEndpoint serviceCatalog+    , _svcTimeout = Just 70+    , _svcCheck = statusSuccess+    , _svcError = parseJSONError "ServiceCatalog"+    , _svcRetry = retry+    }   where     retry =       Exponential-      { _retryBase = 5.0e-2-      , _retryGrowth = 2-      , _retryAttempts = 5-      , _retryCheck = check-      }+        { _retryBase = 5.0e-2+        , _retryGrowth = 2+        , _retryAttempts = 5+        , _retryCheck = check+        }     check e       | has (hasCode "ThrottledException" . hasStatus 400) e =         Just "throttled_exception"@@ -335,6 +438,8 @@         Just "throttling_exception"       | has (hasCode "Throttling" . hasStatus 400) e = Just "throttling"       | has (hasStatus 504) e = Just "gateway_timeout"+      | has (hasCode "RequestThrottledException" . hasStatus 400) e =+        Just "request_throttled_exception"       | has (hasStatus 502) e = Just "bad_gateway"       | has (hasStatus 503) e = Just "service_unavailable"       | has (hasStatus 500) e = Just "general_server_error"@@ -342,7 +447,7 @@       | otherwise = Nothing  --- | One or more parameters provided to the operation are invalid.+-- | One or more parameters provided to the operation are not valid. -- -- _InvalidParametersException :: AsError a => Getting (First ServiceError) a ServiceError@@ -374,7 +479,7 @@   _MatchServiceError serviceCatalog "ResourceNotFoundException"  --- | An attempt was made to modify a resource that is in an invalid state. Inspect the resource you are using for this operation to ensure that all resource states are valid before retrying the operation.+-- | An attempt was made to modify a resource that is in a state that is not valid. Check your resources to ensure that they are in valid states before retrying the operation. -- -- _InvalidStateException :: AsError a => Getting (First ServiceError) a ServiceError@@ -382,7 +487,7 @@   _MatchServiceError serviceCatalog "InvalidStateException"  --- | The current limits of the service would have been exceeded by this operation. Reduce the resource use or increase the service limits and retry the operation.+-- | The current limits of the service would have been exceeded by this operation. Decrease your resource use or increase your service limits and retry the operation. -- -- _LimitExceededException :: AsError a => Getting (First ServiceError) a ServiceError@@ -390,7 +495,7 @@   _MatchServiceError serviceCatalog "LimitExceededException"  --- | The operation was requested against a resource that is currently in use. Free the resource from use and retry the operation.+-- | A resource that is currently in use. Ensure that the resource is not in use and retry the operation. -- -- _ResourceInUseException :: AsError a => Getting (First ServiceError) a ServiceError